From 65db8618d307602a60b6dd4bbf69d669d7ea7d7f Mon Sep 17 00:00:00 2001
From: herbelin
Date: Wed, 9 Apr 2003 21:55:13 +0000
Subject: nil en implicite dans la v8

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3895 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 theories/Lists/PolyList.v | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/theories/Lists/PolyList.v b/theories/Lists/PolyList.v
index 5baa768917..8a5e0421a0 100644
--- a/theories/Lists/PolyList.v
+++ b/theories/Lists/PolyList.v
@@ -211,8 +211,7 @@ Proof.
 Qed.
 End length_order.
 
-Hints Resolve lel_refl lel_cons_cons lel_cons lel_nil lel_nil nil_cons 
-.
+Hints Resolve lel_refl lel_cons_cons lel_cons lel_nil lel_nil nil_cons.
 
 (*********************************)
 (** The [In] predicate           *)
@@ -548,6 +547,9 @@ End Reverse_Induction.
 
 End Lists.
 
+Implicits nil [1].
+V7only [Implicits nil [].].
+
 Hints Resolve nil_cons app_nil_end ass_app app_ass : datatypes v62.
 Hints Resolve app_comm_cons  app_cons_not_nil : datatypes v62.
 Hints Immediate app_eq_nil : datatypes v62.
@@ -568,7 +570,7 @@ Section Map.
 Variables A,B:Set.
 Variable  f:A->B.
 Fixpoint map [l:(list A)] : (list B) :=
-  Cases l of
+  Cases l of 
      nil       => (nil B)
   | (cons a t) => (cons (f a) (map t))
   end.
@@ -681,5 +683,3 @@ Reflexivity.
 Qed.
 
 End Functions_on_lists.
-
-Unset Implicit Arguments.
-- 
cgit v1.2.3