]> matita.cs.unibo.it Git - helm.git/blobdiff - matita/matita/contribs/lambdadelta/basic_1/aplus/defs.ma
legacy_1, ground_1, and basic_1 recommitted without anticipation
[helm.git] / matita / matita / contribs / lambdadelta / basic_1 / aplus / defs.ma
index 08c752cb8718616cf5308be1fa6f7e17f3acc888..c26b3c28656754bb6898772e31b1c451ebf19620 100644 (file)
@@ -17,5 +17,5 @@
 include "basic_1/asucc/defs.ma".
 
 let rec aplus (g: G) (a: A) (n: nat) on n: A \def match n with [O \Rightarrow 
-a | (S n0) \Rightarrow (let TMP_1 \def (aplus g a n0) in (asucc g TMP_1))].
+a | (S n0) \Rightarrow (asucc g (aplus g a n0))].