mirror of
https://github.com/Mercury-Language/mercury.git
synced 2026-04-21 20:33:55 +00:00
Estimated hours taken: 3 Branches: main library/pprint.m: Change pprint so that standard pre/post/infix operators are printed that way. tests/hard_coded/pprint_test2.m: tests/hard_coded/pprint_test2.exp: tests/hard_coded/pprint_test2.Makefile: Test case added.
442 lines
7.4 KiB
Plaintext
442 lines
7.4 KiB
Plaintext
f(f(a))
|
|
f(- a)
|
|
f(~ a)
|
|
f((:- a))
|
|
f(a ++ a)
|
|
f(a -- a)
|
|
f(a == a)
|
|
f((a -> a))
|
|
f(some a a)
|
|
- f(a)
|
|
- (- a)
|
|
- (~ a)
|
|
- (:- a)
|
|
- (a ++ a)
|
|
- (a -- a)
|
|
- (a == a)
|
|
- (a -> a)
|
|
- (some a a)
|
|
~ f(a)
|
|
~ - a
|
|
~ ~ a
|
|
~ (:- a)
|
|
~ a ++ a
|
|
~ a -- a
|
|
~ a == a
|
|
~ (a -> a)
|
|
~ (some a a)
|
|
(:- f(a))
|
|
(:- - a)
|
|
(:- ~ a)
|
|
(:- (:- a))
|
|
(:- a ++ a)
|
|
(:- a -- a)
|
|
(:- a == a)
|
|
(:- a -> a)
|
|
(:- some a a)
|
|
f(a) ++ f(a)
|
|
f(a) ++ - a
|
|
f(a) ++ (~ a)
|
|
f(a) ++ (:- a)
|
|
f(a) ++ a ++ a
|
|
f(a) ++ a -- a
|
|
f(a) ++ (a == a)
|
|
f(a) ++ (a -> a)
|
|
f(a) ++ (some a a)
|
|
- a ++ f(a)
|
|
- a ++ - a
|
|
- a ++ (~ a)
|
|
- a ++ (:- a)
|
|
- a ++ a ++ a
|
|
- a ++ a -- a
|
|
- a ++ (a == a)
|
|
- a ++ (a -> a)
|
|
- a ++ (some a a)
|
|
(~ a) ++ f(a)
|
|
(~ a) ++ - a
|
|
(~ a) ++ (~ a)
|
|
(~ a) ++ (:- a)
|
|
(~ a) ++ a ++ a
|
|
(~ a) ++ a -- a
|
|
(~ a) ++ (a == a)
|
|
(~ a) ++ (a -> a)
|
|
(~ a) ++ (some a a)
|
|
(:- a) ++ f(a)
|
|
(:- a) ++ - a
|
|
(:- a) ++ (~ a)
|
|
(:- a) ++ (:- a)
|
|
(:- a) ++ a ++ a
|
|
(:- a) ++ a -- a
|
|
(:- a) ++ (a == a)
|
|
(:- a) ++ (a -> a)
|
|
(:- a) ++ (some a a)
|
|
(a ++ a) ++ f(a)
|
|
(a ++ a) ++ - a
|
|
(a ++ a) ++ (~ a)
|
|
(a ++ a) ++ (:- a)
|
|
(a ++ a) ++ a ++ a
|
|
(a ++ a) ++ a -- a
|
|
(a ++ a) ++ (a == a)
|
|
(a ++ a) ++ (a -> a)
|
|
(a ++ a) ++ (some a a)
|
|
(a -- a) ++ f(a)
|
|
(a -- a) ++ - a
|
|
(a -- a) ++ (~ a)
|
|
(a -- a) ++ (:- a)
|
|
(a -- a) ++ a ++ a
|
|
(a -- a) ++ a -- a
|
|
(a -- a) ++ (a == a)
|
|
(a -- a) ++ (a -> a)
|
|
(a -- a) ++ (some a a)
|
|
(a == a) ++ f(a)
|
|
(a == a) ++ - a
|
|
(a == a) ++ (~ a)
|
|
(a == a) ++ (:- a)
|
|
(a == a) ++ a ++ a
|
|
(a == a) ++ a -- a
|
|
(a == a) ++ (a == a)
|
|
(a == a) ++ (a -> a)
|
|
(a == a) ++ (some a a)
|
|
(a -> a) ++ f(a)
|
|
(a -> a) ++ - a
|
|
(a -> a) ++ (~ a)
|
|
(a -> a) ++ (:- a)
|
|
(a -> a) ++ a ++ a
|
|
(a -> a) ++ a -- a
|
|
(a -> a) ++ (a == a)
|
|
(a -> a) ++ (a -> a)
|
|
(a -> a) ++ (some a a)
|
|
(some a a) ++ f(a)
|
|
(some a a) ++ - a
|
|
(some a a) ++ (~ a)
|
|
(some a a) ++ (:- a)
|
|
(some a a) ++ a ++ a
|
|
(some a a) ++ a -- a
|
|
(some a a) ++ (a == a)
|
|
(some a a) ++ (a -> a)
|
|
(some a a) ++ (some a a)
|
|
f(a) -- f(a)
|
|
f(a) -- - a
|
|
f(a) -- (~ a)
|
|
f(a) -- (:- a)
|
|
f(a) -- (a ++ a)
|
|
f(a) -- (a -- a)
|
|
f(a) -- (a == a)
|
|
f(a) -- (a -> a)
|
|
f(a) -- (some a a)
|
|
- a -- f(a)
|
|
- a -- - a
|
|
- a -- (~ a)
|
|
- a -- (:- a)
|
|
- a -- (a ++ a)
|
|
- a -- (a -- a)
|
|
- a -- (a == a)
|
|
- a -- (a -> a)
|
|
- a -- (some a a)
|
|
(~ a) -- f(a)
|
|
(~ a) -- - a
|
|
(~ a) -- (~ a)
|
|
(~ a) -- (:- a)
|
|
(~ a) -- (a ++ a)
|
|
(~ a) -- (a -- a)
|
|
(~ a) -- (a == a)
|
|
(~ a) -- (a -> a)
|
|
(~ a) -- (some a a)
|
|
(:- a) -- f(a)
|
|
(:- a) -- - a
|
|
(:- a) -- (~ a)
|
|
(:- a) -- (:- a)
|
|
(:- a) -- (a ++ a)
|
|
(:- a) -- (a -- a)
|
|
(:- a) -- (a == a)
|
|
(:- a) -- (a -> a)
|
|
(:- a) -- (some a a)
|
|
a ++ a -- f(a)
|
|
a ++ a -- - a
|
|
a ++ a -- (~ a)
|
|
a ++ a -- (:- a)
|
|
a ++ a -- (a ++ a)
|
|
a ++ a -- (a -- a)
|
|
a ++ a -- (a == a)
|
|
a ++ a -- (a -> a)
|
|
a ++ a -- (some a a)
|
|
a -- a -- f(a)
|
|
a -- a -- - a
|
|
a -- a -- (~ a)
|
|
a -- a -- (:- a)
|
|
a -- a -- (a ++ a)
|
|
a -- a -- (a -- a)
|
|
a -- a -- (a == a)
|
|
a -- a -- (a -> a)
|
|
a -- a -- (some a a)
|
|
(a == a) -- f(a)
|
|
(a == a) -- - a
|
|
(a == a) -- (~ a)
|
|
(a == a) -- (:- a)
|
|
(a == a) -- (a ++ a)
|
|
(a == a) -- (a -- a)
|
|
(a == a) -- (a == a)
|
|
(a == a) -- (a -> a)
|
|
(a == a) -- (some a a)
|
|
(a -> a) -- f(a)
|
|
(a -> a) -- - a
|
|
(a -> a) -- (~ a)
|
|
(a -> a) -- (:- a)
|
|
(a -> a) -- (a ++ a)
|
|
(a -> a) -- (a -- a)
|
|
(a -> a) -- (a == a)
|
|
(a -> a) -- (a -> a)
|
|
(a -> a) -- (some a a)
|
|
(some a a) -- f(a)
|
|
(some a a) -- - a
|
|
(some a a) -- (~ a)
|
|
(some a a) -- (:- a)
|
|
(some a a) -- (a ++ a)
|
|
(some a a) -- (a -- a)
|
|
(some a a) -- (a == a)
|
|
(some a a) -- (a -> a)
|
|
(some a a) -- (some a a)
|
|
f(a) == f(a)
|
|
f(a) == - a
|
|
f(a) == (~ a)
|
|
f(a) == (:- a)
|
|
f(a) == a ++ a
|
|
f(a) == a -- a
|
|
f(a) == (a == a)
|
|
f(a) == (a -> a)
|
|
f(a) == (some a a)
|
|
- a == f(a)
|
|
- a == - a
|
|
- a == (~ a)
|
|
- a == (:- a)
|
|
- a == a ++ a
|
|
- a == a -- a
|
|
- a == (a == a)
|
|
- a == (a -> a)
|
|
- a == (some a a)
|
|
(~ a) == f(a)
|
|
(~ a) == - a
|
|
(~ a) == (~ a)
|
|
(~ a) == (:- a)
|
|
(~ a) == a ++ a
|
|
(~ a) == a -- a
|
|
(~ a) == (a == a)
|
|
(~ a) == (a -> a)
|
|
(~ a) == (some a a)
|
|
(:- a) == f(a)
|
|
(:- a) == - a
|
|
(:- a) == (~ a)
|
|
(:- a) == (:- a)
|
|
(:- a) == a ++ a
|
|
(:- a) == a -- a
|
|
(:- a) == (a == a)
|
|
(:- a) == (a -> a)
|
|
(:- a) == (some a a)
|
|
a ++ a == f(a)
|
|
a ++ a == - a
|
|
a ++ a == (~ a)
|
|
a ++ a == (:- a)
|
|
a ++ a == a ++ a
|
|
a ++ a == a -- a
|
|
a ++ a == (a == a)
|
|
a ++ a == (a -> a)
|
|
a ++ a == (some a a)
|
|
a -- a == f(a)
|
|
a -- a == - a
|
|
a -- a == (~ a)
|
|
a -- a == (:- a)
|
|
a -- a == a ++ a
|
|
a -- a == a -- a
|
|
a -- a == (a == a)
|
|
a -- a == (a -> a)
|
|
a -- a == (some a a)
|
|
(a == a) == f(a)
|
|
(a == a) == - a
|
|
(a == a) == (~ a)
|
|
(a == a) == (:- a)
|
|
(a == a) == a ++ a
|
|
(a == a) == a -- a
|
|
(a == a) == (a == a)
|
|
(a == a) == (a -> a)
|
|
(a == a) == (some a a)
|
|
(a -> a) == f(a)
|
|
(a -> a) == - a
|
|
(a -> a) == (~ a)
|
|
(a -> a) == (:- a)
|
|
(a -> a) == a ++ a
|
|
(a -> a) == a -- a
|
|
(a -> a) == (a == a)
|
|
(a -> a) == (a -> a)
|
|
(a -> a) == (some a a)
|
|
(some a a) == f(a)
|
|
(some a a) == - a
|
|
(some a a) == (~ a)
|
|
(some a a) == (:- a)
|
|
(some a a) == a ++ a
|
|
(some a a) == a -- a
|
|
(some a a) == (a == a)
|
|
(some a a) == (a -> a)
|
|
(some a a) == (some a a)
|
|
(f(a) -> f(a))
|
|
(f(a) -> - a)
|
|
(f(a) -> ~ a)
|
|
(f(a) -> (:- a))
|
|
(f(a) -> a ++ a)
|
|
(f(a) -> a -- a)
|
|
(f(a) -> a == a)
|
|
(f(a) -> a -> a)
|
|
(f(a) -> some a a)
|
|
(- a -> f(a))
|
|
(- a -> - a)
|
|
(- a -> ~ a)
|
|
(- a -> (:- a))
|
|
(- a -> a ++ a)
|
|
(- a -> a -- a)
|
|
(- a -> a == a)
|
|
(- a -> a -> a)
|
|
(- a -> some a a)
|
|
(~ a -> f(a))
|
|
(~ a -> - a)
|
|
(~ a -> ~ a)
|
|
(~ a -> (:- a))
|
|
(~ a -> a ++ a)
|
|
(~ a -> a -- a)
|
|
(~ a -> a == a)
|
|
(~ a -> a -> a)
|
|
(~ a -> some a a)
|
|
((:- a) -> f(a))
|
|
((:- a) -> - a)
|
|
((:- a) -> ~ a)
|
|
((:- a) -> (:- a))
|
|
((:- a) -> a ++ a)
|
|
((:- a) -> a -- a)
|
|
((:- a) -> a == a)
|
|
((:- a) -> a -> a)
|
|
((:- a) -> some a a)
|
|
(a ++ a -> f(a))
|
|
(a ++ a -> - a)
|
|
(a ++ a -> ~ a)
|
|
(a ++ a -> (:- a))
|
|
(a ++ a -> a ++ a)
|
|
(a ++ a -> a -- a)
|
|
(a ++ a -> a == a)
|
|
(a ++ a -> a -> a)
|
|
(a ++ a -> some a a)
|
|
(a -- a -> f(a))
|
|
(a -- a -> - a)
|
|
(a -- a -> ~ a)
|
|
(a -- a -> (:- a))
|
|
(a -- a -> a ++ a)
|
|
(a -- a -> a -- a)
|
|
(a -- a -> a == a)
|
|
(a -- a -> a -> a)
|
|
(a -- a -> some a a)
|
|
(a == a -> f(a))
|
|
(a == a -> - a)
|
|
(a == a -> ~ a)
|
|
(a == a -> (:- a))
|
|
(a == a -> a ++ a)
|
|
(a == a -> a -- a)
|
|
(a == a -> a == a)
|
|
(a == a -> a -> a)
|
|
(a == a -> some a a)
|
|
((a -> a) -> f(a))
|
|
((a -> a) -> - a)
|
|
((a -> a) -> ~ a)
|
|
((a -> a) -> (:- a))
|
|
((a -> a) -> a ++ a)
|
|
((a -> a) -> a -- a)
|
|
((a -> a) -> a == a)
|
|
((a -> a) -> a -> a)
|
|
((a -> a) -> some a a)
|
|
(some a a -> f(a))
|
|
(some a a -> - a)
|
|
(some a a -> ~ a)
|
|
(some a a -> (:- a))
|
|
(some a a -> a ++ a)
|
|
(some a a -> a -- a)
|
|
(some a a -> a == a)
|
|
(some a a -> a -> a)
|
|
(some a a -> some a a)
|
|
some f(a) f(a)
|
|
some f(a) - a
|
|
some f(a) ~ a
|
|
some f(a) (:- a)
|
|
some f(a) a ++ a
|
|
some f(a) a -- a
|
|
some f(a) a == a
|
|
some f(a) (a -> a)
|
|
some f(a) some a a
|
|
some - a f(a)
|
|
some - a - a
|
|
some - a ~ a
|
|
some - a (:- a)
|
|
some - a a ++ a
|
|
some - a a -- a
|
|
some - a a == a
|
|
some - a (a -> a)
|
|
some - a some a a
|
|
some ~ a f(a)
|
|
some ~ a - a
|
|
some ~ a ~ a
|
|
some ~ a (:- a)
|
|
some ~ a a ++ a
|
|
some ~ a a -- a
|
|
some ~ a a == a
|
|
some ~ a (a -> a)
|
|
some ~ a some a a
|
|
some (:- a) f(a)
|
|
some (:- a) - a
|
|
some (:- a) ~ a
|
|
some (:- a) (:- a)
|
|
some (:- a) a ++ a
|
|
some (:- a) a -- a
|
|
some (:- a) a == a
|
|
some (:- a) (a -> a)
|
|
some (:- a) some a a
|
|
some a ++ a f(a)
|
|
some a ++ a - a
|
|
some a ++ a ~ a
|
|
some a ++ a (:- a)
|
|
some a ++ a a ++ a
|
|
some a ++ a a -- a
|
|
some a ++ a a == a
|
|
some a ++ a (a -> a)
|
|
some a ++ a some a a
|
|
some a -- a f(a)
|
|
some a -- a - a
|
|
some a -- a ~ a
|
|
some a -- a (:- a)
|
|
some a -- a a ++ a
|
|
some a -- a a -- a
|
|
some a -- a a == a
|
|
some a -- a (a -> a)
|
|
some a -- a some a a
|
|
some a == a f(a)
|
|
some a == a - a
|
|
some a == a ~ a
|
|
some a == a (:- a)
|
|
some a == a a ++ a
|
|
some a == a a -- a
|
|
some a == a a == a
|
|
some a == a (a -> a)
|
|
some a == a some a a
|
|
some (a -> a) f(a)
|
|
some (a -> a) - a
|
|
some (a -> a) ~ a
|
|
some (a -> a) (:- a)
|
|
some (a -> a) a ++ a
|
|
some (a -> a) a -- a
|
|
some (a -> a) a == a
|
|
some (a -> a) (a -> a)
|
|
some (a -> a) some a a
|
|
some (some a a) f(a)
|
|
some (some a a) - a
|
|
some (some a a) ~ a
|
|
some (some a a) (:- a)
|
|
some (some a a) a ++ a
|
|
some (some a a) a -- a
|
|
some (some a a) a == a
|
|
some (some a a) (a -> a)
|
|
some (some a a) some a a
|