projects
/
coq-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
use apply tactic in ReificationFromGeneralizedArrow; not sure why this is required
[coq-hetmet.git]
/
src
/
Extraction.v
diff --git
a/src/Extraction.v
b/src/Extraction.v
index
43d404f
..
82b0543
100644
(file)
--- a/
src/Extraction.v
+++ b/
src/Extraction.v
@@
-1,3
+1,10
@@
+(*********************************************************************************************************************************)
+(* Extraction: *)
+(* *)
+(* This module is the "top level" for extraction *)
+(* *)
+(*********************************************************************************************************************************)
+
(* need this or the Haskell extraction fails *)
Set Printing Width 1300000.
(* need this or the Haskell extraction fails *)
Set Printing Width 1300000.
@@
-25,10
+32,14
@@
Require Import HaskProof.
Require Import HaskCoreToWeak.
Require Import HaskWeakToStrong.
Require Import HaskStrongToProof.
Require Import HaskCoreToWeak.
Require Import HaskWeakToStrong.
Require Import HaskStrongToProof.
-Require Import HaskProofToStrong.
Require Import HaskProofToLatex.
Require Import HaskStrongToWeak.
Require Import HaskWeakToCore.
Require Import HaskProofToLatex.
Require Import HaskStrongToWeak.
Require Import HaskWeakToCore.
+Require Import HaskProofToStrong.
+
+Require Import HaskProofCategory.
+Require Import HaskStrongCategory.
+Require Import ReificationsEquivalentToGeneralizedArrows.
Open Scope string_scope.
Extraction Language Haskell.
Open Scope string_scope.
Extraction Language Haskell.
@@
-230,7
+241,6
@@
Section core2proof.
(*
Definition TInt : HaskType nil ★.
assert (tyConKind' intPrimTyCon = ★).
(*
Definition TInt : HaskType nil ★.
assert (tyConKind' intPrimTyCon = ★).
- admit.
rewrite <- H.
unfold HaskType; intros.
apply TCon.
rewrite <- H.
unfold HaskType; intros.
apply TCon.