diff options
author | Maxime Dénès <mail@maximedenes.fr> | 2017-12-14 00:06:02 +0100 |
---|---|---|
committer | Maxime Dénès <mail@maximedenes.fr> | 2017-12-14 00:06:02 +0100 |
commit | 290abf59e6f13bb1468d8e3df050cf0bd9c48708 (patch) | |
tree | a61d3dce0bd34372b48668f44d280b5d886e2994 /engine | |
parent | 7576ffd4eb196d5d5a15f6cacb2ba5cba00576ef (diff) | |
parent | f5cb7eb3e68e4b7d1bb5eeb8d9c58666201945d4 (diff) |
Merge PR #6038: [build] Remove coqmktop in favor of ocamlfind.
Diffstat (limited to 'engine')
-rw-r--r-- | engine/uState.ml | 4 | ||||
-rw-r--r-- | engine/universes.ml | 4 |
2 files changed, 4 insertions, 4 deletions
diff --git a/engine/uState.ml b/engine/uState.ml index 6566ad989..6131f4c03 100644 --- a/engine/uState.ml +++ b/engine/uState.ml @@ -240,8 +240,8 @@ let add_constraints ctx cstrs = uctx_univ_variables = vars; uctx_universes = UGraph.merge_constraints local' ctx.uctx_universes } -(* let addconstrkey = Profile.declare_profile "add_constraints_context";; *) -(* let add_constraints_context = Profile.profile2 addconstrkey add_constraints_context;; *) +(* let addconstrkey = CProfile.declare_profile "add_constraints_context";; *) +(* let add_constraints_context = CProfile.profile2 addconstrkey add_constraints_context;; *) let add_universe_constraints ctx cstrs = let univs, local = ctx.uctx_local in diff --git a/engine/universes.ml b/engine/universes.ml index 0250295fd..30490ec56 100644 --- a/engine/universes.ml +++ b/engine/universes.ml @@ -946,8 +946,8 @@ let normalize_context_set ctx us algs = let us = normalize_opt_subst us in (us, algs), (ctx', Constraint.union noneqs eqs) -(* let normalize_conkey = Profile.declare_profile "normalize_context_set" *) -(* let normalize_context_set a b c = Profile.profile3 normalize_conkey normalize_context_set a b c *) +(* let normalize_conkey = CProfile.declare_profile "normalize_context_set" *) +(* let normalize_context_set a b c = CProfile.profile3 normalize_conkey normalize_context_set a b c *) let is_trivial_leq (l,d,r) = Univ.Level.is_prop l && (d == Univ.Le || (d == Univ.Lt && Univ.Level.is_set r)) |