diff options
Diffstat (limited to 'proofs')
| -rw-r--r-- | proofs/logic.ml | 7 | ||||
| -rw-r--r-- | proofs/logic.mli | 7 |
2 files changed, 12 insertions, 2 deletions
diff --git a/proofs/logic.ml b/proofs/logic.ml index 8021f336ec..58fb8490e2 100644 --- a/proofs/logic.ml +++ b/proofs/logic.ml @@ -21,14 +21,19 @@ open Retyping open Evarutil type refiner_error = + + (* Errors raised by the refiner *) | BadType of constr * constr * constr | OccurMeta of constr | CannotApply of constr * constr + | NotWellTyped of constr + + (* Errors raised by the tactics *) | CannotUnify of constr * constr | CannotGeneralize of constr - | NotWellTyped of constr | BadTacticArgs of string * tactic_arg list | IntroNeedsProduct + | DoesNotOccurIn of constr * identifier exception RefinerError of refiner_error diff --git a/proofs/logic.mli b/proofs/logic.mli index eade902bab..1038b5c0d1 100644 --- a/proofs/logic.mli +++ b/proofs/logic.mli @@ -36,14 +36,19 @@ val prim_extractor : (*s Refiner errors. *) type refiner_error = + + (*i Errors raised by the refiner i*) | BadType of constr * constr * constr | OccurMeta of constr | CannotApply of constr * constr + | NotWellTyped of constr + + (*i Errors raised by the tactics i*) | CannotUnify of constr * constr | CannotGeneralize of constr - | NotWellTyped of constr | BadTacticArgs of string * tactic_arg list | IntroNeedsProduct + | DoesNotOccurIn of constr * identifier exception RefinerError of refiner_error |