etc/isa/xsym.ML


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

(* a few token characters to exercise X-Symbol *)

Goal "A \\<and> B  \\<longrightarrow> B \\<and> A";
by (rtac impI 1);
by (etac conjE 1);
by (rtac conjI 1);
by (assume_tac 1);
by (assume_tac 1);
qed "and_comms";

3;

4;

print "hello";

writeln "hello";
error "hello";