projects
/
coq-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Eliminate the need for WeakVar decidable equality axiom
[coq-hetmet.git]
/
src
/
HaskWeak.v
diff --git
a/src/HaskWeak.v
b/src/HaskWeak.v
index
537bfbe
..
78cd6ae
100644
(file)
--- a/
src/HaskWeak.v
+++ b/
src/HaskWeak.v
@@
-43,6
+43,7
@@
Inductive WeakExpr :=
WeakExpr.
(* calculate the free WeakVar's in a WeakExpr *)
WeakExpr.
(* calculate the free WeakVar's in a WeakExpr *)
+(*
Fixpoint getWeakExprFreeVars (me:WeakExpr) : list WeakExprVar :=
match me with
| WELit _ => nil
Fixpoint getWeakExprFreeVars (me:WeakExpr) : list WeakExprVar :=
match me with
| WELit _ => nil
@@
-92,7
+93,7
@@
Definition makeClosedExpression : WeakExpr -> WeakExpr :=
| nil => me
| cv::cvl' => WELam cv (closeExpression me cvl')
end) me (getWeakExprFreeVars me).
| nil => me
| cv::cvl' => WELam cv (closeExpression me cvl')
end) me (getWeakExprFreeVars me).
-
+*)
Definition weakTypeOfLiteral (lit:HaskLiteral) : WeakType :=
(WTyCon (haskLiteralToTyCon lit)).
Definition weakTypeOfLiteral (lit:HaskLiteral) : WeakType :=
(WTyCon (haskLiteralToTyCon lit)).