module Fct_user_crit:Datatype.Make(siginclude Datatype.Undefinedtypet =SlicingInternals.fct_user_critval reprs :SlicingInternals.fct_user_crit listval name :stringval mem_project :(Project_skeleton.t -> bool) -> 'a -> boolval varname :'a -> stringend)
include Datatype.S_no_copy
val copy : Datatype.t -> Datatype.tx and copy x.