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

Fix preservation and broken cases in logrel

Browse source
This commit is contained in:
Yiyun Liu 2025-03-03 15:29:50 -05:00
parent d68adf85f4
commit fe418c2a78
4 changed files with 33 additions and 57 deletions
Download patch file Download diff file Expand all files Collapse all files

5
theories/logrel.v
View file

@ -1583,7 +1583,7 @@ Lemma SSu_Pi Γ (A0 A1 : PTm ) B0 B1 :
cons A0 Γ ⊨ B0 ≲ B1 ->
Γ ⊨ PBind PPi A0 B0 ≲ PBind PPi A1 B1.
Proof.
move => hΓ hA hB.
move => hA hB.
have ? : SN A0 /\ SN A1 /\ SN B0 /\ SN B1
by hauto l:on use:SemLEq_SN_Sub.
apply SemLEq_SemWt in hA, hB.
@ -1592,7 +1592,6 @@ Proof.
apply : SemWt_SemLEq; last by hauto l:on use:Sub.PiCong.
hauto l:on use:ST_Bind'.
apply ST_Bind'; eauto.
have hΓ' : ⊨ (cons A1 Γ) by hauto l:on use:SemWff_cons.
move => ρ hρ.
suff : ρ_ok (cons A0 Γ) ρ by hauto l:on.
move : hρ. suff : Γ_sub' (A0 :: Γ) (A1 :: Γ)
@ -1614,8 +1613,6 @@ Proof.
apply : SemWt_SemLEq; last by hauto l:on use:Sub.SigCong.
2 : { hauto l:on use:ST_Bind'. }
apply ST_Bind'; eauto.
have hΓ' : ⊨ cons A1 Γ by hauto l:on use:SemWff_cons.
have hΓ'' : ⊨ cons A0 Γ by hauto l:on use:SemWff_cons.
move => ρ hρ.
suff : ρ_ok (cons A1 Γ) ρ by hauto l:on.
move : hρ. suff : Γ_sub' (A1 :: Γ) (A0 :: Γ) by hauto l:on.