projects
/
coq-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
add Unify.hs to examples
[coq-hetmet.git]
/
src
/
ExtractionMain.v
diff --git
a/src/ExtractionMain.v
b/src/ExtractionMain.v
index
02643e5
..
49be891
100644
(file)
--- a/
src/ExtractionMain.v
+++ b/
src/ExtractionMain.v
@@
-33,13
+33,8
@@
Require Import HaskStrongToWeak.
Require Import HaskWeakToCore.
Require Import HaskProofToStrong.
Require Import HaskWeakToCore.
Require Import HaskProofToStrong.
-Require Import ProgrammingLanguage.
-
-Require Import HaskProofFlattener.
-Require Import HaskProofStratified.
-Require Import HaskProofCategory.
-
-Require Import ReificationsIsomorphicToGeneralizedArrows.
+(*Require Import HaskProofFlattener.*)
+(*Require Import HaskProofStratified.*)
Open Scope string_scope.
Extraction Language Haskell.
Open Scope string_scope.
Extraction Language Haskell.
@@
-118,7
+113,7
@@
Section core2proof.
"\usepackage[paperwidth=\maxdimen,paperheight=\maxdimen]{geometry}"+++eol+++
"\usepackage[tightpage,active]{preview}"+++eol+++
"\begin{document}"+++eol+++
"\usepackage[paperwidth=\maxdimen,paperheight=\maxdimen]{geometry}"+++eol+++
"\usepackage[tightpage,active]{preview}"+++eol+++
"\begin{document}"+++eol+++
- "\setlength\PreviewBorder{5pt}"+++eol+++.
+ "\setlength\PreviewBorder{5pt}"+++eol.
Definition footer : string :=
eol+++"\end{document}"+++
Definition footer : string :=
eol+++"\end{document}"+++
@@
-137,7
+132,7
@@
Section core2proof.
addErrorMessage ("HaskType: " +++ toString τ)
((weakExprToStrongExpr Γ Δ φ ψ ξ (fun _ => false) τ nil we) >>= fun e =>
OK (eol+++eol+++eol+++
addErrorMessage ("HaskType: " +++ toString τ)
((weakExprToStrongExpr Γ Δ φ ψ ξ (fun _ => false) τ nil we) >>= fun e =>
OK (eol+++eol+++eol+++
- "\begin{preview}"+++eol
+ "\begin{preview}"+++eol+++
"$\displaystyle "+++
toString (nd_ml_toLatexMath (@expr2proof _ _ _ _ _ _ e))+++
" $"+++eol+++
"$\displaystyle "+++
toString (nd_ml_toLatexMath (@expr2proof _ _ _ _ _ _ e))+++
" $"+++eol+++