module InductivePipes;

  type T := | t : T;
  type T2 :=
  | t1 : T2
  | t2 : T2
  | t3 : T2;
  
end ;