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

Refactor the equational theory to use the compile function

Browse source
This commit is contained in:
Yiyun Liu 2025-01-20 20:11:51 -05:00
parent 7850314935
commit 36427daa61
3 changed files with 67 additions and 28 deletions
Download patch file Download diff file Expand all files Collapse all files

10
theories/fp_red.v
View file

@ -2394,16 +2394,6 @@ Proof.
sfirstorder unfold:join.
Qed.
Lemma join_univ_pi_contra n p (A : Tm n) B i :
join (TBind p A B) (Univ i) -> False.
Proof.
rewrite /join.
move => [c [h0 h1]].
move /pars_univ_inv : h1.
move /pars_pi_inv : h0.
hauto l:on.
Qed.
Lemma join_substing n m (a b : Tm n) (ρ : fin n -> Tm m) :
join a b ->
join (subst_Tm ρ a) (subst_Tm ρ b).