blob: 3d262b89fe5db2376b02b6289a40e9db142fa2b2 (
plain)
1
2
3
4
5
6
7
8
|
Inductive SwitchT (A : Type) : Type :=
| switchT : forall T, SwitchT T -> SwitchT A.
Set Printing Universes.
Fail Inductive UseSwitchT :=
| useSwitchT : SwitchT UseSwitchT -> UseSwitchT.
(* used to stack overflow, should be univ inconsistency cannot satisfy u = u+1 *)
|
