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

Minor

Browse source
This commit is contained in:
Yiyun Liu 2025-03-03 16:01:28 -05:00
parent 3e8ad2c5bc
commit 3a17548a7d
1 changed files with 6 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

12
theories/algorithmic.v
View file

@ -1296,18 +1296,18 @@ Lemma coqeq_complete' k (a b : PTm ) :
Proof. Proof.
move : k a b. move : k a b.
elim /Wf_nat.lt_wf_ind. elim /Wf_nat.lt_wf_ind.
move => k ih. move => n ih.
move => a b /[dup] h /algo_metric_case. move : k a b h => [:hstepL]. move => a b /[dup] h /algo_metric_case. move : a b h => [:hstepL].
move => k a b h. move => a b h.
(* Cases where a and b can take steps *) (* Cases where a and b can take steps *)
case; cycle 1. case; cycle 1.
move : k a b h. move : ih a b h.
abstract : hstepL. qauto l:on use:HRed.preservation, CE_HRedL, hred_hne. abstract : hstepL. qauto l:on use:HRed.preservation, CE_HRedL, hred_hne.
move /algo_metric_sym /algo_metric_case : (h). move /algo_metric_sym /algo_metric_case : (h).
case; cycle 1. case; cycle 1.
move {ih}. move /algo_metric_sym : h. move {ih}. move /algo_metric_sym : h.
move : hstepL => /[apply]. move : hstepL; repeat move /[apply].
hauto lq:on use:coqeq_symmetric_mutual, algo_metric_sym. best use:coqeq_symmetric_mutual, algo_metric_sym.
(* Cases where a and b can't take wh steps *) (* Cases where a and b can't take wh steps *)
move {hstepL}. move {hstepL}.
move : k a b h. move => [:hnfneu]. move : k a b h. move => [:hnfneu].