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

Finish sn red preservation

Browse source
This commit is contained in:
Yiyun Liu 2025-02-21 22:23:38 -05:00
parent fc0e096c04
commit 9f3b04d041
1 changed files with 12 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

14
theories/fp_red.v
View file

@ -993,9 +993,19 @@ Proof.
- hauto lq:on inv:RPar.R ctrs:RPar.R, TRedSN', TRedSN. - hauto lq:on inv:RPar.R ctrs:RPar.R, TRedSN', TRedSN.
- sauto. - sauto.
- sauto. - sauto.
- admit. - move => P a b c hP ihP ha iha hb ihb hc ihc u.
elim /RPar.inv => //=_.
+ move => P0 P1 a0 a1 b0 b1 c0 c1 hP' ha' hb' hc' [*]. subst.
eexists. split; first by apply T_Refl.
apply RPar.morphing=>//. hauto lq:on ctrs:RPar.R inv:option.
+ move => P0 P1 a0 a1 b0 b1 c0 c1 hP' ha' hb' hc' [*]. subst.
elim /RPar.inv : ha' => //=_.
move => a0 a2 ha' [*]. subst.
eexists. split. apply T_Once.
apply N_IndSuc; eauto.
hauto q:on use:RPar.morphing ctrs:RPar.R inv:option.
- sauto q:on. - sauto q:on.
Admitted. Qed.
Module RReds. Module RReds.