diff options
| author | Hugo Herbelin | 2019-11-23 22:37:42 +0100 |
|---|---|---|
| committer | Hugo Herbelin | 2019-12-03 21:22:03 +0100 |
| commit | 19b2b4389b75a7701b62c5a67d9117a72656dab3 (patch) | |
| tree | 202dd76ca90428fc6eea9f62c1b773b8fd290489 /test-suite | |
| parent | effbc03b9072ff94f96e54a5026ce04d7aa41bcc (diff) | |
Printing: Interleaving search for notations and removal of coercions.
We renounce to the ad hoc rule preferring a notation w/o delimiter
for a term with coercions stripped over a notation for the
fully-applied terms with coercions not removed.
Instead, we interleave removal of coercions and search for notations:
we prefer a notation for the fully applied term, and, if not, try to
remove one coercion, and try again a notation for the remaining term,
and if not, try to remove the next coercion, etc.
Note: the flatten_application could be removed if prim_token were able
to apply on a prefix of an application node.
Diffstat (limited to 'test-suite')
| -rw-r--r-- | test-suite/output/Notations4.out | 2 | ||||
| -rw-r--r-- | test-suite/output/Notations4.v | 4 |
2 files changed, 6 insertions, 0 deletions
diff --git a/test-suite/output/Notations4.out b/test-suite/output/Notations4.out index 32120a9674..799d310fa7 100644 --- a/test-suite/output/Notations4.out +++ b/test-suite/output/Notations4.out @@ -31,6 +31,8 @@ Let "x" e1 e2 : expr Let "x" e1 e2 : expr +Let "x" e1 e2 : list string + : list string myAnd1 True True : Prop r 2 3 diff --git a/test-suite/output/Notations4.v b/test-suite/output/Notations4.v index d3433949d1..26c7840a16 100644 --- a/test-suite/output/Notations4.v +++ b/test-suite/output/Notations4.v @@ -94,6 +94,10 @@ Coercion App : expr >-> Funclass. Check (Let "x" e1 e2). +Axiom free_vars :> expr -> list string. + +Check (Let "x" e1 e2) : list string. + End D. (* Fixing bugs reported by G. Gonthier in #9207 *) |