/usr/share/axiom-20170501/src/algebra/COMPPROP.spad is in axiom-source 20170501-3.
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 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 | )abbrev domain COMPPROP SubSpaceComponentProperty
++ Author: Mark Botch
++ Description:
++ This domain implements some global properties of subspaces.
SubSpaceComponentProperty() : SIG == CODE where
O ==> OutputForm
I ==> Integer
PI ==> PositiveInteger
NNI ==> NonNegativeInteger
L ==> List
B ==> Boolean
SIG ==> SetCategory with
new : () -> %
++ new() is not documented
closed? : % -> B
++ closed?(x) is not documented
solid? : % -> B
++ solid?(x) is not documented
close : (%,B) -> B
++ close(x,b) is not documented
solid : (%,B) -> B
++ solid(x,b) is not documented
copy : % -> %
++ copy(x) is not documented
CODE ==> add
Rep := Record(closed:B, solid:B)
closed? p == p.closed
solid? p == p.solid
close(p,b) == p.closed := b
solid(p,b) == p.solid := b
new() == [false,false]
copy p ==
annuderOne := new()
close(annuderOne,closed? p)
solid(annuderOne,solid? p)
annuderOne
coerce p ==
hconcat(["Component is "::O,
(closed? p => ""::O; "not "::O),"closed, "::O, _
(solid? p => ""::O; "not "::O),"solid"::O ])
|