let precondition_compute () = 
  if Wp_parameters.RefVar.get () then 
    begin
      compute ();
      kernel_functions_separation_hyps ()
    end
  else ()