functor (X : sig val value : Slap_D.num_type list list end-> CNTMAT