diff options
| author |  letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2010-03-30 14:33:54 +0000 |
|---|---|---|
| committer | letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2010-03-30 14:33:54 +0000 |
| commit | f986fba6cfdbf923884da5fba4443964b0e725d5 (patch) | |
| tree | 06172cff24489885801331290bd6b7ee9c3aa428 /plugins/micromega/certificate.ml | |
| parent | 6cbbf1f3cb363256a27d6d8d20684a4510768464 (diff) | |
Manual qualification of Mfourier.Proof in micromega to avoid ocamldep using ide/proof
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@12892 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'plugins/micromega/certificate.ml')
| -rw-r--r-- | plugins/micromega/certificate.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/plugins/micromega/certificate.ml b/plugins/micromega/certificate.ml index c5760229c..7ddcf35d3 100644 --- a/plugins/micromega/certificate.ml +++ b/plugins/micromega/certificate.ml @@ -486,7 +486,7 @@ let raw_certificate l = match Fourier.find_point p with | Inr prf -> if debug then Printf.printf "AProof : %a\n" pp_proof prf ; - let cert = List.map (fun (x,n) -> x+1,n) (fst (List.hd (Proof.mk_proof p prf))) in + let cert = List.map (fun (x,n) -> x+1,n) (fst (List.hd (Mfourier.Proof.mk_proof p prf))) in if debug then Printf.printf "CProof : %a" Vect.pp_vect cert ; Some (rats_to_ints (Vect.to_list cert)) | Inl _ -> None |