module Cvalue_transfer:sig..end
typevalue =Main_values.CVal.t
typelocation =Main_locations.PLoc.location
module Transfer:functor (Valuation:Abstract_domain.Valuationwith type value = value and type origin = bool and type loc = location) ->sig..end