sig val d : Types.type_defs val i : Types.i_env end