diff options
| author |  Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2015-10-14 12:01:38 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2015-10-14 15:55:06 +0200 |
| commit | 36f669f769fa23eb897adfa0450875a3c0db3476 (patch) | |
| tree | a9ff788fcf6bd5c9cdb3ad8ff4c1b998470fc945 /plugins/firstorder | |
| parent | 4b8155591be6e20505ee25f7199edcf44a638c7e (diff) | |
Exporting the original unprocessed hint in the hint running function.
Diffstat (limited to 'plugins/firstorder')
| -rw-r--r-- | plugins/firstorder/sequent.ml | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/plugins/firstorder/sequent.ml b/plugins/firstorder/sequent.ml index 96c4eb01e..a77af03dc 100644 --- a/plugins/firstorder/sequent.ml +++ b/plugins/firstorder/sequent.ml @@ -212,6 +212,7 @@ let extend_with_auto_hints l seq gl= match repr_hint p_a_t.code with Res_pf (c,_) | Give_exact (c,_) | Res_pf_THEN_trivial_fail (c,_) -> + let (c, _, _) = c in (try let gr = global_of_constr c in let typ=(pf_unsafe_type_of gl c) in |