diff options
| author | letouzey | 2013-10-23 22:17:07 +0000 |
|---|---|---|
| committer | letouzey | 2013-10-23 22:17:07 +0000 |
| commit | 5e6145c871eea1e94566b252b4bfc4cd752f42d5 (patch) | |
| tree | 97dfa98357cb0cf90bf06c9d470e6788de84c3b1 /proofs | |
| parent | 9b56e832ef591379dd1f2b29fe7d88513f7caf50 (diff) | |
cList: set-as-list functions are now with an explicit comparison
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16920 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'proofs')
| -rw-r--r-- | proofs/clenv.ml | 2 | ||||
| -rw-r--r-- | proofs/refiner.ml | 5 |
2 files changed, 5 insertions, 2 deletions
diff --git a/proofs/clenv.ml b/proofs/clenv.ml index b75c675297..0df882b2b3 100644 --- a/proofs/clenv.ml +++ b/proofs/clenv.ml @@ -379,7 +379,7 @@ let clenv_independent clenv = List.filter (fun mv -> not (Metaset.mem mv deps)) mvs let check_bindings bl = - match List.duplicates (List.map pi2 bl) with + match List.duplicates Pervasives.(=) (List.map pi2 bl) with (* FIXME *) | NamedHyp s :: _ -> errorlabstrm "" (str "The variable " ++ pr_id s ++ 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 = |