diff options
36 files changed, 272 insertions, 235 deletions
diff --git a/src/ChangeLog b/src/ChangeLog index c5268333..038f5147 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,19 @@ +2011-10-01 Gabriel Dos Reis <gdr@cs.tamu.edu> + + * boot/utility.boot: Define BOOTTRAN namespace. + (setUnion): New. + (setDifference): New. + * boot/translator.boot (packageBody): New. + (translateToplevel): Use it. Translate namespace definition. + * boot/tokens.boot: Replace bitmask with bitref. + Do not translate setDifference and setUnion. + * boot/parser.boot (bpDef): Now include namespace definition. + (bpComma): Remove namespace rule as subsumed by Where rule. + * boot/Makefile.in: Remove dependencies on initial-env.lisp. + (AXIOM_LOCAL_LISP_sources): Remove as unused, + (boot_sources): Remove as redundant with boot_SOURCES. + * boot/initial-env.lisp: Remove. + 2011-09-30 Gabriel Dos Reis <gdr@cs.tamu.edu> * boot/utility.boot (firstNonblankPosition): New. diff --git a/src/boot/Makefile.in b/src/boot/Makefile.in index dac491f3..c569b408 100644 --- a/src/boot/Makefile.in +++ b/src/boot/Makefile.in @@ -48,16 +48,14 @@ ## entire bootstrap process. DRIVER = $(top_builddir)/src/driver/open-axiom$(EXEEXT) -AXIOM_LOCAL_LISP_sources = initial-env.lisp AXIOM_LOCAL_LISP = ../lisp/lisp$(EXEEXT) ## FASLs that comprises `bootsys' -boot_SOURCES = initial-env.lisp $(boot_sources) -boot_sources = utility.boot tokens.boot includer.boot scanner.boot \ +boot_SOURCES = utility.boot tokens.boot includer.boot scanner.boot \ pile.boot ast.boot parser.boot translator.boot -boot_clisp = $(boot_sources:.boot=.clisp) -boot_objects = initial-env.$(LNKEXT) $(boot_sources:.boot=.$(LNKEXT)) +boot_clisp = $(boot_SOURCES:.boot=.clisp) +boot_objects = $(boot_SOURCES:.boot=.$(LNKEXT)) oa_target_bootdir = $(axiom_targetdir)/boot ifeq (@axiom_lisp_flavor@,ecl) @@ -67,8 +65,8 @@ oa_boot_linkset = endif # Garbage produced by GCL during compilation -boot_data = $(boot_sources:.boot=.data) -boot_fn = $(boot_sources:.boot=.fn) +boot_data = $(boot_SOURCES:.boot=.data) +boot_fn = $(boot_SOURCES:.boot=.fn) # reference to this directory from toplevel subdir = src/boot/ @@ -187,10 +185,7 @@ stage2/%.clisp: %.boot stage1/stamp stage2/.started ## FIXME: This should be automatically extracted from the ## Boot source file at packaging time. -%/initial-env.$(LNKEXT): initial-env.lisp %/.started - $(DRIVER) --execpath=$(AXIOM_LOCAL_LISP) --compile --output=$@ $< - -%/utility.$(LNKEXT): %/utility.clisp %/initial-env.$(LNKEXT) +%/utility.$(LNKEXT): %/utility.clisp %/.started $(DRIVER) --execpath=$(AXIOM_LOCAL_LISP) --output=$@ --compile --load-directory=$* $< %/tokens.$(LNKEXT): %/tokens.clisp %/utility.$(LNKEXT) diff --git a/src/boot/initial-env.lisp b/src/boot/initial-env.lisp deleted file mode 100644 index ecf4963d..00000000 --- a/src/boot/initial-env.lisp +++ /dev/null @@ -1,56 +0,0 @@ -;; Copyright (c) 1991-2002, The Numerical Algorithms Group Ltd. -;; All rights reserved. -;; Copyright (C) 2007-2011, Gabriel Dos Reis. -;; All rights reserved. -;; -;; Redistribution and use in source and binary forms, with or without -;; modification, are permitted provided that the following conditions are -;; met: -;; -;; - Redistributions of source code must retain the above copyright -;; notice, this list of conditions and the following disclaimer. -;; -;; - Redistributions in binary form must reproduce the above copyright -;; notice, this list of conditions and the following disclaimer in -;; the documentation and/or other materials provided with the -;; distribution. -;; -;; - Neither the name of The Numerical Algorithms Group Ltd. nor the -;; names of its contributors may be used to endorse or promote products -;; derived from this software without specific prior written permission. -;; -;; THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS -;; IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED -;; TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A -;; PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER -;; OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, -;; EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, -;; PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR -;; PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF -;; LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING -;; NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS -;; SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. -;; - - -;; -;; Abstract: -;; This file defines the base initial environment for building -;; a Boot translator image. It essentially etablishes a namespace -;; (package BOOTTRAN) for the Boot translator, and defines -;; some macros that need to be present during translation of Boot -;; source files. -;; - -(defpackage "BOOTTRAN" - (:use "AxiomCore") - #+:common-lisp (:use "COMMON-LISP") - #-:common-lisp (:use "LISP") - ) - -(in-package "BOOTTRAN") - -(eval-when (:compile-toplevel :load-toplevel :execute) - (progn - (setq *read-default-float-format* 'double-float) - (setq *load-verbose* nil))) diff --git a/src/boot/parser.boot b/src/boot/parser.boot index 35608364..8c67c7c6 100644 --- a/src/boot/parser.boot +++ b/src/boot/parser.boot @@ -895,6 +895,7 @@ bpStoreName()== bpDef() == bpName() and bpStoreName() and bpDefTail function %Definition + or bpNamespace() and bpSimpleDefinitionTail() bpDDef() == bpName() and bpDefTail function %Definition @@ -946,8 +947,7 @@ bpPDefinitionItems()== bpParenthesized function bpSemiColonDefinition bpComma()== - bpModule() or bpImport() or bpNamespace() or - bpTuple function bpWhere + bpModule() or bpImport() or bpTuple function bpWhere bpTuple(p) == bpListofFun(p,function bpCommaBackSet,function bfTuple) diff --git a/src/boot/strap/parser.clisp b/src/boot/strap/parser.clisp index 898c6192..7b470d05 100644 --- a/src/boot/strap/parser.clisp +++ b/src/boot/strap/parser.clisp @@ -884,7 +884,8 @@ T)) (DEFUN |bpDef| () - (AND (|bpName|) (|bpStoreName|) (|bpDefTail| #'|%Definition|))) + (OR (AND (|bpName|) (|bpStoreName|) (|bpDefTail| #'|%Definition|)) + (AND (|bpNamespace|) (|bpSimpleDefinitionTail|)))) (DEFUN |bpDDef| () (AND (|bpName|) (|bpDefTail| #'|%Definition|))) @@ -930,8 +931,7 @@ (DEFUN |bpPDefinitionItems| () (|bpParenthesized| #'|bpSemiColonDefinition|)) -(DEFUN |bpComma| () - (OR (|bpModule|) (|bpImport|) (|bpNamespace|) (|bpTuple| #'|bpWhere|))) +(DEFUN |bpComma| () (OR (|bpModule|) (|bpImport|) (|bpTuple| #'|bpWhere|))) (DEFUN |bpTuple| (|p|) (|bpListofFun| |p| #'|bpCommaBackSet| #'|bfTuple|)) diff --git a/src/boot/strap/tokens.clisp b/src/boot/strap/tokens.clisp index 12192b72..ba4e28a2 100644 --- a/src/boot/strap/tokens.clisp +++ b/src/boot/strap/tokens.clisp @@ -160,7 +160,7 @@ (LIST '|strconc| "") (LIST 'CONCAT "") (LIST 'MAX (- 999999)) (LIST 'MIN 999999) (LIST '* 1) (LIST '|times| 1) (LIST 'CONS NIL) (LIST '|append| NIL) (LIST '|append!| NIL) (LIST 'UNION NIL) - (LIST 'UNIONQ NIL) (LIST '|union| NIL) (LIST '|and| T) + (LIST '|setUnion| NIL) (LIST '|union| NIL) (LIST '|and| T) (LIST '|or| NIL) (LIST 'AND T) (LIST 'OR NIL))) (|i| NIL)) (LOOP @@ -176,7 +176,7 @@ (LIST '|alphanumeric?| 'ALPHANUMERICP) (LIST '|and| 'AND) (LIST '|apply| 'APPLY) (LIST '|array?| 'ARRAYP) (LIST '|arrayRef| 'AREF) (LIST '|atom| 'ATOM) - (LIST '|bitmask| 'SBIT) (LIST '|canonicalFilename| 'PROBE-FILE) + (LIST '|bitref| 'SBIT) (LIST '|canonicalFilename| 'PROBE-FILE) (LIST '|charByName| 'NAME-CHAR) (LIST '|charDowncase| 'CHAR-DOWNCASE) (LIST '|charEq?| 'CHAR=) (LIST '|charUpcase| 'CHAR-UPCASE) (LIST '|charString| 'STRING) @@ -201,8 +201,7 @@ (LIST '|readOnly?| 'CONSTANTP) (LIST '|removeDuplicates| 'REMDUP) (LIST '|rest| 'CDR) (LIST '|sameObject?| 'EQ) (LIST '|scalarEq?| 'EQL) (LIST '|scalarEqual?| 'EQL) - (LIST '|second| 'CADR) (LIST '|setIntersection| 'INTERSECTION) - (LIST '|setPart| 'SETELT) (LIST '|setUnion| 'UNION) + (LIST '|second| 'CADR) (LIST '|setPart| 'SETELT) (LIST '|strconc| 'CONCAT) (LIST '|stringChar| 'SCHAR) (LIST '|stringDowncase| 'STRING-DOWNCASE) (LIST '|string?| 'STRINGP) (LIST '|stringEq?| 'STRING=) diff --git a/src/boot/strap/translator.clisp b/src/boot/strap/translator.clisp index 4ab03112..95ad05d9 100644 --- a/src/boot/strap/translator.clisp +++ b/src/boot/strap/translator.clisp @@ -565,8 +565,49 @@ (COND ((NULL |ns|) NIL) (T (LIST (|inAllContexts| (LIST 'EXPORT (|quote| |ns|))))))) +(DEFUN |packageBody| (|x| |p|) + (PROG (|user| |ns| |ISTMP#3| |ISTMP#2| |ISTMP#1|) + (RETURN + (COND + ((AND (CONSP |x|) (EQ (CAR |x|) '|%Import|) + (PROGN + (SETQ |ISTMP#1| (CDR |x|)) + (AND (CONSP |ISTMP#1|) (NULL (CDR |ISTMP#1|)) + (PROGN + (SETQ |ISTMP#2| (CAR |ISTMP#1|)) + (AND (CONSP |ISTMP#2|) (EQ (CAR |ISTMP#2|) '|%Namespace|) + (PROGN + (SETQ |ISTMP#3| (CDR |ISTMP#2|)) + (AND (CONSP |ISTMP#3|) (NULL (CDR |ISTMP#3|)) + (PROGN (SETQ |ns| (CAR |ISTMP#3|)) T)))))))) + (SETQ |user| (COND ((NULL |p|) NIL) (T (LIST (SYMBOL-NAME |p|))))) + (COND + ((EQ |ns| '|System|) + (LIST 'COND + (LIST (LIST '|%hasFeature| :COMMON-LISP) + (CONS 'USE-PACKAGE (CONS "COMMON-LISP" |user|))) + (LIST 'T (CONS 'USE-PACKAGE (CONS "LISP" |user|))))) + (T (CONS 'USE-PACKAGE (CONS (SYMBOL-NAME |ns|) |user|))))) + ((AND (CONSP |x|) (EQ (CAR |x|) 'PROGN)) + (CONS (CAR |x|) + (LET ((|bfVar#2| NIL) + (|bfVar#3| NIL) + (|bfVar#1| (CDR |x|)) + (|y| NIL)) + (LOOP + (COND + ((OR (NOT (CONSP |bfVar#1|)) + (PROGN (SETQ |y| (CAR |bfVar#1|)) NIL)) + (RETURN |bfVar#2|)) + ((NULL |bfVar#2|) + (SETQ |bfVar#2| #1=(CONS (|packageBody| |y| |p|) NIL)) + (SETQ |bfVar#3| |bfVar#2|)) + (T (RPLACD |bfVar#3| #1#) (SETQ |bfVar#3| (CDR |bfVar#3|)))) + (SETQ |bfVar#1| (CDR |bfVar#1|)))))) + (T |x|))))) + (DEFUN |translateToplevel| (|b| |export?|) - (PROG (|lhs| |t| |ISTMP#2| |sig| |n| |ISTMP#1| |xs|) + (PROG (|lhs| |t| |ISTMP#2| |sig| |def| |ns| |n| |ISTMP#1| |xs|) (DECLARE (SPECIAL |$currentModuleName| |$foreignsDefsForCLisp| |$constantIdentifiers| |$InteractiveMode| |$activeNamespace|)) @@ -621,8 +662,7 @@ (SETQ |ISTMP#1| (CDR |m|)) (AND (CONSP |ISTMP#1|) (NULL (CDR |ISTMP#1|)) (PROGN (SETQ |n| (CAR |ISTMP#1|)) T)))) - (LIST - (|inAllContexts| (LIST 'USE-PACKAGE (SYMBOL-NAME |n|))))) + (LIST (|inAllContexts| (|packageBody| |m| NIL)))) (T (COND ((NOT (STRING= (|getOptionValue| '|import|) "skip")) @@ -636,22 +676,33 @@ (LIST (|genTypeAlias| |lhs| |rhs|)))) (|%ConstantDefinition| (LET ((|lhs| (CADR |b|)) (|rhs| (CADDR |b|))) - (PROGN - (SETQ |sig| NIL) - (COND - ((AND (CONSP |lhs|) (EQ (CAR |lhs|) '|%Signature|) - (PROGN - (SETQ |ISTMP#1| (CDR |lhs|)) - (AND (CONSP |ISTMP#1|) - (PROGN - (SETQ |n| (CAR |ISTMP#1|)) - (SETQ |ISTMP#2| (CDR |ISTMP#1|)) - (AND (CONSP |ISTMP#2|) (NULL (CDR |ISTMP#2|)) - (PROGN (SETQ |t| (CAR |ISTMP#2|)) T)))))) - (SETQ |sig| (|genDeclaration| |n| |t|)) (SETQ |lhs| |n|))) - (SETQ |$constantIdentifiers| - (CONS |lhs| |$constantIdentifiers|)) - (LIST (LIST 'DEFCONSTANT |lhs| |rhs|))))) + (COND + ((AND (CONSP |lhs|) (EQ (CAR |lhs|) '|%Namespace|) + (PROGN + (SETQ |ISTMP#1| (CDR |lhs|)) + (AND (CONSP |ISTMP#1|) (NULL (CDR |ISTMP#1|)) + (PROGN (SETQ |ns| (CAR |ISTMP#1|)) T)))) + (SETQ |def| + (LIST 'UNLESS + (LIST 'FIND-PACKAGE (SYMBOL-NAME |ns|)) + (LIST 'MAKE-PACKAGE (SYMBOL-NAME |ns|)))) + (LIST (|inAllContexts| |def|) + (|inAllContexts| (|packageBody| |rhs| |ns|)))) + (T (SETQ |sig| NIL) + (COND + ((AND (CONSP |lhs|) (EQ (CAR |lhs|) '|%Signature|) + (PROGN + (SETQ |ISTMP#1| (CDR |lhs|)) + (AND (CONSP |ISTMP#1|) + (PROGN + (SETQ |n| (CAR |ISTMP#1|)) + (SETQ |ISTMP#2| (CDR |ISTMP#1|)) + (AND (CONSP |ISTMP#2|) (NULL (CDR |ISTMP#2|)) + (PROGN (SETQ |t| (CAR |ISTMP#2|)) T)))))) + (SETQ |sig| (|genDeclaration| |n| |t|)) (SETQ |lhs| |n|))) + (SETQ |$constantIdentifiers| + (CONS |lhs| |$constantIdentifiers|)) + (LIST (LIST 'DEFCONSTANT |lhs| |rhs|)))))) (|%Assignment| (LET ((|lhs| (CADR |b|)) (|rhs| (CADDR |b|))) (PROGN diff --git a/src/boot/strap/utility.clisp b/src/boot/strap/utility.clisp index a4c6aa61..7137a1c6 100644 --- a/src/boot/strap/utility.clisp +++ b/src/boot/strap/utility.clisp @@ -1,5 +1,14 @@ (PROCLAIM '(OPTIMIZE SPEED)) -(IMPORT-MODULE "initial-env") +(EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL :EXECUTE) + (UNLESS (FIND-PACKAGE #1="BOOTTRAN") (MAKE-PACKAGE #1#))) + +(EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL :EXECUTE) + (PROGN + (COND + ((|%hasFeature| :COMMON-LISP) + (USE-PACKAGE "COMMON-LISP" . #1=(#2="BOOTTRAN"))) + (T (USE-PACKAGE "LISP" . #1#))) + (USE-PACKAGE "AxiomCore" #2#))) (IN-PACKAGE "BOOTTRAN") @@ -10,9 +19,9 @@ '(|objectMember?| |symbolMember?| |stringMember?| |charMember?| |scalarMember?| |listMember?| |reverse| |reverse!| |lastNode| |append| |append!| |copyList| |substitute| - |substitute!| |setDifference| |applySubst| |applySubst!| - |applySubstNQ| |remove| |removeSymbol| |atomic?| - |finishLine| |subStringMatch?|))) + |substitute!| |setDifference| |setUnion| |setIntersection| + |applySubst| |applySubst!| |applySubstNQ| |remove| + |removeSymbol| |atomic?| |finishLine|))) (DECLAIM (FTYPE (FUNCTION (|%Thing| |%Thing| |%Thing|) |%Thing|) |substitute|)) @@ -39,6 +48,18 @@ (DECLAIM (FTYPE (FUNCTION ((|%List| |%Thing|) |%Thing|) (|%List| |%Thing|)) |remove|)) +(DECLAIM + (FTYPE (FUNCTION ((|%List| |%Thing|) (|%List| |%Thing|)) (|%List| |%Thing|)) + |setDifference|)) + +(DECLAIM + (FTYPE (FUNCTION ((|%List| |%Thing|) (|%List| |%Thing|)) (|%List| |%Thing|)) + |setUnion|)) + +(DECLAIM + (FTYPE (FUNCTION ((|%List| |%Thing|) (|%List| |%Thing|)) (|%List| |%Thing|)) + |setIntersection|)) + (DECLAIM (FTYPE (FUNCTION (|%Thing|) |%Boolean|) |atomic?|)) (DECLAIM (FTYPE (FUNCTION (|%Thing|) |%Void|) |finishLine|)) @@ -51,6 +72,8 @@ (FTYPE (FUNCTION (|%String| |%Short|) (|%Maybe| |%Short|)) |firstBlankPosition|)) +(|%defaultReadAndLoadSettings|) + (DEFUN |atomic?| (|x|) (OR (NOT (CONSP |x|)) (EQ (CAR |x|) 'QUOTE))) (DEFUN |objectMember?| (|x| |l|) @@ -224,6 +247,41 @@ (SETQ |bfVar#1| (CDR |bfVar#1|)))) (CDR |l|)))))) +(DEFUN |setUnion| (|x| |y|) + (PROG (|z|) + (RETURN + (PROGN + (SETQ |z| NIL) + (LET ((|bfVar#1| |x|) (|a| NIL)) + (LOOP + (COND + ((OR (NOT (CONSP |bfVar#1|)) (PROGN (SETQ |a| (CAR |bfVar#1|)) NIL)) + (RETURN NIL)) + (T (AND (NOT (|objectMember?| |a| |z|)) (SETQ |z| (CONS |a| |z|))))) + (SETQ |bfVar#1| (CDR |bfVar#1|)))) + (LET ((|bfVar#2| |y|) (|a| NIL)) + (LOOP + (COND + ((OR (NOT (CONSP |bfVar#2|)) (PROGN (SETQ |a| (CAR |bfVar#2|)) NIL)) + (RETURN NIL)) + (T (AND (NOT (|objectMember?| |a| |z|)) (SETQ |z| (CONS |a| |z|))))) + (SETQ |bfVar#2| (CDR |bfVar#2|)))) + (|reverse!| |z|))))) + +(DEFUN |setIntersection| (|x| |y|) + (LET ((|bfVar#2| NIL) (|bfVar#3| NIL) (|bfVar#1| |x|) (|a| NIL)) + (LOOP + (COND + ((OR (NOT (CONSP |bfVar#1|)) (PROGN (SETQ |a| (CAR |bfVar#1|)) NIL)) + (RETURN |bfVar#2|)) + (T + (AND (|objectMember?| |a| |y|) + (COND + ((NULL |bfVar#2|) (SETQ |bfVar#2| #1=(CONS |a| NIL)) + (SETQ |bfVar#3| |bfVar#2|)) + (T (RPLACD |bfVar#3| #1#) (SETQ |bfVar#3| (CDR |bfVar#3|))))))) + (SETQ |bfVar#1| (CDR |bfVar#1|))))) + (DEFUN |removeSymbol| (|l| |x|) (PROG (|y| |LETTMP#1| |l'| |before|) (RETURN diff --git a/src/boot/tokens.boot b/src/boot/tokens.boot index e39cee89..2bacc64c 100644 --- a/src/boot/tokens.boot +++ b/src/boot/tokens.boot @@ -166,10 +166,10 @@ shoeDict:=shoeDictCons() shoePunCons()== a := makeBitVector 256 for i in 0..255 repeat - bitmask(a,i) := 0 + bitref(a,i) := 0 for [k,:.] in entries shoeKeyTable repeat shoeStartsId stringChar(k,0) => nil - bitmask(a,codePoint stringChar(k,0)) := 1 + bitref(a,codePoint stringChar(k,0)) := 1 a shoePun:=shoePunCons() @@ -224,7 +224,7 @@ for i in [ _ ["append", nil] , _ ["append!", nil] , _ ["UNION", nil] , _ - ["UNIONQ", nil] , _ + ["setUnion", nil] , _ ["union", nil] , _ ["and", true] , _ ["or", false] , _ @@ -244,7 +244,7 @@ for i in [ _ ["array?", "ARRAYP"] , _ ["arrayRef", "AREF"] , _ ["atom", "ATOM"] , _ - ["bitmask", "SBIT"] , _ + ["bitref", "SBIT"] , _ ["canonicalFilename", "PROBE-FILE"], _ ["charByName", "NAME-CHAR"] , _ ["charDowncase", "CHAR-DOWNCASE"], _ @@ -297,9 +297,7 @@ for i in [ _ ["scalarEq?", "EQL" ] , _ ["scalarEqual?","EQL" ] , _ ["second", "CADR"] , _ - ["setIntersection", "INTERSECTION"] , _ ["setPart", "SETELT"] , _ - ["setUnion", "UNION"] , _ ["strconc", "CONCAT"] , _ ["stringChar", "SCHAR"] , _ ["stringDowncase", "STRING-DOWNCASE"] , _ diff --git a/src/boot/translator.boot b/src/boot/translator.boot index 35db495f..2ff8870c 100644 --- a/src/boot/translator.boot +++ b/src/boot/translator.boot @@ -419,6 +419,19 @@ exportNames ns == ns = nil => nil [inAllContexts ["EXPORT",quote ns]] +packageBody(x,p) == + x is ['%Import,['%Namespace,ns]] => + user := + p = nil => nil + [symbolName p] + ns is 'System => + ['COND, + [['%hasFeature,KEYWORD::COMMON_-LISP],['USE_-PACKAGE,'"COMMON-LISP",:user]], + ['T,['USE_-PACKAGE,'"LISP",:user]]] + ['USE_-PACKAGE,symbolName ns,:user] + x is ['PROGN,:.] => [x.op,:[packageBody(y,p) for y in x.args]] + x + translateToplevel(b,export?) == b isnt [.,:.] => [b] -- generally happens in interactive mode. b is ["TUPLE",:xs] => coreError '"invalid AST" @@ -433,8 +446,7 @@ translateToplevel(b,export?) == :[first translateToplevel(d,true) for d in ds]] %Import(m) => - m is ['%Namespace,n] => - [inAllContexts ["USE-PACKAGE",symbolName n]] + m is ['%Namespace,n] => [inAllContexts packageBody(m,nil)] if getOptionValue "import" ~= '"skip" then bootImport symbolName m [["IMPORT-MODULE", symbolName m]] @@ -445,6 +457,10 @@ translateToplevel(b,export?) == %TypeAlias(lhs, rhs) => [genTypeAlias(lhs,rhs)] %ConstantDefinition(lhs,rhs) => + lhs is ['%Namespace,ns] => + def := ['UNLESS,['FIND_-PACKAGE,symbolName ns], + ['MAKE_-PACKAGE,symbolName ns]] + [inAllContexts def,inAllContexts packageBody(rhs,ns)] sig := nil if lhs is ["%Signature",n,t] then sig := genDeclaration(n,t) diff --git a/src/boot/utility.boot b/src/boot/utility.boot index 5e620d82..4d4d5961 100644 --- a/src/boot/utility.boot +++ b/src/boot/utility.boot @@ -37,14 +37,18 @@ --% by the Boot translator. Others are handy library functions. --% -import initial_-env +namespace BOOTTRAN == + import namespace System + import namespace AxiomCore + namespace BOOTTRAN module utility (objectMember?, symbolMember?, stringMember?, charMember?, scalarMember?, listMember?, reverse, reverse!, lastNode, append, append!, copyList, substitute, substitute!, - setDifference, applySubst, applySubst!, applySubstNQ, - remove,removeSymbol,atomic?,finishLine,subStringMatch?) where + setDifference, setUnion, setIntersection, + applySubst, applySubst!, applySubstNQ, + remove,removeSymbol,atomic?,finishLine) where substitute: (%Thing,%Thing,%Thing) -> %Thing substitute!: (%Thing,%Thing,%Thing) -> %Thing append: (%List %Thing,%List %Thing) -> %List %Thing @@ -53,11 +57,16 @@ module utility (objectMember?, symbolMember?, stringMember?, lastNode: %List %Thing -> %Maybe %Node %Thing removeSymbol: (%List %Thing, %Symbol) -> %List %Thing remove: (%List %Thing, %Thing) -> %List %Thing + setDifference: (%List %Thing,%List %Thing) -> %List %Thing + setUnion: (%List %Thing,%List %Thing) -> %List %Thing + setIntersection: (%List %Thing,%List %Thing) -> %List %Thing atomic?: %Thing -> %Boolean finishLine: %Thing -> %Void firstNonblankPosition: (%String,%Short) -> %Maybe %Short firstBlankPosition: (%String,%Short) -> %Maybe %Short +%defaultReadAndLoadSettings() + --% ++ Return true if `x' is an atom of a quotation. @@ -233,6 +242,19 @@ setDifference(x,y) == p := rest p rest l +++ Return the union of two lists of objects, with no duplicates. +setUnion(x,y) == + z := nil + for a in x | not objectMember?(a,z) repeat + z := [a,:z] + for a in y | not objectMember?(a,z) repeat + z := [a,:z] + reverse! z + +++ Return the intersection of two lists of objects, with no duplicates. +setIntersection(x,y) == + [a for a in x | objectMember?(a,y)] + --% removal removeSymbol(l,x) == diff --git a/src/interp/br-data.boot b/src/interp/br-data.boot index 5c9ba63b..33cd85a4 100644 --- a/src/interp/br-data.boot +++ b/src/interp/br-data.boot @@ -766,7 +766,7 @@ extendLocalLibdb conlist == -- called by compileSpad2Cmd not $createLocalLibDb => nil null conlist => nil buildLibdb conlist --> puts datafile into temp.text - $newConstructorList := union(conlist, $newConstructorList) + $newConstructorList := setUnion(conlist, $newConstructorList) localLibdb := '"libdb.text" not PROBE_-FILE '"libdb.text" => RENAME_-FILE('"temp.text",'"libdb.text") diff --git a/src/interp/br-saturn.boot b/src/interp/br-saturn.boot index a06b0f8f..9fad03b0 100644 --- a/src/interp/br-saturn.boot +++ b/src/interp/br-saturn.boot @@ -1241,7 +1241,7 @@ displayDomainOp(htPage,which,origin,op,sig,predicate, which = '"attribute" or which = '"constructor" => sig $conkind ~= '"package" => sig symbolsUsed := [x for x in rest conform | ident? x] - $DomainList := SETDIFFERENCE($DomainList,symbolsUsed) + $DomainList := setDifference($DomainList,symbolsUsed) getSubstSigIfPossible sig ----------------------------------------------------------- htSaySaturn '"\begin{tabular}{lp{0in}}" diff --git a/src/interp/c-util.boot b/src/interp/c-util.boot index 62defa25..c5131859 100644 --- a/src/interp/c-util.boot +++ b/src/interp/c-util.boot @@ -416,9 +416,9 @@ intersectionContour(c,c') == computeIntersection(c,c') == varlist:= removeDuplicates ASSOCLEFT c varlist':= removeDuplicates ASSOCLEFT c' - interVars:= intersection(varlist,varlist') - unionVars:= union(varlist,varlist') - diffVars:= setDifference(unionVars,interVars) + interVars := setIntersection(varlist,varlist') + unionVars := setUnion(varlist,varlist') + diffVars := setDifference(unionVars,interVars) modeAssoc:= buildModeAssoc(diffVars,c,c') [:modeAssoc,: [[x,:proplist] diff --git a/src/interp/cattable.boot b/src/interp/cattable.boot index 9a4e4d2d..7e225cc6 100644 --- a/src/interp/cattable.boot +++ b/src/interp/cattable.boot @@ -63,7 +63,7 @@ genCategoryTable() == [addDomainToTable(con,getConstrCat getConstructorCategory con) for con in allConstructors() | getConstructorKindFromDB con is "domain"] -- $nonLisplibDomains, $noCategoryDomains are set in BUILDOM BOOT - specialDs := SETDIFFERENCE($nonLisplibDomains,$noCategoryDomains) + specialDs := setDifference($nonLisplibDomains,$noCategoryDomains) domainTable:= [:[addDomainToTable(id, getConstrCat eval([id]).3) for id in specialDs], :domainTable] for [id,:entry] in domainTable repeat diff --git a/src/interp/compiler.boot b/src/interp/compiler.boot index 1a4aa55a..519f31dd 100644 --- a/src/interp/compiler.boot +++ b/src/interp/compiler.boot @@ -264,12 +264,12 @@ freeVarUsage([.,vars,body],env) == op := u.op op in '(QUOTE GO function) => free op = "LAMBDA" => - bound := UNIONQ(bound, second u) + bound := setUnion(bound, second u) for v in CDDR u repeat free := freeList(v,bound,free,e) free op = "PROG" => - bound := UNIONQ(bound, second u) + bound := setUnion(bound, second u) for v in CDDR u | cons? v repeat free := freeList(v,bound,free,e) free diff --git a/src/interp/database.boot b/src/interp/database.boot index c4a42992..bee544b0 100644 --- a/src/interp/database.boot +++ b/src/interp/database.boot @@ -307,13 +307,13 @@ orderPredTran(oldList,sig,skip) == --pp lastPreds --(2a) lastDependList=list of all variables that lastPred forms depend upon - lastDependList := "UNIONQ"/[listOfPatternIds x for x in lastPreds] + lastDependList := setUnion/[listOfPatternIds x for x in lastPreds] --sayBrightlyNT "lastDependList=" --pp lastDependList --(2b) dependList=list of all variables that isDom/ofCat forms depend upon dependList := - "UNIONQ"/[listOfPatternIds y for x in oldList | + setUnion/[listOfPatternIds y for x in oldList | x is ['isDomain,.,y] or x is ['ofCategory,.,y]] --sayBrightlyNT "dependList=" --pp dependList @@ -326,8 +326,8 @@ orderPredTran(oldList,sig,skip) == else indepvl := listOfPatternIds x depvl := nil - (INTERSECTIONQ(indepvl,dependList) = nil) - and INTERSECTIONQ(indepvl,lastDependList) => + setIntersection(indepvl,dependList) = nil + and setIntersection(indepvl,lastDependList) => somethingDone := true lastPreds := [:lastPreds,x] oldList := remove(oldList,x) @@ -346,7 +346,7 @@ orderPredTran(oldList,sig,skip) == else indepvl := listOfPatternIds x depvl := nil - (INTERSECTIONQ(indepvl,dependList) = nil) => + setIntersection(indepvl,dependList) = nil => dependList := setDifference(dependList,depvl) newList := [:newList,x] -- sayBrightlyNT "newList=" @@ -365,14 +365,14 @@ orderPredTran(oldList,sig,skip) == if pred is ['isDomain,x,y] or x is ['ofCategory,x,y] then ids:= listOfPatternIds y if "and"/[symbolMember?(id,fullDependList) for id in ids] then - fullDependList:= insertWOC(x,fullDependList) - fullDependList:= UNIONQ(fullDependList,ids) + fullDependList := insertWOC(x,fullDependList) + fullDependList := setUnion(fullDependList,ids) newList:=[:newList,:lastPreds] --substitute (isDomain ..) forms as completely as possible to avoid false paths newList := isDomainSubst newList - answer := [['AND,:newList],:INTERSECTIONQ(fullDependList,sig)] + answer := [['AND,:newList],:setIntersection(fullDependList,sig)] --sayBrightlyNT '"answer=" --pp answer diff --git a/src/interp/define.boot b/src/interp/define.boot index 96db10dc..2b3c9ab1 100644 --- a/src/interp/define.boot +++ b/src/interp/define.boot @@ -968,7 +968,7 @@ mkCategoryPackage(form is [op,:argl],cat,def) == abbreviationsSpad2Cmd ['package,packageAbb,packageName] -- This is a little odd, but the parser insists on calling -- domains, rather than packages - nameForDollar := first SETDIFFERENCE('(S A B C D E F G H I),argl) + nameForDollar := first setDifference('(S A B C D E F G H I),argl) packageArgl := [nameForDollar,:argl] capsuleDefAlist := fn(def,nil) where fn(x,oplist) == x isnt [.,:.] => oplist @@ -1654,7 +1654,7 @@ compDefWhereClause(['DEF,form,signature,specialCases,body],m,e) == argDepAlist := [[x,:dependencies] for [x,:y] in argSigAlist] where dependencies() == - union(listOfIdentifiersIn y, + setUnion(listOfIdentifiersIn y, remove(listOfIdentifiersIn LASSOC(x,$predAlist),x)) argSigAlist := [:$sigAlist,:pairList(argList,sigList)] @@ -1681,7 +1681,7 @@ orderByDependency(vl,dl) == fatalError => userError '"Parameter specification error" until vl = nil repeat newl:= - [v for v in vl for d in dl | null intersection(d,vl)] or return nil + [v for v in vl for d in dl | setIntersection(d,vl) = nil] or return nil orderedVarList:= [:newl,:orderedVarList] vl' := setDifference(vl,newl) dl' := [setDifference(d,newl) for x in vl for d in dl diff --git a/src/interp/format.boot b/src/interp/format.boot index cc3d5309..c368f164 100644 --- a/src/interp/format.boot +++ b/src/interp/format.boot @@ -81,7 +81,7 @@ displayTranModemap (mm is [[x,:sig],[pred,:y],:z]) == listOfPredOfTypePatternIds p == p is ['AND,:lp] or p is ['OR,:lp] => - UNIONQ([:listOfPredOfTypePatternIds p1 for p1 in lp],nil) + setUnion([:listOfPredOfTypePatternIds p1 for p1 in lp],nil) p is [op,a,.] and op = 'ofType => isPatternVar a => [a] nil diff --git a/src/interp/g-opt.boot b/src/interp/g-opt.boot index 958a1f6a..38ad55b6 100644 --- a/src/interp/g-opt.boot +++ b/src/interp/g-opt.boot @@ -506,7 +506,7 @@ findVMFreeVars form == op is "QUOTE" => nil vars := union/[findVMFreeVars arg for arg in args] op isnt [.,:.] => vars - union(findVMFreeVars op,vars) + setUnion(findVMFreeVars op,vars) ++ Return true is `var' is the left hand side of an assignment ++ in `form'. diff --git a/src/interp/g-util.boot b/src/interp/g-util.boot index 67d2efb2..43cc0bef 100644 --- a/src/interp/g-util.boot +++ b/src/interp/g-util.boot @@ -581,13 +581,13 @@ freeOfSharpVars x == listOfSharpVars x == x isnt [.,:.] => (isSharpVarWithNum x => [x]; nil) - union(listOfSharpVars first x,listOfSharpVars rest x) + setUnion(listOfSharpVars first x,listOfSharpVars rest x) listOfPatternIds x == isPatternVar x => [x] x isnt [.,:.] => nil x is ['QUOTE,:.] => nil - UNIONQ(listOfPatternIds first x,listOfPatternIds rest x) + setUnion(listOfPatternIds first x,listOfPatternIds rest x) isPatternVar v == -- a pattern variable consists of a star followed by a star or digit(s) diff --git a/src/interp/i-coerfn.boot b/src/interp/i-coerfn.boot index a8409b09..eba7c9c4 100644 --- a/src/interp/i-coerfn.boot +++ b/src/interp/i-coerfn.boot @@ -65,7 +65,7 @@ Dmp2Dmp(u,source is [dmp,v1,S], target is [.,v2,T]) == u is [[e,:c]] and e = vector [0 for v in v1] => z:= coerceInt(objNewWrap(c,S),target) => objValUnwrap(z) coercionFailure() - v:= intersection(v1,v2) => + v := intersection(v1,v2) => w1:= SETDIFFERENCE(v1,v) => coerceDmp1(u,source,target,v,w1) coerceDmp2(u,source,target) diff --git a/src/interp/i-map.boot b/src/interp/i-map.boot index 75312782..45049109 100644 --- a/src/interp/i-map.boot +++ b/src/interp/i-map.boot @@ -386,7 +386,7 @@ clearDep1(x,toDoList,doneList,depList) == a:= ASSQ(x,depList) a => depList := remove(depList,a) - toDoList := union(toDoList, + toDoList := setUnion(toDoList, setDifference(rest a,doneList)) toDoList is [a,:res] => clearDep1(a,res,newDone,depList) 'done diff --git a/src/interp/i-syscmd.boot b/src/interp/i-syscmd.boot index 9c5696af..09b1b3e1 100644 --- a/src/interp/i-syscmd.boot +++ b/src/interp/i-syscmd.boot @@ -824,7 +824,7 @@ displayWorkspaceNames() == if null names then sayBrightly " * None *" else sayAsManyPerLineAsPossible [object2String x for x in names] - imacs := SETDIFFERENCE(imacs,pmacs) + imacs := setDifference(imacs,pmacs) if imacs then sayMessage '"Names of System-Defined Objects in the Workspace:" sayAsManyPerLineAsPossible [object2String x for x in imacs] diff --git a/src/interp/scan.boot b/src/interp/scan.boot index 331cac7a..3f55284f 100644 --- a/src/interp/scan.boot +++ b/src/interp/scan.boot @@ -193,10 +193,10 @@ scanDict:=scanDictCons() scanPunCons()== a := makeBitVector 256 for i in 0..255 repeat - bitmask(a,i) := 0 + bitref(a,i) := 0 for [k,:.] in entries scanKeyTable repeat if not startsId? stringChar(k,0) then - bitmask(a,codePoint stringChar(k,0)) := 1 + bitref(a,codePoint stringChar(k,0)) := 1 a scanPun:=scanPunCons() diff --git a/src/interp/sys-macros.lisp b/src/interp/sys-macros.lisp index 65777a4d..10357fdc 100644 --- a/src/interp/sys-macros.lisp +++ b/src/interp/sys-macros.lisp @@ -752,7 +752,7 @@ (APPEND NIL) (|append| NIL) (UNION NIL) - (UNIONQ NIL) + (|setUnion| NIL) (|gcd| (|Zero|)) (|union| NIL) (|append!| NIL) diff --git a/src/interp/topics.boot b/src/interp/topics.boot index 31c4bfb2..191606aa 100644 --- a/src/interp/topics.boot +++ b/src/interp/topics.boot @@ -161,7 +161,7 @@ topicCode lst == u := [y for x in lst] where y() == rename := LASSOC(x,$topicSynonyms) => rename x - if null intersection('(basic extended hidden),u) then u := ['extended,:u] + if setIntersection('(basic extended hidden),u) = nil then u := ['extended,:u] bitIndexList := nil for x in removeDuplicates u repeat bitIndexList := [fn x,:bitIndexList] where fn x == diff --git a/src/interp/trace.boot b/src/interp/trace.boot index 9d079469..5e2e92d4 100644 --- a/src/interp/trace.boot +++ b/src/interp/trace.boot @@ -365,7 +365,7 @@ getMapSubNames(l) == for mapName in l repeat lmm:= get(mapName,'localModemap,$InteractiveFrame) => subs:= append([[mapName,:second mm] for mm in lmm],subs) - union(subs,getPreviousMapSubNames UNIONQ(_/TRACENAMES, + setUnion(subs,getPreviousMapSubNames setUnion(_/TRACENAMES, $lastUntraced)) getPreviousMapSubNames(traceNames) == @@ -411,7 +411,7 @@ untraceMapSubNames traceNames == for name in (subs:= ASSOCRIGHT $mapSubNameAlist) | symbolMember?(name,_/TRACENAMES) repeat _/UNTRACE_,2(name,nil) - $lastUntraced:= SETDIFFERENCE($lastUntraced,subs) + $lastUntraced := setDifference($lastUntraced,subs) funfind("functor","opname") == ops:= isFunctor functor @@ -528,7 +528,7 @@ untraceDomainLocalOps(dom,lops) == untraceAllDomainLocalOps(dom) == nil -- abb := abbreviate dom -- actualLops := getLocalOpsFromLisplib abb --- null (l := intersection(actualLops,_/TRACENAMES)) => nil +-- null (l := setIntersection(actualLops,_/TRACENAMES)) => nil -- _/UNTRACE_,1(l,nil) -- nil @@ -772,7 +772,7 @@ tracelet(fn,vars) == fn = 'Undef => nil vars:= vars="all" => "all" - l:= LASSOC(fn,$letAssoc) => union(vars,l) + l:= LASSOC(fn,$letAssoc) => setUnion(vars,l) vars $letAssoc:= [[fn,:vars],:$letAssoc] if $letAssoc then SETLETPRINTFLAG true @@ -792,7 +792,7 @@ breaklet(fn,vars) == fn = "Undef" => nil fnEntry:= LASSOC(fn,$letAssoc) vars:= - pair := symbolLassoc("BREAK",fnEntry) => union(vars,rest pair) + pair := symbolLassoc("BREAK",fnEntry) => setUnion(vars,rest pair) vars $letAssoc:= null fnEntry => [[fn,:[["BREAK",:vars]]],:$letAssoc] diff --git a/src/interp/union.lisp b/src/interp/union.lisp index 955cd4c4..67b99855 100644 --- a/src/interp/union.lisp +++ b/src/interp/union.lisp @@ -55,25 +55,6 @@ (QRPLACD V (SETQ V (CONS I NIL))) ) ) (GO LP) ) ) -(DEFUN INTERSECTIONQ (LIST-OF-ITEMS-1 LIST-OF-ITEMS-2) - (PROG (I H V) - (SETQ V (SETQ H (CONS NIL NIL))) - (COND - ( (NOT (LISTP LIST-OF-ITEMS-1)) - (SETQ LIST-OF-ITEMS-1 (LIST LIST-OF-ITEMS-1)) ) ) - (COND - ( (NOT (LISTP LIST-OF-ITEMS-2)) - (SETQ LIST-OF-ITEMS-2 (LIST LIST-OF-ITEMS-2)) ) ) - LP (COND - ( (NOT (CONSP LIST-OF-ITEMS-1)) - (RETURN (QCDR H)) ) - ( (|symbolMember?| - (SETQ I (QCAR (RESETQ LIST-OF-ITEMS-1 (QCDR LIST-OF-ITEMS-1)))) - (QCDR H)) ) - ( (|symbolMember?| I LIST-OF-ITEMS-2) - (QRPLACD V (SETQ V (CONS I NIL))) ) ) - (GO LP) ) ) - (DEFUN |union| (LIST-OF-ITEMS-1 LIST-OF-ITEMS-2) (PROG (I H V) (SETQ H (SETQ V (CONS NIL NIL))) @@ -97,29 +78,6 @@ (QRPLACD V (SETQ V (CONS I NIL))) ) ) (GO LP1) ) ) -(DEFUN UNIONQ (LIST-OF-ITEMS-1 LIST-OF-ITEMS-2) - (PROG (I H V) - (SETQ H (SETQ V (CONS NIL NIL))) - (COND - ( (NOT (LISTP LIST-OF-ITEMS-1)) - (SETQ LIST-OF-ITEMS-1 (LIST LIST-OF-ITEMS-1)) ) ) - (COND - ( (NOT (LISTP LIST-OF-ITEMS-2)) - (SETQ LIST-OF-ITEMS-2 (LIST LIST-OF-ITEMS-2)) ) ) - LP1 (COND - ( (NOT (CONSP LIST-OF-ITEMS-1)) - (COND - ( (CONSP LIST-OF-ITEMS-2) - (SETQ LIST-OF-ITEMS-1 (RESETQ LIST-OF-ITEMS-2 NIL)) ) - ( 'T - (RETURN (QCDR H)) ) ) ) - ( (NOT - (|symbolMember?| - (SETQ I (QCAR (RESETQ LIST-OF-ITEMS-1 (QCDR LIST-OF-ITEMS-1)))) - (QCDR H))) - (QRPLACD V (SETQ V (CONS I NIL))) ) ) - (GO LP1) ) ) - (DEFUN SETDIFFERENCE (LIST-OF-ITEMS-1 LIST-OF-ITEMS-2) (PROG (I H V) (SETQ H (SETQ V (CONS NIL NIL))) @@ -138,22 +96,3 @@ ( (NOT (|member| I LIST-OF-ITEMS-2)) (QRPLACD V (SETQ V (CONS I NIL))) ) ) (GO LP1) ) ) - -(DEFUN SETDIFFERENCEQ (LIST-OF-ITEMS-1 LIST-OF-ITEMS-2) - (PROG (I H V) - (SETQ H (SETQ V (CONS NIL NIL))) - (COND - ( (NOT (LISTP LIST-OF-ITEMS-1)) - (SETQ LIST-OF-ITEMS-1 (LIST LIST-OF-ITEMS-1)) ) ) - (COND - ( (NOT (LISTP LIST-OF-ITEMS-2)) - (SETQ LIST-OF-ITEMS-2 (LIST LIST-OF-ITEMS-2)) ) ) - LP1 (COND - ( (NOT (CONSP LIST-OF-ITEMS-1)) - (RETURN (QCDR H)) ) - ( (|symbolMember?| - (SETQ I (QCAR (RESETQ LIST-OF-ITEMS-1 (QCDR LIST-OF-ITEMS-1)))) - (QCDR H)) ) - ( (NOT (|symbolMember?| I LIST-OF-ITEMS-2)) - (QRPLACD V (SETQ V (CONS I NIL))) ) ) - (GO LP1) ) ) diff --git a/src/interp/vmlisp.lisp b/src/interp/vmlisp.lisp index 24e904c1..ab04002a 100644 --- a/src/interp/vmlisp.lisp +++ b/src/interp/vmlisp.lisp @@ -722,14 +722,6 @@ (defun VEC2LIST (vec) (coerce vec 'list)) -; note default test for union, intersection and set-difference is eql -;; following are defined so as to preserve ordering in union.lisp -;;(defun SETDIFFERENCE (l1 l2) (set-difference l1 l2 :test #'equalp)) -;;(defun SETDIFFERENCEQ (l1 l2) (set-difference l1 l2 :test #'eq)) -;;(defun |union| (l1 l2) (union l1 l2 :test #'equalp)) -;;(defun UNIONQ (l1 l2) (union l1 l2 :test #'eq)) -;;(defun |intersection| (l1 l2) (intersection l1 l2 :test #'equalp)) -;;(defun INTERSECTIONQ (l1 l2) (intersection l1 l2 :test #'eq)) (defun |member| (item sequence) (cond ((symbolp item) (member item sequence :test #'eq)) ((stringp item) (member item sequence :test #'equal)) diff --git a/src/lisp/core.lisp.in b/src/lisp/core.lisp.in index 3ecb6c48..e4f632c9 100644 --- a/src/lisp/core.lisp.in +++ b/src/lisp/core.lisp.in @@ -146,6 +146,7 @@ "%algebraSystemIsComplete" "%nothing" "%escapeSequenceAverseHost?" + "%defaultReadAndLoadSettings" "$hostPlatform" "$buildPlatform" @@ -427,6 +428,12 @@ (or (member :win32 *features*) (member :windows *features*))) +;; Some default settings +(defmacro |%defaultReadAndLoadSettings| () + `(eval-when (:compile-toplevel :load-toplevel :execute) + (progn + (setq *read-default-float-format* 'double-float) + (setq *load-verbose* nil)))) (defconstant |$EditorProgram| "@oa_editor@") diff --git a/src/share/algebra/browse.daase b/src/share/algebra/browse.daase index 83134acf..96a82b69 100644 --- a/src/share/algebra/browse.daase +++ b/src/share/algebra/browse.daase @@ -1,5 +1,5 @@ -(2005181 . 3525500984) +(2005181 . 3526439783) (-18 A S) ((|constructor| (NIL "One-dimensional-array aggregates serves as models for one-dimensional arrays. Categorically,{} these aggregates are finite linear aggregates with the \\spadatt{shallowlyMutable} property,{} that is,{} any component of the array may be changed without affecting the identity of the overall array. Array data structures are typically represented by a fixed area in storage and therefore cannot efficiently grow or shrink on demand as can list structures (see however \\spadtype{FlexibleArray} for a data structure which is a cross between a list and an array). Iteration over,{} and access to,{} elements of arrays is extremely fast (and often can be optimized to open-code). Insertion and deletion however is generally slow since an entirely new data structure must be created for the result."))) NIL diff --git a/src/share/algebra/category.daase b/src/share/algebra/category.daase index a0a0e03c..f7f4b1b4 100644 --- a/src/share/algebra/category.daase +++ b/src/share/algebra/category.daase @@ -1,5 +1,5 @@ -(198677 . 3525500987) +(198677 . 3526439786) ((((-765)) . T)) ((((-765)) . T)) ((((-765)) . T)) diff --git a/src/share/algebra/compress.daase b/src/share/algebra/compress.daase index 52675c3a..17dcd040 100644 --- a/src/share/algebra/compress.daase +++ b/src/share/algebra/compress.daase @@ -1,5 +1,5 @@ -(30 . 3525500983) +(30 . 3526439782) (3982 |Enumeration| |Mapping| |Record| |Union| |ofCategory| |isDomain| ATTRIBUTE |package| |domain| |category| CATEGORY |nobranch| AND |Join| |ofType| SIGNATURE "failed" "algebra" |OneDimensionalArrayAggregate&| diff --git a/src/share/algebra/interp.daase b/src/share/algebra/interp.daase index adcb6b6a..526720cd 100644 --- a/src/share/algebra/interp.daase +++ b/src/share/algebra/interp.daase @@ -1,5 +1,5 @@ -(2797595 . 3525500994) +(2797595 . 3526439791) ((-1719 (((-83) (-1 (-83) |#2| |#2|) $) 86 T ELT) (((-83) $) NIL T ELT)) (-1717 (($ (-1 (-83) |#2| |#2|) $) 18 T ELT) (($ $) NIL T ELT)) (-3772 ((|#2| $ (-478) |#2|) NIL T ELT) ((|#2| $ (-1135 (-478)) |#2|) 44 T ELT)) (-2283 (($ $) 80 T ELT)) (-3826 ((|#2| (-1 |#2| |#2| |#2|) $ |#2| |#2|) 52 T ELT) ((|#2| (-1 |#2| |#2| |#2|) $ |#2|) 50 T ELT) ((|#2| (-1 |#2| |#2| |#2|) $) 49 T ELT)) (-3403 (((-478) (-1 (-83) |#2|) $) 27 T ELT) (((-478) |#2| $) NIL T ELT) (((-478) |#2| $ (-478)) 96 T ELT)) (-2873 (((-578 |#2|) $) 13 T ELT)) (-3502 (($ (-1 (-83) |#2| |#2|) $ $) 64 T ELT) (($ $ $) NIL T ELT)) (-1936 (($ (-1 |#2| |#2|) $) 37 T ELT)) (-3942 (($ (-1 |#2| |#2|) $) NIL T ELT) (($ (-1 |#2| |#2| |#2|) $ $) 60 T ELT)) (-2290 (($ |#2| $ (-478)) NIL T ELT) (($ $ $ (-478)) 67 T ELT)) (-1341 (((-3 |#2| "failed") (-1 (-83) |#2|) $) 29 T ELT)) (-1934 (((-83) (-1 (-83) |#2|) $) 23 T ELT)) (-3784 ((|#2| $ (-478) |#2|) NIL T ELT) ((|#2| $ (-478)) NIL T ELT) (($ $ (-1135 (-478))) 66 T ELT)) (-2291 (($ $ (-478)) 76 T ELT) (($ $ (-1135 (-478))) 75 T ELT)) (-1933 (((-687) (-1 (-83) |#2|) $) 34 T ELT) (((-687) |#2| $) NIL T ELT)) (-1718 (($ $ $ (-478)) 69 T ELT)) (-3384 (($ $) 68 T ELT)) (-3514 (($ (-578 |#2|)) 73 T ELT)) (-3786 (($ $ |#2|) NIL T ELT) (($ |#2| $) NIL T ELT) (($ $ $) 87 T ELT) (($ (-578 $)) 85 T ELT)) (-3930 (((-765) $) 92 T ELT)) (-1935 (((-83) (-1 (-83) |#2|) $) 22 T ELT)) (-3037 (((-83) $ $) 95 T ELT)) (-2669 (((-83) $ $) 99 T ELT))) (((-18 |#1| |#2|) (-10 -7 (-15 -3037 ((-83) |#1| |#1|)) (-15 -3930 ((-765) |#1|)) (-15 -2669 ((-83) |#1| |#1|)) (-15 -1717 (|#1| |#1|)) (-15 -1717 (|#1| (-1 (-83) |#2| |#2|) |#1|)) (-15 -2283 (|#1| |#1|)) (-15 -1718 (|#1| |#1| |#1| (-478))) (-15 -1719 ((-83) |#1|)) (-15 -3502 (|#1| |#1| |#1|)) (-15 -3403 ((-478) |#2| |#1| (-478))) (-15 -3403 ((-478) |#2| |#1|)) (-15 -3403 ((-478) (-1 (-83) |#2|) |#1|)) (-15 -1719 ((-83) (-1 (-83) |#2| |#2|) |#1|)) (-15 -3502 (|#1| (-1 (-83) |#2| |#2|) |#1| |#1|)) (-15 -3772 (|#2| |#1| (-1135 (-478)) |#2|)) (-15 -2290 (|#1| |#1| |#1| (-478))) (-15 -2290 (|#1| |#2| |#1| (-478))) (-15 -2291 (|#1| |#1| (-1135 (-478)))) (-15 -2291 (|#1| |#1| (-478))) (-15 -3942 (|#1| (-1 |#2| |#2| |#2|) |#1| |#1|)) (-15 -3786 (|#1| (-578 |#1|))) (-15 -3786 (|#1| |#1| |#1|)) (-15 -3786 (|#1| |#2| |#1|)) (-15 -3786 (|#1| |#1| |#2|)) (-15 -3784 (|#1| |#1| (-1135 (-478)))) (-15 -3514 (|#1| (-578 |#2|))) (-15 -1341 ((-3 |#2| "failed") (-1 (-83) |#2|) |#1|)) (-15 -3826 (|#2| (-1 |#2| |#2| |#2|) |#1|)) (-15 -3826 (|#2| (-1 |#2| |#2| |#2|) |#1| |#2|)) (-15 -3826 (|#2| (-1 |#2| |#2| |#2|) |#1| |#2| |#2|)) (-15 -3784 (|#2| |#1| (-478))) (-15 -3784 (|#2| |#1| (-478) |#2|)) (-15 -3772 (|#2| |#1| (-478) |#2|)) (-15 -1933 ((-687) |#2| |#1|)) (-15 -2873 ((-578 |#2|) |#1|)) (-15 -1933 ((-687) (-1 (-83) |#2|) |#1|)) (-15 -1934 ((-83) (-1 (-83) |#2|) |#1|)) (-15 -1935 ((-83) (-1 (-83) |#2|) |#1|)) (-15 -1936 (|#1| (-1 |#2| |#2|) |#1|)) (-15 -3942 (|#1| (-1 |#2| |#2|) |#1|)) (-15 -3384 (|#1| |#1|))) (-19 |#2|) (-1118)) (T -18)) NIL @@ -857,7 +857,7 @@ NIL ((-2995 (((-2 (|:| -2387 (-687)) (|:| -3938 |#1|) (|:| |radicand| (-578 |#1|))) (-341 |#1|) (-687)) 35 T ELT)) (-3926 (((-578 (-2 (|:| -3938 (-687)) (|:| |logand| |#1|))) (-341 |#1|)) 40 T ELT))) (((-267 |#1|) (-10 -7 (-15 -2995 ((-2 (|:| -2387 (-687)) (|:| -3938 |#1|) (|:| |radicand| (-578 |#1|))) (-341 |#1|) (-687))) (-15 -3926 ((-578 (-2 (|:| -3938 (-687)) (|:| |logand| |#1|))) (-341 |#1|)))) (-489)) (T -267)) ((-3926 (*1 *2 *3) (-12 (-5 *3 (-341 *4)) (-4 *4 (-489)) (-5 *2 (-578 (-2 (|:| -3938 (-687)) (|:| |logand| *4)))) (-5 *1 (-267 *4)))) (-2995 (*1 *2 *3 *4) (-12 (-5 *3 (-341 *5)) (-4 *5 (-489)) (-5 *2 (-2 (|:| -2387 (-687)) (|:| -3938 *5) (|:| |radicand| (-578 *5)))) (-5 *1 (-267 *5)) (-5 *4 (-687))))) -((-3065 (((-578 |#2|) (-1074 |#4|)) 44 T ELT)) (-1606 ((|#3| (-478)) 47 T ELT)) (-1604 (((-1074 |#4|) (-1074 |#3|)) 30 T ELT)) (-1605 (((-1074 |#4|) (-1074 |#4|) (-478)) 66 T ELT)) (-1603 (((-1074 |#3|) (-1074 |#4|)) 21 T ELT)) (-3932 (((-578 (-687)) (-1074 |#4|) (-578 |#2|)) 41 T ELT)) (-1602 (((-1074 |#3|) (-1074 |#4|) (-578 |#2|) (-578 |#3|)) 35 T ELT))) +((-3065 (((-578 |#2|) (-1074 |#4|)) 45 T ELT)) (-1606 ((|#3| (-478)) 48 T ELT)) (-1604 (((-1074 |#4|) (-1074 |#3|)) 30 T ELT)) (-1605 (((-1074 |#4|) (-1074 |#4|) (-478)) 67 T ELT)) (-1603 (((-1074 |#3|) (-1074 |#4|)) 21 T ELT)) (-3932 (((-578 (-687)) (-1074 |#4|) (-578 |#2|)) 41 T ELT)) (-1602 (((-1074 |#3|) (-1074 |#4|) (-578 |#2|) (-578 |#3|)) 35 T ELT))) (((-268 |#1| |#2| |#3| |#4|) (-10 -7 (-15 -1602 ((-1074 |#3|) (-1074 |#4|) (-578 |#2|) (-578 |#3|))) (-15 -3932 ((-578 (-687)) (-1074 |#4|) (-578 |#2|))) (-15 -3065 ((-578 |#2|) (-1074 |#4|))) (-15 -1603 ((-1074 |#3|) (-1074 |#4|))) (-15 -1604 ((-1074 |#4|) (-1074 |#3|))) (-15 -1605 ((-1074 |#4|) (-1074 |#4|) (-478))) (-15 -1606 (|#3| (-478)))) (-710) (-749) (-954) (-854 |#3| |#1| |#2|)) (T -268)) ((-1606 (*1 *2 *3) (-12 (-5 *3 (-478)) (-4 *4 (-710)) (-4 *5 (-749)) (-4 *2 (-954)) (-5 *1 (-268 *4 *5 *2 *6)) (-4 *6 (-854 *2 *4 *5)))) (-1605 (*1 *2 *2 *3) (-12 (-5 *2 (-1074 *7)) (-5 *3 (-478)) (-4 *7 (-854 *6 *4 *5)) (-4 *4 (-710)) (-4 *5 (-749)) (-4 *6 (-954)) (-5 *1 (-268 *4 *5 *6 *7)))) (-1604 (*1 *2 *3) (-12 (-5 *3 (-1074 *6)) (-4 *6 (-954)) (-4 *4 (-710)) (-4 *5 (-749)) (-5 *2 (-1074 *7)) (-5 *1 (-268 *4 *5 *6 *7)) (-4 *7 (-854 *6 *4 *5)))) (-1603 (*1 *2 *3) (-12 (-5 *3 (-1074 *7)) (-4 *7 (-854 *6 *4 *5)) (-4 *4 (-710)) (-4 *5 (-749)) (-4 *6 (-954)) (-5 *2 (-1074 *6)) (-5 *1 (-268 *4 *5 *6 *7)))) (-3065 (*1 *2 *3) (-12 (-5 *3 (-1074 *7)) (-4 *7 (-854 *6 *4 *5)) (-4 *4 (-710)) (-4 *5 (-749)) (-4 *6 (-954)) (-5 *2 (-578 *5)) (-5 *1 (-268 *4 *5 *6 *7)))) (-3932 (*1 *2 *3 *4) (-12 (-5 *3 (-1074 *8)) (-5 *4 (-578 *6)) (-4 *6 (-749)) (-4 *8 (-854 *7 *5 *6)) (-4 *5 (-710)) (-4 *7 (-954)) (-5 *2 (-578 (-687))) (-5 *1 (-268 *5 *6 *7 *8)))) (-1602 (*1 *2 *3 *4 *5) (-12 (-5 *3 (-1074 *9)) (-5 *4 (-578 *7)) (-5 *5 (-578 *8)) (-4 *7 (-749)) (-4 *8 (-954)) (-4 *9 (-854 *8 *6 *7)) (-4 *6 (-710)) (-5 *2 (-1074 *8)) (-5 *1 (-268 *6 *7 *8 *9))))) ((-2552 (((-83) $ $) NIL T ELT)) (-3171 (((-83) $) 19 T ELT)) (-3758 (((-578 (-2 (|:| |gen| |#1|) (|:| -3927 (-478)))) $) 21 T ELT)) (-1299 (((-3 $ #1="failed") $ $) NIL T ELT)) (-3119 (((-687) $) NIL T ELT)) (-3708 (($) NIL T CONST)) (-3140 (((-3 |#1| #1#) $) NIL T ELT)) (-3139 ((|#1| $) NIL T ELT)) (-2285 ((|#1| $ (-478)) NIL T ELT)) (-1609 (((-478) $ (-478)) NIL T ELT)) (-2515 (($ $ $) NIL (|has| |#1| (-749)) ELT)) (-2841 (($ $ $) NIL (|has| |#1| (-749)) ELT)) (-2276 (($ (-1 |#1| |#1|) $) NIL T ELT)) (-1608 (($ (-1 (-478) (-478)) $) 11 T ELT)) (-3225 (((-1062) $) NIL T ELT)) (-1607 (($ $ $) NIL (|has| (-478) (-709)) ELT)) (-3226 (((-1023) $) NIL T ELT)) (-3930 (((-765) $) NIL T ELT) (($ |#1|) NIL T ELT)) (-3661 (((-478) |#1| $) NIL T ELT)) (-1253 (((-83) $ $) NIL T ELT)) (-2644 (($) NIL T CONST)) (-2550 (((-83) $ $) NIL (|has| |#1| (-749)) ELT)) (-2551 (((-83) $ $) NIL (|has| |#1| (-749)) ELT)) (-3037 (((-83) $ $) NIL T ELT)) (-2668 (((-83) $ $) NIL (|has| |#1| (-749)) ELT)) (-2669 (((-83) $ $) 30 (|has| |#1| (-749)) ELT)) (-3821 (($ $) 12 T ELT) (($ $ $) 29 T ELT)) (-3823 (($ $ $) NIL T ELT) (($ |#1| $) NIL T ELT)) (* (($ (-823) $) NIL T ELT) (($ (-687) $) NIL T ELT) (($ (-478) $) NIL T ELT) (($ $ (-478)) NIL T ELT) (($ (-478) |#1|) 28 T ELT))) @@ -1055,10 +1055,10 @@ NIL ((-2552 (((-83) $ $) NIL T ELT)) (-3171 (((-83) $) 16 T ELT)) (-3112 (((-478) $) 44 T ELT)) (-2050 (((-2 (|:| -1759 $) (|:| -3966 $) (|:| |associate| $)) $) NIL T ELT)) (-2049 (($ $) NIL T ELT)) (-2047 (((-83) $) NIL T ELT)) (-3755 (($ $) 120 T ELT)) (-3476 (($ $) 81 T ELT)) (-3623 (($ $) 72 T ELT)) (-1299 (((-3 $ #1="failed") $ $) NIL T ELT)) (-3759 (($ $) NIL T ELT)) (-3955 (((-341 $) $) NIL T ELT)) (-3021 (($ $) 28 T ELT)) (-1595 (((-83) $ $) NIL T ELT)) (-3474 (($ $) 79 T ELT)) (-3622 (($ $) 67 T ELT)) (-3607 (((-478) $) 60 T ELT)) (-2425 (($ $ (-478)) 55 T ELT)) (-3478 (($ $) NIL T ELT)) (-3621 (($ $) NIL T ELT)) (-3708 (($) NIL T CONST)) (-3110 (($ $) 122 T ELT)) (-3140 (((-3 (-478) #1#) $) 217 T ELT) (((-3 (-343 (-478)) #1#) $) 213 T ELT)) (-3139 (((-478) $) 215 T ELT) (((-343 (-478)) $) 211 T ELT)) (-2548 (($ $ $) NIL T ELT)) (-1732 (((-478) $ $) 110 T ELT)) (-3451 (((-3 $ #1#) $) 125 T ELT)) (-1731 (((-343 (-478)) $ (-687)) 218 T ELT) (((-343 (-478)) $ (-687) (-687)) 210 T ELT)) (-2547 (($ $ $) NIL T ELT)) (-2725 (((-2 (|:| -3938 (-578 $)) (|:| -2395 $)) (-578 $)) NIL T ELT)) (-3707 (((-83) $) NIL T ELT)) (-1755 (((-823)) 106 T ELT) (((-823) (-823)) 107 (|has| $ (-6 -3970)) ELT)) (-3169 (((-83) $) 38 T ELT)) (-3611 (($) 22 T ELT)) (-2780 (((-791 (-323) $) $ (-793 (-323)) (-791 (-323) $)) NIL T ELT)) (-1724 (((-1174) (-687)) 177 T ELT)) (-1725 (((-1174)) 182 T ELT) (((-1174) (-687)) 183 T ELT)) (-1727 (((-1174)) 184 T ELT) (((-1174) (-687)) 185 T ELT)) (-1726 (((-1174)) 180 T ELT) (((-1174) (-687)) 181 T ELT)) (-3756 (((-478) $) 50 T ELT)) (-2396 (((-83) $) 21 T ELT)) (-2995 (($ $ (-478)) NIL T ELT)) (-2427 (($ $) 32 T ELT)) (-3115 (($ $) NIL T ELT)) (-3170 (((-83) $) 18 T ELT)) (-1592 (((-3 (-578 $) #1#) (-578 $) $) NIL T ELT)) (-2515 (($ $ $) NIL T ELT) (($) NIL (-12 (-2544 (|has| $ (-6 -3962))) (-2544 (|has| $ (-6 -3970)))) ELT)) (-2841 (($ $ $) NIL T ELT) (($) NIL (-12 (-2544 (|has| $ (-6 -3962))) (-2544 (|has| $ (-6 -3970)))) ELT)) (-1757 (((-478) $) 112 T ELT)) (-1730 (($) 90 T ELT) (($ $) 97 T ELT)) (-1729 (($) 96 T ELT) (($ $) 98 T ELT)) (-3926 (($ $) 84 T ELT)) (-1878 (($ $ $) NIL T ELT) (($ (-578 $)) NIL T ELT)) (-3225 (((-1062) $) NIL T ELT)) (-2468 (($ $) 127 T ELT)) (-1754 (((-823) (-478)) 27 (|has| $ (-6 -3970)) ELT)) (-3226 (((-1023) $) NIL T ELT)) (-2692 (((-1074 $) (-1074 $) (-1074 $)) NIL T ELT)) (-3127 (($ $ $) NIL T ELT) (($ (-578 $)) NIL T ELT)) (-3111 (($ $) 41 T ELT)) (-3113 (($ $) 119 T ELT)) (-3237 (($ (-478) (-478)) 115 T ELT) (($ (-478) (-478) (-823)) 116 T ELT)) (-3716 (((-341 $) $) NIL T ELT)) (-1593 (((-2 (|:| |coef1| $) (|:| |coef2| $) (|:| -2395 $)) $ $) NIL T ELT) (((-3 (-2 (|:| |coef1| $) (|:| |coef2| $)) #1#) $ $ $) NIL T ELT)) (-3450 (((-3 $ #1#) $ $) NIL T ELT)) (-2724 (((-627 (-578 $)) (-578 $) $) NIL T ELT)) (-2387 (((-478) $) 113 T ELT)) (-1728 (($) 99 T ELT)) (-3927 (($ $) 78 T ELT)) (-1594 (((-687) $) NIL T ELT)) (-2863 (((-2 (|:| -1960 $) (|:| -2886 $)) $ $) NIL T ELT)) (-2599 (((-823)) 108 T ELT) (((-823) (-823)) 109 (|has| $ (-6 -3970)) ELT)) (-3742 (($ $) 126 T ELT) (($ $ (-687)) NIL T ELT)) (-1753 (((-823) (-478)) 31 (|has| $ (-6 -3970)) ELT)) (-3479 (($ $) NIL T ELT)) (-3620 (($ $) NIL T ELT)) (-3477 (($ $) NIL T ELT)) (-3619 (($ $) NIL T ELT)) (-3475 (($ $) 80 T ELT)) (-3618 (($ $) 71 T ELT)) (-3956 (((-323) $) 202 T ELT) (((-177) $) 204 T ELT) (((-793 (-323)) $) NIL T ELT) (((-1062) $) 188 T ELT) (((-467) $) 200 T ELT) (($ (-177)) 209 T ELT)) (-3930 (((-765) $) 192 T ELT) (($ (-478)) 214 T ELT) (($ $) NIL T ELT) (($ (-343 (-478))) NIL T ELT) (($ (-478)) 214 T ELT) (($ (-343 (-478))) NIL T ELT) (((-177) $) 205 T ELT)) (-3109 (((-687)) NIL T CONST)) (-3114 (($ $) 121 T ELT)) (-1756 (((-823)) 42 T ELT) (((-823) (-823)) 62 (|has| $ (-6 -3970)) ELT)) (-1253 (((-83) $ $) NIL T ELT)) (-2678 (((-823)) 111 T ELT)) (-3482 (($ $) 87 T ELT)) (-3470 (($ $) 30 T ELT) (($ $ $) 40 T ELT)) (-2048 (((-83) $ $) NIL T ELT)) (-3480 (($ $) 85 T ELT)) (-3468 (($ $) 20 T ELT)) (-3484 (($ $) NIL T ELT)) (-3472 (($ $) NIL T ELT)) (-3485 (($ $) NIL T ELT)) (-3473 (($ $) NIL T ELT)) (-3483 (($ $) NIL T ELT)) (-3471 (($ $) NIL T ELT)) (-3481 (($ $) 86 T ELT)) (-3469 (($ $) 33 T ELT)) (-3367 (($ $) 39 T ELT)) (-2644 (($) 17 T CONST)) (-2650 (($) 24 T CONST)) (-2653 (($ $) NIL T ELT) (($ $ (-687)) NIL T ELT)) (-2550 (((-83) $ $) 189 T ELT)) (-2551 (((-83) $ $) 26 T ELT)) (-3037 (((-83) $ $) 37 T ELT)) (-2668 (((-83) $ $) NIL T ELT)) (-2669 (((-83) $ $) 43 T ELT)) (-3933 (($ $ $) 29 T ELT) (($ $ (-478)) 23 T ELT)) (-3821 (($ $) 19 T ELT) (($ $ $) 34 T ELT)) (-3823 (($ $ $) 54 T ELT)) (** (($ $ (-823)) 65 T ELT) (($ $ (-687)) NIL T ELT) (($ $ (-478)) 91 T ELT) (($ $ (-343 (-478))) 137 T ELT) (($ $ $) 129 T ELT)) (* (($ (-823) $) 61 T ELT) (($ (-687) $) NIL T ELT) (($ (-478) $) 66 T ELT) (($ $ $) 53 T ELT) (($ $ (-343 (-478))) NIL T ELT) (($ (-343 (-478)) $) NIL T ELT))) (((-323) (-13 (-340) (-188) (-548 (-1062)) (-547 (-177)) (-1104) (-548 (-467)) (-552 (-177)) (-10 -8 (-15 -3933 ($ $ (-478))) (-15 ** ($ $ $)) (-15 -2427 ($ $)) (-15 -1732 ((-478) $ $)) (-15 -2425 ($ $ (-478))) (-15 -1731 ((-343 (-478)) $ (-687))) (-15 -1731 ((-343 (-478)) $ (-687) (-687))) (-15 -1730 ($)) (-15 -1729 ($)) (-15 -1728 ($)) (-15 -3470 ($ $ $)) (-15 -1730 ($ $)) (-15 -1729 ($ $)) (-15 -1727 ((-1174))) (-15 -1727 ((-1174) (-687))) (-15 -1726 ((-1174))) (-15 -1726 ((-1174) (-687))) (-15 -1725 ((-1174))) (-15 -1725 ((-1174) (-687))) (-15 -1724 ((-1174) (-687))) (-6 -3970) (-6 -3962)))) (T -323)) ((** (*1 *1 *1 *1) (-5 *1 (-323))) (-3933 (*1 *1 *1 *2) (-12 (-5 *2 (-478)) (-5 *1 (-323)))) (-2427 (*1 *1 *1) (-5 *1 (-323))) (-1732 (*1 *2 *1 *1) (-12 (-5 *2 (-478)) (-5 *1 (-323)))) (-2425 (*1 *1 *1 *2) (-12 (-5 *2 (-478)) (-5 *1 (-323)))) (-1731 (*1 *2 *1 *3) (-12 (-5 *3 (-687)) (-5 *2 (-343 (-478))) (-5 *1 (-323)))) (-1731 (*1 *2 *1 *3 *3) (-12 (-5 *3 (-687)) (-5 *2 (-343 (-478))) (-5 *1 (-323)))) (-1730 (*1 *1) (-5 *1 (-323))) (-1729 (*1 *1) (-5 *1 (-323))) (-1728 (*1 *1) (-5 *1 (-323))) (-3470 (*1 *1 *1 *1) (-5 *1 (-323))) (-1730 (*1 *1 *1) (-5 *1 (-323))) (-1729 (*1 *1 *1) (-5 *1 (-323))) (-1727 (*1 *2) (-12 (-5 *2 (-1174)) (-5 *1 (-323)))) (-1727 (*1 *2 *3) (-12 (-5 *3 (-687)) (-5 *2 (-1174)) (-5 *1 (-323)))) (-1726 (*1 *2) (-12 (-5 *2 (-1174)) (-5 *1 (-323)))) (-1726 (*1 *2 *3) (-12 (-5 *3 (-687)) (-5 *2 (-1174)) (-5 *1 (-323)))) (-1725 (*1 *2) (-12 (-5 *2 (-1174)) (-5 *1 (-323)))) (-1725 (*1 *2 *3) (-12 (-5 *3 (-687)) (-5 *2 (-1174)) (-5 *1 (-323)))) (-1724 (*1 *2 *3) (-12 (-5 *3 (-687)) (-5 *2 (-1174)) (-5 *1 (-323))))) -((-1733 (((-578 (-245 (-850 (-140 |#1|)))) (-245 (-343 (-850 (-140 (-478))))) |#1|) 51 T ELT) (((-578 (-245 (-850 (-140 |#1|)))) (-343 (-850 (-140 (-478)))) |#1|) 50 T ELT) (((-578 (-578 (-245 (-850 (-140 |#1|))))) (-578 (-245 (-343 (-850 (-140 (-478)))))) |#1|) 47 T ELT) (((-578 (-578 (-245 (-850 (-140 |#1|))))) (-578 (-343 (-850 (-140 (-478))))) |#1|) 41 T ELT)) (-1734 (((-578 (-578 (-140 |#1|))) (-578 (-343 (-850 (-140 (-478))))) (-578 (-1079)) |#1|) 30 T ELT) (((-578 (-140 |#1|)) (-343 (-850 (-140 (-478)))) |#1|) 18 T ELT))) +((-1733 (((-578 (-245 (-850 (-140 |#1|)))) (-245 (-343 (-850 (-140 (-478))))) |#1|) 52 T ELT) (((-578 (-245 (-850 (-140 |#1|)))) (-343 (-850 (-140 (-478)))) |#1|) 51 T ELT) (((-578 (-578 (-245 (-850 (-140 |#1|))))) (-578 (-245 (-343 (-850 (-140 (-478)))))) |#1|) 48 T ELT) (((-578 (-578 (-245 (-850 (-140 |#1|))))) (-578 (-343 (-850 (-140 (-478))))) |#1|) 42 T ELT)) (-1734 (((-578 (-578 (-140 |#1|))) (-578 (-343 (-850 (-140 (-478))))) (-578 (-1079)) |#1|) 30 T ELT) (((-578 (-140 |#1|)) (-343 (-850 (-140 (-478)))) |#1|) 18 T ELT))) (((-324 |#1|) (-10 -7 (-15 -1733 ((-578 (-578 (-245 (-850 (-140 |#1|))))) (-578 (-343 (-850 (-140 (-478))))) |#1|)) (-15 -1733 ((-578 (-578 (-245 (-850 (-140 |#1|))))) (-578 (-245 (-343 (-850 (-140 (-478)))))) |#1|)) (-15 -1733 ((-578 (-245 (-850 (-140 |#1|)))) (-343 (-850 (-140 (-478)))) |#1|)) (-15 -1733 ((-578 (-245 (-850 (-140 |#1|)))) (-245 (-343 (-850 (-140 (-478))))) |#1|)) (-15 -1734 ((-578 (-140 |#1|)) (-343 (-850 (-140 (-478)))) |#1|)) (-15 -1734 ((-578 (-578 (-140 |#1|))) (-578 (-343 (-850 (-140 (-478))))) (-578 (-1079)) |#1|))) (-13 (-308) (-748))) (T -324)) ((-1734 (*1 *2 *3 *4 *5) (-12 (-5 *3 (-578 (-343 (-850 (-140 (-478)))))) (-5 *4 (-578 (-1079))) (-5 *2 (-578 (-578 (-140 *5)))) (-5 *1 (-324 *5)) (-4 *5 (-13 (-308) (-748))))) (-1734 (*1 *2 *3 *4) (-12 (-5 *3 (-343 (-850 (-140 (-478))))) (-5 *2 (-578 (-140 *4))) (-5 *1 (-324 *4)) (-4 *4 (-13 (-308) (-748))))) (-1733 (*1 *2 *3 *4) (-12 (-5 *3 (-245 (-343 (-850 (-140 (-478)))))) (-5 *2 (-578 (-245 (-850 (-140 *4))))) (-5 *1 (-324 *4)) (-4 *4 (-13 (-308) (-748))))) (-1733 (*1 *2 *3 *4) (-12 (-5 *3 (-343 (-850 (-140 (-478))))) (-5 *2 (-578 (-245 (-850 (-140 *4))))) (-5 *1 (-324 *4)) (-4 *4 (-13 (-308) (-748))))) (-1733 (*1 *2 *3 *4) (-12 (-5 *3 (-578 (-245 (-343 (-850 (-140 (-478))))))) (-5 *2 (-578 (-578 (-245 (-850 (-140 *4)))))) (-5 *1 (-324 *4)) (-4 *4 (-13 (-308) (-748))))) (-1733 (*1 *2 *3 *4) (-12 (-5 *3 (-578 (-343 (-850 (-140 (-478)))))) (-5 *2 (-578 (-578 (-245 (-850 (-140 *4)))))) (-5 *1 (-324 *4)) (-4 *4 (-13 (-308) (-748)))))) -((-3557 (((-578 (-245 (-850 |#1|))) (-245 (-343 (-850 (-478)))) |#1|) 46 T ELT) (((-578 (-245 (-850 |#1|))) (-343 (-850 (-478))) |#1|) 45 T ELT) (((-578 (-578 (-245 (-850 |#1|)))) (-578 (-245 (-343 (-850 (-478))))) |#1|) 42 T ELT) (((-578 (-578 (-245 (-850 |#1|)))) (-578 (-343 (-850 (-478)))) |#1|) 36 T ELT)) (-1735 (((-578 |#1|) (-343 (-850 (-478))) |#1|) 20 T ELT) (((-578 (-578 |#1|)) (-578 (-343 (-850 (-478)))) (-578 (-1079)) |#1|) 30 T ELT))) +((-3557 (((-578 (-245 (-850 |#1|))) (-245 (-343 (-850 (-478)))) |#1|) 47 T ELT) (((-578 (-245 (-850 |#1|))) (-343 (-850 (-478))) |#1|) 46 T ELT) (((-578 (-578 (-245 (-850 |#1|)))) (-578 (-245 (-343 (-850 (-478))))) |#1|) 43 T ELT) (((-578 (-578 (-245 (-850 |#1|)))) (-578 (-343 (-850 (-478)))) |#1|) 37 T ELT)) (-1735 (((-578 |#1|) (-343 (-850 (-478))) |#1|) 20 T ELT) (((-578 (-578 |#1|)) (-578 (-343 (-850 (-478)))) (-578 (-1079)) |#1|) 30 T ELT))) (((-325 |#1|) (-10 -7 (-15 -3557 ((-578 (-578 (-245 (-850 |#1|)))) (-578 (-343 (-850 (-478)))) |#1|)) (-15 -3557 ((-578 (-578 (-245 (-850 |#1|)))) (-578 (-245 (-343 (-850 (-478))))) |#1|)) (-15 -3557 ((-578 (-245 (-850 |#1|))) (-343 (-850 (-478))) |#1|)) (-15 -3557 ((-578 (-245 (-850 |#1|))) (-245 (-343 (-850 (-478)))) |#1|)) (-15 -1735 ((-578 (-578 |#1|)) (-578 (-343 (-850 (-478)))) (-578 (-1079)) |#1|)) (-15 -1735 ((-578 |#1|) (-343 (-850 (-478))) |#1|))) (-13 (-748) (-308))) (T -325)) ((-1735 (*1 *2 *3 *4) (-12 (-5 *3 (-343 (-850 (-478)))) (-5 *2 (-578 *4)) (-5 *1 (-325 *4)) (-4 *4 (-13 (-748) (-308))))) (-1735 (*1 *2 *3 *4 *5) (-12 (-5 *3 (-578 (-343 (-850 (-478))))) (-5 *4 (-578 (-1079))) (-5 *2 (-578 (-578 *5))) (-5 *1 (-325 *5)) (-4 *5 (-13 (-748) (-308))))) (-3557 (*1 *2 *3 *4) (-12 (-5 *3 (-245 (-343 (-850 (-478))))) (-5 *2 (-578 (-245 (-850 *4)))) (-5 *1 (-325 *4)) (-4 *4 (-13 (-748) (-308))))) (-3557 (*1 *2 *3 *4) (-12 (-5 *3 (-343 (-850 (-478)))) (-5 *2 (-578 (-245 (-850 *4)))) (-5 *1 (-325 *4)) (-4 *4 (-13 (-748) (-308))))) (-3557 (*1 *2 *3 *4) (-12 (-5 *3 (-578 (-245 (-343 (-850 (-478)))))) (-5 *2 (-578 (-578 (-245 (-850 *4))))) (-5 *1 (-325 *4)) (-4 *4 (-13 (-748) (-308))))) (-3557 (*1 *2 *3 *4) (-12 (-5 *3 (-578 (-343 (-850 (-478))))) (-5 *2 (-578 (-578 (-245 (-850 *4))))) (-5 *1 (-325 *4)) (-4 *4 (-13 (-748) (-308)))))) ((-2552 (((-83) $ $) NIL T ELT)) (-3171 (((-83) $) NIL T ELT)) (-3758 (((-578 (-775 |#2| |#1|)) $) NIL T ELT)) (-1299 (((-3 $ "failed") $ $) NIL T ELT)) (-3708 (($) NIL T CONST)) (-3943 (($ $) NIL T ELT)) (-2877 (($ |#1| |#2|) NIL T ELT)) (-3942 (($ (-1 |#1| |#1|) $) NIL T ELT)) (-1971 ((|#2| $) NIL T ELT)) (-3157 ((|#1| $) NIL T ELT)) (-3225 (((-1062) $) NIL T ELT)) (-3226 (((-1023) $) NIL T ELT)) (-3930 (((-765) $) 33 T ELT)) (-1253 (((-83) $ $) NIL T ELT)) (-2644 (($) 12 T CONST)) (-3037 (((-83) $ $) NIL T ELT)) (-3821 (($ $) NIL T ELT) (($ $ $) NIL T ELT)) (-3823 (($ $ $) NIL T ELT)) (* (($ (-823) $) NIL T ELT) (($ (-687) $) NIL T ELT) (($ (-478) $) NIL T ELT) (($ |#1| $) 15 T ELT) (($ $ |#1|) 18 T ELT))) @@ -1429,10 +1429,10 @@ NIL ((-3725 (((-2 (|:| |num| |#3|) (|:| |den| |#1|)) |#4|) 19 T ELT)) (-3723 ((|#1| |#4|) 10 T ELT)) (-3724 ((|#3| |#4|) 17 T ELT))) (((-436 |#1| |#2| |#3| |#4|) (-10 -7 (-15 -3723 (|#1| |#4|)) (-15 -3724 (|#3| |#4|)) (-15 -3725 ((-2 (|:| |num| |#3|) (|:| |den| |#1|)) |#4|))) (-489) (-897 |#1|) (-317 |#1|) (-317 |#2|)) (T -436)) ((-3725 (*1 *2 *3) (-12 (-4 *4 (-489)) (-4 *5 (-897 *4)) (-5 *2 (-2 (|:| |num| *6) (|:| |den| *4))) (-5 *1 (-436 *4 *5 *6 *3)) (-4 *6 (-317 *4)) (-4 *3 (-317 *5)))) (-3724 (*1 *2 *3) (-12 (-4 *4 (-489)) (-4 *5 (-897 *4)) (-4 *2 (-317 *4)) (-5 *1 (-436 *4 *5 *2 *3)) (-4 *3 (-317 *5)))) (-3723 (*1 *2 *3) (-12 (-4 *4 (-897 *2)) (-4 *2 (-489)) (-5 *1 (-436 *2 *4 *5 *3)) (-4 *5 (-317 *2)) (-4 *3 (-317 *4))))) -((-2552 (((-83) $ $) NIL T ELT)) (-1961 (((-83) $ (-578 |#3|)) 126 T ELT) (((-83) $) 127 T ELT)) (-3171 (((-83) $) 177 T ELT)) (-1953 (($ $ |#4|) 117 T ELT) (($ $ |#4| (-578 |#3|)) 121 T ELT)) (-1952 (((-1069 (-578 (-850 |#1|)) (-578 (-245 (-850 |#1|)))) (-578 |#4|)) 170 (|has| |#3| (-548 (-1079))) ELT)) (-1960 (($ $ $) 107 T ELT) (($ $ |#4|) 105 T ELT)) (-2396 (((-83) $) 176 T ELT)) (-1957 (($ $) 131 T ELT)) (-3225 (((-1062) $) NIL T ELT)) (-3221 (($ $ $) 99 T ELT) (($ (-578 $)) 101 T ELT)) (-1962 (((-83) |#4| $) 129 T ELT)) (-1963 (((-83) $ $) 82 T ELT)) (-1956 (($ (-578 |#4|)) 106 T ELT)) (-3226 (((-1023) $) NIL T ELT)) (-1955 (($ (-578 |#4|)) 174 T ELT)) (-1954 (((-83) $) 175 T ELT)) (-2237 (($ $) 85 T ELT)) (-2679 (((-578 |#4|) $) 73 T ELT)) (-1959 (((-2 (|:| |mval| (-625 |#1|)) (|:| |invmval| (-625 |#1|)) (|:| |genIdeal| $)) $ (-578 |#3|)) NIL T ELT)) (-1964 (((-83) |#4| $) 89 T ELT)) (-3895 (((-478) $ (-578 |#3|)) 133 T ELT) (((-478) $) 134 T ELT)) (-3930 (((-765) $) 173 T ELT) (($ (-578 |#4|)) 102 T ELT)) (-1253 (((-83) $ $) NIL T ELT)) (-1958 (($ (-2 (|:| |mval| (-625 |#1|)) (|:| |invmval| (-625 |#1|)) (|:| |genIdeal| $))) NIL T ELT)) (-3037 (((-83) $ $) 84 T ELT)) (-3823 (($ $ $) 109 T ELT)) (** (($ $ (-687)) 115 T ELT)) (* (($ $ $) 113 T ELT))) +((-2552 (((-83) $ $) NIL T ELT)) (-1961 (((-83) $ (-578 |#3|)) 127 T ELT) (((-83) $) 128 T ELT)) (-3171 (((-83) $) 178 T ELT)) (-1953 (($ $ |#4|) 117 T ELT) (($ $ |#4| (-578 |#3|)) 122 T ELT)) (-1952 (((-1069 (-578 (-850 |#1|)) (-578 (-245 (-850 |#1|)))) (-578 |#4|)) 171 (|has| |#3| (-548 (-1079))) ELT)) (-1960 (($ $ $) 107 T ELT) (($ $ |#4|) 105 T ELT)) (-2396 (((-83) $) 177 T ELT)) (-1957 (($ $) 132 T ELT)) (-3225 (((-1062) $) NIL T ELT)) (-3221 (($ $ $) 99 T ELT) (($ (-578 $)) 101 T ELT)) (-1962 (((-83) |#4| $) 130 T ELT)) (-1963 (((-83) $ $) 82 T ELT)) (-1956 (($ (-578 |#4|)) 106 T ELT)) (-3226 (((-1023) $) NIL T ELT)) (-1955 (($ (-578 |#4|)) 175 T ELT)) (-1954 (((-83) $) 176 T ELT)) (-2237 (($ $) 85 T ELT)) (-2679 (((-578 |#4|) $) 73 T ELT)) (-1959 (((-2 (|:| |mval| (-625 |#1|)) (|:| |invmval| (-625 |#1|)) (|:| |genIdeal| $)) $ (-578 |#3|)) NIL T ELT)) (-1964 (((-83) |#4| $) 89 T ELT)) (-3895 (((-478) $ (-578 |#3|)) 134 T ELT) (((-478) $) 135 T ELT)) (-3930 (((-765) $) 174 T ELT) (($ (-578 |#4|)) 102 T ELT)) (-1253 (((-83) $ $) NIL T ELT)) (-1958 (($ (-2 (|:| |mval| (-625 |#1|)) (|:| |invmval| (-625 |#1|)) (|:| |genIdeal| $))) NIL T ELT)) (-3037 (((-83) $ $) 84 T ELT)) (-3823 (($ $ $) 109 T ELT)) (** (($ $ (-687)) 115 T ELT)) (* (($ $ $) 113 T ELT))) (((-437 |#1| |#2| |#3| |#4|) (-13 (-1005) (-10 -7 (-15 * ($ $ $)) (-15 ** ($ $ (-687))) (-15 -3823 ($ $ $)) (-15 -2396 ((-83) $)) (-15 -3171 ((-83) $)) (-15 -1964 ((-83) |#4| $)) (-15 -1963 ((-83) $ $)) (-15 -1962 ((-83) |#4| $)) (-15 -1961 ((-83) $ (-578 |#3|))) (-15 -1961 ((-83) $)) (-15 -3221 ($ $ $)) (-15 -3221 ($ (-578 $))) (-15 -1960 ($ $ $)) (-15 -1960 ($ $ |#4|)) (-15 -2237 ($ $)) (-15 -1959 ((-2 (|:| |mval| (-625 |#1|)) (|:| |invmval| (-625 |#1|)) (|:| |genIdeal| $)) $ (-578 |#3|))) (-15 -1958 ($ (-2 (|:| |mval| (-625 |#1|)) (|:| |invmval| (-625 |#1|)) (|:| |genIdeal| $)))) (-15 -3895 ((-478) $ (-578 |#3|))) (-15 -3895 ((-478) $)) (-15 -1957 ($ $)) (-15 -1956 ($ (-578 |#4|))) (-15 -1955 ($ (-578 |#4|))) (-15 -1954 ((-83) $)) (-15 -2679 ((-578 |#4|) $)) (-15 -3930 ($ (-578 |#4|))) (-15 -1953 ($ $ |#4|)) (-15 -1953 ($ $ |#4| (-578 |#3|))) (IF (|has| |#3| (-548 (-1079))) (-15 -1952 ((-1069 (-578 (-850 |#1|)) (-578 (-245 (-850 |#1|)))) (-578 |#4|))) |%noBranch|))) (-308) (-710) (-749) (-854 |#1| |#2| |#3|)) (T -437)) ((* (*1 *1 *1 *1) (-12 (-4 *2 (-308)) (-4 *3 (-710)) (-4 *4 (-749)) (-5 *1 (-437 *2 *3 *4 *5)) (-4 *5 (-854 *2 *3 *4)))) (** (*1 *1 *1 *2) (-12 (-5 *2 (-687)) (-4 *3 (-308)) (-4 *4 (-710)) (-4 *5 (-749)) (-5 *1 (-437 *3 *4 *5 *6)) (-4 *6 (-854 *3 *4 *5)))) (-3823 (*1 *1 *1 *1) (-12 (-4 *2 (-308)) (-4 *3 (-710)) (-4 *4 (-749)) (-5 *1 (-437 *2 *3 *4 *5)) (-4 *5 (-854 *2 *3 *4)))) (-2396 (*1 *2 *1) (-12 (-4 *3 (-308)) (-4 *4 (-710)) (-4 *5 (-749)) (-5 *2 (-83)) (-5 *1 (-437 *3 *4 *5 *6)) (-4 *6 (-854 *3 *4 *5)))) (-3171 (*1 *2 *1) (-12 (-4 *3 (-308)) (-4 *4 (-710)) (-4 *5 (-749)) (-5 *2 (-83)) (-5 *1 (-437 *3 *4 *5 *6)) (-4 *6 (-854 *3 *4 *5)))) (-1964 (*1 *2 *3 *1) (-12 (-4 *4 (-308)) (-4 *5 (-710)) (-4 *6 (-749)) (-5 *2 (-83)) (-5 *1 (-437 *4 *5 *6 *3)) (-4 *3 (-854 *4 *5 *6)))) (-1963 (*1 *2 *1 *1) (-12 (-4 *3 (-308)) (-4 *4 (-710)) (-4 *5 (-749)) (-5 *2 (-83)) (-5 *1 (-437 *3 *4 *5 *6)) (-4 *6 (-854 *3 *4 *5)))) (-1962 (*1 *2 *3 *1) (-12 (-4 *4 (-308)) (-4 *5 (-710)) (-4 *6 (-749)) (-5 *2 (-83)) (-5 *1 (-437 *4 *5 *6 *3)) (-4 *3 (-854 *4 *5 *6)))) (-1961 (*1 *2 *1 *3) (-12 (-5 *3 (-578 *6)) (-4 *6 (-749)) (-4 *4 (-308)) (-4 *5 (-710)) (-5 *2 (-83)) (-5 *1 (-437 *4 *5 *6 *7)) (-4 *7 (-854 *4 *5 *6)))) (-1961 (*1 *2 *1) (-12 (-4 *3 (-308)) (-4 *4 (-710)) (-4 *5 (-749)) (-5 *2 (-83)) (-5 *1 (-437 *3 *4 *5 *6)) (-4 *6 (-854 *3 *4 *5)))) (-3221 (*1 *1 *1 *1) (-12 (-4 *2 (-308)) (-4 *3 (-710)) (-4 *4 (-749)) (-5 *1 (-437 *2 *3 *4 *5)) (-4 *5 (-854 *2 *3 *4)))) (-3221 (*1 *1 *2) (-12 (-5 *2 (-578 (-437 *3 *4 *5 *6))) (-4 *3 (-308)) (-4 *4 (-710)) (-4 *5 (-749)) (-5 *1 (-437 *3 *4 *5 *6)) (-4 *6 (-854 *3 *4 *5)))) (-1960 (*1 *1 *1 *1) (-12 (-4 *2 (-308)) (-4 *3 (-710)) (-4 *4 (-749)) (-5 *1 (-437 *2 *3 *4 *5)) (-4 *5 (-854 *2 *3 *4)))) (-1960 (*1 *1 *1 *2) (-12 (-4 *3 (-308)) (-4 *4 (-710)) (-4 *5 (-749)) (-5 *1 (-437 *3 *4 *5 *2)) (-4 *2 (-854 *3 *4 *5)))) (-2237 (*1 *1 *1) (-12 (-4 *2 (-308)) (-4 *3 (-710)) (-4 *4 (-749)) (-5 *1 (-437 *2 *3 *4 *5)) (-4 *5 (-854 *2 *3 *4)))) (-1959 (*1 *2 *1 *3) (-12 (-5 *3 (-578 *6)) (-4 *6 (-749)) (-4 *4 (-308)) (-4 *5 (-710)) (-5 *2 (-2 (|:| |mval| (-625 *4)) (|:| |invmval| (-625 *4)) (|:| |genIdeal| (-437 *4 *5 *6 *7)))) (-5 *1 (-437 *4 *5 *6 *7)) (-4 *7 (-854 *4 *5 *6)))) (-1958 (*1 *1 *2) (-12 (-5 *2 (-2 (|:| |mval| (-625 *3)) (|:| |invmval| (-625 *3)) (|:| |genIdeal| (-437 *3 *4 *5 *6)))) (-4 *3 (-308)) (-4 *4 (-710)) (-4 *5 (-749)) (-5 *1 (-437 *3 *4 *5 *6)) (-4 *6 (-854 *3 *4 *5)))) (-3895 (*1 *2 *1 *3) (-12 (-5 *3 (-578 *6)) (-4 *6 (-749)) (-4 *4 (-308)) (-4 *5 (-710)) (-5 *2 (-478)) (-5 *1 (-437 *4 *5 *6 *7)) (-4 *7 (-854 *4 *5 *6)))) (-3895 (*1 *2 *1) (-12 (-4 *3 (-308)) (-4 *4 (-710)) (-4 *5 (-749)) (-5 *2 (-478)) (-5 *1 (-437 *3 *4 *5 *6)) (-4 *6 (-854 *3 *4 *5)))) (-1957 (*1 *1 *1) (-12 (-4 *2 (-308)) (-4 *3 (-710)) (-4 *4 (-749)) (-5 *1 (-437 *2 *3 *4 *5)) (-4 *5 (-854 *2 *3 *4)))) (-1956 (*1 *1 *2) (-12 (-5 *2 (-578 *6)) (-4 *6 (-854 *3 *4 *5)) (-4 *3 (-308)) (-4 *4 (-710)) (-4 *5 (-749)) (-5 *1 (-437 *3 *4 *5 *6)))) (-1955 (*1 *1 *2) (-12 (-5 *2 (-578 *6)) (-4 *6 (-854 *3 *4 *5)) (-4 *3 (-308)) (-4 *4 (-710)) (-4 *5 (-749)) (-5 *1 (-437 *3 *4 *5 *6)))) (-1954 (*1 *2 *1) (-12 (-4 *3 (-308)) (-4 *4 (-710)) (-4 *5 (-749)) (-5 *2 (-83)) (-5 *1 (-437 *3 *4 *5 *6)) (-4 *6 (-854 *3 *4 *5)))) (-2679 (*1 *2 *1) (-12 (-4 *3 (-308)) (-4 *4 (-710)) (-4 *5 (-749)) (-5 *2 (-578 *6)) (-5 *1 (-437 *3 *4 *5 *6)) (-4 *6 (-854 *3 *4 *5)))) (-3930 (*1 *1 *2) (-12 (-5 *2 (-578 *6)) (-4 *6 (-854 *3 *4 *5)) (-4 *3 (-308)) (-4 *4 (-710)) (-4 *5 (-749)) (-5 *1 (-437 *3 *4 *5 *6)))) (-1953 (*1 *1 *1 *2) (-12 (-4 *3 (-308)) (-4 *4 (-710)) (-4 *5 (-749)) (-5 *1 (-437 *3 *4 *5 *2)) (-4 *2 (-854 *3 *4 *5)))) (-1953 (*1 *1 *1 *2 *3) (-12 (-5 *3 (-578 *6)) (-4 *6 (-749)) (-4 *4 (-308)) (-4 *5 (-710)) (-5 *1 (-437 *4 *5 *6 *2)) (-4 *2 (-854 *4 *5 *6)))) (-1952 (*1 *2 *3) (-12 (-5 *3 (-578 *7)) (-4 *7 (-854 *4 *5 *6)) (-4 *6 (-548 (-1079))) (-4 *4 (-308)) (-4 *5 (-710)) (-4 *6 (-749)) (-5 *2 (-1069 (-578 (-850 *4)) (-578 (-245 (-850 *4))))) (-5 *1 (-437 *4 *5 *6 *7))))) -((-1965 (((-83) (-437 (-343 (-478)) (-194 |#2| (-687)) (-766 |#1|) (-203 |#1| (-343 (-478))))) 177 T ELT)) (-1966 (((-83) (-437 (-343 (-478)) (-194 |#2| (-687)) (-766 |#1|) (-203 |#1| (-343 (-478))))) 178 T ELT)) (-1967 (((-437 (-343 (-478)) (-194 |#2| (-687)) (-766 |#1|) (-203 |#1| (-343 (-478)))) (-437 (-343 (-478)) (-194 |#2| (-687)) (-766 |#1|) (-203 |#1| (-343 (-478))))) 128 T ELT)) (-3707 (((-83) (-437 (-343 (-478)) (-194 |#2| (-687)) (-766 |#1|) (-203 |#1| (-343 (-478))))) NIL T ELT)) (-1968 (((-578 (-437 (-343 (-478)) (-194 |#2| (-687)) (-766 |#1|) (-203 |#1| (-343 (-478))))) (-437 (-343 (-478)) (-194 |#2| (-687)) (-766 |#1|) (-203 |#1| (-343 (-478))))) 180 T ELT)) (-1969 (((-437 (-343 (-478)) (-194 |#2| (-687)) (-766 |#1|) (-203 |#1| (-343 (-478)))) (-437 (-343 (-478)) (-194 |#2| (-687)) (-766 |#1|) (-203 |#1| (-343 (-478)))) (-578 (-766 |#1|))) 196 T ELT))) +((-1965 (((-83) (-437 (-343 (-478)) (-194 |#2| (-687)) (-766 |#1|) (-203 |#1| (-343 (-478))))) 178 T ELT)) (-1966 (((-83) (-437 (-343 (-478)) (-194 |#2| (-687)) (-766 |#1|) (-203 |#1| (-343 (-478))))) 179 T ELT)) (-1967 (((-437 (-343 (-478)) (-194 |#2| (-687)) (-766 |#1|) (-203 |#1| (-343 (-478)))) (-437 (-343 (-478)) (-194 |#2| (-687)) (-766 |#1|) (-203 |#1| (-343 (-478))))) 129 T ELT)) (-3707 (((-83) (-437 (-343 (-478)) (-194 |#2| (-687)) (-766 |#1|) (-203 |#1| (-343 (-478))))) NIL T ELT)) (-1968 (((-578 (-437 (-343 (-478)) (-194 |#2| (-687)) (-766 |#1|) (-203 |#1| (-343 (-478))))) (-437 (-343 (-478)) (-194 |#2| (-687)) (-766 |#1|) (-203 |#1| (-343 (-478))))) 181 T ELT)) (-1969 (((-437 (-343 (-478)) (-194 |#2| (-687)) (-766 |#1|) (-203 |#1| (-343 (-478)))) (-437 (-343 (-478)) (-194 |#2| (-687)) (-766 |#1|) (-203 |#1| (-343 (-478)))) (-578 (-766 |#1|))) 197 T ELT))) (((-438 |#1| |#2|) (-10 -7 (-15 -1965 ((-83) (-437 (-343 (-478)) (-194 |#2| (-687)) (-766 |#1|) (-203 |#1| (-343 (-478)))))) (-15 -1966 ((-83) (-437 (-343 (-478)) (-194 |#2| (-687)) (-766 |#1|) (-203 |#1| (-343 (-478)))))) (-15 -3707 ((-83) (-437 (-343 (-478)) (-194 |#2| (-687)) (-766 |#1|) (-203 |#1| (-343 (-478)))))) (-15 -1967 ((-437 (-343 (-478)) (-194 |#2| (-687)) (-766 |#1|) (-203 |#1| (-343 (-478)))) (-437 (-343 (-478)) (-194 |#2| (-687)) (-766 |#1|) (-203 |#1| (-343 (-478)))))) (-15 -1968 ((-578 (-437 (-343 (-478)) (-194 |#2| (-687)) (-766 |#1|) (-203 |#1| (-343 (-478))))) (-437 (-343 (-478)) (-194 |#2| (-687)) (-766 |#1|) (-203 |#1| (-343 (-478)))))) (-15 -1969 ((-437 (-343 (-478)) (-194 |#2| (-687)) (-766 |#1|) (-203 |#1| (-343 (-478)))) (-437 (-343 (-478)) (-194 |#2| (-687)) (-766 |#1|) (-203 |#1| (-343 (-478)))) (-578 (-766 |#1|))))) (-578 (-1079)) (-687)) (T -438)) ((-1969 (*1 *2 *2 *3) (-12 (-5 *2 (-437 (-343 (-478)) (-194 *5 (-687)) (-766 *4) (-203 *4 (-343 (-478))))) (-5 *3 (-578 (-766 *4))) (-14 *4 (-578 (-1079))) (-14 *5 (-687)) (-5 *1 (-438 *4 *5)))) (-1968 (*1 *2 *3) (-12 (-14 *4 (-578 (-1079))) (-14 *5 (-687)) (-5 *2 (-578 (-437 (-343 (-478)) (-194 *5 (-687)) (-766 *4) (-203 *4 (-343 (-478)))))) (-5 *1 (-438 *4 *5)) (-5 *3 (-437 (-343 (-478)) (-194 *5 (-687)) (-766 *4) (-203 *4 (-343 (-478))))))) (-1967 (*1 *2 *2) (-12 (-5 *2 (-437 (-343 (-478)) (-194 *4 (-687)) (-766 *3) (-203 *3 (-343 (-478))))) (-14 *3 (-578 (-1079))) (-14 *4 (-687)) (-5 *1 (-438 *3 *4)))) (-3707 (*1 *2 *3) (-12 (-5 *3 (-437 (-343 (-478)) (-194 *5 (-687)) (-766 *4) (-203 *4 (-343 (-478))))) (-14 *4 (-578 (-1079))) (-14 *5 (-687)) (-5 *2 (-83)) (-5 *1 (-438 *4 *5)))) (-1966 (*1 *2 *3) (-12 (-5 *3 (-437 (-343 (-478)) (-194 *5 (-687)) (-766 *4) (-203 *4 (-343 (-478))))) (-14 *4 (-578 (-1079))) (-14 *5 (-687)) (-5 *2 (-83)) (-5 *1 (-438 *4 *5)))) (-1965 (*1 *2 *3) (-12 (-5 *3 (-437 (-343 (-478)) (-194 *5 (-687)) (-766 *4) (-203 *4 (-343 (-478))))) (-14 *4 (-578 (-1079))) (-14 *5 (-687)) (-5 *2 (-83)) (-5 *1 (-438 *4 *5))))) ((-2552 (((-83) $ $) NIL T ELT)) (-3225 (((-1062) $) NIL T ELT)) (-3226 (((-1023) $) NIL T ELT)) (-1970 (($) 6 T ELT)) (-3930 (((-765) $) 10 T ELT)) (-1253 (((-83) $ $) NIL T ELT)) (-3037 (((-83) $ $) 8 T ELT))) @@ -1539,7 +1539,7 @@ NIL ((-2023 ((|#2| |#2| |#1|) 17 T ELT)) (-2021 ((|#2| (-578 |#2|)) 30 T ELT)) (-2022 ((|#2| (-578 |#2|)) 51 T ELT))) (((-471 |#1| |#2| |#3| |#4|) (-10 -7 (-15 -2021 (|#2| (-578 |#2|))) (-15 -2022 (|#2| (-578 |#2|))) (-15 -2023 (|#2| |#2| |#1|))) (-254) (-1144 |#1|) |#1| (-1 |#1| |#1| (-687))) (T -471)) ((-2023 (*1 *2 *2 *3) (-12 (-4 *3 (-254)) (-14 *4 *3) (-14 *5 (-1 *3 *3 (-687))) (-5 *1 (-471 *3 *2 *4 *5)) (-4 *2 (-1144 *3)))) (-2022 (*1 *2 *3) (-12 (-5 *3 (-578 *2)) (-4 *2 (-1144 *4)) (-5 *1 (-471 *4 *2 *5 *6)) (-4 *4 (-254)) (-14 *5 *4) (-14 *6 (-1 *4 *4 (-687))))) (-2021 (*1 *2 *3) (-12 (-5 *3 (-578 *2)) (-4 *2 (-1144 *4)) (-5 *1 (-471 *4 *2 *5 *6)) (-4 *4 (-254)) (-14 *5 *4) (-14 *6 (-1 *4 *4 (-687)))))) -((-3716 (((-341 (-1074 |#4|)) (-1074 |#4|) (-1 (-341 (-1074 |#3|)) (-1074 |#3|))) 89 T ELT) (((-341 |#4|) |#4| (-1 (-341 (-1074 |#3|)) (-1074 |#3|))) 212 T ELT))) +((-3716 (((-341 (-1074 |#4|)) (-1074 |#4|) (-1 (-341 (-1074 |#3|)) (-1074 |#3|))) 90 T ELT) (((-341 |#4|) |#4| (-1 (-341 (-1074 |#3|)) (-1074 |#3|))) 213 T ELT))) (((-472 |#1| |#2| |#3| |#4|) (-10 -7 (-15 -3716 ((-341 |#4|) |#4| (-1 (-341 (-1074 |#3|)) (-1074 |#3|)))) (-15 -3716 ((-341 (-1074 |#4|)) (-1074 |#4|) (-1 (-341 (-1074 |#3|)) (-1074 |#3|))))) (-749) (-710) (-13 (-254) (-118)) (-854 |#3| |#2| |#1|)) (T -472)) ((-3716 (*1 *2 *3 *4) (-12 (-5 *4 (-1 (-341 (-1074 *7)) (-1074 *7))) (-4 *7 (-13 (-254) (-118))) (-4 *5 (-749)) (-4 *6 (-710)) (-4 *8 (-854 *7 *6 *5)) (-5 *2 (-341 (-1074 *8))) (-5 *1 (-472 *5 *6 *7 *8)) (-5 *3 (-1074 *8)))) (-3716 (*1 *2 *3 *4) (-12 (-5 *4 (-1 (-341 (-1074 *7)) (-1074 *7))) (-4 *7 (-13 (-254) (-118))) (-4 *5 (-749)) (-4 *6 (-710)) (-5 *2 (-341 *3)) (-5 *1 (-472 *5 *6 *7 *3)) (-4 *3 (-854 *7 *6 *5))))) ((-3437 ((|#4| |#4|) 74 T ELT)) (-3435 ((|#4| |#4|) 70 T ELT)) (-3438 ((|#4| |#4| (-478) (-478)) 76 T ELT)) (-3436 ((|#4| |#4|) 72 T ELT))) @@ -1966,7 +1966,7 @@ NIL ((-2300 (((-3 (-578 (-1074 |#1|)) "failed") (-578 (-1074 |#1|)) (-1074 |#1|)) 33 T ELT))) (((-600 |#1|) (-10 -7 (-15 -2300 ((-3 (-578 (-1074 |#1|)) "failed") (-578 (-1074 |#1|)) (-1074 |#1|)))) (-814)) (T -600)) ((-2300 (*1 *2 *2 *3) (|partial| -12 (-5 *2 (-578 (-1074 *4))) (-5 *3 (-1074 *4)) (-4 *4 (-814)) (-5 *1 (-600 *4))))) -((-2552 (((-83) $ $) NIL T ELT)) (-3171 (((-83) $) NIL T ELT)) (-3918 (((-578 |#1|) $) 84 T ELT)) (-3931 (($ $ (-687)) 94 T ELT)) (-1299 (((-3 $ #1="failed") $ $) NIL T ELT)) (-3708 (($) NIL T CONST)) (-3923 (((-1193 |#1| |#2|) (-1193 |#1| |#2|) $) 50 T ELT)) (-3140 (((-3 (-609 |#1|) #1#) $) NIL T ELT)) (-3139 (((-609 |#1|) $) NIL T ELT)) (-3943 (($ $) 93 T ELT)) (-2404 (((-687) $) NIL T ELT)) (-2805 (((-578 $) $) NIL T ELT)) (-3921 (((-83) $) NIL T ELT)) (-3922 (($ (-609 |#1|) |#2|) 70 T ELT)) (-3920 (($ $) 89 T ELT)) (-3942 (($ (-1 |#2| |#2|) $) NIL T ELT)) (-3924 (((-1193 |#1| |#2|) (-1193 |#1| |#2|) $) 49 T ELT)) (-1736 (((-2 (|:| |k| (-609 |#1|)) (|:| |c| |#2|)) $) NIL T ELT)) (-2878 (((-609 |#1|) $) NIL T ELT)) (-3157 ((|#2| $) NIL T ELT)) (-3225 (((-1062) $) NIL T ELT)) (-3226 (((-1023) $) NIL T ELT)) (-3752 (($ $ |#1| $) 32 T ELT) (($ $ (-578 |#1|) (-578 $)) 34 T ELT)) (-3932 (((-687) $) 91 T ELT)) (-3514 (($ $ $) 20 T ELT) (($ (-609 |#1|) (-609 |#1|)) 79 T ELT) (($ (-609 |#1|) $) 77 T ELT) (($ $ (-609 |#1|)) 78 T ELT)) (-3930 (((-765) $) NIL T ELT) (($ |#1|) 76 T ELT) (((-1184 |#1| |#2|) $) 60 T ELT) (((-1193 |#1| |#2|) $) 43 T ELT) (($ (-609 |#1|)) 27 T ELT)) (-3801 (((-578 |#2|) $) NIL T ELT)) (-3661 ((|#2| $ (-609 |#1|)) NIL T ELT)) (-3938 ((|#2| (-1193 |#1| |#2|) $) 45 T ELT)) (-1253 (((-83) $ $) NIL T ELT)) (-2644 (($) 23 T CONST)) (-2649 (((-578 (-2 (|:| |k| (-609 |#1|)) (|:| |c| |#2|))) $) NIL T ELT)) (-3929 (((-3 $ #1#) (-1184 |#1| |#2|)) 62 T ELT)) (-1720 (($ (-609 |#1|)) 14 T ELT)) (-3037 (((-83) $ $) 46 T ELT)) (-3933 (($ $ |#2|) NIL (|has| |#2| (-308)) ELT)) (-3821 (($ $) 68 T ELT) (($ $ $) NIL T ELT)) (-3823 (($ $ $) 31 T ELT)) (* (($ (-823) $) NIL T ELT) (($ (-687) $) NIL T ELT) (($ (-478) $) NIL T ELT) (($ |#2| $) 30 T ELT) (($ $ |#2|) NIL T ELT) (($ |#2| (-609 |#1|)) NIL T ELT))) +((-2552 (((-83) $ $) NIL T ELT)) (-3171 (((-83) $) NIL T ELT)) (-3918 (((-578 |#1|) $) 85 T ELT)) (-3931 (($ $ (-687)) 95 T ELT)) (-1299 (((-3 $ #1="failed") $ $) NIL T ELT)) (-3708 (($) NIL T CONST)) (-3923 (((-1193 |#1| |#2|) (-1193 |#1| |#2|) $) 50 T ELT)) (-3140 (((-3 (-609 |#1|) #1#) $) NIL T ELT)) (-3139 (((-609 |#1|) $) NIL T ELT)) (-3943 (($ $) 94 T ELT)) (-2404 (((-687) $) NIL T ELT)) (-2805 (((-578 $) $) NIL T ELT)) (-3921 (((-83) $) NIL T ELT)) (-3922 (($ (-609 |#1|) |#2|) 70 T ELT)) (-3920 (($ $) 90 T ELT)) (-3942 (($ (-1 |#2| |#2|) $) NIL T ELT)) (-3924 (((-1193 |#1| |#2|) (-1193 |#1| |#2|) $) 49 T ELT)) (-1736 (((-2 (|:| |k| (-609 |#1|)) (|:| |c| |#2|)) $) NIL T ELT)) (-2878 (((-609 |#1|) $) NIL T ELT)) (-3157 ((|#2| $) NIL T ELT)) (-3225 (((-1062) $) NIL T ELT)) (-3226 (((-1023) $) NIL T ELT)) (-3752 (($ $ |#1| $) 32 T ELT) (($ $ (-578 |#1|) (-578 $)) 34 T ELT)) (-3932 (((-687) $) 92 T ELT)) (-3514 (($ $ $) 20 T ELT) (($ (-609 |#1|) (-609 |#1|)) 79 T ELT) (($ (-609 |#1|) $) 77 T ELT) (($ $ (-609 |#1|)) 78 T ELT)) (-3930 (((-765) $) NIL T ELT) (($ |#1|) 76 T ELT) (((-1184 |#1| |#2|) $) 60 T ELT) (((-1193 |#1| |#2|) $) 43 T ELT) (($ (-609 |#1|)) 27 T ELT)) (-3801 (((-578 |#2|) $) NIL T ELT)) (-3661 ((|#2| $ (-609 |#1|)) NIL T ELT)) (-3938 ((|#2| (-1193 |#1| |#2|) $) 45 T ELT)) (-1253 (((-83) $ $) NIL T ELT)) (-2644 (($) 23 T CONST)) (-2649 (((-578 (-2 (|:| |k| (-609 |#1|)) (|:| |c| |#2|))) $) NIL T ELT)) (-3929 (((-3 $ #1#) (-1184 |#1| |#2|)) 62 T ELT)) (-1720 (($ (-609 |#1|)) 14 T ELT)) (-3037 (((-83) $ $) 46 T ELT)) (-3933 (($ $ |#2|) NIL (|has| |#2| (-308)) ELT)) (-3821 (($ $) 68 T ELT) (($ $ $) NIL T ELT)) (-3823 (($ $ $) 31 T ELT)) (* (($ (-823) $) NIL T ELT) (($ (-687) $) NIL T ELT) (($ (-478) $) NIL T ELT) (($ |#2| $) 30 T ELT) (($ $ |#2|) NIL T ELT) (($ |#2| (-609 |#1|)) NIL T ELT))) (((-601 |#1| |#2|) (-13 (-319 |#1| |#2|) (-328 |#2| (-609 |#1|)) (-10 -8 (-15 -3929 ((-3 $ "failed") (-1184 |#1| |#2|))) (-15 -3514 ($ (-609 |#1|) (-609 |#1|))) (-15 -3514 ($ (-609 |#1|) $)) (-15 -3514 ($ $ (-609 |#1|))))) (-749) (-144)) (T -601)) ((-3929 (*1 *1 *2) (|partial| -12 (-5 *2 (-1184 *3 *4)) (-4 *3 (-749)) (-4 *4 (-144)) (-5 *1 (-601 *3 *4)))) (-3514 (*1 *1 *2 *2) (-12 (-5 *2 (-609 *3)) (-4 *3 (-749)) (-5 *1 (-601 *3 *4)) (-4 *4 (-144)))) (-3514 (*1 *1 *2 *1) (-12 (-5 *2 (-609 *3)) (-4 *3 (-749)) (-5 *1 (-601 *3 *4)) (-4 *4 (-144)))) (-3514 (*1 *1 *1 *2) (-12 (-5 *2 (-609 *3)) (-4 *3 (-749)) (-5 *1 (-601 *3 *4)) (-4 *4 (-144))))) ((-1719 (((-83) $) NIL T ELT) (((-83) (-1 (-83) |#2| |#2|) $) 59 T ELT)) (-1717 (($ $) NIL T ELT) (($ (-1 (-83) |#2| |#2|) $) 12 T ELT)) (-1557 (($ (-1 (-83) |#2|) $) 29 T ELT)) (-2283 (($ $) 65 T ELT)) (-2354 (($ $) 74 T ELT)) (-3389 (($ |#2| $) NIL T ELT) (($ (-1 (-83) |#2|) $) 43 T ELT)) (-3826 ((|#2| (-1 |#2| |#2| |#2|) $) 21 T ELT) ((|#2| (-1 |#2| |#2| |#2|) $ |#2|) 60 T ELT) ((|#2| (-1 |#2| |#2| |#2|) $ |#2| |#2|) 62 T ELT)) (-3403 (((-478) |#2| $ (-478)) 71 T ELT) (((-478) |#2| $) NIL T ELT) (((-478) (-1 (-83) |#2|) $) 54 T ELT)) (-3598 (($ (-687) |#2|) 63 T ELT)) (-2840 (($ $ $) NIL T ELT) (($ (-1 (-83) |#2| |#2|) $ $) 31 T ELT)) (-3502 (($ $ $) NIL T ELT) (($ (-1 (-83) |#2| |#2|) $ $) 24 T ELT)) (-3942 (($ (-1 |#2| |#2|) $) NIL T ELT) (($ (-1 |#2| |#2| |#2|) $ $) 64 T ELT)) (-3518 (($ |#2|) 15 T ELT)) (-3593 (($ $ $ (-478)) 42 T ELT) (($ |#2| $ (-478)) 40 T ELT)) (-1341 (((-3 |#2| "failed") (-1 (-83) |#2|) $) 53 T ELT)) (-1558 (($ $ (-1135 (-478))) 51 T ELT) (($ $ (-478)) 44 T ELT)) (-1718 (($ $ $ (-478)) 70 T ELT)) (-3384 (($ $) 68 T ELT)) (-2669 (((-83) $ $) 76 T ELT))) @@ -2067,7 +2067,7 @@ NIL ((-2362 (((-1 (-847 (-177)) (-177) (-177)) (-1 (-177) (-177) (-177)) (-1 (-177) (-177) (-177)) (-1 (-177) (-177) (-177)) (-1 (-177) (-177) (-177) (-177))) 17 T ELT)) (-2359 (((-1036 (-177)) (-1036 (-177)) (-1 (-847 (-177)) (-177) (-177)) (-993 (-177)) (-993 (-177)) (-578 (-218))) 53 T ELT) (((-1036 (-177)) (-1 (-847 (-177)) (-177) (-177)) (-993 (-177)) (-993 (-177)) (-578 (-218))) 55 T ELT) (((-1036 (-177)) (-1 (-177) (-177) (-177)) (-1 (-177) (-177) (-177)) (-1 (-177) (-177) (-177)) (-3 (-1 (-177) (-177) (-177) (-177)) #1="undefined") (-993 (-177)) (-993 (-177)) (-578 (-218))) 57 T ELT)) (-2361 (((-1036 (-177)) (-261 (-478)) (-261 (-478)) (-261 (-478)) (-1 (-177) (-177)) (-993 (-177)) (-578 (-218))) NIL T ELT)) (-2360 (((-1036 (-177)) (-1 (-177) (-177) (-177)) (-3 (-1 (-177) (-177) (-177) (-177)) #1#) (-993 (-177)) (-993 (-177)) (-578 (-218))) 58 T ELT))) (((-631) (-10 -7 (-15 -2359 ((-1036 (-177)) (-1 (-177) (-177) (-177)) (-1 (-177) (-177) (-177)) (-1 (-177) (-177) (-177)) (-3 (-1 (-177) (-177) (-177) (-177)) #1="undefined") (-993 (-177)) (-993 (-177)) (-578 (-218)))) (-15 -2359 ((-1036 (-177)) (-1 (-847 (-177)) (-177) (-177)) (-993 (-177)) (-993 (-177)) (-578 (-218)))) (-15 -2359 ((-1036 (-177)) (-1036 (-177)) (-1 (-847 (-177)) (-177) (-177)) (-993 (-177)) (-993 (-177)) (-578 (-218)))) (-15 -2360 ((-1036 (-177)) (-1 (-177) (-177) (-177)) (-3 (-1 (-177) (-177) (-177) (-177)) #1#) (-993 (-177)) (-993 (-177)) (-578 (-218)))) (-15 -2361 ((-1036 (-177)) (-261 (-478)) (-261 (-478)) (-261 (-478)) (-1 (-177) (-177)) (-993 (-177)) (-578 (-218)))) (-15 -2362 ((-1 (-847 (-177)) (-177) (-177)) (-1 (-177) (-177) (-177)) (-1 (-177) (-177) (-177)) (-1 (-177) (-177) (-177)) (-1 (-177) (-177) (-177) (-177)))))) (T -631)) ((-2362 (*1 *2 *3 *3 *3 *4) (-12 (-5 *3 (-1 (-177) (-177) (-177))) (-5 *4 (-1 (-177) (-177) (-177) (-177))) (-5 *2 (-1 (-847 (-177)) (-177) (-177))) (-5 *1 (-631)))) (-2361 (*1 *2 *3 *3 *3 *4 *5 *6) (-12 (-5 *3 (-261 (-478))) (-5 *4 (-1 (-177) (-177))) (-5 *5 (-993 (-177))) (-5 *6 (-578 (-218))) (-5 *2 (-1036 (-177))) (-5 *1 (-631)))) (-2360 (*1 *2 *3 *4 *5 *5 *6) (-12 (-5 *3 (-1 (-177) (-177) (-177))) (-5 *4 (-3 (-1 (-177) (-177) (-177) (-177)) #1="undefined")) (-5 *5 (-993 (-177))) (-5 *6 (-578 (-218))) (-5 *2 (-1036 (-177))) (-5 *1 (-631)))) (-2359 (*1 *2 *2 *3 *4 *4 *5) (-12 (-5 *2 (-1036 (-177))) (-5 *3 (-1 (-847 (-177)) (-177) (-177))) (-5 *4 (-993 (-177))) (-5 *5 (-578 (-218))) (-5 *1 (-631)))) (-2359 (*1 *2 *3 *4 *4 *5) (-12 (-5 *3 (-1 (-847 (-177)) (-177) (-177))) (-5 *4 (-993 (-177))) (-5 *5 (-578 (-218))) (-5 *2 (-1036 (-177))) (-5 *1 (-631)))) (-2359 (*1 *2 *3 *3 *3 *4 *5 *5 *6) (-12 (-5 *3 (-1 (-177) (-177) (-177))) (-5 *4 (-3 (-1 (-177) (-177) (-177) (-177)) #1#)) (-5 *5 (-993 (-177))) (-5 *6 (-578 (-218))) (-5 *2 (-1036 (-177))) (-5 *1 (-631))))) -((-3716 (((-341 (-1074 |#4|)) (-1074 |#4|)) 86 T ELT) (((-341 |#4|) |#4|) 269 T ELT))) +((-3716 (((-341 (-1074 |#4|)) (-1074 |#4|)) 87 T ELT) (((-341 |#4|) |#4|) 270 T ELT))) (((-632 |#1| |#2| |#3| |#4|) (-10 -7 (-15 -3716 ((-341 |#4|) |#4|)) (-15 -3716 ((-341 (-1074 |#4|)) (-1074 |#4|)))) (-749) (-710) (-295) (-854 |#3| |#2| |#1|)) (T -632)) ((-3716 (*1 *2 *3) (-12 (-4 *4 (-749)) (-4 *5 (-710)) (-4 *6 (-295)) (-4 *7 (-854 *6 *5 *4)) (-5 *2 (-341 (-1074 *7))) (-5 *1 (-632 *4 *5 *6 *7)) (-5 *3 (-1074 *7)))) (-3716 (*1 *2 *3) (-12 (-4 *4 (-749)) (-4 *5 (-710)) (-4 *6 (-295)) (-5 *2 (-341 *3)) (-5 *1 (-632 *4 *5 *6 *3)) (-4 *3 (-854 *6 *5 *4))))) ((-2365 (((-625 |#1|) (-625 |#1|) |#1| |#1|) 85 T ELT)) (-3093 (((-625 |#1|) (-625 |#1|) |#1|) 66 T ELT)) (-2364 (((-625 |#1|) (-625 |#1|) |#1|) 86 T ELT)) (-2363 (((-625 |#1|) (-625 |#1|)) 67 T ELT)) (-2366 (((-2 (|:| -1960 |#1|) (|:| -2886 |#1|)) |#1| |#1|) 84 T ELT))) @@ -2209,7 +2209,7 @@ NIL ((-3716 (((-341 (-1074 |#4|)) (-1074 |#4|)) 30 T ELT) (((-341 |#4|) |#4|) 26 T ELT))) (((-673 |#1| |#2| |#3| |#4|) (-10 -7 (-15 -3716 ((-341 |#4|) |#4|)) (-15 -3716 ((-341 (-1074 |#4|)) (-1074 |#4|)))) (-749) (-710) (-13 (-254) (-118)) (-854 |#3| |#2| |#1|)) (T -673)) ((-3716 (*1 *2 *3) (-12 (-4 *4 (-749)) (-4 *5 (-710)) (-4 *6 (-13 (-254) (-118))) (-4 *7 (-854 *6 *5 *4)) (-5 *2 (-341 (-1074 *7))) (-5 *1 (-673 *4 *5 *6 *7)) (-5 *3 (-1074 *7)))) (-3716 (*1 *2 *3) (-12 (-4 *4 (-749)) (-4 *5 (-710)) (-4 *6 (-13 (-254) (-118))) (-5 *2 (-341 *3)) (-5 *1 (-673 *4 *5 *6 *3)) (-4 *3 (-854 *6 *5 *4))))) -((-2410 (((-341 |#4|) |#4| |#2|) 141 T ELT)) (-2408 (((-341 |#4|) |#4|) NIL T ELT)) (-3955 (((-341 (-1074 |#4|)) (-1074 |#4|)) 128 T ELT) (((-341 |#4|) |#4|) 52 T ELT)) (-2412 (((-2 (|:| |unitPart| |#4|) (|:| |suPart| (-578 (-2 (|:| -3716 (-1074 |#4|)) (|:| -2387 (-478)))))) (-1074 |#4|) (-578 |#2|) (-578 (-578 |#3|))) 81 T ELT)) (-2416 (((-1074 |#3|) (-1074 |#3|) (-478)) 168 T ELT)) (-2415 (((-578 (-687)) (-1074 |#4|) (-578 |#2|) (-687)) 75 T ELT)) (-3063 (((-3 (-578 (-1074 |#4|)) "failed") (-1074 |#4|) (-1074 |#3|) (-1074 |#3|) |#4| (-578 |#2|) (-578 (-687)) (-578 |#3|)) 79 T ELT)) (-2413 (((-2 (|:| |upol| (-1074 |#3|)) (|:| |Lval| (-578 |#3|)) (|:| |Lfact| (-578 (-2 (|:| -3716 (-1074 |#3|)) (|:| -2387 (-478))))) (|:| |ctpol| |#3|)) (-1074 |#4|) (-578 |#2|) (-578 (-578 |#3|))) 27 T ELT)) (-2411 (((-2 (|:| -1990 (-1074 |#4|)) (|:| |polval| (-1074 |#3|))) (-1074 |#4|) (-1074 |#3|) (-478)) 72 T ELT)) (-2409 (((-478) (-578 (-2 (|:| -3716 (-1074 |#3|)) (|:| -2387 (-478))))) 164 T ELT)) (-2414 ((|#4| (-478) (-341 |#4|)) 73 T ELT)) (-3341 (((-83) (-578 (-2 (|:| -3716 (-1074 |#3|)) (|:| -2387 (-478)))) (-578 (-2 (|:| -3716 (-1074 |#3|)) (|:| -2387 (-478))))) NIL T ELT))) +((-2410 (((-341 |#4|) |#4| |#2|) 142 T ELT)) (-2408 (((-341 |#4|) |#4|) NIL T ELT)) (-3955 (((-341 (-1074 |#4|)) (-1074 |#4|)) 129 T ELT) (((-341 |#4|) |#4|) 52 T ELT)) (-2412 (((-2 (|:| |unitPart| |#4|) (|:| |suPart| (-578 (-2 (|:| -3716 (-1074 |#4|)) (|:| -2387 (-478)))))) (-1074 |#4|) (-578 |#2|) (-578 (-578 |#3|))) 81 T ELT)) (-2416 (((-1074 |#3|) (-1074 |#3|) (-478)) 169 T ELT)) (-2415 (((-578 (-687)) (-1074 |#4|) (-578 |#2|) (-687)) 75 T ELT)) (-3063 (((-3 (-578 (-1074 |#4|)) "failed") (-1074 |#4|) (-1074 |#3|) (-1074 |#3|) |#4| (-578 |#2|) (-578 (-687)) (-578 |#3|)) 79 T ELT)) (-2413 (((-2 (|:| |upol| (-1074 |#3|)) (|:| |Lval| (-578 |#3|)) (|:| |Lfact| (-578 (-2 (|:| -3716 (-1074 |#3|)) (|:| -2387 (-478))))) (|:| |ctpol| |#3|)) (-1074 |#4|) (-578 |#2|) (-578 (-578 |#3|))) 27 T ELT)) (-2411 (((-2 (|:| -1990 (-1074 |#4|)) (|:| |polval| (-1074 |#3|))) (-1074 |#4|) (-1074 |#3|) (-478)) 72 T ELT)) (-2409 (((-478) (-578 (-2 (|:| -3716 (-1074 |#3|)) (|:| -2387 (-478))))) 165 T ELT)) (-2414 ((|#4| (-478) (-341 |#4|)) 73 T ELT)) (-3341 (((-83) (-578 (-2 (|:| -3716 (-1074 |#3|)) (|:| -2387 (-478)))) (-578 (-2 (|:| -3716 (-1074 |#3|)) (|:| -2387 (-478))))) NIL T ELT))) (((-674 |#1| |#2| |#3| |#4|) (-10 -7 (-15 -3955 ((-341 |#4|) |#4|)) (-15 -3955 ((-341 (-1074 |#4|)) (-1074 |#4|))) (-15 -2408 ((-341 |#4|) |#4|)) (-15 -2409 ((-478) (-578 (-2 (|:| -3716 (-1074 |#3|)) (|:| -2387 (-478)))))) (-15 -2410 ((-341 |#4|) |#4| |#2|)) (-15 -2411 ((-2 (|:| -1990 (-1074 |#4|)) (|:| |polval| (-1074 |#3|))) (-1074 |#4|) (-1074 |#3|) (-478))) (-15 -2412 ((-2 (|:| |unitPart| |#4|) (|:| |suPart| (-578 (-2 (|:| -3716 (-1074 |#4|)) (|:| -2387 (-478)))))) (-1074 |#4|) (-578 |#2|) (-578 (-578 |#3|)))) (-15 -2413 ((-2 (|:| |upol| (-1074 |#3|)) (|:| |Lval| (-578 |#3|)) (|:| |Lfact| (-578 (-2 (|:| -3716 (-1074 |#3|)) (|:| -2387 (-478))))) (|:| |ctpol| |#3|)) (-1074 |#4|) (-578 |#2|) (-578 (-578 |#3|)))) (-15 -2414 (|#4| (-478) (-341 |#4|))) (-15 -3341 ((-83) (-578 (-2 (|:| -3716 (-1074 |#3|)) (|:| -2387 (-478)))) (-578 (-2 (|:| -3716 (-1074 |#3|)) (|:| -2387 (-478)))))) (-15 -3063 ((-3 (-578 (-1074 |#4|)) "failed") (-1074 |#4|) (-1074 |#3|) (-1074 |#3|) |#4| (-578 |#2|) (-578 (-687)) (-578 |#3|))) (-15 -2415 ((-578 (-687)) (-1074 |#4|) (-578 |#2|) (-687))) (-15 -2416 ((-1074 |#3|) (-1074 |#3|) (-478)))) (-710) (-749) (-254) (-854 |#3| |#1| |#2|)) (T -674)) ((-2416 (*1 *2 *2 *3) (-12 (-5 *2 (-1074 *6)) (-5 *3 (-478)) (-4 *6 (-254)) (-4 *4 (-710)) (-4 *5 (-749)) (-5 *1 (-674 *4 *5 *6 *7)) (-4 *7 (-854 *6 *4 *5)))) (-2415 (*1 *2 *3 *4 *5) (-12 (-5 *3 (-1074 *9)) (-5 *4 (-578 *7)) (-4 *7 (-749)) (-4 *9 (-854 *8 *6 *7)) (-4 *6 (-710)) (-4 *8 (-254)) (-5 *2 (-578 (-687))) (-5 *1 (-674 *6 *7 *8 *9)) (-5 *5 (-687)))) (-3063 (*1 *2 *3 *4 *4 *5 *6 *7 *8) (|partial| -12 (-5 *4 (-1074 *11)) (-5 *6 (-578 *10)) (-5 *7 (-578 (-687))) (-5 *8 (-578 *11)) (-4 *10 (-749)) (-4 *11 (-254)) (-4 *9 (-710)) (-4 *5 (-854 *11 *9 *10)) (-5 *2 (-578 (-1074 *5))) (-5 *1 (-674 *9 *10 *11 *5)) (-5 *3 (-1074 *5)))) (-3341 (*1 *2 *3 *3) (-12 (-5 *3 (-578 (-2 (|:| -3716 (-1074 *6)) (|:| -2387 (-478))))) (-4 *6 (-254)) (-4 *4 (-710)) (-4 *5 (-749)) (-5 *2 (-83)) (-5 *1 (-674 *4 *5 *6 *7)) (-4 *7 (-854 *6 *4 *5)))) (-2414 (*1 *2 *3 *4) (-12 (-5 *3 (-478)) (-5 *4 (-341 *2)) (-4 *2 (-854 *7 *5 *6)) (-5 *1 (-674 *5 *6 *7 *2)) (-4 *5 (-710)) (-4 *6 (-749)) (-4 *7 (-254)))) (-2413 (*1 *2 *3 *4 *5) (-12 (-5 *3 (-1074 *9)) (-5 *4 (-578 *7)) (-5 *5 (-578 (-578 *8))) (-4 *7 (-749)) (-4 *8 (-254)) (-4 *9 (-854 *8 *6 *7)) (-4 *6 (-710)) (-5 *2 (-2 (|:| |upol| (-1074 *8)) (|:| |Lval| (-578 *8)) (|:| |Lfact| (-578 (-2 (|:| -3716 (-1074 *8)) (|:| -2387 (-478))))) (|:| |ctpol| *8))) (-5 *1 (-674 *6 *7 *8 *9)))) (-2412 (*1 *2 *3 *4 *5) (-12 (-5 *4 (-578 *7)) (-5 *5 (-578 (-578 *8))) (-4 *7 (-749)) (-4 *8 (-254)) (-4 *6 (-710)) (-4 *9 (-854 *8 *6 *7)) (-5 *2 (-2 (|:| |unitPart| *9) (|:| |suPart| (-578 (-2 (|:| -3716 (-1074 *9)) (|:| -2387 (-478))))))) (-5 *1 (-674 *6 *7 *8 *9)) (-5 *3 (-1074 *9)))) (-2411 (*1 *2 *3 *4 *5) (-12 (-5 *5 (-478)) (-4 *6 (-710)) (-4 *7 (-749)) (-4 *8 (-254)) (-4 *9 (-854 *8 *6 *7)) (-5 *2 (-2 (|:| -1990 (-1074 *9)) (|:| |polval| (-1074 *8)))) (-5 *1 (-674 *6 *7 *8 *9)) (-5 *3 (-1074 *9)) (-5 *4 (-1074 *8)))) (-2410 (*1 *2 *3 *4) (-12 (-4 *5 (-710)) (-4 *4 (-749)) (-4 *6 (-254)) (-5 *2 (-341 *3)) (-5 *1 (-674 *5 *4 *6 *3)) (-4 *3 (-854 *6 *5 *4)))) (-2409 (*1 *2 *3) (-12 (-5 *3 (-578 (-2 (|:| -3716 (-1074 *6)) (|:| -2387 (-478))))) (-4 *6 (-254)) (-4 *4 (-710)) (-4 *5 (-749)) (-5 *2 (-478)) (-5 *1 (-674 *4 *5 *6 *7)) (-4 *7 (-854 *6 *4 *5)))) (-2408 (*1 *2 *3) (-12 (-4 *4 (-710)) (-4 *5 (-749)) (-4 *6 (-254)) (-5 *2 (-341 *3)) (-5 *1 (-674 *4 *5 *6 *3)) (-4 *3 (-854 *6 *4 *5)))) (-3955 (*1 *2 *3) (-12 (-4 *4 (-710)) (-4 *5 (-749)) (-4 *6 (-254)) (-4 *7 (-854 *6 *4 *5)) (-5 *2 (-341 (-1074 *7))) (-5 *1 (-674 *4 *5 *6 *7)) (-5 *3 (-1074 *7)))) (-3955 (*1 *2 *3) (-12 (-4 *4 (-710)) (-4 *5 (-749)) (-4 *6 (-254)) (-5 *2 (-341 *3)) (-5 *1 (-674 *4 *5 *6 *3)) (-4 *3 (-854 *6 *4 *5))))) ((-2417 (($ $ (-823)) 17 T ELT))) @@ -2253,7 +2253,7 @@ NIL ((-3903 (((-2 (|:| -1998 (-625 (-478))) (|:| |basisDen| (-478)) (|:| |basisInv| (-625 (-478)))) (-478)) 72 T ELT)) (-3902 (((-2 (|:| -1998 (-625 (-478))) (|:| |basisDen| (-478)) (|:| |basisInv| (-625 (-478))))) 70 T ELT)) (-3741 (((-478)) 86 T ELT))) (((-685 |#1| |#2|) (-10 -7 (-15 -3741 ((-478))) (-15 -3902 ((-2 (|:| -1998 (-625 (-478))) (|:| |basisDen| (-478)) (|:| |basisInv| (-625 (-478)))))) (-15 -3903 ((-2 (|:| -1998 (-625 (-478))) (|:| |basisDen| (-478)) (|:| |basisInv| (-625 (-478)))) (-478)))) (-1144 (-478)) (-346 (-478) |#1|)) (T -685)) ((-3903 (*1 *2 *3) (-12 (-5 *3 (-478)) (-4 *4 (-1144 *3)) (-5 *2 (-2 (|:| -1998 (-625 *3)) (|:| |basisDen| *3) (|:| |basisInv| (-625 *3)))) (-5 *1 (-685 *4 *5)) (-4 *5 (-346 *3 *4)))) (-3902 (*1 *2) (-12 (-4 *3 (-1144 (-478))) (-5 *2 (-2 (|:| -1998 (-625 (-478))) (|:| |basisDen| (-478)) (|:| |basisInv| (-625 (-478))))) (-5 *1 (-685 *3 *4)) (-4 *4 (-346 (-478) *3)))) (-3741 (*1 *2) (-12 (-4 *3 (-1144 *2)) (-5 *2 (-478)) (-5 *1 (-685 *3 *4)) (-4 *4 (-346 *2 *3))))) -((-2492 (((-578 (-578 (-245 (-343 (-850 |#1|))))) (-578 (-850 |#1|))) 18 T ELT) (((-578 (-578 (-245 (-343 (-850 |#1|))))) (-578 (-850 |#1|)) (-578 (-1079))) 17 T ELT)) (-3557 (((-578 (-578 (-245 (-343 (-850 |#1|))))) (-578 (-850 |#1|))) 20 T ELT) (((-578 (-578 (-245 (-343 (-850 |#1|))))) (-578 (-850 |#1|)) (-578 (-1079))) 19 T ELT))) +((-2492 (((-578 (-578 (-245 (-343 (-850 |#1|))))) (-578 (-850 |#1|))) 19 T ELT) (((-578 (-578 (-245 (-343 (-850 |#1|))))) (-578 (-850 |#1|)) (-578 (-1079))) 18 T ELT)) (-3557 (((-578 (-578 (-245 (-343 (-850 |#1|))))) (-578 (-850 |#1|))) 21 T ELT) (((-578 (-578 (-245 (-343 (-850 |#1|))))) (-578 (-850 |#1|)) (-578 (-1079))) 20 T ELT))) (((-686 |#1|) (-10 -7 (-15 -2492 ((-578 (-578 (-245 (-343 (-850 |#1|))))) (-578 (-850 |#1|)) (-578 (-1079)))) (-15 -2492 ((-578 (-578 (-245 (-343 (-850 |#1|))))) (-578 (-850 |#1|)))) (-15 -3557 ((-578 (-578 (-245 (-343 (-850 |#1|))))) (-578 (-850 |#1|)) (-578 (-1079)))) (-15 -3557 ((-578 (-578 (-245 (-343 (-850 |#1|))))) (-578 (-850 |#1|))))) (-489)) (T -686)) ((-3557 (*1 *2 *3) (-12 (-5 *3 (-578 (-850 *4))) (-4 *4 (-489)) (-5 *2 (-578 (-578 (-245 (-343 (-850 *4)))))) (-5 *1 (-686 *4)))) (-3557 (*1 *2 *3 *4) (-12 (-5 *3 (-578 (-850 *5))) (-5 *4 (-578 (-1079))) (-4 *5 (-489)) (-5 *2 (-578 (-578 (-245 (-343 (-850 *5)))))) (-5 *1 (-686 *5)))) (-2492 (*1 *2 *3) (-12 (-5 *3 (-578 (-850 *4))) (-4 *4 (-489)) (-5 *2 (-578 (-578 (-245 (-343 (-850 *4)))))) (-5 *1 (-686 *4)))) (-2492 (*1 *2 *3 *4) (-12 (-5 *3 (-578 (-850 *5))) (-5 *4 (-578 (-1079))) (-4 *5 (-489)) (-5 *2 (-578 (-578 (-245 (-343 (-850 *5)))))) (-5 *1 (-686 *5))))) ((-2552 (((-83) $ $) NIL T ELT)) (-3171 (((-83) $) NIL T ELT)) (-2467 (($ $ $) 10 T ELT)) (-1299 (((-3 $ #1="failed") $ $) 15 T ELT)) (-2425 (($ $ (-478)) 11 T ELT)) (-3708 (($) NIL T CONST)) (-2548 (($ $ $) NIL T ELT)) (-3451 (((-3 $ #1#) $) NIL T ELT)) (-2978 (($ $) NIL T ELT)) (-2547 (($ $ $) NIL T ELT)) (-3169 (((-83) $) NIL T ELT)) (-2396 (((-83) $) NIL T ELT)) (-2515 (($ $ $) NIL T ELT)) (-2841 (($ $ $) NIL T ELT)) (-3225 (((-1062) $) NIL T ELT)) (-3226 (((-1023) $) NIL T ELT)) (-3127 (($ $ $) NIL T ELT)) (-3450 (((-3 $ #1#) $ $) NIL T ELT)) (-2863 (((-2 (|:| -1960 $) (|:| -2886 $)) $ $) NIL T ELT)) (-3930 (((-765) $) NIL T ELT)) (-1253 (((-83) $ $) NIL T ELT)) (-2644 (($) 6 T CONST)) (-2650 (($) NIL T CONST)) (-2550 (((-83) $ $) NIL T ELT)) (-2551 (((-83) $ $) NIL T ELT)) (-3037 (((-83) $ $) NIL T ELT)) (-2668 (((-83) $ $) NIL T ELT)) (-2669 (((-83) $ $) NIL T ELT)) (-3823 (($ $ $) NIL T ELT)) (** (($ $ (-687)) NIL T ELT) (($ $ (-823)) NIL T ELT)) (* (($ (-823) $) NIL T ELT) (($ (-687) $) NIL T ELT) (($ $ $) NIL T ELT))) @@ -2695,7 +2695,7 @@ NIL ((-2692 (*1 *2 *2 *2) (-12 (-5 *2 (-1074 *1)) (-4 *1 (-814)))) (-2691 (*1 *2 *3) (-12 (-4 *1 (-814)) (-5 *2 (-341 (-1074 *1))) (-5 *3 (-1074 *1)))) (-2690 (*1 *2 *3) (-12 (-4 *1 (-814)) (-5 *2 (-341 (-1074 *1))) (-5 *3 (-1074 *1)))) (-2689 (*1 *2 *3) (-12 (-4 *1 (-814)) (-5 *2 (-341 (-1074 *1))) (-5 *3 (-1074 *1)))) (-2688 (*1 *2 *2 *3) (|partial| -12 (-5 *2 (-578 (-1074 *1))) (-5 *3 (-1074 *1)) (-4 *1 (-814)))) (-2687 (*1 *2 *3) (|partial| -12 (-5 *3 (-625 *1)) (-4 *1 (-116)) (-4 *1 (-814)) (-5 *2 (-1168 *1)))) (-2686 (*1 *2 *1) (-12 (-5 *2 (-627 *1)) (-4 *1 (-116)) (-4 *1 (-814))))) (-13 (-1123) (-10 -8 (-15 -2691 ((-341 (-1074 $)) (-1074 $))) (-15 -2690 ((-341 (-1074 $)) (-1074 $))) (-15 -2689 ((-341 (-1074 $)) (-1074 $))) (-15 -2692 ((-1074 $) (-1074 $) (-1074 $))) (-15 -2688 ((-3 (-578 (-1074 $)) "failed") (-578 (-1074 $)) (-1074 $))) (IF (|has| $ (-116)) (PROGN (-15 -2687 ((-3 (-1168 $) "failed") (-625 $))) (-15 -2686 ((-627 $) $))) |%noBranch|))) (((-21) . T) ((-23) . T) ((-25) . T) ((-38 $) . T) ((-72) . T) ((-80 $ $) . T) ((-102) . T) ((-550 (-478)) . T) ((-550 $) . T) ((-547 (-765)) . T) ((-144) . T) ((-242) . T) ((-385) . T) ((-489) . T) ((-583 (-478)) . T) ((-583 $) . T) ((-585 $) . T) ((-577 $) . T) ((-649 $) . T) ((-658) . T) ((-956 $) . T) ((-961 $) . T) ((-954) . T) ((-962) . T) ((-1015) . T) ((-1005) . T) ((-1118) . T) ((-1123) . T)) -((-2694 (((-3 (-2 (|:| -3756 (-687)) (|:| -2369 |#5|)) #1="failed") (-279 |#2| |#3| |#4| |#5|)) 77 T ELT)) (-2693 (((-83) (-279 |#2| |#3| |#4| |#5|)) 17 T ELT)) (-3756 (((-3 (-687) #1#) (-279 |#2| |#3| |#4| |#5|)) 15 T ELT))) +((-2694 (((-3 (-2 (|:| -3756 (-687)) (|:| -2369 |#5|)) #1="failed") (-279 |#2| |#3| |#4| |#5|)) 78 T ELT)) (-2693 (((-83) (-279 |#2| |#3| |#4| |#5|)) 17 T ELT)) (-3756 (((-3 (-687) #1#) (-279 |#2| |#3| |#4| |#5|)) 15 T ELT))) (((-815 |#1| |#2| |#3| |#4| |#5|) (-10 -7 (-15 -3756 ((-3 (-687) #1="failed") (-279 |#2| |#3| |#4| |#5|))) (-15 -2693 ((-83) (-279 |#2| |#3| |#4| |#5|))) (-15 -2694 ((-3 (-2 (|:| -3756 (-687)) (|:| -2369 |#5|)) #1#) (-279 |#2| |#3| |#4| |#5|)))) (-13 (-489) (-943 (-478))) (-357 |#1|) (-1144 |#2|) (-1144 (-343 |#3|)) (-287 |#2| |#3| |#4|)) (T -815)) ((-2694 (*1 *2 *3) (|partial| -12 (-5 *3 (-279 *5 *6 *7 *8)) (-4 *5 (-357 *4)) (-4 *6 (-1144 *5)) (-4 *7 (-1144 (-343 *6))) (-4 *8 (-287 *5 *6 *7)) (-4 *4 (-13 (-489) (-943 (-478)))) (-5 *2 (-2 (|:| -3756 (-687)) (|:| -2369 *8))) (-5 *1 (-815 *4 *5 *6 *7 *8)))) (-2693 (*1 *2 *3) (-12 (-5 *3 (-279 *5 *6 *7 *8)) (-4 *5 (-357 *4)) (-4 *6 (-1144 *5)) (-4 *7 (-1144 (-343 *6))) (-4 *8 (-287 *5 *6 *7)) (-4 *4 (-13 (-489) (-943 (-478)))) (-5 *2 (-83)) (-5 *1 (-815 *4 *5 *6 *7 *8)))) (-3756 (*1 *2 *3) (|partial| -12 (-5 *3 (-279 *5 *6 *7 *8)) (-4 *5 (-357 *4)) (-4 *6 (-1144 *5)) (-4 *7 (-1144 (-343 *6))) (-4 *8 (-287 *5 *6 *7)) (-4 *4 (-13 (-489) (-943 (-478)))) (-5 *2 (-687)) (-5 *1 (-815 *4 *5 *6 *7 *8))))) ((-2694 (((-3 (-2 (|:| -3756 (-687)) (|:| -2369 |#3|)) #1="failed") (-279 (-343 (-478)) |#1| |#2| |#3|)) 64 T ELT)) (-2693 (((-83) (-279 (-343 (-478)) |#1| |#2| |#3|)) 16 T ELT)) (-3756 (((-3 (-687) #1#) (-279 (-343 (-478)) |#1| |#2| |#3|)) 14 T ELT))) @@ -2812,7 +2812,7 @@ NIL ((-3067 (((-1137 |#1| (-850 |#2|)) (-850 |#2|) (-1165 |#1|)) 18 T ELT))) (((-852 |#1| |#2|) (-10 -7 (-15 -3067 ((-1137 |#1| (-850 |#2|)) (-850 |#2|) (-1165 |#1|)))) (-1079) (-954)) (T -852)) ((-3067 (*1 *2 *3 *4) (-12 (-5 *4 (-1165 *5)) (-14 *5 (-1079)) (-4 *6 (-954)) (-5 *2 (-1137 *5 (-850 *6))) (-5 *1 (-852 *5 *6)) (-5 *3 (-850 *6))))) -((-2803 (((-687) $) 88 T ELT) (((-687) $ (-578 |#4|)) 93 T ELT)) (-3759 (($ $) 213 T ELT)) (-3955 (((-341 $) $) 205 T ELT)) (-2688 (((-3 (-578 (-1074 $)) #1="failed") (-578 (-1074 $)) (-1074 $)) 141 T ELT)) (-3140 (((-3 |#2| #1#) $) NIL T ELT) (((-3 (-343 (-478)) #1#) $) NIL T ELT) (((-3 (-478) #1#) $) NIL T ELT) (((-3 |#4| #1#) $) 74 T ELT)) (-3139 ((|#2| $) NIL T ELT) (((-343 (-478)) $) NIL T ELT) (((-478) $) NIL T ELT) ((|#4| $) 73 T ELT)) (-3740 (($ $ $ |#4|) 95 T ELT)) (-2265 (((-625 (-478)) (-625 $)) NIL T ELT) (((-2 (|:| |mat| (-625 (-478))) (|:| |vec| (-1168 (-478)))) (-625 $) (-1168 $)) NIL T ELT) (((-2 (|:| |mat| (-625 |#2|)) (|:| |vec| (-1168 |#2|))) (-625 $) (-1168 $)) 131 T ELT) (((-625 |#2|) (-625 $)) 121 T ELT)) (-3487 (($ $) 220 T ELT) (($ $ |#4|) 223 T ELT)) (-2802 (((-578 $) $) 77 T ELT)) (-2780 (((-791 (-323) $) $ (-793 (-323)) (-791 (-323) $)) 239 T ELT) (((-791 (-478) $) $ (-793 (-478)) (-791 (-478) $)) 232 T ELT)) (-2805 (((-578 $) $) 34 T ELT)) (-2877 (($ |#2| |#3|) NIL T ELT) (($ $ |#4| (-687)) NIL T ELT) (($ $ (-578 |#4|) (-578 (-687))) 71 T ELT)) (-3747 (((-2 (|:| -1960 $) (|:| -2886 $)) $ $ |#4|) 202 T ELT)) (-2807 (((-3 (-578 $) #1#) $) 52 T ELT)) (-2806 (((-3 (-578 $) #1#) $) 39 T ELT)) (-2808 (((-3 (-2 (|:| |var| |#4|) (|:| -2387 (-687))) #1#) $) 57 T ELT)) (-2692 (((-1074 $) (-1074 $) (-1074 $)) 134 T ELT)) (-2689 (((-341 (-1074 $)) (-1074 $)) 147 T ELT)) (-2690 (((-341 (-1074 $)) (-1074 $)) 145 T ELT)) (-3716 (((-341 $) $) 165 T ELT)) (-3752 (($ $ (-578 (-245 $))) 24 T ELT) (($ $ (-245 $)) NIL T ELT) (($ $ $ $) NIL T ELT) (($ $ (-578 $) (-578 $)) NIL T ELT) (($ $ |#4| |#2|) NIL T ELT) (($ $ (-578 |#4|) (-578 |#2|)) NIL T ELT) (($ $ |#4| $) NIL T ELT) (($ $ (-578 |#4|) (-578 $)) NIL T ELT)) (-3741 (($ $ |#4|) 97 T ELT)) (-3956 (((-793 (-323)) $) 253 T ELT) (((-793 (-478)) $) 246 T ELT) (((-467) $) 261 T ELT)) (-2801 ((|#2| $) NIL T ELT) (($ $ |#4|) 215 T ELT)) (-2687 (((-3 (-1168 $) #1#) (-625 $)) 184 T ELT)) (-3661 ((|#2| $ |#3|) NIL T ELT) (($ $ |#4| (-687)) 62 T ELT) (($ $ (-578 |#4|) (-578 (-687))) 69 T ELT)) (-2686 (((-627 $) $) 194 T ELT)) (-1253 (((-83) $ $) 226 T ELT))) +((-2803 (((-687) $) 88 T ELT) (((-687) $ (-578 |#4|)) 93 T ELT)) (-3759 (($ $) 214 T ELT)) (-3955 (((-341 $) $) 206 T ELT)) (-2688 (((-3 (-578 (-1074 $)) #1="failed") (-578 (-1074 $)) (-1074 $)) 141 T ELT)) (-3140 (((-3 |#2| #1#) $) NIL T ELT) (((-3 (-343 (-478)) #1#) $) NIL T ELT) (((-3 (-478) #1#) $) NIL T ELT) (((-3 |#4| #1#) $) 74 T ELT)) (-3139 ((|#2| $) NIL T ELT) (((-343 (-478)) $) NIL T ELT) (((-478) $) NIL T ELT) ((|#4| $) 73 T ELT)) (-3740 (($ $ $ |#4|) 95 T ELT)) (-2265 (((-625 (-478)) (-625 $)) NIL T ELT) (((-2 (|:| |mat| (-625 (-478))) (|:| |vec| (-1168 (-478)))) (-625 $) (-1168 $)) NIL T ELT) (((-2 (|:| |mat| (-625 |#2|)) (|:| |vec| (-1168 |#2|))) (-625 $) (-1168 $)) 131 T ELT) (((-625 |#2|) (-625 $)) 121 T ELT)) (-3487 (($ $) 221 T ELT) (($ $ |#4|) 224 T ELT)) (-2802 (((-578 $) $) 77 T ELT)) (-2780 (((-791 (-323) $) $ (-793 (-323)) (-791 (-323) $)) 240 T ELT) (((-791 (-478) $) $ (-793 (-478)) (-791 (-478) $)) 233 T ELT)) (-2805 (((-578 $) $) 34 T ELT)) (-2877 (($ |#2| |#3|) NIL T ELT) (($ $ |#4| (-687)) NIL T ELT) (($ $ (-578 |#4|) (-578 (-687))) 71 T ELT)) (-3747 (((-2 (|:| -1960 $) (|:| -2886 $)) $ $ |#4|) 203 T ELT)) (-2807 (((-3 (-578 $) #1#) $) 52 T ELT)) (-2806 (((-3 (-578 $) #1#) $) 39 T ELT)) (-2808 (((-3 (-2 (|:| |var| |#4|) (|:| -2387 (-687))) #1#) $) 57 T ELT)) (-2692 (((-1074 $) (-1074 $) (-1074 $)) 134 T ELT)) (-2689 (((-341 (-1074 $)) (-1074 $)) 147 T ELT)) (-2690 (((-341 (-1074 $)) (-1074 $)) 145 T ELT)) (-3716 (((-341 $) $) 165 T ELT)) (-3752 (($ $ (-578 (-245 $))) 24 T ELT) (($ $ (-245 $)) NIL T ELT) (($ $ $ $) NIL T ELT) (($ $ (-578 $) (-578 $)) NIL T ELT) (($ $ |#4| |#2|) NIL T ELT) (($ $ (-578 |#4|) (-578 |#2|)) NIL T ELT) (($ $ |#4| $) NIL T ELT) (($ $ (-578 |#4|) (-578 $)) NIL T ELT)) (-3741 (($ $ |#4|) 97 T ELT)) (-3956 (((-793 (-323)) $) 254 T ELT) (((-793 (-478)) $) 247 T ELT) (((-467) $) 262 T ELT)) (-2801 ((|#2| $) NIL T ELT) (($ $ |#4|) 216 T ELT)) (-2687 (((-3 (-1168 $) #1#) (-625 $)) 185 T ELT)) (-3661 ((|#2| $ |#3|) NIL T ELT) (($ $ |#4| (-687)) 62 T ELT) (($ $ (-578 |#4|) (-578 (-687))) 69 T ELT)) (-2686 (((-627 $) $) 195 T ELT)) (-1253 (((-83) $ $) 227 T ELT))) (((-853 |#1| |#2| |#3| |#4|) (-10 -7 (-15 -2692 ((-1074 |#1|) (-1074 |#1|) (-1074 |#1|))) (-15 -3955 ((-341 |#1|) |#1|)) (-15 -3759 (|#1| |#1|)) (-15 -2686 ((-627 |#1|) |#1|)) (-15 -3956 ((-467) |#1|)) (-15 -3956 ((-793 (-478)) |#1|)) (-15 -3956 ((-793 (-323)) |#1|)) (-15 -2780 ((-791 (-478) |#1|) |#1| (-793 (-478)) (-791 (-478) |#1|))) (-15 -2780 ((-791 (-323) |#1|) |#1| (-793 (-323)) (-791 (-323) |#1|))) (-15 -3716 ((-341 |#1|) |#1|)) (-15 -2690 ((-341 (-1074 |#1|)) (-1074 |#1|))) (-15 -2689 ((-341 (-1074 |#1|)) (-1074 |#1|))) (-15 -2688 ((-3 (-578 (-1074 |#1|)) #1="failed") (-578 (-1074 |#1|)) (-1074 |#1|))) (-15 -2687 ((-3 (-1168 |#1|) #1#) (-625 |#1|))) (-15 -3487 (|#1| |#1| |#4|)) (-15 -2801 (|#1| |#1| |#4|)) (-15 -3741 (|#1| |#1| |#4|)) (-15 -3740 (|#1| |#1| |#1| |#4|)) (-15 -2802 ((-578 |#1|) |#1|)) (-15 -2803 ((-687) |#1| (-578 |#4|))) (-15 -2803 ((-687) |#1|)) (-15 -2808 ((-3 (-2 (|:| |var| |#4|) (|:| -2387 (-687))) #1#) |#1|)) (-15 -2807 ((-3 (-578 |#1|) #1#) |#1|)) (-15 -2806 ((-3 (-578 |#1|) #1#) |#1|)) (-15 -2877 (|#1| |#1| (-578 |#4|) (-578 (-687)))) (-15 -2877 (|#1| |#1| |#4| (-687))) (-15 -3747 ((-2 (|:| -1960 |#1|) (|:| -2886 |#1|)) |#1| |#1| |#4|)) (-15 -2805 ((-578 |#1|) |#1|)) (-15 -3661 (|#1| |#1| (-578 |#4|) (-578 (-687)))) (-15 -3661 (|#1| |#1| |#4| (-687))) (-15 -2265 ((-625 |#2|) (-625 |#1|))) (-15 -2265 ((-2 (|:| |mat| (-625 |#2|)) (|:| |vec| (-1168 |#2|))) (-625 |#1|) (-1168 |#1|))) (-15 -2265 ((-2 (|:| |mat| (-625 (-478))) (|:| |vec| (-1168 (-478)))) (-625 |#1|) (-1168 |#1|))) (-15 -2265 ((-625 (-478)) (-625 |#1|))) (-15 -3140 ((-3 |#4| #1#) |#1|)) (-15 -3139 (|#4| |#1|)) (-15 -3752 (|#1| |#1| (-578 |#4|) (-578 |#1|))) (-15 -3752 (|#1| |#1| |#4| |#1|)) (-15 -3752 (|#1| |#1| (-578 |#4|) (-578 |#2|))) (-15 -3752 (|#1| |#1| |#4| |#2|)) (-15 -3752 (|#1| |#1| (-578 |#1|) (-578 |#1|))) (-15 -3752 (|#1| |#1| |#1| |#1|)) (-15 -3752 (|#1| |#1| (-245 |#1|))) (-15 -3752 (|#1| |#1| (-578 (-245 |#1|)))) (-15 -2877 (|#1| |#2| |#3|)) (-15 -3661 (|#2| |#1| |#3|)) (-15 -3140 ((-3 (-478) #1#) |#1|)) (-15 -3139 ((-478) |#1|)) (-15 -3140 ((-3 (-343 (-478)) #1#) |#1|)) (-15 -3139 ((-343 (-478)) |#1|)) (-15 -3139 (|#2| |#1|)) (-15 -3140 ((-3 |#2| #1#) |#1|)) (-15 -2801 (|#2| |#1|)) (-15 -3487 (|#1| |#1|)) (-15 -1253 ((-83) |#1| |#1|))) (-854 |#2| |#3| |#4|) (-954) (-710) (-749)) (T -853)) NIL ((-2552 (((-83) $ $) 7 T ELT)) (-3171 (((-83) $) 21 T ELT)) (-3065 (((-578 |#3|) $) 120 T ELT)) (-3067 (((-1074 $) $ |#3|) 135 T ELT) (((-1074 |#1|) $) 134 T ELT)) (-2050 (((-2 (|:| -1759 $) (|:| -3966 $) (|:| |associate| $)) $) 97 (|has| |#1| (-489)) ELT)) (-2049 (($ $) 98 (|has| |#1| (-489)) ELT)) (-2047 (((-83) $) 100 (|has| |#1| (-489)) ELT)) (-2803 (((-687) $) 122 T ELT) (((-687) $ (-578 |#3|)) 121 T ELT)) (-1299 (((-3 $ "failed") $ $) 25 T ELT)) (-2691 (((-341 (-1074 $)) (-1074 $)) 110 (|has| |#1| (-814)) ELT)) (-3759 (($ $) 108 (|has| |#1| (-385)) ELT)) (-3955 (((-341 $) $) 107 (|has| |#1| (-385)) ELT)) (-2688 (((-3 (-578 (-1074 $)) #1="failed") (-578 (-1074 $)) (-1074 $)) 113 (|has| |#1| (-814)) ELT)) (-3708 (($) 22 T CONST)) (-3140 (((-3 |#1| #2="failed") $) 178 T ELT) (((-3 (-343 (-478)) #2#) $) 175 (|has| |#1| (-943 (-343 (-478)))) ELT) (((-3 (-478) #2#) $) 173 (|has| |#1| (-943 (-478))) ELT) (((-3 |#3| #2#) $) 150 T ELT)) (-3139 ((|#1| $) 177 T ELT) (((-343 (-478)) $) 176 (|has| |#1| (-943 (-343 (-478)))) ELT) (((-478) $) 174 (|has| |#1| (-943 (-478))) ELT) ((|#3| $) 151 T ELT)) (-3740 (($ $ $ |#3|) 118 (|has| |#1| (-144)) ELT)) (-3943 (($ $) 168 T ELT)) (-2265 (((-625 (-478)) (-625 $)) 146 (|has| |#1| (-575 (-478))) ELT) (((-2 (|:| |mat| (-625 (-478))) (|:| |vec| (-1168 (-478)))) (-625 $) (-1168 $)) 145 (|has| |#1| (-575 (-478))) ELT) (((-2 (|:| |mat| (-625 |#1|)) (|:| |vec| (-1168 |#1|))) (-625 $) (-1168 $)) 144 T ELT) (((-625 |#1|) (-625 $)) 143 T ELT)) (-3451 (((-3 $ "failed") $) 42 T ELT)) (-3487 (($ $) 190 (|has| |#1| (-385)) ELT) (($ $ |#3|) 115 (|has| |#1| (-385)) ELT)) (-2802 (((-578 $) $) 119 T ELT)) (-3707 (((-83) $) 106 (|has| |#1| (-814)) ELT)) (-1611 (($ $ |#1| |#2| $) 186 T ELT)) (-2780 (((-791 (-323) $) $ (-793 (-323)) (-791 (-323) $)) 94 (-12 (|has| |#3| (-789 (-323))) (|has| |#1| (-789 (-323)))) ELT) (((-791 (-478) $) $ (-793 (-478)) (-791 (-478) $)) 93 (-12 (|has| |#3| (-789 (-478))) (|has| |#1| (-789 (-478)))) ELT)) (-2396 (((-83) $) 40 T ELT)) (-2404 (((-687) $) 183 T ELT)) (-3068 (($ (-1074 |#1|) |#3|) 127 T ELT) (($ (-1074 $) |#3|) 126 T ELT)) (-2805 (((-578 $) $) 136 T ELT)) (-3921 (((-83) $) 166 T ELT)) (-2877 (($ |#1| |#2|) 167 T ELT) (($ $ |#3| (-687)) 129 T ELT) (($ $ (-578 |#3|) (-578 (-687))) 128 T ELT)) (-3747 (((-2 (|:| -1960 $) (|:| -2886 $)) $ $ |#3|) 130 T ELT)) (-2804 ((|#2| $) 184 T ELT) (((-687) $ |#3|) 132 T ELT) (((-578 (-687)) $ (-578 |#3|)) 131 T ELT)) (-1612 (($ (-1 |#2| |#2|) $) 185 T ELT)) (-3942 (($ (-1 |#1| |#1|) $) 165 T ELT)) (-3066 (((-3 |#3| "failed") $) 133 T ELT)) (-2266 (((-625 (-478)) (-1168 $)) 148 (|has| |#1| (-575 (-478))) ELT) (((-2 (|:| |mat| (-625 (-478))) (|:| |vec| (-1168 (-478)))) (-1168 $) $) 147 (|has| |#1| (-575 (-478))) ELT) (((-2 (|:| |mat| (-625 |#1|)) (|:| |vec| (-1168 |#1|))) (-1168 $) $) 142 T ELT) (((-625 |#1|) (-1168 $)) 141 T ELT)) (-2878 (($ $) 163 T ELT)) (-3157 ((|#1| $) 162 T ELT)) (-1878 (($ (-578 $)) 104 (|has| |#1| (-385)) ELT) (($ $ $) 103 (|has| |#1| (-385)) ELT)) (-3225 (((-1062) $) 11 T ELT)) (-2807 (((-3 (-578 $) "failed") $) 124 T ELT)) (-2806 (((-3 (-578 $) "failed") $) 125 T ELT)) (-2808 (((-3 (-2 (|:| |var| |#3|) (|:| -2387 (-687))) "failed") $) 123 T ELT)) (-3226 (((-1023) $) 12 T ELT)) (-1784 (((-83) $) 180 T ELT)) (-1783 ((|#1| $) 181 T ELT)) (-2692 (((-1074 $) (-1074 $) (-1074 $)) 105 (|has| |#1| (-385)) ELT)) (-3127 (($ (-578 $)) 102 (|has| |#1| (-385)) ELT) (($ $ $) 101 (|has| |#1| (-385)) ELT)) (-2689 (((-341 (-1074 $)) (-1074 $)) 112 (|has| |#1| (-814)) ELT)) (-2690 (((-341 (-1074 $)) (-1074 $)) 111 (|has| |#1| (-814)) ELT)) (-3716 (((-341 $) $) 109 (|has| |#1| (-814)) ELT)) (-3450 (((-3 $ "failed") $ |#1|) 188 (|has| |#1| (-489)) ELT) (((-3 $ "failed") $ $) 96 (|has| |#1| (-489)) ELT)) (-3752 (($ $ (-578 (-245 $))) 159 T ELT) (($ $ (-245 $)) 158 T ELT) (($ $ $ $) 157 T ELT) (($ $ (-578 $) (-578 $)) 156 T ELT) (($ $ |#3| |#1|) 155 T ELT) (($ $ (-578 |#3|) (-578 |#1|)) 154 T ELT) (($ $ |#3| $) 153 T ELT) (($ $ (-578 |#3|) (-578 $)) 152 T ELT)) (-3741 (($ $ |#3|) 117 (|has| |#1| (-144)) ELT)) (-3742 (($ $ (-578 |#3|) (-578 (-687))) 49 T ELT) (($ $ |#3| (-687)) 48 T ELT) (($ $ (-578 |#3|)) 47 T ELT) (($ $ |#3|) 45 T ELT)) (-3932 ((|#2| $) 164 T ELT) (((-687) $ |#3|) 140 T ELT) (((-578 (-687)) $ (-578 |#3|)) 139 T ELT)) (-3956 (((-793 (-323)) $) 92 (-12 (|has| |#3| (-548 (-793 (-323)))) (|has| |#1| (-548 (-793 (-323))))) ELT) (((-793 (-478)) $) 91 (-12 (|has| |#3| (-548 (-793 (-478)))) (|has| |#1| (-548 (-793 (-478))))) ELT) (((-467) $) 90 (-12 (|has| |#3| (-548 (-467))) (|has| |#1| (-548 (-467)))) ELT)) (-2801 ((|#1| $) 189 (|has| |#1| (-385)) ELT) (($ $ |#3|) 116 (|has| |#1| (-385)) ELT)) (-2687 (((-3 (-1168 $) #1#) (-625 $)) 114 (-2546 (|has| $ (-116)) (|has| |#1| (-814))) ELT)) (-3930 (((-765) $) 13 T ELT) (($ (-478)) 38 T ELT) (($ |#1|) 179 T ELT) (($ |#3|) 149 T ELT) (($ $) 95 (|has| |#1| (-489)) ELT) (($ (-343 (-478))) 88 (OR (|has| |#1| (-943 (-343 (-478)))) (|has| |#1| (-38 (-343 (-478))))) ELT)) (-3801 (((-578 |#1|) $) 182 T ELT)) (-3661 ((|#1| $ |#2|) 169 T ELT) (($ $ |#3| (-687)) 138 T ELT) (($ $ (-578 |#3|) (-578 (-687))) 137 T ELT)) (-2686 (((-627 $) $) 89 (OR (-2546 (|has| $ (-116)) (|has| |#1| (-814))) (|has| |#1| (-116))) ELT)) (-3109 (((-687)) 37 T CONST)) (-1610 (($ $ $ (-687)) 187 (|has| |#1| (-144)) ELT)) (-1253 (((-83) $ $) 6 T ELT)) (-2048 (((-83) $ $) 99 (|has| |#1| (-489)) ELT)) (-2644 (($) 23 T CONST)) (-2650 (($) 39 T CONST)) (-2653 (($ $ (-578 |#3|) (-578 (-687))) 52 T ELT) (($ $ |#3| (-687)) 51 T ELT) (($ $ (-578 |#3|)) 50 T ELT) (($ $ |#3|) 46 T ELT)) (-3037 (((-83) $ $) 8 T ELT)) (-3933 (($ $ |#1|) 170 (|has| |#1| (-308)) ELT)) (-3821 (($ $) 28 T ELT) (($ $ $) 27 T ELT)) (-3823 (($ $ $) 18 T ELT)) (** (($ $ (-823)) 33 T ELT) (($ $ (-687)) 41 T ELT)) (* (($ (-823) $) 17 T ELT) (($ (-687) $) 20 T ELT) (($ (-478) $) 29 T ELT) (($ $ $) 32 T ELT) (($ $ (-343 (-478))) 172 (|has| |#1| (-38 (-343 (-478)))) ELT) (($ (-343 (-478)) $) 171 (|has| |#1| (-38 (-343 (-478)))) ELT) (($ |#1| $) 161 T ELT) (($ $ |#1|) 160 T ELT))) @@ -3427,7 +3427,7 @@ NIL ((-3557 (((-578 |#2|) |#1|) 15 T ELT)) (-3329 (((-578 |#2|) |#2| |#2| |#2| |#2| |#2|) 47 T ELT) (((-578 |#2|) |#1|) 61 T ELT)) (-3327 (((-578 |#2|) |#2| |#2| |#2|) 45 T ELT) (((-578 |#2|) |#1|) 59 T ELT)) (-3324 ((|#2| |#1|) 54 T ELT)) (-3325 (((-2 (|:| |solns| (-578 |#2|)) (|:| |maps| (-578 (-2 (|:| |arg| |#2|) (|:| |res| |#2|))))) |#1| (-1 |#2| |#2|)) 20 T ELT)) (-3326 (((-578 |#2|) |#2| |#2|) 42 T ELT) (((-578 |#2|) |#1|) 58 T ELT)) (-3328 (((-578 |#2|) |#2| |#2| |#2| |#2|) 46 T ELT) (((-578 |#2|) |#1|) 60 T ELT)) (-3333 ((|#2| |#2| |#2| |#2| |#2| |#2|) 53 T ELT)) (-3331 ((|#2| |#2| |#2| |#2|) 51 T ELT)) (-3330 ((|#2| |#2| |#2|) 50 T ELT)) (-3332 ((|#2| |#2| |#2| |#2| |#2|) 52 T ELT))) (((-1031 |#1| |#2|) (-10 -7 (-15 -3557 ((-578 |#2|) |#1|)) (-15 -3324 (|#2| |#1|)) (-15 -3325 ((-2 (|:| |solns| (-578 |#2|)) (|:| |maps| (-578 (-2 (|:| |arg| |#2|) (|:| |res| |#2|))))) |#1| (-1 |#2| |#2|))) (-15 -3326 ((-578 |#2|) |#1|)) (-15 -3327 ((-578 |#2|) |#1|)) (-15 -3328 ((-578 |#2|) |#1|)) (-15 -3329 ((-578 |#2|) |#1|)) (-15 -3326 ((-578 |#2|) |#2| |#2|)) (-15 -3327 ((-578 |#2|) |#2| |#2| |#2|)) (-15 -3328 ((-578 |#2|) |#2| |#2| |#2| |#2|)) (-15 -3329 ((-578 |#2|) |#2| |#2| |#2| |#2| |#2|)) (-15 -3330 (|#2| |#2| |#2|)) (-15 -3331 (|#2| |#2| |#2| |#2|)) (-15 -3332 (|#2| |#2| |#2| |#2| |#2|)) (-15 -3333 (|#2| |#2| |#2| |#2| |#2| |#2|))) (-1144 |#2|) (-13 (-308) (-10 -8 (-15 ** ($ $ (-343 (-478))))))) (T -1031)) ((-3333 (*1 *2 *2 *2 *2 *2 *2) (-12 (-4 *2 (-13 (-308) (-10 -8 (-15 ** ($ $ (-343 (-478))))))) (-5 *1 (-1031 *3 *2)) (-4 *3 (-1144 *2)))) (-3332 (*1 *2 *2 *2 *2 *2) (-12 (-4 *2 (-13 (-308) (-10 -8 (-15 ** ($ $ (-343 (-478))))))) (-5 *1 (-1031 *3 *2)) (-4 *3 (-1144 *2)))) (-3331 (*1 *2 *2 *2 *2) (-12 (-4 *2 (-13 (-308) (-10 -8 (-15 ** ($ $ (-343 (-478))))))) (-5 *1 (-1031 *3 *2)) (-4 *3 (-1144 *2)))) (-3330 (*1 *2 *2 *2) (-12 (-4 *2 (-13 (-308) (-10 -8 (-15 ** ($ $ (-343 (-478))))))) (-5 *1 (-1031 *3 *2)) (-4 *3 (-1144 *2)))) (-3329 (*1 *2 *3 *3 *3 *3 *3) (-12 (-4 *3 (-13 (-308) (-10 -8 (-15 ** ($ $ (-343 (-478))))))) (-5 *2 (-578 *3)) (-5 *1 (-1031 *4 *3)) (-4 *4 (-1144 *3)))) (-3328 (*1 *2 *3 *3 *3 *3) (-12 (-4 *3 (-13 (-308) (-10 -8 (-15 ** ($ $ (-343 (-478))))))) (-5 *2 (-578 *3)) (-5 *1 (-1031 *4 *3)) (-4 *4 (-1144 *3)))) (-3327 (*1 *2 *3 *3 *3) (-12 (-4 *3 (-13 (-308) (-10 -8 (-15 ** ($ $ (-343 (-478))))))) (-5 *2 (-578 *3)) (-5 *1 (-1031 *4 *3)) (-4 *4 (-1144 *3)))) (-3326 (*1 *2 *3 *3) (-12 (-4 *3 (-13 (-308) (-10 -8 (-15 ** ($ $ (-343 (-478))))))) (-5 *2 (-578 *3)) (-5 *1 (-1031 *4 *3)) (-4 *4 (-1144 *3)))) (-3329 (*1 *2 *3) (-12 (-4 *4 (-13 (-308) (-10 -8 (-15 ** ($ $ (-343 (-478))))))) (-5 *2 (-578 *4)) (-5 *1 (-1031 *3 *4)) (-4 *3 (-1144 *4)))) (-3328 (*1 *2 *3) (-12 (-4 *4 (-13 (-308) (-10 -8 (-15 ** ($ $ (-343 (-478))))))) (-5 *2 (-578 *4)) (-5 *1 (-1031 *3 *4)) (-4 *3 (-1144 *4)))) (-3327 (*1 *2 *3) (-12 (-4 *4 (-13 (-308) (-10 -8 (-15 ** ($ $ (-343 (-478))))))) (-5 *2 (-578 *4)) (-5 *1 (-1031 *3 *4)) (-4 *3 (-1144 *4)))) (-3326 (*1 *2 *3) (-12 (-4 *4 (-13 (-308) (-10 -8 (-15 ** ($ $ (-343 (-478))))))) (-5 *2 (-578 *4)) (-5 *1 (-1031 *3 *4)) (-4 *3 (-1144 *4)))) (-3325 (*1 *2 *3 *4) (-12 (-5 *4 (-1 *5 *5)) (-4 *5 (-13 (-308) (-10 -8 (-15 ** ($ $ (-343 (-478))))))) (-5 *2 (-2 (|:| |solns| (-578 *5)) (|:| |maps| (-578 (-2 (|:| |arg| *5) (|:| |res| *5)))))) (-5 *1 (-1031 *3 *5)) (-4 *3 (-1144 *5)))) (-3324 (*1 *2 *3) (-12 (-4 *2 (-13 (-308) (-10 -8 (-15 ** ($ $ (-343 (-478))))))) (-5 *1 (-1031 *3 *2)) (-4 *3 (-1144 *2)))) (-3557 (*1 *2 *3) (-12 (-4 *4 (-13 (-308) (-10 -8 (-15 ** ($ $ (-343 (-478))))))) (-5 *2 (-578 *4)) (-5 *1 (-1031 *3 *4)) (-4 *3 (-1144 *4))))) -((-3334 (((-578 (-578 (-245 (-261 |#1|)))) (-578 (-245 (-343 (-850 |#1|))))) 118 T ELT) (((-578 (-578 (-245 (-261 |#1|)))) (-578 (-245 (-343 (-850 |#1|)))) (-578 (-1079))) 117 T ELT) (((-578 (-578 (-245 (-261 |#1|)))) (-578 (-343 (-850 |#1|)))) 115 T ELT) (((-578 (-578 (-245 (-261 |#1|)))) (-578 (-343 (-850 |#1|))) (-578 (-1079))) 113 T ELT) (((-578 (-245 (-261 |#1|))) (-245 (-343 (-850 |#1|)))) 97 T ELT) (((-578 (-245 (-261 |#1|))) (-245 (-343 (-850 |#1|))) (-1079)) 98 T ELT) (((-578 (-245 (-261 |#1|))) (-343 (-850 |#1|))) 92 T ELT) (((-578 (-245 (-261 |#1|))) (-343 (-850 |#1|)) (-1079)) 82 T ELT)) (-3335 (((-578 (-578 (-261 |#1|))) (-578 (-343 (-850 |#1|))) (-578 (-1079))) 111 T ELT) (((-578 (-261 |#1|)) (-343 (-850 |#1|)) (-1079)) 54 T ELT)) (-3336 (((-1069 (-578 (-261 |#1|)) (-578 (-245 (-261 |#1|)))) (-343 (-850 |#1|)) (-1079)) 122 T ELT) (((-1069 (-578 (-261 |#1|)) (-578 (-245 (-261 |#1|)))) (-245 (-343 (-850 |#1|))) (-1079)) 121 T ELT))) +((-3334 (((-578 (-578 (-245 (-261 |#1|)))) (-578 (-245 (-343 (-850 |#1|))))) 119 T ELT) (((-578 (-578 (-245 (-261 |#1|)))) (-578 (-245 (-343 (-850 |#1|)))) (-578 (-1079))) 118 T ELT) (((-578 (-578 (-245 (-261 |#1|)))) (-578 (-343 (-850 |#1|)))) 116 T ELT) (((-578 (-578 (-245 (-261 |#1|)))) (-578 (-343 (-850 |#1|))) (-578 (-1079))) 113 T ELT) (((-578 (-245 (-261 |#1|))) (-245 (-343 (-850 |#1|)))) 97 T ELT) (((-578 (-245 (-261 |#1|))) (-245 (-343 (-850 |#1|))) (-1079)) 98 T ELT) (((-578 (-245 (-261 |#1|))) (-343 (-850 |#1|))) 92 T ELT) (((-578 (-245 (-261 |#1|))) (-343 (-850 |#1|)) (-1079)) 82 T ELT)) (-3335 (((-578 (-578 (-261 |#1|))) (-578 (-343 (-850 |#1|))) (-578 (-1079))) 111 T ELT) (((-578 (-261 |#1|)) (-343 (-850 |#1|)) (-1079)) 54 T ELT)) (-3336 (((-1069 (-578 (-261 |#1|)) (-578 (-245 (-261 |#1|)))) (-343 (-850 |#1|)) (-1079)) 123 T ELT) (((-1069 (-578 (-261 |#1|)) (-578 (-245 (-261 |#1|)))) (-245 (-343 (-850 |#1|))) (-1079)) 122 T ELT))) (((-1032 |#1|) (-10 -7 (-15 -3334 ((-578 (-245 (-261 |#1|))) (-343 (-850 |#1|)) (-1079))) (-15 -3334 ((-578 (-245 (-261 |#1|))) (-343 (-850 |#1|)))) (-15 -3334 ((-578 (-245 (-261 |#1|))) (-245 (-343 (-850 |#1|))) (-1079))) (-15 -3334 ((-578 (-245 (-261 |#1|))) (-245 (-343 (-850 |#1|))))) (-15 -3334 ((-578 (-578 (-245 (-261 |#1|)))) (-578 (-343 (-850 |#1|))) (-578 (-1079)))) (-15 -3334 ((-578 (-578 (-245 (-261 |#1|)))) (-578 (-343 (-850 |#1|))))) (-15 -3334 ((-578 (-578 (-245 (-261 |#1|)))) (-578 (-245 (-343 (-850 |#1|)))) (-578 (-1079)))) (-15 -3334 ((-578 (-578 (-245 (-261 |#1|)))) (-578 (-245 (-343 (-850 |#1|)))))) (-15 -3335 ((-578 (-261 |#1|)) (-343 (-850 |#1|)) (-1079))) (-15 -3335 ((-578 (-578 (-261 |#1|))) (-578 (-343 (-850 |#1|))) (-578 (-1079)))) (-15 -3336 ((-1069 (-578 (-261 |#1|)) (-578 (-245 (-261 |#1|)))) (-245 (-343 (-850 |#1|))) (-1079))) (-15 -3336 ((-1069 (-578 (-261 |#1|)) (-578 (-245 (-261 |#1|)))) (-343 (-850 |#1|)) (-1079)))) (-13 (-254) (-118))) (T -1032)) ((-3336 (*1 *2 *3 *4) (-12 (-5 *3 (-343 (-850 *5))) (-5 *4 (-1079)) (-4 *5 (-13 (-254) (-118))) (-5 *2 (-1069 (-578 (-261 *5)) (-578 (-245 (-261 *5))))) (-5 *1 (-1032 *5)))) (-3336 (*1 *2 *3 *4) (-12 (-5 *3 (-245 (-343 (-850 *5)))) (-5 *4 (-1079)) (-4 *5 (-13 (-254) (-118))) (-5 *2 (-1069 (-578 (-261 *5)) (-578 (-245 (-261 *5))))) (-5 *1 (-1032 *5)))) (-3335 (*1 *2 *3 *4) (-12 (-5 *3 (-578 (-343 (-850 *5)))) (-5 *4 (-578 (-1079))) (-4 *5 (-13 (-254) (-118))) (-5 *2 (-578 (-578 (-261 *5)))) (-5 *1 (-1032 *5)))) (-3335 (*1 *2 *3 *4) (-12 (-5 *3 (-343 (-850 *5))) (-5 *4 (-1079)) (-4 *5 (-13 (-254) (-118))) (-5 *2 (-578 (-261 *5))) (-5 *1 (-1032 *5)))) (-3334 (*1 *2 *3) (-12 (-5 *3 (-578 (-245 (-343 (-850 *4))))) (-4 *4 (-13 (-254) (-118))) (-5 *2 (-578 (-578 (-245 (-261 *4))))) (-5 *1 (-1032 *4)))) (-3334 (*1 *2 *3 *4) (-12 (-5 *3 (-578 (-245 (-343 (-850 *5))))) (-5 *4 (-578 (-1079))) (-4 *5 (-13 (-254) (-118))) (-5 *2 (-578 (-578 (-245 (-261 *5))))) (-5 *1 (-1032 *5)))) (-3334 (*1 *2 *3) (-12 (-5 *3 (-578 (-343 (-850 *4)))) (-4 *4 (-13 (-254) (-118))) (-5 *2 (-578 (-578 (-245 (-261 *4))))) (-5 *1 (-1032 *4)))) (-3334 (*1 *2 *3 *4) (-12 (-5 *3 (-578 (-343 (-850 *5)))) (-5 *4 (-578 (-1079))) (-4 *5 (-13 (-254) (-118))) (-5 *2 (-578 (-578 (-245 (-261 *5))))) (-5 *1 (-1032 *5)))) (-3334 (*1 *2 *3) (-12 (-5 *3 (-245 (-343 (-850 *4)))) (-4 *4 (-13 (-254) (-118))) (-5 *2 (-578 (-245 (-261 *4)))) (-5 *1 (-1032 *4)))) (-3334 (*1 *2 *3 *4) (-12 (-5 *3 (-245 (-343 (-850 *5)))) (-5 *4 (-1079)) (-4 *5 (-13 (-254) (-118))) (-5 *2 (-578 (-245 (-261 *5)))) (-5 *1 (-1032 *5)))) (-3334 (*1 *2 *3) (-12 (-5 *3 (-343 (-850 *4))) (-4 *4 (-13 (-254) (-118))) (-5 *2 (-578 (-245 (-261 *4)))) (-5 *1 (-1032 *4)))) (-3334 (*1 *2 *3 *4) (-12 (-5 *3 (-343 (-850 *5))) (-5 *4 (-1079)) (-4 *5 (-13 (-254) (-118))) (-5 *2 (-578 (-245 (-261 *5)))) (-5 *1 (-1032 *5))))) ((-3338 (((-343 (-1074 (-261 |#1|))) (-1168 (-261 |#1|)) (-343 (-1074 (-261 |#1|))) (-478)) 36 T ELT)) (-3337 (((-343 (-1074 (-261 |#1|))) (-343 (-1074 (-261 |#1|))) (-343 (-1074 (-261 |#1|))) (-343 (-1074 (-261 |#1|)))) 48 T ELT))) @@ -3610,7 +3610,7 @@ NIL ((-2552 (((-83) $ $) NIL T ELT)) (-3225 (((-1062) $) NIL T ELT)) (-3226 (((-1023) $) NIL T ELT)) (-3930 (((-765) $) 9 T ELT)) (-1253 (((-83) $ $) NIL T ELT)) (-3037 (((-83) $ $) 7 T ELT))) (((-1087) (-1005)) (T -1087)) NIL -((-3558 (((-578 (-578 (-850 |#1|))) (-578 (-343 (-850 |#1|))) (-578 (-1079))) 69 T ELT)) (-3557 (((-578 (-245 (-343 (-850 |#1|)))) (-245 (-343 (-850 |#1|)))) 81 T ELT) (((-578 (-245 (-343 (-850 |#1|)))) (-343 (-850 |#1|))) 77 T ELT) (((-578 (-245 (-343 (-850 |#1|)))) (-245 (-343 (-850 |#1|))) (-1079)) 82 T ELT) (((-578 (-245 (-343 (-850 |#1|)))) (-343 (-850 |#1|)) (-1079)) 76 T ELT) (((-578 (-578 (-245 (-343 (-850 |#1|))))) (-578 (-245 (-343 (-850 |#1|))))) 107 T ELT) (((-578 (-578 (-245 (-343 (-850 |#1|))))) (-578 (-343 (-850 |#1|)))) 106 T ELT) (((-578 (-578 (-245 (-343 (-850 |#1|))))) (-578 (-245 (-343 (-850 |#1|)))) (-578 (-1079))) 108 T ELT) (((-578 (-578 (-245 (-343 (-850 |#1|))))) (-578 (-343 (-850 |#1|))) (-578 (-1079))) 105 T ELT))) +((-3558 (((-578 (-578 (-850 |#1|))) (-578 (-343 (-850 |#1|))) (-578 (-1079))) 69 T ELT)) (-3557 (((-578 (-245 (-343 (-850 |#1|)))) (-245 (-343 (-850 |#1|)))) 81 T ELT) (((-578 (-245 (-343 (-850 |#1|)))) (-343 (-850 |#1|))) 77 T ELT) (((-578 (-245 (-343 (-850 |#1|)))) (-245 (-343 (-850 |#1|))) (-1079)) 82 T ELT) (((-578 (-245 (-343 (-850 |#1|)))) (-343 (-850 |#1|)) (-1079)) 76 T ELT) (((-578 (-578 (-245 (-343 (-850 |#1|))))) (-578 (-245 (-343 (-850 |#1|))))) 108 T ELT) (((-578 (-578 (-245 (-343 (-850 |#1|))))) (-578 (-343 (-850 |#1|)))) 107 T ELT) (((-578 (-578 (-245 (-343 (-850 |#1|))))) (-578 (-245 (-343 (-850 |#1|)))) (-578 (-1079))) 109 T ELT) (((-578 (-578 (-245 (-343 (-850 |#1|))))) (-578 (-343 (-850 |#1|))) (-578 (-1079))) 106 T ELT))) (((-1088 |#1|) (-10 -7 (-15 -3557 ((-578 (-578 (-245 (-343 (-850 |#1|))))) (-578 (-343 (-850 |#1|))) (-578 (-1079)))) (-15 -3557 ((-578 (-578 (-245 (-343 (-850 |#1|))))) (-578 (-245 (-343 (-850 |#1|)))) (-578 (-1079)))) (-15 -3557 ((-578 (-578 (-245 (-343 (-850 |#1|))))) (-578 (-343 (-850 |#1|))))) (-15 -3557 ((-578 (-578 (-245 (-343 (-850 |#1|))))) (-578 (-245 (-343 (-850 |#1|)))))) (-15 -3557 ((-578 (-245 (-343 (-850 |#1|)))) (-343 (-850 |#1|)) (-1079))) (-15 -3557 ((-578 (-245 (-343 (-850 |#1|)))) (-245 (-343 (-850 |#1|))) (-1079))) (-15 -3557 ((-578 (-245 (-343 (-850 |#1|)))) (-343 (-850 |#1|)))) (-15 -3557 ((-578 (-245 (-343 (-850 |#1|)))) (-245 (-343 (-850 |#1|))))) (-15 -3558 ((-578 (-578 (-850 |#1|))) (-578 (-343 (-850 |#1|))) (-578 (-1079))))) (-489)) (T -1088)) ((-3558 (*1 *2 *3 *4) (-12 (-5 *3 (-578 (-343 (-850 *5)))) (-5 *4 (-578 (-1079))) (-4 *5 (-489)) (-5 *2 (-578 (-578 (-850 *5)))) (-5 *1 (-1088 *5)))) (-3557 (*1 *2 *3) (-12 (-4 *4 (-489)) (-5 *2 (-578 (-245 (-343 (-850 *4))))) (-5 *1 (-1088 *4)) (-5 *3 (-245 (-343 (-850 *4)))))) (-3557 (*1 *2 *3) (-12 (-4 *4 (-489)) (-5 *2 (-578 (-245 (-343 (-850 *4))))) (-5 *1 (-1088 *4)) (-5 *3 (-343 (-850 *4))))) (-3557 (*1 *2 *3 *4) (-12 (-5 *4 (-1079)) (-4 *5 (-489)) (-5 *2 (-578 (-245 (-343 (-850 *5))))) (-5 *1 (-1088 *5)) (-5 *3 (-245 (-343 (-850 *5)))))) (-3557 (*1 *2 *3 *4) (-12 (-5 *4 (-1079)) (-4 *5 (-489)) (-5 *2 (-578 (-245 (-343 (-850 *5))))) (-5 *1 (-1088 *5)) (-5 *3 (-343 (-850 *5))))) (-3557 (*1 *2 *3) (-12 (-4 *4 (-489)) (-5 *2 (-578 (-578 (-245 (-343 (-850 *4)))))) (-5 *1 (-1088 *4)) (-5 *3 (-578 (-245 (-343 (-850 *4))))))) (-3557 (*1 *2 *3) (-12 (-5 *3 (-578 (-343 (-850 *4)))) (-4 *4 (-489)) (-5 *2 (-578 (-578 (-245 (-343 (-850 *4)))))) (-5 *1 (-1088 *4)))) (-3557 (*1 *2 *3 *4) (-12 (-5 *4 (-578 (-1079))) (-4 *5 (-489)) (-5 *2 (-578 (-578 (-245 (-343 (-850 *5)))))) (-5 *1 (-1088 *5)) (-5 *3 (-578 (-245 (-343 (-850 *5))))))) (-3557 (*1 *2 *3 *4) (-12 (-5 *3 (-578 (-343 (-850 *5)))) (-5 *4 (-578 (-1079))) (-4 *5 (-489)) (-5 *2 (-578 (-578 (-245 (-343 (-850 *5)))))) (-5 *1 (-1088 *5))))) ((-3563 (((-1062)) 7 T ELT)) (-3560 (((-1062)) 11 T CONST)) (-3559 (((-1174) (-1062)) 13 T ELT)) (-3562 (((-1062)) 8 T CONST)) (-3561 (((-101)) 10 T CONST))) @@ -3935,7 +3935,7 @@ NIL NIL (-13 (-954) (-80 |t#1| |t#1|) (-550 |t#1|) (-10 -7 (IF (|has| |t#1| (-144)) (-6 (-38 |t#1|)) |%noBranch|))) (((-21) . T) ((-23) . T) ((-25) . T) ((-38 |#1|) |has| |#1| (-144)) ((-72) . T) ((-80 |#1| |#1|) . T) ((-102) . T) ((-550 (-478)) . T) ((-550 |#1|) . T) ((-547 (-765)) . T) ((-583 (-478)) . T) ((-583 |#1|) . T) ((-583 $) . T) ((-585 |#1|) . T) ((-585 $) . T) ((-577 |#1|) |has| |#1| (-144)) ((-649 |#1|) |has| |#1| (-144)) ((-658) . T) ((-956 |#1|) . T) ((-961 |#1|) . T) ((-954) . T) ((-962) . T) ((-1015) . T) ((-1005) . T) ((-1118) . T)) -((-2552 (((-83) $ $) 67 T ELT)) (-3171 (((-83) $) NIL T ELT)) (-3918 (((-578 |#1|) $) 52 T ELT)) (-3931 (($ $ (-687)) 46 T ELT)) (-1299 (((-3 $ #1="failed") $ $) NIL T ELT)) (-3919 (($ $ (-687)) 24 (|has| |#2| (-144)) ELT) (($ $ $) 25 (|has| |#2| (-144)) ELT)) (-3708 (($) NIL T CONST)) (-3923 (($ $ $) 70 T ELT) (($ $ (-732 |#1|)) 56 T ELT) (($ $ |#1|) 60 T ELT)) (-3140 (((-3 (-732 |#1|) #1#) $) NIL T ELT)) (-3139 (((-732 |#1|) $) NIL T ELT)) (-3943 (($ $) 39 T ELT)) (-3451 (((-3 $ #1#) $) NIL T ELT)) (-3935 (((-83) $) NIL T ELT)) (-3934 (($ $) NIL T ELT)) (-2396 (((-83) $) NIL T ELT)) (-2404 (((-687) $) NIL T ELT)) (-2805 (((-578 $) $) NIL T ELT)) (-3921 (((-83) $) NIL T ELT)) (-3922 (($ (-732 |#1|) |#2|) 38 T ELT)) (-3920 (($ $) 40 T ELT)) (-3925 (((-2 (|:| |k| (-732 |#1|)) (|:| |c| |#2|)) $) 12 T ELT)) (-3939 (((-732 |#1|) $) NIL T ELT)) (-3940 (((-732 |#1|) $) 41 T ELT)) (-3942 (($ (-1 |#2| |#2|) $) NIL T ELT)) (-3924 (($ $ $) 69 T ELT) (($ $ (-732 |#1|)) 58 T ELT) (($ $ |#1|) 62 T ELT)) (-1736 (((-2 (|:| |k| (-732 |#1|)) (|:| |c| |#2|)) $) NIL T ELT)) (-2878 (((-732 |#1|) $) 35 T ELT)) (-3157 ((|#2| $) 37 T ELT)) (-3225 (((-1062) $) NIL T ELT)) (-3226 (((-1023) $) NIL T ELT)) (-3932 (((-687) $) 43 T ELT)) (-3937 (((-83) $) 47 T ELT)) (-3936 ((|#2| $) NIL T ELT)) (-3930 (((-765) $) NIL T ELT) (($ (-732 |#1|)) 30 T ELT) (($ |#1|) 31 T ELT) (($ |#2|) NIL T ELT) (($ (-478)) NIL T ELT)) (-3801 (((-578 |#2|) $) NIL T ELT)) (-3661 ((|#2| $ (-732 |#1|)) NIL T ELT)) (-3938 ((|#2| $ $) 76 T ELT) ((|#2| $ (-732 |#1|)) NIL T ELT)) (-3109 (((-687)) NIL T CONST)) (-1253 (((-83) $ $) NIL T ELT)) (-2644 (($) 13 T CONST)) (-2650 (($) 19 T CONST)) (-2649 (((-578 (-2 (|:| |k| (-732 |#1|)) (|:| |c| |#2|))) $) NIL T ELT)) (-3037 (((-83) $ $) 44 T ELT)) (-3821 (($ $) NIL T ELT) (($ $ $) NIL T ELT)) (-3823 (($ $ $) 28 T ELT)) (** (($ $ (-687)) NIL T ELT) (($ $ (-823)) NIL T ELT)) (* (($ (-823) $) NIL T ELT) (($ (-687) $) NIL T ELT) (($ (-478) $) NIL T ELT) (($ |#2| $) 27 T ELT) (($ $ |#2|) 68 T ELT) (($ |#2| (-732 |#1|)) NIL T ELT) (($ |#1| $) 33 T ELT) (($ $ $) NIL T ELT))) +((-2552 (((-83) $ $) 68 T ELT)) (-3171 (((-83) $) NIL T ELT)) (-3918 (((-578 |#1|) $) 53 T ELT)) (-3931 (($ $ (-687)) 46 T ELT)) (-1299 (((-3 $ #1="failed") $ $) NIL T ELT)) (-3919 (($ $ (-687)) 24 (|has| |#2| (-144)) ELT) (($ $ $) 25 (|has| |#2| (-144)) ELT)) (-3708 (($) NIL T CONST)) (-3923 (($ $ $) 71 T ELT) (($ $ (-732 |#1|)) 57 T ELT) (($ $ |#1|) 61 T ELT)) (-3140 (((-3 (-732 |#1|) #1#) $) NIL T ELT)) (-3139 (((-732 |#1|) $) NIL T ELT)) (-3943 (($ $) 39 T ELT)) (-3451 (((-3 $ #1#) $) NIL T ELT)) (-3935 (((-83) $) NIL T ELT)) (-3934 (($ $) NIL T ELT)) (-2396 (((-83) $) NIL T ELT)) (-2404 (((-687) $) NIL T ELT)) (-2805 (((-578 $) $) NIL T ELT)) (-3921 (((-83) $) NIL T ELT)) (-3922 (($ (-732 |#1|) |#2|) 38 T ELT)) (-3920 (($ $) 40 T ELT)) (-3925 (((-2 (|:| |k| (-732 |#1|)) (|:| |c| |#2|)) $) 12 T ELT)) (-3939 (((-732 |#1|) $) NIL T ELT)) (-3940 (((-732 |#1|) $) 41 T ELT)) (-3942 (($ (-1 |#2| |#2|) $) NIL T ELT)) (-3924 (($ $ $) 70 T ELT) (($ $ (-732 |#1|)) 59 T ELT) (($ $ |#1|) 63 T ELT)) (-1736 (((-2 (|:| |k| (-732 |#1|)) (|:| |c| |#2|)) $) NIL T ELT)) (-2878 (((-732 |#1|) $) 35 T ELT)) (-3157 ((|#2| $) 37 T ELT)) (-3225 (((-1062) $) NIL T ELT)) (-3226 (((-1023) $) NIL T ELT)) (-3932 (((-687) $) 43 T ELT)) (-3937 (((-83) $) 47 T ELT)) (-3936 ((|#2| $) NIL T ELT)) (-3930 (((-765) $) NIL T ELT) (($ (-732 |#1|)) 30 T ELT) (($ |#1|) 31 T ELT) (($ |#2|) NIL T ELT) (($ (-478)) NIL T ELT)) (-3801 (((-578 |#2|) $) NIL T ELT)) (-3661 ((|#2| $ (-732 |#1|)) NIL T ELT)) (-3938 ((|#2| $ $) 77 T ELT) ((|#2| $ (-732 |#1|)) NIL T ELT)) (-3109 (((-687)) NIL T CONST)) (-1253 (((-83) $ $) NIL T ELT)) (-2644 (($) 13 T CONST)) (-2650 (($) 19 T CONST)) (-2649 (((-578 (-2 (|:| |k| (-732 |#1|)) (|:| |c| |#2|))) $) NIL T ELT)) (-3037 (((-83) $ $) 44 T ELT)) (-3821 (($ $) NIL T ELT) (($ $ $) NIL T ELT)) (-3823 (($ $ $) 28 T ELT)) (** (($ $ (-687)) NIL T ELT) (($ $ (-823)) NIL T ELT)) (* (($ (-823) $) NIL T ELT) (($ (-687) $) NIL T ELT) (($ (-478) $) NIL T ELT) (($ |#2| $) 27 T ELT) (($ $ |#2|) 69 T ELT) (($ |#2| (-732 |#1|)) NIL T ELT) (($ |#1| $) 33 T ELT) (($ $ $) NIL T ELT))) (((-1184 |#1| |#2|) (-13 (-328 |#2| (-732 |#1|)) (-1191 |#1| |#2|)) (-749) (-954)) (T -1184)) NIL ((-3926 ((|#3| |#3| (-687)) 28 T ELT)) (-3927 ((|#3| |#3| (-687)) 34 T ELT)) (-3911 ((|#3| |#3| |#3| (-687)) 35 T ELT))) @@ -3954,7 +3954,7 @@ NIL ((* (*1 *1 *1 *2) (-12 (-4 *1 (-1188 *3 *2)) (-4 *3 (-749)) (-4 *2 (-954)))) (* (*1 *1 *2 *1) (-12 (-4 *1 (-1188 *2 *3)) (-4 *2 (-749)) (-4 *3 (-954)))) (-3939 (*1 *2 *1) (-12 (-4 *1 (-1188 *3 *4)) (-4 *3 (-749)) (-4 *4 (-954)) (-5 *2 (-732 *3)))) (-3925 (*1 *2 *1) (-12 (-4 *1 (-1188 *3 *4)) (-4 *3 (-749)) (-4 *4 (-954)) (-5 *2 (-2 (|:| |k| (-732 *3)) (|:| |c| *4))))) (-3938 (*1 *2 *1 *3) (-12 (-5 *3 (-732 *4)) (-4 *1 (-1188 *4 *2)) (-4 *4 (-749)) (-4 *2 (-954)))) (-3938 (*1 *2 *1 *1) (-12 (-4 *1 (-1188 *3 *2)) (-4 *3 (-749)) (-4 *2 (-954)))) (-3924 (*1 *1 *1 *2) (-12 (-4 *1 (-1188 *2 *3)) (-4 *2 (-749)) (-4 *3 (-954)))) (-3924 (*1 *1 *1 *2) (-12 (-5 *2 (-732 *3)) (-4 *1 (-1188 *3 *4)) (-4 *3 (-749)) (-4 *4 (-954)))) (-3924 (*1 *1 *1 *1) (-12 (-4 *1 (-1188 *2 *3)) (-4 *2 (-749)) (-4 *3 (-954)))) (-3923 (*1 *1 *1 *2) (-12 (-4 *1 (-1188 *2 *3)) (-4 *2 (-749)) (-4 *3 (-954)))) (-3923 (*1 *1 *1 *2) (-12 (-5 *2 (-732 *3)) (-4 *1 (-1188 *3 *4)) (-4 *3 (-749)) (-4 *4 (-954)))) (-3923 (*1 *1 *1 *1) (-12 (-4 *1 (-1188 *2 *3)) (-4 *2 (-749)) (-4 *3 (-954)))) (-3922 (*1 *1 *2 *3) (-12 (-5 *2 (-732 *4)) (-4 *4 (-749)) (-4 *1 (-1188 *4 *3)) (-4 *3 (-954)))) (-3921 (*1 *2 *1) (-12 (-4 *1 (-1188 *3 *4)) (-4 *3 (-749)) (-4 *4 (-954)) (-5 *2 (-83)))) (-3920 (*1 *1 *1) (-12 (-4 *1 (-1188 *2 *3)) (-4 *2 (-749)) (-4 *3 (-954)))) (-3930 (*1 *1 *2) (-12 (-4 *1 (-1188 *2 *3)) (-4 *2 (-749)) (-4 *3 (-954)))) (-3937 (*1 *2 *1) (-12 (-4 *1 (-1188 *3 *4)) (-4 *3 (-749)) (-4 *4 (-954)) (-5 *2 (-83)))) (-3936 (*1 *2 *1) (-12 (-4 *1 (-1188 *3 *2)) (-4 *3 (-749)) (-4 *2 (-954)))) (-3935 (*1 *2 *1) (-12 (-4 *1 (-1188 *3 *4)) (-4 *3 (-749)) (-4 *4 (-954)) (-5 *2 (-83)))) (-3934 (*1 *1 *1) (-12 (-4 *1 (-1188 *2 *3)) (-4 *2 (-749)) (-4 *3 (-954)))) (-3919 (*1 *1 *1 *1) (-12 (-4 *1 (-1188 *2 *3)) (-4 *2 (-749)) (-4 *3 (-954)) (-4 *3 (-144)))) (-3919 (*1 *1 *1 *2) (-12 (-5 *2 (-687)) (-4 *1 (-1188 *3 *4)) (-4 *3 (-749)) (-4 *4 (-954)) (-4 *4 (-144)))) (-3942 (*1 *1 *2 *1) (-12 (-5 *2 (-1 *4 *4)) (-4 *1 (-1188 *3 *4)) (-4 *3 (-749)) (-4 *4 (-954)))) (-3918 (*1 *2 *1) (-12 (-4 *1 (-1188 *3 *4)) (-4 *3 (-749)) (-4 *4 (-954)) (-5 *2 (-578 *3))))) (-13 (-954) (-1183 |t#2|) (-943 (-732 |t#1|)) (-10 -8 (-15 * ($ |t#1| $)) (-15 * ($ $ |t#2|)) (-15 -3939 ((-732 |t#1|) $)) (-15 -3925 ((-2 (|:| |k| (-732 |t#1|)) (|:| |c| |t#2|)) $)) (-15 -3938 (|t#2| $ (-732 |t#1|))) (-15 -3938 (|t#2| $ $)) (-15 -3924 ($ $ |t#1|)) (-15 -3924 ($ $ (-732 |t#1|))) (-15 -3924 ($ $ $)) (-15 -3923 ($ $ |t#1|)) (-15 -3923 ($ $ (-732 |t#1|))) (-15 -3923 ($ $ $)) (-15 -3922 ($ (-732 |t#1|) |t#2|)) (-15 -3921 ((-83) $)) (-15 -3920 ($ $)) (-15 -3930 ($ |t#1|)) (-15 -3937 ((-83) $)) (-15 -3936 (|t#2| $)) (-15 -3935 ((-83) $)) (-15 -3934 ($ $)) (IF (|has| |t#2| (-144)) (PROGN (-15 -3919 ($ $ $)) (-15 -3919 ($ $ (-687)))) |%noBranch|) (-15 -3942 ($ (-1 |t#2| |t#2|) $)) (-15 -3918 ((-578 |t#1|) $)) (IF (|has| |t#2| (-6 -3972)) (-6 -3972) |%noBranch|))) (((-21) . T) ((-23) . T) ((-25) . T) ((-38 |#2|) |has| |#2| (-144)) ((-72) . T) ((-80 |#2| |#2|) . T) ((-102) . T) ((-550 (-478)) . T) ((-550 (-732 |#1|)) . T) ((-550 |#2|) . T) ((-547 (-765)) . T) ((-583 (-478)) . T) ((-583 |#2|) . T) ((-583 $) . T) ((-585 |#2|) . T) ((-585 $) . T) ((-577 |#2|) |has| |#2| (-144)) ((-649 |#2|) |has| |#2| (-144)) ((-658) . T) ((-943 (-732 |#1|)) . T) ((-956 |#2|) . T) ((-961 |#2|) . T) ((-954) . T) ((-962) . T) ((-1015) . T) ((-1005) . T) ((-1118) . T) ((-1183 |#2|) . T)) -((-2552 (((-83) $ $) NIL T ELT)) (-3171 (((-83) $) NIL T ELT)) (-3918 (((-578 |#1|) $) 97 T ELT)) (-3931 (($ $ (-687)) 101 T ELT)) (-1299 (((-3 $ #1="failed") $ $) NIL T ELT)) (-3919 (($ $ $) NIL (|has| |#2| (-144)) ELT) (($ $ (-687)) NIL (|has| |#2| (-144)) ELT)) (-3708 (($) NIL T CONST)) (-3923 (($ $ |#1|) NIL T ELT) (($ $ (-732 |#1|)) NIL T ELT) (($ $ $) NIL T ELT)) (-3140 (((-3 (-732 |#1|) #1#) $) NIL T ELT) (((-3 (-796 |#1|) #1#) $) NIL T ELT)) (-3139 (((-732 |#1|) $) NIL T ELT) (((-796 |#1|) $) NIL T ELT)) (-3943 (($ $) 100 T ELT)) (-3451 (((-3 $ #1#) $) NIL T ELT)) (-3935 (((-83) $) 89 T ELT)) (-3934 (($ $) 92 T ELT)) (-3928 (($ $ $ (-687)) 102 T ELT)) (-2396 (((-83) $) NIL T ELT)) (-2404 (((-687) $) NIL T ELT)) (-2805 (((-578 $) $) NIL T ELT)) (-3921 (((-83) $) NIL T ELT)) (-3922 (($ (-732 |#1|) |#2|) NIL T ELT) (($ (-796 |#1|) |#2|) 28 T ELT)) (-3920 (($ $) 118 T ELT)) (-3925 (((-2 (|:| |k| (-732 |#1|)) (|:| |c| |#2|)) $) NIL T ELT)) (-3939 (((-732 |#1|) $) NIL T ELT)) (-3940 (((-732 |#1|) $) NIL T ELT)) (-3942 (($ (-1 |#2| |#2|) $) NIL T ELT)) (-3924 (($ $ |#1|) NIL T ELT) (($ $ (-732 |#1|)) NIL T ELT) (($ $ $) NIL T ELT)) (-3926 (($ $ (-687)) 111 (|has| |#2| (-649 (-343 (-478)))) ELT)) (-1736 (((-2 (|:| |k| (-796 |#1|)) (|:| |c| |#2|)) $) NIL T ELT)) (-2878 (((-796 |#1|) $) 82 T ELT)) (-3157 ((|#2| $) NIL T ELT)) (-3225 (((-1062) $) NIL T ELT)) (-3226 (((-1023) $) NIL T ELT)) (-3927 (($ $ (-687)) 108 (|has| |#2| (-649 (-343 (-478)))) ELT)) (-3932 (((-687) $) 98 T ELT)) (-3937 (((-83) $) 83 T ELT)) (-3936 ((|#2| $) 87 T ELT)) (-3930 (((-765) $) 68 T ELT) (($ (-478)) NIL T ELT) (($ |#2|) 59 T ELT) (($ (-732 |#1|)) NIL T ELT) (($ |#1|) 70 T ELT) (($ (-796 |#1|)) NIL T ELT) (($ (-601 |#1| |#2|)) 47 T ELT) (((-1184 |#1| |#2|) $) 75 T ELT) (((-1193 |#1| |#2|) $) 80 T ELT)) (-3801 (((-578 |#2|) $) NIL T ELT)) (-3661 ((|#2| $ (-796 |#1|)) NIL T ELT)) (-3938 ((|#2| $ (-732 |#1|)) NIL T ELT) ((|#2| $ $) NIL T ELT)) (-3109 (((-687)) NIL T CONST)) (-1253 (((-83) $ $) NIL T ELT)) (-2644 (($) 21 T CONST)) (-2650 (($) 27 T CONST)) (-2649 (((-578 (-2 (|:| |k| (-796 |#1|)) (|:| |c| |#2|))) $) NIL T ELT)) (-3929 (((-3 (-601 |#1| |#2|) #1#) $) 117 T ELT)) (-3037 (((-83) $ $) 76 T ELT)) (-3821 (($ $) 110 T ELT) (($ $ $) 109 T ELT)) (-3823 (($ $ $) 20 T ELT)) (** (($ $ (-823)) NIL T ELT) (($ $ (-687)) NIL T ELT)) (* (($ (-823) $) NIL T ELT) (($ (-687) $) NIL T ELT) (($ (-478) $) NIL T ELT) (($ $ $) 48 T ELT) (($ |#2| $) 19 T ELT) (($ $ |#2|) NIL T ELT) (($ |#1| $) NIL T ELT) (($ |#2| (-796 |#1|)) NIL T ELT))) +((-2552 (((-83) $ $) NIL T ELT)) (-3171 (((-83) $) NIL T ELT)) (-3918 (((-578 |#1|) $) 98 T ELT)) (-3931 (($ $ (-687)) 102 T ELT)) (-1299 (((-3 $ #1="failed") $ $) NIL T ELT)) (-3919 (($ $ $) NIL (|has| |#2| (-144)) ELT) (($ $ (-687)) NIL (|has| |#2| (-144)) ELT)) (-3708 (($) NIL T CONST)) (-3923 (($ $ |#1|) NIL T ELT) (($ $ (-732 |#1|)) NIL T ELT) (($ $ $) NIL T ELT)) (-3140 (((-3 (-732 |#1|) #1#) $) NIL T ELT) (((-3 (-796 |#1|) #1#) $) NIL T ELT)) (-3139 (((-732 |#1|) $) NIL T ELT) (((-796 |#1|) $) NIL T ELT)) (-3943 (($ $) 101 T ELT)) (-3451 (((-3 $ #1#) $) NIL T ELT)) (-3935 (((-83) $) 89 T ELT)) (-3934 (($ $) 92 T ELT)) (-3928 (($ $ $ (-687)) 103 T ELT)) (-2396 (((-83) $) NIL T ELT)) (-2404 (((-687) $) NIL T ELT)) (-2805 (((-578 $) $) NIL T ELT)) (-3921 (((-83) $) NIL T ELT)) (-3922 (($ (-732 |#1|) |#2|) NIL T ELT) (($ (-796 |#1|) |#2|) 28 T ELT)) (-3920 (($ $) 119 T ELT)) (-3925 (((-2 (|:| |k| (-732 |#1|)) (|:| |c| |#2|)) $) NIL T ELT)) (-3939 (((-732 |#1|) $) NIL T ELT)) (-3940 (((-732 |#1|) $) NIL T ELT)) (-3942 (($ (-1 |#2| |#2|) $) NIL T ELT)) (-3924 (($ $ |#1|) NIL T ELT) (($ $ (-732 |#1|)) NIL T ELT) (($ $ $) NIL T ELT)) (-3926 (($ $ (-687)) 112 (|has| |#2| (-649 (-343 (-478)))) ELT)) (-1736 (((-2 (|:| |k| (-796 |#1|)) (|:| |c| |#2|)) $) NIL T ELT)) (-2878 (((-796 |#1|) $) 82 T ELT)) (-3157 ((|#2| $) NIL T ELT)) (-3225 (((-1062) $) NIL T ELT)) (-3226 (((-1023) $) NIL T ELT)) (-3927 (($ $ (-687)) 109 (|has| |#2| (-649 (-343 (-478)))) ELT)) (-3932 (((-687) $) 99 T ELT)) (-3937 (((-83) $) 83 T ELT)) (-3936 ((|#2| $) 87 T ELT)) (-3930 (((-765) $) 68 T ELT) (($ (-478)) NIL T ELT) (($ |#2|) 59 T ELT) (($ (-732 |#1|)) NIL T ELT) (($ |#1|) 70 T ELT) (($ (-796 |#1|)) NIL T ELT) (($ (-601 |#1| |#2|)) 47 T ELT) (((-1184 |#1| |#2|) $) 75 T ELT) (((-1193 |#1| |#2|) $) 80 T ELT)) (-3801 (((-578 |#2|) $) NIL T ELT)) (-3661 ((|#2| $ (-796 |#1|)) NIL T ELT)) (-3938 ((|#2| $ (-732 |#1|)) NIL T ELT) ((|#2| $ $) NIL T ELT)) (-3109 (((-687)) NIL T CONST)) (-1253 (((-83) $ $) NIL T ELT)) (-2644 (($) 21 T CONST)) (-2650 (($) 27 T CONST)) (-2649 (((-578 (-2 (|:| |k| (-796 |#1|)) (|:| |c| |#2|))) $) NIL T ELT)) (-3929 (((-3 (-601 |#1| |#2|) #1#) $) 118 T ELT)) (-3037 (((-83) $ $) 76 T ELT)) (-3821 (($ $) 111 T ELT) (($ $ $) 110 T ELT)) (-3823 (($ $ $) 20 T ELT)) (** (($ $ (-823)) NIL T ELT) (($ $ (-687)) NIL T ELT)) (* (($ (-823) $) NIL T ELT) (($ (-687) $) NIL T ELT) (($ (-478) $) NIL T ELT) (($ $ $) 48 T ELT) (($ |#2| $) 19 T ELT) (($ $ |#2|) NIL T ELT) (($ |#1| $) NIL T ELT) (($ |#2| (-796 |#1|)) NIL T ELT))) (((-1189 |#1| |#2|) (-13 (-1191 |#1| |#2|) (-328 |#2| (-796 |#1|)) (-10 -8 (-15 -3930 ($ (-601 |#1| |#2|))) (-15 -3930 ((-1184 |#1| |#2|) $)) (-15 -3930 ((-1193 |#1| |#2|) $)) (-15 -3929 ((-3 (-601 |#1| |#2|) "failed") $)) (-15 -3928 ($ $ $ (-687))) (IF (|has| |#2| (-649 (-343 (-478)))) (PROGN (-15 -3927 ($ $ (-687))) (-15 -3926 ($ $ (-687)))) |%noBranch|))) (-749) (-144)) (T -1189)) ((-3930 (*1 *1 *2) (-12 (-5 *2 (-601 *3 *4)) (-4 *3 (-749)) (-4 *4 (-144)) (-5 *1 (-1189 *3 *4)))) (-3930 (*1 *2 *1) (-12 (-5 *2 (-1184 *3 *4)) (-5 *1 (-1189 *3 *4)) (-4 *3 (-749)) (-4 *4 (-144)))) (-3930 (*1 *2 *1) (-12 (-5 *2 (-1193 *3 *4)) (-5 *1 (-1189 *3 *4)) (-4 *3 (-749)) (-4 *4 (-144)))) (-3929 (*1 *2 *1) (|partial| -12 (-5 *2 (-601 *3 *4)) (-5 *1 (-1189 *3 *4)) (-4 *3 (-749)) (-4 *4 (-144)))) (-3928 (*1 *1 *1 *1 *2) (-12 (-5 *2 (-687)) (-5 *1 (-1189 *3 *4)) (-4 *3 (-749)) (-4 *4 (-144)))) (-3927 (*1 *1 *1 *2) (-12 (-5 *2 (-687)) (-5 *1 (-1189 *3 *4)) (-4 *4 (-649 (-343 (-478)))) (-4 *3 (-749)) (-4 *4 (-144)))) (-3926 (*1 *1 *1 *2) (-12 (-5 *2 (-687)) (-5 *1 (-1189 *3 *4)) (-4 *4 (-649 (-343 (-478)))) (-4 *3 (-749)) (-4 *4 (-144))))) ((-2552 (((-83) $ $) NIL T ELT)) (-3171 (((-83) $) NIL T ELT)) (-3918 (((-578 (-1079)) $) NIL T ELT)) (-3946 (($ (-1184 (-1079) |#1|)) NIL T ELT)) (-3931 (($ $ (-687)) NIL T ELT)) (-1299 (((-3 $ #1="failed") $ $) NIL T ELT)) (-3919 (($ $ $) NIL (|has| |#1| (-144)) ELT) (($ $ (-687)) NIL (|has| |#1| (-144)) ELT)) (-3708 (($) NIL T CONST)) (-3923 (($ $ (-1079)) NIL T ELT) (($ $ (-732 (-1079))) NIL T ELT) (($ $ $) NIL T ELT)) (-3140 (((-3 (-732 (-1079)) #1#) $) NIL T ELT)) (-3139 (((-732 (-1079)) $) NIL T ELT)) (-3451 (((-3 $ #1#) $) NIL T ELT)) (-3935 (((-83) $) NIL T ELT)) (-3934 (($ $) NIL T ELT)) (-2396 (((-83) $) NIL T ELT)) (-3921 (((-83) $) NIL T ELT)) (-3922 (($ (-732 (-1079)) |#1|) NIL T ELT)) (-3920 (($ $) NIL T ELT)) (-3925 (((-2 (|:| |k| (-732 (-1079))) (|:| |c| |#1|)) $) NIL T ELT)) (-3939 (((-732 (-1079)) $) NIL T ELT)) (-3940 (((-732 (-1079)) $) NIL T ELT)) (-3942 (($ (-1 |#1| |#1|) $) NIL T ELT)) (-3924 (($ $ (-1079)) NIL T ELT) (($ $ (-732 (-1079))) NIL T ELT) (($ $ $) NIL T ELT)) (-3225 (((-1062) $) NIL T ELT)) (-3226 (((-1023) $) NIL T ELT)) (-3947 (((-1184 (-1079) |#1|) $) NIL T ELT)) (-3932 (((-687) $) NIL T ELT)) (-3937 (((-83) $) NIL T ELT)) (-3936 ((|#1| $) NIL T ELT)) (-3930 (((-765) $) NIL T ELT) (($ (-478)) NIL T ELT) (($ |#1|) NIL T ELT) (($ (-732 (-1079))) NIL T ELT) (($ (-1079)) NIL T ELT)) (-3938 ((|#1| $ (-732 (-1079))) NIL T ELT) ((|#1| $ $) NIL T ELT)) (-3109 (((-687)) NIL T CONST)) (-1253 (((-83) $ $) NIL T ELT)) (-2644 (($) NIL T CONST)) (-3945 (((-578 (-2 (|:| |k| (-1079)) (|:| |c| $))) $) NIL T ELT)) (-2650 (($) NIL T CONST)) (-3037 (((-83) $ $) NIL T ELT)) (-3821 (($ $) NIL T ELT) (($ $ $) NIL T ELT)) (-3823 (($ $ $) NIL T ELT)) (** (($ $ (-823)) NIL T ELT) (($ $ (-687)) NIL T ELT)) (* (($ (-823) $) NIL T ELT) (($ (-687) $) NIL T ELT) (($ (-478) $) NIL T ELT) (($ $ $) NIL T ELT) (($ |#1| $) NIL T ELT) (($ $ |#1|) NIL T ELT) (($ (-1079) $) NIL T ELT))) diff --git a/src/share/algebra/operation.daase b/src/share/algebra/operation.daase index fb7e9997..cbf20863 100644 --- a/src/share/algebra/operation.daase +++ b/src/share/algebra/operation.daase @@ -1,5 +1,5 @@ -(630509 . 3525500985) +(630509 . 3526439784) (((*1 *2 *3 *4) (|partial| -12 (-5 *3 (-1168 *4)) (-4 *4 (-13 (-954) (-575 (-478)))) (-5 *2 (-1168 (-343 (-478)))) (-5 *1 (-1197 *4))))) |