Make
module W : sig ... end
exception NonNaturalLoop of Frama_c_kernel.Fileloc.t
val compute : mode:mode -> props:props -> W.t_prop