diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2012-06-20 14:46:45 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2012-06-20 14:46:45 +0000 |
| commit | e5840a45ad77ddf648871f142707924624311725 (patch) | |
| tree | 96c59ee8aad852db781d6abf9dcce7d50f5730aa /test-suite/success/Mod_type.v | |
| parent | 12ca0c207832ee3138c3015726b4f7e615887cc5 (diff) | |
Fixing bug #2809 (anomaly when printing a module with notations due to
bad interaction between lazy evaluation of pp streams and temporary
effectful extension of global environment).
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@15457 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'test-suite/success/Mod_type.v')
| -rw-r--r-- | test-suite/success/Mod_type.v | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/test-suite/success/Mod_type.v b/test-suite/success/Mod_type.v index b847833f3..d5e1a38cf 100644 --- a/test-suite/success/Mod_type.v +++ b/test-suite/success/Mod_type.v @@ -17,3 +17,15 @@ Module Bar : BAR. Module Foo := Fu. End Bar. + +(* Check bug #2809: correct printing of modules with notations *) + +Module C. + Inductive test : Type := + | c1 : test + | c2 : nat -> test. + + Notation "! x" := (c2 x) (at level 50). +End C. + +Print C. (* Should print test_rect without failing *) |