module Main;

import M open;
import M open;

type Bool :=
  | true
  | false;

instance
boolI : T Bool := mkT λ{x := x};

main : Bool := case T.pp unit of unit := T.pp true;