Module PolyMap.Make
Parameters
Signature
module type OneTag = sig ... endtype 'a onetag= (module OneTag with type a = 'a)There is no equality function between
_ tagvalues (other thanStdlib.(=)), and especially no equality function which shows that when the values are equal the type arguments are also equal.Instead we can use
'a onetagto recognize'b tagvalues.
val eq_onetag : 'a onetag -> 'b Tag.tag -> ('a, 'b) CSig.eq optionval make : unit -> 'a onetagval tag_of_onetag : 'a onetag -> 'a Tag.tag
module type MapS = sig ... end