diff options
| author | Pierre-Marie Pédrot | 2020-06-08 18:57:25 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2020-06-19 16:02:25 +0200 |
| commit | 9eca7cca68dc82aa738a8d408d75e1b9b5405646 (patch) | |
| tree | 7e9496e472278ae7f0fca5bcdf69e4e4b4809826 /plugins | |
| parent | 437f86aaa55bbae99742b600bb52a234d75667e5 (diff) | |
Wrap the content of full hints into a record.
Diffstat (limited to 'plugins')
| -rw-r--r-- | plugins/firstorder/sequent.ml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/plugins/firstorder/sequent.ml b/plugins/firstorder/sequent.ml index e365151079..db3631daa4 100644 --- a/plugins/firstorder/sequent.ml +++ b/plugins/firstorder/sequent.ml @@ -206,9 +206,9 @@ open Hints let extend_with_auto_hints env sigma l seq = let f (seq,sigma) p_a_t = match FullHint.repr p_a_t with - | Res_pf (c,_) | Give_exact (c,_) - | Res_pf_THEN_trivial_fail (c,_) -> - let (c, _, _) = c in + | Res_pf c | Give_exact c + | Res_pf_THEN_trivial_fail c -> + let c = c.hint_term in (match EConstr.destRef sigma c with | exception Constr.DestKO -> seq, sigma | gr, _ -> |