/usr/lib/open-axiom/input/mset.input is in open-axiom-test 1.4.1+svn~2626-2ubuntu2.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 | --Copyright The Numerical Algorithms Group Limited 1994.
)cl all
macro I == Integer
macro symdif == symmetricDifference
s:Multiset I
t:Multiset I
t1:Multiset I
s := multiset [1,2,3,4,5,4,3,2,3,4,5,6,7,4,10]
t := multiset [2,2,2,9]
union(s,t)
union(s,s)
intersect(s,t)
difference(s,t)
symdif(s,t)
symdif(s,s)
t1 := multiset [2,2]
[part?(t1,t), part?(t1,s), not part?(t,t1), not part?(s,t1)]
t1 := multiset [2,2,2]
[part?(t1,t), part?(t1,s), not part?(t,t1), not part?(s,t1)]
|