projects
/
coq-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
add support for flattening recursive-let
[coq-hetmet.git]
/
src
/
HaskStrongToProof.v
diff --git
a/src/HaskStrongToProof.v
b/src/HaskStrongToProof.v
index
1f1229d
..
114f2d9
100644
(file)
--- a/
src/HaskStrongToProof.v
+++ b/
src/HaskStrongToProof.v
@@
-997,7
+997,7
@@
Lemma letRecSubproofsToND' Γ Δ ξ lev τ tree :
eapply nd_comp; [ idtac | eapply nd_rule; apply z ].
clear z.
eapply nd_comp; [ idtac | eapply nd_rule; apply z ].
clear z.
- set (@factorContextRightAndWeaken'' Γ Δ pctx ξ' (eLetRecContext branches,,expr2antecedent body)) as q'.
+ set (@factorContextLeftAndWeaken'' Γ Δ pctx ξ' (eLetRecContext branches,,expr2antecedent body)) as q'.
unfold passback in *; clear passback.
unfold pctx in *; clear pctx.
set (q' disti) as q''.
unfold passback in *; clear passback.
unfold pctx in *; clear pctx.
set (q' disti) as q''.