]> matita.cs.unibo.it Git - helm.git/blobdiff - matita/matita/contribs/lambdadelta/basic_1/T/defs.ma
update in basic_2
[helm.git] / matita / matita / contribs / lambdadelta / basic_1 / T / defs.ma
index aad94671ceea53d271acb2649333b4f92dd1cc89..0eeff13ba685501bf50c4863113e35479e3c8b0f 100644 (file)
@@ -34,9 +34,9 @@ inductive T: Type[0] \def
 | TLRef: nat \to T
 | THead: K \to (T \to (T \to T)).
 
-let rec tweight (t: T) on t: nat \def match t with [(TSort _) \Rightarrow (S 
-O) | (TLRef _) \Rightarrow (S O) | (THead _ u t0) \Rightarrow (S (plus 
-(tweight u) (tweight t0)))].
+rec definition tweight (t: T) on t: nat \def match t with [(TSort _) 
+\Rightarrow (S O) | (TLRef _) \Rightarrow (S O) | (THead _ u t0) \Rightarrow 
+(S (plus (tweight u) (tweight t0)))].
 
 definition tle:
  T \to (T \to Prop)