yiyunliu/pair-eta
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Prove that beta-eta equivalent types have the same meaning

Browse source
This commit is contained in:
Yiyun Liu 2024-12-30 15:52:35 -05:00
parent 86b8043215
commit dd63ebf2e9
2 changed files with 27 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

2
theories/fp_red.v
View file

@ -1677,7 +1677,7 @@ Proof. sfirstorder unfold:join. Qed.
Lemma join_refl n (a : Tm n) : join a a.
Proof. hauto lq:on ctrs:rtc unfold:join. Qed.
Lemma join_univ_inj n i j (C : Tm n) :
Lemma join_univ_inj n i j :
join (Univ i : Tm n) (Univ j) -> i = j.
Proof.
sfirstorder use:pars_univ_inj.