Sek.SupplyDefaultmodule S : sig ... endmodule D : sig ... endtype side = S.sideval front : S.sideval back : S.sidetype direction = S.directionval forward : S.directionval backward : S.directionval opposite : S.direction -> S.directionval sign : S.direction -> intval snapshot : 'a S.Ephemeral.t -> 'a S.Persistent.tval snapshot_and_clear : 'a S.Ephemeral.t -> 'a S.Persistent.tval edit : 'a S.Persistent.t -> 'a S.Ephemeral.tmodule Ephemeral : sig ... endmodule Persistent : sig ... endmodule E = Ephemeralmodule P = Persistentmodule Emulated : sig ... end