14 lines
304 B
Text
14 lines
304 B
Text
import logic
|
|
namespace test
|
|
inductive lift.{l₁ l₂} (A : Type.{l₁}) : Type.{(max 1 l₁ l₂)} :=
|
|
inj : A → lift A
|
|
|
|
set_option pp.universes true
|
|
|
|
variables (A : Type.{3}) (B : Type.{1})
|
|
check A = lift.{1 3} B
|
|
|
|
universe u
|
|
variables (C : Type.{u+2}) (D : Type.{u})
|
|
check C = lift.{u u+2} D
|
|
end test
|