fix expr_open & expr_lc for let case
This commit is contained in:
parent
f0d9a550b6
commit
10cd2f9bc9
2 changed files with 12 additions and 2 deletions
coq/lemmas
|
@ -247,6 +247,13 @@ Proof.
|
|||
discriminate.
|
||||
apply eq_sym, H1.
|
||||
assumption.
|
||||
|
||||
- unfold expr_open in *.
|
||||
pick fresh x for L.
|
||||
apply expr_open_lc_core with (i:=0) (s1:=(ex_fvar x)) (j:=S k) (s2:=s).
|
||||
discriminate.
|
||||
apply eq_sym, H1.
|
||||
assumption.
|
||||
Qed.
|
||||
|
||||
(*
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue