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

Add E_AppEta

Browse source
This commit is contained in:
Yiyun Liu 2025-04-18 16:38:34 -04:00
parent 43daff1b27
commit 2b92845e3e
3 changed files with 114 additions and 61 deletions
Download patch file Download diff file Expand all files Collapse all files

3
theories/algorithmic.v
View file

@ -586,7 +586,8 @@ Proof.
have [h2 h3] : Γ ⊢ A2 ≲ A0 /\ Γ ⊢ A2 ≲ A1 by hauto l:on use:Su_Pi_Proj1.
apply E_Conv with (A := PBind PPi A2 B2); cycle 1.
eauto using E_Symmetric, Su_Eq.
apply : E_Abs; eauto. hauto l:on use:regularity.
apply : E_Abs; eauto.
apply iha.
move /Su_Pi_Proj2_Var in hp0.
apply : T_Conv; eauto.