]> matita.cs.unibo.it Git - helm.git/blobdiff - matita/matita/contribs/lambdadelta/delayed_updating/unwind/unwind_gen.ma
update in delayed_updating
[helm.git] / matita / matita / contribs / lambdadelta / delayed_updating / unwind / unwind_gen.ma
index 6eb8b3ae87e3cf5c8e0faa207a7deab416955ec3..0ea3ab8accc947118c465de040666db786ceb112 100644 (file)
@@ -25,7 +25,7 @@ match p with
   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
@@ -46,7 +46,7 @@ lemma unwind_gen_empty (f):
 // 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):