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

Finish preservation

Browse source
This commit is contained in:
Yiyun Liu 2025-02-25 22:35:59 -05:00
parent bb39f157ba
commit 687d1be03f
6 changed files with 74 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

2
theories/structural.v
View file

@ -507,6 +507,7 @@ Proof.
move /(_ _ Ξ (up_PTm_PTm (up_PTm_PTm ξ)) hΞ) : ihc.
move /(_ ltac:(qauto l:on use:morphing_up)).
asimpl. substify. by asimpl.
- eauto with wt.
- qauto l:on ctrs:Eq, LEq.
- move => n Γ a b A B i hP ihP hb ihb ha iha m Δ ρ hΔ hρ.
move : ihP (hρ) (hΔ). repeat move/[apply].
@ -734,6 +735,7 @@ Proof.
by eauto using Su_Sig_Proj2.
sauto lq:on use:substing_wt.
- hauto lq:on ctrs:Wt.
- hauto lq:on ctrs:Wt.
- hauto q:on use:substing_wt db:wt.
- hauto l:on use:bind_inst db:wt.
- move => n Γ P i b c hP _ hb _ hc _.