diff options
| author | msozeau | 2008-09-14 12:42:51 +0000 |
|---|---|---|
| committer | msozeau | 2008-09-14 12:42:51 +0000 |
| commit | 32b759737d89205340714979505eae22c5e3c4c3 (patch) | |
| tree | 605e80f5899fa89d01d5d2c1f30a8b6a41bdd635 /contrib | |
| parent | 483515414c44131d50e48020b8aa18fdda9c5aaf (diff) | |
In manual implicit arguments mode, do not enrich implicits
by the automatically infered arguments.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@11407 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'contrib')
| -rw-r--r-- | contrib/subtac/subtac_classes.ml | 2 | ||||
| -rw-r--r-- | contrib/subtac/subtac_obligations.ml | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/contrib/subtac/subtac_classes.ml b/contrib/subtac/subtac_classes.ml index e966c3afc7..289e64c299 100644 --- a/contrib/subtac/subtac_classes.ml +++ b/contrib/subtac/subtac_classes.ml @@ -186,7 +186,7 @@ let new_instance ?(global=false) ctx (instid, bk, cl) props ?(on_free_vars=Class let hook gr = let cst = match gr with ConstRef kn -> kn | _ -> assert false in let inst = Typeclasses.new_instance k pri global cst in - Impargs.declare_manual_implicits false gr false imps; + Impargs.declare_manual_implicits false gr ~enriching:false imps; Typeclasses.add_instance inst in let evm = Subtac_utils.evars_of_term (Evd.evars_of !isevars) Evd.empty term in diff --git a/contrib/subtac/subtac_obligations.ml b/contrib/subtac/subtac_obligations.ml index 6d1ec5ede7..ce75299de7 100644 --- a/contrib/subtac/subtac_obligations.ml +++ b/contrib/subtac/subtac_obligations.ml @@ -198,7 +198,7 @@ let declare_definition prg = in let gr = ConstRef c in if Impargs.is_implicit_args () || prg.prg_implicits <> [] then - Impargs.declare_manual_implicits false gr (Impargs.is_implicit_args ()) prg.prg_implicits; + Impargs.declare_manual_implicits false gr prg.prg_implicits; print_message (Subtac_utils.definition_message prg.prg_name); prg.prg_hook gr; gr |