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

Add nostuck antisubstitution

Browse source
This commit is contained in:
Yiyun Liu 2025-06-19 14:10:20 -04:00
parent 7fb60e1c2f
commit c4a13daa54
2 changed files with 69 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

4
theories/fp_red.v
View file

@ -1270,7 +1270,7 @@ Module Type NoForbid.
Axiom P_PairInv : forall (a b : PTm), P (PPair a b) -> P a /\ P b.
Axiom P_ProjInv : forall p (a : PTm), P (PProj p a) -> P a.
Axiom P_renaming : forall (ξ : nat -> nat) a , P (ren_PTm ξ a) <-> P a.
Axiom P_renaming : forall (ξ : nat -> nat) a , P (ren_PTm ξ a) -> P a.
End NoForbid.
Module Type NoForbid_FactSig (M : NoForbid).
@ -1342,7 +1342,7 @@ Module SN_NoForbid <: NoForbid.
induction h; sauto lq:on rew:off.
Qed.
Lemma P_renaming : forall (ξ : nat -> nat) a , P (ren_PTm ξ a) <-> P a.
Lemma P_renaming : forall (ξ : nat -> nat) a , P (ren_PTm ξ a) -> P a.
Proof. hauto lq:on use:sn_antirenaming, sn_renaming. Qed.
Lemma P_ProjBind : forall p p' (A : PTm) B, ~ P (PProj p (PBind p' A B)).