diff options
author | Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2017-06-25 15:51:47 +0200 |
---|---|---|
committer | Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2017-06-25 17:55:30 +0200 |
commit | 7446e3e1555c0f41373b71b92a3f01f060e8e0e0 (patch) | |
tree | 2dd9c2d2d6fd6421b8d2ac161e169c7c02813617 /proofs | |
parent | 748fe5960e29a2c80c35b83bb6edfdd0b55bf5e5 (diff) |
Exporting general-purpose functions on goal contexts from "logic.ml" to "tactics.ml".
This is in preparation of move of "assert" from old to new proof engine.
Diffstat (limited to 'proofs')
-rw-r--r-- | proofs/logic.ml | 4 | ||||
-rw-r--r-- | proofs/logic.mli | 6 |
2 files changed, 10 insertions, 0 deletions
diff --git a/proofs/logic.ml b/proofs/logic.ml index 6af1b2d83..0621af4e8 100644 --- a/proofs/logic.ml +++ b/proofs/logic.ml @@ -282,6 +282,10 @@ let move_hyp_in_named_context sigma hfrom hto sign = split_sign hfrom hto (named_context_of_val sign) in move_hyp sigma toleft (left,declfrom,right) hto +let insert_decl_in_named_context sigma decl hto sign = + let open EConstr in + move_hyp sigma false ([],decl,named_context_of_val sign) hto + (**********************************************************************) diff --git a/proofs/logic.mli b/proofs/logic.mli index f98248e4d..8dd29bc17 100644 --- a/proofs/logic.mli +++ b/proofs/logic.mli @@ -52,6 +52,8 @@ type refiner_error = exception RefinerError of refiner_error +val error_no_such_hypothesis : Id.t -> 'a + val catchable_exception : exn -> bool val convert_hyp : bool -> Environ.named_context_val -> evar_map -> @@ -59,3 +61,7 @@ val convert_hyp : bool -> Environ.named_context_val -> evar_map -> val move_hyp_in_named_context : Evd.evar_map -> Id.t -> Id.t Misctypes.move_location -> Environ.named_context_val -> Environ.named_context_val + +val insert_decl_in_named_context : Evd.evar_map -> + EConstr.named_declaration -> Id.t Misctypes.move_location -> + Environ.named_context_val -> Environ.named_context_val |