Correction de quelques défauts d'affichage (notations sous "as" pour

filtrage; sauts de line intempestifs dans pretty.ml)



git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@10179 85f007b7-540e-0410-9357-904b9bb8a0f7

1 files changed, 13 insertions, 0 deletions

diff --git a/test-suite/output/Cases.v b/test-suite/output/Cases.v
index 56d5cfb4e..61f89d403 100644
--- a/test-suite/output/Cases.v
+++ b/test-suite/output/Cases.v
@@ -20,3 +20,16 @@ Definition proj (x y:nat) (P:nat -> Type) (def:P x) (prf:P y) : P y :=
  end.
 
 Print proj.
+
+(* Use notations even below aliases *)
+
+Require Import List.
+
+Fixpoint foo (A:Type) (l:list A) : option A :=
+  match l with
+  | nil => None
+  | x0 :: nil => Some x0
+  | x0 :: (x1 :: xs) as l0 => foo A l0
+  end.
+
+Print foo.