fix expr_open & expr_lc for let case

This commit is contained in:
Michael Sippel 2024-09-22 17:34:12 +02:00
parent f0d9a550b6
commit 10cd2f9bc9
2 changed files with 12 additions and 2 deletions
coq/lemmas

View file

@ -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.
(*