diff options
author | Pierre Letouzey <pierre.letouzey@inria.fr> | 2014-03-05 16:50:04 +0100 |
---|---|---|
committer | Pierre Letouzey <pierre.letouzey@inria.fr> | 2014-03-05 16:57:45 +0100 |
commit | 8fc2509f354b02ec4e0a3eb6fabc329109686c47 (patch) | |
tree | bf7f0738e36d861d57029985ea4f2d3e73d23c15 /toplevel/himsg.ml | |
parent | adfd437f8ae6aaf893119fa4730edecf067dede7 (diff) |
Remove some dead-code (thanks to ocaml warnings)
The removed code isn't used locally and isn't exported in the signature
Diffstat (limited to 'toplevel/himsg.ml')
-rw-r--r-- | toplevel/himsg.ml | 13 |
1 files changed, 0 insertions, 13 deletions
diff --git a/toplevel/himsg.ml b/toplevel/himsg.ml index 303b3f8d6..b2f752dce 100644 --- a/toplevel/himsg.ml +++ b/toplevel/himsg.ml @@ -489,16 +489,6 @@ let explain_evar_kind env evi = function | Evar_kinds.MatchingVar _ -> assert false -let explain_not_clean env sigma ev t k = - let t = Evarutil.nf_evar sigma t in - let env = make_all_name_different env in - let id = Evd.string_of_existential ev in - let var = pr_lconstr_env env t in - str "Tried to instantiate " ++ explain_evar_kind env None k ++ - str " (" ++ str id ++ str ")" ++ spc () ++ - str "with a term using variable " ++ var ++ spc () ++ - str "which is not in its scope." - let explain_unsolvability = function | None -> mt() | Some (SeveralInstancesFound n) -> @@ -824,9 +814,6 @@ let explain_no_instance env (_,id) l = str "applied to arguments" ++ spc () ++ pr_sequence (pr_lconstr_env env) l -let is_goal_evar evi = - match evi.evar_source with (_, Evar_kinds.GoalEvar) -> true | _ -> false - let pr_constraints printenv env evd evars cstrs = let (ev, evi) = Evar.Map.choose evars in if Evar.Map.for_all (fun ev' evi' -> |