diff options
| author | Gaëtan Gilbert | 2019-07-09 12:50:27 +0200 |
|---|---|---|
| committer | Gaëtan Gilbert | 2019-07-09 12:50:27 +0200 |
| commit | 35d8ca72adcc3ce04cb2919c4a2d60ea0c73d24c (patch) | |
| tree | cd44fa1b1b9e70f73b19d0616499b63016419db9 /tactics | |
| parent | 7f366a7c7cd154c6a1dd191ff7f453e63b39a948 (diff) | |
| parent | dda7d129dba6c90d642cd99cd989e5f13c0eb4b4 (diff) | |
Merge PR #10471: [core] [api] Support OCaml 4.08
Reviewed-by: SkySkimmer
Ack-by: Zimmi48
Diffstat (limited to 'tactics')
| -rw-r--r-- | tactics/btermdn.ml | 2 | ||||
| -rw-r--r-- | tactics/class_tactics.ml | 2 | ||||
| -rw-r--r-- | tactics/redops.ml | 2 |
3 files changed, 3 insertions, 3 deletions
diff --git a/tactics/btermdn.ml b/tactics/btermdn.ml index a476381b17..70819e9550 100644 --- a/tactics/btermdn.ml +++ b/tactics/btermdn.ml @@ -29,7 +29,7 @@ type term_label = let compare_term_label t1 t2 = match t1, t2 with | GRLabel gr1, GRLabel gr2 -> GlobRef.Ordered.compare gr1 gr2 -| _ -> Pervasives.compare t1 t2 (** OK *) +| _ -> pervasives_compare t1 t2 (** OK *) type 'res lookup_res = 'res Dn.lookup_res = Label of 'res | Nothing | Everything diff --git a/tactics/class_tactics.ml b/tactics/class_tactics.ml index 303ddacb67..849ea7e83f 100644 --- a/tactics/class_tactics.ml +++ b/tactics/class_tactics.ml @@ -257,7 +257,7 @@ let clenv_of_prods poly nprods (c, clenv) gl = let sigma = Tacmach.New.project gl in let ty = Retyping.get_type_of (Proofview.Goal.env gl) sigma c in let diff = nb_prod sigma ty - nprods in - if Pervasives.(>=) diff 0 then + if (>=) diff 0 then (* Was Some clenv... *) Some (Some diff, mk_clenv_from_n gl (Some diff) (c,ty)) diff --git a/tactics/redops.ml b/tactics/redops.ml index e0473cbefd..86ed8f8899 100644 --- a/tactics/redops.ml +++ b/tactics/redops.ml @@ -10,7 +10,7 @@ open Genredexpr -let union_consts l1 l2 = Util.List.union Pervasives.(=) l1 l2 (* FIXME *) +let union_consts l1 l2 = Util.List.union (=) l1 l2 (* FIXME *) let make_red_flag l = let rec add_flag red = function |