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

Fix the correctness proof

Browse source
This commit is contained in:
Yiyun Liu 2025-03-04 22:30:21 -05:00
parent a23be7f9b5
commit 68cc482479
1 changed files with 2 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

5
theories/executable_correct.v
View file

@ -72,7 +72,7 @@ Qed.
Lemma check_equal_nfnf a b dom : check_equal_r a b (A_NfNf a b dom) = check_equal a b dom.
Proof.
have [h0 h1] : (ishf a \/ ishne a) /\ (ishf b \/ ishne b) by hauto l:on use:algo_dom_hf_hne.
have [h0 h1] : HRed.nf a /\ HRed.nf b by hauto l:on use:algo_dom_no_hred.
have [h3 h4] : hred a = None /\ hred b = None by sfirstorder use:hf_no_hred, hne_no_hred, hred_none.
simp check_equal.
destruct (fancy_hred a).
@ -249,9 +249,8 @@ Proof.
rewrite check_equal_nfnf.
move : ih => /[apply].
move => + h0.
move /algo_dom_hf_hne in h.
have {h} [? ?] : HRed.nf a /\ HRed.nf b by sfirstorder use:algo_dom_no_hred.
inversion h0; subst.
have {h} [? ?] : HRed.nf a /\ HRed.nf b by sfirstorder use:hf_no_hred, hne_no_hred.
hauto l:on use:hreds_nf_refl.
- move => a a' b h dom.
simp ce_prop => /[apply].