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

Prove termination

Browse source
This commit is contained in:
Yiyun Liu 2025-03-06 15:39:27 -05:00
parent b29d567ef0
commit 96b3139726
4 changed files with 266 additions and 16 deletions
Download patch file Download diff file Expand all files Collapse all files

6
theories/algorithmic.v
View file

@ -1050,6 +1050,12 @@ Proof.
Qed.
Lemma hreds_nf_refl a b :
HRed.nf a ->
rtc HRed.R a b ->
a = b.
Proof. inversion 2; sfirstorder. Qed.
Lemma lored_nsteps_app_cong k (a0 a1 b : PTm) :
nsteps LoRed.R k a0 a1 ->
ishne a0 ->