Module Memory_domains.With_focusing
module TypedC = Types.TypedCmodule type BASE_WITH_TYPES = sig ... endmodule type S = sig ... endmodule type S_with_types = sig ... endmodule Make_with_types
(D : BASE_WITH_TYPES) :
S_with_types with module Context = D.Context and type boolean = D.boolean