diff options
Diffstat (limited to 'plugins/fourier')
| -rw-r--r-- | plugins/fourier/fourierR.ml | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/plugins/fourier/fourierR.ml b/plugins/fourier/fourierR.ml index dbb5cc2de7..f9802ee5e1 100644 --- a/plugins/fourier/fourierR.ml +++ b/plugins/fourier/fourierR.ml @@ -471,6 +471,7 @@ let rec fourier () = let sigma = Tacmach.New.project gl in Coqlib.check_required_library ["Coq";"fourier";"Fourier"]; let goal = Termops.strip_outer_cast sigma (EConstr.of_constr concl) in + let goal = EConstr.Unsafe.to_constr goal in let fhyp=Id.of_string "new_hyp_for_fourier" in (* si le but est une inéquation, on introduit son contraire, et le but à prouver devient False *) |