diff options
| author | Jason Gross | 2014-08-12 11:03:05 -0400 |
|---|---|---|
| committer | Pierre Boutillier | 2014-08-25 15:22:40 +0200 |
| commit | 876b1b39a0304c93c2511ca8dd34353413e91c9d (patch) | |
| tree | 348c5630f0b35edf53fe4010587b61e615df03af /pretyping/typeclasses.ml | |
| parent | a061b4d11fc681182b5bb946aa84d17d0b812225 (diff) | |
instanciation is French, instantiation is English
Diffstat (limited to 'pretyping/typeclasses.ml')
| -rw-r--r-- | pretyping/typeclasses.ml | 8 |
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" *) |
