diff options
| author | Pierre-Marie Pédrot | 2016-11-21 12:13:05 +0100 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2017-02-14 17:30:34 +0100 |
| commit | 0cdb7e42f64674e246d4e24e3c725e23ceeec6bd (patch) | |
| tree | 101bd3bc2e05eb52bfc142587d425f8920671b25 /tactics/class_tactics.ml | |
| parent | e09f3b44bb381854b647a6d9debdeddbfc49177e (diff) | |
Reductionops now return EConstrs.
Diffstat (limited to 'tactics/class_tactics.ml')
| -rw-r--r-- | tactics/class_tactics.ml | 1 |
1 files changed, 0 insertions, 1 deletions
diff --git a/tactics/class_tactics.ml b/tactics/class_tactics.ml index bf4e53b103..3a5347bbfc 100644 --- a/tactics/class_tactics.ml +++ b/tactics/class_tactics.ml @@ -535,7 +535,6 @@ let make_resolve_hyp env sigma st flags only_classes pri decl = | _ -> let env' = Environ.push_rel_context ctx env in let ty' = Reductionops.whd_all env' sigma ar in - let ty' = EConstr.of_constr ty' in if not (EConstr.eq_constr sigma ty' ar) then iscl env' ty' else false in |