Mina_wire_types.Consensusinclude module type of Consensus_proof_of_stakemodule Types : sig ... endmodule type Concrete = sig ... endmodule type Local_sig = Utils.Signature(Types).Smodule Make
(Signature : Local_sig)
(_ : functor (A : Concrete) -> Signature(A).S) :
Signature(M).Sinclude Types.S
with module Body_reference = M.Body_reference
and module Data = M.Datamodule Body_reference = M.Body_referencemodule Data = M.Data