test(tests/lean/run): add more universe tests

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

tests/lean/run/coe5.lean

@@ -0,0 +1,40 @@
+import standard
+
+namespace setoid
+  inductive setoid : Type :=
+  | mk_setoid: Π (A : Type'), (A → A → Bool) → setoid
+
+  set_option pp.universes true
+
+  check setoid
+  definition test : Type.{2} := setoid.{0}
+
+  definition carrier (s : setoid)
+  := setoid_rec (λ a eq, a) s
+
+  definition eqv {s : setoid} : carrier s → carrier s → Bool
+  := setoid_rec (λ a eqv, eqv) s
+
+  infix `≈`:50 := eqv
+
+  coercion carrier
+
+  inductive morphism (s1 s2 : setoid) : Type :=
+  | mk_morphism : Π (f : s1 → s2), (∀ x y, x ≈ y → f x ≈ f y) → morphism s1 s2
+
+  check mk_morphism
+  check λ (s1 s2 : setoid), s1
+  check λ (s1 s2 : Type), s1
+
+  inductive morphism2 (s1 : setoid) (s2 : setoid) : Type :=
+  | mk_morphism2 : Π (f : s1 → s2), (∀ x y, x ≈ y → f x ≈ f y) → morphism2 s1 s2
+
+  check morphism2
+  check mk_morphism2
+
+  inductive my_struct : Type :=
+  | mk_foo : Π (s1 s2 : setoid) (s3 s4 : setoid), morphism2 s1 s2 → morphism2 s3 s4 → my_struct
+
+  check my_struct
+  definition tst2 : Type.{4} := my_struct.{1 2}
+end

tests/lean/run/id.lean

@@ -0,0 +1,12 @@
+import standard
+definition id {A : Type} (a : A) := a
+check id id
+set_option pp.universes true
+check id id
+check id Bool
+check id num.num
+check @id.{0}
+check @id.{1}
+check id num.zero
+check @eq
+check eq eq