]> matita.cs.unibo.it Git - helm.git/blobdiff - matita/matita/contribs/lambdadelta/basic_1/app/defs.ma
update in basic_2
[helm.git] / matita / matita / contribs / lambdadelta / basic_1 / app / defs.ma
index 40efddbbdd9441a7e2600ca273e29c97472c60b9..32ec12f51a2bf84d34a7e3a725af7136e65c3891 100644 (file)
 
 include "basic_1/C/defs.ma".
 
-let rec cbk (c: C) on c: nat \def match c with [(CSort m) \Rightarrow m | 
-(CHead c0 _ _) \Rightarrow (cbk c0)].
+rec definition cbk (c: C) on c: nat \def match c with [(CSort m) \Rightarrow 
+m | (CHead c0 _ _) \Rightarrow (cbk c0)].
 
-let rec app1 (c: C) on c: T \to T \def \lambda (t: T).(match c with [(CSort 
-_) \Rightarrow t | (CHead c0 k u) \Rightarrow (app1 c0 (THead k u t))]).
+rec definition app1 (c: C) on c: T \to T \def \lambda (t: T).(match c with 
+[(CSort _) \Rightarrow t | (CHead c0 k u) \Rightarrow (app1 c0 (THead k u 
+t))]).