diff options
| author |  Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2016-09-27 11:05:09 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2016-09-27 11:05:09 +0200 |
| commit | 0b218382841f56408558a09bc7de823319ac8772 (patch) | |
| tree | 4b8ca470afc28a66354519819ab644f6dfe51669 /proofs/logic.ml | |
| parent | a52d06ea16cff00faa7d2f63ad5c1ca0b58e64b4 (diff) | |
| parent | 8042a9078cb8ee8736593356d1a09311c8eeff2f (diff) | |
Merge branch 'v8.6'
Diffstat (limited to 'proofs/logic.ml')
| -rw-r--r-- | proofs/logic.ml | 14 |
1 files changed, 5 insertions, 9 deletions
diff --git a/proofs/logic.ml b/proofs/logic.ml index 5aba6b614..d23a4ad61 100644 --- a/proofs/logic.ml +++ b/proofs/logic.ml @@ -278,6 +278,11 @@ let move_hyp toleft (left,declfrom,right) hto = List.fold_left (fun sign d -> push_named_context_val d sign) right left +let move_hyp_in_named_context hfrom hto sign = + let (left,right,declfrom,toleft) = + split_sign hfrom hto (named_context_of_val sign) in + move_hyp toleft (left,declfrom,right) hto + (**********************************************************************) @@ -552,12 +557,3 @@ let prim_refiner r sigma goal = let sgl = List.rev sgl in let sigma = Goal.V82.partial_solution sigma goal oterm in (sgl, sigma) - - | Move (hfrom, hto) -> - let (left,right,declfrom,toleft) = - split_sign hfrom hto (named_context_of_val sign) in - let hyps' = - move_hyp toleft (left,declfrom,right) hto in - let (gl,ev,sigma) = mk_goal hyps' cl in - let sigma = Goal.V82.partial_solution_to sigma goal gl ev in - ([gl], sigma) |