lean2/tests/lean/tst3.lean

60 lines
1.5 KiB
Text
Raw Normal View History

import if_then_else
set_option verbose false.
notation 10 if _ then _ : implies.
print environment 1.
print if true then false.
variable a : Bool.
print if true then if a then false.
set_option lean::pp::notation false.
print if true then if a then false.
variable A : Type.
variable f : A -> A -> A -> Bool.
notation 100 _ |- _ ; _ : f.
print environment 1.
variable c : A.
variable d : A.
variable e : A.
print c |- d ; e.
set_option lean::pp::notation true.
print c |- d ; e.
variable fact : A -> A.
notation 20 _ ! : fact.
print c! !.
set_option lean::pp::notation false.
print c! !.
set_option lean::pp::notation true.
variable g : A -> A -> A.
notation 30 [ _ ; _ ] : g
print [c;d].
print [c ; [d;e] ].
set_option lean::pp::notation false.
print [c ; [d;e] ].
set_option lean::pp::notation true.
variable h : A -> A -> A.
notation 40 _ << _ >> : h.
print environment 1.
print d << e >>.
print [c ; d << e >> ].
set_option lean::pp::notation false.
print [c ; d << e >> ].
set_option lean::pp::notation true.
variable r : A -> A -> A.
infixl 30 ++ : r.
variable s : A -> A -> A.
infixl 40 ** : s.
print c ** d ++ e ** c.
variable p1 : Bool.
variable p2 : Bool.
variable p3 : Bool.
print p1 || p2 && p3.
set_option lean::pp::notation false.
print c ** d ++ e ** c.
print p1 || p2 && p3.
set_option lean::pp::notation true.
print c = d || d = c.
print not p1 || p2.
print p1 && p3 || p2 && p3.
set_option lean::pp::notation false.
print not p1 || p2.
print p1 && p3 || p2 && p3.