match l with
[ label_d n ā
match q with
- [ list_empty ā š±((f n)ļ¼ ā§£āØnā©)ā(unwind_gen f q)
+ [ list_empty ā š±(fļ¼ ā§£āØnā©)ā(unwind_gen f q)
| list_lcons _ _ ā unwind_gen f q
]
| label_m ā unwind_gen f q
// qed.
lemma unwind_gen_d_empty (f) (n):
- š±((f n)ļ¼ ā§£āØnā©)āš = ā[f](š±nāš).
+ š±(fļ¼ ā§£āØnā©)āš = ā[f](š±nāš).
// qed.
lemma unwind_gen_d_lcons (f) (p) (l) (n):