diff options
| author | Hugo Herbelin | 2020-06-21 22:54:05 +0200 |
|---|---|---|
| committer | Hugo Herbelin | 2020-06-21 22:54:05 +0200 |
| commit | 95dc2953c8b4e685c5e9f01b5baca8964ff158d6 (patch) | |
| tree | 9edb477e996c3848c09f259253a6c18418af8922 /plugins/firstorder/sequent.ml | |
| parent | 3f8629c6e4897afbd9a103728dbc8b8a67a51622 (diff) | |
| parent | 1d64f9d3ba9c529f2ff14198c94c9ffb3128afd1 (diff) | |
Merge PR #12505: Cleanup the Hints API
Reviewed-by: herbelin
Diffstat (limited to 'plugins/firstorder/sequent.ml')
| -rw-r--r-- | plugins/firstorder/sequent.ml | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/plugins/firstorder/sequent.ml b/plugins/firstorder/sequent.ml index 3dd5059e5d..db3631daa4 100644 --- a/plugins/firstorder/sequent.ml +++ b/plugins/firstorder/sequent.ml @@ -205,10 +205,10 @@ open Hints let extend_with_auto_hints env sigma l seq = let f (seq,sigma) p_a_t = - match repr_hint p_a_t.code with - | Res_pf (c,_) | Give_exact (c,_) - | Res_pf_THEN_trivial_fail (c,_) -> - let (c, _, _) = c in + match FullHint.repr p_a_t with + | 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, _ -> |