let quantify_loop_assigns assigns p =
match assigns with
| [] -> Wp_parameters.warning "Need 'assigns' for loop @."; None
| _ ->
try
let p = quantify_assigns assigns p in
Wp_parameters.warning
"This model use loop assigns, but cannot check them...@.";
Some p
with Calculus.InvalidModel msg ->
Wp_parameters.warning "won't go out of the loop : %s@." msg;
None