inductive Foo : Type
  | mk : 0 = 1 → Foo → Foo