diff options
author | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2016-11-24 17:15:15 +0100 |
---|---|---|
committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2017-02-14 17:30:38 +0100 |
commit | 531590c223af42c07a93142ab0cea470a98964e6 (patch) | |
tree | bfe531d8d32e491a66eceba60995702e20e73757 /plugins/micromega/coq_micromega.ml | |
parent | b36adb2124d3ba8a5547605e7f89bb0835d0ab10 (diff) |
Removing compatibility layers in Retyping
Diffstat (limited to 'plugins/micromega/coq_micromega.ml')
-rw-r--r-- | plugins/micromega/coq_micromega.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/plugins/micromega/coq_micromega.ml b/plugins/micromega/coq_micromega.ml index f96b189c5..ced572466 100644 --- a/plugins/micromega/coq_micromega.ml +++ b/plugins/micromega/coq_micromega.ml @@ -898,7 +898,7 @@ struct let has_typ gl t1 typ = let ty = Retyping.get_type_of (Tacmach.pf_env gl) (Tacmach.project gl) t1 in - Constr.equal ty typ + EConstr.eq_constr (Tacmach.project gl) ty (EConstr.of_constr typ) let is_convertible gl t1 t2 = |