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

Update the correctness proof of the computable function

Browse source
This commit is contained in:
Yiyun Liu 2025-03-04 23:48:42 -05:00
parent c1ff0ae145
commit c4f01d7dfc
2 changed files with 29 additions and 19 deletions
Download patch file Download diff file Expand all files Collapse all files

4
theories/executable.v
View file

@ -477,6 +477,10 @@ Proof.
sfirstorder use:hne_no_hred, hf_no_hred.
Qed.
Lemma check_equal_univ i j :
check_equal (PUniv i) (PUniv j) (A_UnivCong i j) = nat_eqdec i j.
Proof. reflexivity. Qed.
Lemma check_equal_conf a b nfa nfb nfab :
check_equal a b (A_Conf a b nfa nfb nfab) = false.
Proof. destruct a; destruct b => //=. Qed.