module Inductive; type T := t : T;