diff options
Diffstat (limited to 'proofs/refiner.ml')
| -rw-r--r-- | proofs/refiner.ml | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/proofs/refiner.ml b/proofs/refiner.ml index 66e251d55c..583fcf5534 100644 --- a/proofs/refiner.ml +++ b/proofs/refiner.ml @@ -200,7 +200,10 @@ let tclSHOWHYPS (tac : tactic) (goal: Goal.goal Evd.sigma) let hyps:Context.named_context list = List.map (fun gl -> pf_hyps { it = gl; sigma=sigma; }) gls in let newhyps = - List.map (fun hypl -> List.subtract hypl oldhyps) hyps in + List.map + (fun hypl -> List.subtract Context.eq_named_declaration hypl oldhyps) + hyps + in let emacs_str s = if !Flags.print_emacs then s else "" in let s = |