functor (X : sig val value : Slap_S.num_type array array end-> CNTMAT