Module type Type_generic_intf.M.S4

module type S4 = sig .. end

type ('a, 'b, 'c, 'd) t 
include Typerepable.S4
val compute : 'a X.t ->
'b X.t -> 'c X.t -> 'd X.t -> ('a, 'b, 'c, 'd) t X.t