feat(builtin/basic): add TypeM alias

Signed-off-by: Leonardo de Moura <leonardo@microsoft.com>

src/builtin/basic.lean

@@ -1,5 +1,7 @@
 Import macros
+
 Definition TypeU := (Type U)
+Definition TypeM := (Type M)
 
 Definition SubstP {A : TypeU} {a b : A} (P : A → Bool) (H1 : P a) (H2 : a == b) : P b
 := Subst H1 H2.

tests/lean/cast4.lean

@@ -1,8 +1,6 @@
 Import cast
 SetOption pp::colors false
 
-Definition TypeM := (Type M)
-
 Check fun (A A': TypeM)
           (B   : A -> TypeM)
           (B'  : A' -> TypeM)

tests/lean/cast4.lean.expected.out

@@ -2,7 +2,6 @@
   Set: pp::unicode
   Imported 'cast'
   Set: pp::colors
-  Defined: TypeM
 λ (A A' : TypeM)
   (B : A → TypeM)
   (B' : A' → TypeM)

tests/lean/norm_bug1.lean

@@ -1,8 +1,6 @@
 Import cast
 SetOption pp::colors false
 
-Definition TypeM := (Type M)
-
 Check fun (A A': TypeM)
           (a   : A)
           (b   : A')

tests/lean/norm_bug1.lean.expected.out

@@ -2,7 +2,6 @@
   Set: pp::unicode
   Imported 'cast'
   Set: pp::colors
-  Defined: TypeM
 λ (A A' : TypeM) (a : A) (b : A') (L2 : A' == A), let b' : A := cast L2 b, L3 : b == b' := CastEq L2 b in L3 :
     Π (A A' : TypeM) (a : A) (b : A') (L2 : A' == A), b == cast L2 b
 λ (A A' : TypeM)

tests/lean/type_inf_bug1.lean

@@ -1,8 +1,6 @@
 Import cast
 SetOption pp::colors false
 
-Definition TypeM := (Type M)
-
 Check fun (A A': TypeM)
           (a   : A)
           (b   : A')

tests/lean/type_inf_bug1.lean.expected.out

@@ -2,7 +2,6 @@
   Set: pp::unicode
   Imported 'cast'
   Set: pp::colors
-  Defined: TypeM
 λ (A A' : TypeM) (a : A) (b : A') (L2 : A' == A), let b' : A := cast L2 b, L3 : b == b' := CastEq L2 b in L3 :
     Π (A A' : TypeM) (a : A) (b : A') (L2 : A' == A), b == cast L2 b
 λ (A A' : TypeM)