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