aboutsummaryrefslogtreecommitdiff
path: root/pretyping/typeclasses.ml
diff options
context:
space:
mode:
authorJason Gross2014-08-12 11:03:05 -0400
committerPierre Boutillier2014-08-25 15:22:40 +0200
commit876b1b39a0304c93c2511ca8dd34353413e91c9d (patch)
tree348c5630f0b35edf53fe4010587b61e615df03af /pretyping/typeclasses.ml
parenta061b4d11fc681182b5bb946aa84d17d0b812225 (diff)
instanciation is French, instantiation is English
Diffstat (limited to 'pretyping/typeclasses.ml')
-rw-r--r--pretyping/typeclasses.ml8
1 files changed, 4 insertions, 4 deletions
diff --git a/pretyping/typeclasses.ml b/pretyping/typeclasses.ml
index 67189e22d7..b9c2bd1bb3 100644
--- a/pretyping/typeclasses.ml
+++ b/pretyping/typeclasses.ml
@@ -32,10 +32,10 @@ let set_typeclass_transparency gr local c = Hook.get set_typeclass_transparency
let (classes_transparent_state, classes_transparent_state_hook) = Hook.make ()
let classes_transparent_state () = Hook.get classes_transparent_state ()
-let solve_instanciation_problem = ref (fun _ _ _ -> assert false)
+let solve_instantiation_problem = ref (fun _ _ _ -> assert false)
let resolve_one_typeclass env evm t =
- !solve_instanciation_problem env evm t
+ !solve_instantiation_problem env evm t
type direction = Forward | Backward
@@ -552,10 +552,10 @@ let has_typeclasses filter evd =
in
Evar.Map.exists check (Evd.undefined_map evd)
-let solve_instanciations_problem = ref (fun _ _ _ _ _ -> assert false)
+let solve_instantiations_problem = ref (fun _ _ _ _ _ -> assert false)
let solve_problem env evd filter split fail =
- !solve_instanciations_problem env evd filter split fail
+ !solve_instantiations_problem env evd filter split fail
(** Profiling resolution of typeclasses *)
(* let solve_classeskey = Profile.declare_profile "solve_typeclasses" *)