diff options
| author |  Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2015-09-25 14:19:25 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2015-09-25 14:19:25 +0200 |
| commit | ccd23fa241ab11477b2fec48ba5262206a1134d5 (patch) | |
| tree | d864a4ad99f869b03c2c08650029e03fa1400c32 /proofs/proof_global.ml | |
| parent | 8a031dc29abf1e16b2ee78322a7221b8b5c19a33 (diff) | |
| parent | 8e25e107a8715728a7227934d7b11035863ee5f0 (diff) | |
Merge branch 'v8.5'
Diffstat (limited to 'proofs/proof_global.ml')
| -rw-r--r-- | proofs/proof_global.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/proofs/proof_global.ml b/proofs/proof_global.ml index 10e7b758d..21009d120 100644 --- a/proofs/proof_global.ml +++ b/proofs/proof_global.ml @@ -344,7 +344,7 @@ type closed_proof_output = (Term.constr * Declareops.side_effects) list * Evd.ev let return_proof ?(allow_partial=false) () = let { pid; proof; strength = (_,poly,_) } = cur_pstate () in if allow_partial then begin - if Proof.is_done proof then begin + if Proof.is_complete proof then begin msg_warning (str"The proof of " ++ str (Names.Id.to_string pid) ++ str" is complete, no need to end it with Admitted"); end; |