diff options
| author | herbelin | 2003-04-07 08:33:39 +0000 |
|---|---|---|
| committer | herbelin | 2003-04-07 08:33:39 +0000 |
| commit | f07953f4e028c164871fade53244fa1ff8e1f8aa (patch) | |
| tree | 0d05babde9ddbf3820b528e14257e89b2c5293e2 /interp | |
| parent | d2f0b8dd4cb352d95f682c8aea04063ef8e0a973 (diff) | |
Suppression des explicitations d'implicite inutiles
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3848 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'interp')
| -rw-r--r-- | interp/constrextern.ml | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/interp/constrextern.ml b/interp/constrextern.ml index cc5e79a126..d49055171e 100644 --- a/interp/constrextern.ml +++ b/interp/constrextern.ml @@ -179,7 +179,10 @@ let rec skip_coercion dest_ref (f,args as app) = with Not_found -> app let extern_app loc impl f args = - if (!print_implicits & not !print_implicits_explicit_args) then + if !print_implicits & + not !print_implicits_explicit_args & + List.exists is_status_implicit impl + then CAppExpl (loc, f, args) else explicitize loc impl (CRef f) args |