diff options
| author | Pierre-Marie Pédrot | 2015-10-14 12:01:38 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2015-10-14 15:55:06 +0200 |
| commit | 36f669f769fa23eb897adfa0450875a3c0db3476 (patch) | |
| tree | a9ff788fcf6bd5c9cdb3ad8ff4c1b998470fc945 /tactics/class_tactics.ml | |
| parent | 4b8155591be6e20505ee25f7199edcf44a638c7e (diff) | |
Exporting the original unprocessed hint in the hint running function.
Diffstat (limited to 'tactics/class_tactics.ml')
| -rw-r--r-- | tactics/class_tactics.ml | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/tactics/class_tactics.ml b/tactics/class_tactics.ml index ed5b783f6c..36b60385d8 100644 --- a/tactics/class_tactics.ml +++ b/tactics/class_tactics.ml @@ -141,6 +141,7 @@ let progress_evars t = let e_give_exact flags poly (c,clenv) gl = + let (c, _, _) = c in let c, gl = if poly then let clenv', subst = Clenv.refresh_undefined_univs clenv in @@ -166,6 +167,7 @@ let unify_resolve poly flags (c,clenv) gls = (Clenvtac.clenv_refine false ~with_classes:false clenv') gls let clenv_of_prods poly nprods (c, clenv) gls = + let (c, _, _) = c in if poly || Int.equal nprods 0 then Some clenv else let ty = pf_unsafe_type_of gls c in |