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