diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2001-02-07 10:02:40 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2001-02-07 10:02:40 +0000 |
| commit | 78384438637eb9ce2f11f61bafc59f17c5f933da (patch) | |
| tree | f1968f737066e0e736f01b5fd4c8c9c5bccacdfc /library/impargs.ml | |
| parent | 9c662cf9e8f4065ab354dc9c55c3e819f0db1fbe (diff) | |
Retrait de EvarRef de global_reference; nettoyage autour de ast_of_ref
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@1340 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'library/impargs.ml')
| -rw-r--r-- | library/impargs.ml | 4 |
1 files changed, 0 insertions, 4 deletions
diff --git a/library/impargs.ml b/library/impargs.ml index 2644944ac..8dc025e59 100644 --- a/library/impargs.ml +++ b/library/impargs.ml @@ -254,7 +254,6 @@ let declare_implicits = function let mib_imps = compute_mib_implicits sp in let imps = (snd mib_imps.(i)).(j-1) in add_anonymous_leaf (in_constructor_implicits (consp, imps)) - | EvarRef _ -> assert false let declare_manual_implicits r l = match r with | VarRef sp -> @@ -265,8 +264,6 @@ let declare_manual_implicits r l = match r with add_anonymous_leaf (in_inductive_implicits (indp,Impl_manual l)) | ConstructRef consp -> add_anonymous_leaf (in_constructor_implicits (consp,Impl_manual l)) - | EvarRef _ -> - assert false (*s Tests if declared implicit *) @@ -285,7 +282,6 @@ let implicits_of_global = function | ConstRef sp -> list_of_implicits (constant_implicits sp) | IndRef isp -> list_of_implicits (inductive_implicits isp) | ConstructRef csp -> list_of_implicits (constructor_implicits csp) - | EvarRef _ -> [] (*s Registration as global tables and rollback. *) |