aboutsummaryrefslogtreecommitdiff
path: root/src/algebra/kl.spad.pamphlet
diff options
context:
space:
mode:
authordos-reis <gdr@axiomatics.org>2010-02-21 00:48:28 +0000
committerdos-reis <gdr@axiomatics.org>2010-02-21 00:48:28 +0000
commit3ca41ddb56efd927b46da41d9ce369c31538e3b3 (patch)
tree39a7193de66502f574a7a261b1b624e6886ce848 /src/algebra/kl.spad.pamphlet
parent3641c06bc50b60bfa60549daff6cd95029878129 (diff)
downloadopen-axiom-3ca41ddb56efd927b46da41d9ce369c31538e3b3.tar.gz
* algebra/boolean.spad.pamphlet (PropositionalFormula):
Reimplement in terms of kernels. * algebra/Makefile.pamphlet ($(OUT)/KERNEL.$(FASLEXT)): New dependence rule. ($(OUT)PROPFRML.$(FASLEXT)): Likewise. (axiom_algebra_layer_19): Move PROPFRML to... (axiom_algebra_layer_6): ...here.
Diffstat (limited to 'src/algebra/kl.spad.pamphlet')
-rw-r--r--src/algebra/kl.spad.pamphlet10
1 files changed, 5 insertions, 5 deletions
diff --git a/src/algebra/kl.spad.pamphlet b/src/algebra/kl.spad.pamphlet
index 28c7951f..d4211501 100644
--- a/src/algebra/kl.spad.pamphlet
+++ b/src/algebra/kl.spad.pamphlet
@@ -119,12 +119,12 @@ SortedCache(S:CachableSet): Exports == Implementation where
++ A kernel over a set S is an operator applied to a given list
++ of arguments from S.
Kernel(S: SetCategory): Exports == Implementation where
- O ==> OutputForm
- N ==> NonNegativeInteger
- OP ==> BasicOperator
+ macro O == OutputForm
+ macro N == NonNegativeInteger
+ macro OP == BasicOperator
- Exports ==> Join(CachableSet, OrderedSet, Patternable S) with
+ Exports == Join(CachableSet, OrderedSet, Patternable S) with
operator: % -> OP
++ operator(op(a1,...,an)) returns the operator op.
argument: % -> List S
@@ -157,7 +157,7 @@ Kernel(S: SetCategory): Exports == Implementation where
macro SPECIALINPUT == '%specialInput
import SortedCache(%)
- Rep == Record(op:OP, arg:List S, nest:N, posit:N)
+ Rep == Record(op: OP, arg: List S, nest: N, posit: N)
clearCache()