diff options
Diffstat (limited to 'contrib/first-order')
| -rw-r--r-- | contrib/first-order/rules.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/contrib/first-order/rules.ml b/contrib/first-order/rules.ml index bc4699ea19..a181851680 100644 --- a/contrib/first-order/rules.ml +++ b/contrib/first-order/rules.ml @@ -211,6 +211,6 @@ let normalize_evaluables= onAllClauses (function None->unfold_in_concl (Lazy.force defined_connectives) - | Some (id,_,_)-> + | Some ((_,id),_)-> unfold_in_hyp (Lazy.force defined_connectives) - (id,[],Tacexpr.InHypTypeOnly)) + (([],id),Tacexpr.InHypTypeOnly)) |