;;; -*- Mode: Lisp; Package: USER; Syntax: Common-Lisp; Base: 10 -*- ;;;; (IN-PACKAGE "USER") ; Creation date: April 2, 2000 21:52:59 ; Created as: /v/hank/v28/boyer/nqthm-2nd/nqthm-1992/examples/yu/gcd.lib (EVAL-WHEN (LOAD EVAL COMPILE) (CHK-BASE-AND-PACKAGE-1992 10 *PACKAGE*)) (INIT-LIB (QUOTE (TYPE-PRESCRIPTION-LST LEMMAS TOTALP-LST LINEAR-LEMMAS QUICK-BLOCK-INFO SDEFN LISP-CODE SUBRP BODY ERRATICP TYPE-RESTRICTIONS INDUCTION-MACHINE LEVEL-NO JUSTIFICATIONS IDATE ELIMINATE-DESTRUCTORS-SEQ ELIMINATE-DESTRUCTORS-DESTS CONTROLLER-POCKETS SATELLITES MAIN-EVENT IMMEDIATE-DEPENDENTS0 EVENT LOCAL-UNDO-TUPLES)) (QUOTE (NONCONSTRUCTIVE-AXIOM-NAMES *1*BTM-OBJECTS RECOGNIZER-ALIST TRUE-COMPOUND-RECOGNIZER-ALIST FALSE-COMPOUND-RECOGNIZER-ALIST SHELL-ALIST SINGLETON-TYPE-SETS GENERALIZE-LEMMAS SHELL-POCKETS DEFINED-FUNCTIONS-TOGGLED DISABLED-LEMMAS *1*THM-MODE$ FREE-VARS-IN-REWRITE-RHSS CHRONOLOGY))) (SETQ LIB-DATE 1000402215259) (SETQ LIB-VERSION (QUOTE 7)) (SETQ NONCONSTRUCTIVE-AXIOM-NAMES (QUOTE NIL)) (SETQ *1*BTM-OBJECTS (QUOTE (ZERO))) (SETQ RECOGNIZER-ALIST (QUOTE ((NEGATIVEP . 32) (LISTP . 16) (LITATOM . 8) (NUMBERP . 4) (TRUEP . 2) (FALSEP . 1)))) (SETQ TRUE-COMPOUND-RECOGNIZER-ALIST (QUOTE NIL)) (SETQ FALSE-COMPOUND-RECOGNIZER-ALIST (QUOTE NIL)) (SETQ SHELL-ALIST (QUOTE ((MINUS . 5) (CONS . 4) (PACK . 3) (ADD1 . 2) (TRUE . 1) (FALSE . 0)))) (SETQ SINGLETON-TYPE-SETS (QUOTE (2 1))) (SETQ GENERALIZE-LEMMAS (QUOTE ((GENERALIZE-LEMMA REMAINDER-LESSP (EQUAL (LESSP (REMAINDER X Y) Y) (NOT (ZEROP Y)))) (GENERALIZE-LEMMA QUOTIENT-GENERALIZE (EQUAL (EQUAL (QUOTIENT M N) (QUOTE 0)) (IF (OR (ZEROP M) (ZEROP N)) (QUOTE *1*TRUE) (LESSP M N))))))) (SETQ SHELL-POCKETS (QUOTE ((MINUS NEGATIVE-GUTS) (CONS CAR CDR) (PACK UNPACK) (ADD1 SUB1) (TRUE) (FALSE)))) (SETQ DEFINED-FUNCTIONS-TOGGLED (QUOTE NIL)) (SETQ DISABLED-LEMMAS (QUOTE ((GCD-T GCD-T-OFF . T) (IREMAINDER IREMAINDER-ON) (INTEGERP INTEGERP-ON) (ADD-UINTXXX ADD-UINTXXX-OFF . T) (PLUS-TIMES-SUB1 PLUS-TIMES-SUB1-OFF . T) (IDIFFERENCE IDIFFERENCE-OFF . T) (NAT-RANGEP-LA NAT-RANGEP-LA-OFF . T) (SLEN SLEN-OFF . T) (LST-OF-CHRP LST-OF-CHRP-OFF . T) (PUT-NTH PUT-NTH-OFF . T) (GET-NTH GET-NTH-OFF . T) (EQUAL* EQUAL*-OFF . T) (MEM-ILST MEM-ILST-OFF . T) (MEM-LST MEM-LST-OFF . T) (MCODE-ADDRP MCODE-ADDRP-OFF . T) (SPLUS SPLUS-OFF . T) (STEPN STEPN-OFF . T) (UINT-TO-NAT UINT-TO-NAT-OFF . T) (NAT-TO-UINT NAT-TO-UINT-OFF . T) (ADD-COMMUTATIVITY1 ADD-COMMUTATIVITY1-OFF . T) (ADD-COMMUTATIVITY ADD-COMMUTATIVITY-OFF . T) (ADD-NON-NUMBERP ADD-NON-NUMBERP-OFF . T) (DISJOINT-LA3 DISJOINT-LA3-OFF . T) (DISJOINT-LA2 DISJOINT-LA2-OFF . T) (DISJOINT-LA1 DISJOINT-LA1-OFF . T) (DISJOINT-LA0 DISJOINT-LA0-OFF . T) (DISJOINT0-LA2 DISJOINT0-LA2-OFF . T) (DISJOINT0-LA1 DISJOINT0-LA1-OFF . T) (DISJOINT0-LA0 DISJOINT0-LA0-OFF . T) (DISJOINT DISJOINT-OFF . T) (DISJOINT0 DISJOINT0-OFF . T) (WRITE-MEMP-LA3 WRITE-MEMP-LA3-OFF . T) (WRITE-MEMP-LA2 WRITE-MEMP-LA2-OFF . T) (WRITE-MEMP-LA1 WRITE-MEMP-LA1-OFF . T) (WRITE-MEMP-LA0 WRITE-MEMP-LA0-OFF . T) (PC-READ-MEMP-LA3 PC-READ-MEMP-LA3-OFF . T) (PC-READ-MEMP-LA2 PC-READ-MEMP-LA2-OFF . T) (PC-READ-MEMP-LA1 PC-READ-MEMP-LA1-OFF . T) (PC-READ-MEMP-LA0 PC-READ-MEMP-LA0-OFF . T) (WRITEM-RN WRITEM-RN-OFF . T) (READM-RN READM-RN-OFF . T) (WRITE-MEM WRITE-MEM-OFF . T) (WRITE-MEMP WRITE-MEMP-OFF . T) (READ-MEM READ-MEM-OFF . T) (READ-MEMP READ-MEMP-OFF . T) (PC-READ-MEM PC-READ-MEM-OFF . T) (PC-READ-MEMP PC-READ-MEMP-OFF . T) (EOR-N EOR-N-OFF . T) (EOR-Z EOR-Z-OFF . T) (NOT-N NOT-N-OFF . T) (NOT-Z NOT-Z-OFF . T) (SWAP-N SWAP-N-OFF . T) (SWAP-Z SWAP-Z-OFF . T) (EXT-N EXT-N-OFF . T) (EXT-Z EXT-Z-OFF . T) (MOVE-N MOVE-N-OFF . T) (MOVE-Z MOVE-Z-OFF . T) (ROXR-N ROXR-N-OFF . T) (ROXR-Z ROXR-Z-OFF . T) (ROXR-C ROXR-C-OFF . T) (ROXL-N ROXL-N-OFF . T) (ROXL-Z ROXL-Z-OFF . T) (ROXL-C ROXL-C-OFF . T) (ASR-N ASR-N-OFF . T) (ASR-Z ASR-Z-OFF . T) (ASR-C ASR-C-OFF . T) (ASL-N ASL-N-OFF . T) (ASL-Z ASL-Z-OFF . T) (ASL-V ASL-V-OFF . T) (ASL-C ASL-C-OFF . T) (LSR-N LSR-N-OFF . T) (LSR-Z LSR-Z-OFF . T) (LSR-C LSR-C-OFF . T) (LSL-N LSL-N-OFF . T) (LSL-Z LSL-Z-OFF . T) (LSL-C LSL-C-OFF . T) (ROR-N ROR-N-OFF . T) (ROR-Z ROR-Z-OFF . T) (ROR-C ROR-C-OFF . T) (ROL-N ROL-N-OFF . T) (ROL-Z ROL-Z-OFF . T) (ROL-C ROL-C-OFF . T) (DIVU-N DIVU-N-OFF . T) (DIVU-Z DIVU-Z-OFF . T) (DIVS-N DIVS-N-OFF . T) (DIVS-Z DIVS-Z-OFF . T) (OR-N OR-N-OFF . T) (OR-Z OR-Z-OFF . T) (MULS-N MULS-N-OFF . T) (MULS-Z MULS-Z-OFF . T) (MULS-V MULS-V-OFF . T) (MULU-N MULU-N-OFF . T) (MULU-Z MULU-Z-OFF . T) (MULU-V MULU-V-OFF . T) (AND-N AND-N-OFF . T) (AND-Z AND-Z-OFF . T) (SUBX-N SUBX-N-OFF . T) (SUBX-Z SUBX-Z-OFF . T) (SUBX-V SUBX-V-OFF . T) (SUB-N SUB-N-OFF . T) (SUB-V SUB-V-OFF . T) (ADDX-N ADDX-N-OFF . T) (ADDX-Z ADDX-Z-OFF . T) (ADDX-V ADDX-V-OFF . T) (ADD-N ADD-N-OFF . T) (ADD-Z ADD-Z-OFF . T) (ADD-V ADD-V-OFF . T) (FIX-BIT FIX-BIT-OFF . T) (ASR ASR-OFF . T) (ASL ASL-OFF . T) (LSR LSR-OFF . T) (LSL LSL-OFF . T) (IREM IREM-OFF . T) (IQUOT IQUOT-OFF . T) (REM REM-OFF . T) (QUOT QUOT-OFF . T) (MULS MULS-OFF . T) (MULU MULU-OFF . T) (QUOTIENT-EXIT QUOTIENT-EXIT-OFF . T) (REMAINDER-EXIT REMAINDER-EXIT-OFF . T) (PLUS-ADD1-1 PLUS-ADD1-1-OFF . T) (READ-MEM-PLUS READ-MEM-PLUS-OFF . T) (BETWEEN-ILEQ BETWEEN-ILEQ-OFF . T) (MOD32-EQ MOD32-EQ-OFF . T) (LSTCPY-CPY1 LSTCPY-CPY1-OFF . T) (PLUS-DIFFERENCE PLUS-DIFFERENCE-OFF . T) (MEM-LST-LEN MEM-LST-LEN-OFF . T) (DISJOINT-LEQ1-UINT DISJOINT-LEQ1-UINT-OFF . T) (DISJOINT-LEQ-UINT DISJOINT-LEQ-UINT-OFF . T) (DISJOINT-COMMUTATIVITY DISJOINT-COMMUTATIVITY-OFF . T) (DISJOINT0-LEQ DISJOINT0-LEQ-OFF . T) (DISJOINT-LEQ1 DISJOINT-LEQ1-OFF . T) (DISJOINT-LEQ DISJOINT-LEQ-OFF . T) (GET-VALS-0 GET-VALS-0-OFF . T) (MEM-LST-SAME MEM-LST-SAME-OFF . T) (MEM-LST-NON-NUMBERP MEM-LST-NON-NUMBERP-OFF . T) (READ-MEM-NON-NUMBERP READ-MEM-NON-NUMBERP-OFF . T) (INDEX-N INDEX-N-OFF . T) (TIMES-PLUS-LESSP-CANCEL TIMES-PLUS-LESSP-CANCEL-OFF . T) (READ->PC-READ-MEM READ->PC-READ-MEM-OFF . T) (LST-NUMBERP LST-NUMBERP-OFF . T) (READ-LST READ-LST-OFF . T) (RAM-ADDRP RAM-ADDRP-OFF . T) (ROM-ADDRP ROM-ADDRP-OFF . T) (ADD-PLUS ADD-PLUS-OFF . T) (NAT-TO-INT= NAT-TO-INT=-OFF . T) (ADD-BMI-CROCK2 ADD-BMI-CROCK2-OFF . T) (ADD-BMI-CROCK1 ADD-BMI-CROCK1-OFF . T) (ILESSP-CROCK2 ILESSP-CROCK2-OFF . T) (ILESSP-CROCK1 ILESSP-CROCK1-OFF . T) (SUB-Z-LA1 SUB-Z-LA1-OFF . T) (SUB-Z-LA SUB-Z-LA-OFF . T) (SUBX-V-LA SUBX-V-LA-OFF . T) (ADDX-V-LA ADDX-V-LA-OFF . T) (SUB-SUBX-V SUB-SUBX-V-OFF . T) (SUBX-ADDX-V SUBX-ADDX-V-OFF . T) (ADD-ADDX-V ADD-ADDX-V-OFF . T) (SUBX-C-LA SUBX-C-LA-OFF . T) (ADDX-C-LA ADDX-C-LA-OFF . T) (SUB-SUBX-C SUB-SUBX-C-OFF . T) (ADD-ADDX-C ADD-ADDX-C-OFF . T) (BMI BMI-OFF . T) (MBIT-MEANS-NEGATIVEP MBIT-MEANS-NEGATIVEP-OFF . T) (BGT BGT-OFF . T) (BLE BLE-OFF . T) (SUB-Z SUB-Z-OFF . T) (BLT BLT-OFF . T) (BGE BGE-OFF . T) (BVS BVS-OFF . T) (ADDX-V-CROCK2 ADDX-V-CROCK2-OFF . T) (ADDX-V-CROCK1 ADDX-V-CROCK1-OFF . T) (BCS BCS-OFF . T) (TAIL-MBIT TAIL-MBIT-OFF . T) (BEQ BEQ-OFF . T) (INT-TO-NAT=0 INT-TO-NAT=0-OFF . T) (IQUOTIENT=0 IQUOTIENT=0-OFF . T) (BLS BLS-OFF . T) (BHI BHI-OFF . T) (MBIT-MEANS-LESSP MBIT-MEANS-LESSP-OFF . T) (SUB-C SUB-C-OFF . T) (SUBX-C SUBX-C-OFF . T) (ADD-C ADD-C-OFF . T) (ADDX-C ADDX-C-OFF . T) (NEG NEG-OFF . T) (BYTE-READ-WRITE-MEM-END BYTE-READ-WRITE-MEM-END-OFF . T) (READ-MEM-BYTE-WRITE-END READ-MEM-BYTE-WRITE-END-OFF . T) (READ-WRITE-MEM-END READ-WRITE-MEM-END-OFF . T) (BYTE-WRITE BYTE-WRITE-OFF . T) (BYTE-READ BYTE-READ-OFF . T) (PC-BYTE-READ PC-BYTE-READ-OFF . T) (BYTE-WRITEP BYTE-WRITEP-OFF . T) (BYTE-READP BYTE-READP-OFF . T) (PC-BYTE-READP PC-BYTE-READP-OFF . T) (HEAD-RECURSION HEAD-RECURSION-OFF . T) (PLUS-TIMES-EQUAL PLUS-TIMES-EQUAL-OFF . T) (PC-READ PC-READ-OFF . T) (GET-VLST GET-VLST-OFF . T) (GET-VLST-MEMBER GET-VLST-MEMBER-OFF . T) (READ-RN-0 READ-RN-0-OFF . T) (READ-WRITEM-RN-END READ-WRITEM-RN-END-OFF . T) (WRITE-RN WRITE-RN-OFF . T) (READ-RN READ-RN-OFF . T) (PUT-NTH-0 PUT-NTH-0-OFF . T) (GET-NTH-0 GET-NTH-0-OFF . T) (MC-STATE MC-STATE-OFF . T) (MC-MEM MC-MEM-OFF . T) (MC-CCR MC-CCR-OFF . T) (MC-PC MC-PC-OFF . T) (MC-RFILE MC-RFILE-OFF . T) (MC-STATUS MC-STATUS-OFF . T) (SET-CVZNX SET-CVZNX-OFF . T) (CVZNX CVZNX-OFF . T) (CCR-X CCR-X-OFF . T) (CCR-N CCR-N-OFF . T) (CCR-Z CCR-Z-OFF . T) (CCR-V CCR-V-OFF . T) (CCR-C CCR-C-OFF . T) (EXT EXT-OFF . T) (NAT-RANGEP NAT-RANGEP-OFF . T) (BITN BITN-OFF . T) (REPLACE REPLACE-OFF . T) (APP APP-OFF . T) (BCDR BCDR-OFF . T) (BCAR BCAR-OFF . T) (TAIL TAIL-OFF . T) (HEAD HEAD-OFF . T) (EXP2-LEQ EXP2-LEQ-OFF . T) (ADD-NEG-ADDER ADD-NEG-ADDER-OFF . T) (SUBTRACTER SUBTRACTER-OFF . T) (ADDER ADDER-OFF . T) (ADDER-INT-END ADDER-INT-END-OFF . T) (SUB-ADDER SUB-ADDER-OFF . T) (ADD-ADDER ADD-ADDER-OFF . T) (SUB SUB-OFF . T) (ADD ADD-OFF . T) (PLUS-ADD1-SUB1 PLUS-ADD1-SUB1-OFF . T) (REMAINDER-LEQ REMAINDER-LEQ-OFF . T) (SUBTRACTER-NAT-LA SUBTRACTER-NAT-LA-OFF . T) (ADDER-NAT-LA ADDER-NAT-LA-OFF . T) (SUB-NAT-LA SUB-NAT-LA-OFF . T) (ADD-NAT-LA ADD-NAT-LA-OFF . T) (PLUS-NUMBERP PLUS-NUMBERP-OFF . T) (DIVS-V DIVS-V-OFF . T) (DIVU-V DIVU-V-OFF . T) (INT-RANGEP INT-RANGEP-OFF . T) (HEAD-INT-CROCK HEAD-INT-CROCK-OFF . T) (MULS-CROCK MULS-CROCK-OFF . T) (TIMES-LESSP_4 TIMES-LESSP_4-OFF . T) (TIMES-LESSP_3 TIMES-LESSP_3-OFF . T) (TIMES-LESSP_2 TIMES-LESSP_2-OFF . T) (TIMES-LESSP_1 TIMES-LESSP_1-OFF . T) (EXP2-LESSP-CROCK EXP2-LESSP-CROCK-OFF . T) (INTEGERP INTEGERP-OFF . T) (IQUOTIENT IQUOTIENT-OFF . T) (IREMAINDER IREMAINDER-OFF . T) (ITIMES ITIMES-OFF . T) (IPLUS IPLUS-OFF . T) (INT-TO-NAT INT-TO-NAT-OFF . T) (NAT-TO-INT NAT-TO-INT-OFF . T) (PLUS-TO-IPLUS PLUS-TO-IPLUS-OFF . T) (EXP2-LESSP EXP2-LESSP-OFF . T) (QUOTIENT-DIFF QUOTIENT-DIFF-OFF . T) (REMAINDER-DIFF REMAINDER-DIFF-OFF . T) (QUOTIENT-EXP-LESSP QUOTIENT-EXP-LESSP-OFF . T) (ASR-INT-CROCK ASR-INT-CROCK-OFF . T) (TIMES-SUB1 TIMES-SUB1-OFF . T) (ASL-INT-CROCK2 ASL-INT-CROCK2-OFF . T) (ASL-INT-CROCK1 ASL-INT-CROCK1-OFF . T) (LOGNOT LOGNOT-OFF . T) (EVENP EVENP-OFF . T) (NAT-TO-BV-SIZED-HEAD NAT-TO-BV-SIZED-HEAD-OFF . T) (BV-SIZED-TO-NAT-HEAD BV-SIZED-TO-NAT-HEAD-OFF . T) (TIMES-DISTRIBUTES-PLUS TIMES-DISTRIBUTES-PLUS-OFF . T) (QUOTIENT-CROCK QUOTIENT-CROCK-OFF . T) (REMAINDER-CROCK REMAINDER-CROCK-OFF . T) (QUOTIENT-DIFFERENCE QUOTIENT-DIFFERENCE-OFF . T) (REMAINDER-DIFFERENCE REMAINDER-DIFFERENCE-OFF . T) (QUOTIENT-GENERALIZE QUOTIENT-GENERALIZE-OFF . T) (TIMES TIMES-OFF . T) (LESSP-1-TIMES-TREE-DELETE LESSP-1-TIMES-TREE-DELETE-OFF . T) (AND-NOT-ZEROP-TREE-DELETE AND-NOT-ZEROP-TREE-DELETE-OFF . T) (AND-NOT-ZEROP-TREE-LESSP AND-NOT-ZEROP-TREE-LESSP-OFF . T) (EQUAL-IFF EQUAL-IFF-OFF . T) (APPLY$ GROUND-ZERO . T) (V&C-APPLY$ GROUND-ZERO . T)))) (SETQ *1*THM-MODE$ (QUOTE NQTHM)) (SETQ FREE-VARS-IN-REWRITE-RHSS (QUOTE NIL)) (SETQ CHRONOLOGY (QUOTE (GCD-T-UBOUND GCD-T-UB GCD-T1-T2 GCD-T2-UB GCD-T2 GCD-T-SHRINK-2 GCD-T-SHRINK-1 REMAINDER-SHRINK-HALF LESSP-TIMES-LESSP GCD-THE-GREATEST GCD-IS-CD REMAINDER-REMAINDER GCD-T-OFF GCD-CORRECTNESS GCD-S0-SN-RFILE GCD-S0-SN GCD-S0-S0-RFILE-2 GCD-S0-S0-RFILE-1 GCD-S0-S0-2 GCD-S0-S0-1 IREMAINDER-ON INTEGERP-ON GCD-S0-SN-BASE-RFILE-2 GCD-S0-SN-BASE-2 GCD-S0-SN-BASE-RFILE-1 GCD-S0-SN-BASE-1 GCD-S-S0-MEM GCD-S-S0-RFILE GCD-S-S0 GCD-S0P GCD-STATEP GCD-INDUCT GCD-T GCD-T1 GCD STEPN-GCD-LOADP GCD-LOAD GCD-CODE AND-Z-COMMUTATIVITY RAM-ADDRP-4 RAM-ADDRP-3 ADD-UINTXXX-OFF ADD-UINTXXX ADD-UINTXX DIFFERENCE-LESSP-CANCEL-2 DIFFERENCE-LESSP-CANCEL-1 DIFFERENCE-CANCEL-4294967292 LESSP-CANCEL-4294967292 DIFFERENCE-CANCEL-4294967295 LESSP-CANCEL-4294967295 PLUS3-TIMES-SUB1 PLUS2-TIMES-SUB1 PLUS-TIMES-SUB1-OFF PLUS-TIMES-SUB1 PLUS-0 MEAN-DIFFERENCE-2 MEAN-DIFFERENCE-1 DIFFERENCE-IS-1 DIFFERENCE-CANCEL-1 IDIFFERENCE-OFF IDIFFERENCE-INT-RANGEP READ-MEM-INT-8_16 READ-MEM-INT-16_32 READ-MEM-INT-8_32 READ-RN-INT-8_16 READ-RN-INT-16_32 READ-RN-INT-8_32 DISJOINT-7-UINT DISJOINT-6-UINT DISJOINT-5-UINT DISJOINT-3-UINT DISJOINT-2~-UINT DISJOINT-2-UINT DISJOINT-1-UINT WRITE-MEMP-RAM1-UINT READ-MEMP-RAM1-UINT DISJOINT-3-INT DISJOINT-2~-INT DISJOINT-2-INT DISJOINT-1-INT NAT-RANGEP-LA-OFF NAT-RANGEP-LA STRCSPN-BOUNDS STRSPN-BOUNDS STRSPN-UBOUND STRSTR-BOUNDS STRRCHR-BOUNDS STRPBRK-BOUNDS MEMCHR-BOUNDS STRCHR-BOUNDS STRINGP-LA SLEN-OFF SLEN-REC LESSP-SLEN-MCDR-0 LESSP-SLEN-MCDR SLEN-PUT SLEN-PUT0 SLEN-ADD1 SLEN-01 SLEN-LBOUND SLEN-UBOUND STRINGP SLEN LST-OF-CHRP-OFF PUT-LST-OF-CHRP GET-LST-OF-CHRP LST-OF-CHRP STRXFRM STRXFRM1 STRTOK-LAST STRTOK-LAST1 STRTOK-LAST0 STRTOK-LST STRTOK-LST2 STRTOK-LST1 STRTOK-LST0 STRTOK-TOK STRSTR* STRSTR1* STRSPN* STRPBRK* STRRCHR* STRCSPN* STRCHR1* STRCHR* MEMCHR* STRLEN* MEMMOVE MEMMOVE-3 MEMMOVE-4 MEMMOVE-0 MEMMOVE-1 STRSTR STRSTR1 STRPBRK STRSPN STRCHR1-FALSE-0 STRCHR1-BOUNDS STRCHR1 STRRCHR STRCSPN STRCHR STRNCPY STRNCPY1 ZERO-LIST ZERO-LIST1 STRNCMP STRNCMP1 STRNCAT STRCPY2 STRCAT STRCPY1 STRCOLL STRCMP STRCPY STRLEN MEMSET MEMSET1 MEMCMP MEMCMP1 MEMCHR MEMCHR1 EOF NULL PUT-NTH-OFF GET-NTH-OFF GET-SWAP SWAP MEAN-LESSP MEAN-LESSP-LEMMA D6-7A2-5P D5-7A4-5P D4-7A5P D4-7A4-5P D2-7A3-5P D5-7A2-5P D4-7A2-5P D3-7A2-5P D2-7A2-5P EQUAL*-OFF READ-RN-EQUAL* EQUAL*-REFLEX EQUAL* MEM-ILST-OFF MEM-LST-OFF MEM-ILST-LST-INTEGERP MEM-LST-INTEGERP GET-LST-INTEGERP LST-INTEGERP PUT-LST-INT GET-LST-INT LST-INT RN-SAVED MOVEM-SAVED LINKED-A6 LINKED-RTS-ADDR RTS-ADDR IREAD-AN IREAD-DN IREAD-MEM UREAD-AN UREAD-DN UREAD-MEM MCODE-ADDRP-OFF SPLUS-OFF STEPN-MCODE-ADDRP STEPN-READ-MEM STEPN-PC-READ-MEM STEPN-RAM-ADDRP STEPN-ROM-ADDRP STEPN-WRITE-MEMP STEPN-READ-MEMP STEPN-PC-READ-MEMP STEPN-H STEPI-P STEPI-H MISC-GROUP-H MOVEM-PRE-RNLST-LEN MOVEM-RNLST-LEN WRITEM-MEM-H S&R-GROUP-H MOVE-GROUP-H MOVE-H BIT-GROUP-H MOVEP-WRITE-H WRITE-MEM-MAINTAIN-MOVEP-WRITEP BCC-GROUP-H CMP-GROUP-H SCC-GROUP-H OR-GROUP-H AND-GROUP-H SUB-GROUP-H ADD-GROUP-H T3 MAPPING-H MC-INSTATE-MEM EFFEC-ADDR-MEM IMMEDIATE-MEM ADDR-INDEX2-MEM H-INVARIANT GROUPS MODE-GUARDS STEPN-OFF UINT-TO-NAT-OFF NAT-TO-UINT-OFF ADD-COMMUTATIVITY1-OFF ADD-COMMUTATIVITY-OFF ADD-NON-NUMBERP-OFF DISJOINT-LA3-OFF DISJOINT-LA2-OFF DISJOINT-LA1-OFF DISJOINT-LA0-OFF DISJOINT0-LA2-OFF DISJOINT0-LA1-OFF DISJOINT0-LA0-OFF DISJOINT-OFF DISJOINT0-OFF WRITE-MEMP-LA3-OFF WRITE-MEMP-LA2-OFF WRITE-MEMP-LA1-OFF WRITE-MEMP-LA0-OFF PC-READ-MEMP-LA3-OFF PC-READ-MEMP-LA2-OFF PC-READ-MEMP-LA1-OFF PC-READ-MEMP-LA0-OFF WRITEM-RN-OFF READM-RN-OFF WRITE-MEM-OFF WRITE-MEMP-OFF READ-MEM-OFF READ-MEMP-OFF PC-READ-MEM-OFF PC-READ-MEMP-OFF EOR-N-OFF EOR-Z-OFF NOT-N-OFF NOT-Z-OFF SWAP-N-OFF SWAP-Z-OFF EXT-N-OFF EXT-Z-OFF MOVE-N-OFF MOVE-Z-OFF ROXR-N-OFF ROXR-Z-OFF ROXR-C-OFF ROXL-N-OFF ROXL-Z-OFF ROXL-C-OFF ASR-N-OFF ASR-Z-OFF ASR-C-OFF ASL-N-OFF ASL-Z-OFF ASL-V-OFF ASL-C-OFF LSR-N-OFF LSR-Z-OFF LSR-C-OFF LSL-N-OFF LSL-Z-OFF LSL-C-OFF ROR-N-OFF ROR-Z-OFF ROR-C-OFF ROL-N-OFF ROL-Z-OFF ROL-C-OFF DIVU-N-OFF DIVU-Z-OFF DIVS-N-OFF DIVS-Z-OFF OR-N-OFF OR-Z-OFF MULS-N-OFF MULS-Z-OFF MULS-V-OFF MULU-N-OFF MULU-Z-OFF MULU-V-OFF AND-N-OFF AND-Z-OFF SUBX-N-OFF SUBX-Z-OFF SUBX-V-OFF SUB-N-OFF SUB-V-OFF ADDX-N-OFF ADDX-Z-OFF ADDX-V-OFF ADD-N-OFF ADD-Z-OFF ADD-V-OFF FIX-BIT-OFF ASR-OFF ASL-OFF LSR-OFF LSL-OFF IREM-OFF IQUOT-OFF REM-OFF QUOT-OFF MULS-OFF MULU-OFF QUOTIENT-EXIT-OFF REMAINDER-EXIT-OFF PLUS-ADD1-1-OFF READ-MEM-PLUS-OFF STEPN-MEM-ILST STEPN-MEM-LST STEPN-READM-MEM READ-MEM-PLUS BETWEEN-ILEQ-OFF BETWEEN-ILEQ-LA MOD32-EQ-OFF MOD32-EQ-DEDUCTION3 MOD32-EQ-DEDUCTION2 MOD32-EQ-DEDUCTION1 MOD32-EQ-DEDUCTION0 MMOVN-LST1-0 MMOVN-LST-0 MMOV1-LST1-0 MMOV1-LST-0 MMOVN-LST1 MMOVN-LST MOVN-LST MMOV1-LST1 MMOV1-LST LSTCPY-CPY1-OFF PUT-GET-VALS-IS-CPY PUT-GET-LST-IS-CPY LSTCPY-CPY1 LSTCPY-ADD1 LSTCPY1 LSTCPY-PUT-NTH PUT-COMMUTATIVITY LSTMCPY-CPY LSTMCPY LSTCPY-LSTCPY LSTCPY-0 LSTCPY PLUS-DIFFERENCE-OFF MEM-LST-LEN-OFF MEM-LST-MCDR-UINT-1 MEM-LST-MCDR-1 MEM-LST-MCDR-UINT MEM-LST-MCDR-0 MEM-LST-MCDR MEM-LST-LEN PLUS-DIFFERENCE MEM-LST-MCAR-2 MEM-LST-MCAR-1 MEM-LST-MCAR MEM-LST-PLUS DISJOINT-LEQ1-UINT-OFF DISJOINT-LEQ-UINT-OFF DISJOINT-COMMUTATIVITY-OFF DISJOINT0-LEQ-OFF DISJOINT-LEQ1-OFF DISJOINT-LEQ-OFF DISJOINT-LEQ1-UINT DISJOINT-LEQ-UINT READM-WRITEM-MEM MODN-READM-RN MODN-LST READM-WRITE-MEM READ-WRITEM-MEM WRITEM-ELSE-MEM-ILST WRITEM-ELSE-MEM-LST WRITEM-MEM-MCODE-ADDRP PC-READ-MEM-WRITEM-MEM WRITEM-MEM-MAINTAIN-RAM-ADDRP WRITEM-MEM-MAINTAIN-ROM-ADDRP WRITEM-MEM-MAINTAIN-WRITE-MEMP WRITEM-MEM-MAINTAIN-BYTE-WRITEP WRITEM-MEM-MAINTAIN-READ-MEMP WRITEM-MEM-MAINTAIN-BYTE-READP WRITEM-MEM-MAINTAIN-PC-READ-MEMP WRITEM-MEM-MAINTAIN-PC-BYTE-READP WRITE-MEMP-RAM1-ASL READ-MEMP-ROM1-ASL READ-MEMP-RAM1-ASL TIMES-LESSP-CANCEL1 WRITE-MEM-ILST-ASL WRITE-MEM-LST-ASL READ-MEM-ILST-ASL READ-MEM-LST-ASL WRITE-MEM-ILST-INT WRITE-MEM-LST-INT WRITE-MEM-ILST0 WRITE-MEM-LST0 WRITE-MEM-ILST WRITE-MEM-LST GET-VALS-0-OFF MEM-LST-PUT-VALS GET-VALS-0 MEM-INDUCT4 MEM-LST-PUT-LST MEM-INDUCT3 WRITE-MEM-LST-LA PLUS-TIMES-LESSP DISJOINT-LEQ1 DISJOINT-LEQ DISJOINT0-LEQ WRITE-ELSE-MEM-ILST WRITE-ELSE-MEM-LST READ-MEM-ILST-INT READ-MEM-ILST READ-MEM-LST-INT READ-MEM-LST IREAD-MEM-GET0 READ-MEM-LST0 MEM-LST-GET-VALS MEM-LST-GET-VALS0 MEM-LST-GET-LST MEM-LST-GET-LST0 READ-MEM-LST-LA MEM-INDUCT2 PUT-VALS-APPEND GET-VALS-APPEND GET-NTH-APPEND GET-VALS-MCAR GET-VALS-MCDR GET-VALS-CDR GET-LST-MCAR GET-LST-MCDR GET-LST-CDR MCDR-NTH MCAR-NTH MCDR-MCDR MCAR-MCAR CDR-MCDR MCDR-LISTP-LEN BV-TO-LST-PROPER-LSTP GET-VALS-PROPER-LSTP BV-TO-LST-LEN GET-VALS-LEN APPEND-LEN PROPER-LSTP MCDR MCAR LST-TO-BV BV-TO-LST PUT-VALS GET-VALS PUT-LST GET-LST BYTE-WRITEP=WRITE-MEMP-1 BYTE-WRITE=WRITE-MEM-1 BYTE-READ=READ-MEM-1 PC-BYTE-READ=PC-READ-MEM-1 MEM-LST-SAME-OFF MEM-LST-NON-NUMBERP-OFF READ-MEM-NON-NUMBERP-OFF MEM-LST-SAME MEM-LST-NON-NUMBERP READ-MEM-NON-NUMBERP HEAD-MEM-ILST HEAD-MEM-LST READM-MEM-LST MEM-ILST-INTEGERP MEM-LST-LESSP MEM-LST-NUMBERP MEM-ILST-INT-RANGEP MEM-LST-NAT-RANGEP MEM-ILST MEM-LST INDEX-N-OFF DISJOINT-DEDUCTION3 INDEX-N-DEDUCTION2 INDEX-N-DEDUCTION1 INDEX-N-DEDUCTION0 INDEX-N-X-X INDEX-N-0 DISJOINT-DEDUCTION2 DISJOINT-DEDUCTION1 DISJOINT-DEDUCTION0 DISJOINT-X-X DISJOINT0-DEDUCTION2 DISJOINT0-DEDUCTION1 DISJOINT0-DEDUCTION0 DISJOINT0-X-X TIMES-PLUS-LESSP-CANCEL-OFF DISJOINT-11~-ASL DISJOINT-11-ASL DISJOINT-9~-ASL DISJOINT-9-ASL DISJOINT-3~-ASL DISJOINT-3-ASL DISJOINT-2~-ASL DISJOINT-2-ASL TIMES-PLUS-LESSP-CANCEL DISJOINT-15~ DISJOINT-14~ DISJOINT-13~ DISJOINT-12~ DISJOINT-11~ DISJOINT-10~ DISJOINT-9~ DISJOINT-8~ DISJOINT-7~ DISJOINT-6~ DISJOINT-5~ DISJOINT-4~ DISJOINT-3~ DISJOINT-2~ DISJOINT-1~ DISJOINT-0~ DISJOINT-COMMUTATIVITY DISJOINT-15 DISJOINT-14 DISJOINT-13 DISJOINT-12 DISJOINT-11 DISJOINT-10 DISJOINT-9 DISJOINT-8 DISJOINT-7 DISJOINT-6 DISJOINT-5 DISJOINT-4 DISJOINT-3 DISJOINT-2 DISJOINT-1 DISJOINT-0 DISJOINT-LA3 DISJOINT-LA2 DISJOINT-LA1 DISJOINT-LA0 DISJOINT0-LA2 DISJOINT0-LA1 DISJOINT0-LA0 DISJOINT-HEAD DISJOINT0-HEAD WRITE-MEM-MCODE-ADDRP BYTE-WRITE-MCODE-ADDRP READ->PC-READ-MEM-OFF READ-MEM-MCODE3 READ-MEM-MCODE2 READ-MEM-MCODE1-INT READ->PC-READ-MEM PC-READ-MEM-MCODE3 PC-READ-MEM-MCODE2 LST-NUMBERP-OFF READ-LST-OFF PC-READ-MEM-MCODE1 PC-READ-MEM-MCODE0 GET-NTH-TAIL-LST READ-LST LST-NUMBERP TAIL-LST READ-LST0 LST-NUMBERP0 PC-BYTE-READ-MCODE3 PC-BYTE-READ-MCODE2 PC-BYTE-READ-MCODE1 PC-BYTE-READ-MCODE0 MEM-INDUCT1 READ-MEMP-RAM3 READ-MEMP-RAM2 READ-MEMP-RAM1-INT READ-MEMP-RAM1 READ-MEMP-RAM0 BYTE-READP-RAM3 BYTE-READP-RAM2 BYTE-READP-RAM1 BYTE-READP-RAM0 RAM-ADDRP-OFF RAM-ADDRP-LA2 RAM-ADDRP-LA1 WRITE-MEMP-RAM3 WRITE-MEMP-RAM2 WRITE-MEMP-RAM1-INT WRITE-MEMP-RAM1 WRITE-MEMP-RAM0 BYTE-WRITEP-RAM3 BYTE-WRITEP-RAM2 BYTE-WRITEP-RAM1 BYTE-WRITEP-RAM0 READ-MEMP-ROM1-INT READ-MEMP-ROM3 READ-MEMP-ROM2 READ-MEMP-ROM1 READ-MEMP-ROM0 BYTE-READP-ROM3 BYTE-READP-ROM2 BYTE-READP-ROM1 BYTE-READP-ROM0 ROM-ADDRP-OFF ROM-ADDRP-LA2 ROM-ADDRP-LA1 PC-READ-MEMP-ROM3 PC-READ-MEMP-ROM2 PC-READ-MEMP-ROM1 PC-READ-MEMP-ROM0 PC-BYTE-READP-ROM3 PC-BYTE-READP-ROM2 PC-BYTE-READP-ROM1 PC-BYTE-READP-ROM0 INDEX-N ADD-PLUS-OFF WRITE-MEMP-LA3 WRITE-MEMP-LA2 WRITE-MEMP-LA1 WRITE-MEMP-LA0 PC-READ-MEMP-LA3 PC-READ-MEMP-LA2 PC-READ-MEMP-LA1 PC-READ-MEMP-LA0 ADD-PLUS ADD-NON-NUMBERP MCODE-ADDRP WRITE-MEM-MAINTAIN-RAM-ADDRP BYTE-WRITE-MAINTAIN-RAM-ADDRP WRITE-MEM-MAINTAIN-ROM-ADDRP BYTE-WRITE-MAINTAIN-ROM-ADDRP STEPN-REWRITER STEPN-REWRITER0 STEPN-LEMMA SPLUS NAT-TO-INT=-OFF ADD-BMI-CROCK2-OFF ADD-BMI-CROCK1-OFF ILESSP-CROCK2-OFF ILESSP-CROCK1-OFF SUB-Z-LA1-OFF SUB-Z-LA-OFF SUBX-V-LA-OFF ADDX-V-LA-OFF SUB-SUBX-V-OFF SUBX-ADDX-V-OFF ADD-ADDX-V-OFF SUBX-C-LA-OFF ADDX-C-LA-OFF SUB-SUBX-C-OFF ADD-ADDX-C-OFF BMI-OFF MBIT-MEANS-NEGATIVEP-OFF BGT-OFF BLE-OFF BLE-BGT MOVE-BLE MOVE-BGT SUB-BLE SUB-BGT SUB-Z-OFF SUB-Z-LA1 BLT-OFF BGE-OFF BLT-BGE SUB-BLT SUB-BGE BLT-V0 BGE-V0 EXT-BMI ASR-BMI ASL-BMI MULS_3232-BMI MULS_3264-BMI MULS_1632-BMI ADD-BMI SUB-BMI MOVE-BMI BVS-OFF ASL-BVS MULS_3232-BVS MULS_3264-BVS MULS_1632-BVS MULU_3232-BVS MULU_3264-BVS MULU_1632-BVS ADD-BVS&VC SUB-BVS&VC ADDX-V-CROCK2-OFF ADDX-V-CROCK1-OFF SUBX-V-LA ADDX-V-LA MBIT-MEANS-NEGATIVEP SUB-SUBX-V SUBX-ADDX-V ADD-ADDX-V BCS-OFF TAIL-MBIT-OFF LSR-1-BCS&CC LSR-C-0 LSL-1-BCS&CC LSL-C-0 TAIL-MBIT ADD-BCS&CC SUB-BCS&CC BEQ-OFF INT-TO-NAT=0-OFF IQUOTIENT=0-OFF EXT-BEQ-INT-1 EXT-BEQ-INT-0 EXT-BEQ-UINT ASR-BEQ ASL-BEQ Z-FLAG-LA LSR-BEQ LSL-BEQ DIVS-BEQ IQUOTIENT=0 DIVU-BEQ MULS_3232-BEQ MULS_3264-BEQ MULS_1632-BEQ MULU_3232-BEQ MULU_3264-BEQ MULU_1632-BEQ LOGAND-EOR-BEQ-UINT LOGAND-OR-BEQ-UINT LOGAND-BEQ-UINT LOGEOR-BEQ-INT-1 LOGEOR-BEQ-INT-0 LOGEOR-BEQ-UINT LOGOR-BEQ-INT-1 LOGOR-BEQ-INT-0 LOGOR-BEQ-UINT SUB-BEQ-EXT SUB-BEQ-INT-1 SUB-BEQ-INT-0 SUB-BEQ-UINT MOVE-BEQ-EXT MOVE-BEQ-INT-1 MOVE-BEQ-INT-0 MOVE-BEQ-UINT BLS-OFF BHI-OFF BLS-BHI SUB-BLS SUB-BHI-1 SUB-BHI-0 SUB-BHI-INT BETWEEN-ILEQ SUB-Z-LA MBIT-MEANS-LESSP-OFF SUB-C-OFF SUBX-C-OFF ADD-C-OFF ADDX-C-OFF SUBX-C-LA ADDX-C-LA SUB-SUBX-C ADD-ADDX-C CORRECTNESS-OF-CANCEL-ADD-NEG CANCEL-ADD-NEG ADD-TREE-DELETE CORRECTNESS-OF-CANCEL-EQUAL-ADD CANCEL-EQUAL-ADD ADD-TREE-BAGDIFF ADD-TREE-DELETE-EQUAL ADD-TREE-DELETE-COND ADD-TREE-ADD-FRINGE ADD-TREE-APPEND ADD-TREE-NAT-RANGEP EVAL$-ADD-MEMBER ADD-EQUAL-CANCEL-1 NUMBERP-EVAL$-ADD-TREE NUMBERP-EVAL$-ADD ADD-TREE ADD-FRINGE SUB-LEQ-2 SUB-LEQ-1 ADD-NEG-CANCEL ADD-NEG-0 NEG-OFF SUB-NEG NEG-ADD NEG-CANCEL NEG-NEG NEG-HEAD EOR-N-BITP EOR-Z-BITP NOT-N-BITP NOT-Z-BITP SWAP-N-BITP SWAP-Z-BITP EXT-N-BITP EXT-Z-BITP MOVE-N-BITP MOVE-Z-BITP ROXR-N-BITP ROXR-Z-BITP ROXR-C-BITP ROXL-N-BITP ROXL-Z-BITP ROXL-C-BITP ASR-N-BITP ASR-Z-BITP ASR-C-BITP ASL-N-BITP ASL-Z-BITP ASL-V-BITP ASL-C-BITP LSR-N-BITP LSR-Z-BITP LSR-C-BITP LSL-N-BITP LSL-Z-BITP LSL-C-BITP ROR-N-BITP ROR-Z-BITP ROR-C-BITP ROL-N-BITP ROL-Z-BITP ROL-C-BITP DIVU-N-BITP DIVU-Z-BITP DIVS-N-BITP DIVS-Z-BITP OR-N-BITP OR-Z-BITP MULS-N-BITP MULS-Z-BITP MULS-V-BITP MULU-N-BITP MULU-Z-BITP MULU-V-BITP AND-N-BITP AND-Z-BITP SUBX-N-BITP SUBX-Z-BITP SUBX-V-BITP SUBX-C-BITP SUB-N-BITP SUB-Z-BITP SUB-V-BITP SUB-C-BITP ADDX-N-BITP ADDX-Z-BITP ADDX-V-BITP ADDX-C-BITP ADD-N-BITP ADD-Z-BITP ADD-V-BITP ADD-C-BITP BITN-BITP FIX-BIT-BITP BITP-FIX-BIT WRITE-WRITE-MEM WRITE-WRITE-INDUCT WRITE-MEM-BYTE-WRITE BYTE-READ-WRITE-MEM-END-OFF READ-MEM-BYTE-WRITE-END-OFF READ-WRITE-MEM-END-OFF READ-WRITE-MEM2 BYTE-READ-WRITE-MEM-LEMMA HEAD-SUB1-LESSP READ-WRITE-MEM1 READ-WRITE-MEM-END READ-MEM-BYTE-WRITE READ-MEM-BYTE-WRITE-END BYTE-READ-WRITE-MEM BYTE-READ-WRITE-MEM-END PC-READ-MEM-WRITE-MEM PC-READ-MEM-BYTE-WRITE PC-BYTE-READ-WRITE-MEM WRITE-MEMP->READ-MEMP PC-READ-MEMP->READ-MEMP WRITE-MEM-MAINTAIN-WRITE-MEMP WRITE-MEM-MAINTAIN-READ-MEMP WRITE-MEM-MAINTAIN-PC-READ-MEMP BYTE-WRITE-MAINTAIN-WRITE-MEMP BYTE-WRITE-MAINTAIN-READ-MEMP BYTE-WRITE-MAINTAIN-PC-READ-MEMP WRITE-MEM-MAINTAIN-BYTE-WRITEP WRITE-MEM-MAINTAIN-BYTE-READP WRITE-MEM-MAINTAIN-PC-BYTE-READP READ-MEM-NAT-RANGEP PC-READ-MEM-NAT-RANGEP MEM-INDUCT0 BYTE-WRITE-OFF BYTE-READ-OFF PC-BYTE-READ-OFF BYTE-WRITEP-OFF BYTE-READP-OFF PC-BYTE-READP-OFF BYTE-WRITE-APP BYTE-WRITE-MAINTAIN-BYTE-WRITEP BYTE-WRITE-MAINTAIN-BYTE-READP BYTE-WRITE-MAINTAIN-PC-BYTE-READP PC-BYTE-READ-WRITE BYTE-WRITE-WRITE BYTE-WRITE-WRITE-LA BYTE-READ-WRITE BYTE-WRITEP->READP PC-BYTE-READP->BYTE-READP HEAD-RECURSION-OFF EXT-EQUAL-0 EXT-EQUAL MODN-EQ-EQUAL HEAD-RECURSION HEAD-APP-CANCEL PLUS-TIMES-EQUAL-OFF APP-CANCEL PLUS-TIMES-EQUAL PC-READ-OFF WRITE-WRITE WRITE-WRITE-LA PC-READ-WRITE READ-WRITE MODN-EQ WRITEP->READP PC-READP->READP GET-VLST-OFF GET-VLST-MEMBER-OFF READ-RN-0-OFF GET-VLST-READM-RN READ-RN-0 READM-WRITE-RN READ-WRITEM-RN-END-OFF READ-WRITEM-RN READ-WRITEM-RN-END GET-VLST-MEMBER GET-VLST READM-RN-LEN WRITE-RN-OFF READ-RN-OFF WRITE-RN-LEN WRITE-WRITE-RN READ-WRITE-RN READ-WRITE-RN-END HEAD-READ-RN PUT-NTH-LEN PUT-GET PUT-PUT GET-PUT GET-NTH-NIL PUT-NTH-0-OFF GET-NTH-0-OFF PUT-NTH-0 GET-NTH-0 MC-STATE-OFF MC-MEM-OFF MC-CCR-OFF MC-PC-OFF MC-RFILE-OFF MC-STATUS-OFF MC-CCR-RANGEP MC-PC-RANGEP MC-MEM-REWRITE MC-CCR-REWRITE MC-PC-REWRITE MC-RFILE-REWRITE MC-STATUS-REWRITE SET-CVZNX-OFF CVZNX-OFF CCR-X-OFF CCR-N-OFF CCR-Z-OFF CCR-V-OFF CCR-C-OFF SET-CVZNX-NAT-RANGEP SET-SET-CVZNX2 SET-CVZNX-CCR SET-SET-CVZNX1 SET-CVZNX-X SET-CVZNX-N SET-CVZNX-Z SET-CVZNX-V SET-CVZNX-C EXT-OFF EXT-NAT-RANGEP HEAD-EXT EXT-LEMMA EXT-0 NEG-NAT-RANGEP IREM-NAT-RANGEP IQUOT-NAT-RANGEP REM-NAT-RANGEP QUOT-NAT-RANGEP MULS-NAT-RANGEP MULU-NAT-RANGEP NAT-RANGEP-OFF PC-BYTE-READ-NAT-RANGEP BYTE-READ-NAT-RANGEP READ-RN-NAT-RANGEP TAIL-NAT-RANGEP HEAD-NAT-RANGEP LOGEOR-NAT-RANGEP LOGOR-NAT-RANGEP LOGAND-NAT-RANGEP TIMES-EXP2-NAT-RANGEP QUOTIENT-NAT-RANGEP DIFFERENCE-NAT-RANGEP SUB1-TIMES2-NAT-RANGEP SUB1-NAT-RANGEP NAT-PLUS-RANGEP NAT-RANGEP-0 NAT-RANGEP-UB NAT-RANGEP-OF-0 HEAD-READM-MEM HEAD-WRITE-MEM HEAD-PC-READ-MEM HEAD-READ-MEM HEAD-WRITE-MEMP HEAD-PC-READ-MEMP HEAD-READ-MEMP HEAD-BYTE-WRITE HEAD-BYTE-PC-READ HEAD-BYTE-READ HEAD-BYTE-WRITEP HEAD-PC-BYTE-READP HEAD-BYTE-READP HEAD-WRITE HEAD-PC-READ HEAD-READ HEAD-WRITEP HEAD-PC-READP HEAD-READP LOGAND-UINT LOGAND-UINT-LA LOGAND-LOGEOR LOGAND-LOGOR LOGEOR-COMMUTATIVITY LOGOR-COMMUTATIVITY LOGAND-COMMUTATIVITY LOGEOR-EQUAL-0 LOGOR-EQUAL-0 BITN-LOGNOT BITN-OFF BITN-REPLACE BITN-APP BITN-TAIL BITN-HEAD BITN-0-1 BITN-0 REPLACE-OFF APP-OFF REPLACE-NAT-RANGEP APP-NAT-RANGEP BCDR-OFF BCAR-OFF TAIL-OFF HEAD-OFF HEAD-APP-HEAD-TAIL APP-HEAD-TAIL APP-ASSOCIATIVITY BCDR-LESSP BCAR-LESSP BCAR-REPLACE BCAR-APP BCAR-HEAD BCDR-2 BCAR-2 BCDR-1 BCAR-1 BCDR-NONNUMBERP BCAR-NONNUMBERP HEAD-APP REPLACE-LEQ REPLACE-LEQ1 REPLACE-ASSOCIATIVITY REPLACE-HEAD REPLACE-REFLEX TAIL-REPLACE TAIL-APP TAIL-HEAD HEAD-REPLACE EXP2-LEQ-OFF REMAINDER-QUOTIENT-EXP2 QUOTIENT-PLUS-TIMES-EXP2-2 EXP2-LEQ QUOTIENT-PLUS-TIMES-EXP2-1 REMAINDER-PLUS-TIMES-EXP2-2 REMAINDER2-PLUS-TIMES-EXP2 REMAINDER-PLUS-TIMES-EXP2-1 HEAD-PLUS-HEAD HEAD-PLUS-CANCEL HEAD-PLUS-CANCEL0 TAIL-TAIL HEAD-HEAD ADD-NEG-ADDER-OFF SUB-INT ADD-INT SUBTRACTER-OFF SUBTRACTER-INT ADDER-INT ADDER-OFF ADDER-INT-END-OFF ADDER-INT-BRIDGE ADDY-Y1 ADDY-Y SUB-ADDER-OFF ADD-ADDER-OFF SUB-CANCEL ADD-CANCEL ADDER-CANCEL SUB-CANCEL0 ADD-CANCEL0 ADD-COMMUTATIVITY2 SUB-SUB1 SUB-SUB SUB-ADD ADD-SUB SUB-OFF ADD-OFF PLUS-ADD1-SUB1-OFF ADD-NEG-ADDER SUB-ADDER PLUS-ADD1-SUB1 ADD-ADDER SUB-EQUAL-0 ADD-SUB-CANCEL ADD-HEAD ADDER-HEAD SUB-NAT-RANGEP ADD-NAT-RANGEP SUBTRACTER-NAT-RANGEP ADDER-NAT-RANGEP REMAINDER-LEQ-OFF SUB-LEQ-LA ADD-LEQ REMAINDER-LEQ ADD-COMMUTATIVITY1 ADD-ASSOCIATIVITY ADD-COMMUTATIVITY SUB-X-X SUB-0 ADD-0 ADD-OF-0 ADDER-COMMUTATIVITY1 ADDER-ASSOCIATIVITY ADDER-COMMUTATIVITY ADDER-SHIFT-CARRY SUBTRACTER-NAT-LA-OFF ADDER-NAT-LA-OFF SUB-NAT-LA-OFF ADD-NAT-LA-OFF PLUS-NUMBERP-OFF SUB-UINT ADD-UINT SUBTRACTER-UINT ADDER-UINT PLUS-NUMBERP SUBTRACTER-NAT-LA ADDER-NAT-LA SUB-NAT-LA ADD-NAT-LA DIVS-V-OFF DIVU-V-OFF DIVS_3232-OVERFLOW DIVS-OVERFLOW DIVU-OVERFLOW INT-RANGEP-OFF QUOT-NAT REM-NAT HEAD-INT-CROCK-OFF IQUOT-INT IREM-INT MULS-CROCK-OFF TIMES-LESSP_4-OFF TIMES-LESSP_3-OFF TIMES-LESSP_2-OFF TIMES-LESSP_1-OFF MULS_3232-INT MULS_3264-INT MULS_1632-INT MULS-CROCK TIMES-LESSP_4 TIMES-LESSP_3 TIMES-LESSP_2 EXP2-LESSP-CROCK-OFF HEAD-INT-CROCK EXP2-LESSP-CROCK MULU_3232-NAT MULU_3264-NAT MULU_1632-NAT TIMES-LESSP_1 INTEGERP-OFF IQUOTIENT-OFF IREMAINDER-OFF ITIMES-OFF IPLUS-OFF IQUOTIENT-WRT--1 IREMAINDER-WRT--1 IQUOTIENT-WRT-1 IREMAINDER-WRT-1 ITIMES-SIGN ITIMES-EQUAL-CANCELLATION ITIMES-ASSOCIATIVITY ITIMES-COMMUTATIVITY ITIMES-EQUAL-0 ITIMES-0 ILESSP-ENTAILS-ILEQ ILESSP-REFLEX IDIFFERENCE-NEGATIVEP IDIFFERENCE-X-X IPLUS-1--1 IPLUS-0 INEG-IPLUS IPLUS-ASSOCIATIVITY IPLUS-COMMUTATIVITY1 IPLUS-COMMUTATIVITY IQUOTIENT-INTEGERP IREMAINDER-INTEGERP ITIMES-INTEGERP IDIFFERENCE-INTEGERP INEG-INTEGERP IPLUS-INTEGERP NUMBERP-INTEGERP NEGATIVEP-GUTS0 INTEGERP-MINUS0 MINUS-INTEGERP FIX-INT-INTEGERP INTEGERP-FIX-INT IREMAINDER-INT-RANGEP IQUOTIENT-INT-RANGEP REMAINDER-INT-RANGEP QUOTIENT-INT-RANGEP DIFFERENCE-INT-RANGEP SUB1-INT-RANGEP INT-RANGEP-OF-0 ABS-LESSP-INT-RANGEP INT-TO-NAT-OFF NAT-TO-INT-OFF NAT-TO-INT= INT-TO-NAT=0 INT-TO-NAT-TO-INT NAT-TO-INT-TO-NAT INT-TO-NAT-RANGEP NAT-TO-INT-RANGEP NAT-TO-INT-INTEGERP INT-TO-NAT-0 NAT-TO-INT-0 NAT-TO-UINT-RANGEP UINT-TO-NAT-RANGEP UINT-TO-NAT-TO-UINT NAT-TO-UINT-TO-NAT INT-RANGEP-LA UINT-RANGEP-LA IDIFFERENCE-INT-RANGEP2 IDIFFERENCE-INT-RANGEP1 IPLUS-INT-RANGEP2 IPLUS-INT-RANGEP1 ILESSP-CROCK2 ILESSP-CROCK1 ADD-BMI-CROCK2 ADD-BMI-CROCK1 ADDX-V-CROCK2 ADDX-V-CROCK1 IPLUS-WITH-CARRY-NON-NEGATIVEP IPLUS-WITH-CARRY-NEGATIVEP PLUS-TO-IPLUS-OFF PLUS-TO-IPLUS ADDER-INT-END EXP2-LESSP-OFF EXT-INT EXP2-LESSP MBIT-MEANS-LESSP ASR-NAT-RANGEP ASR-0 ASL-ASL ASL-NAT-RANGEP ASL-0 LSR-LSR LSR-NAT-RANGEP LSR-0 LSL-LSL LSL-NAT-RANGEP LSL-0 QUOTIENT-DIFF-OFF REMAINDER-DIFF-OFF QUOTIENT-EXP-LESSP-OFF ASR-INT-CROCK-OFF ASR-INT ASR-INT-CROCK TIMES-SUB1-OFF DIFFERENCE-APP-1S TIMES-SUB1 LESSP-APP-1S LESSP-TIMES-EXP-1S QUOTIENT-EXP-LESSP QUOTIENT-DIFF REMAINDER-DIFF QUOTIENT-DIFF-LA ASL-INT-CROCK2-OFF ASL-INT-CROCK1-OFF ASL-INT ASL-INT-CROCK2 ASL-INT-CROCK1 REMAINDER-DIFF-LA LSR-UINT LSL-UINT APP-0 REPLACE-0 TAIL-LEMMA HEAD-LEMMA TAIL-EQUAL-0 TAIL-LEQ HEAD-LEQ TAIL-LESSP HEAD-LESSP TAIL-OF-0 HEAD-OF-0 TAIL-0 HEAD-0 LOGNOT-OFF ADDER-LOGNOT LOGNOT-INT LOGNOT-CANCEL LOGNOT-LOGNOT LOGNOT-NAT-RANGEP LOGNOT-0 EVENP-OFF ADD-EVENP BV-ADDER-NAT BV-ADDER&CARRY-NAT BV-MBIT-BITN BV-BITN-BITN BV-NOT-LOGNOT BV-ADDER-BRIDGE FIX-BV-ADDER&CARRY BV-ADDER&CARRY-LEN BV-ADDER&CARRY BV-TO-NAT-RANGEP BV-BITN-NOT NAT-TO-BV-SIZED-HEAD-OFF BV-SIZED-TO-NAT-HEAD-OFF NAT-TO-BV-SIZED-SIZED-TO-NAT BV-SIZED-TO-NAT-TO-BV-SIZED NAT-TO-BV-SIZED-TO-NAT BV-TO-NAT-TO-BV-SIZED BV-HEAD-NAT NAT-TO-BV-TO-NAT BV-TO-NAT-TO-BV BV-SIZED-TO-NAT-HEAD NAT-TO-BV-SIZED-HEAD NAT-TO-BV-SIZED-LA0 BV-ADDER-LEN NAT-TO-BV-SIZED-LEN BV-HEAD-LEN BV-ADDER-LISTP BV-HEAD-LISTP BV-LEN-LISTP NAT-TO-BV-SIZED NAT-TO-BV BV-SIZED-TO-NAT BV-TO-NAT BV-ADDER BV-MBIT BV-BITN BV-TAIL BV-HEAD BV-NOT BV-LEN FIX-BV VEC BIT DISJOINT DISJOINT0 NEG MOD32-EQ MOD-EQ N-MEMBER RAM-ADDRP ROM-ADDRP GCD-EXAMPLE LOAD-LST-MEM MAP-UPDATE MAKE-MAP KEY-FIELD CONS-KEY-LST STEPN STEPI CURRENT-INS EXECUTE-INS OPCODE-FIELD BIT-GROUP CMPI-SUBGROUP CMPI-INS CMPI-MAPPING CMPI-ADDR-MODEP EORI-SUBGROUP EORI-TO-CCR-INS EORI-INS ADDI-SUBGROUP ADDI-INS ADDI-ADDR-MODEP SUBI-SUBGROUP SUBI-INS SUBI-ADDR-MODEP ANDI-SUBGROUP ANDI-TO-CCR-INS ANDI-INS ANDI-ADDR-MODEP ORI-SUBGROUP ORI-TO-CCR-INS ORI-INS ORI-ADDR-MODEP S-BIT-SUBGROUP D-BIT-SUBGROUP BIT-INS BTST-INS BTST-ADDR-MODEP BSET-INS BSET-EFFECT BSET-ADDR-MODEP BCLR-INS BCLR-EFFECT BCLR-ADDR-MODEP BCHG-INS BCHG-EFFECT BCHG-ADDR-MODEP BXXX-OPD BXXX-NUM BXXX-OPLEN MOVEP-INS MOVEP-ADDR EVENP MOVEP-TO-REG MOVEP-READ MOVEP-READP MOVEP-TO-MEM MOVEP-WRITE MOVEP-WRITEP CMP-GROUP CMPM-INS CMPM-MAPPING EOR-INS EOR-MAPPING EOR&EORI-ADDR-MODEP EOR-EFFECT EOR-CVZNX EOR-N EOR-Z CMPA-INS CMPA-ADDR-MODEP CMP-INS CMP-ADDR-MODEP CMP-CVZNX MOVEQ-INS SCC-GROUP SUBQ-INS SUBQ-ADDR-MODEP ADDQ-INS ADDQ-ADDR-MODEP DBCC-INS DBCC-LOOP SCC-INS SCC-EFFECT SCC-ADDR-MODEP BCC-GROUP BCC-RA-SR BSR-INS BRANCH-CC BHI BLS BGE BLT BGT BLE BMI BEQ BCS MISC-GROUP NOT-SUBGROUP NOT-INS NOT-EFFECT NOT-CVZNX NOT-N NOT-Z NOT-ADDR-MODEP JSR-INS JSR-ADDR-MODEP JMP-INS JMP-MAPPING JMP-ADDR-MODEP NOP-SUBGROUP TRAPV-INS BVS RTR-INS RTS-INS RTD-INS RTD-MAPPING NOP-INS UNLK-SUBGROUP UNLK-INS LINK_W-INS LINK_L-INS LINK-MAPPING MOVEM-EA-RN-SUBGROUP MOVEM-EA-RN-INS READMP MOVEM-EA-RN-ADDR-MODEP MUL-DIV_L-INS MUL_L-INS DH DL MULS_L_DLDH MULS_L_DL MULU_L_DLDH MULU_L_DL DIV_L-INS DR DQ DIVU_L DIVUL_L DIVS_L DIVSL_L TST-SUBGROUP TAS-INS TAS-EFFECT TAS-ADDR-MODEP TST-INS TST-ADDR-MODEP EXT-SUBGROUP MOVEM-RN-EA-INS MOVEM-RN-EA-ADDR-MODEP MOVEM-PREDEC MOVEM-PRE-RNLST WRITEMP MOVEM-LEN MOVEM-RNLST WRITEM-RN READM-RN WRITEM-MEM READM-MEM EXT-INS PEA-SUBGROUP SWAP-INS SWAP-EFFECT SWAP-CVZNX SWAP-N SWAP-Z PEA-INS PEA-ADDR-MODEP NEG-SUBGROUP MOVE-TO-CCR-INS MOVE-TO-CCR-ADDR-MODEP NEG-INS NEG-ADDR-MODEP NEGX-SUBGROUP NEGX-INS NEGX-ADDR-MODEP CLR-SUBGROUP MOVE-FROM-CCR-INS MOVE-FROM-CCR-EFFECT MOVE-FROM-CCR-ADDR-MODEP CLR-INS CLR-EFFECT CLR-CVZNX CLR-ADDR-MODEP LEA-SUBGROUP EXTB-INS EXT-EFFECT EXT-CVZNX EXT-N EXT-Z LEA-INS LEA-ADDR-MODEP MOVE-GROUP MOVEA-INS MOVEA-ADDR-MODEP MOVE-INS MOVE-MAPPING MOVE-EFFECT MOVE-CVZNX MOVE-N MOVE-Z MOVE-ADDR-MODEP S&R-GROUP BF-SUBGROUP REGISTER-SHIFT-ROTATE MEMORY-SHIFT-ROTATE MEM-ROXR-INS MEM-ROXR-EFFECT MEM-ROXL-INS MEM-ROXL-EFFECT REGISTER-ROXR-INS ROXR-EFFECT ROXR-CVZNX ROXR-N ROXR-Z ROXR-C REGISTER-ROXL-INS ROXL-EFFECT ROXL-CVZNX ROXL-N ROXL-Z ROXL-C ROXR ROXL MEM-ASR-INS MEM-ASR-EFFECT MEM-ASL-INS MEM-ASL-EFFECT REGISTER-ASR-INS ASR-EFFECT ASR-CVZNX ASR-X ASR-N ASR-Z ASR-C REGISTER-ASL-INS ASL-EFFECT ASL-CVZNX ASL-X ASL-N ASL-Z ASL-V ASL-C MEM-LSR-INS MEM-LSR-EFFECT MEM-LSL-INS MEM-LSL-EFFECT REGISTER-LSR-INS LSR-EFFECT LSR-CVZNX LSR-X LSR-N LSR-Z LSR-C REGISTER-LSL-INS LSL-EFFECT LSL-CVZNX LSL-X LSL-N LSL-Z LSL-C MEM-ROR-INS MEM-ROR-EFFECT MEM-ROL-INS MEM-ROL-EFFECT REGISTER-ROR-INS ROR-EFFECT ROR-CVZNX ROR-N ROR-Z ROR-C REGISTER-ROL-INS ROL-EFFECT ROL-CVZNX ROL-N ROL-Z ROL-C SR-CNT I-DATA S&R-ADDR-MODEP ROR ROL OR-GROUP DIV_W-INS DIVU_W-INS DIVU-CVZNX DIVU-N DIVU-Z DIVU-V REM QUOT DIVS_W-INS DIVS-CVZNX DIVS-N DIVS-Z DIVS-V IREM IQUOT OR-INS2 OR-MAPPING OR-INS1 OR-ADDR-MODEP2 OR-ADDR-MODEP1 OR-EFFECT OR-CVZNX OR-N OR-Z AND-GROUP MUL_W-INS EXG-DRAR-INS EXG-ARAR-INS EXG-DRDR-INS MULS_W-INS MULS-CVZNX MULS-N MULS-Z MULS-V MULU_W-INS MULU-CVZNX MULU-N MULU-Z MULU-V MUL&DIV-ADDR-MODEP MULS MULU AND-INS2 AND-MAPPING AND-INS1 AND-ADDR-MODEP2 AND-ADDR-MODEP1 AND-EFFECT AND-CVZNX AND-N AND-Z SUB-GROUP SUBX-INS2 SUBX-INS1 SUBX-EFFECT SUBX-CVZNX SUBX-N SUBX-Z SUBX-V SUBX-C SUBA-INS SUBA-ADDR-MODEP SUB-INS2 SUB-MAPPING SUB-INS1 SUB-ADDR-MODEP2 SUB-ADDR-MODEP1 SUB-EFFECT SUB-CVZNX SUB-N SUB-Z SUB-V SUB-C ADD-GROUP ADDX-INS2 ADDX-INS1 ADDX-EFFECT ADDX-CVZNX ADDX-N ADDX-Z ADDX-V ADDX-C ADDA-INS ADDA-ADDR-MODEP ADD-INS2 ADD-MAPPING ADD-INS1 ADD-ADDR-MODEP2 ADD-ADDR-MODEP1 ADD-EFFECT ADD-CVZNX ADD-N ADD-Z ADD-V ADD-C MAPPING M-MAPPING A-MAPPING D-MAPPING MC-INSTATE BYTE-AN-DIRECT-MODEP IDATA-MODEP PREDEC-MODEP POSTINC-MODEP AN-DIRECT-MODEP DN-DIRECT-MODEP ALTERABLE-ADDR-MODEP CONTROL-ADDR-MODEP MEMORY-ADDR-MODEP DATA-ADDR-MODEP ADDR-MODEP EFFEC-ADDR IMMEDIATE PC-INDEX PC-INDEX1 BS-PC PC-INDEX-DISP PC-DISP ABSOLUTE-LONG ABSOLUTE-SHORT ADDR-INDEX ADDR-INDEX1 BS-REGISTER ADDR-INDEX2 BD-SZ ADDR-INDEX3 I-IS MEM-PREINDEX MEM-POSTINDEX MEM-INDIRECT ADDR-INDEX-BD ADDR-INDEX-DISP IR-SCALED INDEX-REGISTER INDEX-RN ADDR-DISP ADDR-PREDEC ADDR-POSTINC ADDR-INDIRECT AN-DIRECT DN-DIRECT PRE-EFFECT POST-EFFECT OPERAND PUSH-SP WRITE-SP READ-SP SP WRITE-AN WRITE-DN READ-AN READ-DN UPDATE-MEM UPDATE-CCR UPDATE-PC UPDATE-RFILE HALT SET-X SET-N SET-Z SET-V SET-C SET-CVZNX CVZNX CCR-X CCR-N CCR-Z CCR-V CCR-C WRITE-MEM BYTE-WRITE WRITE-MEMP BYTE-WRITEP OP-LEN COND-FIELD OPMODE-FIELD D_RN D_MODE S_MODE S_RN PC-LONG-READ PC-WORD-READ PC-READ-MEM PC-BYTE-READ LONG-READ WORD-READ READ-MEM BYTE-READ PC-LONG-READP PC-WORD-READP PC-READ-MEMP PC-BYTE-READP LONG-READP WORD-READP READ-MEMP BYTE-READP MC-HALTP LEN MC-MEM MC-CCR MC-PC MC-RFILE MC-STATUS MC-STATE WRITE-RN READ-RN OP-SZ PUT-NTH GET-NTH WRITE PC-READ READ WRITEP PC-READP READP MAKE-BT BRANCH1 BRANCH0 VALUE-FIELD INT-TO-NAT NAT-TO-INT INT-RANGEP UINT-TO-NAT NAT-TO-UINT UINT-RANGEP NAT-RANGEP IQUOTIENT IREMAINDER ITIMES IDIFFERENCE INEG IPLUS ILEQ ILESSP ABS IZEROP FIX-INT INTEGERP NEGP ASR LSR ASL LSL EXT REPLACE APP SUB SUBTRACTER ADD ADDER SETN BITS MBIT BITN LOGEOR LOGOR LOGAND LOGNOT TAIL HEAD BCDR BCAR B-EQUAL B-EOR B-NAND B-NOR B-OR B-AND B-NOT FIX-BIT B1P B0P B0 B1 BITP MODE-SIGNAL PC-ODD-SIGNAL PC-SIGNAL RESERVED-SIGNAL WRITE-SIGNAL READ-SIGNAL QSZ LSZ WSZ BSZ Q L W B TA-LEMMA-2 TA-LEMMA-1 LOG-LEQ QUOTIENT2-INDUCT LOG-QUOTIENT-EXP LOG-TIMES-EXP-1 LOG-TIMES-EXP LOG-EXP LOG-EQUAL-0 LOG-OF-1 LOG-OF-0 LOG TIMES-LESSP REMAINDER-REMAINDER-2 REMAINDER-REMAINDER-EXP2 QUOTIENT-TIMES-EXP2-4 QUOTIENT-TIMES-EXP2-3 QUOTIENT-TIMES-EXP2-2 QUOTIENT-TIMES-EXP2-1 REMAINDER-TIMES-EXP2-4 REMAINDER-TIMES-EXP2-3 REMAINDER-TIMES-EXP2-2 REMAINDER-TIMES-EXP2-1 LESSP-PLUS-EXP2 LESSP-PLUS-TIMES-EXP2 QUOT2-SUB12-INDUCT TIMES-DISTRIBUTES-PLUS-OFF TIMES-DISTRIBUTES-PLUS-NEW QUOTIENT-QUOTIENT QUOTIENT-TIMES-LESSP REMAINDER-PLUS-CANCEL REMAINDER-PLUS-CANCEL0 REMAINDER-EXP QUOTIENT-EXP QUOTIENT-DISTRIBUTES-TIMES2-ADD1 REMAINDER-DISTRIBUTES-TIMES2-ADD1 QUOTIENT-CROCK-OFF REMAINDER-CROCK-OFF QUOTIENT-TIMES-CANCEL QUOTIENT-CROCK TIMES-DISTRIBUTES-REMAINDER REMAINDER-CROCK REMAINDER-PLUS-REMAINDER REMAINDER-PLUS-REMAINDER2 REMAINDER-DIFFERENCE-REMAINDER1 REMAINDER-PLUS-REMAINDER1 QUOTIENT-SHRINK-FAST TIMES-PLUS-LESSP QUOTIENT-ADD1 REMAINDER-ADD1 REMAINDER-QUOTIENT-ELIM REMAINDER-QUOTIENT QUOTIENT-SUB1 REMAINDER-SUB1 QUOTIENT-DIFFERENCE-OFF REMAINDER-DIFFERENCE-OFF QUOTIENT-DIFFERENCE-TIMES2 QUOTIENT-DIFFERENCE-TIMES1 QUOTIENT-DIFFERENCE QUOTIENT-DIFFERENCE-PLUS2 QUOTIENT-DIFFERENCE-PLUS1 QUOTIENT-PLUS-ADD1 QUOTIENT-PLUS-PLUS QUOTIENT-PLUS-TIMES2 QUOTIENT-PLUS-TIMES1 QUOTIENT-TIMES QUOTIENT-PLUS2 QUOTIENT-PLUS1 REMAINDER-DIFFERENCE-TIMES2 REMAINDER-DIFFERENCE-TIMES1 REMAINDER-DIFFERENCE REMAINDER-PLUS-PLUS-TIMES2 REMAINDER-PLUS-PLUS-TIMES1 REMAINDER-PLUS-DIFFERENCE2 REMAINDER-PLUS-DIFFERENCE1 REMAINDER-PLUS-ADD1 REMAINDER-PLUS-PLUS REMAINDER-PLUS-TIMES2 REMAINDER-PLUS-TIMES1 REMAINDER-TIMES REMAINDER-PLUS2 REMAINDER-PLUS1 REMAINDER-WRT-2 QUOTIENT-LEQ QUOTIENT-LESSP-LINEAR REMAINDER-LESSP-LINEAR QUOTIENT-LESSP REMAINDER-LESSP QUOTIENT-GENERALIZE-OFF QUOTIENT-GENERALIZE QUOTIENT-2X-ADD1 REMAINDER-2X-ADD1 QUOTIENT-2X REMAINDER-2X QUOTIENT-EQUAL-0 QUOTIENT-X-X REMAINDER-X-X QUOTIENT-1 REMAINDER-1 QUOTIENT-0 REMAINDER-0 QUOTIENT-EXIT REMAINDER-EXIT TIMES-EXP2-LESSP TIMES-OFF EXP-LESSP EXP-OF-2-1 EXP-OF-2-0 EXP-EXP EXP-TIMES EXP-PLUS EXP-OF-1 EXP-OF-0 EXP CORRECTNESS-OF-CANCEL-EQUAL-TIMES CANCEL-EQUAL-TIMES EQUAL-1-TIMES-TREE-DELETE EQUAL-1-EVAL$-TIMES-TREE-DELETE-END ZEROP-MAKES-EQUAL-TRUE-BRIDGE EVAL$-EQUAL-TIMES-TREE-BAGDIFF LESSP-1-TIMES-TREE-DELETE-OFF AND-NOT-ZEROP-TREE-DELETE-OFF CORRECTNESS-OF-CANCEL-LESSP-TIMES CANCEL-LESSP-TIMES EVAL$-TIMES-FRINGE-MEMBER-ZERO LESSP-1-TIMES-TREE-DELETE LESSP-1-TIMES-TREE-DELETE-END AND-NOT-ZEROP-TREE-LESSP-OFF AND-NOT-ZEROP-TREE-DELETE EVAL$-AND-NOT-ZEROP-TREE-END AND-NOT-ZEROP-TREE-LESSP ZEROP-MAKES-LESSP-FALSE-BRIDGE EVAL$-LESSP-TIMES-TREE-BAGDIFF TIMES-TREE-TIMES-FRINGE EVAL$-TIMES-TREE-APPEND ZEROP-MAKES-TIMES-TREE-ZERO EVAL$-TIMES-MEMBER EVAL$-TIMES-TREE-NUMBERP NUMBERP-EVAL$-TIMES AND-NOT-ZEROP-TREE TIMES-TREE TIMES-FRINGE TIMES2-ADD1-LESSP-CANCEL TIMES-DISTRIBUTES-DIFFERENCE1 TIMES-DISTRIBUTES-DIFFERENCE TIMES-LESSP-LINEAR TIMES-LESSP-CANCEL-1 EQUAL-IFF-OFF TIMES-LESSP-CANCEL TIMES-LESSP-CANCEL0 TIMES-LESSP-1 TIMES-LESSP-0 TIMES-EQUAL-CANCEL TIMES-EQUAL-CANCEL0 EQUAL-IFF BOOLEAN TIMES-ASSOCIATIVITY TIMES-ADD1-SUB1 TIMES-1 TIMES-EQUAL-1 TIMES-EQUAL-0 TIMES-COMMUTATIVITY1 TIMES-COMMUTATIVITY TIMES-ADD1 TIMES-DISTRIBUTES-PLUS TIMES-ZERO PLUS-LESSP-CANCEL-2 CORRECTNESS-OF-CANCEL-LESSP-PLUS CANCEL-LESSP-PLUS CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS CANCEL-DIFFERENCE-PLUS CORRECTNESS-OF-CANCEL-EQUAL-PLUS CANCEL-EQUAL-PLUS LISTP-EVAL$ EVAL$-QUOTE CADR-EVAL$-LIST MEMBER-IMPLIES-NUMBERP PLUS-TREE-PLUS-FRINGE EVAL$-PLUS-TREE-APPEND BRIDGE-TO-SUBBAGP-IMPLIES-PLUS-TREE-GEQ NUMBERP-EVAL$-BRIDGE PLUS-TREE-BAGDIFF SUBBAGP-IMPLIES-PLUS-TREE-GEQ PLUS-TREE-DELETE MEMBER-IMPLIES-PLUS-TREE-GREATEREQP NUMBERP-EVAL$-PLUS-TREE NUMBERP-EVAL$-PLUS PLUS-TREE PLUS-FRINGE DIFFERENCE-LESSP-CANCEL DIFFERENCE-EQUAL-CANCEL-1 DIFFERENCE-EQUAL-CANCEL-0 DIFFERENCE=0 DIFFERENCE-LESSP1 DIFFERENCE-LESSP DIFFERENCE-PLUS-CANCEL-ADD1 DIFFERENCE-PLUS-CANCEL1 DIFFERENCE-DIFFERENCE2 DIFFERENCE-DIFFERENCE1 DIFFERENCE-PLUS2 DIFFERENCE-PLUS1 DIFFERENCE-PLUS-CANCEL0 DIFFERENCE-X-X DIFFERENCE-0 DIFFERENCE-SUB1-SUB1 DIFFERENCE-SUB1 SUB1-OF-1 PLUS-EQUAL-0 PLUS-LESSP-CANCEL-ADD1 PLUS-LESSP-CANCEL-1 PLUS-LESSP-CANCEL-0 PLUS-EQUAL-CANCEL PLUS-EQUAL-CANCEL0 PLUS-ASSOCIATIVITY PLUS-COMMUTATIVITY1 PLUS-COMMUTATIVITY PLUS-ADD1-1 PLUS-ADD1 LESSP-SUB1 LESSP-OF-1 SUBBAGP-BAGINT2 SUBBAGP-BAGINT1 SUBBAGP-CDR2 SUBBAGP-CDR1 SUBBAGP-DELETE DELETE-COMMUTATIVITY MEMBER-DELETE DELETE-NON-MEMBER BAGINT BAGDIFF SUBBAGP DELETE SUBSET GROUND-ZERO))) (SETQ LIB-ATOMS-WITH-PROPS (QUOTE (GCD-T-UBOUND GCD-T-UB GCD-T1-T2 GCD-T2-UB *1*GCD-T2 GCD-T2 GCD-T-SHRINK-2 GCD-T-SHRINK-1 REMAINDER-SHRINK-HALF LESSP-TIMES-LESSP GCD-THE-GREATEST GCD-IS-CD REMAINDER-REMAINDER GCD-T-OFF GCD-CORRECTNESS GCD-S0-SN-RFILE GCD-S0-SN GCD-S0-S0-RFILE-2 GCD-S0-S0-RFILE-1 GCD-S0-S0-2 GCD-S0-S0-1 IREMAINDER-ON INTEGERP-ON GCD-S0-SN-BASE-RFILE-2 GCD-S0-SN-BASE-2 GCD-S0-SN-BASE-RFILE-1 GCD-S0-SN-BASE-1 GCD-S-S0-MEM GCD-S-S0-RFILE GCD-S-S0 *1*GCD-S0P GCD-S0P *1*GCD-STATEP GCD-STATEP *1*GCD-INDUCT GCD-INDUCT *1*GCD-T GCD-T *1*GCD-T1 GCD-T1 *1*GCD GCD STEPN-GCD-LOADP *1*GCD-ADDR GCD-ADDR *1*GCD-LOADP GCD-LOADP GCD-LOAD *1*GCD-CODE GCD-CODE AND-Z-COMMUTATIVITY RAM-ADDRP-4 RAM-ADDRP-3 ADD-UINTXXX-OFF ADD-UINTXXX ADD-UINTXX DIFFERENCE-LESSP-CANCEL-2 DIFFERENCE-LESSP-CANCEL-1 DIFFERENCE-CANCEL-4294967292 LESSP-CANCEL-4294967292 DIFFERENCE-CANCEL-4294967295 LESSP-CANCEL-4294967295 PLUS3-TIMES-SUB1 PLUS2-TIMES-SUB1 PLUS-TIMES-SUB1-OFF PLUS-TIMES-SUB1 PLUS-0 MEAN-DIFFERENCE-2 MEAN-DIFFERENCE-1 DIFFERENCE-IS-1 DIFFERENCE-CANCEL-1 IDIFFERENCE-OFF IDIFFERENCE-INT-RANGEP READ-MEM-INT-8_16 READ-MEM-INT-16_32 READ-MEM-INT-8_32 READ-RN-INT-8_16 READ-RN-INT-16_32 READ-RN-INT-8_32 DISJOINT-7-UINT DISJOINT-6-UINT DISJOINT-5-UINT DISJOINT-3-UINT DISJOINT-2~-UINT DISJOINT-2-UINT DISJOINT-1-UINT WRITE-MEMP-RAM1-UINT READ-MEMP-RAM1-UINT DISJOINT-3-INT DISJOINT-2~-INT DISJOINT-2-INT DISJOINT-1-INT NAT-RANGEP-LA-OFF NAT-RANGEP-LA STRCSPN-BOUNDS STRSPN-BOUNDS STRSPN-UBOUND STRSTR-BOUNDS STRRCHR-BOUNDS STRPBRK-BOUNDS MEMCHR-BOUNDS STRCHR-BOUNDS STRINGP-LA SLEN-OFF SLEN-REC LESSP-SLEN-MCDR-0 LESSP-SLEN-MCDR SLEN-PUT SLEN-PUT0 SLEN-ADD1 SLEN-01 SLEN-LBOUND SLEN-UBOUND *1*STRINGP STRINGP *1*SLEN SLEN LST-OF-CHRP-OFF PUT-LST-OF-CHRP GET-LST-OF-CHRP *1*LST-OF-CHRP LST-OF-CHRP *1*STRXFRM STRXFRM *1*STRXFRM1 STRXFRM1 *1*STRTOK-LAST STRTOK-LAST *1*STRTOK-LAST1 STRTOK-LAST1 *1*STRTOK-LAST0 STRTOK-LAST0 *1*STRTOK-LST STRTOK-LST *1*STRTOK-LST2 STRTOK-LST2 *1*STRTOK-LST1 STRTOK-LST1 *1*STRTOK-LST0 STRTOK-LST0 *1*STRTOK-TOK STRTOK-TOK *1*STRSTR* STRSTR* *1*STRSTR1* STRSTR1* *1*STRSPN* STRSPN* *1*STRPBRK* STRPBRK* *1*STRRCHR* STRRCHR* *1*STRCSPN* STRCSPN* *1*STRCHR1* STRCHR1* *1*STRCHR* STRCHR* *1*MEMCHR* MEMCHR* *1*STRLEN* STRLEN* *1*MEMMOVE MEMMOVE *1*MEMMOVE-3 MEMMOVE-3 *1*MEMMOVE-4 MEMMOVE-4 *1*MEMMOVE-0 MEMMOVE-0 *1*MEMMOVE-1 MEMMOVE-1 *1*STRSTR STRSTR *1*STRSTR1 STRSTR1 *1*STRPBRK STRPBRK *1*STRSPN STRSPN STRCHR1-FALSE-0 STRCHR1-BOUNDS *1*STRCHR1 STRCHR1 *1*STRRCHR STRRCHR *1*STRCSPN STRCSPN *1*STRCHR STRCHR *1*STRNCPY STRNCPY *1*STRNCPY1 STRNCPY1 *1*ZERO-LIST ZERO-LIST *1*ZERO-LIST1 ZERO-LIST1 *1*STRNCMP STRNCMP *1*STRNCMP1 STRNCMP1 *1*STRNCAT STRNCAT *1*STRCPY2 STRCPY2 *1*STRCAT STRCAT *1*STRCPY1 STRCPY1 *1*STRCOLL STRCOLL *1*STRCMP STRCMP *1*STRCPY STRCPY *1*STRLEN STRLEN *1*MEMSET MEMSET *1*MEMSET1 MEMSET1 *1*MEMCMP MEMCMP *1*MEMCMP1 MEMCMP1 *1*MEMCHR MEMCHR *1*MEMCHR1 MEMCHR1 *1*EOF EOF *1*NULL NULL PUT-NTH-OFF GET-NTH-OFF GET-SWAP *1*SWAP SWAP MEAN-LESSP MEAN-LESSP-LEMMA *1*D6-7A2-5P D6-7A2-5P *1*D5-7A4-5P D5-7A4-5P *1*D4-7A5P D4-7A5P *1*D4-7A4-5P D4-7A4-5P *1*D2-7A3-5P D2-7A3-5P *1*D5-7A2-5P D5-7A2-5P *1*D4-7A2-5P D4-7A2-5P *1*D3-7A2-5P D3-7A2-5P *1*D2-7A2-5P D2-7A2-5P EQUAL*-OFF READ-RN-EQUAL* EQUAL*-REFLEX *1*EQUAL* EQUAL* MEM-ILST-OFF MEM-LST-OFF MEM-ILST-LST-INTEGERP MEM-LST-INTEGERP GET-LST-INTEGERP *1*LST-INTEGERP LST-INTEGERP PUT-LST-INT GET-LST-INT *1*LST-INT LST-INT *1*RN-SAVED RN-SAVED *1*MOVEM-SAVED MOVEM-SAVED *1*LINKED-A6 LINKED-A6 *1*LINKED-RTS-ADDR LINKED-RTS-ADDR *1*RTS-ADDR RTS-ADDR *1*IREAD-AN IREAD-AN *1*IREAD-DN IREAD-DN *1*IREAD-MEM IREAD-MEM *1*UREAD-AN UREAD-AN *1*UREAD-DN UREAD-DN *1*UREAD-MEM UREAD-MEM MCODE-ADDRP-OFF SPLUS-OFF STEPN-MCODE-ADDRP STEPN-READ-MEM STEPN-PC-READ-MEM STEPN-RAM-ADDRP STEPN-ROM-ADDRP STEPN-WRITE-MEMP STEPN-READ-MEMP STEPN-PC-READ-MEMP STEPN-H STEPI-P STEPI-H MISC-GROUP-H MOVEM-PRE-RNLST-LEN MOVEM-RNLST-LEN WRITEM-MEM-H S&R-GROUP-H MOVE-GROUP-H MOVE-H BIT-GROUP-H MOVEP-WRITE-H WRITE-MEM-MAINTAIN-MOVEP-WRITEP BCC-GROUP-H CMP-GROUP-H SCC-GROUP-H OR-GROUP-H AND-GROUP-H SUB-GROUP-H ADD-GROUP-H *1*T3 T3 MAPPING-H MC-INSTATE-MEM EFFEC-ADDR-MEM IMMEDIATE-MEM ADDR-INDEX2-MEM *1*H H *1*P P H-INVARIANT GROUPS MODE-GUARDS STEPN-OFF UINT-TO-NAT-OFF NAT-TO-UINT-OFF ADD-COMMUTATIVITY1-OFF ADD-COMMUTATIVITY-OFF ADD-NON-NUMBERP-OFF DISJOINT-LA3-OFF DISJOINT-LA2-OFF DISJOINT-LA1-OFF DISJOINT-LA0-OFF DISJOINT0-LA2-OFF DISJOINT0-LA1-OFF DISJOINT0-LA0-OFF DISJOINT-OFF DISJOINT0-OFF WRITE-MEMP-LA3-OFF WRITE-MEMP-LA2-OFF WRITE-MEMP-LA1-OFF WRITE-MEMP-LA0-OFF PC-READ-MEMP-LA3-OFF PC-READ-MEMP-LA2-OFF PC-READ-MEMP-LA1-OFF PC-READ-MEMP-LA0-OFF WRITEM-RN-OFF READM-RN-OFF WRITE-MEM-OFF WRITE-MEMP-OFF READ-MEM-OFF READ-MEMP-OFF PC-READ-MEM-OFF PC-READ-MEMP-OFF EOR-N-OFF EOR-Z-OFF NOT-N-OFF NOT-Z-OFF SWAP-N-OFF SWAP-Z-OFF EXT-N-OFF EXT-Z-OFF MOVE-N-OFF MOVE-Z-OFF ROXR-N-OFF ROXR-Z-OFF ROXR-C-OFF ROXL-N-OFF ROXL-Z-OFF ROXL-C-OFF ASR-N-OFF ASR-Z-OFF ASR-C-OFF ASL-N-OFF ASL-Z-OFF ASL-V-OFF ASL-C-OFF LSR-N-OFF LSR-Z-OFF LSR-C-OFF LSL-N-OFF LSL-Z-OFF LSL-C-OFF ROR-N-OFF ROR-Z-OFF ROR-C-OFF ROL-N-OFF ROL-Z-OFF ROL-C-OFF DIVU-N-OFF DIVU-Z-OFF DIVS-N-OFF DIVS-Z-OFF OR-N-OFF OR-Z-OFF MULS-N-OFF MULS-Z-OFF MULS-V-OFF MULU-N-OFF MULU-Z-OFF MULU-V-OFF AND-N-OFF AND-Z-OFF SUBX-N-OFF SUBX-Z-OFF SUBX-V-OFF SUB-N-OFF SUB-V-OFF ADDX-N-OFF ADDX-Z-OFF ADDX-V-OFF ADD-N-OFF ADD-Z-OFF ADD-V-OFF FIX-BIT-OFF ASR-OFF ASL-OFF LSR-OFF LSL-OFF IREM-OFF IQUOT-OFF REM-OFF QUOT-OFF MULS-OFF MULU-OFF QUOTIENT-EXIT-OFF REMAINDER-EXIT-OFF PLUS-ADD1-1-OFF READ-MEM-PLUS-OFF STEPN-MEM-ILST STEPN-MEM-LST STEPN-READM-MEM READ-MEM-PLUS BETWEEN-ILEQ-OFF BETWEEN-ILEQ-LA MOD32-EQ-OFF MOD32-EQ-DEDUCTION3 MOD32-EQ-DEDUCTION2 MOD32-EQ-DEDUCTION1 MOD32-EQ-DEDUCTION0 MMOVN-LST1-0 MMOVN-LST-0 MMOV1-LST1-0 MMOV1-LST-0 *1*MMOVN-LST1 MMOVN-LST1 *1*MMOVN-LST MMOVN-LST *1*MOVN-LST MOVN-LST *1*MMOV1-LST1 MMOV1-LST1 *1*MMOV1-LST MMOV1-LST LSTCPY-CPY1-OFF PUT-GET-VALS-IS-CPY PUT-GET-LST-IS-CPY LSTCPY-CPY1 LSTCPY-ADD1 *1*LSTCPY1 LSTCPY1 LSTCPY-PUT-NTH PUT-COMMUTATIVITY LSTMCPY-CPY *1*LSTMCPY LSTMCPY LSTCPY-LSTCPY LSTCPY-0 *1*LSTCPY LSTCPY PLUS-DIFFERENCE-OFF MEM-LST-LEN-OFF MEM-LST-MCDR-UINT-1 MEM-LST-MCDR-1 MEM-LST-MCDR-UINT MEM-LST-MCDR-0 MEM-LST-MCDR MEM-LST-LEN PLUS-DIFFERENCE MEM-LST-MCAR-2 MEM-LST-MCAR-1 MEM-LST-MCAR MEM-LST-PLUS DISJOINT-LEQ1-UINT-OFF DISJOINT-LEQ-UINT-OFF DISJOINT-COMMUTATIVITY-OFF DISJOINT0-LEQ-OFF DISJOINT-LEQ1-OFF DISJOINT-LEQ-OFF DISJOINT-LEQ1-UINT DISJOINT-LEQ-UINT READM-WRITEM-MEM MODN-READM-RN *1*MODN-LST MODN-LST READM-WRITE-MEM READ-WRITEM-MEM WRITEM-ELSE-MEM-ILST WRITEM-ELSE-MEM-LST WRITEM-MEM-MCODE-ADDRP PC-READ-MEM-WRITEM-MEM WRITEM-MEM-MAINTAIN-RAM-ADDRP WRITEM-MEM-MAINTAIN-ROM-ADDRP WRITEM-MEM-MAINTAIN-WRITE-MEMP WRITEM-MEM-MAINTAIN-BYTE-WRITEP WRITEM-MEM-MAINTAIN-READ-MEMP WRITEM-MEM-MAINTAIN-BYTE-READP WRITEM-MEM-MAINTAIN-PC-READ-MEMP WRITEM-MEM-MAINTAIN-PC-BYTE-READP WRITE-MEMP-RAM1-ASL READ-MEMP-ROM1-ASL READ-MEMP-RAM1-ASL TIMES-LESSP-CANCEL1 WRITE-MEM-ILST-ASL WRITE-MEM-LST-ASL READ-MEM-ILST-ASL READ-MEM-LST-ASL WRITE-MEM-ILST-INT WRITE-MEM-LST-INT WRITE-MEM-ILST0 WRITE-MEM-LST0 WRITE-MEM-ILST WRITE-MEM-LST GET-VALS-0-OFF MEM-LST-PUT-VALS GET-VALS-0 *1*MEM-INDUCT4 MEM-INDUCT4 MEM-LST-PUT-LST *1*MEM-INDUCT3 MEM-INDUCT3 WRITE-MEM-LST-LA PLUS-TIMES-LESSP DISJOINT-LEQ1 DISJOINT-LEQ DISJOINT0-LEQ WRITE-ELSE-MEM-ILST WRITE-ELSE-MEM-LST READ-MEM-ILST-INT READ-MEM-ILST READ-MEM-LST-INT READ-MEM-LST IREAD-MEM-GET0 READ-MEM-LST0 MEM-LST-GET-VALS MEM-LST-GET-VALS0 MEM-LST-GET-LST MEM-LST-GET-LST0 READ-MEM-LST-LA *1*MEM-INDUCT2 MEM-INDUCT2 PUT-VALS-APPEND GET-VALS-APPEND GET-NTH-APPEND GET-VALS-MCAR GET-VALS-MCDR GET-VALS-CDR GET-LST-MCAR GET-LST-MCDR GET-LST-CDR MCDR-NTH MCAR-NTH MCDR-MCDR MCAR-MCAR CDR-MCDR MCDR-LISTP-LEN BV-TO-LST-PROPER-LSTP GET-VALS-PROPER-LSTP BV-TO-LST-LEN GET-VALS-LEN APPEND-LEN *1*PROPER-LSTP PROPER-LSTP *1*MCDR MCDR *1*MCAR MCAR *1*LST-TO-BV LST-TO-BV *1*BV-TO-LST BV-TO-LST *1*PUT-VALS PUT-VALS *1*GET-VALS GET-VALS *1*PUT-LST PUT-LST *1*GET-LST GET-LST BYTE-WRITEP=WRITE-MEMP-1 BYTE-WRITE=WRITE-MEM-1 BYTE-READ=READ-MEM-1 PC-BYTE-READ=PC-READ-MEM-1 MEM-LST-SAME-OFF MEM-LST-NON-NUMBERP-OFF READ-MEM-NON-NUMBERP-OFF MEM-LST-SAME MEM-LST-NON-NUMBERP READ-MEM-NON-NUMBERP HEAD-MEM-ILST HEAD-MEM-LST READM-MEM-LST MEM-ILST-INTEGERP MEM-LST-LESSP MEM-LST-NUMBERP MEM-ILST-INT-RANGEP MEM-LST-NAT-RANGEP *1*MEM-ILST MEM-ILST *1*MEM-LST MEM-LST INDEX-N-OFF DISJOINT-DEDUCTION3 INDEX-N-DEDUCTION2 INDEX-N-DEDUCTION1 INDEX-N-DEDUCTION0 INDEX-N-X-X INDEX-N-0 DISJOINT-DEDUCTION2 DISJOINT-DEDUCTION1 DISJOINT-DEDUCTION0 DISJOINT-X-X DISJOINT0-DEDUCTION2 DISJOINT0-DEDUCTION1 DISJOINT0-DEDUCTION0 DISJOINT0-X-X TIMES-PLUS-LESSP-CANCEL-OFF DISJOINT-11~-ASL DISJOINT-11-ASL DISJOINT-9~-ASL DISJOINT-9-ASL DISJOINT-3~-ASL DISJOINT-3-ASL DISJOINT-2~-ASL DISJOINT-2-ASL TIMES-PLUS-LESSP-CANCEL DISJOINT-15~ DISJOINT-14~ DISJOINT-13~ DISJOINT-12~ DISJOINT-11~ DISJOINT-10~ DISJOINT-9~ DISJOINT-8~ DISJOINT-7~ DISJOINT-6~ DISJOINT-5~ DISJOINT-4~ DISJOINT-3~ DISJOINT-2~ DISJOINT-1~ DISJOINT-0~ DISJOINT-COMMUTATIVITY DISJOINT-15 DISJOINT-14 DISJOINT-13 DISJOINT-12 DISJOINT-11 DISJOINT-10 DISJOINT-9 DISJOINT-8 DISJOINT-7 DISJOINT-6 DISJOINT-5 DISJOINT-4 DISJOINT-3 DISJOINT-2 DISJOINT-1 DISJOINT-0 DISJOINT-LA3 DISJOINT-LA2 DISJOINT-LA1 DISJOINT-LA0 DISJOINT0-LA2 DISJOINT0-LA1 DISJOINT0-LA0 DISJOINT-HEAD DISJOINT0-HEAD WRITE-MEM-MCODE-ADDRP BYTE-WRITE-MCODE-ADDRP READ->PC-READ-MEM-OFF READ-MEM-MCODE3 READ-MEM-MCODE2 READ-MEM-MCODE1-INT READ->PC-READ-MEM PC-READ-MEM-MCODE3 PC-READ-MEM-MCODE2 LST-NUMBERP-OFF READ-LST-OFF PC-READ-MEM-MCODE1 PC-READ-MEM-MCODE0 GET-NTH-TAIL-LST *1*READ-LST READ-LST *1*LST-NUMBERP LST-NUMBERP *1*TAIL-LST TAIL-LST *1*READ-LST0 READ-LST0 *1*LST-NUMBERP0 LST-NUMBERP0 PC-BYTE-READ-MCODE3 PC-BYTE-READ-MCODE2 PC-BYTE-READ-MCODE1 PC-BYTE-READ-MCODE0 *1*MEM-INDUCT1 MEM-INDUCT1 READ-MEMP-RAM3 READ-MEMP-RAM2 READ-MEMP-RAM1-INT READ-MEMP-RAM1 READ-MEMP-RAM0 BYTE-READP-RAM3 BYTE-READP-RAM2 BYTE-READP-RAM1 BYTE-READP-RAM0 RAM-ADDRP-OFF RAM-ADDRP-LA2 RAM-ADDRP-LA1 WRITE-MEMP-RAM3 WRITE-MEMP-RAM2 WRITE-MEMP-RAM1-INT WRITE-MEMP-RAM1 WRITE-MEMP-RAM0 BYTE-WRITEP-RAM3 BYTE-WRITEP-RAM2 BYTE-WRITEP-RAM1 BYTE-WRITEP-RAM0 READ-MEMP-ROM1-INT READ-MEMP-ROM3 READ-MEMP-ROM2 READ-MEMP-ROM1 READ-MEMP-ROM0 BYTE-READP-ROM3 BYTE-READP-ROM2 BYTE-READP-ROM1 BYTE-READP-ROM0 ROM-ADDRP-OFF ROM-ADDRP-LA2 ROM-ADDRP-LA1 PC-READ-MEMP-ROM3 PC-READ-MEMP-ROM2 PC-READ-MEMP-ROM1 PC-READ-MEMP-ROM0 PC-BYTE-READP-ROM3 PC-BYTE-READP-ROM2 PC-BYTE-READP-ROM1 PC-BYTE-READP-ROM0 *1*INDEX-N INDEX-N ADD-PLUS-OFF WRITE-MEMP-LA3 WRITE-MEMP-LA2 WRITE-MEMP-LA1 WRITE-MEMP-LA0 PC-READ-MEMP-LA3 PC-READ-MEMP-LA2 PC-READ-MEMP-LA1 PC-READ-MEMP-LA0 ADD-PLUS ADD-NON-NUMBERP *1*MCODE-ADDRP MCODE-ADDRP WRITE-MEM-MAINTAIN-RAM-ADDRP BYTE-WRITE-MAINTAIN-RAM-ADDRP WRITE-MEM-MAINTAIN-ROM-ADDRP BYTE-WRITE-MAINTAIN-ROM-ADDRP STEPN-REWRITER STEPN-REWRITER0 STEPN-LEMMA *1*SPLUS SPLUS NAT-TO-INT=-OFF ADD-BMI-CROCK2-OFF ADD-BMI-CROCK1-OFF ILESSP-CROCK2-OFF ILESSP-CROCK1-OFF SUB-Z-LA1-OFF SUB-Z-LA-OFF SUBX-V-LA-OFF ADDX-V-LA-OFF SUB-SUBX-V-OFF SUBX-ADDX-V-OFF ADD-ADDX-V-OFF SUBX-C-LA-OFF ADDX-C-LA-OFF SUB-SUBX-C-OFF ADD-ADDX-C-OFF BMI-OFF MBIT-MEANS-NEGATIVEP-OFF BGT-OFF BLE-OFF BLE-BGT MOVE-BLE MOVE-BGT SUB-BLE SUB-BGT SUB-Z-OFF SUB-Z-LA1 BLT-OFF BGE-OFF BLT-BGE SUB-BLT SUB-BGE BLT-V0 BGE-V0 EXT-BMI ASR-BMI ASL-BMI MULS_3232-BMI MULS_3264-BMI MULS_1632-BMI ADD-BMI SUB-BMI MOVE-BMI BVS-OFF ASL-BVS MULS_3232-BVS MULS_3264-BVS MULS_1632-BVS MULU_3232-BVS MULU_3264-BVS MULU_1632-BVS ADD-BVS&VC SUB-BVS&VC ADDX-V-CROCK2-OFF ADDX-V-CROCK1-OFF SUBX-V-LA ADDX-V-LA MBIT-MEANS-NEGATIVEP SUB-SUBX-V SUBX-ADDX-V ADD-ADDX-V BCS-OFF TAIL-MBIT-OFF LSR-1-BCS&CC LSR-C-0 LSL-1-BCS&CC LSL-C-0 TAIL-MBIT ADD-BCS&CC SUB-BCS&CC BEQ-OFF INT-TO-NAT=0-OFF IQUOTIENT=0-OFF EXT-BEQ-INT-1 EXT-BEQ-INT-0 EXT-BEQ-UINT ASR-BEQ ASL-BEQ Z-FLAG-LA LSR-BEQ LSL-BEQ DIVS-BEQ IQUOTIENT=0 DIVU-BEQ MULS_3232-BEQ MULS_3264-BEQ MULS_1632-BEQ MULU_3232-BEQ MULU_3264-BEQ MULU_1632-BEQ LOGAND-EOR-BEQ-UINT LOGAND-OR-BEQ-UINT LOGAND-BEQ-UINT LOGEOR-BEQ-INT-1 LOGEOR-BEQ-INT-0 LOGEOR-BEQ-UINT LOGOR-BEQ-INT-1 LOGOR-BEQ-INT-0 LOGOR-BEQ-UINT SUB-BEQ-EXT SUB-BEQ-INT-1 SUB-BEQ-INT-0 SUB-BEQ-UINT MOVE-BEQ-EXT MOVE-BEQ-INT-1 MOVE-BEQ-INT-0 MOVE-BEQ-UINT BLS-OFF BHI-OFF BLS-BHI SUB-BLS SUB-BHI-1 SUB-BHI-0 SUB-BHI-INT *1*BETWEEN-ILEQ BETWEEN-ILEQ SUB-Z-LA MBIT-MEANS-LESSP-OFF SUB-C-OFF SUBX-C-OFF ADD-C-OFF ADDX-C-OFF SUBX-C-LA ADDX-C-LA SUB-SUBX-C ADD-ADDX-C CORRECTNESS-OF-CANCEL-ADD-NEG *1*CANCEL-ADD-NEG CANCEL-ADD-NEG ADD-TREE-DELETE CORRECTNESS-OF-CANCEL-EQUAL-ADD *1*CANCEL-EQUAL-ADD CANCEL-EQUAL-ADD ADD-TREE-BAGDIFF ADD-TREE-DELETE-EQUAL *1*ADD-TREE-DELETE-COND ADD-TREE-DELETE-COND ADD-TREE-ADD-FRINGE ADD-TREE-APPEND ADD-TREE-NAT-RANGEP EVAL$-ADD-MEMBER ADD-EQUAL-CANCEL-1 NUMBERP-EVAL$-ADD-TREE NUMBERP-EVAL$-ADD *1*ADD-TREE ADD-TREE *1*ADD-FRINGE ADD-FRINGE SUB-LEQ-2 SUB-LEQ-1 ADD-NEG-CANCEL ADD-NEG-0 NEG-OFF SUB-NEG NEG-ADD NEG-CANCEL NEG-NEG NEG-HEAD EOR-N-BITP EOR-Z-BITP NOT-N-BITP NOT-Z-BITP SWAP-N-BITP SWAP-Z-BITP EXT-N-BITP EXT-Z-BITP MOVE-N-BITP MOVE-Z-BITP ROXR-N-BITP ROXR-Z-BITP ROXR-C-BITP ROXL-N-BITP ROXL-Z-BITP ROXL-C-BITP ASR-N-BITP ASR-Z-BITP ASR-C-BITP ASL-N-BITP ASL-Z-BITP ASL-V-BITP ASL-C-BITP LSR-N-BITP LSR-Z-BITP LSR-C-BITP LSL-N-BITP LSL-Z-BITP LSL-C-BITP ROR-N-BITP ROR-Z-BITP ROR-C-BITP ROL-N-BITP ROL-Z-BITP ROL-C-BITP DIVU-N-BITP DIVU-Z-BITP DIVS-N-BITP DIVS-Z-BITP OR-N-BITP OR-Z-BITP MULS-N-BITP MULS-Z-BITP MULS-V-BITP MULU-N-BITP MULU-Z-BITP MULU-V-BITP AND-N-BITP AND-Z-BITP SUBX-N-BITP SUBX-Z-BITP SUBX-V-BITP SUBX-C-BITP SUB-N-BITP SUB-Z-BITP SUB-V-BITP SUB-C-BITP ADDX-N-BITP ADDX-Z-BITP ADDX-V-BITP ADDX-C-BITP ADD-N-BITP ADD-Z-BITP ADD-V-BITP ADD-C-BITP BITN-BITP FIX-BIT-BITP BITP-FIX-BIT WRITE-WRITE-MEM *1*WRITE-WRITE-INDUCT WRITE-WRITE-INDUCT WRITE-MEM-BYTE-WRITE BYTE-READ-WRITE-MEM-END-OFF READ-MEM-BYTE-WRITE-END-OFF READ-WRITE-MEM-END-OFF READ-WRITE-MEM2 BYTE-READ-WRITE-MEM-LEMMA HEAD-SUB1-LESSP READ-WRITE-MEM1 *1*READ-WRITE-MEM-END READ-WRITE-MEM-END READ-MEM-BYTE-WRITE *1*READ-MEM-BYTE-WRITE-END READ-MEM-BYTE-WRITE-END BYTE-READ-WRITE-MEM *1*BYTE-READ-WRITE-MEM-END BYTE-READ-WRITE-MEM-END PC-READ-MEM-WRITE-MEM PC-READ-MEM-BYTE-WRITE PC-BYTE-READ-WRITE-MEM WRITE-MEMP->READ-MEMP PC-READ-MEMP->READ-MEMP WRITE-MEM-MAINTAIN-WRITE-MEMP WRITE-MEM-MAINTAIN-READ-MEMP WRITE-MEM-MAINTAIN-PC-READ-MEMP BYTE-WRITE-MAINTAIN-WRITE-MEMP BYTE-WRITE-MAINTAIN-READ-MEMP BYTE-WRITE-MAINTAIN-PC-READ-MEMP WRITE-MEM-MAINTAIN-BYTE-WRITEP WRITE-MEM-MAINTAIN-BYTE-READP WRITE-MEM-MAINTAIN-PC-BYTE-READP READ-MEM-NAT-RANGEP PC-READ-MEM-NAT-RANGEP *1*MEM-INDUCT0 MEM-INDUCT0 BYTE-WRITE-OFF BYTE-READ-OFF PC-BYTE-READ-OFF BYTE-WRITEP-OFF BYTE-READP-OFF PC-BYTE-READP-OFF BYTE-WRITE-APP BYTE-WRITE-MAINTAIN-BYTE-WRITEP BYTE-WRITE-MAINTAIN-BYTE-READP BYTE-WRITE-MAINTAIN-PC-BYTE-READP PC-BYTE-READ-WRITE BYTE-WRITE-WRITE BYTE-WRITE-WRITE-LA BYTE-READ-WRITE BYTE-WRITEP->READP PC-BYTE-READP->BYTE-READP HEAD-RECURSION-OFF EXT-EQUAL-0 EXT-EQUAL MODN-EQ-EQUAL HEAD-RECURSION HEAD-APP-CANCEL PLUS-TIMES-EQUAL-OFF APP-CANCEL PLUS-TIMES-EQUAL PC-READ-OFF WRITE-WRITE WRITE-WRITE-LA PC-READ-WRITE READ-WRITE *1*MODN-EQ MODN-EQ WRITEP->READP PC-READP->READP GET-VLST-OFF GET-VLST-MEMBER-OFF READ-RN-0-OFF GET-VLST-READM-RN READ-RN-0 READM-WRITE-RN READ-WRITEM-RN-END-OFF READ-WRITEM-RN *1*READ-WRITEM-RN-END READ-WRITEM-RN-END GET-VLST-MEMBER *1*GET-VLST GET-VLST READM-RN-LEN WRITE-RN-OFF READ-RN-OFF WRITE-RN-LEN WRITE-WRITE-RN READ-WRITE-RN *1*READ-WRITE-RN-END READ-WRITE-RN-END HEAD-READ-RN PUT-NTH-LEN PUT-GET PUT-PUT GET-PUT GET-NTH-NIL PUT-NTH-0-OFF GET-NTH-0-OFF PUT-NTH-0 GET-NTH-0 MC-STATE-OFF MC-MEM-OFF MC-CCR-OFF MC-PC-OFF MC-RFILE-OFF MC-STATUS-OFF MC-CCR-RANGEP MC-PC-RANGEP MC-MEM-REWRITE MC-CCR-REWRITE MC-PC-REWRITE MC-RFILE-REWRITE MC-STATUS-REWRITE SET-CVZNX-OFF CVZNX-OFF CCR-X-OFF CCR-N-OFF CCR-Z-OFF CCR-V-OFF CCR-C-OFF SET-CVZNX-NAT-RANGEP SET-SET-CVZNX2 SET-CVZNX-CCR SET-SET-CVZNX1 SET-CVZNX-X SET-CVZNX-N SET-CVZNX-Z SET-CVZNX-V SET-CVZNX-C EXT-OFF EXT-NAT-RANGEP HEAD-EXT EXT-LEMMA EXT-0 NEG-NAT-RANGEP IREM-NAT-RANGEP IQUOT-NAT-RANGEP REM-NAT-RANGEP QUOT-NAT-RANGEP MULS-NAT-RANGEP MULU-NAT-RANGEP NAT-RANGEP-OFF PC-BYTE-READ-NAT-RANGEP BYTE-READ-NAT-RANGEP READ-RN-NAT-RANGEP TAIL-NAT-RANGEP HEAD-NAT-RANGEP LOGEOR-NAT-RANGEP LOGOR-NAT-RANGEP LOGAND-NAT-RANGEP TIMES-EXP2-NAT-RANGEP QUOTIENT-NAT-RANGEP DIFFERENCE-NAT-RANGEP SUB1-TIMES2-NAT-RANGEP SUB1-NAT-RANGEP NAT-PLUS-RANGEP NAT-RANGEP-0 NAT-RANGEP-UB NAT-RANGEP-OF-0 HEAD-READM-MEM HEAD-WRITE-MEM HEAD-PC-READ-MEM HEAD-READ-MEM HEAD-WRITE-MEMP HEAD-PC-READ-MEMP HEAD-READ-MEMP HEAD-BYTE-WRITE HEAD-BYTE-PC-READ HEAD-BYTE-READ HEAD-BYTE-WRITEP HEAD-PC-BYTE-READP HEAD-BYTE-READP HEAD-WRITE HEAD-PC-READ HEAD-READ HEAD-WRITEP HEAD-PC-READP HEAD-READP LOGAND-UINT LOGAND-UINT-LA LOGAND-LOGEOR LOGAND-LOGOR LOGEOR-COMMUTATIVITY LOGOR-COMMUTATIVITY LOGAND-COMMUTATIVITY LOGEOR-EQUAL-0 LOGOR-EQUAL-0 BITN-LOGNOT BITN-OFF BITN-REPLACE BITN-APP BITN-TAIL BITN-HEAD BITN-0-1 BITN-0 REPLACE-OFF APP-OFF REPLACE-NAT-RANGEP APP-NAT-RANGEP BCDR-OFF BCAR-OFF TAIL-OFF HEAD-OFF HEAD-APP-HEAD-TAIL APP-HEAD-TAIL APP-ASSOCIATIVITY BCDR-LESSP BCAR-LESSP BCAR-REPLACE BCAR-APP BCAR-HEAD BCDR-2 BCAR-2 BCDR-1 BCAR-1 BCDR-NONNUMBERP BCAR-NONNUMBERP HEAD-APP REPLACE-LEQ REPLACE-LEQ1 REPLACE-ASSOCIATIVITY REPLACE-HEAD REPLACE-REFLEX TAIL-REPLACE TAIL-APP TAIL-HEAD HEAD-REPLACE EXP2-LEQ-OFF REMAINDER-QUOTIENT-EXP2 QUOTIENT-PLUS-TIMES-EXP2-2 EXP2-LEQ QUOTIENT-PLUS-TIMES-EXP2-1 REMAINDER-PLUS-TIMES-EXP2-2 REMAINDER2-PLUS-TIMES-EXP2 REMAINDER-PLUS-TIMES-EXP2-1 HEAD-PLUS-HEAD HEAD-PLUS-CANCEL HEAD-PLUS-CANCEL0 TAIL-TAIL HEAD-HEAD ADD-NEG-ADDER-OFF SUB-INT ADD-INT SUBTRACTER-OFF SUBTRACTER-INT ADDER-INT ADDER-OFF ADDER-INT-END-OFF ADDER-INT-BRIDGE ADDY-Y1 ADDY-Y SUB-ADDER-OFF ADD-ADDER-OFF SUB-CANCEL ADD-CANCEL ADDER-CANCEL SUB-CANCEL0 ADD-CANCEL0 ADD-COMMUTATIVITY2 SUB-SUB1 SUB-SUB SUB-ADD ADD-SUB SUB-OFF ADD-OFF PLUS-ADD1-SUB1-OFF ADD-NEG-ADDER SUB-ADDER PLUS-ADD1-SUB1 ADD-ADDER SUB-EQUAL-0 ADD-SUB-CANCEL ADD-HEAD ADDER-HEAD SUB-NAT-RANGEP ADD-NAT-RANGEP SUBTRACTER-NAT-RANGEP ADDER-NAT-RANGEP REMAINDER-LEQ-OFF SUB-LEQ-LA ADD-LEQ REMAINDER-LEQ ADD-COMMUTATIVITY1 ADD-ASSOCIATIVITY ADD-COMMUTATIVITY SUB-X-X SUB-0 ADD-0 ADD-OF-0 ADDER-COMMUTATIVITY1 ADDER-ASSOCIATIVITY ADDER-COMMUTATIVITY ADDER-SHIFT-CARRY SUBTRACTER-NAT-LA-OFF ADDER-NAT-LA-OFF SUB-NAT-LA-OFF ADD-NAT-LA-OFF PLUS-NUMBERP-OFF SUB-UINT ADD-UINT SUBTRACTER-UINT ADDER-UINT PLUS-NUMBERP SUBTRACTER-NAT-LA ADDER-NAT-LA SUB-NAT-LA ADD-NAT-LA DIVS-V-OFF DIVU-V-OFF DIVS_3232-OVERFLOW DIVS-OVERFLOW DIVU-OVERFLOW INT-RANGEP-OFF QUOT-NAT REM-NAT HEAD-INT-CROCK-OFF IQUOT-INT IREM-INT MULS-CROCK-OFF TIMES-LESSP_4-OFF TIMES-LESSP_3-OFF TIMES-LESSP_2-OFF TIMES-LESSP_1-OFF MULS_3232-INT MULS_3264-INT MULS_1632-INT MULS-CROCK TIMES-LESSP_4 TIMES-LESSP_3 TIMES-LESSP_2 EXP2-LESSP-CROCK-OFF HEAD-INT-CROCK EXP2-LESSP-CROCK MULU_3232-NAT MULU_3264-NAT MULU_1632-NAT TIMES-LESSP_1 INTEGERP-OFF IQUOTIENT-OFF IREMAINDER-OFF ITIMES-OFF IPLUS-OFF IQUOTIENT-WRT--1 IREMAINDER-WRT--1 IQUOTIENT-WRT-1 IREMAINDER-WRT-1 ITIMES-SIGN ITIMES-EQUAL-CANCELLATION ITIMES-ASSOCIATIVITY ITIMES-COMMUTATIVITY ITIMES-EQUAL-0 ITIMES-0 ILESSP-ENTAILS-ILEQ ILESSP-REFLEX IDIFFERENCE-NEGATIVEP IDIFFERENCE-X-X IPLUS-1--1 IPLUS-0 INEG-IPLUS IPLUS-ASSOCIATIVITY IPLUS-COMMUTATIVITY1 IPLUS-COMMUTATIVITY IQUOTIENT-INTEGERP IREMAINDER-INTEGERP ITIMES-INTEGERP IDIFFERENCE-INTEGERP INEG-INTEGERP IPLUS-INTEGERP NUMBERP-INTEGERP NEGATIVEP-GUTS0 INTEGERP-MINUS0 MINUS-INTEGERP FIX-INT-INTEGERP INTEGERP-FIX-INT IREMAINDER-INT-RANGEP IQUOTIENT-INT-RANGEP REMAINDER-INT-RANGEP QUOTIENT-INT-RANGEP DIFFERENCE-INT-RANGEP SUB1-INT-RANGEP INT-RANGEP-OF-0 ABS-LESSP-INT-RANGEP INT-TO-NAT-OFF NAT-TO-INT-OFF NAT-TO-INT= INT-TO-NAT=0 INT-TO-NAT-TO-INT NAT-TO-INT-TO-NAT INT-TO-NAT-RANGEP NAT-TO-INT-RANGEP NAT-TO-INT-INTEGERP INT-TO-NAT-0 NAT-TO-INT-0 NAT-TO-UINT-RANGEP UINT-TO-NAT-RANGEP UINT-TO-NAT-TO-UINT NAT-TO-UINT-TO-NAT INT-RANGEP-LA UINT-RANGEP-LA IDIFFERENCE-INT-RANGEP2 IDIFFERENCE-INT-RANGEP1 IPLUS-INT-RANGEP2 IPLUS-INT-RANGEP1 ILESSP-CROCK2 ILESSP-CROCK1 ADD-BMI-CROCK2 ADD-BMI-CROCK1 ADDX-V-CROCK2 ADDX-V-CROCK1 IPLUS-WITH-CARRY-NON-NEGATIVEP IPLUS-WITH-CARRY-NEGATIVEP PLUS-TO-IPLUS-OFF PLUS-TO-IPLUS *1*ADDER-INT-END ADDER-INT-END EXP2-LESSP-OFF EXT-INT EXP2-LESSP MBIT-MEANS-LESSP ASR-NAT-RANGEP ASR-0 ASL-ASL ASL-NAT-RANGEP ASL-0 LSR-LSR LSR-NAT-RANGEP LSR-0 LSL-LSL LSL-NAT-RANGEP LSL-0 QUOTIENT-DIFF-OFF REMAINDER-DIFF-OFF QUOTIENT-EXP-LESSP-OFF ASR-INT-CROCK-OFF ASR-INT ASR-INT-CROCK TIMES-SUB1-OFF DIFFERENCE-APP-1S TIMES-SUB1 LESSP-APP-1S LESSP-TIMES-EXP-1S QUOTIENT-EXP-LESSP QUOTIENT-DIFF REMAINDER-DIFF QUOTIENT-DIFF-LA ASL-INT-CROCK2-OFF ASL-INT-CROCK1-OFF ASL-INT ASL-INT-CROCK2 ASL-INT-CROCK1 REMAINDER-DIFF-LA LSR-UINT LSL-UINT APP-0 REPLACE-0 TAIL-LEMMA HEAD-LEMMA TAIL-EQUAL-0 TAIL-LEQ HEAD-LEQ TAIL-LESSP HEAD-LESSP TAIL-OF-0 HEAD-OF-0 TAIL-0 HEAD-0 LOGNOT-OFF ADDER-LOGNOT LOGNOT-INT LOGNOT-CANCEL LOGNOT-LOGNOT LOGNOT-NAT-RANGEP LOGNOT-0 EVENP-OFF ADD-EVENP BV-ADDER-NAT BV-ADDER&CARRY-NAT BV-MBIT-BITN BV-BITN-BITN BV-NOT-LOGNOT BV-ADDER-BRIDGE FIX-BV-ADDER&CARRY BV-ADDER&CARRY-LEN *1*BV-ADDER&CARRY BV-ADDER&CARRY BV-TO-NAT-RANGEP BV-BITN-NOT NAT-TO-BV-SIZED-HEAD-OFF BV-SIZED-TO-NAT-HEAD-OFF NAT-TO-BV-SIZED-SIZED-TO-NAT BV-SIZED-TO-NAT-TO-BV-SIZED NAT-TO-BV-SIZED-TO-NAT BV-TO-NAT-TO-BV-SIZED BV-HEAD-NAT NAT-TO-BV-TO-NAT BV-TO-NAT-TO-BV BV-SIZED-TO-NAT-HEAD NAT-TO-BV-SIZED-HEAD NAT-TO-BV-SIZED-LA0 BV-ADDER-LEN NAT-TO-BV-SIZED-LEN BV-HEAD-LEN BV-ADDER-LISTP BV-HEAD-LISTP BV-LEN-LISTP *1*NAT-TO-BV-SIZED NAT-TO-BV-SIZED *1*NAT-TO-BV NAT-TO-BV *1*BV-SIZED-TO-NAT BV-SIZED-TO-NAT *1*BV-TO-NAT BV-TO-NAT *1*BV-ADDER BV-ADDER *1*BV-MBIT BV-MBIT *1*BV-BITN BV-BITN *1*BV-TAIL BV-TAIL *1*BV-HEAD BV-HEAD *1*BV-NOT BV-NOT *1*BV-LEN BV-LEN *1*FIX-BV FIX-BV *1*VEC VEC *1*BIT BIT *1*DISJOINT DISJOINT *1*DISJOINT0 DISJOINT0 *1*NEG NEG *1*MOD32-EQ MOD32-EQ *1*MOD-EQ MOD-EQ *1*N-MEMBER N-MEMBER *1*RAM-ADDRP RAM-ADDRP *1*ROM-ADDRP ROM-ADDRP GCD-EXAMPLE *1*LOAD-LST-MEM LOAD-LST-MEM *1*MAP-UPDATE MAP-UPDATE *1*MAKE-MAP MAKE-MAP *1*KEY-FIELD KEY-FIELD *1*CONS-KEY-LST CONS-KEY-LST *1*STEPN STEPN *1*STEPI STEPI *1*CURRENT-INS CURRENT-INS *1*EXECUTE-INS EXECUTE-INS *1*OPCODE-FIELD OPCODE-FIELD *1*BIT-GROUP BIT-GROUP *1*CMPI-SUBGROUP CMPI-SUBGROUP *1*CMPI-INS CMPI-INS *1*CMPI-MAPPING CMPI-MAPPING *1*CMPI-ADDR-MODEP CMPI-ADDR-MODEP *1*EORI-SUBGROUP EORI-SUBGROUP *1*EORI-TO-CCR-INS EORI-TO-CCR-INS *1*EORI-INS EORI-INS *1*ADDI-SUBGROUP ADDI-SUBGROUP *1*ADDI-INS ADDI-INS *1*ADDI-ADDR-MODEP ADDI-ADDR-MODEP *1*SUBI-SUBGROUP SUBI-SUBGROUP *1*SUBI-INS SUBI-INS *1*SUBI-ADDR-MODEP SUBI-ADDR-MODEP *1*ANDI-SUBGROUP ANDI-SUBGROUP *1*ANDI-TO-CCR-INS ANDI-TO-CCR-INS *1*ANDI-INS ANDI-INS *1*ANDI-ADDR-MODEP ANDI-ADDR-MODEP *1*ORI-SUBGROUP ORI-SUBGROUP *1*ORI-TO-CCR-INS ORI-TO-CCR-INS *1*ORI-INS ORI-INS *1*ORI-ADDR-MODEP ORI-ADDR-MODEP *1*S-BIT-SUBGROUP S-BIT-SUBGROUP *1*D-BIT-SUBGROUP D-BIT-SUBGROUP *1*BIT-INS BIT-INS *1*BTST-INS BTST-INS *1*BTST-ADDR-MODEP BTST-ADDR-MODEP *1*BSET-INS BSET-INS *1*BSET-EFFECT BSET-EFFECT *1*BSET-ADDR-MODEP BSET-ADDR-MODEP *1*BCLR-INS BCLR-INS *1*BCLR-EFFECT BCLR-EFFECT *1*BCLR-ADDR-MODEP BCLR-ADDR-MODEP *1*BCHG-INS BCHG-INS *1*BCHG-EFFECT BCHG-EFFECT *1*BCHG-ADDR-MODEP BCHG-ADDR-MODEP *1*BXXX-OPD BXXX-OPD *1*BXXX-NUM BXXX-NUM *1*BXXX-OPLEN BXXX-OPLEN *1*MOVEP-INS MOVEP-INS *1*MOVEP-ADDR MOVEP-ADDR *1*EVENP EVENP *1*MOVEP-TO-REG MOVEP-TO-REG *1*MOVEP-READ MOVEP-READ *1*MOVEP-READP MOVEP-READP *1*MOVEP-TO-MEM MOVEP-TO-MEM *1*MOVEP-WRITE MOVEP-WRITE *1*MOVEP-WRITEP MOVEP-WRITEP *1*CMP-GROUP CMP-GROUP *1*CMPM-INS CMPM-INS *1*CMPM-MAPPING CMPM-MAPPING *1*EOR-INS EOR-INS *1*EOR-MAPPING EOR-MAPPING *1*EOR&EORI-ADDR-MODEP EOR&EORI-ADDR-MODEP *1*EOR-EFFECT EOR-EFFECT *1*EOR-CVZNX EOR-CVZNX *1*EOR-N EOR-N *1*EOR-Z EOR-Z *1*CMPA-INS CMPA-INS *1*CMPA-ADDR-MODEP CMPA-ADDR-MODEP *1*CMP-INS CMP-INS *1*CMP-ADDR-MODEP CMP-ADDR-MODEP *1*CMP-CVZNX CMP-CVZNX *1*MOVEQ-INS MOVEQ-INS *1*SCC-GROUP SCC-GROUP *1*SUBQ-INS SUBQ-INS *1*SUBQ-ADDR-MODEP SUBQ-ADDR-MODEP *1*ADDQ-INS ADDQ-INS *1*ADDQ-ADDR-MODEP ADDQ-ADDR-MODEP *1*DBCC-INS DBCC-INS *1*DBCC-LOOP DBCC-LOOP *1*SCC-INS SCC-INS *1*SCC-EFFECT SCC-EFFECT *1*SCC-ADDR-MODEP SCC-ADDR-MODEP *1*BCC-GROUP BCC-GROUP *1*BCC-RA-SR BCC-RA-SR *1*BSR-INS BSR-INS *1*BRANCH-CC BRANCH-CC *1*BHI BHI *1*BLS BLS *1*BGE BGE *1*BLT BLT *1*BGT BGT *1*BLE BLE *1*BMI BMI *1*BEQ BEQ *1*BCS BCS *1*MISC-GROUP MISC-GROUP *1*NOT-SUBGROUP NOT-SUBGROUP *1*NOT-INS NOT-INS *1*NOT-EFFECT NOT-EFFECT *1*NOT-CVZNX NOT-CVZNX *1*NOT-N NOT-N *1*NOT-Z NOT-Z *1*NOT-ADDR-MODEP NOT-ADDR-MODEP *1*JSR-INS JSR-INS *1*JSR-ADDR-MODEP JSR-ADDR-MODEP *1*JMP-INS JMP-INS *1*JMP-MAPPING JMP-MAPPING *1*JMP-ADDR-MODEP JMP-ADDR-MODEP *1*NOP-SUBGROUP NOP-SUBGROUP *1*TRAPV-INS TRAPV-INS *1*BVS BVS *1*RTR-INS RTR-INS *1*RTS-INS RTS-INS *1*RTD-INS RTD-INS *1*RTD-MAPPING RTD-MAPPING *1*NOP-INS NOP-INS *1*UNLK-SUBGROUP UNLK-SUBGROUP *1*UNLK-INS UNLK-INS *1*LINK_W-INS LINK_W-INS *1*LINK_L-INS LINK_L-INS *1*LINK-MAPPING LINK-MAPPING *1*MOVEM-EA-RN-SUBGROUP MOVEM-EA-RN-SUBGROUP *1*MOVEM-EA-RN-INS MOVEM-EA-RN-INS *1*READMP READMP *1*MOVEM-EA-RN-ADDR-MODEP MOVEM-EA-RN-ADDR-MODEP *1*MUL-DIV_L-INS MUL-DIV_L-INS *1*MUL_L-INS MUL_L-INS *1*DH DH *1*DL DL *1*MULS_L_DLDH MULS_L_DLDH *1*MULS_L_DL MULS_L_DL *1*MULU_L_DLDH MULU_L_DLDH *1*MULU_L_DL MULU_L_DL *1*DIV_L-INS DIV_L-INS *1*DR DR *1*DQ DQ *1*DIVU_L DIVU_L *1*DIVUL_L DIVUL_L *1*DIVS_L DIVS_L *1*DIVSL_L DIVSL_L *1*TST-SUBGROUP TST-SUBGROUP *1*TAS-INS TAS-INS *1*TAS-EFFECT TAS-EFFECT *1*TAS-ADDR-MODEP TAS-ADDR-MODEP *1*TST-INS TST-INS *1*TST-ADDR-MODEP TST-ADDR-MODEP *1*EXT-SUBGROUP EXT-SUBGROUP *1*MOVEM-RN-EA-INS MOVEM-RN-EA-INS *1*MOVEM-RN-EA-ADDR-MODEP MOVEM-RN-EA-ADDR-MODEP *1*MOVEM-PREDEC MOVEM-PREDEC *1*MOVEM-PRE-RNLST MOVEM-PRE-RNLST *1*WRITEMP WRITEMP *1*MOVEM-LEN MOVEM-LEN *1*MOVEM-RNLST MOVEM-RNLST *1*WRITEM-RN WRITEM-RN *1*READM-RN READM-RN *1*WRITEM-MEM WRITEM-MEM *1*READM-MEM READM-MEM *1*EXT-INS EXT-INS *1*PEA-SUBGROUP PEA-SUBGROUP *1*SWAP-INS SWAP-INS *1*SWAP-EFFECT SWAP-EFFECT *1*SWAP-CVZNX SWAP-CVZNX *1*SWAP-N SWAP-N *1*SWAP-Z SWAP-Z *1*PEA-INS PEA-INS *1*PEA-ADDR-MODEP PEA-ADDR-MODEP *1*NEG-SUBGROUP NEG-SUBGROUP *1*MOVE-TO-CCR-INS MOVE-TO-CCR-INS *1*MOVE-TO-CCR-ADDR-MODEP MOVE-TO-CCR-ADDR-MODEP *1*NEG-INS NEG-INS *1*NEG-ADDR-MODEP NEG-ADDR-MODEP *1*NEGX-SUBGROUP NEGX-SUBGROUP *1*NEGX-INS NEGX-INS *1*NEGX-ADDR-MODEP NEGX-ADDR-MODEP *1*CLR-SUBGROUP CLR-SUBGROUP *1*MOVE-FROM-CCR-INS MOVE-FROM-CCR-INS *1*MOVE-FROM-CCR-EFFECT MOVE-FROM-CCR-EFFECT *1*MOVE-FROM-CCR-ADDR-MODEP MOVE-FROM-CCR-ADDR-MODEP *1*CLR-INS CLR-INS *1*CLR-EFFECT CLR-EFFECT *1*CLR-CVZNX CLR-CVZNX *1*CLR-ADDR-MODEP CLR-ADDR-MODEP *1*LEA-SUBGROUP LEA-SUBGROUP *1*EXTB-INS EXTB-INS *1*EXT-EFFECT EXT-EFFECT *1*EXT-CVZNX EXT-CVZNX *1*EXT-N EXT-N *1*EXT-Z EXT-Z *1*LEA-INS LEA-INS *1*LEA-ADDR-MODEP LEA-ADDR-MODEP *1*MOVE-GROUP MOVE-GROUP *1*MOVEA-INS MOVEA-INS *1*MOVEA-ADDR-MODEP MOVEA-ADDR-MODEP *1*MOVE-INS MOVE-INS *1*MOVE-MAPPING MOVE-MAPPING *1*MOVE-EFFECT MOVE-EFFECT *1*MOVE-CVZNX MOVE-CVZNX *1*MOVE-N MOVE-N *1*MOVE-Z MOVE-Z *1*MOVE-ADDR-MODEP MOVE-ADDR-MODEP *1*S&R-GROUP S&R-GROUP *1*BF-SUBGROUP BF-SUBGROUP *1*REGISTER-SHIFT-ROTATE REGISTER-SHIFT-ROTATE *1*MEMORY-SHIFT-ROTATE MEMORY-SHIFT-ROTATE *1*MEM-ROXR-INS MEM-ROXR-INS *1*MEM-ROXR-EFFECT MEM-ROXR-EFFECT *1*MEM-ROXL-INS MEM-ROXL-INS *1*MEM-ROXL-EFFECT MEM-ROXL-EFFECT *1*REGISTER-ROXR-INS REGISTER-ROXR-INS *1*ROXR-EFFECT ROXR-EFFECT *1*ROXR-CVZNX ROXR-CVZNX *1*ROXR-N ROXR-N *1*ROXR-Z ROXR-Z *1*ROXR-C ROXR-C *1*REGISTER-ROXL-INS REGISTER-ROXL-INS *1*ROXL-EFFECT ROXL-EFFECT *1*ROXL-CVZNX ROXL-CVZNX *1*ROXL-N ROXL-N *1*ROXL-Z ROXL-Z *1*ROXL-C ROXL-C *1*ROXR ROXR *1*ROXL ROXL *1*MEM-ASR-INS MEM-ASR-INS *1*MEM-ASR-EFFECT MEM-ASR-EFFECT *1*MEM-ASL-INS MEM-ASL-INS *1*MEM-ASL-EFFECT MEM-ASL-EFFECT *1*REGISTER-ASR-INS REGISTER-ASR-INS *1*ASR-EFFECT ASR-EFFECT *1*ASR-CVZNX ASR-CVZNX *1*ASR-X ASR-X *1*ASR-N ASR-N *1*ASR-Z ASR-Z *1*ASR-C ASR-C *1*REGISTER-ASL-INS REGISTER-ASL-INS *1*ASL-EFFECT ASL-EFFECT *1*ASL-CVZNX ASL-CVZNX *1*ASL-X ASL-X *1*ASL-N ASL-N *1*ASL-Z ASL-Z *1*ASL-V ASL-V *1*ASL-C ASL-C *1*MEM-LSR-INS MEM-LSR-INS *1*MEM-LSR-EFFECT MEM-LSR-EFFECT *1*MEM-LSL-INS MEM-LSL-INS *1*MEM-LSL-EFFECT MEM-LSL-EFFECT *1*REGISTER-LSR-INS REGISTER-LSR-INS *1*LSR-EFFECT LSR-EFFECT *1*LSR-CVZNX LSR-CVZNX *1*LSR-X LSR-X *1*LSR-N LSR-N *1*LSR-Z LSR-Z *1*LSR-C LSR-C *1*REGISTER-LSL-INS REGISTER-LSL-INS *1*LSL-EFFECT LSL-EFFECT *1*LSL-CVZNX LSL-CVZNX *1*LSL-X LSL-X *1*LSL-N LSL-N *1*LSL-Z LSL-Z *1*LSL-C LSL-C *1*MEM-ROR-INS MEM-ROR-INS *1*MEM-ROR-EFFECT MEM-ROR-EFFECT *1*MEM-ROL-INS MEM-ROL-INS *1*MEM-ROL-EFFECT MEM-ROL-EFFECT *1*REGISTER-ROR-INS REGISTER-ROR-INS *1*ROR-EFFECT ROR-EFFECT *1*ROR-CVZNX ROR-CVZNX *1*ROR-N ROR-N *1*ROR-Z ROR-Z *1*ROR-C ROR-C *1*REGISTER-ROL-INS REGISTER-ROL-INS *1*ROL-EFFECT ROL-EFFECT *1*ROL-CVZNX ROL-CVZNX *1*ROL-N ROL-N *1*ROL-Z ROL-Z *1*ROL-C ROL-C *1*SR-CNT SR-CNT *1*I-DATA I-DATA *1*S&R-ADDR-MODEP S&R-ADDR-MODEP *1*ROR ROR *1*ROL ROL *1*OR-GROUP OR-GROUP *1*DIV_W-INS DIV_W-INS *1*DIVU_W-INS DIVU_W-INS *1*DIVU-CVZNX DIVU-CVZNX *1*DIVU-N DIVU-N *1*DIVU-Z DIVU-Z *1*DIVU-V DIVU-V *1*REM REM *1*QUOT QUOT *1*DIVS_W-INS DIVS_W-INS *1*DIVS-CVZNX DIVS-CVZNX *1*DIVS-N DIVS-N *1*DIVS-Z DIVS-Z *1*DIVS-V DIVS-V *1*IREM IREM *1*IQUOT IQUOT *1*OR-INS2 OR-INS2 *1*OR-MAPPING OR-MAPPING *1*OR-INS1 OR-INS1 *1*OR-ADDR-MODEP2 OR-ADDR-MODEP2 *1*OR-ADDR-MODEP1 OR-ADDR-MODEP1 *1*OR-EFFECT OR-EFFECT *1*OR-CVZNX OR-CVZNX *1*OR-N OR-N *1*OR-Z OR-Z *1*AND-GROUP AND-GROUP *1*MUL_W-INS MUL_W-INS *1*EXG-DRAR-INS EXG-DRAR-INS *1*EXG-ARAR-INS EXG-ARAR-INS *1*EXG-DRDR-INS EXG-DRDR-INS *1*MULS_W-INS MULS_W-INS *1*MULS-CVZNX MULS-CVZNX *1*MULS-N MULS-N *1*MULS-Z MULS-Z *1*MULS-V MULS-V *1*MULU_W-INS MULU_W-INS *1*MULU-CVZNX MULU-CVZNX *1*MULU-N MULU-N *1*MULU-Z MULU-Z *1*MULU-V MULU-V *1*MUL&DIV-ADDR-MODEP MUL&DIV-ADDR-MODEP *1*MULS MULS *1*MULU MULU *1*AND-INS2 AND-INS2 *1*AND-MAPPING AND-MAPPING *1*AND-INS1 AND-INS1 *1*AND-ADDR-MODEP2 AND-ADDR-MODEP2 *1*AND-ADDR-MODEP1 AND-ADDR-MODEP1 *1*AND-EFFECT AND-EFFECT *1*AND-CVZNX AND-CVZNX *1*AND-N AND-N *1*AND-Z AND-Z *1*SUB-GROUP SUB-GROUP *1*SUBX-INS2 SUBX-INS2 *1*SUBX-INS1 SUBX-INS1 *1*SUBX-EFFECT SUBX-EFFECT *1*SUBX-CVZNX SUBX-CVZNX *1*SUBX-N SUBX-N *1*SUBX-Z SUBX-Z *1*SUBX-V SUBX-V *1*SUBX-C SUBX-C *1*SUBA-INS SUBA-INS *1*SUBA-ADDR-MODEP SUBA-ADDR-MODEP *1*SUB-INS2 SUB-INS2 *1*SUB-MAPPING SUB-MAPPING *1*SUB-INS1 SUB-INS1 *1*SUB-ADDR-MODEP2 SUB-ADDR-MODEP2 *1*SUB-ADDR-MODEP1 SUB-ADDR-MODEP1 *1*SUB-EFFECT SUB-EFFECT *1*SUB-CVZNX SUB-CVZNX *1*SUB-N SUB-N *1*SUB-Z SUB-Z *1*SUB-V SUB-V *1*SUB-C SUB-C *1*ADD-GROUP ADD-GROUP *1*ADDX-INS2 ADDX-INS2 *1*ADDX-INS1 ADDX-INS1 *1*ADDX-EFFECT ADDX-EFFECT *1*ADDX-CVZNX ADDX-CVZNX *1*ADDX-N ADDX-N *1*ADDX-Z ADDX-Z *1*ADDX-V ADDX-V *1*ADDX-C ADDX-C *1*ADDA-INS ADDA-INS *1*ADDA-ADDR-MODEP ADDA-ADDR-MODEP *1*ADD-INS2 ADD-INS2 *1*ADD-MAPPING ADD-MAPPING *1*ADD-INS1 ADD-INS1 *1*ADD-ADDR-MODEP2 ADD-ADDR-MODEP2 *1*ADD-ADDR-MODEP1 ADD-ADDR-MODEP1 *1*ADD-EFFECT ADD-EFFECT *1*ADD-CVZNX ADD-CVZNX *1*ADD-N ADD-N *1*ADD-Z ADD-Z *1*ADD-V ADD-V *1*ADD-C ADD-C *1*MAPPING MAPPING *1*M-MAPPING M-MAPPING *1*A-MAPPING A-MAPPING *1*D-MAPPING D-MAPPING *1*MC-INSTATE MC-INSTATE *1*BYTE-AN-DIRECT-MODEP BYTE-AN-DIRECT-MODEP *1*IDATA-MODEP IDATA-MODEP *1*PREDEC-MODEP PREDEC-MODEP *1*POSTINC-MODEP POSTINC-MODEP *1*AN-DIRECT-MODEP AN-DIRECT-MODEP *1*DN-DIRECT-MODEP DN-DIRECT-MODEP *1*ALTERABLE-ADDR-MODEP ALTERABLE-ADDR-MODEP *1*CONTROL-ADDR-MODEP CONTROL-ADDR-MODEP *1*MEMORY-ADDR-MODEP MEMORY-ADDR-MODEP *1*DATA-ADDR-MODEP DATA-ADDR-MODEP *1*ADDR-MODEP ADDR-MODEP *1*EFFEC-ADDR EFFEC-ADDR *1*IMMEDIATE IMMEDIATE *1*PC-INDEX PC-INDEX *1*PC-INDEX1 PC-INDEX1 *1*BS-PC BS-PC *1*PC-INDEX-DISP PC-INDEX-DISP *1*PC-DISP PC-DISP *1*ABSOLUTE-LONG ABSOLUTE-LONG *1*ABSOLUTE-SHORT ABSOLUTE-SHORT *1*ADDR-INDEX ADDR-INDEX *1*ADDR-INDEX1 ADDR-INDEX1 *1*BS-REGISTER BS-REGISTER *1*ADDR-INDEX2 ADDR-INDEX2 *1*BD-SZ BD-SZ *1*ADDR-INDEX3 ADDR-INDEX3 *1*I-IS I-IS *1*MEM-PREINDEX MEM-PREINDEX *1*MEM-POSTINDEX MEM-POSTINDEX *1*MEM-INDIRECT MEM-INDIRECT *1*ADDR-INDEX-BD ADDR-INDEX-BD *1*ADDR-INDEX-DISP ADDR-INDEX-DISP *1*IR-SCALED IR-SCALED *1*INDEX-REGISTER INDEX-REGISTER *1*INDEX-RN INDEX-RN *1*ADDR-DISP ADDR-DISP *1*ADDR-PREDEC ADDR-PREDEC *1*ADDR-POSTINC ADDR-POSTINC *1*ADDR-INDIRECT ADDR-INDIRECT *1*AN-DIRECT AN-DIRECT *1*DN-DIRECT DN-DIRECT *1*PRE-EFFECT PRE-EFFECT *1*POST-EFFECT POST-EFFECT *1*OPERAND OPERAND *1*PUSH-SP PUSH-SP *1*WRITE-SP WRITE-SP *1*READ-SP READ-SP *1*SP SP *1*WRITE-AN WRITE-AN *1*WRITE-DN WRITE-DN *1*READ-AN READ-AN *1*READ-DN READ-DN *1*UPDATE-MEM UPDATE-MEM *1*UPDATE-CCR UPDATE-CCR *1*UPDATE-PC UPDATE-PC *1*UPDATE-RFILE UPDATE-RFILE *1*HALT HALT *1*SET-X SET-X *1*SET-N SET-N *1*SET-Z SET-Z *1*SET-V SET-V *1*SET-C SET-C *1*SET-CVZNX SET-CVZNX *1*CVZNX CVZNX *1*CCR-X CCR-X *1*CCR-N CCR-N *1*CCR-Z CCR-Z *1*CCR-V CCR-V *1*CCR-C CCR-C *1*WRITE-MEM WRITE-MEM *1*BYTE-WRITE BYTE-WRITE *1*WRITE-MEMP WRITE-MEMP *1*BYTE-WRITEP BYTE-WRITEP *1*OP-LEN OP-LEN *1*COND-FIELD COND-FIELD *1*OPMODE-FIELD OPMODE-FIELD *1*D_RN D_RN *1*D_MODE D_MODE *1*S_MODE S_MODE *1*S_RN S_RN *1*PC-LONG-READ PC-LONG-READ *1*PC-WORD-READ PC-WORD-READ *1*PC-READ-MEM PC-READ-MEM *1*PC-BYTE-READ PC-BYTE-READ *1*LONG-READ LONG-READ *1*WORD-READ WORD-READ *1*READ-MEM READ-MEM *1*BYTE-READ BYTE-READ *1*PC-LONG-READP PC-LONG-READP *1*PC-WORD-READP PC-WORD-READP *1*PC-READ-MEMP PC-READ-MEMP *1*PC-BYTE-READP PC-BYTE-READP *1*LONG-READP LONG-READP *1*WORD-READP WORD-READP *1*READ-MEMP READ-MEMP *1*BYTE-READP BYTE-READP *1*MC-HALTP MC-HALTP *1*LEN LEN *1*MC-MEM MC-MEM *1*MC-CCR MC-CCR *1*MC-PC MC-PC *1*MC-RFILE MC-RFILE *1*MC-STATUS MC-STATUS *1*MC-STATE MC-STATE *1*WRITE-RN WRITE-RN *1*READ-RN READ-RN *1*OP-SZ OP-SZ *1*PUT-NTH PUT-NTH *1*GET-NTH GET-NTH *1*WRITE WRITE *1*PC-READ PC-READ *1*READ READ *1*WRITEP WRITEP *1*PC-READP PC-READP *1*READP READP *1*MAKE-BT MAKE-BT *1*BRANCH1 BRANCH1 *1*BRANCH0 BRANCH0 *1*VALUE-FIELD VALUE-FIELD *1*INT-TO-NAT INT-TO-NAT *1*NAT-TO-INT NAT-TO-INT *1*INT-RANGEP INT-RANGEP *1*UINT-TO-NAT UINT-TO-NAT *1*NAT-TO-UINT NAT-TO-UINT *1*UINT-RANGEP UINT-RANGEP *1*NAT-RANGEP NAT-RANGEP *1*IQUOTIENT IQUOTIENT *1*IREMAINDER IREMAINDER *1*ITIMES ITIMES *1*IDIFFERENCE IDIFFERENCE *1*INEG INEG *1*IPLUS IPLUS *1*ILEQ ILEQ *1*ILESSP ILESSP *1*ABS ABS *1*IZEROP IZEROP *1*FIX-INT FIX-INT *1*INTEGERP INTEGERP *1*NEGP NEGP *1*ASR ASR *1*LSR LSR *1*ASL ASL *1*LSL LSL *1*EXT EXT *1*REPLACE REPLACE *1*APP APP *1*SUB SUB *1*SUBTRACTER SUBTRACTER *1*ADD ADD *1*ADDER ADDER *1*SETN SETN *1*BITS BITS *1*MBIT MBIT *1*BITN BITN *1*LOGEOR LOGEOR *1*LOGOR LOGOR *1*LOGAND LOGAND *1*LOGNOT LOGNOT *1*TAIL TAIL *1*HEAD HEAD *1*BCDR BCDR *1*BCAR BCAR *1*B-EQUAL B-EQUAL *1*B-EOR B-EOR *1*B-NAND B-NAND *1*B-NOR B-NOR *1*B-OR B-OR *1*B-AND B-AND *1*B-NOT B-NOT *1*FIX-BIT FIX-BIT *1*B1P B1P *1*B0P B0P *1*B0 B0 *1*B1 B1 *1*BITP BITP *1*MODE-SIGNAL MODE-SIGNAL *1*PC-ODD-SIGNAL PC-ODD-SIGNAL *1*PC-SIGNAL PC-SIGNAL *1*RESERVED-SIGNAL RESERVED-SIGNAL *1*WRITE-SIGNAL WRITE-SIGNAL *1*READ-SIGNAL READ-SIGNAL *1*QSZ QSZ *1*LSZ LSZ *1*WSZ WSZ *1*BSZ BSZ *1*Q Q *1*L L *1*W W *1*B B TA-LEMMA-2 TA-LEMMA-1 LOG-LEQ *1*QUOTIENT2-INDUCT QUOTIENT2-INDUCT LOG-QUOTIENT-EXP LOG-TIMES-EXP-1 LOG-TIMES-EXP LOG-EXP LOG-EQUAL-0 LOG-OF-1 LOG-OF-0 *1*LOG LOG TIMES-LESSP REMAINDER-REMAINDER-2 REMAINDER-REMAINDER-EXP2 QUOTIENT-TIMES-EXP2-4 QUOTIENT-TIMES-EXP2-3 QUOTIENT-TIMES-EXP2-2 QUOTIENT-TIMES-EXP2-1 REMAINDER-TIMES-EXP2-4 REMAINDER-TIMES-EXP2-3 REMAINDER-TIMES-EXP2-2 REMAINDER-TIMES-EXP2-1 LESSP-PLUS-EXP2 LESSP-PLUS-TIMES-EXP2 *1*QUOT2-SUB12-INDUCT QUOT2-SUB12-INDUCT TIMES-DISTRIBUTES-PLUS-OFF TIMES-DISTRIBUTES-PLUS-NEW QUOTIENT-QUOTIENT QUOTIENT-TIMES-LESSP REMAINDER-PLUS-CANCEL REMAINDER-PLUS-CANCEL0 REMAINDER-EXP QUOTIENT-EXP QUOTIENT-DISTRIBUTES-TIMES2-ADD1 REMAINDER-DISTRIBUTES-TIMES2-ADD1 QUOTIENT-CROCK-OFF REMAINDER-CROCK-OFF QUOTIENT-TIMES-CANCEL QUOTIENT-CROCK TIMES-DISTRIBUTES-REMAINDER REMAINDER-CROCK REMAINDER-PLUS-REMAINDER REMAINDER-PLUS-REMAINDER2 REMAINDER-DIFFERENCE-REMAINDER1 REMAINDER-PLUS-REMAINDER1 QUOTIENT-SHRINK-FAST TIMES-PLUS-LESSP QUOTIENT-ADD1 REMAINDER-ADD1 REMAINDER-QUOTIENT-ELIM REMAINDER-QUOTIENT QUOTIENT-SUB1 REMAINDER-SUB1 QUOTIENT-DIFFERENCE-OFF REMAINDER-DIFFERENCE-OFF QUOTIENT-DIFFERENCE-TIMES2 QUOTIENT-DIFFERENCE-TIMES1 QUOTIENT-DIFFERENCE QUOTIENT-DIFFERENCE-PLUS2 QUOTIENT-DIFFERENCE-PLUS1 QUOTIENT-PLUS-ADD1 QUOTIENT-PLUS-PLUS QUOTIENT-PLUS-TIMES2 QUOTIENT-PLUS-TIMES1 QUOTIENT-TIMES QUOTIENT-PLUS2 QUOTIENT-PLUS1 REMAINDER-DIFFERENCE-TIMES2 REMAINDER-DIFFERENCE-TIMES1 REMAINDER-DIFFERENCE REMAINDER-PLUS-PLUS-TIMES2 REMAINDER-PLUS-PLUS-TIMES1 REMAINDER-PLUS-DIFFERENCE2 REMAINDER-PLUS-DIFFERENCE1 REMAINDER-PLUS-ADD1 REMAINDER-PLUS-PLUS REMAINDER-PLUS-TIMES2 REMAINDER-PLUS-TIMES1 REMAINDER-TIMES REMAINDER-PLUS2 REMAINDER-PLUS1 REMAINDER-WRT-2 QUOTIENT-LEQ QUOTIENT-LESSP-LINEAR REMAINDER-LESSP-LINEAR QUOTIENT-LESSP REMAINDER-LESSP QUOTIENT-GENERALIZE-OFF QUOTIENT-GENERALIZE QUOTIENT-2X-ADD1 REMAINDER-2X-ADD1 QUOTIENT-2X REMAINDER-2X QUOTIENT-EQUAL-0 QUOTIENT-X-X REMAINDER-X-X QUOTIENT-1 REMAINDER-1 QUOTIENT-0 REMAINDER-0 QUOTIENT-EXIT REMAINDER-EXIT TIMES-EXP2-LESSP TIMES-OFF EXP-LESSP EXP-OF-2-1 EXP-OF-2-0 EXP-EXP EXP-TIMES EXP-PLUS EXP-OF-1 EXP-OF-0 *1*EXP EXP CORRECTNESS-OF-CANCEL-EQUAL-TIMES *1*CANCEL-EQUAL-TIMES CANCEL-EQUAL-TIMES EQUAL-1-TIMES-TREE-DELETE *1*EQUAL-1-EVAL$-TIMES-TREE-DELETE-END EQUAL-1-EVAL$-TIMES-TREE-DELETE-END ZEROP-MAKES-EQUAL-TRUE-BRIDGE EVAL$-EQUAL-TIMES-TREE-BAGDIFF LESSP-1-TIMES-TREE-DELETE-OFF AND-NOT-ZEROP-TREE-DELETE-OFF CORRECTNESS-OF-CANCEL-LESSP-TIMES *1*CANCEL-LESSP-TIMES CANCEL-LESSP-TIMES EVAL$-TIMES-FRINGE-MEMBER-ZERO LESSP-1-TIMES-TREE-DELETE *1*LESSP-1-TIMES-TREE-DELETE-END LESSP-1-TIMES-TREE-DELETE-END AND-NOT-ZEROP-TREE-LESSP-OFF AND-NOT-ZEROP-TREE-DELETE *1*EVAL$-AND-NOT-ZEROP-TREE-END EVAL$-AND-NOT-ZEROP-TREE-END AND-NOT-ZEROP-TREE-LESSP ZEROP-MAKES-LESSP-FALSE-BRIDGE EVAL$-LESSP-TIMES-TREE-BAGDIFF TIMES-TREE-TIMES-FRINGE EVAL$-TIMES-TREE-APPEND ZEROP-MAKES-TIMES-TREE-ZERO EVAL$-TIMES-MEMBER EVAL$-TIMES-TREE-NUMBERP NUMBERP-EVAL$-TIMES *1*AND-NOT-ZEROP-TREE AND-NOT-ZEROP-TREE *1*TIMES-TREE TIMES-TREE *1*TIMES-FRINGE TIMES-FRINGE TIMES2-ADD1-LESSP-CANCEL TIMES-DISTRIBUTES-DIFFERENCE1 TIMES-DISTRIBUTES-DIFFERENCE TIMES-LESSP-LINEAR TIMES-LESSP-CANCEL-1 EQUAL-IFF-OFF TIMES-LESSP-CANCEL TIMES-LESSP-CANCEL0 TIMES-LESSP-1 TIMES-LESSP-0 TIMES-EQUAL-CANCEL TIMES-EQUAL-CANCEL0 EQUAL-IFF *1*BOOLEAN BOOLEAN TIMES-ASSOCIATIVITY TIMES-ADD1-SUB1 TIMES-1 TIMES-EQUAL-1 TIMES-EQUAL-0 TIMES-COMMUTATIVITY1 TIMES-COMMUTATIVITY TIMES-ADD1 TIMES-DISTRIBUTES-PLUS TIMES-ZERO PLUS-LESSP-CANCEL-2 CORRECTNESS-OF-CANCEL-LESSP-PLUS *1*CANCEL-LESSP-PLUS CANCEL-LESSP-PLUS CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS *1*CANCEL-DIFFERENCE-PLUS CANCEL-DIFFERENCE-PLUS CORRECTNESS-OF-CANCEL-EQUAL-PLUS *1*CANCEL-EQUAL-PLUS CANCEL-EQUAL-PLUS LISTP-EVAL$ EVAL$-QUOTE CADR-EVAL$-LIST MEMBER-IMPLIES-NUMBERP PLUS-TREE-PLUS-FRINGE EVAL$-PLUS-TREE-APPEND BRIDGE-TO-SUBBAGP-IMPLIES-PLUS-TREE-GEQ NUMBERP-EVAL$-BRIDGE PLUS-TREE-BAGDIFF SUBBAGP-IMPLIES-PLUS-TREE-GEQ PLUS-TREE-DELETE MEMBER-IMPLIES-PLUS-TREE-GREATEREQP NUMBERP-EVAL$-PLUS-TREE NUMBERP-EVAL$-PLUS *1*PLUS-TREE PLUS-TREE *1*PLUS-FRINGE PLUS-FRINGE DIFFERENCE-LESSP-CANCEL DIFFERENCE-EQUAL-CANCEL-1 DIFFERENCE-EQUAL-CANCEL-0 DIFFERENCE=0 DIFFERENCE-LESSP1 DIFFERENCE-LESSP DIFFERENCE-PLUS-CANCEL-ADD1 DIFFERENCE-PLUS-CANCEL1 DIFFERENCE-DIFFERENCE2 DIFFERENCE-DIFFERENCE1 DIFFERENCE-PLUS2 DIFFERENCE-PLUS1 DIFFERENCE-PLUS-CANCEL0 DIFFERENCE-X-X DIFFERENCE-0 DIFFERENCE-SUB1-SUB1 DIFFERENCE-SUB1 SUB1-OF-1 PLUS-EQUAL-0 PLUS-LESSP-CANCEL-ADD1 PLUS-LESSP-CANCEL-1 PLUS-LESSP-CANCEL-0 PLUS-EQUAL-CANCEL PLUS-EQUAL-CANCEL0 PLUS-ASSOCIATIVITY PLUS-COMMUTATIVITY1 PLUS-COMMUTATIVITY PLUS-ADD1-1 PLUS-ADD1 LESSP-SUB1 LESSP-OF-1 SUBBAGP-BAGINT2 SUBBAGP-BAGINT1 SUBBAGP-CDR2 SUBBAGP-CDR1 SUBBAGP-DELETE DELETE-COMMUTATIVITY MEMBER-DELETE DELETE-NON-MEMBER *1*BAGINT BAGINT *1*BAGDIFF BAGDIFF *1*SUBBAGP SUBBAGP *1*DELETE DELETE *1*SUBSET SUBSET *1*IDENTITY IDENTITY REWRITE-EVAL$ REWRITE-CAR-V&C$ REWRITE-V&C-APPLY$ REWRITE-V&C$ REWRITE-APPLY-SUBR REWRITE-APPLY$ REWRITE-CAR-V&C-APPLY$ *1*FOR FOR *1*QUANTIFIER-OPERATION QUANTIFIER-OPERATION *1*UNION UNION NUMBERP-MAX *1*MAX MAX *1*APPEND APPEND *1*ADD-TO-SET ADD-TO-SET *1*QUANTIFIER-INITIAL-VALUE QUANTIFIER-INITIAL-VALUE NOT-SUBRP-APPLY-SUBR SUBRP-BODY SUBRP-FORMALS NOT-LITATOM-BODY NOT-LITATOM-FORMALS NOT-LITATOM-SUBRP *1*EVAL$ EVAL$ *1*APPLY$ APPLY$ *1*V&C-APPLY$ V&C-APPLY$ *1*V&C$ V&C$ *1*SUM-CDRS SUM-CDRS *1*STRIP-CARS STRIP-CARS *1*FIX-COST FIX-COST *1*BODY BODY *1*FORMALS FORMALS *1*APPLY-SUBR APPLY-SUBR SUBRP-BOOLEAN *1*SUBRP SUBRP *1*PAIRLIST PAIRLIST *1*ASSOC ASSOC *1*ORDINALP ORDINALP *1*ORD-LESSP ORD-LESSP *1*IFF IFF *1*MEMBER MEMBER *1*REMAINDER REMAINDER *1*QUOTIENT QUOTIENT *1*TIMES TIMES *1*DIFFERENCE DIFFERENCE COUNT-MINUS NEGATIVE-GUTS-ELIM MINUS-NEGATIVE-GUTS MINUS-EQUAL NEGATIVE-GUTS-LESSEQP NEGATIVE-GUTS-LESSP NEGATIVE-GUTS-TYPE-RESTRICTION NEGATIVE-GUTS-NNEGATIVEP NEGATIVE-GUTS-MINUS *1*NEGATIVE-GUTS NEGATIVE-GUTS *1*NEGATIVEP NEGATIVEP *1*MINUS MINUS *1*NLISTP NLISTP COUNT-CONS CAR-CDR-ELIM CONS-CAR-CDR CONS-EQUAL CDR-LESSEQP CDR-LESSP CDR-NLISTP CDR-CONS CAR-LESSEQP CAR-LESSP CAR-NLISTP CAR-CONS *1*CDR CDR *1*CAR CAR *1*LISTP LISTP *1*CONS CONS COUNT-PACK UNPACK-ELIM PACK-UNPACK PACK-EQUAL UNPACK-LESSEQP UNPACK-LESSP UNPACK-NLITATOM UNPACK-PACK *1*UNPACK UNPACK *1*LITATOM LITATOM *1*PACK PACK COUNT-NOT-LESSP COUNT-NUMBERP *1*PLUS PLUS *1*FIX FIX *1*ZEROP ZEROP *1*GEQ GEQ *1*LEQ LEQ *1*GREATERP GREATERP *1*LESSP LESSP COUNT-ADD1 SUB1-ELIM ADD1-SUB1 ADD1-EQUAL SUB1-LESSEQP SUB1-LESSP SUB1-TYPE-RESTRICTION SUB1-NNUMBERP SUB1-ADD1 *1*ZERO ZERO *1*SUB1 SUB1 *1*NUMBERP NUMBERP *1*ADD1 ADD1 *1*IMPLIES IMPLIES *1*OR OR *1*AND AND *1*NOT NOT *1*TRUEP TRUEP *1*TRUE TRUE *1*FALSEP FALSEP *1*FALSE FALSE *1*COUNT COUNT QUOTE *1*EQUAL EQUAL *1*IF-ERROR IF GROUND-ZERO))) (SETQ LIB-ATOMS-WITH-DEFS (QUOTE (*1*GCD-T2 *1*GCD-S0P *1*GCD-STATEP *1*GCD-INDUCT *1*GCD-T *1*GCD-T1 *1*GCD *1*GCD-ADDR *1*GCD-LOADP *1*GCD-CODE *1*STRINGP *1*SLEN *1*LST-OF-CHRP *1*STRXFRM *1*STRXFRM1 *1*STRTOK-LAST *1*STRTOK-LAST1 *1*STRTOK-LAST0 *1*STRTOK-LST *1*STRTOK-LST2 *1*STRTOK-LST1 *1*STRTOK-LST0 *1*STRTOK-TOK *1*STRSTR* *1*STRSTR1* *1*STRSPN* *1*STRPBRK* *1*STRRCHR* *1*STRCSPN* *1*STRCHR1* *1*STRCHR* *1*MEMCHR* *1*STRLEN* *1*MEMMOVE *1*MEMMOVE-3 *1*MEMMOVE-4 *1*MEMMOVE-0 *1*MEMMOVE-1 *1*STRSTR *1*STRSTR1 *1*STRPBRK *1*STRSPN *1*STRCHR1 *1*STRRCHR *1*STRCSPN *1*STRCHR *1*STRNCPY *1*STRNCPY1 *1*ZERO-LIST *1*ZERO-LIST1 *1*STRNCMP *1*STRNCMP1 *1*STRNCAT *1*STRCPY2 *1*STRCAT *1*STRCPY1 *1*STRCOLL *1*STRCMP *1*STRCPY *1*STRLEN *1*MEMSET *1*MEMSET1 *1*MEMCMP *1*MEMCMP1 *1*MEMCHR *1*MEMCHR1 *1*EOF *1*NULL *1*SWAP *1*D6-7A2-5P *1*D5-7A4-5P *1*D4-7A5P *1*D4-7A4-5P *1*D2-7A3-5P *1*D5-7A2-5P *1*D4-7A2-5P *1*D3-7A2-5P *1*D2-7A2-5P *1*EQUAL* *1*LST-INTEGERP *1*LST-INT *1*RN-SAVED *1*MOVEM-SAVED *1*LINKED-A6 *1*LINKED-RTS-ADDR *1*RTS-ADDR *1*IREAD-AN *1*IREAD-DN *1*IREAD-MEM *1*UREAD-AN *1*UREAD-DN *1*UREAD-MEM *1*T3 *1*H *1*P *1*MMOVN-LST1 *1*MMOVN-LST *1*MOVN-LST *1*MMOV1-LST1 *1*MMOV1-LST *1*LSTCPY1 *1*LSTMCPY *1*LSTCPY *1*MODN-LST *1*MEM-INDUCT4 *1*MEM-INDUCT3 *1*MEM-INDUCT2 *1*PROPER-LSTP *1*MCDR *1*MCAR *1*LST-TO-BV *1*BV-TO-LST *1*PUT-VALS *1*GET-VALS *1*PUT-LST *1*GET-LST *1*MEM-ILST *1*MEM-LST *1*READ-LST *1*LST-NUMBERP *1*TAIL-LST *1*READ-LST0 *1*LST-NUMBERP0 *1*MEM-INDUCT1 *1*INDEX-N *1*MCODE-ADDRP *1*SPLUS *1*BETWEEN-ILEQ *1*CANCEL-ADD-NEG *1*CANCEL-EQUAL-ADD *1*ADD-TREE-DELETE-COND *1*ADD-TREE *1*ADD-FRINGE *1*WRITE-WRITE-INDUCT *1*READ-WRITE-MEM-END *1*READ-MEM-BYTE-WRITE-END *1*BYTE-READ-WRITE-MEM-END *1*MEM-INDUCT0 *1*MODN-EQ *1*READ-WRITEM-RN-END *1*GET-VLST *1*READ-WRITE-RN-END *1*ADDER-INT-END *1*BV-ADDER&CARRY *1*NAT-TO-BV-SIZED *1*NAT-TO-BV *1*BV-SIZED-TO-NAT *1*BV-TO-NAT *1*BV-ADDER *1*BV-MBIT *1*BV-BITN *1*BV-TAIL *1*BV-HEAD *1*BV-NOT *1*BV-LEN *1*FIX-BV *1*VEC *1*BIT *1*DISJOINT *1*DISJOINT0 *1*NEG *1*MOD32-EQ *1*MOD-EQ *1*N-MEMBER *1*RAM-ADDRP *1*ROM-ADDRP *1*LOAD-LST-MEM *1*MAP-UPDATE *1*MAKE-MAP *1*KEY-FIELD *1*CONS-KEY-LST *1*STEPN *1*STEPI *1*CURRENT-INS *1*EXECUTE-INS *1*OPCODE-FIELD *1*BIT-GROUP *1*CMPI-SUBGROUP *1*CMPI-INS *1*CMPI-MAPPING *1*CMPI-ADDR-MODEP *1*EORI-SUBGROUP *1*EORI-TO-CCR-INS *1*EORI-INS *1*ADDI-SUBGROUP *1*ADDI-INS *1*ADDI-ADDR-MODEP *1*SUBI-SUBGROUP *1*SUBI-INS *1*SUBI-ADDR-MODEP *1*ANDI-SUBGROUP *1*ANDI-TO-CCR-INS *1*ANDI-INS *1*ANDI-ADDR-MODEP *1*ORI-SUBGROUP *1*ORI-TO-CCR-INS *1*ORI-INS *1*ORI-ADDR-MODEP *1*S-BIT-SUBGROUP *1*D-BIT-SUBGROUP *1*BIT-INS *1*BTST-INS *1*BTST-ADDR-MODEP *1*BSET-INS *1*BSET-EFFECT *1*BSET-ADDR-MODEP *1*BCLR-INS *1*BCLR-EFFECT *1*BCLR-ADDR-MODEP *1*BCHG-INS *1*BCHG-EFFECT *1*BCHG-ADDR-MODEP *1*BXXX-OPD *1*BXXX-NUM *1*BXXX-OPLEN *1*MOVEP-INS *1*MOVEP-ADDR *1*EVENP *1*MOVEP-TO-REG *1*MOVEP-READ *1*MOVEP-READP *1*MOVEP-TO-MEM *1*MOVEP-WRITE *1*MOVEP-WRITEP *1*CMP-GROUP *1*CMPM-INS *1*CMPM-MAPPING *1*EOR-INS *1*EOR-MAPPING *1*EOR&EORI-ADDR-MODEP *1*EOR-EFFECT *1*EOR-CVZNX *1*EOR-N *1*EOR-Z *1*CMPA-INS *1*CMPA-ADDR-MODEP *1*CMP-INS *1*CMP-ADDR-MODEP *1*CMP-CVZNX *1*MOVEQ-INS *1*SCC-GROUP *1*SUBQ-INS *1*SUBQ-ADDR-MODEP *1*ADDQ-INS *1*ADDQ-ADDR-MODEP *1*DBCC-INS *1*DBCC-LOOP *1*SCC-INS *1*SCC-EFFECT *1*SCC-ADDR-MODEP *1*BCC-GROUP *1*BCC-RA-SR *1*BSR-INS *1*BRANCH-CC *1*BHI *1*BLS *1*BGE *1*BLT *1*BGT *1*BLE *1*BMI *1*BEQ *1*BCS *1*MISC-GROUP *1*NOT-SUBGROUP *1*NOT-INS *1*NOT-EFFECT *1*NOT-CVZNX *1*NOT-N *1*NOT-Z *1*NOT-ADDR-MODEP *1*JSR-INS *1*JSR-ADDR-MODEP *1*JMP-INS *1*JMP-MAPPING *1*JMP-ADDR-MODEP *1*NOP-SUBGROUP *1*TRAPV-INS *1*BVS *1*RTR-INS *1*RTS-INS *1*RTD-INS *1*RTD-MAPPING *1*NOP-INS *1*UNLK-SUBGROUP *1*UNLK-INS *1*LINK_W-INS *1*LINK_L-INS *1*LINK-MAPPING *1*MOVEM-EA-RN-SUBGROUP *1*MOVEM-EA-RN-INS *1*READMP *1*MOVEM-EA-RN-ADDR-MODEP *1*MUL-DIV_L-INS *1*MUL_L-INS *1*DH *1*DL *1*MULS_L_DLDH *1*MULS_L_DL *1*MULU_L_DLDH *1*MULU_L_DL *1*DIV_L-INS *1*DR *1*DQ *1*DIVU_L *1*DIVUL_L *1*DIVS_L *1*DIVSL_L *1*TST-SUBGROUP *1*TAS-INS *1*TAS-EFFECT *1*TAS-ADDR-MODEP *1*TST-INS *1*TST-ADDR-MODEP *1*EXT-SUBGROUP *1*MOVEM-RN-EA-INS *1*MOVEM-RN-EA-ADDR-MODEP *1*MOVEM-PREDEC *1*MOVEM-PRE-RNLST *1*WRITEMP *1*MOVEM-LEN *1*MOVEM-RNLST *1*WRITEM-RN *1*READM-RN *1*WRITEM-MEM *1*READM-MEM *1*EXT-INS *1*PEA-SUBGROUP *1*SWAP-INS *1*SWAP-EFFECT *1*SWAP-CVZNX *1*SWAP-N *1*SWAP-Z *1*PEA-INS *1*PEA-ADDR-MODEP *1*NEG-SUBGROUP *1*MOVE-TO-CCR-INS *1*MOVE-TO-CCR-ADDR-MODEP *1*NEG-INS *1*NEG-ADDR-MODEP *1*NEGX-SUBGROUP *1*NEGX-INS *1*NEGX-ADDR-MODEP *1*CLR-SUBGROUP *1*MOVE-FROM-CCR-INS *1*MOVE-FROM-CCR-EFFECT *1*MOVE-FROM-CCR-ADDR-MODEP *1*CLR-INS *1*CLR-EFFECT *1*CLR-CVZNX *1*CLR-ADDR-MODEP *1*LEA-SUBGROUP *1*EXTB-INS *1*EXT-EFFECT *1*EXT-CVZNX *1*EXT-N *1*EXT-Z *1*LEA-INS *1*LEA-ADDR-MODEP *1*MOVE-GROUP *1*MOVEA-INS *1*MOVEA-ADDR-MODEP *1*MOVE-INS *1*MOVE-MAPPING *1*MOVE-EFFECT *1*MOVE-CVZNX *1*MOVE-N *1*MOVE-Z *1*MOVE-ADDR-MODEP *1*S&R-GROUP *1*BF-SUBGROUP *1*REGISTER-SHIFT-ROTATE *1*MEMORY-SHIFT-ROTATE *1*MEM-ROXR-INS *1*MEM-ROXR-EFFECT *1*MEM-ROXL-INS *1*MEM-ROXL-EFFECT *1*REGISTER-ROXR-INS *1*ROXR-EFFECT *1*ROXR-CVZNX *1*ROXR-N *1*ROXR-Z *1*ROXR-C *1*REGISTER-ROXL-INS *1*ROXL-EFFECT *1*ROXL-CVZNX *1*ROXL-N *1*ROXL-Z *1*ROXL-C *1*ROXR *1*ROXL *1*MEM-ASR-INS *1*MEM-ASR-EFFECT *1*MEM-ASL-INS *1*MEM-ASL-EFFECT *1*REGISTER-ASR-INS *1*ASR-EFFECT *1*ASR-CVZNX *1*ASR-X *1*ASR-N *1*ASR-Z *1*ASR-C *1*REGISTER-ASL-INS *1*ASL-EFFECT *1*ASL-CVZNX *1*ASL-X *1*ASL-N *1*ASL-Z *1*ASL-V *1*ASL-C *1*MEM-LSR-INS *1*MEM-LSR-EFFECT *1*MEM-LSL-INS *1*MEM-LSL-EFFECT *1*REGISTER-LSR-INS *1*LSR-EFFECT *1*LSR-CVZNX *1*LSR-X *1*LSR-N *1*LSR-Z *1*LSR-C *1*REGISTER-LSL-INS *1*LSL-EFFECT *1*LSL-CVZNX *1*LSL-X *1*LSL-N *1*LSL-Z *1*LSL-C *1*MEM-ROR-INS *1*MEM-ROR-EFFECT *1*MEM-ROL-INS *1*MEM-ROL-EFFECT *1*REGISTER-ROR-INS *1*ROR-EFFECT *1*ROR-CVZNX *1*ROR-N *1*ROR-Z *1*ROR-C *1*REGISTER-ROL-INS *1*ROL-EFFECT *1*ROL-CVZNX *1*ROL-N *1*ROL-Z *1*ROL-C *1*SR-CNT *1*I-DATA *1*S&R-ADDR-MODEP *1*ROR *1*ROL *1*OR-GROUP *1*DIV_W-INS *1*DIVU_W-INS *1*DIVU-CVZNX *1*DIVU-N *1*DIVU-Z *1*DIVU-V *1*REM *1*QUOT *1*DIVS_W-INS *1*DIVS-CVZNX *1*DIVS-N *1*DIVS-Z *1*DIVS-V *1*IREM *1*IQUOT *1*OR-INS2 *1*OR-MAPPING *1*OR-INS1 *1*OR-ADDR-MODEP2 *1*OR-ADDR-MODEP1 *1*OR-EFFECT *1*OR-CVZNX *1*OR-N *1*OR-Z *1*AND-GROUP *1*MUL_W-INS *1*EXG-DRAR-INS *1*EXG-ARAR-INS *1*EXG-DRDR-INS *1*MULS_W-INS *1*MULS-CVZNX *1*MULS-N *1*MULS-Z *1*MULS-V *1*MULU_W-INS *1*MULU-CVZNX *1*MULU-N *1*MULU-Z *1*MULU-V *1*MUL&DIV-ADDR-MODEP *1*MULS *1*MULU *1*AND-INS2 *1*AND-MAPPING *1*AND-INS1 *1*AND-ADDR-MODEP2 *1*AND-ADDR-MODEP1 *1*AND-EFFECT *1*AND-CVZNX *1*AND-N *1*AND-Z *1*SUB-GROUP *1*SUBX-INS2 *1*SUBX-INS1 *1*SUBX-EFFECT *1*SUBX-CVZNX *1*SUBX-N *1*SUBX-Z *1*SUBX-V *1*SUBX-C *1*SUBA-INS *1*SUBA-ADDR-MODEP *1*SUB-INS2 *1*SUB-MAPPING *1*SUB-INS1 *1*SUB-ADDR-MODEP2 *1*SUB-ADDR-MODEP1 *1*SUB-EFFECT *1*SUB-CVZNX *1*SUB-N *1*SUB-Z *1*SUB-V *1*SUB-C *1*ADD-GROUP *1*ADDX-INS2 *1*ADDX-INS1 *1*ADDX-EFFECT *1*ADDX-CVZNX *1*ADDX-N *1*ADDX-Z *1*ADDX-V *1*ADDX-C *1*ADDA-INS *1*ADDA-ADDR-MODEP *1*ADD-INS2 *1*ADD-MAPPING *1*ADD-INS1 *1*ADD-ADDR-MODEP2 *1*ADD-ADDR-MODEP1 *1*ADD-EFFECT *1*ADD-CVZNX *1*ADD-N *1*ADD-Z *1*ADD-V *1*ADD-C *1*MAPPING *1*M-MAPPING *1*A-MAPPING *1*D-MAPPING *1*MC-INSTATE *1*BYTE-AN-DIRECT-MODEP *1*IDATA-MODEP *1*PREDEC-MODEP *1*POSTINC-MODEP *1*AN-DIRECT-MODEP *1*DN-DIRECT-MODEP *1*ALTERABLE-ADDR-MODEP *1*CONTROL-ADDR-MODEP *1*MEMORY-ADDR-MODEP *1*DATA-ADDR-MODEP *1*ADDR-MODEP *1*EFFEC-ADDR *1*IMMEDIATE *1*PC-INDEX *1*PC-INDEX1 *1*BS-PC *1*PC-INDEX-DISP *1*PC-DISP *1*ABSOLUTE-LONG *1*ABSOLUTE-SHORT *1*ADDR-INDEX *1*ADDR-INDEX1 *1*BS-REGISTER *1*ADDR-INDEX2 *1*BD-SZ *1*ADDR-INDEX3 *1*I-IS *1*MEM-PREINDEX *1*MEM-POSTINDEX *1*MEM-INDIRECT *1*ADDR-INDEX-BD *1*ADDR-INDEX-DISP *1*IR-SCALED *1*INDEX-REGISTER *1*INDEX-RN *1*ADDR-DISP *1*ADDR-PREDEC *1*ADDR-POSTINC *1*ADDR-INDIRECT *1*AN-DIRECT *1*DN-DIRECT *1*PRE-EFFECT *1*POST-EFFECT *1*OPERAND *1*PUSH-SP *1*WRITE-SP *1*READ-SP *1*SP *1*WRITE-AN *1*WRITE-DN *1*READ-AN *1*READ-DN *1*UPDATE-MEM *1*UPDATE-CCR *1*UPDATE-PC *1*UPDATE-RFILE *1*HALT *1*SET-X *1*SET-N *1*SET-Z *1*SET-V *1*SET-C *1*SET-CVZNX *1*CVZNX *1*CCR-X *1*CCR-N *1*CCR-Z *1*CCR-V *1*CCR-C *1*WRITE-MEM *1*BYTE-WRITE *1*WRITE-MEMP *1*BYTE-WRITEP *1*OP-LEN *1*COND-FIELD *1*OPMODE-FIELD *1*D_RN *1*D_MODE *1*S_MODE *1*S_RN *1*PC-LONG-READ *1*PC-WORD-READ *1*PC-READ-MEM *1*PC-BYTE-READ *1*LONG-READ *1*WORD-READ *1*READ-MEM *1*BYTE-READ *1*PC-LONG-READP *1*PC-WORD-READP *1*PC-READ-MEMP *1*PC-BYTE-READP *1*LONG-READP *1*WORD-READP *1*READ-MEMP *1*BYTE-READP *1*MC-HALTP *1*LEN *1*MC-MEM *1*MC-CCR *1*MC-PC *1*MC-RFILE *1*MC-STATUS *1*MC-STATE *1*WRITE-RN *1*READ-RN *1*OP-SZ *1*PUT-NTH *1*GET-NTH *1*WRITE *1*PC-READ *1*READ *1*WRITEP *1*PC-READP *1*READP *1*MAKE-BT *1*BRANCH1 *1*BRANCH0 *1*VALUE-FIELD *1*INT-TO-NAT *1*NAT-TO-INT *1*INT-RANGEP *1*UINT-TO-NAT *1*NAT-TO-UINT *1*UINT-RANGEP *1*NAT-RANGEP *1*IQUOTIENT *1*IREMAINDER *1*ITIMES *1*IDIFFERENCE *1*INEG *1*IPLUS *1*ILEQ *1*ILESSP *1*ABS *1*IZEROP *1*FIX-INT *1*INTEGERP *1*NEGP *1*ASR *1*LSR *1*ASL *1*LSL *1*EXT *1*REPLACE *1*APP *1*SUB *1*SUBTRACTER *1*ADD *1*ADDER *1*SETN *1*BITS *1*MBIT *1*BITN *1*LOGEOR *1*LOGOR *1*LOGAND *1*LOGNOT *1*TAIL *1*HEAD *1*BCDR *1*BCAR *1*B-EQUAL *1*B-EOR *1*B-NAND *1*B-NOR *1*B-OR *1*B-AND *1*B-NOT *1*FIX-BIT *1*B1P *1*B0P *1*B0 *1*B1 *1*BITP *1*MODE-SIGNAL *1*PC-ODD-SIGNAL *1*PC-SIGNAL *1*RESERVED-SIGNAL *1*WRITE-SIGNAL *1*READ-SIGNAL *1*QSZ *1*LSZ *1*WSZ *1*BSZ *1*Q *1*L *1*W *1*B *1*QUOTIENT2-INDUCT *1*LOG *1*QUOT2-SUB12-INDUCT *1*EXP *1*CANCEL-EQUAL-TIMES *1*EQUAL-1-EVAL$-TIMES-TREE-DELETE-END *1*CANCEL-LESSP-TIMES *1*LESSP-1-TIMES-TREE-DELETE-END *1*EVAL$-AND-NOT-ZEROP-TREE-END *1*AND-NOT-ZEROP-TREE *1*TIMES-TREE *1*TIMES-FRINGE *1*BOOLEAN *1*CANCEL-LESSP-PLUS *1*CANCEL-DIFFERENCE-PLUS *1*CANCEL-EQUAL-PLUS *1*PLUS-TREE *1*PLUS-FRINGE *1*BAGINT *1*BAGDIFF *1*SUBBAGP *1*DELETE *1*SUBSET *1*IDENTITY *1*FOR *1*QUANTIFIER-OPERATION *1*UNION *1*MAX *1*APPEND *1*ADD-TO-SET *1*QUANTIFIER-INITIAL-VALUE *1*EVAL$ *1*V&C-APPLY$ *1*V&C$ *1*SUM-CDRS *1*STRIP-CARS *1*FIX-COST *1*BODY *1*FORMALS *1*APPLY-SUBR *1*SUBRP *1*PAIRLIST *1*ASSOC *1*ORDINALP *1*ORD-LESSP *1*IFF *1*MEMBER *1*GEQ *1*LEQ *1*GREATERP))) (PUT1-LST (QUOTE GCD-T-UBOUND) (QUOTE (IDATE 1000402215259 EVENT (PROVE-LEMMA GCD-T-UBOUND NIL (IMPLIES (AND (LESSP A (EXP (QUOTE 2) (QUOTE 31))) (LESSP B (EXP (QUOTE 2) (QUOTE 31)))) (IF (LESSP (QUOTE 580) (GCD-T A B)) (QUOTE *1*FALSE) (QUOTE *1*TRUE))) ((USE (TA-LEMMA-2 (X (QUOTE 22)) (Y (QUOTE 9)) (A1 (EXP (QUOTE 2) (QUOTE 31))) (B1 (EXP (QUOTE 2) (QUOTE 31)))) (GCD-T-UB)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LOG . GCD-T-UBOUND) (IMMEDIATE-DEPENDENTS0 PLUS-LESSP-CANCEL-1 . GCD-T-UBOUND) (IMMEDIATE-DEPENDENTS0 TA-LEMMA-2 . GCD-T-UBOUND) (IMMEDIATE-DEPENDENTS0 GCD-T-UB . GCD-T-UBOUND) (IMMEDIATE-DEPENDENTS0 GCD-T . GCD-T-UBOUND) (IMMEDIATE-DEPENDENTS0 EXP . GCD-T-UBOUND))))) (PUT1-LST (QUOTE GCD-T-UB) (QUOTE (IDATE 1000402215259 IMMEDIATE-DEPENDENTS0 (GCD-T-UBOUND) EVENT (PROVE-LEMMA GCD-T-UB NIL (IF (LESSP (PLUS (QUOTE 22) (TIMES (QUOTE 9) (PLUS (LOG (QUOTE 2) A) (LOG (QUOTE 2) B)))) (GCD-T A B)) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) ((USE (GCD-T2-UB)) (ENABLE GCD-T SPLUS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 GCD-T1-T2 . GCD-T-UB) (IMMEDIATE-DEPENDENTS0 SPLUS . GCD-T-UB) (IMMEDIATE-DEPENDENTS0 GCD-T2-UB . GCD-T-UB) (IMMEDIATE-DEPENDENTS0 GCD-T . GCD-T-UB) (IMMEDIATE-DEPENDENTS0 LOG . GCD-T-UB))))) (PUT1-LST (QUOTE GCD-T1-T2) (QUOTE (IDATE 1000402215259 IMMEDIATE-DEPENDENTS0 (GCD-T-UB) EVENT (PROVE-LEMMA GCD-T1-T2 (REWRITE) (EQUAL (GCD-T1 A B) (GCD-T2 A B)) ((ENABLE SPLUS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-X-X . GCD-T1-T2) (IMMEDIATE-DEPENDENTS0 SUB1-OF-1 . GCD-T1-T2) (IMMEDIATE-DEPENDENTS0 SPLUS . GCD-T1-T2) (IMMEDIATE-DEPENDENTS0 REMAINDER-LESSP-LINEAR . GCD-T1-T2) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . GCD-T1-T2) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-LESSP-PLUS . GCD-T1-T2) (IMMEDIATE-DEPENDENTS0 GCD-T2 . GCD-T1-T2) (IMMEDIATE-DEPENDENTS0 GCD-T1 . GCD-T1-T2) (LEMMAS GCD-T1 . GCD-T1-T2))))) (PUT1-LST (QUOTE GCD-T2-UB) (QUOTE (IDATE 1000402215259 IMMEDIATE-DEPENDENTS0 (GCD-T-UB) EVENT (PROVE-LEMMA GCD-T2-UB NIL (IF (LESSP (PLUS (QUOTE 18) (TIMES (QUOTE 9) (PLUS (LOG (QUOTE 2) A) (LOG (QUOTE 2) B)))) (GCD-T2 A B)) (QUOTE *1*FALSE) (QUOTE *1*TRUE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 GCD-T-SHRINK-2 . GCD-T2-UB) (IMMEDIATE-DEPENDENTS0 PLUS-0 . GCD-T2-UB) (IMMEDIATE-DEPENDENTS0 REMAINDER-LESSP-LINEAR . GCD-T2-UB) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . GCD-T2-UB) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-LESSP-PLUS . GCD-T2-UB) (IMMEDIATE-DEPENDENTS0 GCD-T2 . GCD-T2-UB) (IMMEDIATE-DEPENDENTS0 LOG . GCD-T2-UB))))) (PUT1-LST (QUOTE *1*GCD-T2) (QUOTE (MAIN-EVENT GCD-T2))) (PUT1-LST (QUOTE GCD-T2) (QUOTE (TYPE-PRESCRIPTION-LST ((GCD-T2 4 NIL NIL)) TOTALP-LST ((GCD-T2 . T)) QUICK-BLOCK-INFO (QUESTIONABLE QUESTIONABLE) SDEFN (LAMBDA (A B) (IF (EQUAL A (QUOTE 0)) (QUOTE 6) (IF (NUMBERP A) (IF (EQUAL B (QUOTE 0)) (QUOTE 9) (IF (NUMBERP B) (IF (LESSP B A) (PLUS (QUOTE 9) (GCD-T2 (REMAINDER A B) B)) (IF (LESSP A B) (PLUS (QUOTE 9) (GCD-T2 A (REMAINDER B A))) (QUOTE 18))) (QUOTE 9))) (QUOTE 6)))) LISP-CODE *1*GCD-T2 SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((ZEROP A)) NIL) (TESTS-AND-CASES ((NOT (ZEROP A)) (ZEROP B)) NIL) (TESTS-AND-CASES ((NOT (ZEROP A)) (NOT (ZEROP B)) (LESSP B A)) (((REMAINDER A B) B))) (TESTS-AND-CASES ((NOT (ZEROP A)) (NOT (ZEROP B)) (NOT (LESSP B A)) (LESSP A B)) ((A (REMAINDER B A)))) (TESTS-AND-CASES ((NOT (ZEROP A)) (NOT (ZEROP B)) (NOT (LESSP B A)) (NOT (LESSP A B))) NIL)) LEVEL-NO 3 JUSTIFICATIONS ((JUSTIFICATION (B A) (PLUS A B) LESSP (ZERO REMAINDER-LESSP-LINEAR ZEROP PLUS-COMMUTATIVITY CORRECTNESS-OF-CANCEL-LESSP-PLUS FIX))) IDATE 1000402215259 CONTROLLER-POCKETS (3) SATELLITES (*1*GCD-T2) IMMEDIATE-DEPENDENTS0 (GCD-T1-T2 GCD-T2-UB) EVENT (DEFN GCD-T2 (A B) (IF (ZEROP A) (QUOTE 6) (IF (ZEROP B) (QUOTE 9) (IF (LESSP B A) (PLUS (QUOTE 9) (GCD-T2 (REMAINDER A B) B)) (IF (LESSP A B) (PLUS (QUOTE 9) (GCD-T2 A (REMAINDER B A))) (QUOTE 18))))) ((LESSP (PLUS A B)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-LESSP-LINEAR . GCD-T2) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . GCD-T2) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-LESSP-PLUS . GCD-T2) (DCELL . *1*GCD-T2))))) (PUT1-LST (QUOTE GCD-T-SHRINK-2) (QUOTE (IDATE 1000402215259 IMMEDIATE-DEPENDENTS0 (GCD-T2-UB) EVENT (PROVE-LEMMA GCD-T-SHRINK-2 (REWRITE) (IMPLIES (AND (IF (LESSP A B) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (AND (NOT (ZEROP B)) (NOT (EQUAL A (QUOTE 1))))) (NOT (LESSP (TIMES (QUOTE 9) (PLUS X (LOG (QUOTE 2) A))) (PLUS (QUOTE 9) (TIMES (QUOTE 9) (PLUS X (LOG (QUOTE 2) (REMAINDER A B)))))))) ((USE (LOG-LEQ (B (QUOTE 2)) (X (REMAINDER A B)) (Y (QUOTIENT A (QUOTE 2))))) (DISABLE QUOTIENT-TIMES-LESSP))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-SHRINK-HALF . GCD-T-SHRINK-2) (IMMEDIATE-DEPENDENTS0 SUB1-OF-1 . GCD-T-SHRINK-2) (IMMEDIATE-DEPENDENTS0 LESSP-OF-1 . GCD-T-SHRINK-2) (IMMEDIATE-DEPENDENTS0 PLUS-LESSP-CANCEL-1 . GCD-T-SHRINK-2) (IMMEDIATE-DEPENDENTS0 TIMES-LESSP-CANCEL-1 . GCD-T-SHRINK-2) (IMMEDIATE-DEPENDENTS0 LOG-LEQ . GCD-T-SHRINK-2) (IMMEDIATE-DEPENDENTS0 LOG . GCD-T-SHRINK-2) (LINEAR-LEMMAS PLUS . GCD-T-SHRINK-2))))) (PUT1-LST (QUOTE GCD-T-SHRINK-1) (QUOTE (IDATE 1000402215259 EVENT (PROVE-LEMMA GCD-T-SHRINK-1 (REWRITE) (IMPLIES (AND (IF (LESSP A B) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (NOT (ZEROP B))) (NOT (LESSP (SUB1 (LOG (QUOTE 2) A)) (LOG (QUOTE 2) (REMAINDER A B))))) ((USE (LOG-LEQ (B (QUOTE 2)) (X (REMAINDER A B)) (Y (QUOTIENT A (QUOTE 2))))) (DISABLE QUOTIENT-TIMES-LESSP))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-SHRINK-HALF . GCD-T-SHRINK-1) (IMMEDIATE-DEPENDENTS0 SUB1-OF-1 . GCD-T-SHRINK-1) (IMMEDIATE-DEPENDENTS0 LESSP-OF-1 . GCD-T-SHRINK-1) (IMMEDIATE-DEPENDENTS0 LOG-LEQ . GCD-T-SHRINK-1) (IMMEDIATE-DEPENDENTS0 LOG . GCD-T-SHRINK-1) (LINEAR-LEMMAS LOG . GCD-T-SHRINK-1))))) (PUT1-LST (QUOTE REMAINDER-SHRINK-HALF) (QUOTE (IDATE 1000402215258 IMMEDIATE-DEPENDENTS0 (GCD-T-SHRINK-2 GCD-T-SHRINK-1) EVENT (PROVE-LEMMA REMAINDER-SHRINK-HALF (REWRITE) (IMPLIES (AND (IF (LESSP A B) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (NOT (ZEROP B))) (NOT (LESSP (QUOTIENT A (QUOTE 2)) (REMAINDER A B)))) ((EXPAND (TIMES (QUOTE 2) X)) (ENABLE QUOTIENT-GENERALIZE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-TIMES-LESSP . REMAINDER-SHRINK-HALF) (IMMEDIATE-DEPENDENTS0 PLUS-EQUAL-0 . REMAINDER-SHRINK-HALF) (IMMEDIATE-DEPENDENTS0 TIMES-EQUAL-0 . REMAINDER-SHRINK-HALF) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . REMAINDER-SHRINK-HALF) (IMMEDIATE-DEPENDENTS0 TIMES-1 . REMAINDER-SHRINK-HALF) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-LESSP-PLUS . REMAINDER-SHRINK-HALF) (IMMEDIATE-DEPENDENTS0 QUOTIENT-GENERALIZE . REMAINDER-SHRINK-HALF) (IMMEDIATE-DEPENDENTS0 REMAINDER-LESSP . REMAINDER-SHRINK-HALF) (IMMEDIATE-DEPENDENTS0 REMAINDER-QUOTIENT-ELIM . REMAINDER-SHRINK-HALF) (IMMEDIATE-DEPENDENTS0 QUOTIENT-TIMES-LESSP . REMAINDER-SHRINK-HALF) (LINEAR-LEMMAS QUOTIENT . REMAINDER-SHRINK-HALF) (LINEAR-LEMMAS REMAINDER . REMAINDER-SHRINK-HALF))))) (PUT1-LST (QUOTE LESSP-TIMES-LESSP) (QUOTE (IDATE 1000402215258 IMMEDIATE-DEPENDENTS0 (REMAINDER-SHRINK-HALF) EVENT (PROVE-LEMMA LESSP-TIMES-LESSP (REWRITE) (IMPLIES (AND (LESSP A B) (NOT (ZEROP C))) (LESSP A (TIMES B C)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . LESSP-TIMES-LESSP) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-LESSP-TIMES . LESSP-TIMES-LESSP) (IMMEDIATE-DEPENDENTS0 LESSP-OF-1 . LESSP-TIMES-LESSP) (IMMEDIATE-DEPENDENTS0 TIMES-LESSP . LESSP-TIMES-LESSP) (IMMEDIATE-DEPENDENTS0 TIMES-EQUAL-0 . LESSP-TIMES-LESSP) (LINEAR-LEMMAS TIMES . LESSP-TIMES-LESSP))))) (PUT1-LST (QUOTE GCD-THE-GREATEST) (QUOTE (IDATE 1000402215258 EVENT (PROVE-LEMMA GCD-THE-GREATEST (REWRITE) (IMPLIES (AND (NOT (ZEROP A)) (AND (NOT (ZEROP B)) (AND (EQUAL (REMAINDER A X) (QUOTE 0)) (EQUAL (REMAINDER B X) (QUOTE 0))))) (NOT (LESSP (GCD A B) X))) ((INDUCT (GCD A B)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-REMAINDER . GCD-THE-GREATEST) (IMMEDIATE-DEPENDENTS0 GCD . GCD-THE-GREATEST) (LINEAR-LEMMAS GCD . GCD-THE-GREATEST))))) (PUT1-LST (QUOTE GCD-IS-CD) (QUOTE (IDATE 1000402215258 EVENT (PROVE-LEMMA GCD-IS-CD (REWRITE) (AND (EQUAL (REMAINDER A (GCD A B)) (QUOTE 0)) (EQUAL (REMAINDER B (GCD A B)) (QUOTE 0)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-REMAINDER . GCD-IS-CD) (IMMEDIATE-DEPENDENTS0 REMAINDER-X-X . GCD-IS-CD) (IMMEDIATE-DEPENDENTS0 REMAINDER-0 . GCD-IS-CD) (IMMEDIATE-DEPENDENTS0 REMAINDER-LESSP-LINEAR . GCD-IS-CD) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . GCD-IS-CD) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-LESSP-PLUS . GCD-IS-CD) (IMMEDIATE-DEPENDENTS0 GCD . GCD-IS-CD) (LEMMAS REMAINDER . GCD-IS-CD) (LEMMAS REMAINDER . GCD-IS-CD))))) (PUT1-LST (QUOTE REMAINDER-REMAINDER) (QUOTE (IDATE 1000402215258 IMMEDIATE-DEPENDENTS0 (GCD-THE-GREATEST GCD-IS-CD) EVENT (PROVE-LEMMA REMAINDER-REMAINDER (REWRITE) (IMPLIES (EQUAL (REMAINDER B C) (QUOTE 0)) (EQUAL (REMAINDER (REMAINDER A B) C) (REMAINDER A C)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-0 . REMAINDER-REMAINDER) (IMMEDIATE-DEPENDENTS0 TIMES-EQUAL-0 . REMAINDER-REMAINDER) (IMMEDIATE-DEPENDENTS0 TIMES-ASSOCIATIVITY . REMAINDER-REMAINDER) (IMMEDIATE-DEPENDENTS0 REMAINDER-TIMES . REMAINDER-REMAINDER) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . REMAINDER-REMAINDER) (IMMEDIATE-DEPENDENTS0 PLUS-ASSOCIATIVITY . REMAINDER-REMAINDER) (IMMEDIATE-DEPENDENTS0 REMAINDER-PLUS-PLUS-TIMES1 . REMAINDER-REMAINDER) (IMMEDIATE-DEPENDENTS0 REMAINDER-PLUS-CANCEL0 . REMAINDER-REMAINDER) (IMMEDIATE-DEPENDENTS0 REMAINDER-0 . REMAINDER-REMAINDER) (IMMEDIATE-DEPENDENTS0 REMAINDER-LESSP . REMAINDER-REMAINDER) (IMMEDIATE-DEPENDENTS0 REMAINDER-QUOTIENT-ELIM . REMAINDER-REMAINDER) (LEMMAS REMAINDER . REMAINDER-REMAINDER))))) (PUT1-LST (QUOTE GCD-T-OFF) (QUOTE (IDATE 1000402215258 EVENT (TOGGLE GCD-T-OFF GCD-T T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 GCD-T . GCD-T-OFF) (DISABLED-LEMMAS NIL GCD-T GCD-T-OFF . T))))) (PUT1-LST (QUOTE GCD-CORRECTNESS) (QUOTE (IDATE 1000402215258 EVENT (PROVE-LEMMA GCD-CORRECTNESS (REWRITE) (IMPLIES (GCD-STATEP S A B) (AND (EQUAL (MC-STATUS (STEPN S (GCD-T A B))) (QUOTE RUNNING)) (AND (EQUAL (MC-PC (STEPN S (GCD-T A B))) (RTS-ADDR S)) (AND (EQUAL (READ-RN (QUOTE 32) (QUOTE 14) (MC-RFILE (STEPN S (GCD-T A B)))) (READ-RN (QUOTE 32) (QUOTE 14) (MC-RFILE S))) (AND (EQUAL (READ-RN (QUOTE 32) (QUOTE 15) (MC-RFILE (STEPN S (GCD-T A B)))) (ADD (QUOTE 32) (READ-AN (QUOTE 32) (QUOTE 7) S) (QUOTE 4))) (AND (IMPLIES (AND (D2-7A2-5P RN) (IF (LESSP (QUOTE 32) OPLEN) (QUOTE *1*FALSE) (QUOTE *1*TRUE))) (EQUAL (READ-RN OPLEN RN (MC-RFILE (STEPN S (GCD-T A B)))) (READ-RN OPLEN RN (MC-RFILE S)))) (AND (IMPLIES (DISJOINT X K (SUB (QUOTE 32) (QUOTE 12) (READ-SP S)) (QUOTE 24)) (EQUAL (READ-MEM X (MC-MEM (STEPN S (GCD-T A B))) K) (READ-MEM X (MC-MEM S) K))) (EQUAL (IREAD-DN (QUOTE 32) (QUOTE 0) (STEPN S (GCD-T A B))) (GCD A B))))))))) ((DISABLE GCD-STATEP GCD-S0P LINKED-RTS-ADDR LINKED-A6))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DISJOINT-10 . GCD-CORRECTNESS) (IMMEDIATE-DEPENDENTS0 INDEX-N . GCD-CORRECTNESS) (IMMEDIATE-DEPENDENTS0 GCD-S-S0-MEM . GCD-CORRECTNESS) (IMMEDIATE-DEPENDENTS0 GCD-S-S0-RFILE . GCD-CORRECTNESS) (IMMEDIATE-DEPENDENTS0 D4-7A2-5P . GCD-CORRECTNESS) (IMMEDIATE-DEPENDENTS0 N-MEMBER . GCD-CORRECTNESS) (IMMEDIATE-DEPENDENTS0 GET-VLST-READM-RN . GCD-CORRECTNESS) (IMMEDIATE-DEPENDENTS0 GCD-S0-SN-RFILE . GCD-CORRECTNESS) (IMMEDIATE-DEPENDENTS0 GCD-S-S0 . GCD-CORRECTNESS) (IMMEDIATE-DEPENDENTS0 GCD-S0-SN . GCD-CORRECTNESS) (IMMEDIATE-DEPENDENTS0 SUB-NEG . GCD-CORRECTNESS) (IMMEDIATE-DEPENDENTS0 NEG . GCD-CORRECTNESS) (IMMEDIATE-DEPENDENTS0 ADD-ASSOCIATIVITY . GCD-CORRECTNESS) (IMMEDIATE-DEPENDENTS0 SP . GCD-CORRECTNESS) (IMMEDIATE-DEPENDENTS0 L . GCD-CORRECTNESS) (IMMEDIATE-DEPENDENTS0 STEPN-LEMMA . GCD-CORRECTNESS) (IMMEDIATE-DEPENDENTS0 GCD . GCD-CORRECTNESS) (IMMEDIATE-DEPENDENTS0 IREAD-DN . GCD-CORRECTNESS) (IMMEDIATE-DEPENDENTS0 MC-MEM . GCD-CORRECTNESS) (IMMEDIATE-DEPENDENTS0 READ-MEM . GCD-CORRECTNESS) (IMMEDIATE-DEPENDENTS0 READ-SP . GCD-CORRECTNESS) (IMMEDIATE-DEPENDENTS0 SUB . GCD-CORRECTNESS) (IMMEDIATE-DEPENDENTS0 DISJOINT . GCD-CORRECTNESS) (IMMEDIATE-DEPENDENTS0 D2-7A2-5P . GCD-CORRECTNESS) (IMMEDIATE-DEPENDENTS0 READ-AN . GCD-CORRECTNESS) (IMMEDIATE-DEPENDENTS0 ADD . GCD-CORRECTNESS) (IMMEDIATE-DEPENDENTS0 MC-RFILE . GCD-CORRECTNESS) (IMMEDIATE-DEPENDENTS0 READ-RN . GCD-CORRECTNESS) (IMMEDIATE-DEPENDENTS0 RTS-ADDR . GCD-CORRECTNESS) (IMMEDIATE-DEPENDENTS0 MC-PC . GCD-CORRECTNESS) (IMMEDIATE-DEPENDENTS0 GCD-T . GCD-CORRECTNESS) (IMMEDIATE-DEPENDENTS0 STEPN . GCD-CORRECTNESS) (IMMEDIATE-DEPENDENTS0 MC-STATUS . GCD-CORRECTNESS) (IMMEDIATE-DEPENDENTS0 GCD-STATEP . GCD-CORRECTNESS) (LEMMAS IREAD-DN . GCD-CORRECTNESS) (LEMMAS READ-MEM . GCD-CORRECTNESS) (LEMMAS READ-RN . GCD-CORRECTNESS) (LEMMAS READ-RN . GCD-CORRECTNESS) (LEMMAS READ-RN . GCD-CORRECTNESS) (LEMMAS MC-PC . GCD-CORRECTNESS) (LEMMAS MC-STATUS . GCD-CORRECTNESS))))) (PUT1-LST (QUOTE GCD-S0-SN-RFILE) (QUOTE (IDATE 1000402215258 IMMEDIATE-DEPENDENTS0 (GCD-CORRECTNESS) EVENT (PROVE-LEMMA GCD-S0-SN-RFILE (REWRITE) (IMPLIES (AND (GCD-S0P S A B) (AND (D2-7A2-5P RN) (IF (LESSP (QUOTE 32) OPLEN) (QUOTE *1*FALSE) (QUOTE *1*TRUE)))) (EQUAL (READ-RN OPLEN RN (MC-RFILE (STEPN S (GCD-T1 A B)))) (IF (D4-7A2-5P RN) (READ-RN OPLEN RN (MC-RFILE S)) (GET-VLST OPLEN (QUOTE 0) RN (QUOTE (2 3)) (MOVEM-SAVED S (QUOTE 4) (QUOTE 8) (QUOTE 2)))))) ((INDUCT (GCD-INDUCT S A B)) (DISABLE GCD-S0P))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 GCD-S0-S0-2 . GCD-S0-SN-RFILE) (IMMEDIATE-DEPENDENTS0 GCD-S0-S0-RFILE-2 . GCD-S0-SN-RFILE) (IMMEDIATE-DEPENDENTS0 GCD-S0-S0-1 . GCD-S0-SN-RFILE) (IMMEDIATE-DEPENDENTS0 STEPN-LEMMA . GCD-S0-SN-RFILE) (IMMEDIATE-DEPENDENTS0 GCD-S0-S0-RFILE-1 . GCD-S0-SN-RFILE) (IMMEDIATE-DEPENDENTS0 GCD-S0-SN-BASE-RFILE-2 . GCD-S0-SN-RFILE) (IMMEDIATE-DEPENDENTS0 SUB-NEG . GCD-S0-SN-RFILE) (IMMEDIATE-DEPENDENTS0 NEG . GCD-S0-SN-RFILE) (IMMEDIATE-DEPENDENTS0 READ-AN . GCD-S0-SN-RFILE) (IMMEDIATE-DEPENDENTS0 GCD-S0-SN-BASE-RFILE-1 . GCD-S0-SN-RFILE) (IMMEDIATE-DEPENDENTS0 GCD-INDUCT . GCD-S0-SN-RFILE) (IMMEDIATE-DEPENDENTS0 MOVEM-SAVED . GCD-S0-SN-RFILE) (IMMEDIATE-DEPENDENTS0 GET-VLST . GCD-S0-SN-RFILE) (IMMEDIATE-DEPENDENTS0 D4-7A2-5P . GCD-S0-SN-RFILE) (IMMEDIATE-DEPENDENTS0 GCD-T1 . GCD-S0-SN-RFILE) (IMMEDIATE-DEPENDENTS0 STEPN . GCD-S0-SN-RFILE) (IMMEDIATE-DEPENDENTS0 MC-RFILE . GCD-S0-SN-RFILE) (IMMEDIATE-DEPENDENTS0 READ-RN . GCD-S0-SN-RFILE) (IMMEDIATE-DEPENDENTS0 D2-7A2-5P . GCD-S0-SN-RFILE) (IMMEDIATE-DEPENDENTS0 GCD-S0P . GCD-S0-SN-RFILE) (LEMMAS READ-RN . GCD-S0-SN-RFILE))))) (PUT1-LST (QUOTE GCD-S0-SN) (QUOTE (IDATE 1000402215257 IMMEDIATE-DEPENDENTS0 (GCD-CORRECTNESS) EVENT (PROVE-LEMMA GCD-S0-SN (REWRITE) (IMPLIES (GCD-S0P S A B) (AND (EQUAL (MC-STATUS (STEPN S (GCD-T1 A B))) (QUOTE RUNNING)) (AND (EQUAL (MC-PC (STEPN S (GCD-T1 A B))) (LINKED-RTS-ADDR S)) (AND (EQUAL (IREAD-DN (QUOTE 32) (QUOTE 0) (STEPN S (GCD-T1 A B))) (GCD A B)) (AND (EQUAL (READ-RN (QUOTE 32) (QUOTE 14) (MC-RFILE (STEPN S (GCD-T1 A B)))) (LINKED-A6 S)) (AND (EQUAL (READ-RN (QUOTE 32) (QUOTE 15) (MC-RFILE (STEPN S (GCD-T1 A B)))) (ADD (QUOTE 32) (READ-AN (QUOTE 32) (QUOTE 6) S) (QUOTE 8))) (EQUAL (READ-MEM X (MC-MEM (STEPN S (GCD-T1 A B))) K) (READ-MEM X (MC-MEM S) K)))))))) ((INDUCT (GCD-INDUCT S A B)) (DISABLE GCD-S0P IREAD-DN LINKED-RTS-ADDR LINKED-A6))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 GCD-S0-S0-2 . GCD-S0-SN) (IMMEDIATE-DEPENDENTS0 GCD-S0-S0-1 . GCD-S0-SN) (IMMEDIATE-DEPENDENTS0 STEPN-LEMMA . GCD-S0-SN) (IMMEDIATE-DEPENDENTS0 GCD-S0-SN-BASE-2 . GCD-S0-SN) (IMMEDIATE-DEPENDENTS0 GCD-S0-SN-BASE-1 . GCD-S0-SN) (IMMEDIATE-DEPENDENTS0 GCD-INDUCT . GCD-S0-SN) (IMMEDIATE-DEPENDENTS0 MC-MEM . GCD-S0-SN) (IMMEDIATE-DEPENDENTS0 READ-MEM . GCD-S0-SN) (IMMEDIATE-DEPENDENTS0 READ-AN . GCD-S0-SN) (IMMEDIATE-DEPENDENTS0 ADD . GCD-S0-SN) (IMMEDIATE-DEPENDENTS0 LINKED-A6 . GCD-S0-SN) (IMMEDIATE-DEPENDENTS0 MC-RFILE . GCD-S0-SN) (IMMEDIATE-DEPENDENTS0 READ-RN . GCD-S0-SN) (IMMEDIATE-DEPENDENTS0 GCD . GCD-S0-SN) (IMMEDIATE-DEPENDENTS0 IREAD-DN . GCD-S0-SN) (IMMEDIATE-DEPENDENTS0 LINKED-RTS-ADDR . GCD-S0-SN) (IMMEDIATE-DEPENDENTS0 MC-PC . GCD-S0-SN) (IMMEDIATE-DEPENDENTS0 GCD-T1 . GCD-S0-SN) (IMMEDIATE-DEPENDENTS0 STEPN . GCD-S0-SN) (IMMEDIATE-DEPENDENTS0 MC-STATUS . GCD-S0-SN) (IMMEDIATE-DEPENDENTS0 GCD-S0P . GCD-S0-SN) (LEMMAS READ-MEM . GCD-S0-SN) (LEMMAS READ-RN . GCD-S0-SN) (LEMMAS READ-RN . GCD-S0-SN) (LEMMAS IREAD-DN . GCD-S0-SN) (LEMMAS MC-PC . GCD-S0-SN) (LEMMAS MC-STATUS . GCD-S0-SN))))) (PUT1-LST (QUOTE GCD-S0-S0-RFILE-2) (QUOTE (IDATE 1000402215257 IMMEDIATE-DEPENDENTS0 (GCD-S0-SN-RFILE) EVENT (PROVE-LEMMA GCD-S0-S0-RFILE-2 (REWRITE) (IMPLIES (AND (GCD-S0P S A B) (AND (NOT (ZEROP A)) (AND (NOT (ZEROP B)) (AND (NOT (LESSP B A)) (D4-7A2-5P RN))))) (EQUAL (READ-RN OPLEN RN (MC-RFILE (STEPN S (QUOTE 9)))) (READ-RN OPLEN RN (MC-RFILE S))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NEG . GCD-S0-S0-RFILE-2) (IMMEDIATE-DEPENDENTS0 SUB-NEG . GCD-S0-S0-RFILE-2) (IMMEDIATE-DEPENDENTS0 READ-DN . GCD-S0-S0-RFILE-2) (IMMEDIATE-DEPENDENTS0 IREAD-DN . GCD-S0-S0-RFILE-2) (IMMEDIATE-DEPENDENTS0 EXECUTE-INS . GCD-S0-S0-RFILE-2) (IMMEDIATE-DEPENDENTS0 OPCODE-FIELD . GCD-S0-S0-RFILE-2) (IMMEDIATE-DEPENDENTS0 TST-SUBGROUP . GCD-S0-S0-RFILE-2) (IMMEDIATE-DEPENDENTS0 OP-LEN . GCD-S0-S0-RFILE-2) (IMMEDIATE-DEPENDENTS0 Q . GCD-S0-S0-RFILE-2) (IMMEDIATE-DEPENDENTS0 UPDATE-CCR . GCD-S0-S0-RFILE-2) (IMMEDIATE-DEPENDENTS0 ADD-NAT-RANGEP . GCD-S0-S0-RFILE-2) (IMMEDIATE-DEPENDENTS0 MC-PC-REWRITE . GCD-S0-S0-RFILE-2) (IMMEDIATE-DEPENDENTS0 MC-MEM-REWRITE . GCD-S0-S0-RFILE-2) (IMMEDIATE-DEPENDENTS0 MOVE-CVZNX . GCD-S0-S0-RFILE-2) (IMMEDIATE-DEPENDENTS0 B0 . GCD-S0-S0-RFILE-2) (IMMEDIATE-DEPENDENTS0 MC-CCR-REWRITE . GCD-S0-S0-RFILE-2) (IMMEDIATE-DEPENDENTS0 MC-CCR-RANGEP . GCD-S0-S0-RFILE-2) (IMMEDIATE-DEPENDENTS0 OPERAND . GCD-S0-S0-RFILE-2) (IMMEDIATE-DEPENDENTS0 MC-RFILE-REWRITE . GCD-S0-S0-RFILE-2) (IMMEDIATE-DEPENDENTS0 MC-HALTP . GCD-S0-S0-RFILE-2) (IMMEDIATE-DEPENDENTS0 MC-STATUS-REWRITE . GCD-S0-S0-RFILE-2) (IMMEDIATE-DEPENDENTS0 MC-INSTATE . GCD-S0-S0-RFILE-2) (IMMEDIATE-DEPENDENTS0 S_MODE . GCD-S0-S0-RFILE-2) (IMMEDIATE-DEPENDENTS0 S_RN . GCD-S0-S0-RFILE-2) (IMMEDIATE-DEPENDENTS0 DN-DIRECT . GCD-S0-S0-RFILE-2) (IMMEDIATE-DEPENDENTS0 EFFEC-ADDR . GCD-S0-S0-RFILE-2) (IMMEDIATE-DEPENDENTS0 TST-ADDR-MODEP . GCD-S0-S0-RFILE-2) (IMMEDIATE-DEPENDENTS0 TST-INS . GCD-S0-S0-RFILE-2) (IMMEDIATE-DEPENDENTS0 B0P . GCD-S0-S0-RFILE-2) (IMMEDIATE-DEPENDENTS0 BITN . GCD-S0-S0-RFILE-2) (IMMEDIATE-DEPENDENTS0 MISC-GROUP . GCD-S0-S0-RFILE-2) (IMMEDIATE-DEPENDENTS0 UPDATE-PC . GCD-S0-S0-RFILE-2) (IMMEDIATE-DEPENDENTS0 L . GCD-S0-S0-RFILE-2) (IMMEDIATE-DEPENDENTS0 CURRENT-INS . GCD-S0-S0-RFILE-2) (IMMEDIATE-DEPENDENTS0 PC-READ-MEM-MCODE2 . GCD-S0-S0-RFILE-2) (IMMEDIATE-DEPENDENTS0 READ-LST . GCD-S0-S0-RFILE-2) (IMMEDIATE-DEPENDENTS0 LEN . GCD-S0-S0-RFILE-2) (IMMEDIATE-DEPENDENTS0 LST-NUMBERP . GCD-S0-S0-RFILE-2) (IMMEDIATE-DEPENDENTS0 PC-WORD-READ . GCD-S0-S0-RFILE-2) (IMMEDIATE-DEPENDENTS0 PC-WORD-READP . GCD-S0-S0-RFILE-2) (IMMEDIATE-DEPENDENTS0 WSZ . GCD-S0-S0-RFILE-2) (IMMEDIATE-DEPENDENTS0 INDEX-N . GCD-S0-S0-RFILE-2) (IMMEDIATE-DEPENDENTS0 PC-READ-MEMP-ROM2 . GCD-S0-S0-RFILE-2) (IMMEDIATE-DEPENDENTS0 STEPI . GCD-S0-S0-RFILE-2) (IMMEDIATE-DEPENDENTS0 B . GCD-S0-S0-RFILE-2) (IMMEDIATE-DEPENDENTS0 HEAD . GCD-S0-S0-RFILE-2) (IMMEDIATE-DEPENDENTS0 BCC-RA-SR . GCD-S0-S0-RFILE-2) (IMMEDIATE-DEPENDENTS0 MOVE-BEQ-INT-0 . GCD-S0-S0-RFILE-2) (IMMEDIATE-DEPENDENTS0 READ-RN-NAT-RANGEP . GCD-S0-S0-RFILE-2) (IMMEDIATE-DEPENDENTS0 SET-CVZNX-Z . GCD-S0-S0-RFILE-2) (IMMEDIATE-DEPENDENTS0 BITP-FIX-BIT . GCD-S0-S0-RFILE-2) (IMMEDIATE-DEPENDENTS0 MOVE-Z-BITP . GCD-S0-S0-RFILE-2) (IMMEDIATE-DEPENDENTS0 BRANCH-CC . GCD-S0-S0-RFILE-2) (IMMEDIATE-DEPENDENTS0 EXT . GCD-S0-S0-RFILE-2) (IMMEDIATE-DEPENDENTS0 COND-FIELD . GCD-S0-S0-RFILE-2) (IMMEDIATE-DEPENDENTS0 BCC-GROUP . GCD-S0-S0-RFILE-2) (IMMEDIATE-DEPENDENTS0 SET-CVZNX-NAT-RANGEP . GCD-S0-S0-RFILE-2) (IMMEDIATE-DEPENDENTS0 ADD-ASSOCIATIVITY . GCD-S0-S0-RFILE-2) (IMMEDIATE-DEPENDENTS0 ADD . GCD-S0-S0-RFILE-2) (IMMEDIATE-DEPENDENTS0 PC-READ-MEM-MCODE3 . GCD-S0-S0-RFILE-2) (IMMEDIATE-DEPENDENTS0 PC-READ-MEMP-ROM3 . GCD-S0-S0-RFILE-2) (IMMEDIATE-DEPENDENTS0 ADD-EVENP . GCD-S0-S0-RFILE-2) (IMMEDIATE-DEPENDENTS0 EVENP . GCD-S0-S0-RFILE-2) (IMMEDIATE-DEPENDENTS0 SET-SET-CVZNX1 . GCD-S0-S0-RFILE-2) (IMMEDIATE-DEPENDENTS0 SET-CVZNX-X . GCD-S0-S0-RFILE-2) (IMMEDIATE-DEPENDENTS0 B-NOT . GCD-S0-S0-RFILE-2) (IMMEDIATE-DEPENDENTS0 CMP-INS . GCD-S0-S0-RFILE-2) (IMMEDIATE-DEPENDENTS0 CMP-ADDR-MODEP . GCD-S0-S0-RFILE-2) (IMMEDIATE-DEPENDENTS0 D_RN . GCD-S0-S0-RFILE-2) (IMMEDIATE-DEPENDENTS0 FIX-BIT-BITP . GCD-S0-S0-RFILE-2) (IMMEDIATE-DEPENDENTS0 CMP-CVZNX . GCD-S0-S0-RFILE-2) (IMMEDIATE-DEPENDENTS0 CMP-GROUP . GCD-S0-S0-RFILE-2) (IMMEDIATE-DEPENDENTS0 SUB-BGE . GCD-S0-S0-RFILE-2) (IMMEDIATE-DEPENDENTS0 ILESSP . GCD-S0-S0-RFILE-2) (IMMEDIATE-DEPENDENTS0 NEGP . GCD-S0-S0-RFILE-2) (IMMEDIATE-DEPENDENTS0 SET-CVZNX-N . GCD-S0-S0-RFILE-2) (IMMEDIATE-DEPENDENTS0 SUB-N-BITP . GCD-S0-S0-RFILE-2) (IMMEDIATE-DEPENDENTS0 SET-CVZNX-V . GCD-S0-S0-RFILE-2) (IMMEDIATE-DEPENDENTS0 SUB-V-BITP . GCD-S0-S0-RFILE-2) (IMMEDIATE-DEPENDENTS0 MOVEM-EA-RN-SUBGROUP . GCD-S0-S0-RFILE-2) (IMMEDIATE-DEPENDENTS0 DIV_L-INS . GCD-S0-S0-RFILE-2) (IMMEDIATE-DEPENDENTS0 DQ . GCD-S0-S0-RFILE-2) (IMMEDIATE-DEPENDENTS0 DR . GCD-S0-S0-RFILE-2) (IMMEDIATE-DEPENDENTS0 WRITE-DN . GCD-S0-S0-RFILE-2) (IMMEDIATE-DEPENDENTS0 UPDATE-RFILE . GCD-S0-S0-RFILE-2) (IMMEDIATE-DEPENDENTS0 DIVS-CVZNX . GCD-S0-S0-RFILE-2) (IMMEDIATE-DEPENDENTS0 DIVS_3232-OVERFLOW . GCD-S0-S0-RFILE-2) (IMMEDIATE-DEPENDENTS0 DIVSL_L . GCD-S0-S0-RFILE-2) (IMMEDIATE-DEPENDENTS0 MUL&DIV-ADDR-MODEP . GCD-S0-S0-RFILE-2) (IMMEDIATE-DEPENDENTS0 BITS . GCD-S0-S0-RFILE-2) (IMMEDIATE-DEPENDENTS0 MUL-DIV_L-INS . GCD-S0-S0-RFILE-2) (IMMEDIATE-DEPENDENTS0 MOVE-INS . GCD-S0-S0-RFILE-2) (IMMEDIATE-DEPENDENTS0 MOVE-ADDR-MODEP . GCD-S0-S0-RFILE-2) (IMMEDIATE-DEPENDENTS0 IREM-NAT-RANGEP . GCD-S0-S0-RFILE-2) (IMMEDIATE-DEPENDENTS0 HEAD-LEMMA . GCD-S0-S0-RFILE-2) (IMMEDIATE-DEPENDENTS0 READ-WRITE-RN . GCD-S0-S0-RFILE-2) (IMMEDIATE-DEPENDENTS0 MAPPING . GCD-S0-S0-RFILE-2) (IMMEDIATE-DEPENDENTS0 WRITE-WRITE-RN . GCD-S0-S0-RFILE-2) (IMMEDIATE-DEPENDENTS0 D-MAPPING . GCD-S0-S0-RFILE-2) (IMMEDIATE-DEPENDENTS0 MOVE-EFFECT . GCD-S0-S0-RFILE-2) (IMMEDIATE-DEPENDENTS0 MOVE-MAPPING . GCD-S0-S0-RFILE-2) (IMMEDIATE-DEPENDENTS0 D_MODE . GCD-S0-S0-RFILE-2) (IMMEDIATE-DEPENDENTS0 MOVE-GROUP . GCD-S0-S0-RFILE-2) (IMMEDIATE-DEPENDENTS0 MC-PC-RANGEP . GCD-S0-S0-RFILE-2) (IMMEDIATE-DEPENDENTS0 ADD-0 . GCD-S0-S0-RFILE-2) (IMMEDIATE-DEPENDENTS0 STEPN-REWRITER0 . GCD-S0-S0-RFILE-2) (IMMEDIATE-DEPENDENTS0 STEPN-REWRITER . GCD-S0-S0-RFILE-2) (IMMEDIATE-DEPENDENTS0 D2-7A2-5P . GCD-S0-S0-RFILE-2) (IMMEDIATE-DEPENDENTS0 READ-AN . GCD-S0-S0-RFILE-2) (IMMEDIATE-DEPENDENTS0 GCD-CODE . GCD-S0-S0-RFILE-2) (IMMEDIATE-DEPENDENTS0 STEPN . GCD-S0-S0-RFILE-2) (IMMEDIATE-DEPENDENTS0 MC-RFILE . GCD-S0-S0-RFILE-2) (IMMEDIATE-DEPENDENTS0 READ-RN . GCD-S0-S0-RFILE-2) (IMMEDIATE-DEPENDENTS0 D4-7A2-5P . GCD-S0-S0-RFILE-2) (IMMEDIATE-DEPENDENTS0 GCD-S0P . GCD-S0-S0-RFILE-2) (LEMMAS READ-RN . GCD-S0-S0-RFILE-2))))) (PUT1-LST (QUOTE GCD-S0-S0-RFILE-1) (QUOTE (IDATE 1000402215256 IMMEDIATE-DEPENDENTS0 (GCD-S0-SN-RFILE) EVENT (PROVE-LEMMA GCD-S0-S0-RFILE-1 (REWRITE) (IMPLIES (AND (GCD-S0P S A B) (AND (NOT (ZEROP A)) (AND (NOT (ZEROP B)) (AND (LESSP B A) (D4-7A2-5P RN))))) (EQUAL (READ-RN OPLEN RN (MC-RFILE (STEPN S (QUOTE 9)))) (READ-RN OPLEN RN (MC-RFILE S))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NEG . GCD-S0-S0-RFILE-1) (IMMEDIATE-DEPENDENTS0 SUB-NEG . GCD-S0-S0-RFILE-1) (IMMEDIATE-DEPENDENTS0 READ-DN . GCD-S0-S0-RFILE-1) (IMMEDIATE-DEPENDENTS0 IREAD-DN . GCD-S0-S0-RFILE-1) (IMMEDIATE-DEPENDENTS0 EXECUTE-INS . GCD-S0-S0-RFILE-1) (IMMEDIATE-DEPENDENTS0 OPCODE-FIELD . GCD-S0-S0-RFILE-1) (IMMEDIATE-DEPENDENTS0 TST-SUBGROUP . GCD-S0-S0-RFILE-1) (IMMEDIATE-DEPENDENTS0 OP-LEN . GCD-S0-S0-RFILE-1) (IMMEDIATE-DEPENDENTS0 Q . GCD-S0-S0-RFILE-1) (IMMEDIATE-DEPENDENTS0 UPDATE-CCR . GCD-S0-S0-RFILE-1) (IMMEDIATE-DEPENDENTS0 ADD-NAT-RANGEP . GCD-S0-S0-RFILE-1) (IMMEDIATE-DEPENDENTS0 MC-PC-REWRITE . GCD-S0-S0-RFILE-1) (IMMEDIATE-DEPENDENTS0 MC-MEM-REWRITE . GCD-S0-S0-RFILE-1) (IMMEDIATE-DEPENDENTS0 MOVE-CVZNX . GCD-S0-S0-RFILE-1) (IMMEDIATE-DEPENDENTS0 B0 . GCD-S0-S0-RFILE-1) (IMMEDIATE-DEPENDENTS0 MC-CCR-REWRITE . GCD-S0-S0-RFILE-1) (IMMEDIATE-DEPENDENTS0 MC-CCR-RANGEP . GCD-S0-S0-RFILE-1) (IMMEDIATE-DEPENDENTS0 OPERAND . GCD-S0-S0-RFILE-1) (IMMEDIATE-DEPENDENTS0 MC-RFILE-REWRITE . GCD-S0-S0-RFILE-1) (IMMEDIATE-DEPENDENTS0 MC-HALTP . GCD-S0-S0-RFILE-1) (IMMEDIATE-DEPENDENTS0 MC-STATUS-REWRITE . GCD-S0-S0-RFILE-1) (IMMEDIATE-DEPENDENTS0 MC-INSTATE . GCD-S0-S0-RFILE-1) (IMMEDIATE-DEPENDENTS0 S_MODE . GCD-S0-S0-RFILE-1) (IMMEDIATE-DEPENDENTS0 S_RN . GCD-S0-S0-RFILE-1) (IMMEDIATE-DEPENDENTS0 DN-DIRECT . GCD-S0-S0-RFILE-1) (IMMEDIATE-DEPENDENTS0 EFFEC-ADDR . GCD-S0-S0-RFILE-1) (IMMEDIATE-DEPENDENTS0 TST-ADDR-MODEP . GCD-S0-S0-RFILE-1) (IMMEDIATE-DEPENDENTS0 TST-INS . GCD-S0-S0-RFILE-1) (IMMEDIATE-DEPENDENTS0 B0P . GCD-S0-S0-RFILE-1) (IMMEDIATE-DEPENDENTS0 BITN . GCD-S0-S0-RFILE-1) (IMMEDIATE-DEPENDENTS0 MISC-GROUP . GCD-S0-S0-RFILE-1) (IMMEDIATE-DEPENDENTS0 UPDATE-PC . GCD-S0-S0-RFILE-1) (IMMEDIATE-DEPENDENTS0 L . GCD-S0-S0-RFILE-1) (IMMEDIATE-DEPENDENTS0 CURRENT-INS . GCD-S0-S0-RFILE-1) (IMMEDIATE-DEPENDENTS0 PC-READ-MEM-MCODE2 . GCD-S0-S0-RFILE-1) (IMMEDIATE-DEPENDENTS0 READ-LST . GCD-S0-S0-RFILE-1) (IMMEDIATE-DEPENDENTS0 LEN . GCD-S0-S0-RFILE-1) (IMMEDIATE-DEPENDENTS0 LST-NUMBERP . GCD-S0-S0-RFILE-1) (IMMEDIATE-DEPENDENTS0 PC-WORD-READ . GCD-S0-S0-RFILE-1) (IMMEDIATE-DEPENDENTS0 PC-WORD-READP . GCD-S0-S0-RFILE-1) (IMMEDIATE-DEPENDENTS0 WSZ . GCD-S0-S0-RFILE-1) (IMMEDIATE-DEPENDENTS0 INDEX-N . GCD-S0-S0-RFILE-1) (IMMEDIATE-DEPENDENTS0 PC-READ-MEMP-ROM2 . GCD-S0-S0-RFILE-1) (IMMEDIATE-DEPENDENTS0 STEPI . GCD-S0-S0-RFILE-1) (IMMEDIATE-DEPENDENTS0 B . GCD-S0-S0-RFILE-1) (IMMEDIATE-DEPENDENTS0 HEAD . GCD-S0-S0-RFILE-1) (IMMEDIATE-DEPENDENTS0 BCC-RA-SR . GCD-S0-S0-RFILE-1) (IMMEDIATE-DEPENDENTS0 MOVE-BEQ-INT-0 . GCD-S0-S0-RFILE-1) (IMMEDIATE-DEPENDENTS0 READ-RN-NAT-RANGEP . GCD-S0-S0-RFILE-1) (IMMEDIATE-DEPENDENTS0 SET-CVZNX-Z . GCD-S0-S0-RFILE-1) (IMMEDIATE-DEPENDENTS0 BITP-FIX-BIT . GCD-S0-S0-RFILE-1) (IMMEDIATE-DEPENDENTS0 MOVE-Z-BITP . GCD-S0-S0-RFILE-1) (IMMEDIATE-DEPENDENTS0 BRANCH-CC . GCD-S0-S0-RFILE-1) (IMMEDIATE-DEPENDENTS0 EXT . GCD-S0-S0-RFILE-1) (IMMEDIATE-DEPENDENTS0 COND-FIELD . GCD-S0-S0-RFILE-1) (IMMEDIATE-DEPENDENTS0 BCC-GROUP . GCD-S0-S0-RFILE-1) (IMMEDIATE-DEPENDENTS0 SET-CVZNX-NAT-RANGEP . GCD-S0-S0-RFILE-1) (IMMEDIATE-DEPENDENTS0 ADD-ASSOCIATIVITY . GCD-S0-S0-RFILE-1) (IMMEDIATE-DEPENDENTS0 ADD . GCD-S0-S0-RFILE-1) (IMMEDIATE-DEPENDENTS0 PC-READ-MEM-MCODE3 . GCD-S0-S0-RFILE-1) (IMMEDIATE-DEPENDENTS0 PC-READ-MEMP-ROM3 . GCD-S0-S0-RFILE-1) (IMMEDIATE-DEPENDENTS0 ADD-EVENP . GCD-S0-S0-RFILE-1) (IMMEDIATE-DEPENDENTS0 EVENP . GCD-S0-S0-RFILE-1) (IMMEDIATE-DEPENDENTS0 SET-SET-CVZNX1 . GCD-S0-S0-RFILE-1) (IMMEDIATE-DEPENDENTS0 SET-CVZNX-X . GCD-S0-S0-RFILE-1) (IMMEDIATE-DEPENDENTS0 B-NOT . GCD-S0-S0-RFILE-1) (IMMEDIATE-DEPENDENTS0 CMP-INS . GCD-S0-S0-RFILE-1) (IMMEDIATE-DEPENDENTS0 CMP-ADDR-MODEP . GCD-S0-S0-RFILE-1) (IMMEDIATE-DEPENDENTS0 D_RN . GCD-S0-S0-RFILE-1) (IMMEDIATE-DEPENDENTS0 FIX-BIT-BITP . GCD-S0-S0-RFILE-1) (IMMEDIATE-DEPENDENTS0 CMP-CVZNX . GCD-S0-S0-RFILE-1) (IMMEDIATE-DEPENDENTS0 CMP-GROUP . GCD-S0-S0-RFILE-1) (IMMEDIATE-DEPENDENTS0 SUB-BGE . GCD-S0-S0-RFILE-1) (IMMEDIATE-DEPENDENTS0 ILESSP . GCD-S0-S0-RFILE-1) (IMMEDIATE-DEPENDENTS0 NEGP . GCD-S0-S0-RFILE-1) (IMMEDIATE-DEPENDENTS0 SET-CVZNX-N . GCD-S0-S0-RFILE-1) (IMMEDIATE-DEPENDENTS0 SUB-N-BITP . GCD-S0-S0-RFILE-1) (IMMEDIATE-DEPENDENTS0 SET-CVZNX-V . GCD-S0-S0-RFILE-1) (IMMEDIATE-DEPENDENTS0 SUB-V-BITP . GCD-S0-S0-RFILE-1) (IMMEDIATE-DEPENDENTS0 MOVEM-EA-RN-SUBGROUP . GCD-S0-S0-RFILE-1) (IMMEDIATE-DEPENDENTS0 DIV_L-INS . GCD-S0-S0-RFILE-1) (IMMEDIATE-DEPENDENTS0 DQ . GCD-S0-S0-RFILE-1) (IMMEDIATE-DEPENDENTS0 DR . GCD-S0-S0-RFILE-1) (IMMEDIATE-DEPENDENTS0 WRITE-DN . GCD-S0-S0-RFILE-1) (IMMEDIATE-DEPENDENTS0 UPDATE-RFILE . GCD-S0-S0-RFILE-1) (IMMEDIATE-DEPENDENTS0 DIVS-CVZNX . GCD-S0-S0-RFILE-1) (IMMEDIATE-DEPENDENTS0 DIVS_3232-OVERFLOW . GCD-S0-S0-RFILE-1) (IMMEDIATE-DEPENDENTS0 DIVSL_L . GCD-S0-S0-RFILE-1) (IMMEDIATE-DEPENDENTS0 MUL&DIV-ADDR-MODEP . GCD-S0-S0-RFILE-1) (IMMEDIATE-DEPENDENTS0 BITS . GCD-S0-S0-RFILE-1) (IMMEDIATE-DEPENDENTS0 MUL-DIV_L-INS . GCD-S0-S0-RFILE-1) (IMMEDIATE-DEPENDENTS0 MOVE-INS . GCD-S0-S0-RFILE-1) (IMMEDIATE-DEPENDENTS0 MOVE-ADDR-MODEP . GCD-S0-S0-RFILE-1) (IMMEDIATE-DEPENDENTS0 IREM-NAT-RANGEP . GCD-S0-S0-RFILE-1) (IMMEDIATE-DEPENDENTS0 HEAD-LEMMA . GCD-S0-S0-RFILE-1) (IMMEDIATE-DEPENDENTS0 READ-WRITE-RN . GCD-S0-S0-RFILE-1) (IMMEDIATE-DEPENDENTS0 MAPPING . GCD-S0-S0-RFILE-1) (IMMEDIATE-DEPENDENTS0 WRITE-WRITE-RN . GCD-S0-S0-RFILE-1) (IMMEDIATE-DEPENDENTS0 D-MAPPING . GCD-S0-S0-RFILE-1) (IMMEDIATE-DEPENDENTS0 MOVE-EFFECT . GCD-S0-S0-RFILE-1) (IMMEDIATE-DEPENDENTS0 MOVE-MAPPING . GCD-S0-S0-RFILE-1) (IMMEDIATE-DEPENDENTS0 D_MODE . GCD-S0-S0-RFILE-1) (IMMEDIATE-DEPENDENTS0 MOVE-GROUP . GCD-S0-S0-RFILE-1) (IMMEDIATE-DEPENDENTS0 MC-PC-RANGEP . GCD-S0-S0-RFILE-1) (IMMEDIATE-DEPENDENTS0 ADD-0 . GCD-S0-S0-RFILE-1) (IMMEDIATE-DEPENDENTS0 STEPN-REWRITER0 . GCD-S0-S0-RFILE-1) (IMMEDIATE-DEPENDENTS0 STEPN-REWRITER . GCD-S0-S0-RFILE-1) (IMMEDIATE-DEPENDENTS0 D2-7A2-5P . GCD-S0-S0-RFILE-1) (IMMEDIATE-DEPENDENTS0 READ-AN . GCD-S0-S0-RFILE-1) (IMMEDIATE-DEPENDENTS0 GCD-CODE . GCD-S0-S0-RFILE-1) (IMMEDIATE-DEPENDENTS0 STEPN . GCD-S0-S0-RFILE-1) (IMMEDIATE-DEPENDENTS0 MC-RFILE . GCD-S0-S0-RFILE-1) (IMMEDIATE-DEPENDENTS0 READ-RN . GCD-S0-S0-RFILE-1) (IMMEDIATE-DEPENDENTS0 D4-7A2-5P . GCD-S0-S0-RFILE-1) (IMMEDIATE-DEPENDENTS0 GCD-S0P . GCD-S0-S0-RFILE-1) (LEMMAS READ-RN . GCD-S0-S0-RFILE-1))))) (PUT1-LST (QUOTE GCD-S0-S0-2) (QUOTE (IDATE 1000402215256 IMMEDIATE-DEPENDENTS0 (GCD-S0-SN-RFILE GCD-S0-SN) EVENT (PROVE-LEMMA GCD-S0-S0-2 (REWRITE) (IMPLIES (AND (GCD-S0P S A B) (AND (NOT (ZEROP A)) (AND (NOT (ZEROP B)) (NOT (LESSP B A))))) (AND (GCD-S0P (STEPN S (QUOTE 9)) A (REMAINDER B A)) (AND (EQUAL (READ-RN OPLEN (QUOTE 14) (MC-RFILE (STEPN S (QUOTE 9)))) (READ-RN OPLEN (QUOTE 14) (MC-RFILE S))) (AND (EQUAL (LINKED-A6 (STEPN S (QUOTE 9))) (LINKED-A6 S)) (AND (EQUAL (LINKED-RTS-ADDR (STEPN S (QUOTE 9))) (LINKED-RTS-ADDR S)) (AND (EQUAL (MOVEM-SAVED (STEPN S (QUOTE 9)) (QUOTE 4) (QUOTE 8) (QUOTE 2)) (MOVEM-SAVED S (QUOTE 4) (QUOTE 8) (QUOTE 2))) (EQUAL (READ-MEM X (MC-MEM (STEPN S (QUOTE 9))) L) (READ-MEM X (MC-MEM S) L))))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NEG . GCD-S0-S0-2) (IMMEDIATE-DEPENDENTS0 SUB-NEG . GCD-S0-S0-2) (IMMEDIATE-DEPENDENTS0 READ-DN . GCD-S0-S0-2) (IMMEDIATE-DEPENDENTS0 IREAD-DN . GCD-S0-S0-2) (IMMEDIATE-DEPENDENTS0 EXECUTE-INS . GCD-S0-S0-2) (IMMEDIATE-DEPENDENTS0 OPCODE-FIELD . GCD-S0-S0-2) (IMMEDIATE-DEPENDENTS0 TST-SUBGROUP . GCD-S0-S0-2) (IMMEDIATE-DEPENDENTS0 OP-LEN . GCD-S0-S0-2) (IMMEDIATE-DEPENDENTS0 Q . GCD-S0-S0-2) (IMMEDIATE-DEPENDENTS0 UPDATE-CCR . GCD-S0-S0-2) (IMMEDIATE-DEPENDENTS0 ADD-NAT-RANGEP . GCD-S0-S0-2) (IMMEDIATE-DEPENDENTS0 MC-PC-REWRITE . GCD-S0-S0-2) (IMMEDIATE-DEPENDENTS0 MC-MEM-REWRITE . GCD-S0-S0-2) (IMMEDIATE-DEPENDENTS0 MOVE-CVZNX . GCD-S0-S0-2) (IMMEDIATE-DEPENDENTS0 B0 . GCD-S0-S0-2) (IMMEDIATE-DEPENDENTS0 MC-CCR-REWRITE . GCD-S0-S0-2) (IMMEDIATE-DEPENDENTS0 MC-CCR-RANGEP . GCD-S0-S0-2) (IMMEDIATE-DEPENDENTS0 OPERAND . GCD-S0-S0-2) (IMMEDIATE-DEPENDENTS0 MC-RFILE-REWRITE . GCD-S0-S0-2) (IMMEDIATE-DEPENDENTS0 MC-HALTP . GCD-S0-S0-2) (IMMEDIATE-DEPENDENTS0 MC-STATUS-REWRITE . GCD-S0-S0-2) (IMMEDIATE-DEPENDENTS0 MC-INSTATE . GCD-S0-S0-2) (IMMEDIATE-DEPENDENTS0 S_MODE . GCD-S0-S0-2) (IMMEDIATE-DEPENDENTS0 S_RN . GCD-S0-S0-2) (IMMEDIATE-DEPENDENTS0 DN-DIRECT . GCD-S0-S0-2) (IMMEDIATE-DEPENDENTS0 EFFEC-ADDR . GCD-S0-S0-2) (IMMEDIATE-DEPENDENTS0 TST-ADDR-MODEP . GCD-S0-S0-2) (IMMEDIATE-DEPENDENTS0 TST-INS . GCD-S0-S0-2) (IMMEDIATE-DEPENDENTS0 B0P . GCD-S0-S0-2) (IMMEDIATE-DEPENDENTS0 BITN . GCD-S0-S0-2) (IMMEDIATE-DEPENDENTS0 MISC-GROUP . GCD-S0-S0-2) (IMMEDIATE-DEPENDENTS0 UPDATE-PC . GCD-S0-S0-2) (IMMEDIATE-DEPENDENTS0 L . GCD-S0-S0-2) (IMMEDIATE-DEPENDENTS0 CURRENT-INS . GCD-S0-S0-2) (IMMEDIATE-DEPENDENTS0 PC-READ-MEM-MCODE2 . GCD-S0-S0-2) (IMMEDIATE-DEPENDENTS0 READ-LST . GCD-S0-S0-2) (IMMEDIATE-DEPENDENTS0 LEN . GCD-S0-S0-2) (IMMEDIATE-DEPENDENTS0 LST-NUMBERP . GCD-S0-S0-2) (IMMEDIATE-DEPENDENTS0 PC-WORD-READ . GCD-S0-S0-2) (IMMEDIATE-DEPENDENTS0 PC-WORD-READP . GCD-S0-S0-2) (IMMEDIATE-DEPENDENTS0 WSZ . GCD-S0-S0-2) (IMMEDIATE-DEPENDENTS0 INDEX-N . GCD-S0-S0-2) (IMMEDIATE-DEPENDENTS0 PC-READ-MEMP-ROM2 . GCD-S0-S0-2) (IMMEDIATE-DEPENDENTS0 STEPI . GCD-S0-S0-2) (IMMEDIATE-DEPENDENTS0 B . GCD-S0-S0-2) (IMMEDIATE-DEPENDENTS0 HEAD . GCD-S0-S0-2) (IMMEDIATE-DEPENDENTS0 BCC-RA-SR . GCD-S0-S0-2) (IMMEDIATE-DEPENDENTS0 MOVE-BEQ-INT-0 . GCD-S0-S0-2) (IMMEDIATE-DEPENDENTS0 READ-RN-NAT-RANGEP . GCD-S0-S0-2) (IMMEDIATE-DEPENDENTS0 SET-CVZNX-Z . GCD-S0-S0-2) (IMMEDIATE-DEPENDENTS0 BITP-FIX-BIT . GCD-S0-S0-2) (IMMEDIATE-DEPENDENTS0 MOVE-Z-BITP . GCD-S0-S0-2) (IMMEDIATE-DEPENDENTS0 BRANCH-CC . GCD-S0-S0-2) (IMMEDIATE-DEPENDENTS0 EXT . GCD-S0-S0-2) (IMMEDIATE-DEPENDENTS0 COND-FIELD . GCD-S0-S0-2) (IMMEDIATE-DEPENDENTS0 BCC-GROUP . GCD-S0-S0-2) (IMMEDIATE-DEPENDENTS0 SET-CVZNX-NAT-RANGEP . GCD-S0-S0-2) (IMMEDIATE-DEPENDENTS0 ADD-ASSOCIATIVITY . GCD-S0-S0-2) (IMMEDIATE-DEPENDENTS0 ADD . GCD-S0-S0-2) (IMMEDIATE-DEPENDENTS0 PC-READ-MEM-MCODE3 . GCD-S0-S0-2) (IMMEDIATE-DEPENDENTS0 PC-READ-MEMP-ROM3 . GCD-S0-S0-2) (IMMEDIATE-DEPENDENTS0 ADD-EVENP . GCD-S0-S0-2) (IMMEDIATE-DEPENDENTS0 EVENP . GCD-S0-S0-2) (IMMEDIATE-DEPENDENTS0 SET-SET-CVZNX1 . GCD-S0-S0-2) (IMMEDIATE-DEPENDENTS0 SET-CVZNX-X . GCD-S0-S0-2) (IMMEDIATE-DEPENDENTS0 B-NOT . GCD-S0-S0-2) (IMMEDIATE-DEPENDENTS0 CMP-INS . GCD-S0-S0-2) (IMMEDIATE-DEPENDENTS0 CMP-ADDR-MODEP . GCD-S0-S0-2) (IMMEDIATE-DEPENDENTS0 D_RN . GCD-S0-S0-2) (IMMEDIATE-DEPENDENTS0 FIX-BIT-BITP . GCD-S0-S0-2) (IMMEDIATE-DEPENDENTS0 CMP-CVZNX . GCD-S0-S0-2) (IMMEDIATE-DEPENDENTS0 CMP-GROUP . GCD-S0-S0-2) (IMMEDIATE-DEPENDENTS0 SUB-BGE . GCD-S0-S0-2) (IMMEDIATE-DEPENDENTS0 ILESSP . GCD-S0-S0-2) (IMMEDIATE-DEPENDENTS0 NEGP . GCD-S0-S0-2) (IMMEDIATE-DEPENDENTS0 SET-CVZNX-N . GCD-S0-S0-2) (IMMEDIATE-DEPENDENTS0 SUB-N-BITP . GCD-S0-S0-2) (IMMEDIATE-DEPENDENTS0 SET-CVZNX-V . GCD-S0-S0-2) (IMMEDIATE-DEPENDENTS0 SUB-V-BITP . GCD-S0-S0-2) (IMMEDIATE-DEPENDENTS0 MOVEM-EA-RN-SUBGROUP . GCD-S0-S0-2) (IMMEDIATE-DEPENDENTS0 DIV_L-INS . GCD-S0-S0-2) (IMMEDIATE-DEPENDENTS0 DQ . GCD-S0-S0-2) (IMMEDIATE-DEPENDENTS0 DR . GCD-S0-S0-2) (IMMEDIATE-DEPENDENTS0 WRITE-DN . GCD-S0-S0-2) (IMMEDIATE-DEPENDENTS0 UPDATE-RFILE . GCD-S0-S0-2) (IMMEDIATE-DEPENDENTS0 DIVS-CVZNX . GCD-S0-S0-2) (IMMEDIATE-DEPENDENTS0 DIVS_3232-OVERFLOW . GCD-S0-S0-2) (IMMEDIATE-DEPENDENTS0 DIVSL_L . GCD-S0-S0-2) (IMMEDIATE-DEPENDENTS0 MUL&DIV-ADDR-MODEP . GCD-S0-S0-2) (IMMEDIATE-DEPENDENTS0 BITS . GCD-S0-S0-2) (IMMEDIATE-DEPENDENTS0 MUL-DIV_L-INS . GCD-S0-S0-2) (IMMEDIATE-DEPENDENTS0 MOVE-INS . GCD-S0-S0-2) (IMMEDIATE-DEPENDENTS0 MOVE-ADDR-MODEP . GCD-S0-S0-2) (IMMEDIATE-DEPENDENTS0 IREM-NAT-RANGEP . GCD-S0-S0-2) (IMMEDIATE-DEPENDENTS0 HEAD-LEMMA . GCD-S0-S0-2) (IMMEDIATE-DEPENDENTS0 READ-WRITE-RN . GCD-S0-S0-2) (IMMEDIATE-DEPENDENTS0 MAPPING . GCD-S0-S0-2) (IMMEDIATE-DEPENDENTS0 WRITE-WRITE-RN . GCD-S0-S0-2) (IMMEDIATE-DEPENDENTS0 D-MAPPING . GCD-S0-S0-2) (IMMEDIATE-DEPENDENTS0 MOVE-EFFECT . GCD-S0-S0-2) (IMMEDIATE-DEPENDENTS0 MOVE-MAPPING . GCD-S0-S0-2) (IMMEDIATE-DEPENDENTS0 D_MODE . GCD-S0-S0-2) (IMMEDIATE-DEPENDENTS0 MOVE-GROUP . GCD-S0-S0-2) (IMMEDIATE-DEPENDENTS0 MC-PC-RANGEP . GCD-S0-S0-2) (IMMEDIATE-DEPENDENTS0 ADD-0 . GCD-S0-S0-2) (IMMEDIATE-DEPENDENTS0 STEPN-REWRITER0 . GCD-S0-S0-2) (IMMEDIATE-DEPENDENTS0 STEPN-REWRITER . GCD-S0-S0-2) (IMMEDIATE-DEPENDENTS0 ABS . GCD-S0-S0-2) (IMMEDIATE-DEPENDENTS0 IREMAINDER . GCD-S0-S0-2) (IMMEDIATE-DEPENDENTS0 IREM-INT . GCD-S0-S0-2) (IMMEDIATE-DEPENDENTS0 RAM-ADDRP-3 . GCD-S0-S0-2) (IMMEDIATE-DEPENDENTS0 ROM-ADDRP-LA2 . GCD-S0-S0-2) (IMMEDIATE-DEPENDENTS0 INDEX-N-DEDUCTION2 . GCD-S0-S0-2) (IMMEDIATE-DEPENDENTS0 READ-AN . GCD-S0-S0-2) (IMMEDIATE-DEPENDENTS0 GCD-CODE . GCD-S0-S0-2) (IMMEDIATE-DEPENDENTS0 MC-MEM . GCD-S0-S0-2) (IMMEDIATE-DEPENDENTS0 READ-MEM . GCD-S0-S0-2) (IMMEDIATE-DEPENDENTS0 MOVEM-SAVED . GCD-S0-S0-2) (IMMEDIATE-DEPENDENTS0 LINKED-RTS-ADDR . GCD-S0-S0-2) (IMMEDIATE-DEPENDENTS0 LINKED-A6 . GCD-S0-S0-2) (IMMEDIATE-DEPENDENTS0 MC-RFILE . GCD-S0-S0-2) (IMMEDIATE-DEPENDENTS0 READ-RN . GCD-S0-S0-2) (IMMEDIATE-DEPENDENTS0 STEPN . GCD-S0-S0-2) (IMMEDIATE-DEPENDENTS0 GCD-S0P . GCD-S0-S0-2) (LEMMAS READ-MEM . GCD-S0-S0-2) (LEMMAS MOVEM-SAVED . GCD-S0-S0-2) (LEMMAS LINKED-RTS-ADDR . GCD-S0-S0-2) (LEMMAS LINKED-A6 . GCD-S0-S0-2) (LEMMAS READ-RN . GCD-S0-S0-2) (LEMMAS GCD-S0P . GCD-S0-S0-2))))) (PUT1-LST (QUOTE GCD-S0-S0-1) (QUOTE (IDATE 1000402215256 IMMEDIATE-DEPENDENTS0 (GCD-S0-SN-RFILE GCD-S0-SN) EVENT (PROVE-LEMMA GCD-S0-S0-1 (REWRITE) (IMPLIES (AND (GCD-S0P S A B) (AND (NOT (ZEROP A)) (AND (NOT (ZEROP B)) (LESSP B A)))) (AND (GCD-S0P (STEPN S (QUOTE 9)) (REMAINDER A B) B) (AND (EQUAL (READ-RN OPLEN (QUOTE 14) (MC-RFILE (STEPN S (QUOTE 9)))) (READ-RN OPLEN (QUOTE 14) (MC-RFILE S))) (AND (EQUAL (LINKED-A6 (STEPN S (QUOTE 9))) (LINKED-A6 S)) (AND (EQUAL (LINKED-RTS-ADDR (STEPN S (QUOTE 9))) (LINKED-RTS-ADDR S)) (AND (EQUAL (MOVEM-SAVED (STEPN S (QUOTE 9)) (QUOTE 4) (QUOTE 8) (QUOTE 2)) (MOVEM-SAVED S (QUOTE 4) (QUOTE 8) (QUOTE 2))) (EQUAL (READ-MEM X (MC-MEM (STEPN S (QUOTE 9))) L) (READ-MEM X (MC-MEM S) L))))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NEG . GCD-S0-S0-1) (IMMEDIATE-DEPENDENTS0 SUB-NEG . GCD-S0-S0-1) (IMMEDIATE-DEPENDENTS0 READ-DN . GCD-S0-S0-1) (IMMEDIATE-DEPENDENTS0 IREAD-DN . GCD-S0-S0-1) (IMMEDIATE-DEPENDENTS0 EXECUTE-INS . GCD-S0-S0-1) (IMMEDIATE-DEPENDENTS0 OPCODE-FIELD . GCD-S0-S0-1) (IMMEDIATE-DEPENDENTS0 TST-SUBGROUP . GCD-S0-S0-1) (IMMEDIATE-DEPENDENTS0 OP-LEN . GCD-S0-S0-1) (IMMEDIATE-DEPENDENTS0 Q . GCD-S0-S0-1) (IMMEDIATE-DEPENDENTS0 UPDATE-CCR . GCD-S0-S0-1) (IMMEDIATE-DEPENDENTS0 ADD-NAT-RANGEP . GCD-S0-S0-1) (IMMEDIATE-DEPENDENTS0 MC-PC-REWRITE . GCD-S0-S0-1) (IMMEDIATE-DEPENDENTS0 MC-MEM-REWRITE . GCD-S0-S0-1) (IMMEDIATE-DEPENDENTS0 MOVE-CVZNX . GCD-S0-S0-1) (IMMEDIATE-DEPENDENTS0 B0 . GCD-S0-S0-1) (IMMEDIATE-DEPENDENTS0 MC-CCR-REWRITE . GCD-S0-S0-1) (IMMEDIATE-DEPENDENTS0 MC-CCR-RANGEP . GCD-S0-S0-1) (IMMEDIATE-DEPENDENTS0 OPERAND . GCD-S0-S0-1) (IMMEDIATE-DEPENDENTS0 MC-RFILE-REWRITE . GCD-S0-S0-1) (IMMEDIATE-DEPENDENTS0 MC-HALTP . GCD-S0-S0-1) (IMMEDIATE-DEPENDENTS0 MC-STATUS-REWRITE . GCD-S0-S0-1) (IMMEDIATE-DEPENDENTS0 MC-INSTATE . GCD-S0-S0-1) (IMMEDIATE-DEPENDENTS0 S_MODE . GCD-S0-S0-1) (IMMEDIATE-DEPENDENTS0 S_RN . GCD-S0-S0-1) (IMMEDIATE-DEPENDENTS0 DN-DIRECT . GCD-S0-S0-1) (IMMEDIATE-DEPENDENTS0 EFFEC-ADDR . GCD-S0-S0-1) (IMMEDIATE-DEPENDENTS0 TST-ADDR-MODEP . GCD-S0-S0-1) (IMMEDIATE-DEPENDENTS0 TST-INS . GCD-S0-S0-1) (IMMEDIATE-DEPENDENTS0 B0P . GCD-S0-S0-1) (IMMEDIATE-DEPENDENTS0 BITN . GCD-S0-S0-1) (IMMEDIATE-DEPENDENTS0 MISC-GROUP . GCD-S0-S0-1) (IMMEDIATE-DEPENDENTS0 UPDATE-PC . GCD-S0-S0-1) (IMMEDIATE-DEPENDENTS0 L . GCD-S0-S0-1) (IMMEDIATE-DEPENDENTS0 CURRENT-INS . GCD-S0-S0-1) (IMMEDIATE-DEPENDENTS0 PC-READ-MEM-MCODE2 . GCD-S0-S0-1) (IMMEDIATE-DEPENDENTS0 READ-LST . GCD-S0-S0-1) (IMMEDIATE-DEPENDENTS0 LEN . GCD-S0-S0-1) (IMMEDIATE-DEPENDENTS0 LST-NUMBERP . GCD-S0-S0-1) (IMMEDIATE-DEPENDENTS0 PC-WORD-READ . GCD-S0-S0-1) (IMMEDIATE-DEPENDENTS0 PC-WORD-READP . GCD-S0-S0-1) (IMMEDIATE-DEPENDENTS0 WSZ . GCD-S0-S0-1) (IMMEDIATE-DEPENDENTS0 INDEX-N . GCD-S0-S0-1) (IMMEDIATE-DEPENDENTS0 PC-READ-MEMP-ROM2 . GCD-S0-S0-1) (IMMEDIATE-DEPENDENTS0 STEPI . GCD-S0-S0-1) (IMMEDIATE-DEPENDENTS0 B . GCD-S0-S0-1) (IMMEDIATE-DEPENDENTS0 HEAD . GCD-S0-S0-1) (IMMEDIATE-DEPENDENTS0 BCC-RA-SR . GCD-S0-S0-1) (IMMEDIATE-DEPENDENTS0 MOVE-BEQ-INT-0 . GCD-S0-S0-1) (IMMEDIATE-DEPENDENTS0 READ-RN-NAT-RANGEP . GCD-S0-S0-1) (IMMEDIATE-DEPENDENTS0 SET-CVZNX-Z . GCD-S0-S0-1) (IMMEDIATE-DEPENDENTS0 BITP-FIX-BIT . GCD-S0-S0-1) (IMMEDIATE-DEPENDENTS0 MOVE-Z-BITP . GCD-S0-S0-1) (IMMEDIATE-DEPENDENTS0 BRANCH-CC . GCD-S0-S0-1) (IMMEDIATE-DEPENDENTS0 EXT . GCD-S0-S0-1) (IMMEDIATE-DEPENDENTS0 COND-FIELD . GCD-S0-S0-1) (IMMEDIATE-DEPENDENTS0 BCC-GROUP . GCD-S0-S0-1) (IMMEDIATE-DEPENDENTS0 SET-CVZNX-NAT-RANGEP . GCD-S0-S0-1) (IMMEDIATE-DEPENDENTS0 ADD-ASSOCIATIVITY . GCD-S0-S0-1) (IMMEDIATE-DEPENDENTS0 ADD . GCD-S0-S0-1) (IMMEDIATE-DEPENDENTS0 PC-READ-MEM-MCODE3 . GCD-S0-S0-1) (IMMEDIATE-DEPENDENTS0 PC-READ-MEMP-ROM3 . GCD-S0-S0-1) (IMMEDIATE-DEPENDENTS0 ADD-EVENP . GCD-S0-S0-1) (IMMEDIATE-DEPENDENTS0 EVENP . GCD-S0-S0-1) (IMMEDIATE-DEPENDENTS0 SET-SET-CVZNX1 . GCD-S0-S0-1) (IMMEDIATE-DEPENDENTS0 SET-CVZNX-X . GCD-S0-S0-1) (IMMEDIATE-DEPENDENTS0 B-NOT . GCD-S0-S0-1) (IMMEDIATE-DEPENDENTS0 CMP-INS . GCD-S0-S0-1) (IMMEDIATE-DEPENDENTS0 CMP-ADDR-MODEP . GCD-S0-S0-1) (IMMEDIATE-DEPENDENTS0 D_RN . GCD-S0-S0-1) (IMMEDIATE-DEPENDENTS0 FIX-BIT-BITP . GCD-S0-S0-1) (IMMEDIATE-DEPENDENTS0 CMP-CVZNX . GCD-S0-S0-1) (IMMEDIATE-DEPENDENTS0 CMP-GROUP . GCD-S0-S0-1) (IMMEDIATE-DEPENDENTS0 SUB-BGE . GCD-S0-S0-1) (IMMEDIATE-DEPENDENTS0 ILESSP . GCD-S0-S0-1) (IMMEDIATE-DEPENDENTS0 NEGP . GCD-S0-S0-1) (IMMEDIATE-DEPENDENTS0 SET-CVZNX-N . GCD-S0-S0-1) (IMMEDIATE-DEPENDENTS0 SUB-N-BITP . GCD-S0-S0-1) (IMMEDIATE-DEPENDENTS0 SET-CVZNX-V . GCD-S0-S0-1) (IMMEDIATE-DEPENDENTS0 SUB-V-BITP . GCD-S0-S0-1) (IMMEDIATE-DEPENDENTS0 MOVEM-EA-RN-SUBGROUP . GCD-S0-S0-1) (IMMEDIATE-DEPENDENTS0 DIV_L-INS . GCD-S0-S0-1) (IMMEDIATE-DEPENDENTS0 DQ . GCD-S0-S0-1) (IMMEDIATE-DEPENDENTS0 DR . GCD-S0-S0-1) (IMMEDIATE-DEPENDENTS0 WRITE-DN . GCD-S0-S0-1) (IMMEDIATE-DEPENDENTS0 UPDATE-RFILE . GCD-S0-S0-1) (IMMEDIATE-DEPENDENTS0 DIVS-CVZNX . GCD-S0-S0-1) (IMMEDIATE-DEPENDENTS0 DIVS_3232-OVERFLOW . GCD-S0-S0-1) (IMMEDIATE-DEPENDENTS0 DIVSL_L . GCD-S0-S0-1) (IMMEDIATE-DEPENDENTS0 MUL&DIV-ADDR-MODEP . GCD-S0-S0-1) (IMMEDIATE-DEPENDENTS0 BITS . GCD-S0-S0-1) (IMMEDIATE-DEPENDENTS0 MUL-DIV_L-INS . GCD-S0-S0-1) (IMMEDIATE-DEPENDENTS0 MOVE-INS . GCD-S0-S0-1) (IMMEDIATE-DEPENDENTS0 MOVE-ADDR-MODEP . GCD-S0-S0-1) (IMMEDIATE-DEPENDENTS0 IREM-NAT-RANGEP . GCD-S0-S0-1) (IMMEDIATE-DEPENDENTS0 HEAD-LEMMA . GCD-S0-S0-1) (IMMEDIATE-DEPENDENTS0 READ-WRITE-RN . GCD-S0-S0-1) (IMMEDIATE-DEPENDENTS0 MAPPING . GCD-S0-S0-1) (IMMEDIATE-DEPENDENTS0 WRITE-WRITE-RN . GCD-S0-S0-1) (IMMEDIATE-DEPENDENTS0 D-MAPPING . GCD-S0-S0-1) (IMMEDIATE-DEPENDENTS0 MOVE-EFFECT . GCD-S0-S0-1) (IMMEDIATE-DEPENDENTS0 MOVE-MAPPING . GCD-S0-S0-1) (IMMEDIATE-DEPENDENTS0 D_MODE . GCD-S0-S0-1) (IMMEDIATE-DEPENDENTS0 MOVE-GROUP . GCD-S0-S0-1) (IMMEDIATE-DEPENDENTS0 MC-PC-RANGEP . GCD-S0-S0-1) (IMMEDIATE-DEPENDENTS0 ADD-0 . GCD-S0-S0-1) (IMMEDIATE-DEPENDENTS0 STEPN-REWRITER0 . GCD-S0-S0-1) (IMMEDIATE-DEPENDENTS0 STEPN-REWRITER . GCD-S0-S0-1) (IMMEDIATE-DEPENDENTS0 ABS . GCD-S0-S0-1) (IMMEDIATE-DEPENDENTS0 IREMAINDER . GCD-S0-S0-1) (IMMEDIATE-DEPENDENTS0 IREM-INT . GCD-S0-S0-1) (IMMEDIATE-DEPENDENTS0 RAM-ADDRP-3 . GCD-S0-S0-1) (IMMEDIATE-DEPENDENTS0 ROM-ADDRP-LA2 . GCD-S0-S0-1) (IMMEDIATE-DEPENDENTS0 INDEX-N-DEDUCTION2 . GCD-S0-S0-1) (IMMEDIATE-DEPENDENTS0 READ-AN . GCD-S0-S0-1) (IMMEDIATE-DEPENDENTS0 GCD-CODE . GCD-S0-S0-1) (IMMEDIATE-DEPENDENTS0 MC-MEM . GCD-S0-S0-1) (IMMEDIATE-DEPENDENTS0 READ-MEM . GCD-S0-S0-1) (IMMEDIATE-DEPENDENTS0 MOVEM-SAVED . GCD-S0-S0-1) (IMMEDIATE-DEPENDENTS0 LINKED-RTS-ADDR . GCD-S0-S0-1) (IMMEDIATE-DEPENDENTS0 LINKED-A6 . GCD-S0-S0-1) (IMMEDIATE-DEPENDENTS0 MC-RFILE . GCD-S0-S0-1) (IMMEDIATE-DEPENDENTS0 READ-RN . GCD-S0-S0-1) (IMMEDIATE-DEPENDENTS0 STEPN . GCD-S0-S0-1) (IMMEDIATE-DEPENDENTS0 GCD-S0P . GCD-S0-S0-1) (LEMMAS READ-MEM . GCD-S0-S0-1) (LEMMAS MOVEM-SAVED . GCD-S0-S0-1) (LEMMAS LINKED-RTS-ADDR . GCD-S0-S0-1) (LEMMAS LINKED-A6 . GCD-S0-S0-1) (LEMMAS READ-RN . GCD-S0-S0-1) (LEMMAS GCD-S0P . GCD-S0-S0-1))))) (PUT1-LST (QUOTE IREMAINDER-ON) (QUOTE (IDATE 1000402215255 EVENT (TOGGLE IREMAINDER-ON IREMAINDER NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IREMAINDER . IREMAINDER-ON) (DISABLED-LEMMAS NIL IREMAINDER IREMAINDER-ON))))) (PUT1-LST (QUOTE INTEGERP-ON) (QUOTE (IDATE 1000402215255 EVENT (TOGGLE INTEGERP-ON INTEGERP NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INTEGERP . INTEGERP-ON) (DISABLED-LEMMAS NIL INTEGERP INTEGERP-ON))))) (PUT1-LST (QUOTE GCD-S0-SN-BASE-RFILE-2) (QUOTE (IDATE 1000402215255 IMMEDIATE-DEPENDENTS0 (GCD-S0-SN-RFILE) EVENT (PROVE-LEMMA GCD-S0-SN-BASE-RFILE-2 (REWRITE) (IMPLIES (AND (GCD-S0P S A B) (AND (NOT (ZEROP A)) (AND (ZEROP B) (AND (D2-7A2-5P RN) (IF (LESSP (QUOTE 32) OPLEN) (QUOTE *1*FALSE) (QUOTE *1*TRUE)))))) (EQUAL (READ-RN OPLEN RN (MC-RFILE (STEPN S (QUOTE 9)))) (IF (D4-7A2-5P RN) (READ-RN OPLEN RN (MC-RFILE S)) (GET-VLST OPLEN (QUOTE 0) RN (QUOTE (2 3)) (MOVEM-SAVED S (QUOTE 4) (QUOTE 8) (QUOTE 2))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NEG . GCD-S0-SN-BASE-RFILE-2) (IMMEDIATE-DEPENDENTS0 SUB-NEG . GCD-S0-SN-BASE-RFILE-2) (IMMEDIATE-DEPENDENTS0 READ-DN . GCD-S0-SN-BASE-RFILE-2) (IMMEDIATE-DEPENDENTS0 IREAD-DN . GCD-S0-SN-BASE-RFILE-2) (IMMEDIATE-DEPENDENTS0 EXECUTE-INS . GCD-S0-SN-BASE-RFILE-2) (IMMEDIATE-DEPENDENTS0 OPCODE-FIELD . GCD-S0-SN-BASE-RFILE-2) (IMMEDIATE-DEPENDENTS0 TST-SUBGROUP . GCD-S0-SN-BASE-RFILE-2) (IMMEDIATE-DEPENDENTS0 OP-LEN . GCD-S0-SN-BASE-RFILE-2) (IMMEDIATE-DEPENDENTS0 Q . GCD-S0-SN-BASE-RFILE-2) (IMMEDIATE-DEPENDENTS0 UPDATE-CCR . GCD-S0-SN-BASE-RFILE-2) (IMMEDIATE-DEPENDENTS0 ADD-NAT-RANGEP . GCD-S0-SN-BASE-RFILE-2) (IMMEDIATE-DEPENDENTS0 MC-PC-REWRITE . GCD-S0-SN-BASE-RFILE-2) (IMMEDIATE-DEPENDENTS0 MC-MEM-REWRITE . GCD-S0-SN-BASE-RFILE-2) (IMMEDIATE-DEPENDENTS0 MOVE-CVZNX . GCD-S0-SN-BASE-RFILE-2) (IMMEDIATE-DEPENDENTS0 B0 . GCD-S0-SN-BASE-RFILE-2) (IMMEDIATE-DEPENDENTS0 MC-CCR-REWRITE . GCD-S0-SN-BASE-RFILE-2) (IMMEDIATE-DEPENDENTS0 MC-CCR-RANGEP . GCD-S0-SN-BASE-RFILE-2) (IMMEDIATE-DEPENDENTS0 OPERAND . GCD-S0-SN-BASE-RFILE-2) (IMMEDIATE-DEPENDENTS0 MC-RFILE-REWRITE . GCD-S0-SN-BASE-RFILE-2) (IMMEDIATE-DEPENDENTS0 MC-HALTP . GCD-S0-SN-BASE-RFILE-2) (IMMEDIATE-DEPENDENTS0 MC-STATUS-REWRITE . GCD-S0-SN-BASE-RFILE-2) (IMMEDIATE-DEPENDENTS0 MC-INSTATE . GCD-S0-SN-BASE-RFILE-2) (IMMEDIATE-DEPENDENTS0 S_MODE . GCD-S0-SN-BASE-RFILE-2) (IMMEDIATE-DEPENDENTS0 S_RN . GCD-S0-SN-BASE-RFILE-2) (IMMEDIATE-DEPENDENTS0 DN-DIRECT . GCD-S0-SN-BASE-RFILE-2) (IMMEDIATE-DEPENDENTS0 EFFEC-ADDR . GCD-S0-SN-BASE-RFILE-2) (IMMEDIATE-DEPENDENTS0 TST-ADDR-MODEP . GCD-S0-SN-BASE-RFILE-2) (IMMEDIATE-DEPENDENTS0 TST-INS . GCD-S0-SN-BASE-RFILE-2) (IMMEDIATE-DEPENDENTS0 B0P . GCD-S0-SN-BASE-RFILE-2) (IMMEDIATE-DEPENDENTS0 BITN . GCD-S0-SN-BASE-RFILE-2) (IMMEDIATE-DEPENDENTS0 MISC-GROUP . GCD-S0-SN-BASE-RFILE-2) (IMMEDIATE-DEPENDENTS0 UPDATE-PC . GCD-S0-SN-BASE-RFILE-2) (IMMEDIATE-DEPENDENTS0 L . GCD-S0-SN-BASE-RFILE-2) (IMMEDIATE-DEPENDENTS0 CURRENT-INS . GCD-S0-SN-BASE-RFILE-2) (IMMEDIATE-DEPENDENTS0 PC-READ-MEM-MCODE2 . GCD-S0-SN-BASE-RFILE-2) (IMMEDIATE-DEPENDENTS0 READ-LST . GCD-S0-SN-BASE-RFILE-2) (IMMEDIATE-DEPENDENTS0 LEN . GCD-S0-SN-BASE-RFILE-2) (IMMEDIATE-DEPENDENTS0 LST-NUMBERP . GCD-S0-SN-BASE-RFILE-2) (IMMEDIATE-DEPENDENTS0 PC-WORD-READ . GCD-S0-SN-BASE-RFILE-2) (IMMEDIATE-DEPENDENTS0 PC-WORD-READP . GCD-S0-SN-BASE-RFILE-2) (IMMEDIATE-DEPENDENTS0 WSZ . GCD-S0-SN-BASE-RFILE-2) (IMMEDIATE-DEPENDENTS0 INDEX-N . GCD-S0-SN-BASE-RFILE-2) (IMMEDIATE-DEPENDENTS0 PC-READ-MEMP-ROM2 . GCD-S0-SN-BASE-RFILE-2) (IMMEDIATE-DEPENDENTS0 STEPI . GCD-S0-SN-BASE-RFILE-2) (IMMEDIATE-DEPENDENTS0 B . GCD-S0-SN-BASE-RFILE-2) (IMMEDIATE-DEPENDENTS0 HEAD . GCD-S0-SN-BASE-RFILE-2) (IMMEDIATE-DEPENDENTS0 BCC-RA-SR . GCD-S0-SN-BASE-RFILE-2) (IMMEDIATE-DEPENDENTS0 MOVE-BEQ-INT-0 . GCD-S0-SN-BASE-RFILE-2) (IMMEDIATE-DEPENDENTS0 READ-RN-NAT-RANGEP . GCD-S0-SN-BASE-RFILE-2) (IMMEDIATE-DEPENDENTS0 SET-CVZNX-Z . GCD-S0-SN-BASE-RFILE-2) (IMMEDIATE-DEPENDENTS0 BITP-FIX-BIT . GCD-S0-SN-BASE-RFILE-2) (IMMEDIATE-DEPENDENTS0 MOVE-Z-BITP . GCD-S0-SN-BASE-RFILE-2) (IMMEDIATE-DEPENDENTS0 BRANCH-CC . GCD-S0-SN-BASE-RFILE-2) (IMMEDIATE-DEPENDENTS0 EXT . GCD-S0-SN-BASE-RFILE-2) (IMMEDIATE-DEPENDENTS0 COND-FIELD . GCD-S0-SN-BASE-RFILE-2) (IMMEDIATE-DEPENDENTS0 BCC-GROUP . GCD-S0-SN-BASE-RFILE-2) (IMMEDIATE-DEPENDENTS0 SET-CVZNX-NAT-RANGEP . GCD-S0-SN-BASE-RFILE-2) (IMMEDIATE-DEPENDENTS0 ADD-ASSOCIATIVITY . GCD-S0-SN-BASE-RFILE-2) (IMMEDIATE-DEPENDENTS0 ADD . GCD-S0-SN-BASE-RFILE-2) (IMMEDIATE-DEPENDENTS0 PC-READ-MEM-MCODE3 . GCD-S0-SN-BASE-RFILE-2) (IMMEDIATE-DEPENDENTS0 PC-READ-MEMP-ROM3 . GCD-S0-SN-BASE-RFILE-2) (IMMEDIATE-DEPENDENTS0 ADD-EVENP . GCD-S0-SN-BASE-RFILE-2) (IMMEDIATE-DEPENDENTS0 EVENP . GCD-S0-SN-BASE-RFILE-2) (IMMEDIATE-DEPENDENTS0 SET-SET-CVZNX1 . GCD-S0-SN-BASE-RFILE-2) (IMMEDIATE-DEPENDENTS0 SET-CVZNX-X . GCD-S0-SN-BASE-RFILE-2) (IMMEDIATE-DEPENDENTS0 B-NOT . GCD-S0-SN-BASE-RFILE-2) (IMMEDIATE-DEPENDENTS0 MOVE-BEQ-INT-1 . GCD-S0-SN-BASE-RFILE-2) (IMMEDIATE-DEPENDENTS0 MOVE-INS . GCD-S0-SN-BASE-RFILE-2) (IMMEDIATE-DEPENDENTS0 MOVE-ADDR-MODEP . GCD-S0-SN-BASE-RFILE-2) (IMMEDIATE-DEPENDENTS0 MAPPING . GCD-S0-SN-BASE-RFILE-2) (IMMEDIATE-DEPENDENTS0 D-MAPPING . GCD-S0-SN-BASE-RFILE-2) (IMMEDIATE-DEPENDENTS0 MOVE-EFFECT . GCD-S0-SN-BASE-RFILE-2) (IMMEDIATE-DEPENDENTS0 FIX-BIT-BITP . GCD-S0-SN-BASE-RFILE-2) (IMMEDIATE-DEPENDENTS0 D_RN . GCD-S0-SN-BASE-RFILE-2) (IMMEDIATE-DEPENDENTS0 MOVE-MAPPING . GCD-S0-SN-BASE-RFILE-2) (IMMEDIATE-DEPENDENTS0 D_MODE . GCD-S0-SN-BASE-RFILE-2) (IMMEDIATE-DEPENDENTS0 MOVE-GROUP . GCD-S0-SN-BASE-RFILE-2) (IMMEDIATE-DEPENDENTS0 MOVEM-EA-RN-SUBGROUP . GCD-S0-SN-BASE-RFILE-2) (IMMEDIATE-DEPENDENTS0 UPDATE-RFILE . GCD-S0-SN-BASE-RFILE-2) (IMMEDIATE-DEPENDENTS0 MOVEM-RNLST . GCD-S0-SN-BASE-RFILE-2) (IMMEDIATE-DEPENDENTS0 READMP . GCD-S0-SN-BASE-RFILE-2) (IMMEDIATE-DEPENDENTS0 OP-SZ . GCD-S0-SN-BASE-RFILE-2) (IMMEDIATE-DEPENDENTS0 MOVEM-LEN . GCD-S0-SN-BASE-RFILE-2) (IMMEDIATE-DEPENDENTS0 READ-MEMP-RAM3 . GCD-S0-SN-BASE-RFILE-2) (IMMEDIATE-DEPENDENTS0 W . GCD-S0-SN-BASE-RFILE-2) (IMMEDIATE-DEPENDENTS0 READ-WRITE-RN . GCD-S0-SN-BASE-RFILE-2) (IMMEDIATE-DEPENDENTS0 ADDR-DISP . GCD-S0-SN-BASE-RFILE-2) (IMMEDIATE-DEPENDENTS0 MOVEM-EA-RN-ADDR-MODEP . GCD-S0-SN-BASE-RFILE-2) (IMMEDIATE-DEPENDENTS0 POSTINC-MODEP . GCD-S0-SN-BASE-RFILE-2) (IMMEDIATE-DEPENDENTS0 MOVEM-EA-RN-INS . GCD-S0-SN-BASE-RFILE-2) (IMMEDIATE-DEPENDENTS0 UNLK-SUBGROUP . GCD-S0-SN-BASE-RFILE-2) (IMMEDIATE-DEPENDENTS0 WRITE-SP . GCD-S0-SN-BASE-RFILE-2) (IMMEDIATE-DEPENDENTS0 SP . GCD-S0-SN-BASE-RFILE-2) (IMMEDIATE-DEPENDENTS0 WRITE-AN . GCD-S0-SN-BASE-RFILE-2) (IMMEDIATE-DEPENDENTS0 LONG-READ . GCD-S0-SN-BASE-RFILE-2) (IMMEDIATE-DEPENDENTS0 LONG-READP . GCD-S0-SN-BASE-RFILE-2) (IMMEDIATE-DEPENDENTS0 LSZ . GCD-S0-SN-BASE-RFILE-2) (IMMEDIATE-DEPENDENTS0 READ-MEMP-RAM2 . GCD-S0-SN-BASE-RFILE-2) (IMMEDIATE-DEPENDENTS0 N-MEMBER . GCD-S0-SN-BASE-RFILE-2) (IMMEDIATE-DEPENDENTS0 READ-WRITEM-RN . GCD-S0-SN-BASE-RFILE-2) (IMMEDIATE-DEPENDENTS0 UNLK-INS . GCD-S0-SN-BASE-RFILE-2) (IMMEDIATE-DEPENDENTS0 NOP-SUBGROUP . GCD-S0-SN-BASE-RFILE-2) (IMMEDIATE-DEPENDENTS0 RTD-MAPPING . GCD-S0-SN-BASE-RFILE-2) (IMMEDIATE-DEPENDENTS0 READ-SP . GCD-S0-SN-BASE-RFILE-2) (IMMEDIATE-DEPENDENTS0 HEAD-LEMMA . GCD-S0-SN-BASE-RFILE-2) (IMMEDIATE-DEPENDENTS0 RTS-INS . GCD-S0-SN-BASE-RFILE-2) (IMMEDIATE-DEPENDENTS0 STEPN-REWRITER0 . GCD-S0-SN-BASE-RFILE-2) (IMMEDIATE-DEPENDENTS0 STEPN-REWRITER . GCD-S0-SN-BASE-RFILE-2) (IMMEDIATE-DEPENDENTS0 READ-AN . GCD-S0-SN-BASE-RFILE-2) (IMMEDIATE-DEPENDENTS0 GCD-CODE . GCD-S0-SN-BASE-RFILE-2) (IMMEDIATE-DEPENDENTS0 MOVEM-SAVED . GCD-S0-SN-BASE-RFILE-2) (IMMEDIATE-DEPENDENTS0 GET-VLST . GCD-S0-SN-BASE-RFILE-2) (IMMEDIATE-DEPENDENTS0 D4-7A2-5P . GCD-S0-SN-BASE-RFILE-2) (IMMEDIATE-DEPENDENTS0 STEPN . GCD-S0-SN-BASE-RFILE-2) (IMMEDIATE-DEPENDENTS0 MC-RFILE . GCD-S0-SN-BASE-RFILE-2) (IMMEDIATE-DEPENDENTS0 READ-RN . GCD-S0-SN-BASE-RFILE-2) (IMMEDIATE-DEPENDENTS0 D2-7A2-5P . GCD-S0-SN-BASE-RFILE-2) (IMMEDIATE-DEPENDENTS0 GCD-S0P . GCD-S0-SN-BASE-RFILE-2) (LEMMAS READ-RN . GCD-S0-SN-BASE-RFILE-2))))) (PUT1-LST (QUOTE GCD-S0-SN-BASE-2) (QUOTE (IDATE 1000402215255 IMMEDIATE-DEPENDENTS0 (GCD-S0-SN) EVENT (PROVE-LEMMA GCD-S0-SN-BASE-2 (REWRITE) (IMPLIES (AND (GCD-S0P S A B) (AND (NOT (ZEROP A)) (ZEROP B))) (AND (EQUAL (MC-STATUS (STEPN S (QUOTE 9))) (QUOTE RUNNING)) (AND (EQUAL (MC-PC (STEPN S (QUOTE 9))) (LINKED-RTS-ADDR S)) (AND (EQUAL (IREAD-DN (QUOTE 32) (QUOTE 0) (STEPN S (QUOTE 9))) (FIX A)) (AND (EQUAL (READ-RN (QUOTE 32) (QUOTE 14) (MC-RFILE (STEPN S (QUOTE 9)))) (LINKED-A6 S)) (AND (EQUAL (READ-RN (QUOTE 32) (QUOTE 15) (MC-RFILE (STEPN S (QUOTE 9)))) (ADD (QUOTE 32) (READ-AN (QUOTE 32) (QUOTE 6) S) (QUOTE 8))) (EQUAL (READ-MEM X (MC-MEM (STEPN S (QUOTE 9))) L) (READ-MEM X (MC-MEM S) L))))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NEG . GCD-S0-SN-BASE-2) (IMMEDIATE-DEPENDENTS0 SUB-NEG . GCD-S0-SN-BASE-2) (IMMEDIATE-DEPENDENTS0 READ-DN . GCD-S0-SN-BASE-2) (IMMEDIATE-DEPENDENTS0 EXECUTE-INS . GCD-S0-SN-BASE-2) (IMMEDIATE-DEPENDENTS0 OPCODE-FIELD . GCD-S0-SN-BASE-2) (IMMEDIATE-DEPENDENTS0 TST-SUBGROUP . GCD-S0-SN-BASE-2) (IMMEDIATE-DEPENDENTS0 OP-LEN . GCD-S0-SN-BASE-2) (IMMEDIATE-DEPENDENTS0 Q . GCD-S0-SN-BASE-2) (IMMEDIATE-DEPENDENTS0 UPDATE-CCR . GCD-S0-SN-BASE-2) (IMMEDIATE-DEPENDENTS0 ADD-NAT-RANGEP . GCD-S0-SN-BASE-2) (IMMEDIATE-DEPENDENTS0 MC-PC-REWRITE . GCD-S0-SN-BASE-2) (IMMEDIATE-DEPENDENTS0 MC-MEM-REWRITE . GCD-S0-SN-BASE-2) (IMMEDIATE-DEPENDENTS0 MOVE-CVZNX . GCD-S0-SN-BASE-2) (IMMEDIATE-DEPENDENTS0 B0 . GCD-S0-SN-BASE-2) (IMMEDIATE-DEPENDENTS0 MC-CCR-REWRITE . GCD-S0-SN-BASE-2) (IMMEDIATE-DEPENDENTS0 MC-CCR-RANGEP . GCD-S0-SN-BASE-2) (IMMEDIATE-DEPENDENTS0 OPERAND . GCD-S0-SN-BASE-2) (IMMEDIATE-DEPENDENTS0 MC-RFILE-REWRITE . GCD-S0-SN-BASE-2) (IMMEDIATE-DEPENDENTS0 MC-HALTP . GCD-S0-SN-BASE-2) (IMMEDIATE-DEPENDENTS0 MC-STATUS-REWRITE . GCD-S0-SN-BASE-2) (IMMEDIATE-DEPENDENTS0 MC-INSTATE . GCD-S0-SN-BASE-2) (IMMEDIATE-DEPENDENTS0 S_MODE . GCD-S0-SN-BASE-2) (IMMEDIATE-DEPENDENTS0 S_RN . GCD-S0-SN-BASE-2) (IMMEDIATE-DEPENDENTS0 DN-DIRECT . GCD-S0-SN-BASE-2) (IMMEDIATE-DEPENDENTS0 EFFEC-ADDR . GCD-S0-SN-BASE-2) (IMMEDIATE-DEPENDENTS0 TST-ADDR-MODEP . GCD-S0-SN-BASE-2) (IMMEDIATE-DEPENDENTS0 TST-INS . GCD-S0-SN-BASE-2) (IMMEDIATE-DEPENDENTS0 B0P . GCD-S0-SN-BASE-2) (IMMEDIATE-DEPENDENTS0 BITN . GCD-S0-SN-BASE-2) (IMMEDIATE-DEPENDENTS0 MISC-GROUP . GCD-S0-SN-BASE-2) (IMMEDIATE-DEPENDENTS0 UPDATE-PC . GCD-S0-SN-BASE-2) (IMMEDIATE-DEPENDENTS0 L . GCD-S0-SN-BASE-2) (IMMEDIATE-DEPENDENTS0 CURRENT-INS . GCD-S0-SN-BASE-2) (IMMEDIATE-DEPENDENTS0 PC-READ-MEM-MCODE2 . GCD-S0-SN-BASE-2) (IMMEDIATE-DEPENDENTS0 READ-LST . GCD-S0-SN-BASE-2) (IMMEDIATE-DEPENDENTS0 LEN . GCD-S0-SN-BASE-2) (IMMEDIATE-DEPENDENTS0 LST-NUMBERP . GCD-S0-SN-BASE-2) (IMMEDIATE-DEPENDENTS0 PC-WORD-READ . GCD-S0-SN-BASE-2) (IMMEDIATE-DEPENDENTS0 PC-WORD-READP . GCD-S0-SN-BASE-2) (IMMEDIATE-DEPENDENTS0 WSZ . GCD-S0-SN-BASE-2) (IMMEDIATE-DEPENDENTS0 INDEX-N . GCD-S0-SN-BASE-2) (IMMEDIATE-DEPENDENTS0 PC-READ-MEMP-ROM2 . GCD-S0-SN-BASE-2) (IMMEDIATE-DEPENDENTS0 STEPI . GCD-S0-SN-BASE-2) (IMMEDIATE-DEPENDENTS0 B . GCD-S0-SN-BASE-2) (IMMEDIATE-DEPENDENTS0 HEAD . GCD-S0-SN-BASE-2) (IMMEDIATE-DEPENDENTS0 BCC-RA-SR . GCD-S0-SN-BASE-2) (IMMEDIATE-DEPENDENTS0 MOVE-BEQ-INT-0 . GCD-S0-SN-BASE-2) (IMMEDIATE-DEPENDENTS0 READ-RN-NAT-RANGEP . GCD-S0-SN-BASE-2) (IMMEDIATE-DEPENDENTS0 SET-CVZNX-Z . GCD-S0-SN-BASE-2) (IMMEDIATE-DEPENDENTS0 BITP-FIX-BIT . GCD-S0-SN-BASE-2) (IMMEDIATE-DEPENDENTS0 MOVE-Z-BITP . GCD-S0-SN-BASE-2) (IMMEDIATE-DEPENDENTS0 BRANCH-CC . GCD-S0-SN-BASE-2) (IMMEDIATE-DEPENDENTS0 EXT . GCD-S0-SN-BASE-2) (IMMEDIATE-DEPENDENTS0 COND-FIELD . GCD-S0-SN-BASE-2) (IMMEDIATE-DEPENDENTS0 BCC-GROUP . GCD-S0-SN-BASE-2) (IMMEDIATE-DEPENDENTS0 SET-CVZNX-NAT-RANGEP . GCD-S0-SN-BASE-2) (IMMEDIATE-DEPENDENTS0 ADD-ASSOCIATIVITY . GCD-S0-SN-BASE-2) (IMMEDIATE-DEPENDENTS0 PC-READ-MEM-MCODE3 . GCD-S0-SN-BASE-2) (IMMEDIATE-DEPENDENTS0 PC-READ-MEMP-ROM3 . GCD-S0-SN-BASE-2) (IMMEDIATE-DEPENDENTS0 ADD-EVENP . GCD-S0-SN-BASE-2) (IMMEDIATE-DEPENDENTS0 EVENP . GCD-S0-SN-BASE-2) (IMMEDIATE-DEPENDENTS0 SET-SET-CVZNX1 . GCD-S0-SN-BASE-2) (IMMEDIATE-DEPENDENTS0 SET-CVZNX-X . GCD-S0-SN-BASE-2) (IMMEDIATE-DEPENDENTS0 B-NOT . GCD-S0-SN-BASE-2) (IMMEDIATE-DEPENDENTS0 MOVE-BEQ-INT-1 . GCD-S0-SN-BASE-2) (IMMEDIATE-DEPENDENTS0 MOVE-INS . GCD-S0-SN-BASE-2) (IMMEDIATE-DEPENDENTS0 MOVE-ADDR-MODEP . GCD-S0-SN-BASE-2) (IMMEDIATE-DEPENDENTS0 MAPPING . GCD-S0-SN-BASE-2) (IMMEDIATE-DEPENDENTS0 D-MAPPING . GCD-S0-SN-BASE-2) (IMMEDIATE-DEPENDENTS0 MOVE-EFFECT . GCD-S0-SN-BASE-2) (IMMEDIATE-DEPENDENTS0 FIX-BIT-BITP . GCD-S0-SN-BASE-2) (IMMEDIATE-DEPENDENTS0 D_RN . GCD-S0-SN-BASE-2) (IMMEDIATE-DEPENDENTS0 MOVE-MAPPING . GCD-S0-SN-BASE-2) (IMMEDIATE-DEPENDENTS0 D_MODE . GCD-S0-SN-BASE-2) (IMMEDIATE-DEPENDENTS0 MOVE-GROUP . GCD-S0-SN-BASE-2) (IMMEDIATE-DEPENDENTS0 MOVEM-EA-RN-SUBGROUP . GCD-S0-SN-BASE-2) (IMMEDIATE-DEPENDENTS0 UPDATE-RFILE . GCD-S0-SN-BASE-2) (IMMEDIATE-DEPENDENTS0 MOVEM-RNLST . GCD-S0-SN-BASE-2) (IMMEDIATE-DEPENDENTS0 READMP . GCD-S0-SN-BASE-2) (IMMEDIATE-DEPENDENTS0 OP-SZ . GCD-S0-SN-BASE-2) (IMMEDIATE-DEPENDENTS0 MOVEM-LEN . GCD-S0-SN-BASE-2) (IMMEDIATE-DEPENDENTS0 READ-MEMP-RAM3 . GCD-S0-SN-BASE-2) (IMMEDIATE-DEPENDENTS0 W . GCD-S0-SN-BASE-2) (IMMEDIATE-DEPENDENTS0 READ-WRITE-RN . GCD-S0-SN-BASE-2) (IMMEDIATE-DEPENDENTS0 ADDR-DISP . GCD-S0-SN-BASE-2) (IMMEDIATE-DEPENDENTS0 MOVEM-EA-RN-ADDR-MODEP . GCD-S0-SN-BASE-2) (IMMEDIATE-DEPENDENTS0 POSTINC-MODEP . GCD-S0-SN-BASE-2) (IMMEDIATE-DEPENDENTS0 MOVEM-EA-RN-INS . GCD-S0-SN-BASE-2) (IMMEDIATE-DEPENDENTS0 UNLK-SUBGROUP . GCD-S0-SN-BASE-2) (IMMEDIATE-DEPENDENTS0 WRITE-SP . GCD-S0-SN-BASE-2) (IMMEDIATE-DEPENDENTS0 SP . GCD-S0-SN-BASE-2) (IMMEDIATE-DEPENDENTS0 WRITE-AN . GCD-S0-SN-BASE-2) (IMMEDIATE-DEPENDENTS0 LONG-READ . GCD-S0-SN-BASE-2) (IMMEDIATE-DEPENDENTS0 LONG-READP . GCD-S0-SN-BASE-2) (IMMEDIATE-DEPENDENTS0 LSZ . GCD-S0-SN-BASE-2) (IMMEDIATE-DEPENDENTS0 READ-MEMP-RAM2 . GCD-S0-SN-BASE-2) (IMMEDIATE-DEPENDENTS0 N-MEMBER . GCD-S0-SN-BASE-2) (IMMEDIATE-DEPENDENTS0 READ-WRITEM-RN . GCD-S0-SN-BASE-2) (IMMEDIATE-DEPENDENTS0 UNLK-INS . GCD-S0-SN-BASE-2) (IMMEDIATE-DEPENDENTS0 NOP-SUBGROUP . GCD-S0-SN-BASE-2) (IMMEDIATE-DEPENDENTS0 RTD-MAPPING . GCD-S0-SN-BASE-2) (IMMEDIATE-DEPENDENTS0 READ-SP . GCD-S0-SN-BASE-2) (IMMEDIATE-DEPENDENTS0 HEAD-LEMMA . GCD-S0-SN-BASE-2) (IMMEDIATE-DEPENDENTS0 RTS-INS . GCD-S0-SN-BASE-2) (IMMEDIATE-DEPENDENTS0 STEPN-REWRITER0 . GCD-S0-SN-BASE-2) (IMMEDIATE-DEPENDENTS0 STEPN-REWRITER . GCD-S0-SN-BASE-2) (IMMEDIATE-DEPENDENTS0 READ-MEM-NAT-RANGEP . GCD-S0-SN-BASE-2) (IMMEDIATE-DEPENDENTS0 HEAD-READ-RN . GCD-S0-SN-BASE-2) (IMMEDIATE-DEPENDENTS0 GCD-CODE . GCD-S0-SN-BASE-2) (IMMEDIATE-DEPENDENTS0 MC-MEM . GCD-S0-SN-BASE-2) (IMMEDIATE-DEPENDENTS0 READ-MEM . GCD-S0-SN-BASE-2) (IMMEDIATE-DEPENDENTS0 READ-AN . GCD-S0-SN-BASE-2) (IMMEDIATE-DEPENDENTS0 ADD . GCD-S0-SN-BASE-2) (IMMEDIATE-DEPENDENTS0 LINKED-A6 . GCD-S0-SN-BASE-2) (IMMEDIATE-DEPENDENTS0 MC-RFILE . GCD-S0-SN-BASE-2) (IMMEDIATE-DEPENDENTS0 READ-RN . GCD-S0-SN-BASE-2) (IMMEDIATE-DEPENDENTS0 IREAD-DN . GCD-S0-SN-BASE-2) (IMMEDIATE-DEPENDENTS0 LINKED-RTS-ADDR . GCD-S0-SN-BASE-2) (IMMEDIATE-DEPENDENTS0 MC-PC . GCD-S0-SN-BASE-2) (IMMEDIATE-DEPENDENTS0 STEPN . GCD-S0-SN-BASE-2) (IMMEDIATE-DEPENDENTS0 MC-STATUS . GCD-S0-SN-BASE-2) (IMMEDIATE-DEPENDENTS0 GCD-S0P . GCD-S0-SN-BASE-2) (LEMMAS READ-MEM . GCD-S0-SN-BASE-2) (LEMMAS READ-RN . GCD-S0-SN-BASE-2) (LEMMAS READ-RN . GCD-S0-SN-BASE-2) (LEMMAS IREAD-DN . GCD-S0-SN-BASE-2) (LEMMAS MC-PC . GCD-S0-SN-BASE-2) (LEMMAS MC-STATUS . GCD-S0-SN-BASE-2))))) (PUT1-LST (QUOTE GCD-S0-SN-BASE-RFILE-1) (QUOTE (IDATE 1000402215254 IMMEDIATE-DEPENDENTS0 (GCD-S0-SN-RFILE) EVENT (PROVE-LEMMA GCD-S0-SN-BASE-RFILE-1 (REWRITE) (IMPLIES (AND (GCD-S0P S A B) (AND (ZEROP A) (AND (D2-7A2-5P RN) (IF (LESSP (QUOTE 32) OPLEN) (QUOTE *1*FALSE) (QUOTE *1*TRUE))))) (EQUAL (READ-RN OPLEN RN (MC-RFILE (STEPN S (QUOTE 6)))) (IF (D4-7A2-5P RN) (READ-RN OPLEN RN (MC-RFILE S)) (GET-VLST OPLEN (QUOTE 0) RN (QUOTE (2 3)) (MOVEM-SAVED S (QUOTE 4) (QUOTE 8) (QUOTE 2))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NEG . GCD-S0-SN-BASE-RFILE-1) (IMMEDIATE-DEPENDENTS0 SUB-NEG . GCD-S0-SN-BASE-RFILE-1) (IMMEDIATE-DEPENDENTS0 READ-DN . GCD-S0-SN-BASE-RFILE-1) (IMMEDIATE-DEPENDENTS0 IREAD-DN . GCD-S0-SN-BASE-RFILE-1) (IMMEDIATE-DEPENDENTS0 EXECUTE-INS . GCD-S0-SN-BASE-RFILE-1) (IMMEDIATE-DEPENDENTS0 OPCODE-FIELD . GCD-S0-SN-BASE-RFILE-1) (IMMEDIATE-DEPENDENTS0 TST-SUBGROUP . GCD-S0-SN-BASE-RFILE-1) (IMMEDIATE-DEPENDENTS0 OP-LEN . GCD-S0-SN-BASE-RFILE-1) (IMMEDIATE-DEPENDENTS0 Q . GCD-S0-SN-BASE-RFILE-1) (IMMEDIATE-DEPENDENTS0 UPDATE-CCR . GCD-S0-SN-BASE-RFILE-1) (IMMEDIATE-DEPENDENTS0 ADD-NAT-RANGEP . GCD-S0-SN-BASE-RFILE-1) (IMMEDIATE-DEPENDENTS0 MC-PC-REWRITE . GCD-S0-SN-BASE-RFILE-1) (IMMEDIATE-DEPENDENTS0 MC-MEM-REWRITE . GCD-S0-SN-BASE-RFILE-1) (IMMEDIATE-DEPENDENTS0 MOVE-CVZNX . GCD-S0-SN-BASE-RFILE-1) (IMMEDIATE-DEPENDENTS0 B0 . GCD-S0-SN-BASE-RFILE-1) (IMMEDIATE-DEPENDENTS0 MC-CCR-REWRITE . GCD-S0-SN-BASE-RFILE-1) (IMMEDIATE-DEPENDENTS0 MC-CCR-RANGEP . GCD-S0-SN-BASE-RFILE-1) (IMMEDIATE-DEPENDENTS0 OPERAND . GCD-S0-SN-BASE-RFILE-1) (IMMEDIATE-DEPENDENTS0 MC-RFILE-REWRITE . GCD-S0-SN-BASE-RFILE-1) (IMMEDIATE-DEPENDENTS0 MC-HALTP . GCD-S0-SN-BASE-RFILE-1) (IMMEDIATE-DEPENDENTS0 MC-STATUS-REWRITE . GCD-S0-SN-BASE-RFILE-1) (IMMEDIATE-DEPENDENTS0 MC-INSTATE . GCD-S0-SN-BASE-RFILE-1) (IMMEDIATE-DEPENDENTS0 S_MODE . GCD-S0-SN-BASE-RFILE-1) (IMMEDIATE-DEPENDENTS0 S_RN . GCD-S0-SN-BASE-RFILE-1) (IMMEDIATE-DEPENDENTS0 DN-DIRECT . GCD-S0-SN-BASE-RFILE-1) (IMMEDIATE-DEPENDENTS0 EFFEC-ADDR . GCD-S0-SN-BASE-RFILE-1) (IMMEDIATE-DEPENDENTS0 TST-ADDR-MODEP . GCD-S0-SN-BASE-RFILE-1) (IMMEDIATE-DEPENDENTS0 TST-INS . GCD-S0-SN-BASE-RFILE-1) (IMMEDIATE-DEPENDENTS0 B0P . GCD-S0-SN-BASE-RFILE-1) (IMMEDIATE-DEPENDENTS0 BITN . GCD-S0-SN-BASE-RFILE-1) (IMMEDIATE-DEPENDENTS0 MISC-GROUP . GCD-S0-SN-BASE-RFILE-1) (IMMEDIATE-DEPENDENTS0 UPDATE-PC . GCD-S0-SN-BASE-RFILE-1) (IMMEDIATE-DEPENDENTS0 L . GCD-S0-SN-BASE-RFILE-1) (IMMEDIATE-DEPENDENTS0 CURRENT-INS . GCD-S0-SN-BASE-RFILE-1) (IMMEDIATE-DEPENDENTS0 PC-READ-MEM-MCODE2 . GCD-S0-SN-BASE-RFILE-1) (IMMEDIATE-DEPENDENTS0 READ-LST . GCD-S0-SN-BASE-RFILE-1) (IMMEDIATE-DEPENDENTS0 LEN . GCD-S0-SN-BASE-RFILE-1) (IMMEDIATE-DEPENDENTS0 LST-NUMBERP . GCD-S0-SN-BASE-RFILE-1) (IMMEDIATE-DEPENDENTS0 PC-WORD-READ . GCD-S0-SN-BASE-RFILE-1) (IMMEDIATE-DEPENDENTS0 PC-WORD-READP . GCD-S0-SN-BASE-RFILE-1) (IMMEDIATE-DEPENDENTS0 WSZ . GCD-S0-SN-BASE-RFILE-1) (IMMEDIATE-DEPENDENTS0 INDEX-N . GCD-S0-SN-BASE-RFILE-1) (IMMEDIATE-DEPENDENTS0 PC-READ-MEMP-ROM2 . GCD-S0-SN-BASE-RFILE-1) (IMMEDIATE-DEPENDENTS0 STEPI . GCD-S0-SN-BASE-RFILE-1) (IMMEDIATE-DEPENDENTS0 B . GCD-S0-SN-BASE-RFILE-1) (IMMEDIATE-DEPENDENTS0 HEAD . GCD-S0-SN-BASE-RFILE-1) (IMMEDIATE-DEPENDENTS0 BCC-RA-SR . GCD-S0-SN-BASE-RFILE-1) (IMMEDIATE-DEPENDENTS0 MOVE-BEQ-INT-1 . GCD-S0-SN-BASE-RFILE-1) (IMMEDIATE-DEPENDENTS0 READ-RN-NAT-RANGEP . GCD-S0-SN-BASE-RFILE-1) (IMMEDIATE-DEPENDENTS0 SET-CVZNX-Z . GCD-S0-SN-BASE-RFILE-1) (IMMEDIATE-DEPENDENTS0 BITP-FIX-BIT . GCD-S0-SN-BASE-RFILE-1) (IMMEDIATE-DEPENDENTS0 MOVE-Z-BITP . GCD-S0-SN-BASE-RFILE-1) (IMMEDIATE-DEPENDENTS0 BRANCH-CC . GCD-S0-SN-BASE-RFILE-1) (IMMEDIATE-DEPENDENTS0 EXT . GCD-S0-SN-BASE-RFILE-1) (IMMEDIATE-DEPENDENTS0 COND-FIELD . GCD-S0-SN-BASE-RFILE-1) (IMMEDIATE-DEPENDENTS0 BCC-GROUP . GCD-S0-SN-BASE-RFILE-1) (IMMEDIATE-DEPENDENTS0 SET-CVZNX-NAT-RANGEP . GCD-S0-SN-BASE-RFILE-1) (IMMEDIATE-DEPENDENTS0 ADD-ASSOCIATIVITY . GCD-S0-SN-BASE-RFILE-1) (IMMEDIATE-DEPENDENTS0 ADD . GCD-S0-SN-BASE-RFILE-1) (IMMEDIATE-DEPENDENTS0 PC-READ-MEM-MCODE3 . GCD-S0-SN-BASE-RFILE-1) (IMMEDIATE-DEPENDENTS0 PC-READ-MEMP-ROM3 . GCD-S0-SN-BASE-RFILE-1) (IMMEDIATE-DEPENDENTS0 ADD-EVENP . GCD-S0-SN-BASE-RFILE-1) (IMMEDIATE-DEPENDENTS0 EVENP . GCD-S0-SN-BASE-RFILE-1) (IMMEDIATE-DEPENDENTS0 MOVE-INS . GCD-S0-SN-BASE-RFILE-1) (IMMEDIATE-DEPENDENTS0 MOVE-ADDR-MODEP . GCD-S0-SN-BASE-RFILE-1) (IMMEDIATE-DEPENDENTS0 MAPPING . GCD-S0-SN-BASE-RFILE-1) (IMMEDIATE-DEPENDENTS0 SET-SET-CVZNX1 . GCD-S0-SN-BASE-RFILE-1) (IMMEDIATE-DEPENDENTS0 D-MAPPING . GCD-S0-SN-BASE-RFILE-1) (IMMEDIATE-DEPENDENTS0 MOVE-EFFECT . GCD-S0-SN-BASE-RFILE-1) (IMMEDIATE-DEPENDENTS0 SET-CVZNX-X . GCD-S0-SN-BASE-RFILE-1) (IMMEDIATE-DEPENDENTS0 D_RN . GCD-S0-SN-BASE-RFILE-1) (IMMEDIATE-DEPENDENTS0 MOVE-MAPPING . GCD-S0-SN-BASE-RFILE-1) (IMMEDIATE-DEPENDENTS0 D_MODE . GCD-S0-SN-BASE-RFILE-1) (IMMEDIATE-DEPENDENTS0 MOVE-GROUP . GCD-S0-SN-BASE-RFILE-1) (IMMEDIATE-DEPENDENTS0 MOVEM-EA-RN-SUBGROUP . GCD-S0-SN-BASE-RFILE-1) (IMMEDIATE-DEPENDENTS0 UPDATE-RFILE . GCD-S0-SN-BASE-RFILE-1) (IMMEDIATE-DEPENDENTS0 MOVEM-RNLST . GCD-S0-SN-BASE-RFILE-1) (IMMEDIATE-DEPENDENTS0 READMP . GCD-S0-SN-BASE-RFILE-1) (IMMEDIATE-DEPENDENTS0 OP-SZ . GCD-S0-SN-BASE-RFILE-1) (IMMEDIATE-DEPENDENTS0 MOVEM-LEN . GCD-S0-SN-BASE-RFILE-1) (IMMEDIATE-DEPENDENTS0 READ-MEMP-RAM3 . GCD-S0-SN-BASE-RFILE-1) (IMMEDIATE-DEPENDENTS0 W . GCD-S0-SN-BASE-RFILE-1) (IMMEDIATE-DEPENDENTS0 READ-WRITE-RN . GCD-S0-SN-BASE-RFILE-1) (IMMEDIATE-DEPENDENTS0 ADDR-DISP . GCD-S0-SN-BASE-RFILE-1) (IMMEDIATE-DEPENDENTS0 MOVEM-EA-RN-ADDR-MODEP . GCD-S0-SN-BASE-RFILE-1) (IMMEDIATE-DEPENDENTS0 POSTINC-MODEP . GCD-S0-SN-BASE-RFILE-1) (IMMEDIATE-DEPENDENTS0 MOVEM-EA-RN-INS . GCD-S0-SN-BASE-RFILE-1) (IMMEDIATE-DEPENDENTS0 UNLK-SUBGROUP . GCD-S0-SN-BASE-RFILE-1) (IMMEDIATE-DEPENDENTS0 WRITE-SP . GCD-S0-SN-BASE-RFILE-1) (IMMEDIATE-DEPENDENTS0 SP . GCD-S0-SN-BASE-RFILE-1) (IMMEDIATE-DEPENDENTS0 WRITE-AN . GCD-S0-SN-BASE-RFILE-1) (IMMEDIATE-DEPENDENTS0 LONG-READ . GCD-S0-SN-BASE-RFILE-1) (IMMEDIATE-DEPENDENTS0 LONG-READP . GCD-S0-SN-BASE-RFILE-1) (IMMEDIATE-DEPENDENTS0 LSZ . GCD-S0-SN-BASE-RFILE-1) (IMMEDIATE-DEPENDENTS0 READ-MEMP-RAM2 . GCD-S0-SN-BASE-RFILE-1) (IMMEDIATE-DEPENDENTS0 N-MEMBER . GCD-S0-SN-BASE-RFILE-1) (IMMEDIATE-DEPENDENTS0 READ-WRITEM-RN . GCD-S0-SN-BASE-RFILE-1) (IMMEDIATE-DEPENDENTS0 UNLK-INS . GCD-S0-SN-BASE-RFILE-1) (IMMEDIATE-DEPENDENTS0 NOP-SUBGROUP . GCD-S0-SN-BASE-RFILE-1) (IMMEDIATE-DEPENDENTS0 RTD-MAPPING . GCD-S0-SN-BASE-RFILE-1) (IMMEDIATE-DEPENDENTS0 READ-SP . GCD-S0-SN-BASE-RFILE-1) (IMMEDIATE-DEPENDENTS0 HEAD-LEMMA . GCD-S0-SN-BASE-RFILE-1) (IMMEDIATE-DEPENDENTS0 RTS-INS . GCD-S0-SN-BASE-RFILE-1) (IMMEDIATE-DEPENDENTS0 STEPN-REWRITER0 . GCD-S0-SN-BASE-RFILE-1) (IMMEDIATE-DEPENDENTS0 STEPN-REWRITER . GCD-S0-SN-BASE-RFILE-1) (IMMEDIATE-DEPENDENTS0 READ-AN . GCD-S0-SN-BASE-RFILE-1) (IMMEDIATE-DEPENDENTS0 GCD-CODE . GCD-S0-SN-BASE-RFILE-1) (IMMEDIATE-DEPENDENTS0 MOVEM-SAVED . GCD-S0-SN-BASE-RFILE-1) (IMMEDIATE-DEPENDENTS0 GET-VLST . GCD-S0-SN-BASE-RFILE-1) (IMMEDIATE-DEPENDENTS0 D4-7A2-5P . GCD-S0-SN-BASE-RFILE-1) (IMMEDIATE-DEPENDENTS0 STEPN . GCD-S0-SN-BASE-RFILE-1) (IMMEDIATE-DEPENDENTS0 MC-RFILE . GCD-S0-SN-BASE-RFILE-1) (IMMEDIATE-DEPENDENTS0 READ-RN . GCD-S0-SN-BASE-RFILE-1) (IMMEDIATE-DEPENDENTS0 D2-7A2-5P . GCD-S0-SN-BASE-RFILE-1) (IMMEDIATE-DEPENDENTS0 GCD-S0P . GCD-S0-SN-BASE-RFILE-1) (LEMMAS READ-RN . GCD-S0-SN-BASE-RFILE-1))))) (PUT1-LST (QUOTE GCD-S0-SN-BASE-1) (QUOTE (IDATE 1000402215254 IMMEDIATE-DEPENDENTS0 (GCD-S0-SN) EVENT (PROVE-LEMMA GCD-S0-SN-BASE-1 (REWRITE) (IMPLIES (AND (GCD-S0P S A B) (ZEROP A)) (AND (EQUAL (MC-STATUS (STEPN S (QUOTE 6))) (QUOTE RUNNING)) (AND (EQUAL (MC-PC (STEPN S (QUOTE 6))) (LINKED-RTS-ADDR S)) (AND (EQUAL (IREAD-DN (QUOTE 32) (QUOTE 0) (STEPN S (QUOTE 6))) (FIX B)) (AND (EQUAL (READ-RN (QUOTE 32) (QUOTE 14) (MC-RFILE (STEPN S (QUOTE 6)))) (LINKED-A6 S)) (AND (EQUAL (READ-RN (QUOTE 32) (QUOTE 15) (MC-RFILE (STEPN S (QUOTE 6)))) (ADD (QUOTE 32) (READ-AN (QUOTE 32) (QUOTE 6) S) (QUOTE 8))) (EQUAL (READ-MEM X (MC-MEM (STEPN S (QUOTE 6))) L) (READ-MEM X (MC-MEM S) L))))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NEG . GCD-S0-SN-BASE-1) (IMMEDIATE-DEPENDENTS0 SUB-NEG . GCD-S0-SN-BASE-1) (IMMEDIATE-DEPENDENTS0 READ-DN . GCD-S0-SN-BASE-1) (IMMEDIATE-DEPENDENTS0 EXECUTE-INS . GCD-S0-SN-BASE-1) (IMMEDIATE-DEPENDENTS0 OPCODE-FIELD . GCD-S0-SN-BASE-1) (IMMEDIATE-DEPENDENTS0 TST-SUBGROUP . GCD-S0-SN-BASE-1) (IMMEDIATE-DEPENDENTS0 OP-LEN . GCD-S0-SN-BASE-1) (IMMEDIATE-DEPENDENTS0 Q . GCD-S0-SN-BASE-1) (IMMEDIATE-DEPENDENTS0 UPDATE-CCR . GCD-S0-SN-BASE-1) (IMMEDIATE-DEPENDENTS0 ADD-NAT-RANGEP . GCD-S0-SN-BASE-1) (IMMEDIATE-DEPENDENTS0 MC-PC-REWRITE . GCD-S0-SN-BASE-1) (IMMEDIATE-DEPENDENTS0 MC-MEM-REWRITE . GCD-S0-SN-BASE-1) (IMMEDIATE-DEPENDENTS0 MOVE-CVZNX . GCD-S0-SN-BASE-1) (IMMEDIATE-DEPENDENTS0 B0 . GCD-S0-SN-BASE-1) (IMMEDIATE-DEPENDENTS0 MC-CCR-REWRITE . GCD-S0-SN-BASE-1) (IMMEDIATE-DEPENDENTS0 MC-CCR-RANGEP . GCD-S0-SN-BASE-1) (IMMEDIATE-DEPENDENTS0 OPERAND . GCD-S0-SN-BASE-1) (IMMEDIATE-DEPENDENTS0 MC-RFILE-REWRITE . GCD-S0-SN-BASE-1) (IMMEDIATE-DEPENDENTS0 MC-HALTP . GCD-S0-SN-BASE-1) (IMMEDIATE-DEPENDENTS0 MC-STATUS-REWRITE . GCD-S0-SN-BASE-1) (IMMEDIATE-DEPENDENTS0 MC-INSTATE . GCD-S0-SN-BASE-1) (IMMEDIATE-DEPENDENTS0 S_MODE . GCD-S0-SN-BASE-1) (IMMEDIATE-DEPENDENTS0 S_RN . GCD-S0-SN-BASE-1) (IMMEDIATE-DEPENDENTS0 DN-DIRECT . GCD-S0-SN-BASE-1) (IMMEDIATE-DEPENDENTS0 EFFEC-ADDR . GCD-S0-SN-BASE-1) (IMMEDIATE-DEPENDENTS0 TST-ADDR-MODEP . GCD-S0-SN-BASE-1) (IMMEDIATE-DEPENDENTS0 TST-INS . GCD-S0-SN-BASE-1) (IMMEDIATE-DEPENDENTS0 B0P . GCD-S0-SN-BASE-1) (IMMEDIATE-DEPENDENTS0 BITN . GCD-S0-SN-BASE-1) (IMMEDIATE-DEPENDENTS0 MISC-GROUP . GCD-S0-SN-BASE-1) (IMMEDIATE-DEPENDENTS0 UPDATE-PC . GCD-S0-SN-BASE-1) (IMMEDIATE-DEPENDENTS0 L . GCD-S0-SN-BASE-1) (IMMEDIATE-DEPENDENTS0 CURRENT-INS . GCD-S0-SN-BASE-1) (IMMEDIATE-DEPENDENTS0 PC-READ-MEM-MCODE2 . GCD-S0-SN-BASE-1) (IMMEDIATE-DEPENDENTS0 READ-LST . GCD-S0-SN-BASE-1) (IMMEDIATE-DEPENDENTS0 LEN . GCD-S0-SN-BASE-1) (IMMEDIATE-DEPENDENTS0 LST-NUMBERP . GCD-S0-SN-BASE-1) (IMMEDIATE-DEPENDENTS0 PC-WORD-READ . GCD-S0-SN-BASE-1) (IMMEDIATE-DEPENDENTS0 PC-WORD-READP . GCD-S0-SN-BASE-1) (IMMEDIATE-DEPENDENTS0 WSZ . GCD-S0-SN-BASE-1) (IMMEDIATE-DEPENDENTS0 INDEX-N . GCD-S0-SN-BASE-1) (IMMEDIATE-DEPENDENTS0 PC-READ-MEMP-ROM2 . GCD-S0-SN-BASE-1) (IMMEDIATE-DEPENDENTS0 STEPI . GCD-S0-SN-BASE-1) (IMMEDIATE-DEPENDENTS0 B . GCD-S0-SN-BASE-1) (IMMEDIATE-DEPENDENTS0 HEAD . GCD-S0-SN-BASE-1) (IMMEDIATE-DEPENDENTS0 BCC-RA-SR . GCD-S0-SN-BASE-1) (IMMEDIATE-DEPENDENTS0 MOVE-BEQ-INT-1 . GCD-S0-SN-BASE-1) (IMMEDIATE-DEPENDENTS0 READ-RN-NAT-RANGEP . GCD-S0-SN-BASE-1) (IMMEDIATE-DEPENDENTS0 SET-CVZNX-Z . GCD-S0-SN-BASE-1) (IMMEDIATE-DEPENDENTS0 BITP-FIX-BIT . GCD-S0-SN-BASE-1) (IMMEDIATE-DEPENDENTS0 MOVE-Z-BITP . GCD-S0-SN-BASE-1) (IMMEDIATE-DEPENDENTS0 BRANCH-CC . GCD-S0-SN-BASE-1) (IMMEDIATE-DEPENDENTS0 EXT . GCD-S0-SN-BASE-1) (IMMEDIATE-DEPENDENTS0 COND-FIELD . GCD-S0-SN-BASE-1) (IMMEDIATE-DEPENDENTS0 BCC-GROUP . GCD-S0-SN-BASE-1) (IMMEDIATE-DEPENDENTS0 SET-CVZNX-NAT-RANGEP . GCD-S0-SN-BASE-1) (IMMEDIATE-DEPENDENTS0 ADD-ASSOCIATIVITY . GCD-S0-SN-BASE-1) (IMMEDIATE-DEPENDENTS0 PC-READ-MEM-MCODE3 . GCD-S0-SN-BASE-1) (IMMEDIATE-DEPENDENTS0 PC-READ-MEMP-ROM3 . GCD-S0-SN-BASE-1) (IMMEDIATE-DEPENDENTS0 ADD-EVENP . GCD-S0-SN-BASE-1) (IMMEDIATE-DEPENDENTS0 EVENP . GCD-S0-SN-BASE-1) (IMMEDIATE-DEPENDENTS0 MOVE-INS . GCD-S0-SN-BASE-1) (IMMEDIATE-DEPENDENTS0 MOVE-ADDR-MODEP . GCD-S0-SN-BASE-1) (IMMEDIATE-DEPENDENTS0 MAPPING . GCD-S0-SN-BASE-1) (IMMEDIATE-DEPENDENTS0 SET-SET-CVZNX1 . GCD-S0-SN-BASE-1) (IMMEDIATE-DEPENDENTS0 D-MAPPING . GCD-S0-SN-BASE-1) (IMMEDIATE-DEPENDENTS0 MOVE-EFFECT . GCD-S0-SN-BASE-1) (IMMEDIATE-DEPENDENTS0 SET-CVZNX-X . GCD-S0-SN-BASE-1) (IMMEDIATE-DEPENDENTS0 D_RN . GCD-S0-SN-BASE-1) (IMMEDIATE-DEPENDENTS0 MOVE-MAPPING . GCD-S0-SN-BASE-1) (IMMEDIATE-DEPENDENTS0 D_MODE . GCD-S0-SN-BASE-1) (IMMEDIATE-DEPENDENTS0 MOVE-GROUP . GCD-S0-SN-BASE-1) (IMMEDIATE-DEPENDENTS0 MOVEM-EA-RN-SUBGROUP . GCD-S0-SN-BASE-1) (IMMEDIATE-DEPENDENTS0 UPDATE-RFILE . GCD-S0-SN-BASE-1) (IMMEDIATE-DEPENDENTS0 MOVEM-RNLST . GCD-S0-SN-BASE-1) (IMMEDIATE-DEPENDENTS0 READMP . GCD-S0-SN-BASE-1) (IMMEDIATE-DEPENDENTS0 OP-SZ . GCD-S0-SN-BASE-1) (IMMEDIATE-DEPENDENTS0 MOVEM-LEN . GCD-S0-SN-BASE-1) (IMMEDIATE-DEPENDENTS0 READ-MEMP-RAM3 . GCD-S0-SN-BASE-1) (IMMEDIATE-DEPENDENTS0 W . GCD-S0-SN-BASE-1) (IMMEDIATE-DEPENDENTS0 READ-WRITE-RN . GCD-S0-SN-BASE-1) (IMMEDIATE-DEPENDENTS0 ADDR-DISP . GCD-S0-SN-BASE-1) (IMMEDIATE-DEPENDENTS0 MOVEM-EA-RN-ADDR-MODEP . GCD-S0-SN-BASE-1) (IMMEDIATE-DEPENDENTS0 POSTINC-MODEP . GCD-S0-SN-BASE-1) (IMMEDIATE-DEPENDENTS0 MOVEM-EA-RN-INS . GCD-S0-SN-BASE-1) (IMMEDIATE-DEPENDENTS0 UNLK-SUBGROUP . GCD-S0-SN-BASE-1) (IMMEDIATE-DEPENDENTS0 WRITE-SP . GCD-S0-SN-BASE-1) (IMMEDIATE-DEPENDENTS0 SP . GCD-S0-SN-BASE-1) (IMMEDIATE-DEPENDENTS0 WRITE-AN . GCD-S0-SN-BASE-1) (IMMEDIATE-DEPENDENTS0 LONG-READ . GCD-S0-SN-BASE-1) (IMMEDIATE-DEPENDENTS0 LONG-READP . GCD-S0-SN-BASE-1) (IMMEDIATE-DEPENDENTS0 LSZ . GCD-S0-SN-BASE-1) (IMMEDIATE-DEPENDENTS0 READ-MEMP-RAM2 . GCD-S0-SN-BASE-1) (IMMEDIATE-DEPENDENTS0 N-MEMBER . GCD-S0-SN-BASE-1) (IMMEDIATE-DEPENDENTS0 READ-WRITEM-RN . GCD-S0-SN-BASE-1) (IMMEDIATE-DEPENDENTS0 UNLK-INS . GCD-S0-SN-BASE-1) (IMMEDIATE-DEPENDENTS0 NOP-SUBGROUP . GCD-S0-SN-BASE-1) (IMMEDIATE-DEPENDENTS0 RTD-MAPPING . GCD-S0-SN-BASE-1) (IMMEDIATE-DEPENDENTS0 READ-SP . GCD-S0-SN-BASE-1) (IMMEDIATE-DEPENDENTS0 HEAD-LEMMA . GCD-S0-SN-BASE-1) (IMMEDIATE-DEPENDENTS0 RTS-INS . GCD-S0-SN-BASE-1) (IMMEDIATE-DEPENDENTS0 STEPN-REWRITER0 . GCD-S0-SN-BASE-1) (IMMEDIATE-DEPENDENTS0 STEPN-REWRITER . GCD-S0-SN-BASE-1) (IMMEDIATE-DEPENDENTS0 READ-MEM-NAT-RANGEP . GCD-S0-SN-BASE-1) (IMMEDIATE-DEPENDENTS0 HEAD-READ-RN . GCD-S0-SN-BASE-1) (IMMEDIATE-DEPENDENTS0 GCD-CODE . GCD-S0-SN-BASE-1) (IMMEDIATE-DEPENDENTS0 MC-MEM . GCD-S0-SN-BASE-1) (IMMEDIATE-DEPENDENTS0 READ-MEM . GCD-S0-SN-BASE-1) (IMMEDIATE-DEPENDENTS0 READ-AN . GCD-S0-SN-BASE-1) (IMMEDIATE-DEPENDENTS0 ADD . GCD-S0-SN-BASE-1) (IMMEDIATE-DEPENDENTS0 LINKED-A6 . GCD-S0-SN-BASE-1) (IMMEDIATE-DEPENDENTS0 MC-RFILE . GCD-S0-SN-BASE-1) (IMMEDIATE-DEPENDENTS0 READ-RN . GCD-S0-SN-BASE-1) (IMMEDIATE-DEPENDENTS0 IREAD-DN . GCD-S0-SN-BASE-1) (IMMEDIATE-DEPENDENTS0 LINKED-RTS-ADDR . GCD-S0-SN-BASE-1) (IMMEDIATE-DEPENDENTS0 MC-PC . GCD-S0-SN-BASE-1) (IMMEDIATE-DEPENDENTS0 STEPN . GCD-S0-SN-BASE-1) (IMMEDIATE-DEPENDENTS0 MC-STATUS . GCD-S0-SN-BASE-1) (IMMEDIATE-DEPENDENTS0 GCD-S0P . GCD-S0-SN-BASE-1) (LEMMAS READ-MEM . GCD-S0-SN-BASE-1) (LEMMAS READ-RN . GCD-S0-SN-BASE-1) (LEMMAS READ-RN . GCD-S0-SN-BASE-1) (LEMMAS IREAD-DN . GCD-S0-SN-BASE-1) (LEMMAS MC-PC . GCD-S0-SN-BASE-1) (LEMMAS MC-STATUS . GCD-S0-SN-BASE-1))))) (PUT1-LST (QUOTE GCD-S-S0-MEM) (QUOTE (IDATE 1000402215253 IMMEDIATE-DEPENDENTS0 (GCD-CORRECTNESS) EVENT (PROVE-LEMMA GCD-S-S0-MEM (REWRITE) (IMPLIES (AND (GCD-STATEP S A B) (DISJOINT X L (SUB (QUOTE 32) (QUOTE 12) (READ-SP S)) (QUOTE 24))) (EQUAL (READ-MEM X (MC-MEM (STEPN S (QUOTE 4))) L) (READ-MEM X (MC-MEM S) L)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NEG . GCD-S-S0-MEM) (IMMEDIATE-DEPENDENTS0 SUB-NEG . GCD-S-S0-MEM) (IMMEDIATE-DEPENDENTS0 IREAD-MEM . GCD-S-S0-MEM) (IMMEDIATE-DEPENDENTS0 EXECUTE-INS . GCD-S-S0-MEM) (IMMEDIATE-DEPENDENTS0 OPCODE-FIELD . GCD-S-S0-MEM) (IMMEDIATE-DEPENDENTS0 UNLK-SUBGROUP . GCD-S-S0-MEM) (IMMEDIATE-DEPENDENTS0 S_RN . GCD-S-S0-MEM) (IMMEDIATE-DEPENDENTS0 LINK-MAPPING . GCD-S-S0-MEM) (IMMEDIATE-DEPENDENTS0 LSZ . GCD-S-S0-MEM) (IMMEDIATE-DEPENDENTS0 INDEX-N . GCD-S-S0-MEM) (IMMEDIATE-DEPENDENTS0 WRITE-MEMP-RAM3 . GCD-S-S0-MEM) (IMMEDIATE-DEPENDENTS0 UPDATE-RFILE . GCD-S-S0-MEM) (IMMEDIATE-DEPENDENTS0 WRITE-AN . GCD-S-S0-MEM) (IMMEDIATE-DEPENDENTS0 WRITE-SP . GCD-S-S0-MEM) (IMMEDIATE-DEPENDENTS0 UPDATE-MEM . GCD-S-S0-MEM) (IMMEDIATE-DEPENDENTS0 MC-STATUS-REWRITE . GCD-S-S0-MEM) (IMMEDIATE-DEPENDENTS0 MC-RFILE-REWRITE . GCD-S-S0-MEM) (IMMEDIATE-DEPENDENTS0 MC-CCR-RANGEP . GCD-S-S0-MEM) (IMMEDIATE-DEPENDENTS0 MC-CCR-REWRITE . GCD-S-S0-MEM) (IMMEDIATE-DEPENDENTS0 ADD-ASSOCIATIVITY . GCD-S-S0-MEM) (IMMEDIATE-DEPENDENTS0 ADD . GCD-S-S0-MEM) (IMMEDIATE-DEPENDENTS0 EXT . GCD-S-S0-MEM) (IMMEDIATE-DEPENDENTS0 PC-READ-MEM-MCODE1 . GCD-S-S0-MEM) (IMMEDIATE-DEPENDENTS0 W . GCD-S-S0-MEM) (IMMEDIATE-DEPENDENTS0 PC-READ-MEMP-ROM1 . GCD-S-S0-MEM) (IMMEDIATE-DEPENDENTS0 MC-MEM-REWRITE . GCD-S-S0-MEM) (IMMEDIATE-DEPENDENTS0 MC-PC-REWRITE . GCD-S-S0-MEM) (IMMEDIATE-DEPENDENTS0 ADD-NAT-RANGEP . GCD-S-S0-MEM) (IMMEDIATE-DEPENDENTS0 LINK_W-INS . GCD-S-S0-MEM) (IMMEDIATE-DEPENDENTS0 B0P . GCD-S-S0-MEM) (IMMEDIATE-DEPENDENTS0 BITN . GCD-S-S0-MEM) (IMMEDIATE-DEPENDENTS0 MISC-GROUP . GCD-S-S0-MEM) (IMMEDIATE-DEPENDENTS0 UPDATE-PC . GCD-S-S0-MEM) (IMMEDIATE-DEPENDENTS0 CURRENT-INS . GCD-S-S0-MEM) (IMMEDIATE-DEPENDENTS0 PC-READ-MEM-MCODE0 . GCD-S-S0-MEM) (IMMEDIATE-DEPENDENTS0 READ-LST . GCD-S-S0-MEM) (IMMEDIATE-DEPENDENTS0 LEN . GCD-S-S0-MEM) (IMMEDIATE-DEPENDENTS0 LST-NUMBERP . GCD-S-S0-MEM) (IMMEDIATE-DEPENDENTS0 PC-WORD-READ . GCD-S-S0-MEM) (IMMEDIATE-DEPENDENTS0 PC-WORD-READP . GCD-S-S0-MEM) (IMMEDIATE-DEPENDENTS0 WSZ . GCD-S-S0-MEM) (IMMEDIATE-DEPENDENTS0 PC-READ-MEMP-ROM0 . GCD-S-S0-MEM) (IMMEDIATE-DEPENDENTS0 STEPI . GCD-S-S0-MEM) (IMMEDIATE-DEPENDENTS0 EXT-SUBGROUP . GCD-S-S0-MEM) (IMMEDIATE-DEPENDENTS0 S_MODE . GCD-S-S0-MEM) (IMMEDIATE-DEPENDENTS0 READM-WRITE-RN . GCD-S-S0-MEM) (IMMEDIATE-DEPENDENTS0 N-MEMBER . GCD-S-S0-MEM) (IMMEDIATE-DEPENDENTS0 MOVEM-PRE-RNLST . GCD-S-S0-MEM) (IMMEDIATE-DEPENDENTS0 WRITEMP . GCD-S-S0-MEM) (IMMEDIATE-DEPENDENTS0 WRITE-MEM-MAINTAIN-WRITE-MEMP . GCD-S-S0-MEM) (IMMEDIATE-DEPENDENTS0 MOVEM-PREDEC . GCD-S-S0-MEM) (IMMEDIATE-DEPENDENTS0 READ-WRITE-RN . GCD-S-S0-MEM) (IMMEDIATE-DEPENDENTS0 HEAD-LEMMA . GCD-S-S0-MEM) (IMMEDIATE-DEPENDENTS0 OP-SZ . GCD-S-S0-MEM) (IMMEDIATE-DEPENDENTS0 B . GCD-S-S0-MEM) (IMMEDIATE-DEPENDENTS0 PRE-EFFECT . GCD-S-S0-MEM) (IMMEDIATE-DEPENDENTS0 WRITE-WRITE-RN . GCD-S-S0-MEM) (IMMEDIATE-DEPENDENTS0 MOVEM-LEN . GCD-S-S0-MEM) (IMMEDIATE-DEPENDENTS0 PREDEC-MODEP . GCD-S-S0-MEM) (IMMEDIATE-DEPENDENTS0 MOVEM-RN-EA-INS . GCD-S-S0-MEM) (IMMEDIATE-DEPENDENTS0 PC-READ-MEM-WRITE-MEM . GCD-S-S0-MEM) (IMMEDIATE-DEPENDENTS0 WRITE-MEM-MAINTAIN-PC-READ-MEMP . GCD-S-S0-MEM) (IMMEDIATE-DEPENDENTS0 ADD-EVENP . GCD-S-S0-MEM) (IMMEDIATE-DEPENDENTS0 EVENP . GCD-S-S0-MEM) (IMMEDIATE-DEPENDENTS0 MOVE-INS . GCD-S-S0-MEM) (IMMEDIATE-DEPENDENTS0 MOVE-ADDR-MODEP . GCD-S-S0-MEM) (IMMEDIATE-DEPENDENTS0 WRITEM-MEM-MAINTAIN-READ-MEMP . GCD-S-S0-MEM) (IMMEDIATE-DEPENDENTS0 WRITE-MEMP->READ-MEMP . GCD-S-S0-MEM) (IMMEDIATE-DEPENDENTS0 EFFEC-ADDR . GCD-S-S0-MEM) (IMMEDIATE-DEPENDENTS0 ADDR-DISP . GCD-S-S0-MEM) (IMMEDIATE-DEPENDENTS0 MC-INSTATE . GCD-S-S0-MEM) (IMMEDIATE-DEPENDENTS0 MC-HALTP . GCD-S-S0-MEM) (IMMEDIATE-DEPENDENTS0 READ-WRITEM-MEM . GCD-S-S0-MEM) (IMMEDIATE-DEPENDENTS0 READ-WRITE-MEM1 . GCD-S-S0-MEM) (IMMEDIATE-DEPENDENTS0 DISJOINT-DEDUCTION2 . GCD-S-S0-MEM) (IMMEDIATE-DEPENDENTS0 OPERAND . GCD-S-S0-MEM) (IMMEDIATE-DEPENDENTS0 MAPPING . GCD-S-S0-MEM) (IMMEDIATE-DEPENDENTS0 D-MAPPING . GCD-S-S0-MEM) (IMMEDIATE-DEPENDENTS0 MOVE-EFFECT . GCD-S-S0-MEM) (IMMEDIATE-DEPENDENTS0 B0 . GCD-S-S0-MEM) (IMMEDIATE-DEPENDENTS0 MOVE-CVZNX . GCD-S-S0-MEM) (IMMEDIATE-DEPENDENTS0 DN-DIRECT . GCD-S-S0-MEM) (IMMEDIATE-DEPENDENTS0 D_RN . GCD-S-S0-MEM) (IMMEDIATE-DEPENDENTS0 MOVE-MAPPING . GCD-S-S0-MEM) (IMMEDIATE-DEPENDENTS0 D_MODE . GCD-S-S0-MEM) (IMMEDIATE-DEPENDENTS0 MOVE-GROUP . GCD-S-S0-MEM) (IMMEDIATE-DEPENDENTS0 PC-READ-MEM-WRITEM-MEM . GCD-S-S0-MEM) (IMMEDIATE-DEPENDENTS0 READM-RN-LEN . GCD-S-S0-MEM) (IMMEDIATE-DEPENDENTS0 WRITEM-MEM-MAINTAIN-PC-READ-MEMP . GCD-S-S0-MEM) (IMMEDIATE-DEPENDENTS0 SET-SET-CVZNX1 . GCD-S-S0-MEM) (IMMEDIATE-DEPENDENTS0 SET-CVZNX-X . GCD-S-S0-MEM) (IMMEDIATE-DEPENDENTS0 SET-CVZNX-NAT-RANGEP . GCD-S-S0-MEM) (IMMEDIATE-DEPENDENTS0 STEPN-REWRITER0 . GCD-S-S0-MEM) (IMMEDIATE-DEPENDENTS0 STEPN-REWRITER . GCD-S-S0-MEM) (IMMEDIATE-DEPENDENTS0 DISJOINT-10 . GCD-S-S0-MEM) (IMMEDIATE-DEPENDENTS0 GCD-CODE . GCD-S-S0-MEM) (IMMEDIATE-DEPENDENTS0 SP . GCD-S-S0-MEM) (IMMEDIATE-DEPENDENTS0 L . GCD-S-S0-MEM) (IMMEDIATE-DEPENDENTS0 READ-AN . GCD-S-S0-MEM) (IMMEDIATE-DEPENDENTS0 STEPN . GCD-S-S0-MEM) (IMMEDIATE-DEPENDENTS0 MC-MEM . GCD-S-S0-MEM) (IMMEDIATE-DEPENDENTS0 READ-MEM . GCD-S-S0-MEM) (IMMEDIATE-DEPENDENTS0 READ-SP . GCD-S-S0-MEM) (IMMEDIATE-DEPENDENTS0 SUB . GCD-S-S0-MEM) (IMMEDIATE-DEPENDENTS0 DISJOINT . GCD-S-S0-MEM) (IMMEDIATE-DEPENDENTS0 GCD-STATEP . GCD-S-S0-MEM) (LEMMAS READ-MEM . GCD-S-S0-MEM))))) (PUT1-LST (QUOTE GCD-S-S0-RFILE) (QUOTE (IDATE 1000402215253 IMMEDIATE-DEPENDENTS0 (GCD-CORRECTNESS) EVENT (PROVE-LEMMA GCD-S-S0-RFILE (REWRITE) (IMPLIES (AND (GCD-STATEP S A B) (D4-7A2-5P RN)) (EQUAL (READ-RN OPLEN RN (MC-RFILE (STEPN S (QUOTE 4)))) (READ-RN OPLEN RN (MC-RFILE S))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NEG . GCD-S-S0-RFILE) (IMMEDIATE-DEPENDENTS0 SUB-NEG . GCD-S-S0-RFILE) (IMMEDIATE-DEPENDENTS0 IREAD-MEM . GCD-S-S0-RFILE) (IMMEDIATE-DEPENDENTS0 EXECUTE-INS . GCD-S-S0-RFILE) (IMMEDIATE-DEPENDENTS0 OPCODE-FIELD . GCD-S-S0-RFILE) (IMMEDIATE-DEPENDENTS0 UNLK-SUBGROUP . GCD-S-S0-RFILE) (IMMEDIATE-DEPENDENTS0 S_RN . GCD-S-S0-RFILE) (IMMEDIATE-DEPENDENTS0 LINK-MAPPING . GCD-S-S0-RFILE) (IMMEDIATE-DEPENDENTS0 LSZ . GCD-S-S0-RFILE) (IMMEDIATE-DEPENDENTS0 INDEX-N . GCD-S-S0-RFILE) (IMMEDIATE-DEPENDENTS0 WRITE-MEMP-RAM3 . GCD-S-S0-RFILE) (IMMEDIATE-DEPENDENTS0 UPDATE-RFILE . GCD-S-S0-RFILE) (IMMEDIATE-DEPENDENTS0 WRITE-AN . GCD-S-S0-RFILE) (IMMEDIATE-DEPENDENTS0 WRITE-SP . GCD-S-S0-RFILE) (IMMEDIATE-DEPENDENTS0 UPDATE-MEM . GCD-S-S0-RFILE) (IMMEDIATE-DEPENDENTS0 MC-STATUS-REWRITE . GCD-S-S0-RFILE) (IMMEDIATE-DEPENDENTS0 MC-RFILE-REWRITE . GCD-S-S0-RFILE) (IMMEDIATE-DEPENDENTS0 MC-CCR-RANGEP . GCD-S-S0-RFILE) (IMMEDIATE-DEPENDENTS0 MC-CCR-REWRITE . GCD-S-S0-RFILE) (IMMEDIATE-DEPENDENTS0 ADD-ASSOCIATIVITY . GCD-S-S0-RFILE) (IMMEDIATE-DEPENDENTS0 ADD . GCD-S-S0-RFILE) (IMMEDIATE-DEPENDENTS0 EXT . GCD-S-S0-RFILE) (IMMEDIATE-DEPENDENTS0 PC-READ-MEM-MCODE1 . GCD-S-S0-RFILE) (IMMEDIATE-DEPENDENTS0 W . GCD-S-S0-RFILE) (IMMEDIATE-DEPENDENTS0 PC-READ-MEMP-ROM1 . GCD-S-S0-RFILE) (IMMEDIATE-DEPENDENTS0 MC-MEM-REWRITE . GCD-S-S0-RFILE) (IMMEDIATE-DEPENDENTS0 MC-PC-REWRITE . GCD-S-S0-RFILE) (IMMEDIATE-DEPENDENTS0 ADD-NAT-RANGEP . GCD-S-S0-RFILE) (IMMEDIATE-DEPENDENTS0 LINK_W-INS . GCD-S-S0-RFILE) (IMMEDIATE-DEPENDENTS0 B0P . GCD-S-S0-RFILE) (IMMEDIATE-DEPENDENTS0 BITN . GCD-S-S0-RFILE) (IMMEDIATE-DEPENDENTS0 MISC-GROUP . GCD-S-S0-RFILE) (IMMEDIATE-DEPENDENTS0 UPDATE-PC . GCD-S-S0-RFILE) (IMMEDIATE-DEPENDENTS0 CURRENT-INS . GCD-S-S0-RFILE) (IMMEDIATE-DEPENDENTS0 PC-READ-MEM-MCODE0 . GCD-S-S0-RFILE) (IMMEDIATE-DEPENDENTS0 READ-LST . GCD-S-S0-RFILE) (IMMEDIATE-DEPENDENTS0 LEN . GCD-S-S0-RFILE) (IMMEDIATE-DEPENDENTS0 LST-NUMBERP . GCD-S-S0-RFILE) (IMMEDIATE-DEPENDENTS0 PC-WORD-READ . GCD-S-S0-RFILE) (IMMEDIATE-DEPENDENTS0 PC-WORD-READP . GCD-S-S0-RFILE) (IMMEDIATE-DEPENDENTS0 WSZ . GCD-S-S0-RFILE) (IMMEDIATE-DEPENDENTS0 PC-READ-MEMP-ROM0 . GCD-S-S0-RFILE) (IMMEDIATE-DEPENDENTS0 STEPI . GCD-S-S0-RFILE) (IMMEDIATE-DEPENDENTS0 EXT-SUBGROUP . GCD-S-S0-RFILE) (IMMEDIATE-DEPENDENTS0 S_MODE . GCD-S-S0-RFILE) (IMMEDIATE-DEPENDENTS0 READM-WRITE-RN . GCD-S-S0-RFILE) (IMMEDIATE-DEPENDENTS0 N-MEMBER . GCD-S-S0-RFILE) (IMMEDIATE-DEPENDENTS0 MOVEM-PRE-RNLST . GCD-S-S0-RFILE) (IMMEDIATE-DEPENDENTS0 WRITEMP . GCD-S-S0-RFILE) (IMMEDIATE-DEPENDENTS0 WRITE-MEM-MAINTAIN-WRITE-MEMP . GCD-S-S0-RFILE) (IMMEDIATE-DEPENDENTS0 MOVEM-PREDEC . GCD-S-S0-RFILE) (IMMEDIATE-DEPENDENTS0 READ-WRITE-RN . GCD-S-S0-RFILE) (IMMEDIATE-DEPENDENTS0 HEAD-LEMMA . GCD-S-S0-RFILE) (IMMEDIATE-DEPENDENTS0 OP-SZ . GCD-S-S0-RFILE) (IMMEDIATE-DEPENDENTS0 B . GCD-S-S0-RFILE) (IMMEDIATE-DEPENDENTS0 PRE-EFFECT . GCD-S-S0-RFILE) (IMMEDIATE-DEPENDENTS0 WRITE-WRITE-RN . GCD-S-S0-RFILE) (IMMEDIATE-DEPENDENTS0 MOVEM-LEN . GCD-S-S0-RFILE) (IMMEDIATE-DEPENDENTS0 PREDEC-MODEP . GCD-S-S0-RFILE) (IMMEDIATE-DEPENDENTS0 MOVEM-RN-EA-INS . GCD-S-S0-RFILE) (IMMEDIATE-DEPENDENTS0 PC-READ-MEM-WRITE-MEM . GCD-S-S0-RFILE) (IMMEDIATE-DEPENDENTS0 WRITE-MEM-MAINTAIN-PC-READ-MEMP . GCD-S-S0-RFILE) (IMMEDIATE-DEPENDENTS0 ADD-EVENP . GCD-S-S0-RFILE) (IMMEDIATE-DEPENDENTS0 EVENP . GCD-S-S0-RFILE) (IMMEDIATE-DEPENDENTS0 MOVE-INS . GCD-S-S0-RFILE) (IMMEDIATE-DEPENDENTS0 MOVE-ADDR-MODEP . GCD-S-S0-RFILE) (IMMEDIATE-DEPENDENTS0 WRITEM-MEM-MAINTAIN-READ-MEMP . GCD-S-S0-RFILE) (IMMEDIATE-DEPENDENTS0 WRITE-MEMP->READ-MEMP . GCD-S-S0-RFILE) (IMMEDIATE-DEPENDENTS0 EFFEC-ADDR . GCD-S-S0-RFILE) (IMMEDIATE-DEPENDENTS0 ADDR-DISP . GCD-S-S0-RFILE) (IMMEDIATE-DEPENDENTS0 MC-INSTATE . GCD-S-S0-RFILE) (IMMEDIATE-DEPENDENTS0 MC-HALTP . GCD-S-S0-RFILE) (IMMEDIATE-DEPENDENTS0 READ-WRITEM-MEM . GCD-S-S0-RFILE) (IMMEDIATE-DEPENDENTS0 READ-WRITE-MEM1 . GCD-S-S0-RFILE) (IMMEDIATE-DEPENDENTS0 DISJOINT . GCD-S-S0-RFILE) (IMMEDIATE-DEPENDENTS0 DISJOINT-DEDUCTION2 . GCD-S-S0-RFILE) (IMMEDIATE-DEPENDENTS0 OPERAND . GCD-S-S0-RFILE) (IMMEDIATE-DEPENDENTS0 MAPPING . GCD-S-S0-RFILE) (IMMEDIATE-DEPENDENTS0 D-MAPPING . GCD-S-S0-RFILE) (IMMEDIATE-DEPENDENTS0 MOVE-EFFECT . GCD-S-S0-RFILE) (IMMEDIATE-DEPENDENTS0 B0 . GCD-S-S0-RFILE) (IMMEDIATE-DEPENDENTS0 MOVE-CVZNX . GCD-S-S0-RFILE) (IMMEDIATE-DEPENDENTS0 DN-DIRECT . GCD-S-S0-RFILE) (IMMEDIATE-DEPENDENTS0 D_RN . GCD-S-S0-RFILE) (IMMEDIATE-DEPENDENTS0 MOVE-MAPPING . GCD-S-S0-RFILE) (IMMEDIATE-DEPENDENTS0 D_MODE . GCD-S-S0-RFILE) (IMMEDIATE-DEPENDENTS0 MOVE-GROUP . GCD-S-S0-RFILE) (IMMEDIATE-DEPENDENTS0 PC-READ-MEM-WRITEM-MEM . GCD-S-S0-RFILE) (IMMEDIATE-DEPENDENTS0 READM-RN-LEN . GCD-S-S0-RFILE) (IMMEDIATE-DEPENDENTS0 WRITEM-MEM-MAINTAIN-PC-READ-MEMP . GCD-S-S0-RFILE) (IMMEDIATE-DEPENDENTS0 SET-SET-CVZNX1 . GCD-S-S0-RFILE) (IMMEDIATE-DEPENDENTS0 SET-CVZNX-X . GCD-S-S0-RFILE) (IMMEDIATE-DEPENDENTS0 SET-CVZNX-NAT-RANGEP . GCD-S-S0-RFILE) (IMMEDIATE-DEPENDENTS0 STEPN-REWRITER0 . GCD-S-S0-RFILE) (IMMEDIATE-DEPENDENTS0 STEPN-REWRITER . GCD-S-S0-RFILE) (IMMEDIATE-DEPENDENTS0 D2-7A2-5P . GCD-S-S0-RFILE) (IMMEDIATE-DEPENDENTS0 SP . GCD-S-S0-RFILE) (IMMEDIATE-DEPENDENTS0 L . GCD-S-S0-RFILE) (IMMEDIATE-DEPENDENTS0 READ-AN . GCD-S-S0-RFILE) (IMMEDIATE-DEPENDENTS0 READ-SP . GCD-S-S0-RFILE) (IMMEDIATE-DEPENDENTS0 GCD-CODE . GCD-S-S0-RFILE) (IMMEDIATE-DEPENDENTS0 STEPN . GCD-S-S0-RFILE) (IMMEDIATE-DEPENDENTS0 MC-RFILE . GCD-S-S0-RFILE) (IMMEDIATE-DEPENDENTS0 READ-RN . GCD-S-S0-RFILE) (IMMEDIATE-DEPENDENTS0 D4-7A2-5P . GCD-S-S0-RFILE) (IMMEDIATE-DEPENDENTS0 GCD-STATEP . GCD-S-S0-RFILE) (LEMMAS READ-RN . GCD-S-S0-RFILE))))) (PUT1-LST (QUOTE GCD-S-S0) (QUOTE (IDATE 1000402215252 IMMEDIATE-DEPENDENTS0 (GCD-CORRECTNESS) EVENT (PROVE-LEMMA GCD-S-S0 (REWRITE) (IMPLIES (GCD-STATEP S A B) (AND (GCD-S0P (STEPN S (QUOTE 4)) A B) (AND (EQUAL (LINKED-RTS-ADDR (STEPN S (QUOTE 4))) (RTS-ADDR S)) (AND (EQUAL (LINKED-A6 (STEPN S (QUOTE 4))) (READ-AN (QUOTE 32) (QUOTE 6) S)) (AND (EQUAL (READ-RN (QUOTE 32) (QUOTE 14) (MC-RFILE (STEPN S (QUOTE 4)))) (SUB (QUOTE 32) (QUOTE 4) (READ-SP S))) (EQUAL (MOVEM-SAVED (STEPN S (QUOTE 4)) (QUOTE 4) (QUOTE 8) (QUOTE 2)) (READM-RN (QUOTE 32) (QUOTE (2 3)) (MC-RFILE S))))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NEG . GCD-S-S0) (IMMEDIATE-DEPENDENTS0 SUB-NEG . GCD-S-S0) (IMMEDIATE-DEPENDENTS0 IREAD-MEM . GCD-S-S0) (IMMEDIATE-DEPENDENTS0 EXECUTE-INS . GCD-S-S0) (IMMEDIATE-DEPENDENTS0 OPCODE-FIELD . GCD-S-S0) (IMMEDIATE-DEPENDENTS0 UNLK-SUBGROUP . GCD-S-S0) (IMMEDIATE-DEPENDENTS0 S_RN . GCD-S-S0) (IMMEDIATE-DEPENDENTS0 LINK-MAPPING . GCD-S-S0) (IMMEDIATE-DEPENDENTS0 LSZ . GCD-S-S0) (IMMEDIATE-DEPENDENTS0 INDEX-N . GCD-S-S0) (IMMEDIATE-DEPENDENTS0 WRITE-MEMP-RAM3 . GCD-S-S0) (IMMEDIATE-DEPENDENTS0 UPDATE-RFILE . GCD-S-S0) (IMMEDIATE-DEPENDENTS0 WRITE-AN . GCD-S-S0) (IMMEDIATE-DEPENDENTS0 WRITE-SP . GCD-S-S0) (IMMEDIATE-DEPENDENTS0 UPDATE-MEM . GCD-S-S0) (IMMEDIATE-DEPENDENTS0 MC-STATUS-REWRITE . GCD-S-S0) (IMMEDIATE-DEPENDENTS0 MC-RFILE-REWRITE . GCD-S-S0) (IMMEDIATE-DEPENDENTS0 MC-CCR-RANGEP . GCD-S-S0) (IMMEDIATE-DEPENDENTS0 MC-CCR-REWRITE . GCD-S-S0) (IMMEDIATE-DEPENDENTS0 ADD-ASSOCIATIVITY . GCD-S-S0) (IMMEDIATE-DEPENDENTS0 ADD . GCD-S-S0) (IMMEDIATE-DEPENDENTS0 EXT . GCD-S-S0) (IMMEDIATE-DEPENDENTS0 PC-READ-MEM-MCODE1 . GCD-S-S0) (IMMEDIATE-DEPENDENTS0 W . GCD-S-S0) (IMMEDIATE-DEPENDENTS0 PC-READ-MEMP-ROM1 . GCD-S-S0) (IMMEDIATE-DEPENDENTS0 MC-MEM-REWRITE . GCD-S-S0) (IMMEDIATE-DEPENDENTS0 MC-PC-REWRITE . GCD-S-S0) (IMMEDIATE-DEPENDENTS0 ADD-NAT-RANGEP . GCD-S-S0) (IMMEDIATE-DEPENDENTS0 LINK_W-INS . GCD-S-S0) (IMMEDIATE-DEPENDENTS0 B0P . GCD-S-S0) (IMMEDIATE-DEPENDENTS0 BITN . GCD-S-S0) (IMMEDIATE-DEPENDENTS0 MISC-GROUP . GCD-S-S0) (IMMEDIATE-DEPENDENTS0 UPDATE-PC . GCD-S-S0) (IMMEDIATE-DEPENDENTS0 CURRENT-INS . GCD-S-S0) (IMMEDIATE-DEPENDENTS0 PC-READ-MEM-MCODE0 . GCD-S-S0) (IMMEDIATE-DEPENDENTS0 READ-LST . GCD-S-S0) (IMMEDIATE-DEPENDENTS0 LEN . GCD-S-S0) (IMMEDIATE-DEPENDENTS0 LST-NUMBERP . GCD-S-S0) (IMMEDIATE-DEPENDENTS0 PC-WORD-READ . GCD-S-S0) (IMMEDIATE-DEPENDENTS0 PC-WORD-READP . GCD-S-S0) (IMMEDIATE-DEPENDENTS0 WSZ . GCD-S-S0) (IMMEDIATE-DEPENDENTS0 PC-READ-MEMP-ROM0 . GCD-S-S0) (IMMEDIATE-DEPENDENTS0 STEPI . GCD-S-S0) (IMMEDIATE-DEPENDENTS0 EXT-SUBGROUP . GCD-S-S0) (IMMEDIATE-DEPENDENTS0 S_MODE . GCD-S-S0) (IMMEDIATE-DEPENDENTS0 READM-WRITE-RN . GCD-S-S0) (IMMEDIATE-DEPENDENTS0 N-MEMBER . GCD-S-S0) (IMMEDIATE-DEPENDENTS0 MOVEM-PRE-RNLST . GCD-S-S0) (IMMEDIATE-DEPENDENTS0 WRITEMP . GCD-S-S0) (IMMEDIATE-DEPENDENTS0 WRITE-MEM-MAINTAIN-WRITE-MEMP . GCD-S-S0) (IMMEDIATE-DEPENDENTS0 MOVEM-PREDEC . GCD-S-S0) (IMMEDIATE-DEPENDENTS0 READ-WRITE-RN . GCD-S-S0) (IMMEDIATE-DEPENDENTS0 HEAD-LEMMA . GCD-S-S0) (IMMEDIATE-DEPENDENTS0 OP-SZ . GCD-S-S0) (IMMEDIATE-DEPENDENTS0 B . GCD-S-S0) (IMMEDIATE-DEPENDENTS0 PRE-EFFECT . GCD-S-S0) (IMMEDIATE-DEPENDENTS0 WRITE-WRITE-RN . GCD-S-S0) (IMMEDIATE-DEPENDENTS0 MOVEM-LEN . GCD-S-S0) (IMMEDIATE-DEPENDENTS0 PREDEC-MODEP . GCD-S-S0) (IMMEDIATE-DEPENDENTS0 MOVEM-RN-EA-INS . GCD-S-S0) (IMMEDIATE-DEPENDENTS0 PC-READ-MEM-WRITE-MEM . GCD-S-S0) (IMMEDIATE-DEPENDENTS0 WRITE-MEM-MAINTAIN-PC-READ-MEMP . GCD-S-S0) (IMMEDIATE-DEPENDENTS0 ADD-EVENP . GCD-S-S0) (IMMEDIATE-DEPENDENTS0 EVENP . GCD-S-S0) (IMMEDIATE-DEPENDENTS0 MOVE-INS . GCD-S-S0) (IMMEDIATE-DEPENDENTS0 MOVE-ADDR-MODEP . GCD-S-S0) (IMMEDIATE-DEPENDENTS0 WRITEM-MEM-MAINTAIN-READ-MEMP . GCD-S-S0) (IMMEDIATE-DEPENDENTS0 WRITE-MEMP->READ-MEMP . GCD-S-S0) (IMMEDIATE-DEPENDENTS0 EFFEC-ADDR . GCD-S-S0) (IMMEDIATE-DEPENDENTS0 ADDR-DISP . GCD-S-S0) (IMMEDIATE-DEPENDENTS0 MC-INSTATE . GCD-S-S0) (IMMEDIATE-DEPENDENTS0 MC-HALTP . GCD-S-S0) (IMMEDIATE-DEPENDENTS0 READ-WRITEM-MEM . GCD-S-S0) (IMMEDIATE-DEPENDENTS0 READ-WRITE-MEM1 . GCD-S-S0) (IMMEDIATE-DEPENDENTS0 DISJOINT . GCD-S-S0) (IMMEDIATE-DEPENDENTS0 DISJOINT-DEDUCTION2 . GCD-S-S0) (IMMEDIATE-DEPENDENTS0 OPERAND . GCD-S-S0) (IMMEDIATE-DEPENDENTS0 MAPPING . GCD-S-S0) (IMMEDIATE-DEPENDENTS0 D-MAPPING . GCD-S-S0) (IMMEDIATE-DEPENDENTS0 MOVE-EFFECT . GCD-S-S0) (IMMEDIATE-DEPENDENTS0 B0 . GCD-S-S0) (IMMEDIATE-DEPENDENTS0 MOVE-CVZNX . GCD-S-S0) (IMMEDIATE-DEPENDENTS0 DN-DIRECT . GCD-S-S0) (IMMEDIATE-DEPENDENTS0 D_RN . GCD-S-S0) (IMMEDIATE-DEPENDENTS0 MOVE-MAPPING . GCD-S-S0) (IMMEDIATE-DEPENDENTS0 D_MODE . GCD-S-S0) (IMMEDIATE-DEPENDENTS0 MOVE-GROUP . GCD-S-S0) (IMMEDIATE-DEPENDENTS0 PC-READ-MEM-WRITEM-MEM . GCD-S-S0) (IMMEDIATE-DEPENDENTS0 READM-RN-LEN . GCD-S-S0) (IMMEDIATE-DEPENDENTS0 WRITEM-MEM-MAINTAIN-PC-READ-MEMP . GCD-S-S0) (IMMEDIATE-DEPENDENTS0 SET-SET-CVZNX1 . GCD-S-S0) (IMMEDIATE-DEPENDENTS0 SET-CVZNX-X . GCD-S-S0) (IMMEDIATE-DEPENDENTS0 SET-CVZNX-NAT-RANGEP . GCD-S-S0) (IMMEDIATE-DEPENDENTS0 STEPN-REWRITER0 . GCD-S-S0) (IMMEDIATE-DEPENDENTS0 STEPN-REWRITER . GCD-S-S0) (IMMEDIATE-DEPENDENTS0 IREAD-DN . GCD-S-S0) (IMMEDIATE-DEPENDENTS0 READ-MEM-NAT-RANGEP . GCD-S-S0) (IMMEDIATE-DEPENDENTS0 READ-DN . GCD-S-S0) (IMMEDIATE-DEPENDENTS0 WRITEM-MEM-MAINTAIN-RAM-ADDRP . GCD-S-S0) (IMMEDIATE-DEPENDENTS0 WRITE-MEM-MAINTAIN-RAM-ADDRP . GCD-S-S0) (IMMEDIATE-DEPENDENTS0 RAM-ADDRP-3 . GCD-S-S0) (IMMEDIATE-DEPENDENTS0 WRITEM-MEM-MCODE-ADDRP . GCD-S-S0) (IMMEDIATE-DEPENDENTS0 WRITE-MEM-MCODE-ADDRP . GCD-S-S0) (IMMEDIATE-DEPENDENTS0 WRITEM-MEM-MAINTAIN-ROM-ADDRP . GCD-S-S0) (IMMEDIATE-DEPENDENTS0 WRITE-MEM-MAINTAIN-ROM-ADDRP . GCD-S-S0) (IMMEDIATE-DEPENDENTS0 ROM-ADDRP-LA2 . GCD-S-S0) (IMMEDIATE-DEPENDENTS0 INDEX-N-X-X . GCD-S-S0) (IMMEDIATE-DEPENDENTS0 ADD-0 . GCD-S-S0) (IMMEDIATE-DEPENDENTS0 MC-PC-RANGEP . GCD-S-S0) (IMMEDIATE-DEPENDENTS0 DISJOINT-DEDUCTION1 . GCD-S-S0) (IMMEDIATE-DEPENDENTS0 HEAD-READ-RN . GCD-S-S0) (IMMEDIATE-DEPENDENTS0 READ-WRITE-MEM2 . GCD-S-S0) (IMMEDIATE-DEPENDENTS0 UINT-RANGEP . GCD-S-S0) (IMMEDIATE-DEPENDENTS0 READM-WRITEM-MEM . GCD-S-S0) (IMMEDIATE-DEPENDENTS0 MODN-READM-RN . GCD-S-S0) (IMMEDIATE-DEPENDENTS0 GCD-CODE . GCD-S-S0) (IMMEDIATE-DEPENDENTS0 SP . GCD-S-S0) (IMMEDIATE-DEPENDENTS0 L . GCD-S-S0) (IMMEDIATE-DEPENDENTS0 READM-RN . GCD-S-S0) (IMMEDIATE-DEPENDENTS0 MOVEM-SAVED . GCD-S-S0) (IMMEDIATE-DEPENDENTS0 READ-SP . GCD-S-S0) (IMMEDIATE-DEPENDENTS0 SUB . GCD-S-S0) (IMMEDIATE-DEPENDENTS0 MC-RFILE . GCD-S-S0) (IMMEDIATE-DEPENDENTS0 READ-RN . GCD-S-S0) (IMMEDIATE-DEPENDENTS0 READ-AN . GCD-S-S0) (IMMEDIATE-DEPENDENTS0 LINKED-A6 . GCD-S-S0) (IMMEDIATE-DEPENDENTS0 RTS-ADDR . GCD-S-S0) (IMMEDIATE-DEPENDENTS0 LINKED-RTS-ADDR . GCD-S-S0) (IMMEDIATE-DEPENDENTS0 STEPN . GCD-S-S0) (IMMEDIATE-DEPENDENTS0 GCD-S0P . GCD-S-S0) (IMMEDIATE-DEPENDENTS0 GCD-STATEP . GCD-S-S0) (LEMMAS MOVEM-SAVED . GCD-S-S0) (LEMMAS READ-RN . GCD-S-S0) (LEMMAS LINKED-A6 . GCD-S-S0) (LEMMAS LINKED-RTS-ADDR . GCD-S-S0) (LEMMAS GCD-S0P . GCD-S-S0))))) (PUT1-LST (QUOTE *1*GCD-S0P) (QUOTE (MAIN-EVENT GCD-S0P))) (PUT1-LST (QUOTE GCD-S0P) (QUOTE (TYPE-PRESCRIPTION-LST ((GCD-S0P 3 NIL NIL NIL)) LEMMAS ((REWRITE-RULE GCD-S0-S0-2 ((GCD-S0P S A B) (NUMBERP A) (NOT (EQUAL A (QUOTE 0))) (NUMBERP B) (NOT (EQUAL B (QUOTE 0))) (NOT (LESSP B A))) (GCD-S0P (STEPN S (QUOTE 9)) A (REMAINDER B A)) NIL) (REWRITE-RULE GCD-S0-S0-1 ((GCD-S0P S A B) (NUMBERP A) (NOT (EQUAL A (QUOTE 0))) (NUMBERP B) (NOT (EQUAL B (QUOTE 0))) (LESSP B A)) (GCD-S0P (STEPN S (QUOTE 9)) (REMAINDER A B) B) NIL) (REWRITE-RULE GCD-S-S0 ((GCD-STATEP S A B)) (GCD-S0P (STEPN S (QUOTE 4)) A B) NIL)) TOTALP-LST ((GCD-S0P . T)) SDEFN (LAMBDA (S A B) (IF (EQUAL (MC-STATUS S) (QUOTE RUNNING)) (IF (EVENP (MC-PC S)) (IF (ROM-ADDRP (SUB (QUOTE 32) (QUOTE 16) (MC-PC S)) (MC-MEM S) (QUOTE 60)) (IF (MCODE-ADDRP (SUB (QUOTE 32) (QUOTE 16) (MC-PC S)) (MC-MEM S) (GCD-CODE)) (IF (RAM-ADDRP (SUB (QUOTE 32) (QUOTE 8) (READ-AN (QUOTE 32) (QUOTE 6) S)) (MC-MEM S) (QUOTE 24)) (IF (EQUAL A (IREAD-DN (QUOTE 32) (QUOTE 2) S)) (IF (EQUAL B (IREAD-DN (QUOTE 32) (QUOTE 3) S)) (IF (NUMBERP A) (NUMBERP B) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE))) LISP-CODE *1*GCD-S0P SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402215251 SATELLITES (*1*GCD-S0P) IMMEDIATE-DEPENDENTS0 (GCD-S0-SN-RFILE GCD-S0-SN GCD-S0-S0-RFILE-2 GCD-S0-S0-RFILE-1 GCD-S0-S0-2 GCD-S0-S0-1 GCD-S0-SN-BASE-RFILE-2 GCD-S0-SN-BASE-2 GCD-S0-SN-BASE-RFILE-1 GCD-S0-SN-BASE-1 GCD-S-S0) EVENT (DEFN GCD-S0P (S A B) (AND (EQUAL (MC-STATUS S) (QUOTE RUNNING)) (AND (EVENP (MC-PC S)) (AND (ROM-ADDRP (SUB (QUOTE 32) (QUOTE 16) (MC-PC S)) (MC-MEM S) (QUOTE 60)) (AND (MCODE-ADDRP (SUB (QUOTE 32) (QUOTE 16) (MC-PC S)) (MC-MEM S) (GCD-CODE)) (AND (RAM-ADDRP (SUB (QUOTE 32) (QUOTE 8) (READ-AN (QUOTE 32) (QUOTE 6) S)) (MC-MEM S) (QUOTE 24)) (AND (EQUAL A (IREAD-DN (QUOTE 32) (QUOTE 2) S)) (AND (EQUAL B (IREAD-DN (QUOTE 32) (QUOTE 3) S)) (AND (NUMBERP A) (NUMBERP B)))))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IREAD-DN . GCD-S0P) (IMMEDIATE-DEPENDENTS0 READ-AN . GCD-S0P) (IMMEDIATE-DEPENDENTS0 RAM-ADDRP . GCD-S0P) (IMMEDIATE-DEPENDENTS0 GCD-CODE . GCD-S0P) (IMMEDIATE-DEPENDENTS0 MCODE-ADDRP . GCD-S0P) (IMMEDIATE-DEPENDENTS0 MC-MEM . GCD-S0P) (IMMEDIATE-DEPENDENTS0 SUB . GCD-S0P) (IMMEDIATE-DEPENDENTS0 ROM-ADDRP . GCD-S0P) (IMMEDIATE-DEPENDENTS0 MC-PC . GCD-S0P) (IMMEDIATE-DEPENDENTS0 EVENP . GCD-S0P) (IMMEDIATE-DEPENDENTS0 MC-STATUS . GCD-S0P) (DCELL . *1*GCD-S0P))))) (PUT1-LST (QUOTE *1*GCD-STATEP) (QUOTE (MAIN-EVENT GCD-STATEP))) (PUT1-LST (QUOTE GCD-STATEP) (QUOTE (TYPE-PRESCRIPTION-LST ((GCD-STATEP 3 NIL NIL NIL)) TOTALP-LST ((GCD-STATEP . T)) SDEFN (LAMBDA (S A B) (IF (EQUAL (MC-STATUS S) (QUOTE RUNNING)) (IF (EVENP (MC-PC S)) (IF (ROM-ADDRP (MC-PC S) (MC-MEM S) (QUOTE 60)) (IF (MCODE-ADDRP (MC-PC S) (MC-MEM S) (GCD-CODE)) (IF (RAM-ADDRP (SUB (QUOTE 32) (QUOTE 12) (READ-SP S)) (MC-MEM S) (QUOTE 24)) (IF (EQUAL A (IREAD-MEM (ADD (QUOTE 32) (READ-SP S) (QUOTE 4)) (MC-MEM S) (QUOTE 4))) (IF (EQUAL B (IREAD-MEM (ADD (QUOTE 32) (READ-SP S) (QUOTE 8)) (MC-MEM S) (QUOTE 4))) (IF (NUMBERP A) (NUMBERP B) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE))) LISP-CODE *1*GCD-STATEP SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402215251 SATELLITES (*1*GCD-STATEP) IMMEDIATE-DEPENDENTS0 (GCD-CORRECTNESS GCD-S-S0-MEM GCD-S-S0-RFILE GCD-S-S0) EVENT (DEFN GCD-STATEP (S A B) (AND (EQUAL (MC-STATUS S) (QUOTE RUNNING)) (AND (EVENP (MC-PC S)) (AND (ROM-ADDRP (MC-PC S) (MC-MEM S) (QUOTE 60)) (AND (MCODE-ADDRP (MC-PC S) (MC-MEM S) (GCD-CODE)) (AND (RAM-ADDRP (SUB (QUOTE 32) (QUOTE 12) (READ-SP S)) (MC-MEM S) (QUOTE 24)) (AND (EQUAL A (IREAD-MEM (ADD (QUOTE 32) (READ-SP S) (QUOTE 4)) (MC-MEM S) (QUOTE 4))) (AND (EQUAL B (IREAD-MEM (ADD (QUOTE 32) (READ-SP S) (QUOTE 8)) (MC-MEM S) (QUOTE 4))) (AND (NUMBERP A) (NUMBERP B)))))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ADD . GCD-STATEP) (IMMEDIATE-DEPENDENTS0 IREAD-MEM . GCD-STATEP) (IMMEDIATE-DEPENDENTS0 READ-SP . GCD-STATEP) (IMMEDIATE-DEPENDENTS0 SUB . GCD-STATEP) (IMMEDIATE-DEPENDENTS0 RAM-ADDRP . GCD-STATEP) (IMMEDIATE-DEPENDENTS0 GCD-CODE . GCD-STATEP) (IMMEDIATE-DEPENDENTS0 MCODE-ADDRP . GCD-STATEP) (IMMEDIATE-DEPENDENTS0 MC-MEM . GCD-STATEP) (IMMEDIATE-DEPENDENTS0 ROM-ADDRP . GCD-STATEP) (IMMEDIATE-DEPENDENTS0 MC-PC . GCD-STATEP) (IMMEDIATE-DEPENDENTS0 EVENP . GCD-STATEP) (IMMEDIATE-DEPENDENTS0 MC-STATUS . GCD-STATEP) (DCELL . *1*GCD-STATEP))))) (PUT1-LST (QUOTE *1*GCD-INDUCT) (QUOTE (MAIN-EVENT GCD-INDUCT))) (PUT1-LST (QUOTE GCD-INDUCT) (QUOTE (TYPE-PRESCRIPTION-LST ((GCD-INDUCT 2 NIL NIL NIL)) TOTALP-LST ((GCD-INDUCT . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE QUESTIONABLE QUESTIONABLE) SDEFN (LAMBDA (S A B) (IF (EQUAL A (QUOTE 0)) (QUOTE *1*TRUE) (IF (NUMBERP A) (IF (EQUAL B (QUOTE 0)) (QUOTE *1*TRUE) (IF (NUMBERP B) (IF (LESSP B A) (GCD-INDUCT (STEPN S (QUOTE 9)) (REMAINDER A B) B) (GCD-INDUCT (STEPN S (QUOTE 9)) A (REMAINDER B A))) (QUOTE *1*TRUE))) (QUOTE *1*TRUE)))) LISP-CODE *1*GCD-INDUCT SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((OR (ZEROP A) (ZEROP B))) NIL) (TESTS-AND-CASES ((NOT (OR (ZEROP A) (ZEROP B))) (LESSP B A)) (((STEPN S (QUOTE 9)) (REMAINDER A B) B))) (TESTS-AND-CASES ((NOT (OR (ZEROP A) (ZEROP B))) (NOT (LESSP B A))) (((STEPN S (QUOTE 9)) A (REMAINDER B A))))) LEVEL-NO 8 JUSTIFICATIONS ((JUSTIFICATION (B A) (PLUS A B) LESSP (ZERO REMAINDER-LESSP-LINEAR ZEROP OR PLUS-COMMUTATIVITY CORRECTNESS-OF-CANCEL-LESSP-PLUS FIX))) IDATE 1000402215251 CONTROLLER-POCKETS (6) SATELLITES (*1*GCD-INDUCT) IMMEDIATE-DEPENDENTS0 (GCD-S0-SN-RFILE GCD-S0-SN) EVENT (DEFN GCD-INDUCT (S A B) (IF (OR (ZEROP A) (ZEROP B)) (QUOTE *1*TRUE) (IF (LESSP B A) (GCD-INDUCT (STEPN S (QUOTE 9)) (REMAINDER A B) B) (GCD-INDUCT (STEPN S (QUOTE 9)) A (REMAINDER B A)))) ((LESSP (PLUS A B)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 STEPN . GCD-INDUCT) (IMMEDIATE-DEPENDENTS0 REMAINDER-LESSP-LINEAR . GCD-INDUCT) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . GCD-INDUCT) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-LESSP-PLUS . GCD-INDUCT) (DCELL . *1*GCD-INDUCT))))) (PUT1-LST (QUOTE *1*GCD-T) (QUOTE (MAIN-EVENT GCD-T))) (PUT1-LST (QUOTE GCD-T) (QUOTE (TYPE-PRESCRIPTION-LST ((GCD-T 4 NIL NIL)) TOTALP-LST ((GCD-T . T)) SDEFN (LAMBDA (A B) (SPLUS (QUOTE 4) (GCD-T1 A B))) LISP-CODE *1*GCD-T SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402215251 SATELLITES (*1*GCD-T) IMMEDIATE-DEPENDENTS0 (GCD-T-UBOUND GCD-T-UB GCD-T-OFF GCD-CORRECTNESS) EVENT (DEFN GCD-T (A B) (SPLUS (QUOTE 4) (GCD-T1 A B))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 GCD-T1 . GCD-T) (IMMEDIATE-DEPENDENTS0 SPLUS . GCD-T) (DCELL . *1*GCD-T))))) (PUT1-LST (QUOTE *1*GCD-T1) (QUOTE (MAIN-EVENT GCD-T1))) (PUT1-LST (QUOTE GCD-T1) (QUOTE (TYPE-PRESCRIPTION-LST ((GCD-T1 4 NIL NIL)) LEMMAS ((REWRITE-RULE GCD-T1-T2 NIL (EQUAL (GCD-T1 A B) (GCD-T2 A B)) NIL)) TOTALP-LST ((GCD-T1 . T)) QUICK-BLOCK-INFO (QUESTIONABLE QUESTIONABLE) SDEFN (LAMBDA (A B) (IF (EQUAL A (QUOTE 0)) (QUOTE 6) (IF (NUMBERP A) (IF (EQUAL B (QUOTE 0)) (QUOTE 9) (IF (NUMBERP B) (IF (LESSP B A) (SPLUS (QUOTE 9) (GCD-T1 (REMAINDER A B) B)) (SPLUS (QUOTE 9) (GCD-T1 A (REMAINDER B A)))) (QUOTE 9))) (QUOTE 6)))) LISP-CODE *1*GCD-T1 SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((ZEROP A)) NIL) (TESTS-AND-CASES ((NOT (ZEROP A)) (ZEROP B)) NIL) (TESTS-AND-CASES ((NOT (ZEROP A)) (NOT (ZEROP B)) (LESSP B A)) (((REMAINDER A B) B))) (TESTS-AND-CASES ((NOT (ZEROP A)) (NOT (ZEROP B)) (NOT (LESSP B A))) ((A (REMAINDER B A))))) LEVEL-NO 3 JUSTIFICATIONS ((JUSTIFICATION (B A) (PLUS A B) LESSP (ZERO REMAINDER-LESSP-LINEAR ZEROP PLUS-COMMUTATIVITY CORRECTNESS-OF-CANCEL-LESSP-PLUS FIX))) IDATE 1000402215251 CONTROLLER-POCKETS (3) SATELLITES (*1*GCD-T1) IMMEDIATE-DEPENDENTS0 (GCD-T1-T2 GCD-S0-SN-RFILE GCD-S0-SN GCD-T) EVENT (DEFN GCD-T1 (A B) (IF (ZEROP A) (QUOTE 6) (IF (ZEROP B) (QUOTE 9) (IF (LESSP B A) (SPLUS (QUOTE 9) (GCD-T1 (REMAINDER A B) B)) (SPLUS (QUOTE 9) (GCD-T1 A (REMAINDER B A)))))) ((LESSP (PLUS A B)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SPLUS . GCD-T1) (IMMEDIATE-DEPENDENTS0 REMAINDER-LESSP-LINEAR . GCD-T1) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . GCD-T1) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-LESSP-PLUS . GCD-T1) (DCELL . *1*GCD-T1))))) (PUT1-LST (QUOTE *1*GCD) (QUOTE (MAIN-EVENT GCD))) (PUT1-LST (QUOTE GCD) (QUOTE (TYPE-PRESCRIPTION-LST ((GCD 4 NIL NIL)) TOTALP-LST ((GCD . T)) LINEAR-LEMMAS ((LINEAR-LEMMA GCD-THE-GREATEST ((NUMBERP A) (NOT (EQUAL A (QUOTE 0))) (NUMBERP B) (NOT (EQUAL B (QUOTE 0))) (EQUAL (REMAINDER A X) (QUOTE 0)) (EQUAL (REMAINDER B X) (QUOTE 0))) (NOT (LESSP (GCD A B) X)) (GCD A B))) QUICK-BLOCK-INFO (QUESTIONABLE QUESTIONABLE) SDEFN (LAMBDA (A B) (IF (EQUAL A (QUOTE 0)) (IF (NUMBERP B) B (QUOTE 0)) (IF (NUMBERP A) (IF (EQUAL B (QUOTE 0)) A (IF (NUMBERP B) (IF (LESSP B A) (GCD (REMAINDER A B) B) (GCD A (REMAINDER B A))) A)) (IF (NUMBERP B) B (QUOTE 0))))) LISP-CODE *1*GCD SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((ZEROP A)) NIL) (TESTS-AND-CASES ((NOT (ZEROP A)) (ZEROP B)) NIL) (TESTS-AND-CASES ((NOT (ZEROP A)) (NOT (ZEROP B)) (LESSP B A)) (((REMAINDER A B) B))) (TESTS-AND-CASES ((NOT (ZEROP A)) (NOT (ZEROP B)) (NOT (LESSP B A))) ((A (REMAINDER B A))))) LEVEL-NO 3 JUSTIFICATIONS ((JUSTIFICATION (B A) (PLUS A B) LESSP (ZERO REMAINDER-LESSP-LINEAR ZEROP PLUS-COMMUTATIVITY CORRECTNESS-OF-CANCEL-LESSP-PLUS FIX))) IDATE 1000402215251 CONTROLLER-POCKETS (3) SATELLITES (*1*GCD) IMMEDIATE-DEPENDENTS0 (GCD-THE-GREATEST GCD-IS-CD GCD-CORRECTNESS GCD-S0-SN) EVENT (DEFN GCD (A B) (IF (ZEROP A) (FIX B) (IF (ZEROP B) A (IF (LESSP B A) (GCD (REMAINDER A B) B) (GCD A (REMAINDER B A))))) ((LESSP (PLUS A B)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-LESSP-LINEAR . GCD) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . GCD) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-LESSP-PLUS . GCD) (DCELL . *1*GCD))))) (PUT1-LST (QUOTE STEPN-GCD-LOADP) (QUOTE (IDATE 1000402215251 EVENT (PROVE-LEMMA STEPN-GCD-LOADP (REWRITE) (EQUAL (GCD-LOADP (STEPN S N)) (GCD-LOADP S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 STEPN-ROM-ADDRP . STEPN-GCD-LOADP) (IMMEDIATE-DEPENDENTS0 GCD-CODE . STEPN-GCD-LOADP) (IMMEDIATE-DEPENDENTS0 ROM-ADDRP-LA2 . STEPN-GCD-LOADP) (IMMEDIATE-DEPENDENTS0 INDEX-N-X-X . STEPN-GCD-LOADP) (IMMEDIATE-DEPENDENTS0 LEN . STEPN-GCD-LOADP) (IMMEDIATE-DEPENDENTS0 STEPN-MCODE-ADDRP . STEPN-GCD-LOADP) (IMMEDIATE-DEPENDENTS0 GCD-LOAD . STEPN-GCD-LOADP) (IMMEDIATE-DEPENDENTS0 STEPN . STEPN-GCD-LOADP) (LEMMAS GCD-LOADP . STEPN-GCD-LOADP))))) (PUT1-LST (QUOTE *1*GCD-ADDR) (QUOTE (MAIN-EVENT GCD-LOAD))) (PUT1-LST (QUOTE GCD-ADDR) (QUOTE (TYPE-PRESCRIPTION-LST ((GCD-ADDR -1)) TOTALP-LST ((GCD-ADDR)) LISP-CODE *1*GCD-ADDR ERRATICP T LEVEL-NO 0 MAIN-EVENT GCD-LOAD))) (PUT1-LST (QUOTE *1*GCD-LOADP) (QUOTE (MAIN-EVENT GCD-LOAD))) (PUT1-LST (QUOTE GCD-LOADP) (QUOTE (TYPE-PRESCRIPTION-LST ((GCD-LOADP -1 NIL)) LEMMAS ((REWRITE-RULE STEPN-GCD-LOADP NIL (EQUAL (GCD-LOADP (STEPN S N)) (GCD-LOADP S)) NIL) (REWRITE-RULE GCD-LOAD NIL (EQUAL (GCD-LOADP S) (IF (EVENP (GCD-ADDR)) (IF (NUMBERP (GCD-ADDR)) (IF (NAT-RANGEP (GCD-ADDR) (QUOTE 32)) (IF (ROM-ADDRP (GCD-ADDR) (MC-MEM S) (QUOTE 60)) (MCODE-ADDRP (GCD-ADDR) (MC-MEM S) (GCD-CODE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE))) NIL)) TOTALP-LST ((GCD-LOADP)) LISP-CODE *1*GCD-LOADP ERRATICP T LEVEL-NO 0 MAIN-EVENT GCD-LOAD))) (PUT1-LST (QUOTE GCD-LOAD) (QUOTE (IDATE 1000402215251 SATELLITES (*1*GCD-ADDR GCD-ADDR *1*GCD-LOADP GCD-LOADP) IMMEDIATE-DEPENDENTS0 (STEPN-GCD-LOADP) EVENT (CONSTRAIN GCD-LOAD (REWRITE) (EQUAL (GCD-LOADP S) (AND (EVENP (GCD-ADDR)) (AND (NUMBERP (GCD-ADDR)) (AND (NAT-RANGEP (GCD-ADDR) (QUOTE 32)) (AND (ROM-ADDRP (GCD-ADDR) (MC-MEM S) (QUOTE 60)) (MCODE-ADDRP (GCD-ADDR) (MC-MEM S) (GCD-CODE))))))) ((GCD-LOADP (LAMBDA (S) (QUOTE *1*FALSE))) (GCD-ADDR (LAMBDA NIL (QUOTE 1)))) NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 GCD-CODE . GCD-LOAD) (IMMEDIATE-DEPENDENTS0 MCODE-ADDRP . GCD-LOAD) (IMMEDIATE-DEPENDENTS0 MC-MEM . GCD-LOAD) (IMMEDIATE-DEPENDENTS0 ROM-ADDRP . GCD-LOAD) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . GCD-LOAD) (IMMEDIATE-DEPENDENTS0 EVENP . GCD-LOAD) (DCELL . *1*GCD-ADDR) (DCELL . *1*GCD-LOADP))))) (PUT1-LST (QUOTE *1*GCD-CODE) (QUOTE (MAIN-EVENT GCD-CODE))) (PUT1-LST (QUOTE GCD-CODE) (QUOTE (TYPE-PRESCRIPTION-LST ((GCD-CODE 16)) TOTALP-LST ((GCD-CODE . T)) SDEFN (LAMBDA NIL (QUOTE (78 86 0 0 72 231 48 0 36 46 0 8 38 46 0 12 74 130 103 28 74 131 102 4 32 2 96 22 182 130 108 8 76 67 40 0 36 0 96 232 76 66 56 0 38 0 96 224 32 3 76 238 0 12 255 248 78 94 78 117))) LISP-CODE *1*GCD-CODE SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402215251 SATELLITES (*1*GCD-CODE) IMMEDIATE-DEPENDENTS0 (GCD-S0-S0-RFILE-2 GCD-S0-S0-RFILE-1 GCD-S0-S0-2 GCD-S0-S0-1 GCD-S0-SN-BASE-RFILE-2 GCD-S0-SN-BASE-2 GCD-S0-SN-BASE-RFILE-1 GCD-S0-SN-BASE-1 GCD-S-S0-MEM GCD-S-S0-RFILE GCD-S-S0 GCD-S0P GCD-STATEP STEPN-GCD-LOADP GCD-LOAD) EVENT (DEFN GCD-CODE NIL (QUOTE (78 86 0 0 72 231 48 0 36 46 0 8 38 46 0 12 74 130 103 28 74 131 102 4 32 2 96 22 182 130 108 8 76 67 40 0 36 0 96 232 76 66 56 0 38 0 96 224 32 3 76 238 0 12 255 248 78 94 78 117))) LOCAL-UNDO-TUPLES ((DCELL . *1*GCD-CODE))))) (PUT1-LST (QUOTE AND-Z-COMMUTATIVITY) (QUOTE (IDATE 1000402215105 EVENT (PROVE-LEMMA AND-Z-COMMUTATIVITY (REWRITE) (EQUAL (AND-Z N X Y) (AND-Z N Y X)) ((ENABLE AND-Z))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B0 . AND-Z-COMMUTATIVITY) (IMMEDIATE-DEPENDENTS0 B1 . AND-Z-COMMUTATIVITY) (IMMEDIATE-DEPENDENTS0 LOGAND-COMMUTATIVITY . AND-Z-COMMUTATIVITY) (IMMEDIATE-DEPENDENTS0 AND-Z . AND-Z-COMMUTATIVITY) (LEMMAS AND-Z . AND-Z-COMMUTATIVITY))))) (PUT1-LST (QUOTE RAM-ADDRP-4) (QUOTE (IDATE 1000402215105 EVENT (PROVE-LEMMA RAM-ADDRP-4 (REWRITE) (IMPLIES (AND (RAM-ADDRP ADDR MEM K) (IF (LESSP K (PLUS (NAT-TO-UINT H) J)) (QUOTE *1*FALSE) (QUOTE *1*TRUE))) (RAM-ADDRP (ADD (QUOTE 32) ADDR H) MEM J)) ((ENABLE NAT-TO-UINT))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . RAM-ADDRP-4) (IMMEDIATE-DEPENDENTS0 HEAD-LEQ . RAM-ADDRP-4) (IMMEDIATE-DEPENDENTS0 INDEX-N-DEDUCTION1 . RAM-ADDRP-4) (IMMEDIATE-DEPENDENTS0 INDEX-N-0 . RAM-ADDRP-4) (IMMEDIATE-DEPENDENTS0 RAM-ADDRP-LA2 . RAM-ADDRP-4) (IMMEDIATE-DEPENDENTS0 ADD . RAM-ADDRP-4) (IMMEDIATE-DEPENDENTS0 NAT-TO-UINT . RAM-ADDRP-4) (IMMEDIATE-DEPENDENTS0 RAM-ADDRP . RAM-ADDRP-4) (LEMMAS RAM-ADDRP . RAM-ADDRP-4))))) (PUT1-LST (QUOTE RAM-ADDRP-3) (QUOTE (IDATE 1000402215105 IMMEDIATE-DEPENDENTS0 (GCD-S0-S0-2 GCD-S0-S0-1 GCD-S-S0) EVENT (PROVE-LEMMA RAM-ADDRP-3 (REWRITE) (IMPLIES (AND (RAM-ADDRP (ADD (QUOTE 32) ADDR I) MEM K) (IF (LESSP K (PLUS (INDEX-N H I) J)) (QUOTE *1*FALSE) (QUOTE *1*TRUE))) (RAM-ADDRP (ADD (QUOTE 32) ADDR H) MEM J))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . RAM-ADDRP-3) (IMMEDIATE-DEPENDENTS0 INDEX-N-DEDUCTION2 . RAM-ADDRP-3) (IMMEDIATE-DEPENDENTS0 RAM-ADDRP-LA2 . RAM-ADDRP-3) (IMMEDIATE-DEPENDENTS0 INDEX-N . RAM-ADDRP-3) (IMMEDIATE-DEPENDENTS0 ADD . RAM-ADDRP-3) (IMMEDIATE-DEPENDENTS0 RAM-ADDRP . RAM-ADDRP-3) (LEMMAS RAM-ADDRP . RAM-ADDRP-3))))) (PUT1-LST (QUOTE ADD-UINTXXX-OFF) (QUOTE (IDATE 1000402215105 EVENT (TOGGLE ADD-UINTXXX-OFF ADD-UINTXXX T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ADD-UINTXXX . ADD-UINTXXX-OFF) (DISABLED-LEMMAS NIL ADD-UINTXXX ADD-UINTXXX-OFF . T))))) (PUT1-LST (QUOTE ADD-UINTXXX) (QUOTE (IDATE 1000402215105 IMMEDIATE-DEPENDENTS0 (ADD-UINTXXX-OFF) EVENT (PROVE-LEMMA ADD-UINTXXX (REWRITE) (IMPLIES (AND (NAT-RANGEP X N) (AND (NAT-RANGEP Y N) (NOT (LESSP (PLUS (NAT-TO-UINT X) (NAT-TO-UINT Y)) (EXP (QUOTE 2) N))))) (EQUAL (NAT-TO-UINT (ADD N X Y)) (DIFFERENCE (PLUS (NAT-TO-UINT X) (NAT-TO-UINT Y)) (EXP (QUOTE 2) N))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ADD-UINT . ADD-UINTXXX) (IMMEDIATE-DEPENDENTS0 ADD . ADD-UINTXXX) (IMMEDIATE-DEPENDENTS0 EXP . ADD-UINTXXX) (IMMEDIATE-DEPENDENTS0 NAT-TO-UINT . ADD-UINTXXX) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . ADD-UINTXXX) (LEMMAS NAT-TO-UINT . ADD-UINTXXX))))) (PUT1-LST (QUOTE ADD-UINTXX) (QUOTE (IDATE 1000402215105 EVENT (PROVE-LEMMA ADD-UINTXX (REWRITE) (IMPLIES (AND (NAT-RANGEP X N) (AND (NAT-RANGEP Y N) (LESSP (PLUS (NAT-TO-UINT X) (NAT-TO-UINT Y)) (EXP (QUOTE 2) N)))) (EQUAL (NAT-TO-UINT (ADD N X Y)) (PLUS (NAT-TO-UINT X) (NAT-TO-UINT Y))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ADD-UINT . ADD-UINTXX) (IMMEDIATE-DEPENDENTS0 ADD . ADD-UINTXX) (IMMEDIATE-DEPENDENTS0 EXP . ADD-UINTXX) (IMMEDIATE-DEPENDENTS0 NAT-TO-UINT . ADD-UINTXX) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . ADD-UINTXX) (LEMMAS NAT-TO-UINT . ADD-UINTXX))))) (PUT1-LST (QUOTE DIFFERENCE-LESSP-CANCEL-2) (QUOTE (IDATE 1000402215105 EVENT (PROVE-LEMMA DIFFERENCE-LESSP-CANCEL-2 (REWRITE) (IMPLIES (IF (LESSP A C) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (EQUAL (LESSP (DIFFERENCE A C) (PLUS D (TIMES C (SUB1 B)))) (IF (ZEROP B) (LESSP (DIFFERENCE A C) D) (LESSP A (PLUS D (TIMES C B)))))) ((USE (DIFFERENCE-LESSP-CANCEL (B (PLUS D (TIMES C B))))) (DISABLE DIFFERENCE-LESSP-CANCEL))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-ADD1 . DIFFERENCE-LESSP-CANCEL-2) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY1 . DIFFERENCE-LESSP-CANCEL-2) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS . DIFFERENCE-LESSP-CANCEL-2) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . DIFFERENCE-LESSP-CANCEL-2) (IMMEDIATE-DEPENDENTS0 PLUS-0 . DIFFERENCE-LESSP-CANCEL-2) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . DIFFERENCE-LESSP-CANCEL-2) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . DIFFERENCE-LESSP-CANCEL-2) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-LESSP-CANCEL . DIFFERENCE-LESSP-CANCEL-2) (LEMMAS LESSP . DIFFERENCE-LESSP-CANCEL-2))))) (PUT1-LST (QUOTE DIFFERENCE-LESSP-CANCEL-1) (QUOTE (IDATE 1000402215105 EVENT (PROVE-LEMMA DIFFERENCE-LESSP-CANCEL-1 (REWRITE) (EQUAL (LESSP (DIFFERENCE A C) (TIMES C (SUB1 B))) (IF (IF (LESSP A C) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (LESSP A (TIMES C B)) (LESSP (QUOTE 1) B))) ((USE (DIFFERENCE-LESSP-CANCEL (B (TIMES C B)))) (DISABLE DIFFERENCE-LESSP-CANCEL))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIFFERENCE=0 . DIFFERENCE-LESSP-CANCEL-1) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-LESSP-TIMES . DIFFERENCE-LESSP-CANCEL-1) (IMMEDIATE-DEPENDENTS0 TIMES-ADD1 . DIFFERENCE-LESSP-CANCEL-1) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS . DIFFERENCE-LESSP-CANCEL-1) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . DIFFERENCE-LESSP-CANCEL-1) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . DIFFERENCE-LESSP-CANCEL-1) (IMMEDIATE-DEPENDENTS0 TIMES-LESSP . DIFFERENCE-LESSP-CANCEL-1) (IMMEDIATE-DEPENDENTS0 SUB1-OF-1 . DIFFERENCE-LESSP-CANCEL-1) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . DIFFERENCE-LESSP-CANCEL-1) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-LESSP-CANCEL . DIFFERENCE-LESSP-CANCEL-1) (LEMMAS LESSP . DIFFERENCE-LESSP-CANCEL-1))))) (PUT1-LST (QUOTE DIFFERENCE-CANCEL-4294967292) (QUOTE (IDATE 1000402215105 EVENT (PROVE-LEMMA DIFFERENCE-CANCEL-4294967292 (REWRITE) (EQUAL (DIFFERENCE (PLUS (QUOTE 4294967292) X) (QUOTE 4294967296)) (DIFFERENCE X (QUOTE 4)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-CANCEL-4294967292 . DIFFERENCE-CANCEL-4294967292) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . DIFFERENCE-CANCEL-4294967292) (LEMMAS DIFFERENCE . DIFFERENCE-CANCEL-4294967292))))) (PUT1-LST (QUOTE LESSP-CANCEL-4294967292) (QUOTE (IDATE 1000402215105 IMMEDIATE-DEPENDENTS0 (DIFFERENCE-CANCEL-4294967292) EVENT (PROVE-LEMMA LESSP-CANCEL-4294967292 (REWRITE) (EQUAL (LESSP (PLUS (QUOTE 4294967292) X) (QUOTE 4294967296)) (LESSP X (QUOTE 4))) ((USE (PLUS-LESSP-CANCEL-1 (X (QUOTE 4294967292)) (Y X) (Z (QUOTE 4)))) (DISABLE PLUS-LESSP-CANCEL-1))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-LESSP-CANCEL-1 . LESSP-CANCEL-4294967292) (LEMMAS LESSP . LESSP-CANCEL-4294967292))))) (PUT1-LST (QUOTE DIFFERENCE-CANCEL-4294967295) (QUOTE (IDATE 1000402215105 EVENT (PROVE-LEMMA DIFFERENCE-CANCEL-4294967295 (REWRITE) (EQUAL (DIFFERENCE (PLUS (QUOTE 4294967295) X) (QUOTE 4294967296)) (SUB1 X)) ((USE (DIFFERENCE-PLUS-CANCEL-ADD1 (Y (QUOTE 4294967295)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIFFERENCE-PLUS-CANCEL-ADD1 . DIFFERENCE-CANCEL-4294967295) (LEMMAS DIFFERENCE . DIFFERENCE-CANCEL-4294967295))))) (PUT1-LST (QUOTE LESSP-CANCEL-4294967295) (QUOTE (IDATE 1000402215105 EVENT (PROVE-LEMMA LESSP-CANCEL-4294967295 (REWRITE) (EQUAL (LESSP (PLUS (QUOTE 4294967295) X) (QUOTE 4294967296)) (ZEROP X)) ((USE (PLUS-LESSP-CANCEL-ADD1 (Y (QUOTE 4294967295)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-LESSP-CANCEL-ADD1 . LESSP-CANCEL-4294967295) (LEMMAS LESSP . LESSP-CANCEL-4294967295))))) (PUT1-LST (QUOTE PLUS3-TIMES-SUB1) (QUOTE (IDATE 1000402215105 EVENT (PROVE-LEMMA PLUS3-TIMES-SUB1 (REWRITE) (EQUAL (PLUS X (PLUS Y (PLUS Z (TIMES X (SUB1 Z1))))) (IF (ZEROP Z1) (PLUS X (PLUS Y Z)) (PLUS Y (PLUS Z (TIMES X Z1)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-ADD1 . PLUS3-TIMES-SUB1) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . PLUS3-TIMES-SUB1) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . PLUS3-TIMES-SUB1) (IMMEDIATE-DEPENDENTS0 PLUS-0 . PLUS3-TIMES-SUB1) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . PLUS3-TIMES-SUB1) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-EQUAL-PLUS . PLUS3-TIMES-SUB1) (LEMMAS PLUS . PLUS3-TIMES-SUB1))))) (PUT1-LST (QUOTE PLUS2-TIMES-SUB1) (QUOTE (IDATE 1000402215105 EVENT (PROVE-LEMMA PLUS2-TIMES-SUB1 (REWRITE) (EQUAL (PLUS X (PLUS Y (TIMES X (SUB1 Z)))) (IF (ZEROP Z) (PLUS X Y) (PLUS Y (TIMES X Z))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-ADD1 . PLUS2-TIMES-SUB1) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . PLUS2-TIMES-SUB1) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . PLUS2-TIMES-SUB1) (IMMEDIATE-DEPENDENTS0 PLUS-0 . PLUS2-TIMES-SUB1) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . PLUS2-TIMES-SUB1) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-EQUAL-PLUS . PLUS2-TIMES-SUB1) (LEMMAS PLUS . PLUS2-TIMES-SUB1))))) (PUT1-LST (QUOTE PLUS-TIMES-SUB1-OFF) (QUOTE (IDATE 1000402215105 EVENT (TOGGLE PLUS-TIMES-SUB1-OFF PLUS-TIMES-SUB1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-TIMES-SUB1 . PLUS-TIMES-SUB1-OFF) (DISABLED-LEMMAS NIL PLUS-TIMES-SUB1 PLUS-TIMES-SUB1-OFF . T))))) (PUT1-LST (QUOTE PLUS-TIMES-SUB1) (QUOTE (IDATE 1000402215105 IMMEDIATE-DEPENDENTS0 (PLUS-TIMES-SUB1-OFF) EVENT (PROVE-LEMMA PLUS-TIMES-SUB1 (REWRITE) (EQUAL (PLUS X (TIMES X (SUB1 Y))) (IF (ZEROP Y) (FIX X) (TIMES X Y)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-ADD1 . PLUS-TIMES-SUB1) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . PLUS-TIMES-SUB1) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . PLUS-TIMES-SUB1) (IMMEDIATE-DEPENDENTS0 PLUS-0 . PLUS-TIMES-SUB1) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . PLUS-TIMES-SUB1) (LEMMAS PLUS . PLUS-TIMES-SUB1))))) (PUT1-LST (QUOTE PLUS-0) (QUOTE (IDATE 1000402215105 IMMEDIATE-DEPENDENTS0 (GCD-T2-UB REMAINDER-REMAINDER DIFFERENCE-LESSP-CANCEL-2 PLUS3-TIMES-SUB1 PLUS2-TIMES-SUB1 PLUS-TIMES-SUB1) EVENT (PROVE-LEMMA PLUS-0 (REWRITE) (EQUAL (PLUS (QUOTE 0) X) (FIX X))) LOCAL-UNDO-TUPLES ((LEMMAS PLUS . PLUS-0))))) (PUT1-LST (QUOTE MEAN-DIFFERENCE-2) (QUOTE (IDATE 1000402215105 EVENT (PROVE-LEMMA MEAN-DIFFERENCE-2 (REWRITE) (IMPLIES (IF (LESSP J I) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (NOT (LESSP (QUOTIENT (DIFFERENCE J I) (QUOTE 2)) (DIFFERENCE (SUB1 J) (QUOTIENT (PLUS I J) (QUOTE 2)))))) ((USE (QUOTIENT-DIFF (X (TIMES (QUOTE 2) J)) (Y (PLUS I J)) (Z (QUOTE 2)))) (DISABLE QUOTIENT-TIMES-LESSP QUOTIENT REMAINDER))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIFFERENCE=0 . MEAN-DIFFERENCE-2) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-IS-1 . MEAN-DIFFERENCE-2) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . MEAN-DIFFERENCE-2) (IMMEDIATE-DEPENDENTS0 QUOTIENT-EQUAL-0 . MEAN-DIFFERENCE-2) (IMMEDIATE-DEPENDENTS0 LESSP-OF-1 . MEAN-DIFFERENCE-2) (IMMEDIATE-DEPENDENTS0 SUB1-OF-1 . MEAN-DIFFERENCE-2) (IMMEDIATE-DEPENDENTS0 MEAN-LESSP . MEAN-DIFFERENCE-2) (IMMEDIATE-DEPENDENTS0 REMAINDER-WRT-2 . MEAN-DIFFERENCE-2) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-CANCEL-1 . MEAN-DIFFERENCE-2) (IMMEDIATE-DEPENDENTS0 QUOTIENT-TIMES . MEAN-DIFFERENCE-2) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . MEAN-DIFFERENCE-2) (IMMEDIATE-DEPENDENTS0 REMAINDER-TIMES . MEAN-DIFFERENCE-2) (IMMEDIATE-DEPENDENTS0 QUOTIENT-DIFF . MEAN-DIFFERENCE-2) (LINEAR-LEMMAS QUOTIENT . MEAN-DIFFERENCE-2) (LINEAR-LEMMAS QUOTIENT . MEAN-DIFFERENCE-2))))) (PUT1-LST (QUOTE MEAN-DIFFERENCE-1) (QUOTE (IDATE 1000402215104 EVENT (PROVE-LEMMA MEAN-DIFFERENCE-1 (REWRITE) (IMPLIES (IF (LESSP J I) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (EQUAL (DIFFERENCE (QUOTIENT (PLUS I J) (QUOTE 2)) I) (QUOTIENT (DIFFERENCE J I) (QUOTE 2)))) ((USE (QUOTIENT-DIFFERENCE (X (PLUS I J)) (Y (TIMES (QUOTE 2) I)) (Z (QUOTE 2)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . MEAN-DIFFERENCE-1) (IMMEDIATE-DEPENDENTS0 PLUS-ADD1 . MEAN-DIFFERENCE-1) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . MEAN-DIFFERENCE-1) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . MEAN-DIFFERENCE-1) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-CANCEL-1 . MEAN-DIFFERENCE-1) (IMMEDIATE-DEPENDENTS0 QUOTIENT-TIMES . MEAN-DIFFERENCE-1) (IMMEDIATE-DEPENDENTS0 QUOTIENT-EQUAL-0 . MEAN-DIFFERENCE-1) (IMMEDIATE-DEPENDENTS0 SUB1-OF-1 . MEAN-DIFFERENCE-1) (IMMEDIATE-DEPENDENTS0 LESSP-OF-1 . MEAN-DIFFERENCE-1) (IMMEDIATE-DEPENDENTS0 DIFFERENCE=0 . MEAN-DIFFERENCE-1) (IMMEDIATE-DEPENDENTS0 REMAINDER-TIMES . MEAN-DIFFERENCE-1) (IMMEDIATE-DEPENDENTS0 QUOTIENT-DIFFERENCE . MEAN-DIFFERENCE-1) (LEMMAS DIFFERENCE . MEAN-DIFFERENCE-1))))) (PUT1-LST (QUOTE DIFFERENCE-IS-1) (QUOTE (IDATE 1000402215104 IMMEDIATE-DEPENDENTS0 (MEAN-DIFFERENCE-2) EVENT (PROVE-LEMMA DIFFERENCE-IS-1 (REWRITE) (EQUAL (EQUAL (DIFFERENCE X Y) (QUOTE 1)) (EQUAL X (ADD1 Y)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . DIFFERENCE-IS-1) (LEMMAS EQUAL . DIFFERENCE-IS-1))))) (PUT1-LST (QUOTE DIFFERENCE-CANCEL-1) (QUOTE (IDATE 1000402215104 IMMEDIATE-DEPENDENTS0 (MEAN-DIFFERENCE-2 MEAN-DIFFERENCE-1) EVENT (PROVE-LEMMA DIFFERENCE-CANCEL-1 (REWRITE) (IMPLIES (IF (LESSP J I) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (AND (EQUAL (DIFFERENCE (PLUS I J) (TIMES (QUOTE 2) I)) (DIFFERENCE J I)) (EQUAL (DIFFERENCE (TIMES (QUOTE 2) J) (PLUS I J)) (DIFFERENCE J I)))) ((ENABLE TIMES))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . DIFFERENCE-CANCEL-1) (IMMEDIATE-DEPENDENTS0 TIMES-1 . DIFFERENCE-CANCEL-1) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS . DIFFERENCE-CANCEL-1) (LEMMAS DIFFERENCE . DIFFERENCE-CANCEL-1) (LEMMAS DIFFERENCE . DIFFERENCE-CANCEL-1))))) (PUT1-LST (QUOTE IDIFFERENCE-OFF) (QUOTE (IDATE 1000402215104 EVENT (TOGGLE IDIFFERENCE-OFF IDIFFERENCE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IDIFFERENCE . IDIFFERENCE-OFF) (DISABLED-LEMMAS NIL IDIFFERENCE IDIFFERENCE-OFF . T))))) (PUT1-LST (QUOTE IDIFFERENCE-INT-RANGEP) (QUOTE (IDATE 1000402215104 EVENT (PROVE-LEMMA IDIFFERENCE-INT-RANGEP (REWRITE) (IMPLIES (AND (NUMBERP X) (AND (NUMBERP Y) (AND (INT-RANGEP X N) (INT-RANGEP Y N)))) (INT-RANGEP (IDIFFERENCE X Y) N)) ((ENABLE INT-RANGEP IPLUS IDIFFERENCE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IPLUS-0 . IDIFFERENCE-INT-RANGEP) (IMMEDIATE-DEPENDENTS0 INT-RANGEP-LA . IDIFFERENCE-INT-RANGEP) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-INT-RANGEP . IDIFFERENCE-INT-RANGEP) (IMMEDIATE-DEPENDENTS0 INTEGERP-FIX-INT . IDIFFERENCE-INT-RANGEP) (IMMEDIATE-DEPENDENTS0 NUMBERP-INTEGERP . IDIFFERENCE-INT-RANGEP) (IMMEDIATE-DEPENDENTS0 NEGP . IDIFFERENCE-INT-RANGEP) (IMMEDIATE-DEPENDENTS0 IZEROP . IDIFFERENCE-INT-RANGEP) (IMMEDIATE-DEPENDENTS0 INEG . IDIFFERENCE-INT-RANGEP) (IMMEDIATE-DEPENDENTS0 IPLUS . IDIFFERENCE-INT-RANGEP) (IMMEDIATE-DEPENDENTS0 INT-RANGEP-OF-0 . IDIFFERENCE-INT-RANGEP) (IMMEDIATE-DEPENDENTS0 IDIFFERENCE . IDIFFERENCE-INT-RANGEP) (IMMEDIATE-DEPENDENTS0 INT-RANGEP . IDIFFERENCE-INT-RANGEP) (LEMMAS INT-RANGEP . IDIFFERENCE-INT-RANGEP))))) (PUT1-LST (QUOTE READ-MEM-INT-8_16) (QUOTE (IDATE 1000402215104 EVENT (PROVE-LEMMA READ-MEM-INT-8_16 (REWRITE) (EQUAL (NAT-TO-INT (READ-MEM X MEM (QUOTE 1)) (QUOTE 16)) (NAT-TO-UINT (READ-MEM X MEM (QUOTE 1)))) ((USE (READ-MEM-NAT-RANGEP (N (QUOTE 15)) (K (QUOTE 1)))) (ENABLE NAT-TO-INT NAT-TO-UINT NAT-RANGEP))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EXP . READ-MEM-INT-8_16) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . READ-MEM-INT-8_16) (IMMEDIATE-DEPENDENTS0 READ-MEM-NAT-RANGEP . READ-MEM-INT-8_16) (IMMEDIATE-DEPENDENTS0 NAT-TO-UINT . READ-MEM-INT-8_16) (IMMEDIATE-DEPENDENTS0 READ-MEM . READ-MEM-INT-8_16) (IMMEDIATE-DEPENDENTS0 NAT-TO-INT . READ-MEM-INT-8_16) (LEMMAS NAT-TO-INT . READ-MEM-INT-8_16))))) (PUT1-LST (QUOTE READ-MEM-INT-16_32) (QUOTE (IDATE 1000402215104 EVENT (PROVE-LEMMA READ-MEM-INT-16_32 (REWRITE) (EQUAL (NAT-TO-INT (READ-MEM X MEM (QUOTE 2)) (QUOTE 32)) (NAT-TO-UINT (READ-MEM X MEM (QUOTE 2)))) ((USE (READ-MEM-NAT-RANGEP (N (QUOTE 31)) (K (QUOTE 2)))) (ENABLE NAT-TO-INT NAT-TO-UINT NAT-RANGEP))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EXP . READ-MEM-INT-16_32) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . READ-MEM-INT-16_32) (IMMEDIATE-DEPENDENTS0 READ-MEM-NAT-RANGEP . READ-MEM-INT-16_32) (IMMEDIATE-DEPENDENTS0 NAT-TO-UINT . READ-MEM-INT-16_32) (IMMEDIATE-DEPENDENTS0 READ-MEM . READ-MEM-INT-16_32) (IMMEDIATE-DEPENDENTS0 NAT-TO-INT . READ-MEM-INT-16_32) (LEMMAS NAT-TO-INT . READ-MEM-INT-16_32))))) (PUT1-LST (QUOTE READ-MEM-INT-8_32) (QUOTE (IDATE 1000402215104 EVENT (PROVE-LEMMA READ-MEM-INT-8_32 (REWRITE) (EQUAL (NAT-TO-INT (READ-MEM X MEM (QUOTE 1)) (QUOTE 32)) (NAT-TO-UINT (READ-MEM X MEM (QUOTE 1)))) ((USE (READ-MEM-NAT-RANGEP (N (QUOTE 31)) (K (QUOTE 1)))) (ENABLE NAT-TO-INT NAT-TO-UINT NAT-RANGEP))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EXP . READ-MEM-INT-8_32) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . READ-MEM-INT-8_32) (IMMEDIATE-DEPENDENTS0 READ-MEM-NAT-RANGEP . READ-MEM-INT-8_32) (IMMEDIATE-DEPENDENTS0 NAT-TO-UINT . READ-MEM-INT-8_32) (IMMEDIATE-DEPENDENTS0 READ-MEM . READ-MEM-INT-8_32) (IMMEDIATE-DEPENDENTS0 NAT-TO-INT . READ-MEM-INT-8_32) (LEMMAS NAT-TO-INT . READ-MEM-INT-8_32))))) (PUT1-LST (QUOTE READ-RN-INT-8_16) (QUOTE (IDATE 1000402215104 EVENT (PROVE-LEMMA READ-RN-INT-8_16 (REWRITE) (EQUAL (NAT-TO-INT (READ-RN (QUOTE 8) RN RFILE) (QUOTE 16)) (NAT-TO-UINT (READ-RN (QUOTE 8) RN RFILE))) ((ENABLE READ-RN NAT-TO-INT NAT-TO-UINT))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 HEAD-LESSP . READ-RN-INT-8_16) (IMMEDIATE-DEPENDENTS0 EXP . READ-RN-INT-8_16) (IMMEDIATE-DEPENDENTS0 NAT-TO-UINT . READ-RN-INT-8_16) (IMMEDIATE-DEPENDENTS0 READ-RN . READ-RN-INT-8_16) (IMMEDIATE-DEPENDENTS0 NAT-TO-INT . READ-RN-INT-8_16) (LEMMAS NAT-TO-INT . READ-RN-INT-8_16))))) (PUT1-LST (QUOTE READ-RN-INT-16_32) (QUOTE (IDATE 1000402215104 EVENT (PROVE-LEMMA READ-RN-INT-16_32 (REWRITE) (EQUAL (NAT-TO-INT (READ-RN (QUOTE 16) RN RFILE) (QUOTE 32)) (NAT-TO-UINT (READ-RN (QUOTE 16) RN RFILE))) ((ENABLE READ-RN NAT-TO-INT NAT-TO-UINT))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 HEAD-LESSP . READ-RN-INT-16_32) (IMMEDIATE-DEPENDENTS0 EXP . READ-RN-INT-16_32) (IMMEDIATE-DEPENDENTS0 NAT-TO-UINT . READ-RN-INT-16_32) (IMMEDIATE-DEPENDENTS0 READ-RN . READ-RN-INT-16_32) (IMMEDIATE-DEPENDENTS0 NAT-TO-INT . READ-RN-INT-16_32) (LEMMAS NAT-TO-INT . READ-RN-INT-16_32))))) (PUT1-LST (QUOTE READ-RN-INT-8_32) (QUOTE (IDATE 1000402215104 EVENT (PROVE-LEMMA READ-RN-INT-8_32 (REWRITE) (EQUAL (NAT-TO-INT (READ-RN (QUOTE 8) RN RFILE) (QUOTE 32)) (NAT-TO-UINT (READ-RN (QUOTE 8) RN RFILE))) ((ENABLE READ-RN NAT-TO-INT NAT-TO-UINT))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 HEAD-LESSP . READ-RN-INT-8_32) (IMMEDIATE-DEPENDENTS0 EXP . READ-RN-INT-8_32) (IMMEDIATE-DEPENDENTS0 NAT-TO-UINT . READ-RN-INT-8_32) (IMMEDIATE-DEPENDENTS0 READ-RN . READ-RN-INT-8_32) (IMMEDIATE-DEPENDENTS0 NAT-TO-INT . READ-RN-INT-8_32) (LEMMAS NAT-TO-INT . READ-RN-INT-8_32))))) (PUT1-LST (QUOTE DISJOINT-7-UINT) (QUOTE (IDATE 1000402215104 EVENT (PROVE-LEMMA DISJOINT-7-UINT (REWRITE) (IMPLIES (AND (DISJOINT (ADD (QUOTE 32) A I) M B N) (AND (IF (LESSP M (PLUS J (INDEX-N I1 I))) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (IF (LESSP N (PLUS (NAT-TO-UINT K) L)) (QUOTE *1*FALSE) (QUOTE *1*TRUE)))) (DISJOINT (ADD (QUOTE 32) A I1) J (ADD (QUOTE 32) B K) L)) ((ENABLE NAT-TO-UINT))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DISJOINT-7 . DISJOINT-7-UINT) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . DISJOINT-7-UINT) (IMMEDIATE-DEPENDENTS0 NAT-TO-UINT . DISJOINT-7-UINT) (IMMEDIATE-DEPENDENTS0 INDEX-N . DISJOINT-7-UINT) (IMMEDIATE-DEPENDENTS0 ADD . DISJOINT-7-UINT) (IMMEDIATE-DEPENDENTS0 DISJOINT . DISJOINT-7-UINT) (LEMMAS DISJOINT . DISJOINT-7-UINT))))) (PUT1-LST (QUOTE DISJOINT-6-UINT) (QUOTE (IDATE 1000402215104 EVENT (PROVE-LEMMA DISJOINT-6-UINT (REWRITE) (IMPLIES (AND (DISJOINT (ADD (QUOTE 32) A I) M B N) (AND (IF (LESSP M (PLUS J (INDEX-N I1 I))) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (IF (LESSP N L) (QUOTE *1*FALSE) (QUOTE *1*TRUE)))) (DISJOINT (ADD (QUOTE 32) A I1) J B L)) ((ENABLE NAT-TO-UINT))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DISJOINT-6 . DISJOINT-6-UINT) (IMMEDIATE-DEPENDENTS0 INDEX-N . DISJOINT-6-UINT) (IMMEDIATE-DEPENDENTS0 ADD . DISJOINT-6-UINT) (IMMEDIATE-DEPENDENTS0 DISJOINT . DISJOINT-6-UINT) (LEMMAS DISJOINT . DISJOINT-6-UINT))))) (PUT1-LST (QUOTE DISJOINT-5-UINT) (QUOTE (IDATE 1000402215104 EVENT (PROVE-LEMMA DISJOINT-5-UINT (REWRITE) (IMPLIES (AND (DISJOINT (ADD (QUOTE 32) A I) M B N) (AND (IF (LESSP M (PLUS J (INDEX-N (QUOTE 0) I))) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (IF (LESSP N (PLUS (NAT-TO-UINT K) L)) (QUOTE *1*FALSE) (QUOTE *1*TRUE)))) (DISJOINT A J (ADD (QUOTE 32) B K) L)) ((ENABLE NAT-TO-UINT))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DISJOINT-5 . DISJOINT-5-UINT) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . DISJOINT-5-UINT) (IMMEDIATE-DEPENDENTS0 INDEX-N-0 . DISJOINT-5-UINT) (IMMEDIATE-DEPENDENTS0 NAT-TO-UINT . DISJOINT-5-UINT) (IMMEDIATE-DEPENDENTS0 INDEX-N . DISJOINT-5-UINT) (IMMEDIATE-DEPENDENTS0 ADD . DISJOINT-5-UINT) (IMMEDIATE-DEPENDENTS0 DISJOINT . DISJOINT-5-UINT) (LEMMAS DISJOINT . DISJOINT-5-UINT))))) (PUT1-LST (QUOTE DISJOINT-3-UINT) (QUOTE (IDATE 1000402215104 EVENT (PROVE-LEMMA DISJOINT-3-UINT (REWRITE) (IMPLIES (AND (DISJOINT A M B N) (AND (IF (LESSP M (PLUS (NAT-TO-UINT I) J)) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (IF (LESSP N (PLUS (NAT-TO-UINT K) L)) (QUOTE *1*FALSE) (QUOTE *1*TRUE)))) (DISJOINT (ADD (QUOTE 32) A I) J (ADD (QUOTE 32) B K) L)) ((ENABLE NAT-TO-UINT))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DISJOINT-3 . DISJOINT-3-UINT) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . DISJOINT-3-UINT) (IMMEDIATE-DEPENDENTS0 ADD . DISJOINT-3-UINT) (IMMEDIATE-DEPENDENTS0 NAT-TO-UINT . DISJOINT-3-UINT) (IMMEDIATE-DEPENDENTS0 DISJOINT . DISJOINT-3-UINT) (LEMMAS DISJOINT . DISJOINT-3-UINT))))) (PUT1-LST (QUOTE DISJOINT-2~-UINT) (QUOTE (IDATE 1000402215104 EVENT (PROVE-LEMMA DISJOINT-2~-UINT (REWRITE) (IMPLIES (AND (DISJOINT A M B N) (AND (IF (LESSP M (PLUS (NAT-TO-UINT I) J)) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (IF (LESSP N L) (QUOTE *1*FALSE) (QUOTE *1*TRUE)))) (DISJOINT B L (ADD (QUOTE 32) A I) J)) ((ENABLE NAT-TO-UINT))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DISJOINT-2~ . DISJOINT-2~-UINT) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . DISJOINT-2~-UINT) (IMMEDIATE-DEPENDENTS0 ADD . DISJOINT-2~-UINT) (IMMEDIATE-DEPENDENTS0 NAT-TO-UINT . DISJOINT-2~-UINT) (IMMEDIATE-DEPENDENTS0 DISJOINT . DISJOINT-2~-UINT) (LEMMAS DISJOINT . DISJOINT-2~-UINT))))) (PUT1-LST (QUOTE DISJOINT-2-UINT) (QUOTE (IDATE 1000402215104 EVENT (PROVE-LEMMA DISJOINT-2-UINT (REWRITE) (IMPLIES (AND (DISJOINT A M B N) (AND (IF (LESSP M (PLUS (NAT-TO-UINT I) J)) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (IF (LESSP N L) (QUOTE *1*FALSE) (QUOTE *1*TRUE)))) (DISJOINT (ADD (QUOTE 32) A I) J B L)) ((ENABLE NAT-TO-UINT))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DISJOINT-2 . DISJOINT-2-UINT) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . DISJOINT-2-UINT) (IMMEDIATE-DEPENDENTS0 ADD . DISJOINT-2-UINT) (IMMEDIATE-DEPENDENTS0 NAT-TO-UINT . DISJOINT-2-UINT) (IMMEDIATE-DEPENDENTS0 DISJOINT . DISJOINT-2-UINT) (LEMMAS DISJOINT . DISJOINT-2-UINT))))) (PUT1-LST (QUOTE DISJOINT-1-UINT) (QUOTE (IDATE 1000402215104 EVENT (PROVE-LEMMA DISJOINT-1-UINT (REWRITE) (IMPLIES (AND (DISJOINT A M B N) (AND (IF (LESSP M J) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (IF (LESSP N (PLUS (NAT-TO-UINT K) L)) (QUOTE *1*FALSE) (QUOTE *1*TRUE)))) (DISJOINT A J (ADD (QUOTE 32) B K) L)) ((ENABLE NAT-TO-UINT))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DISJOINT-1 . DISJOINT-1-UINT) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . DISJOINT-1-UINT) (IMMEDIATE-DEPENDENTS0 ADD . DISJOINT-1-UINT) (IMMEDIATE-DEPENDENTS0 NAT-TO-UINT . DISJOINT-1-UINT) (IMMEDIATE-DEPENDENTS0 DISJOINT . DISJOINT-1-UINT) (LEMMAS DISJOINT . DISJOINT-1-UINT))))) (PUT1-LST (QUOTE WRITE-MEMP-RAM1-UINT) (QUOTE (IDATE 1000402215103 EVENT (PROVE-LEMMA WRITE-MEMP-RAM1-UINT (REWRITE) (IMPLIES (AND (RAM-ADDRP ADDR MEM K) (IF (LESSP K (PLUS (NAT-TO-UINT I) J)) (QUOTE *1*FALSE) (QUOTE *1*TRUE))) (WRITE-MEMP (ADD (QUOTE 32) ADDR I) MEM J)) ((ENABLE NAT-TO-UINT))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 WRITE-MEMP-RAM1 . WRITE-MEMP-RAM1-UINT) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . WRITE-MEMP-RAM1-UINT) (IMMEDIATE-DEPENDENTS0 ADD . WRITE-MEMP-RAM1-UINT) (IMMEDIATE-DEPENDENTS0 WRITE-MEMP . WRITE-MEMP-RAM1-UINT) (IMMEDIATE-DEPENDENTS0 NAT-TO-UINT . WRITE-MEMP-RAM1-UINT) (IMMEDIATE-DEPENDENTS0 RAM-ADDRP . WRITE-MEMP-RAM1-UINT) (LEMMAS WRITE-MEMP . WRITE-MEMP-RAM1-UINT))))) (PUT1-LST (QUOTE READ-MEMP-RAM1-UINT) (QUOTE (IDATE 1000402215103 EVENT (PROVE-LEMMA READ-MEMP-RAM1-UINT (REWRITE) (IMPLIES (AND (RAM-ADDRP ADDR MEM K) (IF (LESSP K (PLUS (NAT-TO-UINT I) J)) (QUOTE *1*FALSE) (QUOTE *1*TRUE))) (READ-MEMP (ADD (QUOTE 32) ADDR I) MEM J)) ((ENABLE NAT-TO-UINT))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 READ-MEMP-RAM1 . READ-MEMP-RAM1-UINT) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . READ-MEMP-RAM1-UINT) (IMMEDIATE-DEPENDENTS0 ADD . READ-MEMP-RAM1-UINT) (IMMEDIATE-DEPENDENTS0 READ-MEMP . READ-MEMP-RAM1-UINT) (IMMEDIATE-DEPENDENTS0 NAT-TO-UINT . READ-MEMP-RAM1-UINT) (IMMEDIATE-DEPENDENTS0 RAM-ADDRP . READ-MEMP-RAM1-UINT) (LEMMAS READ-MEMP . READ-MEMP-RAM1-UINT))))) (PUT1-LST (QUOTE DISJOINT-3-INT) (QUOTE (IDATE 1000402215103 EVENT (PROVE-LEMMA DISJOINT-3-INT (REWRITE) (IMPLIES (AND (DISJOINT A M B N) (AND (IF (LESSP M (PLUS (NAT-TO-INT I (QUOTE 32)) J)) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (AND (IF (LESSP N (PLUS (NAT-TO-INT K (QUOTE 32)) L)) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (AND (NUMBERP (NAT-TO-INT I (QUOTE 32))) (NUMBERP (NAT-TO-INT K (QUOTE 32))))))) (DISJOINT (ADD (QUOTE 32) A I) J (ADD (QUOTE 32) B K) L)) ((ENABLE NAT-TO-INT))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DISJOINT-3 . DISJOINT-3-INT) (IMMEDIATE-DEPENDENTS0 EXP . DISJOINT-3-INT) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . DISJOINT-3-INT) (IMMEDIATE-DEPENDENTS0 ADD . DISJOINT-3-INT) (IMMEDIATE-DEPENDENTS0 NAT-TO-INT . DISJOINT-3-INT) (IMMEDIATE-DEPENDENTS0 DISJOINT . DISJOINT-3-INT) (LEMMAS DISJOINT . DISJOINT-3-INT))))) (PUT1-LST (QUOTE DISJOINT-2~-INT) (QUOTE (IDATE 1000402215103 EVENT (PROVE-LEMMA DISJOINT-2~-INT (REWRITE) (IMPLIES (AND (DISJOINT A M B N) (AND (IF (LESSP M (PLUS (NAT-TO-INT I (QUOTE 32)) J)) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (AND (IF (LESSP N L) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (NUMBERP (NAT-TO-INT I (QUOTE 32)))))) (DISJOINT B L (ADD (QUOTE 32) A I) J)) ((ENABLE NAT-TO-INT))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DISJOINT-2~ . DISJOINT-2~-INT) (IMMEDIATE-DEPENDENTS0 EXP . DISJOINT-2~-INT) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . DISJOINT-2~-INT) (IMMEDIATE-DEPENDENTS0 ADD . DISJOINT-2~-INT) (IMMEDIATE-DEPENDENTS0 NAT-TO-INT . DISJOINT-2~-INT) (IMMEDIATE-DEPENDENTS0 DISJOINT . DISJOINT-2~-INT) (LEMMAS DISJOINT . DISJOINT-2~-INT))))) (PUT1-LST (QUOTE DISJOINT-2-INT) (QUOTE (IDATE 1000402215103 EVENT (PROVE-LEMMA DISJOINT-2-INT (REWRITE) (IMPLIES (AND (DISJOINT A M B N) (AND (IF (LESSP M (PLUS (NAT-TO-INT I (QUOTE 32)) J)) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (AND (IF (LESSP N L) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (NUMBERP (NAT-TO-INT I (QUOTE 32)))))) (DISJOINT (ADD (QUOTE 32) A I) J B L)) ((ENABLE NAT-TO-INT))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DISJOINT-2 . DISJOINT-2-INT) (IMMEDIATE-DEPENDENTS0 EXP . DISJOINT-2-INT) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . DISJOINT-2-INT) (IMMEDIATE-DEPENDENTS0 ADD . DISJOINT-2-INT) (IMMEDIATE-DEPENDENTS0 NAT-TO-INT . DISJOINT-2-INT) (IMMEDIATE-DEPENDENTS0 DISJOINT . DISJOINT-2-INT) (LEMMAS DISJOINT . DISJOINT-2-INT))))) (PUT1-LST (QUOTE DISJOINT-1-INT) (QUOTE (IDATE 1000402215103 EVENT (PROVE-LEMMA DISJOINT-1-INT (REWRITE) (IMPLIES (AND (DISJOINT A M B N) (AND (IF (LESSP M J) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (AND (IF (LESSP N (PLUS (NAT-TO-INT K (QUOTE 32)) L)) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (NUMBERP (NAT-TO-INT K (QUOTE 32)))))) (DISJOINT A J (ADD (QUOTE 32) B K) L)) ((ENABLE NAT-TO-INT))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DISJOINT-1 . DISJOINT-1-INT) (IMMEDIATE-DEPENDENTS0 EXP . DISJOINT-1-INT) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . DISJOINT-1-INT) (IMMEDIATE-DEPENDENTS0 ADD . DISJOINT-1-INT) (IMMEDIATE-DEPENDENTS0 NAT-TO-INT . DISJOINT-1-INT) (IMMEDIATE-DEPENDENTS0 DISJOINT . DISJOINT-1-INT) (LEMMAS DISJOINT . DISJOINT-1-INT))))) (PUT1-LST (QUOTE NAT-RANGEP-LA-OFF) (QUOTE (IDATE 1000402215103 EVENT (TOGGLE NAT-RANGEP-LA-OFF NAT-RANGEP-LA T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NAT-RANGEP-LA . NAT-RANGEP-LA-OFF) (DISABLED-LEMMAS NIL NAT-RANGEP-LA NAT-RANGEP-LA-OFF . T))))) (PUT1-LST (QUOTE NAT-RANGEP-LA) (QUOTE (IDATE 1000402215103 IMMEDIATE-DEPENDENTS0 (NAT-RANGEP-LA-OFF) EVENT (PROVE-LEMMA NAT-RANGEP-LA (REWRITE) (IMPLIES (LESSP (NAT-TO-UINT X) (EXP (QUOTE 2) N)) (NAT-RANGEP X N)) ((ENABLE NAT-RANGEP NAT-TO-UINT))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NAT-RANGEP . NAT-RANGEP-LA) (IMMEDIATE-DEPENDENTS0 EXP . NAT-RANGEP-LA) (IMMEDIATE-DEPENDENTS0 NAT-TO-UINT . NAT-RANGEP-LA) (LEMMAS NAT-RANGEP . NAT-RANGEP-LA))))) (PUT1-LST (QUOTE STRCSPN-BOUNDS) (QUOTE (IDATE 1000402215103 EVENT (PROVE-LEMMA STRCSPN-BOUNDS (REWRITE) (AND (NOT (LESSP N1 (STRCSPN I N1 LST1 N2 LST2))) (IMPLIES (STRCSPN I N1 LST1 N2 LST2) (NOT (LESSP (STRCSPN I N1 LST1 N2 LST2) I))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 STRCSPN . STRCSPN-BOUNDS) (LINEAR-LEMMAS STRCSPN . STRCSPN-BOUNDS) (LINEAR-LEMMAS STRCSPN . STRCSPN-BOUNDS))))) (PUT1-LST (QUOTE STRSPN-BOUNDS) (QUOTE (IDATE 1000402215103 EVENT (PROVE-LEMMA STRSPN-BOUNDS (REWRITE) (AND (NOT (LESSP N1 (STRSPN I N1 LST1 N2 LST2))) (IMPLIES (STRSPN I N1 LST1 N2 LST2) (NOT (LESSP (STRSPN I N1 LST1 N2 LST2) I))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 STRSPN . STRSPN-BOUNDS) (LINEAR-LEMMAS STRSPN . STRSPN-BOUNDS) (LINEAR-LEMMAS STRSPN . STRSPN-BOUNDS))))) (PUT1-LST (QUOTE STRSPN-UBOUND) (QUOTE (IDATE 1000402215103 EVENT (PROVE-LEMMA STRSPN-UBOUND (REWRITE) (IMPLIES (NOT (ZEROP N1)) (LESSP (STRSPN I N1 LST1 N2 LST2) N1))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 STRSPN . STRSPN-UBOUND) (LINEAR-LEMMAS STRSPN . STRSPN-UBOUND))))) (PUT1-LST (QUOTE STRSTR-BOUNDS) (QUOTE (IDATE 1000402215103 EVENT (PROVE-LEMMA STRSTR-BOUNDS (REWRITE) (AND (NOT (LESSP N1 (STRSTR1 I N1 LST1 N2 LST2 LEN))) (IMPLIES (STRSTR1 I N1 LST1 N2 LST2 LEN) (NOT (LESSP (STRSTR1 I N1 LST1 N2 LST2 LEN) I))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . STRSTR-BOUNDS) (IMMEDIATE-DEPENDENTS0 MCDR . STRSTR-BOUNDS) (IMMEDIATE-DEPENDENTS0 STRNCMP . STRSTR-BOUNDS) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . STRSTR-BOUNDS) (IMMEDIATE-DEPENDENTS0 DIFFERENCE=0 . STRSTR-BOUNDS) (IMMEDIATE-DEPENDENTS0 STRCHR1 . STRSTR-BOUNDS) (IMMEDIATE-DEPENDENTS0 LESSP-OF-1 . STRSTR-BOUNDS) (IMMEDIATE-DEPENDENTS0 STRCHR1-BOUNDS . STRSTR-BOUNDS) (IMMEDIATE-DEPENDENTS0 STRSTR1 . STRSTR-BOUNDS) (LINEAR-LEMMAS STRSTR1 . STRSTR-BOUNDS) (LINEAR-LEMMAS STRSTR1 . STRSTR-BOUNDS))))) (PUT1-LST (QUOTE STRRCHR-BOUNDS) (QUOTE (IDATE 1000402215103 EVENT (PROVE-LEMMA STRRCHR-BOUNDS (REWRITE) (IMPLIES (IF (LESSP N J) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (NOT (LESSP N (STRRCHR I N LST CH J))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 STRRCHR . STRRCHR-BOUNDS) (LINEAR-LEMMAS STRRCHR . STRRCHR-BOUNDS))))) (PUT1-LST (QUOTE STRPBRK-BOUNDS) (QUOTE (IDATE 1000402215103 EVENT (PROVE-LEMMA STRPBRK-BOUNDS (REWRITE) (AND (NOT (LESSP N1 (STRPBRK I1 N1 LST1 N2 LST2))) (IMPLIES (STRPBRK I1 N1 LST1 N2 LST2) (NOT (LESSP (STRPBRK I1 N1 LST1 N2 LST2) I1))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 STRPBRK . STRPBRK-BOUNDS) (LINEAR-LEMMAS STRPBRK . STRPBRK-BOUNDS) (LINEAR-LEMMAS STRPBRK . STRPBRK-BOUNDS))))) (PUT1-LST (QUOTE MEMCHR-BOUNDS) (QUOTE (IDATE 1000402215102 EVENT (PROVE-LEMMA MEMCHR-BOUNDS (REWRITE) (AND (NOT (LESSP (PLUS I N) (MEMCHR1 I N LST CH))) (IMPLIES (MEMCHR1 I N LST CH) (NOT (LESSP (MEMCHR1 I N LST CH) I)))) ((INDUCT (MEMCHR1 I N LST CH)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-OF-1 . MEMCHR-BOUNDS) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . MEMCHR-BOUNDS) (IMMEDIATE-DEPENDENTS0 PLUS-ADD1 . MEMCHR-BOUNDS) (IMMEDIATE-DEPENDENTS0 SUB1-OF-1 . MEMCHR-BOUNDS) (IMMEDIATE-DEPENDENTS0 MEMCHR1 . MEMCHR-BOUNDS) (LINEAR-LEMMAS MEMCHR1 . MEMCHR-BOUNDS) (LINEAR-LEMMAS MEMCHR1 . MEMCHR-BOUNDS))))) (PUT1-LST (QUOTE STRCHR-BOUNDS) (QUOTE (IDATE 1000402215102 EVENT (PROVE-LEMMA STRCHR-BOUNDS (REWRITE) (AND (NOT (LESSP N (STRCHR I N LST CH))) (IMPLIES (STRCHR I N LST CH) (NOT (LESSP (STRCHR I N LST CH) I))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 STRCHR . STRCHR-BOUNDS) (LINEAR-LEMMAS STRCHR . STRCHR-BOUNDS) (LINEAR-LEMMAS STRCHR . STRCHR-BOUNDS))))) (PUT1-LST (QUOTE STRINGP-LA) (QUOTE (IDATE 1000402215102 EVENT (PROVE-LEMMA STRINGP-LA (REWRITE) (IMPLIES (AND (STRINGP I N LST) (AND (INT-RANGEP N NN) (NOT (EQUAL (GET-NTH I LST) (QUOTE 0))))) (INT-RANGEP (ADD1 I) NN)) ((ENABLE INT-RANGEP INTEGERP))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EXP-OF-2-0 . STRINGP-LA) (IMMEDIATE-DEPENDENTS0 SLEN-LBOUND . STRINGP-LA) (IMMEDIATE-DEPENDENTS0 FIX-INT . STRINGP-LA) (IMMEDIATE-DEPENDENTS0 NEGP . STRINGP-LA) (IMMEDIATE-DEPENDENTS0 INTEGERP . STRINGP-LA) (IMMEDIATE-DEPENDENTS0 INTEGERP-FIX-INT . STRINGP-LA) (IMMEDIATE-DEPENDENTS0 NUMBERP-INTEGERP . STRINGP-LA) (IMMEDIATE-DEPENDENTS0 GET-NTH . STRINGP-LA) (IMMEDIATE-DEPENDENTS0 INT-RANGEP . STRINGP-LA) (IMMEDIATE-DEPENDENTS0 STRINGP . STRINGP-LA) (LEMMAS INT-RANGEP . STRINGP-LA))))) (PUT1-LST (QUOTE SLEN-OFF) (QUOTE (IDATE 1000402215102 EVENT (TOGGLE SLEN-OFF SLEN T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SLEN . SLEN-OFF) (DISABLED-LEMMAS NIL SLEN SLEN-OFF . T))))) (PUT1-LST (QUOTE SLEN-REC) (QUOTE (IDATE 1000402215102 EVENT (PROVE-LEMMA SLEN-REC (REWRITE) (IMPLIES (AND (NOT (EQUAL (GET-NTH I LST) (QUOTE 0))) (LESSP I N)) (EQUAL (SLEN (ADD1 I) N LST) (SLEN I N LST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NULL . SLEN-REC) (IMMEDIATE-DEPENDENTS0 SLEN . SLEN-REC) (IMMEDIATE-DEPENDENTS0 GET-NTH . SLEN-REC) (LEMMAS SLEN . SLEN-REC))))) (PUT1-LST (QUOTE LESSP-SLEN-MCDR-0) (QUOTE (IDATE 1000402215102 EVENT (PROVE-LEMMA LESSP-SLEN-MCDR-0 (REWRITE) (IMPLIES (LESSP (SLEN (ADD1 I) N1 LST1) N1) (EQUAL (LESSP (SLEN I N (MCDR (QUOTE 1) LST1)) (SUB1 N1)) (QUOTE *1*TRUE))) ((USE (LESSP-SLEN-MCDR (K (QUOTE 1)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-ADD1 . LESSP-SLEN-MCDR-0) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . LESSP-SLEN-MCDR-0) (IMMEDIATE-DEPENDENTS0 NULL . LESSP-SLEN-MCDR-0) (IMMEDIATE-DEPENDENTS0 MCDR-NTH . LESSP-SLEN-MCDR-0) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-SUB1 . LESSP-SLEN-MCDR-0) (IMMEDIATE-DEPENDENTS0 LESSP-SLEN-MCDR . LESSP-SLEN-MCDR-0) (IMMEDIATE-DEPENDENTS0 MCDR . LESSP-SLEN-MCDR-0) (IMMEDIATE-DEPENDENTS0 SLEN . LESSP-SLEN-MCDR-0) (LEMMAS LESSP . LESSP-SLEN-MCDR-0))))) (PUT1-LST (QUOTE LESSP-SLEN-MCDR) (QUOTE (IDATE 1000402215102 IMMEDIATE-DEPENDENTS0 (LESSP-SLEN-MCDR-0) EVENT (PROVE-LEMMA LESSP-SLEN-MCDR (REWRITE) (IMPLIES (LESSP (SLEN (PLUS I K) N1 LST1) N1) (EQUAL (LESSP (SLEN I N (MCDR K LST1)) (DIFFERENCE N1 K)) (QUOTE *1*TRUE))) ((ENABLE PLUS-ADD1-1))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-ADD1-1 . LESSP-SLEN-MCDR) (IMMEDIATE-DEPENDENTS0 SLEN-UBOUND . LESSP-SLEN-MCDR) (IMMEDIATE-DEPENDENTS0 SLEN-LBOUND . LESSP-SLEN-MCDR) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . LESSP-SLEN-MCDR) (IMMEDIATE-DEPENDENTS0 MCDR-NTH . LESSP-SLEN-MCDR) (IMMEDIATE-DEPENDENTS0 NULL . LESSP-SLEN-MCDR) (IMMEDIATE-DEPENDENTS0 MCDR . LESSP-SLEN-MCDR) (IMMEDIATE-DEPENDENTS0 SLEN . LESSP-SLEN-MCDR) (LEMMAS LESSP . LESSP-SLEN-MCDR))))) (PUT1-LST (QUOTE SLEN-PUT) (QUOTE (IDATE 1000402215102 EVENT (PROVE-LEMMA SLEN-PUT (REWRITE) (IMPLIES (LESSP J I) (EQUAL (SLEN I N (PUT-NTH V J LST)) (SLEN I N LST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 GET-PUT . SLEN-PUT) (IMMEDIATE-DEPENDENTS0 NULL . SLEN-PUT) (IMMEDIATE-DEPENDENTS0 SLEN-PUT0 . SLEN-PUT) (IMMEDIATE-DEPENDENTS0 PUT-NTH . SLEN-PUT) (IMMEDIATE-DEPENDENTS0 SLEN . SLEN-PUT) (LEMMAS SLEN . SLEN-PUT))))) (PUT1-LST (QUOTE SLEN-PUT0) (QUOTE (IDATE 1000402215102 IMMEDIATE-DEPENDENTS0 (SLEN-PUT) EVENT (PROVE-LEMMA SLEN-PUT0 (REWRITE) (EQUAL (SLEN I N (PUT-NTH (QUOTE 0) I LST)) (FIX I))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NULL . SLEN-PUT0) (IMMEDIATE-DEPENDENTS0 GET-PUT . SLEN-PUT0) (IMMEDIATE-DEPENDENTS0 PUT-NTH . SLEN-PUT0) (IMMEDIATE-DEPENDENTS0 SLEN . SLEN-PUT0) (LEMMAS SLEN . SLEN-PUT0))))) (PUT1-LST (QUOTE SLEN-ADD1) (QUOTE (IDATE 1000402215102 EVENT (PROVE-LEMMA SLEN-ADD1 (REWRITE) (EQUAL (SLEN I (ADD1 I) LST) (IF (EQUAL (GET-NTH I LST) (QUOTE 0)) (FIX I) (ADD1 I)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SLEN-UBOUND . SLEN-ADD1) (IMMEDIATE-DEPENDENTS0 SLEN-LBOUND . SLEN-ADD1) (IMMEDIATE-DEPENDENTS0 NULL . SLEN-ADD1) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . SLEN-ADD1) (IMMEDIATE-DEPENDENTS0 GET-NTH . SLEN-ADD1) (IMMEDIATE-DEPENDENTS0 SLEN . SLEN-ADD1) (LEMMAS SLEN . SLEN-ADD1))))) (PUT1-LST (QUOTE SLEN-01) (QUOTE (IDATE 1000402215102 EVENT (PROVE-LEMMA SLEN-01 (REWRITE) (AND (EQUAL (SLEN I (QUOTE 0) LST) (FIX I)) (EQUAL (SLEN I (QUOTE 1) LST) (IF (AND (LESSP I (QUOTE 1)) (NOT (EQUAL (GET-NTH (QUOTE 0) LST) (QUOTE 0)))) (QUOTE 1) (FIX I)))) ((ENABLE GET-NTH-0))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 GET-NTH-0 . SLEN-01) (IMMEDIATE-DEPENDENTS0 NULL . SLEN-01) (IMMEDIATE-DEPENDENTS0 LESSP-OF-1 . SLEN-01) (IMMEDIATE-DEPENDENTS0 GET-NTH . SLEN-01) (IMMEDIATE-DEPENDENTS0 SLEN . SLEN-01) (LEMMAS SLEN . SLEN-01) (LEMMAS SLEN . SLEN-01))))) (PUT1-LST (QUOTE SLEN-LBOUND) (QUOTE (IDATE 1000402215102 IMMEDIATE-DEPENDENTS0 (STRINGP-LA LESSP-SLEN-MCDR SLEN-ADD1) EVENT (PROVE-LEMMA SLEN-LBOUND (REWRITE) (NOT (LESSP (SLEN I N LST) I))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NULL . SLEN-LBOUND) (IMMEDIATE-DEPENDENTS0 SLEN . SLEN-LBOUND) (LINEAR-LEMMAS SLEN . SLEN-LBOUND))))) (PUT1-LST (QUOTE SLEN-UBOUND) (QUOTE (IDATE 1000402215102 IMMEDIATE-DEPENDENTS0 (LESSP-SLEN-MCDR SLEN-ADD1) EVENT (PROVE-LEMMA SLEN-UBOUND (REWRITE) (IMPLIES (IF (LESSP N I) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (NOT (LESSP N (SLEN I N LST))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NULL . SLEN-UBOUND) (IMMEDIATE-DEPENDENTS0 SLEN . SLEN-UBOUND) (LINEAR-LEMMAS SLEN . SLEN-UBOUND))))) (PUT1-LST (QUOTE *1*STRINGP) (QUOTE (MAIN-EVENT STRINGP))) (PUT1-LST (QUOTE STRINGP) (QUOTE (TYPE-PRESCRIPTION-LST ((STRINGP 3 NIL NIL NIL)) TOTALP-LST ((STRINGP . T)) SDEFN (LAMBDA (I N LST) (LESSP (SLEN I N LST) N)) LISP-CODE *1*STRINGP SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402215102 SATELLITES (*1*STRINGP) IMMEDIATE-DEPENDENTS0 (STRINGP-LA) EVENT (DEFN STRINGP (I N LST) (LESSP (SLEN I N LST) N)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SLEN . STRINGP) (DCELL . *1*STRINGP))))) (PUT1-LST (QUOTE *1*SLEN) (QUOTE (MAIN-EVENT SLEN))) (PUT1-LST (QUOTE SLEN) (QUOTE (TYPE-PRESCRIPTION-LST ((SLEN 4 NIL NIL NIL)) LEMMAS ((REWRITE-RULE SLEN-REC ((NOT (EQUAL (GET-NTH I LST) (QUOTE 0))) (LESSP I N)) (EQUAL (SLEN (ADD1 I) N LST) (SLEN I N LST)) NIL) (REWRITE-RULE SLEN-PUT ((LESSP J I)) (EQUAL (SLEN I N (PUT-NTH V J LST)) (SLEN I N LST)) NIL) (REWRITE-RULE SLEN-PUT0 NIL (EQUAL (SLEN I N (PUT-NTH (QUOTE 0) I LST)) (IF (NUMBERP I) I (QUOTE 0))) NIL) (REWRITE-RULE SLEN-ADD1 NIL (EQUAL (SLEN I (ADD1 I) LST) (IF (EQUAL (GET-NTH I LST) (QUOTE 0)) (IF (NUMBERP I) I (QUOTE 0)) (ADD1 I))) NIL) (REWRITE-RULE SLEN-01 NIL (EQUAL (SLEN I (QUOTE 1) LST) (IF (LESSP I (QUOTE 1)) (IF (EQUAL (GET-NTH (QUOTE 0) LST) (QUOTE 0)) (IF (NUMBERP I) I (QUOTE 0)) (QUOTE 1)) (IF (NUMBERP I) I (QUOTE 0)))) NIL) (REWRITE-RULE SLEN-01 NIL (EQUAL (SLEN I (QUOTE 0) LST) (IF (NUMBERP I) I (QUOTE 0))) NIL)) TOTALP-LST ((SLEN . T)) LINEAR-LEMMAS ((LINEAR-LEMMA SLEN-LBOUND NIL (NOT (LESSP (SLEN I N LST) I)) (SLEN I N LST)) (LINEAR-LEMMA SLEN-UBOUND ((NOT (LESSP N I))) (NOT (LESSP N (SLEN I N LST))) (SLEN I N LST))) QUICK-BLOCK-INFO (SELF-REFLEXIVE UNCHANGING UNCHANGING) SDEFN (LAMBDA (I N LST) (IF (LESSP I N) (IF (EQUAL (GET-NTH I LST) (NULL)) (IF (NUMBERP I) I (QUOTE 0)) (SLEN (ADD1 I) N LST)) (IF (NUMBERP I) I (QUOTE 0)))) LISP-CODE *1*SLEN SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((LESSP I N) (EQUAL (GET-NTH I LST) (NULL))) NIL) (TESTS-AND-CASES ((LESSP I N) (NOT (EQUAL (GET-NTH I LST) (NULL)))) (((ADD1 I) N LST))) (TESTS-AND-CASES ((NOT (LESSP I N))) NIL)) LEVEL-NO 2 JUSTIFICATIONS ((JUSTIFICATION (I N) (DIFFERENCE N I) LESSP (ZERO))) IDATE 1000402215102 CONTROLLER-POCKETS (3) SATELLITES (*1*SLEN) IMMEDIATE-DEPENDENTS0 (SLEN-OFF SLEN-REC LESSP-SLEN-MCDR-0 LESSP-SLEN-MCDR SLEN-PUT SLEN-PUT0 SLEN-ADD1 SLEN-01 SLEN-LBOUND SLEN-UBOUND STRINGP) EVENT (DEFN SLEN (I N LST) (IF (LESSP I N) (IF (EQUAL (GET-NTH I LST) (NULL)) (FIX I) (SLEN (ADD1 I) N LST)) (FIX I)) ((LESSP (DIFFERENCE N I)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NULL . SLEN) (IMMEDIATE-DEPENDENTS0 GET-NTH . SLEN) (DCELL . *1*SLEN))))) (PUT1-LST (QUOTE LST-OF-CHRP-OFF) (QUOTE (IDATE 1000402215102 EVENT (TOGGLE LST-OF-CHRP-OFF LST-OF-CHRP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LST-OF-CHRP . LST-OF-CHRP-OFF) (DISABLED-LEMMAS NIL LST-OF-CHRP LST-OF-CHRP-OFF . T))))) (PUT1-LST (QUOTE PUT-LST-OF-CHRP) (QUOTE (IDATE 1000402215102 EVENT (PROVE-LEMMA PUT-LST-OF-CHRP (REWRITE) (IMPLIES (LST-OF-CHRP LST) (EQUAL (LST-OF-CHRP (PUT-NTH X I LST)) (AND (NUMBERP X) (LESSP X (QUOTE 256))))) ((ENABLE PUT-NTH))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . PUT-LST-OF-CHRP) (IMMEDIATE-DEPENDENTS0 PUT-NTH . PUT-LST-OF-CHRP) (IMMEDIATE-DEPENDENTS0 LST-OF-CHRP . PUT-LST-OF-CHRP) (LEMMAS LST-OF-CHRP . PUT-LST-OF-CHRP))))) (PUT1-LST (QUOTE GET-LST-OF-CHRP) (QUOTE (IDATE 1000402215102 EVENT (PROVE-LEMMA GET-LST-OF-CHRP (REWRITE) (IMPLIES (LST-OF-CHRP LST) (AND (LESSP (GET-NTH I LST) (QUOTE 256)) (NUMBERP (GET-NTH I LST)))) ((ENABLE GET-NTH))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 GET-NTH-NIL . GET-LST-OF-CHRP) (IMMEDIATE-DEPENDENTS0 GET-NTH . GET-LST-OF-CHRP) (IMMEDIATE-DEPENDENTS0 LST-OF-CHRP . GET-LST-OF-CHRP) (LEMMAS NUMBERP . GET-LST-OF-CHRP) (LINEAR-LEMMAS GET-NTH . GET-LST-OF-CHRP))))) (PUT1-LST (QUOTE *1*LST-OF-CHRP) (QUOTE (MAIN-EVENT LST-OF-CHRP))) (PUT1-LST (QUOTE LST-OF-CHRP) (QUOTE (TYPE-PRESCRIPTION-LST ((LST-OF-CHRP 3 NIL)) LEMMAS ((REWRITE-RULE PUT-LST-OF-CHRP ((LST-OF-CHRP LST)) (EQUAL (LST-OF-CHRP (PUT-NTH X I LST)) (IF (NUMBERP X) (LESSP X (QUOTE 256)) (QUOTE *1*FALSE))) NIL)) TOTALP-LST ((LST-OF-CHRP . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE) SDEFN (LAMBDA (LST) (IF (LISTP LST) (IF (NUMBERP (CAR LST)) (IF (LESSP (CAR LST) (QUOTE 256)) (IF (LST-OF-CHRP (CDR LST)) (QUOTE *1*TRUE) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*TRUE))) LISP-CODE *1*LST-OF-CHRP SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((LISTP LST)) (((CDR LST)))) (TESTS-AND-CASES ((NOT (LISTP LST))) NIL)) LEVEL-NO 1 JUSTIFICATIONS ((JUSTIFICATION (LST) (COUNT LST) LESSP (ZERO CDR-LESSP))) IDATE 1000402215102 CONTROLLER-POCKETS (1) SATELLITES (*1*LST-OF-CHRP) IMMEDIATE-DEPENDENTS0 (LST-OF-CHRP-OFF PUT-LST-OF-CHRP GET-LST-OF-CHRP) EVENT (DEFN LST-OF-CHRP (LST) (IF (LISTP LST) (AND (NUMBERP (CAR LST)) (AND (LESSP (CAR LST) (QUOTE 256)) (LST-OF-CHRP (CDR LST)))) (QUOTE *1*TRUE))) LOCAL-UNDO-TUPLES ((DCELL . *1*LST-OF-CHRP))))) (PUT1-LST (QUOTE *1*STRXFRM) (QUOTE (MAIN-EVENT STRXFRM))) (PUT1-LST (QUOTE STRXFRM) (QUOTE (TYPE-PRESCRIPTION-LST ((STRXFRM 16 T NIL NIL)) TOTALP-LST ((STRXFRM . T)) SDEFN (LAMBDA (LST1 LST2 N) (IF (EQUAL N (QUOTE 0)) LST1 (IF (NUMBERP N) (STRXFRM1 (QUOTE 0) LST1 LST2 N) LST1))) LISP-CODE *1*STRXFRM SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402215102 SATELLITES (*1*STRXFRM) EVENT (DEFN STRXFRM (LST1 LST2 N) (IF (ZEROP N) LST1 (STRXFRM1 (QUOTE 0) LST1 LST2 N))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 STRXFRM1 . STRXFRM) (DCELL . *1*STRXFRM))))) (PUT1-LST (QUOTE *1*STRXFRM1) (QUOTE (MAIN-EVENT STRXFRM1))) (PUT1-LST (QUOTE STRXFRM1) (QUOTE (TYPE-PRESCRIPTION-LST ((STRXFRM1 16 NIL NIL NIL NIL)) TOTALP-LST ((STRXFRM1 . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE UNCHANGING SELF-REFLEXIVE) SDEFN (LAMBDA (I LST1 LST2 N) (IF (EQUAL (GET-NTH I LST2) (QUOTE 0)) (PUT-NTH (QUOTE 0) I LST1) (IF (EQUAL (SUB1 N) (QUOTE 0)) (PUT-NTH (QUOTE 0) I LST1) (STRXFRM1 (ADD1 I) (PUT-NTH (GET-NTH I LST2) I LST1) LST2 (SUB1 N))))) LISP-CODE *1*STRXFRM1 SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((EQUAL (GET-NTH I LST2) (QUOTE 0))) NIL) (TESTS-AND-CASES ((NOT (EQUAL (GET-NTH I LST2) (QUOTE 0))) (EQUAL (SUB1 N) (QUOTE 0))) NIL) (TESTS-AND-CASES ((NOT (EQUAL (GET-NTH I LST2) (QUOTE 0))) (NOT (EQUAL (SUB1 N) (QUOTE 0)))) (((ADD1 I) (PUT-NTH (GET-NTH I LST2) I LST1) LST2 (SUB1 N))))) LEVEL-NO 2 JUSTIFICATIONS ((JUSTIFICATION (N) (COUNT N) LESSP (SUB1-OF-1 COUNT-NUMBERP LESSP-SUB1))) IDATE 1000402215102 CONTROLLER-POCKETS (8) SATELLITES (*1*STRXFRM1) IMMEDIATE-DEPENDENTS0 (STRXFRM) EVENT (DEFN STRXFRM1 (I LST1 LST2 N) (IF (EQUAL (GET-NTH I LST2) (QUOTE 0)) (PUT-NTH (QUOTE 0) I LST1) (IF (EQUAL (SUB1 N) (QUOTE 0)) (PUT-NTH (QUOTE 0) I LST1) (STRXFRM1 (ADD1 I) (PUT-NTH (GET-NTH I LST2) I LST1) LST2 (SUB1 N))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PUT-NTH . STRXFRM1) (IMMEDIATE-DEPENDENTS0 GET-NTH . STRXFRM1) (IMMEDIATE-DEPENDENTS0 SUB1-OF-1 . STRXFRM1) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . STRXFRM1) (DCELL . *1*STRXFRM1))))) (PUT1-LST (QUOTE *1*STRTOK-LAST) (QUOTE (MAIN-EVENT STRTOK-LAST))) (PUT1-LST (QUOTE STRTOK-LAST) (QUOTE (TYPE-PRESCRIPTION-LST ((STRTOK-LAST 4 NIL T NIL NIL NIL NIL)) TOTALP-LST ((STRTOK-LAST . T)) SDEFN (LAMBDA (STR1 LAST N1 LST1 N2 LST2) (IF (EQUAL (NAT-TO-UINT STR1) (QUOTE 0)) (IF (EQUAL (NAT-TO-UINT LAST) (QUOTE 0)) LAST (STRTOK-LAST1 LAST (STRSPN* (QUOTE 0) (QUOTE 0) N1 LST1 N2 LST2) (STRSPN (QUOTE 0) N1 LST1 N2 LST2) N1 LST1 N2 LST2)) (STRTOK-LAST1 STR1 (STRSPN* (QUOTE 0) (QUOTE 0) N1 LST1 N2 LST2) (STRSPN (QUOTE 0) N1 LST1 N2 LST2) N1 LST1 N2 LST2))) LISP-CODE *1*STRTOK-LAST SUBRP *1*FALSE LEVEL-NO 4 IDATE 1000402215102 SATELLITES (*1*STRTOK-LAST) EVENT (DEFN STRTOK-LAST (STR1 LAST N1 LST1 N2 LST2) (IF (EQUAL (NAT-TO-UINT STR1) (QUOTE 0)) (IF (EQUAL (NAT-TO-UINT LAST) (QUOTE 0)) LAST (STRTOK-LAST1 LAST (STRSPN* (QUOTE 0) (QUOTE 0) N1 LST1 N2 LST2) (STRSPN (QUOTE 0) N1 LST1 N2 LST2) N1 LST1 N2 LST2)) (STRTOK-LAST1 STR1 (STRSPN* (QUOTE 0) (QUOTE 0) N1 LST1 N2 LST2) (STRSPN (QUOTE 0) N1 LST1 N2 LST2) N1 LST1 N2 LST2))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 STRSPN . STRTOK-LAST) (IMMEDIATE-DEPENDENTS0 STRSPN* . STRTOK-LAST) (IMMEDIATE-DEPENDENTS0 STRTOK-LAST1 . STRTOK-LAST) (IMMEDIATE-DEPENDENTS0 NAT-TO-UINT . STRTOK-LAST) (DCELL . *1*STRTOK-LAST))))) (PUT1-LST (QUOTE *1*STRTOK-LAST1) (QUOTE (MAIN-EVENT STRTOK-LAST1))) (PUT1-LST (QUOTE STRTOK-LAST1) (QUOTE (TYPE-PRESCRIPTION-LST ((STRTOK-LAST1 4 NIL NIL NIL NIL NIL NIL NIL)) TOTALP-LST ((STRTOK-LAST1 . T)) SDEFN (LAMBDA (STR1 I1* I1 N1 LST1 N2 LST2) (IF (EQUAL (GET-NTH I1 LST1) (QUOTE 0)) (QUOTE 0) (STRTOK-LAST0 STR1 (ADD (QUOTE 32) I1* (QUOTE 1)) (ADD1 I1) N1 LST1 N2 LST2))) LISP-CODE *1*STRTOK-LAST1 SUBRP *1*FALSE LEVEL-NO 4 IDATE 1000402215102 SATELLITES (*1*STRTOK-LAST1) IMMEDIATE-DEPENDENTS0 (STRTOK-LAST) EVENT (DEFN STRTOK-LAST1 (STR1 I1* I1 N1 LST1 N2 LST2) (IF (EQUAL (GET-NTH I1 LST1) (QUOTE 0)) (QUOTE 0) (STRTOK-LAST0 STR1 (ADD (QUOTE 32) I1* (QUOTE 1)) (ADD1 I1) N1 LST1 N2 LST2))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ADD . STRTOK-LAST1) (IMMEDIATE-DEPENDENTS0 STRTOK-LAST0 . STRTOK-LAST1) (IMMEDIATE-DEPENDENTS0 GET-NTH . STRTOK-LAST1) (DCELL . *1*STRTOK-LAST1))))) (PUT1-LST (QUOTE *1*STRTOK-LAST0) (QUOTE (MAIN-EVENT STRTOK-LAST0))) (PUT1-LST (QUOTE STRTOK-LAST0) (QUOTE (TYPE-PRESCRIPTION-LST ((STRTOK-LAST0 4 NIL NIL NIL NIL NIL NIL NIL)) TOTALP-LST ((STRTOK-LAST0 . T)) SDEFN (LAMBDA (STR1 I1* I1 N1 LST1 N2 LST2) (IF (EQUAL (GET-NTH (STRCSPN I1 N1 LST1 N2 LST2) LST1) (QUOTE 0)) (QUOTE 0) (ADD (QUOTE 32) STR1 (ADD (QUOTE 32) (STRCSPN* I1* I1 N1 LST1 N2 LST2) (QUOTE 1))))) LISP-CODE *1*STRTOK-LAST0 SUBRP *1*FALSE LEVEL-NO 4 IDATE 1000402215101 SATELLITES (*1*STRTOK-LAST0) IMMEDIATE-DEPENDENTS0 (STRTOK-LAST1) EVENT (DEFN STRTOK-LAST0 (STR1 I1* I1 N1 LST1 N2 LST2) (IF (EQUAL (GET-NTH (STRCSPN I1 N1 LST1 N2 LST2) LST1) (QUOTE 0)) (QUOTE 0) (ADD (QUOTE 32) STR1 (ADD (QUOTE 32) (STRCSPN* I1* I1 N1 LST1 N2 LST2) (QUOTE 1))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 STRCSPN* . STRTOK-LAST0) (IMMEDIATE-DEPENDENTS0 ADD . STRTOK-LAST0) (IMMEDIATE-DEPENDENTS0 STRCSPN . STRTOK-LAST0) (IMMEDIATE-DEPENDENTS0 GET-NTH . STRTOK-LAST0) (DCELL . *1*STRTOK-LAST0))))) (PUT1-LST (QUOTE *1*STRTOK-LST) (QUOTE (MAIN-EVENT STRTOK-LST))) (PUT1-LST (QUOTE STRTOK-LST) (QUOTE (TYPE-PRESCRIPTION-LST ((STRTOK-LST 16 NIL T NIL NIL)) TOTALP-LST ((STRTOK-LST . T)) SDEFN (LAMBDA (N1 LST1 N2 LST2) (STRTOK-LST2 (STRSPN (QUOTE 0) N1 LST1 N2 LST2) N1 LST1 N2 LST2)) LISP-CODE *1*STRTOK-LST SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402215101 SATELLITES (*1*STRTOK-LST) EVENT (DEFN STRTOK-LST (N1 LST1 N2 LST2) (STRTOK-LST2 (STRSPN (QUOTE 0) N1 LST1 N2 LST2) N1 LST1 N2 LST2)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 STRSPN . STRTOK-LST) (IMMEDIATE-DEPENDENTS0 STRTOK-LST2 . STRTOK-LST) (DCELL . *1*STRTOK-LST))))) (PUT1-LST (QUOTE *1*STRTOK-LST2) (QUOTE (MAIN-EVENT STRTOK-LST2))) (PUT1-LST (QUOTE STRTOK-LST2) (QUOTE (TYPE-PRESCRIPTION-LST ((STRTOK-LST2 16 NIL NIL T NIL NIL)) TOTALP-LST ((STRTOK-LST2 . T)) SDEFN (LAMBDA (I1 N1 LST1 N2 LST2) (IF (EQUAL (GET-NTH I1 LST1) (QUOTE 0)) LST1 (STRTOK-LST1 (ADD1 I1) N1 LST1 N2 LST2))) LISP-CODE *1*STRTOK-LST2 SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402215101 SATELLITES (*1*STRTOK-LST2) IMMEDIATE-DEPENDENTS0 (STRTOK-LST) EVENT (DEFN STRTOK-LST2 (I1 N1 LST1 N2 LST2) (IF (EQUAL (GET-NTH I1 LST1) (QUOTE 0)) LST1 (STRTOK-LST1 (ADD1 I1) N1 LST1 N2 LST2))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 STRTOK-LST1 . STRTOK-LST2) (IMMEDIATE-DEPENDENTS0 GET-NTH . STRTOK-LST2) (DCELL . *1*STRTOK-LST2))))) (PUT1-LST (QUOTE *1*STRTOK-LST1) (QUOTE (MAIN-EVENT STRTOK-LST1))) (PUT1-LST (QUOTE STRTOK-LST1) (QUOTE (TYPE-PRESCRIPTION-LST ((STRTOK-LST1 16 NIL NIL T NIL NIL)) TOTALP-LST ((STRTOK-LST1 . T)) SDEFN (LAMBDA (I1 N1 LST1 N2 LST2) (STRTOK-LST0 (STRCSPN I1 N1 LST1 N2 LST2) LST1 (GET-NTH (STRCSPN I1 N1 LST1 N2 LST2) LST1))) LISP-CODE *1*STRTOK-LST1 SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402215101 SATELLITES (*1*STRTOK-LST1) IMMEDIATE-DEPENDENTS0 (STRTOK-LST2) EVENT (DEFN STRTOK-LST1 (I1 N1 LST1 N2 LST2) (STRTOK-LST0 (STRCSPN I1 N1 LST1 N2 LST2) LST1 (GET-NTH (STRCSPN I1 N1 LST1 N2 LST2) LST1))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 GET-NTH . STRTOK-LST1) (IMMEDIATE-DEPENDENTS0 STRCSPN . STRTOK-LST1) (IMMEDIATE-DEPENDENTS0 STRTOK-LST0 . STRTOK-LST1) (DCELL . *1*STRTOK-LST1))))) (PUT1-LST (QUOTE *1*STRTOK-LST0) (QUOTE (MAIN-EVENT STRTOK-LST0))) (PUT1-LST (QUOTE STRTOK-LST0) (QUOTE (TYPE-PRESCRIPTION-LST ((STRTOK-LST0 16 NIL T NIL)) TOTALP-LST ((STRTOK-LST0 . T)) SDEFN (LAMBDA (I1 LST1 CH) (IF (EQUAL CH (QUOTE 0)) LST1 (PUT-NTH (QUOTE 0) I1 LST1))) LISP-CODE *1*STRTOK-LST0 SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402215101 SATELLITES (*1*STRTOK-LST0) IMMEDIATE-DEPENDENTS0 (STRTOK-LST1) EVENT (DEFN STRTOK-LST0 (I1 LST1 CH) (IF (EQUAL CH (QUOTE 0)) LST1 (PUT-NTH (QUOTE 0) I1 LST1))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PUT-NTH . STRTOK-LST0) (DCELL . *1*STRTOK-LST0))))) (PUT1-LST (QUOTE *1*STRTOK-TOK) (QUOTE (MAIN-EVENT STRTOK-TOK))) (PUT1-LST (QUOTE STRTOK-TOK) (QUOTE (TYPE-PRESCRIPTION-LST ((STRTOK-TOK 4 NIL NIL NIL NIL NIL NIL)) TOTALP-LST ((STRTOK-TOK . T)) SDEFN (LAMBDA (STR1 LAST N1 LST1 N2 LST2) (IF (EQUAL (NAT-TO-UINT STR1) (QUOTE 0)) (IF (EQUAL (NAT-TO-UINT LAST) (QUOTE 0)) (QUOTE 0) (IF (EQUAL (GET-NTH (STRSPN (QUOTE 0) N1 LST1 N2 LST2) LST1) (QUOTE 0)) (QUOTE 0) (ADD (QUOTE 32) LAST (STRSPN* (QUOTE 0) (QUOTE 0) N1 LST1 N2 LST2)))) (IF (EQUAL (GET-NTH (STRSPN (QUOTE 0) N1 LST1 N2 LST2) LST1) (QUOTE 0)) (QUOTE 0) (ADD (QUOTE 32) STR1 (STRSPN* (QUOTE 0) (QUOTE 0) N1 LST1 N2 LST2))))) LISP-CODE *1*STRTOK-TOK SUBRP *1*FALSE LEVEL-NO 4 IDATE 1000402215101 SATELLITES (*1*STRTOK-TOK) EVENT (DEFN STRTOK-TOK (STR1 LAST N1 LST1 N2 LST2) (IF (EQUAL (NAT-TO-UINT STR1) (QUOTE 0)) (IF (EQUAL (NAT-TO-UINT LAST) (QUOTE 0)) (QUOTE 0) (IF (EQUAL (GET-NTH (STRSPN (QUOTE 0) N1 LST1 N2 LST2) LST1) (QUOTE 0)) (QUOTE 0) (ADD (QUOTE 32) LAST (STRSPN* (QUOTE 0) (QUOTE 0) N1 LST1 N2 LST2)))) (IF (EQUAL (GET-NTH (STRSPN (QUOTE 0) N1 LST1 N2 LST2) LST1) (QUOTE 0)) (QUOTE 0) (ADD (QUOTE 32) STR1 (STRSPN* (QUOTE 0) (QUOTE 0) N1 LST1 N2 LST2))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 STRSPN* . STRTOK-TOK) (IMMEDIATE-DEPENDENTS0 ADD . STRTOK-TOK) (IMMEDIATE-DEPENDENTS0 STRSPN . STRTOK-TOK) (IMMEDIATE-DEPENDENTS0 GET-NTH . STRTOK-TOK) (IMMEDIATE-DEPENDENTS0 NAT-TO-UINT . STRTOK-TOK) (DCELL . *1*STRTOK-TOK))))) (PUT1-LST (QUOTE *1*STRSTR*) (QUOTE (MAIN-EVENT STRSTR*))) (PUT1-LST (QUOTE STRSTR*) (QUOTE (TYPE-PRESCRIPTION-LST ((STRSTR* 5 NIL NIL NIL NIL)) TOTALP-LST ((STRSTR* . T)) SDEFN (LAMBDA (N1 LST1 N2 LST2) (IF (EQUAL (GET-NTH (QUOTE 0) LST2) (QUOTE 0)) (QUOTE 0) (STRSTR1* (QUOTE 0) (QUOTE 0) N1 LST1 N2 LST2 (STRLEN (QUOTE 0) (SUB1 N2) (MCDR (QUOTE 1) LST2))))) LISP-CODE *1*STRSTR* SUBRP *1*FALSE LEVEL-NO 5 IDATE 1000402215101 SATELLITES (*1*STRSTR*) EVENT (DEFN STRSTR* (N1 LST1 N2 LST2) (IF (EQUAL (GET-NTH (QUOTE 0) LST2) (QUOTE 0)) (QUOTE 0) (STRSTR1* (QUOTE 0) (QUOTE 0) N1 LST1 N2 LST2 (STRLEN (QUOTE 0) (SUB1 N2) (MCDR (QUOTE 1) LST2))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MCDR . STRSTR*) (IMMEDIATE-DEPENDENTS0 STRLEN . STRSTR*) (IMMEDIATE-DEPENDENTS0 STRSTR1* . STRSTR*) (IMMEDIATE-DEPENDENTS0 GET-NTH . STRSTR*) (DCELL . *1*STRSTR*))))) (PUT1-LST (QUOTE *1*STRSTR1*) (QUOTE (MAIN-EVENT STRSTR1*))) (PUT1-LST (QUOTE STRSTR1*) (QUOTE (TYPE-PRESCRIPTION-LST ((STRSTR1* 5 T NIL NIL NIL NIL NIL NIL)) TOTALP-LST ((STRSTR1* . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE UNCHANGING UNCHANGING UNCHANGING UNCHANGING UNCHANGING) SDEFN (LAMBDA (I* I N1 LST1 N2 LST2 LEN) (IF (LESSP I N1) (IF (NUMBERP (STRCHR1 I N1 LST1 (GET-NTH (QUOTE 0) LST2))) (IF (EQUAL (STRNCMP LEN (MCDR (ADD1 (STRCHR1 I N1 LST1 (GET-NTH (QUOTE 0) LST2))) LST1) (MCDR (QUOTE 1) LST2)) (QUOTE 0)) (STRCHR1* I* I N1 LST1 (GET-NTH (QUOTE 0) LST2)) (STRSTR1* (ADD (QUOTE 32) (STRCHR1* I* I N1 LST1 (GET-NTH (QUOTE 0) LST2)) (QUOTE 1)) (ADD1 (STRCHR1 I N1 LST1 (GET-NTH (QUOTE 0) LST2))) N1 LST1 N2 LST2 LEN)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE))) LISP-CODE *1*STRSTR1* SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((LESSP I N1) (NUMBERP (STRCHR1 I N1 LST1 (GET-NTH (QUOTE 0) LST2))) (EQUAL (STRNCMP LEN (MCDR (ADD1 (STRCHR1 I N1 LST1 (GET-NTH (QUOTE 0) LST2))) LST1) (MCDR (QUOTE 1) LST2)) (QUOTE 0))) NIL) (TESTS-AND-CASES ((LESSP I N1) (NUMBERP (STRCHR1 I N1 LST1 (GET-NTH (QUOTE 0) LST2))) (NOT (EQUAL (STRNCMP LEN (MCDR (ADD1 (STRCHR1 I N1 LST1 (GET-NTH (QUOTE 0) LST2))) LST1) (MCDR (QUOTE 1) LST2)) (QUOTE 0)))) (((ADD (QUOTE 32) (STRCHR1* I* I N1 LST1 (GET-NTH (QUOTE 0) LST2)) (QUOTE 1)) (ADD1 (STRCHR1 I N1 LST1 (GET-NTH (QUOTE 0) LST2))) N1 LST1 N2 LST2 LEN))) (TESTS-AND-CASES ((LESSP I N1) (NOT (NUMBERP (STRCHR1 I N1 LST1 (GET-NTH (QUOTE 0) LST2))))) NIL) (TESTS-AND-CASES ((NOT (LESSP I N1))) NIL)) LEVEL-NO 5 JUSTIFICATIONS ((JUSTIFICATION (I N1) (DIFFERENCE N1 I) LESSP (LESSP-SUB1 SUB1-ADD1 MCDR STRNCMP DIFFERENCE-0 EQUAL DIFFERENCE=0 LESSP STRCHR1 ADD1 LESSP-OF-1 ZERO STRCHR1-BOUNDS))) IDATE 1000402215101 CONTROLLER-POCKETS (6) SATELLITES (*1*STRSTR1*) IMMEDIATE-DEPENDENTS0 (STRSTR*) EVENT (DEFN STRSTR1* (I* I N1 LST1 N2 LST2 LEN) (IF (LESSP I N1) (IF (NUMBERP (STRCHR1 I N1 LST1 (GET-NTH (QUOTE 0) LST2))) (IF (EQUAL (STRNCMP LEN (MCDR (ADD1 (STRCHR1 I N1 LST1 (GET-NTH (QUOTE 0) LST2))) LST1) (MCDR (QUOTE 1) LST2)) (QUOTE 0)) (STRCHR1* I* I N1 LST1 (GET-NTH (QUOTE 0) LST2)) (STRSTR1* (ADD (QUOTE 32) (STRCHR1* I* I N1 LST1 (GET-NTH (QUOTE 0) LST2)) (QUOTE 1)) (ADD1 (STRCHR1 I N1 LST1 (GET-NTH (QUOTE 0) LST2))) N1 LST1 N2 LST2 LEN)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) ((LESSP (DIFFERENCE N1 I)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ADD . STRSTR1*) (IMMEDIATE-DEPENDENTS0 STRCHR1* . STRSTR1*) (IMMEDIATE-DEPENDENTS0 GET-NTH . STRSTR1*) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . STRSTR1*) (IMMEDIATE-DEPENDENTS0 MCDR . STRSTR1*) (IMMEDIATE-DEPENDENTS0 STRNCMP . STRSTR1*) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . STRSTR1*) (IMMEDIATE-DEPENDENTS0 DIFFERENCE=0 . STRSTR1*) (IMMEDIATE-DEPENDENTS0 STRCHR1 . STRSTR1*) (IMMEDIATE-DEPENDENTS0 LESSP-OF-1 . STRSTR1*) (IMMEDIATE-DEPENDENTS0 STRCHR1-BOUNDS . STRSTR1*) (DCELL . *1*STRSTR1*))))) (PUT1-LST (QUOTE *1*STRSPN*) (QUOTE (MAIN-EVENT STRSPN*))) (PUT1-LST (QUOTE STRSPN*) (QUOTE (TYPE-PRESCRIPTION-LST ((STRSPN* 5 T NIL NIL NIL NIL NIL)) TOTALP-LST ((STRSPN* . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE UNCHANGING UNCHANGING UNCHANGING UNCHANGING) SDEFN (LAMBDA (I1* I1 N1 LST1 N2 LST2) (IF (LESSP I1 N1) (IF (STRCHR1 (QUOTE 0) N2 LST2 (GET-NTH I1 LST1)) (STRSPN* (ADD (QUOTE 32) I1* (QUOTE 1)) (ADD1 I1) N1 LST1 N2 LST2) I1*) (QUOTE *1*FALSE))) LISP-CODE *1*STRSPN* SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((LESSP I1 N1) (STRCHR1 (QUOTE 0) N2 LST2 (GET-NTH I1 LST1))) (((ADD (QUOTE 32) I1* (QUOTE 1)) (ADD1 I1) N1 LST1 N2 LST2))) (TESTS-AND-CASES ((LESSP I1 N1) (NOT (STRCHR1 (QUOTE 0) N2 LST2 (GET-NTH I1 LST1)))) NIL) (TESTS-AND-CASES ((NOT (LESSP I1 N1))) NIL)) LEVEL-NO 4 JUSTIFICATIONS ((JUSTIFICATION (I1 N1) (DIFFERENCE N1 I1) LESSP (ZERO))) IDATE 1000402215101 CONTROLLER-POCKETS (6) SATELLITES (*1*STRSPN*) IMMEDIATE-DEPENDENTS0 (STRTOK-LAST STRTOK-TOK) EVENT (DEFN STRSPN* (I1* I1 N1 LST1 N2 LST2) (IF (LESSP I1 N1) (IF (STRCHR1 (QUOTE 0) N2 LST2 (GET-NTH I1 LST1)) (STRSPN* (ADD (QUOTE 32) I1* (QUOTE 1)) (ADD1 I1) N1 LST1 N2 LST2) I1*) (QUOTE *1*FALSE)) ((LESSP (DIFFERENCE N1 I1)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ADD . STRSPN*) (IMMEDIATE-DEPENDENTS0 GET-NTH . STRSPN*) (IMMEDIATE-DEPENDENTS0 STRCHR1 . STRSPN*) (DCELL . *1*STRSPN*))))) (PUT1-LST (QUOTE *1*STRPBRK*) (QUOTE (MAIN-EVENT STRPBRK*))) (PUT1-LST (QUOTE STRPBRK*) (QUOTE (TYPE-PRESCRIPTION-LST ((STRPBRK* 5 T NIL NIL NIL NIL NIL)) TOTALP-LST ((STRPBRK* . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE UNCHANGING UNCHANGING UNCHANGING UNCHANGING) SDEFN (LAMBDA (I1* I1 N1 LST1 N2 LST2) (IF (LESSP I1 N1) (IF (EQUAL (GET-NTH I1 LST1) (QUOTE 0)) (QUOTE *1*FALSE) (IF (STRCHR1 (QUOTE 0) N2 LST2 (GET-NTH I1 LST1)) I1* (STRPBRK* (ADD (QUOTE 32) I1* (QUOTE 1)) (ADD1 I1) N1 LST1 N2 LST2))) (QUOTE *1*FALSE))) LISP-CODE *1*STRPBRK* SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((LESSP I1 N1) (EQUAL (GET-NTH I1 LST1) (QUOTE 0))) NIL) (TESTS-AND-CASES ((LESSP I1 N1) (NOT (EQUAL (GET-NTH I1 LST1) (QUOTE 0))) (STRCHR1 (QUOTE 0) N2 LST2 (GET-NTH I1 LST1))) NIL) (TESTS-AND-CASES ((LESSP I1 N1) (NOT (EQUAL (GET-NTH I1 LST1) (QUOTE 0))) (NOT (STRCHR1 (QUOTE 0) N2 LST2 (GET-NTH I1 LST1)))) (((ADD (QUOTE 32) I1* (QUOTE 1)) (ADD1 I1) N1 LST1 N2 LST2))) (TESTS-AND-CASES ((NOT (LESSP I1 N1))) NIL)) LEVEL-NO 4 JUSTIFICATIONS ((JUSTIFICATION (I1 N1) (DIFFERENCE N1 I1) LESSP (ZERO))) IDATE 1000402215101 CONTROLLER-POCKETS (6) SATELLITES (*1*STRPBRK*) EVENT (DEFN STRPBRK* (I1* I1 N1 LST1 N2 LST2) (IF (LESSP I1 N1) (IF (EQUAL (GET-NTH I1 LST1) (QUOTE 0)) (QUOTE *1*FALSE) (IF (STRCHR1 (QUOTE 0) N2 LST2 (GET-NTH I1 LST1)) I1* (STRPBRK* (ADD (QUOTE 32) I1* (QUOTE 1)) (ADD1 I1) N1 LST1 N2 LST2))) (QUOTE *1*FALSE)) ((LESSP (DIFFERENCE N1 I1)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ADD . STRPBRK*) (IMMEDIATE-DEPENDENTS0 STRCHR1 . STRPBRK*) (IMMEDIATE-DEPENDENTS0 GET-NTH . STRPBRK*) (DCELL . *1*STRPBRK*))))) (PUT1-LST (QUOTE *1*STRRCHR*) (QUOTE (MAIN-EVENT STRRCHR*))) (PUT1-LST (QUOTE STRRCHR*) (QUOTE (TYPE-PRESCRIPTION-LST ((STRRCHR* 4 T NIL NIL NIL NIL T)) TOTALP-LST ((STRRCHR* . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE UNCHANGING UNCHANGING UNCHANGING QUESTIONABLE) SDEFN (LAMBDA (I* I N LST CH J*) (IF (LESSP I N) (IF (EQUAL (GET-NTH I LST) CH) (IF (EQUAL (GET-NTH I LST) (QUOTE 0)) I* (STRRCHR* (ADD (QUOTE 32) I* (QUOTE 1)) (ADD1 I) N LST CH I*)) (IF (EQUAL (GET-NTH I LST) (QUOTE 0)) J* (STRRCHR* (ADD (QUOTE 32) I* (QUOTE 1)) (ADD1 I) N LST CH J*))) J*)) LISP-CODE *1*STRRCHR* SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((LESSP I N) (EQUAL (GET-NTH I LST) CH) (EQUAL (GET-NTH I LST) (QUOTE 0))) NIL) (TESTS-AND-CASES ((LESSP I N) (EQUAL (GET-NTH I LST) CH) (NOT (EQUAL (GET-NTH I LST) (QUOTE 0)))) (((ADD (QUOTE 32) I* (QUOTE 1)) (ADD1 I) N LST CH I*))) (TESTS-AND-CASES ((LESSP I N) (NOT (EQUAL (GET-NTH I LST) CH)) (EQUAL (GET-NTH I LST) (QUOTE 0))) NIL) (TESTS-AND-CASES ((LESSP I N) (NOT (EQUAL (GET-NTH I LST) CH)) (NOT (EQUAL (GET-NTH I LST) (QUOTE 0)))) (((ADD (QUOTE 32) I* (QUOTE 1)) (ADD1 I) N LST CH J*))) (TESTS-AND-CASES ((NOT (LESSP I N))) NIL)) LEVEL-NO 4 JUSTIFICATIONS ((JUSTIFICATION (I N) (DIFFERENCE N I) LESSP (ZERO))) IDATE 1000402215101 CONTROLLER-POCKETS (6) SATELLITES (*1*STRRCHR*) EVENT (DEFN STRRCHR* (I* I N LST CH J*) (IF (LESSP I N) (IF (EQUAL (GET-NTH I LST) CH) (IF (EQUAL (GET-NTH I LST) (QUOTE 0)) I* (STRRCHR* (ADD (QUOTE 32) I* (QUOTE 1)) (ADD1 I) N LST CH I*)) (IF (EQUAL (GET-NTH I LST) (QUOTE 0)) J* (STRRCHR* (ADD (QUOTE 32) I* (QUOTE 1)) (ADD1 I) N LST CH J*))) J*) ((LESSP (DIFFERENCE N I)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ADD . STRRCHR*) (IMMEDIATE-DEPENDENTS0 GET-NTH . STRRCHR*) (DCELL . *1*STRRCHR*))))) (PUT1-LST (QUOTE *1*STRCSPN*) (QUOTE (MAIN-EVENT STRCSPN*))) (PUT1-LST (QUOTE STRCSPN*) (QUOTE (TYPE-PRESCRIPTION-LST ((STRCSPN* 5 T NIL NIL NIL NIL NIL)) TOTALP-LST ((STRCSPN* . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE UNCHANGING UNCHANGING UNCHANGING UNCHANGING) SDEFN (LAMBDA (I1* I1 N1 LST1 N2 LST2) (IF (LESSP I1 N1) (IF (STRCHR (QUOTE 0) N2 LST2 (GET-NTH I1 LST1)) I1* (STRCSPN* (ADD (QUOTE 32) I1* (QUOTE 1)) (ADD1 I1) N1 LST1 N2 LST2)) (QUOTE *1*FALSE))) LISP-CODE *1*STRCSPN* SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((LESSP I1 N1) (STRCHR (QUOTE 0) N2 LST2 (GET-NTH I1 LST1))) NIL) (TESTS-AND-CASES ((LESSP I1 N1) (NOT (STRCHR (QUOTE 0) N2 LST2 (GET-NTH I1 LST1)))) (((ADD (QUOTE 32) I1* (QUOTE 1)) (ADD1 I1) N1 LST1 N2 LST2))) (TESTS-AND-CASES ((NOT (LESSP I1 N1))) NIL)) LEVEL-NO 4 JUSTIFICATIONS ((JUSTIFICATION (I1 N1) (DIFFERENCE N1 I1) LESSP (ZERO))) IDATE 1000402215101 CONTROLLER-POCKETS (6) SATELLITES (*1*STRCSPN*) IMMEDIATE-DEPENDENTS0 (STRTOK-LAST0) EVENT (DEFN STRCSPN* (I1* I1 N1 LST1 N2 LST2) (IF (LESSP I1 N1) (IF (STRCHR (QUOTE 0) N2 LST2 (GET-NTH I1 LST1)) I1* (STRCSPN* (ADD (QUOTE 32) I1* (QUOTE 1)) (ADD1 I1) N1 LST1 N2 LST2)) (QUOTE *1*FALSE)) ((LESSP (DIFFERENCE N1 I1)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ADD . STRCSPN*) (IMMEDIATE-DEPENDENTS0 GET-NTH . STRCSPN*) (IMMEDIATE-DEPENDENTS0 STRCHR . STRCSPN*) (DCELL . *1*STRCSPN*))))) (PUT1-LST (QUOTE *1*STRCHR1*) (QUOTE (MAIN-EVENT STRCHR1*))) (PUT1-LST (QUOTE STRCHR1*) (QUOTE (TYPE-PRESCRIPTION-LST ((STRCHR1* 5 T NIL NIL NIL NIL)) TOTALP-LST ((STRCHR1* . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE UNCHANGING UNCHANGING UNCHANGING) SDEFN (LAMBDA (I* I N LST CH) (IF (LESSP I N) (IF (EQUAL (GET-NTH I LST) (QUOTE 0)) (QUOTE *1*FALSE) (IF (EQUAL (GET-NTH I LST) CH) I* (STRCHR1* (ADD (QUOTE 32) I* (QUOTE 1)) (ADD1 I) N LST CH))) (QUOTE *1*FALSE))) LISP-CODE *1*STRCHR1* SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((LESSP I N) (EQUAL (GET-NTH I LST) (QUOTE 0))) NIL) (TESTS-AND-CASES ((LESSP I N) (NOT (EQUAL (GET-NTH I LST) (QUOTE 0))) (EQUAL (GET-NTH I LST) CH)) NIL) (TESTS-AND-CASES ((LESSP I N) (NOT (EQUAL (GET-NTH I LST) (QUOTE 0))) (NOT (EQUAL (GET-NTH I LST) CH))) (((ADD (QUOTE 32) I* (QUOTE 1)) (ADD1 I) N LST CH))) (TESTS-AND-CASES ((NOT (LESSP I N))) NIL)) LEVEL-NO 4 JUSTIFICATIONS ((JUSTIFICATION (I N) (DIFFERENCE N I) LESSP (ZERO))) IDATE 1000402215101 CONTROLLER-POCKETS (6) SATELLITES (*1*STRCHR1*) IMMEDIATE-DEPENDENTS0 (STRSTR1*) EVENT (DEFN STRCHR1* (I* I N LST CH) (IF (LESSP I N) (IF (EQUAL (GET-NTH I LST) (QUOTE 0)) (QUOTE *1*FALSE) (IF (EQUAL (GET-NTH I LST) CH) I* (STRCHR1* (ADD (QUOTE 32) I* (QUOTE 1)) (ADD1 I) N LST CH))) (QUOTE *1*FALSE)) ((LESSP (DIFFERENCE N I)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ADD . STRCHR1*) (IMMEDIATE-DEPENDENTS0 GET-NTH . STRCHR1*) (DCELL . *1*STRCHR1*))))) (PUT1-LST (QUOTE *1*STRCHR*) (QUOTE (MAIN-EVENT STRCHR*))) (PUT1-LST (QUOTE STRCHR*) (QUOTE (TYPE-PRESCRIPTION-LST ((STRCHR* 5 T NIL NIL NIL NIL)) TOTALP-LST ((STRCHR* . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE UNCHANGING UNCHANGING UNCHANGING) SDEFN (LAMBDA (I* I N LST CH) (IF (LESSP I N) (IF (EQUAL (GET-NTH I LST) CH) I* (IF (EQUAL (GET-NTH I LST) (QUOTE 0)) (QUOTE *1*FALSE) (STRCHR* (ADD (QUOTE 32) I* (QUOTE 1)) (ADD1 I) N LST CH))) (QUOTE *1*FALSE))) LISP-CODE *1*STRCHR* SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((LESSP I N) (EQUAL (GET-NTH I LST) CH)) NIL) (TESTS-AND-CASES ((LESSP I N) (NOT (EQUAL (GET-NTH I LST) CH)) (EQUAL (GET-NTH I LST) (QUOTE 0))) NIL) (TESTS-AND-CASES ((LESSP I N) (NOT (EQUAL (GET-NTH I LST) CH)) (NOT (EQUAL (GET-NTH I LST) (QUOTE 0)))) (((ADD (QUOTE 32) I* (QUOTE 1)) (ADD1 I) N LST CH))) (TESTS-AND-CASES ((NOT (LESSP I N))) NIL)) LEVEL-NO 4 JUSTIFICATIONS ((JUSTIFICATION (I N) (DIFFERENCE N I) LESSP (ZERO))) IDATE 1000402215101 CONTROLLER-POCKETS (6) SATELLITES (*1*STRCHR*) EVENT (DEFN STRCHR* (I* I N LST CH) (IF (LESSP I N) (IF (EQUAL (GET-NTH I LST) CH) I* (IF (EQUAL (GET-NTH I LST) (QUOTE 0)) (QUOTE *1*FALSE) (STRCHR* (ADD (QUOTE 32) I* (QUOTE 1)) (ADD1 I) N LST CH))) (QUOTE *1*FALSE)) ((LESSP (DIFFERENCE N I)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ADD . STRCHR*) (IMMEDIATE-DEPENDENTS0 GET-NTH . STRCHR*) (DCELL . *1*STRCHR*))))) (PUT1-LST (QUOTE *1*MEMCHR*) (QUOTE (MAIN-EVENT MEMCHR*))) (PUT1-LST (QUOTE MEMCHR*) (QUOTE (TYPE-PRESCRIPTION-LST ((MEMCHR* 5 T NIL NIL NIL NIL)) TOTALP-LST ((MEMCHR* . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE SELF-REFLEXIVE UNCHANGING UNCHANGING) SDEFN (LAMBDA (I* I N LST CH) (IF (EQUAL (GET-NTH I LST) CH) I* (IF (EQUAL (SUB1 N) (QUOTE 0)) (QUOTE *1*FALSE) (MEMCHR* (ADD (QUOTE 32) I* (QUOTE 1)) (ADD1 I) (SUB1 N) LST CH)))) LISP-CODE *1*MEMCHR* SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((EQUAL (GET-NTH I LST) CH)) NIL) (TESTS-AND-CASES ((NOT (EQUAL (GET-NTH I LST) CH)) (EQUAL (SUB1 N) (QUOTE 0))) NIL) (TESTS-AND-CASES ((NOT (EQUAL (GET-NTH I LST) CH)) (NOT (EQUAL (SUB1 N) (QUOTE 0)))) (((ADD (QUOTE 32) I* (QUOTE 1)) (ADD1 I) (SUB1 N) LST CH)))) LEVEL-NO 4 JUSTIFICATIONS ((JUSTIFICATION (N) (COUNT N) LESSP (SUB1-OF-1 COUNT-NUMBERP LESSP-SUB1))) IDATE 1000402215101 CONTROLLER-POCKETS (4) SATELLITES (*1*MEMCHR*) EVENT (DEFN MEMCHR* (I* I N LST CH) (IF (EQUAL (GET-NTH I LST) CH) I* (IF (EQUAL (SUB1 N) (QUOTE 0)) (QUOTE *1*FALSE) (MEMCHR* (ADD (QUOTE 32) I* (QUOTE 1)) (ADD1 I) (SUB1 N) LST CH)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ADD . MEMCHR*) (IMMEDIATE-DEPENDENTS0 GET-NTH . MEMCHR*) (IMMEDIATE-DEPENDENTS0 SUB1-OF-1 . MEMCHR*) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . MEMCHR*) (DCELL . *1*MEMCHR*))))) (PUT1-LST (QUOTE *1*STRLEN*) (QUOTE (MAIN-EVENT STRLEN*))) (PUT1-LST (QUOTE STRLEN*) (QUOTE (TYPE-PRESCRIPTION-LST ((STRLEN* 4 T NIL NIL NIL)) TOTALP-LST ((STRLEN* . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE UNCHANGING UNCHANGING) SDEFN (LAMBDA (I* I N LST) (IF (LESSP I N) (IF (EQUAL (GET-NTH I LST) (NULL)) I* (STRLEN* (ADD (QUOTE 32) I* (QUOTE 1)) (ADD1 I) N LST)) I*)) LISP-CODE *1*STRLEN* SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((LESSP I N) (EQUAL (GET-NTH I LST) (NULL))) NIL) (TESTS-AND-CASES ((LESSP I N) (NOT (EQUAL (GET-NTH I LST) (NULL)))) (((ADD (QUOTE 32) I* (QUOTE 1)) (ADD1 I) N LST))) (TESTS-AND-CASES ((NOT (LESSP I N))) NIL)) LEVEL-NO 4 JUSTIFICATIONS ((JUSTIFICATION (I N) (DIFFERENCE N I) LESSP (ZERO))) IDATE 1000402215101 CONTROLLER-POCKETS (6) SATELLITES (*1*STRLEN*) EVENT (DEFN STRLEN* (I* I N LST) (IF (LESSP I N) (IF (EQUAL (GET-NTH I LST) (NULL)) I* (STRLEN* (ADD (QUOTE 32) I* (QUOTE 1)) (ADD1 I) N LST)) I*) ((LESSP (DIFFERENCE N I)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ADD . STRLEN*) (IMMEDIATE-DEPENDENTS0 NULL . STRLEN*) (IMMEDIATE-DEPENDENTS0 GET-NTH . STRLEN*) (DCELL . *1*STRLEN*))))) (PUT1-LST (QUOTE *1*MEMMOVE) (QUOTE (MAIN-EVENT MEMMOVE))) (PUT1-LST (QUOTE MEMMOVE) (QUOTE (TYPE-PRESCRIPTION-LST ((MEMMOVE 16 NIL NIL NIL T T)) TOTALP-LST ((MEMMOVE . T)) SDEFN (LAMBDA (STR1 STR2 N LST1 LST2) (IF (EQUAL N (QUOTE 0)) LST1 (IF (NUMBERP N) (IF (EQUAL (NAT-TO-UINT STR1) (NAT-TO-UINT STR2)) LST2 (IF (LESSP (NAT-TO-UINT STR1) (NAT-TO-UINT STR2)) (IF (EQUAL (REMAINDER (NAT-TO-UINT STR1) (QUOTE 4)) (QUOTE 0)) (IF (EQUAL (REMAINDER (NAT-TO-UINT STR2) (QUOTE 4)) (QUOTE 0)) (IF (LESSP N (QUOTE 4)) (MMOV1-LST (QUOTE 0) LST1 LST2 N) (MEMMOVE-1 LST1 LST2 (QUOTE 0) (QUOTIENT N (QUOTE 4)) N)) (IF (EQUAL (REMAINDER (NAT-TO-UINT STR1) (QUOTE 4)) (REMAINDER (NAT-TO-UINT STR2) (QUOTE 4))) (IF (LESSP (QUOTE 3) N) (MEMMOVE-0 LST1 LST2 (QUOTE 0) (DIFFERENCE (QUOTE 4) (REMAINDER (NAT-TO-UINT STR1) (QUOTE 4))) (DIFFERENCE (PLUS N (REMAINDER (NAT-TO-UINT STR1) (QUOTE 4))) (QUOTE 4))) (MEMMOVE-0 LST1 LST2 (QUOTE 0) N (QUOTE 0))) (MEMMOVE-0 LST1 LST2 (QUOTE 0) N (QUOTE 0)))) (IF (EQUAL (REMAINDER (NAT-TO-UINT STR1) (QUOTE 4)) (REMAINDER (NAT-TO-UINT STR2) (QUOTE 4))) (IF (LESSP (QUOTE 3) N) (MEMMOVE-0 LST1 LST2 (QUOTE 0) (DIFFERENCE (QUOTE 4) (REMAINDER (NAT-TO-UINT STR1) (QUOTE 4))) (DIFFERENCE (PLUS N (REMAINDER (NAT-TO-UINT STR1) (QUOTE 4))) (QUOTE 4))) (MEMMOVE-0 LST1 LST2 (QUOTE 0) N (QUOTE 0))) (MEMMOVE-0 LST1 LST2 (QUOTE 0) N (QUOTE 0)))) (IF (EQUAL (REMAINDER (PLUS N (NAT-TO-UINT STR1)) (QUOTE 4)) (QUOTE 0)) (IF (EQUAL (REMAINDER (PLUS N (NAT-TO-UINT STR2)) (QUOTE 4)) (QUOTE 0)) (IF (LESSP N (QUOTE 4)) (MMOV1-LST1 N LST1 LST2 N) (MEMMOVE-4 LST1 LST2 N (QUOTIENT N (QUOTE 4)) N)) (IF (EQUAL (REMAINDER (PLUS N (NAT-TO-UINT STR1)) (QUOTE 4)) (REMAINDER (PLUS N (NAT-TO-UINT STR2)) (QUOTE 4))) (IF (LESSP (QUOTE 4) N) (MEMMOVE-3 LST1 LST2 N (REMAINDER (PLUS N (NAT-TO-UINT STR1)) (QUOTE 4)) (DIFFERENCE N (REMAINDER (PLUS N (NAT-TO-UINT STR1)) (QUOTE 4)))) (MEMMOVE-3 LST1 LST2 N N (QUOTE 0))) (MEMMOVE-3 LST1 LST2 N N (QUOTE 0)))) (IF (EQUAL (REMAINDER (PLUS N (NAT-TO-UINT STR1)) (QUOTE 4)) (REMAINDER (PLUS N (NAT-TO-UINT STR2)) (QUOTE 4))) (IF (LESSP (QUOTE 4) N) (MEMMOVE-3 LST1 LST2 N (REMAINDER (PLUS N (NAT-TO-UINT STR1)) (QUOTE 4)) (DIFFERENCE N (REMAINDER (PLUS N (NAT-TO-UINT STR1)) (QUOTE 4)))) (MEMMOVE-3 LST1 LST2 N N (QUOTE 0))) (MEMMOVE-3 LST1 LST2 N N (QUOTE 0)))))) LST1))) LISP-CODE *1*MEMMOVE SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402215101 SATELLITES (*1*MEMMOVE) EVENT (DEFN MEMMOVE (STR1 STR2 N LST1 LST2) (IF (ZEROP N) LST1 (IF (EQUAL (NAT-TO-UINT STR1) (NAT-TO-UINT STR2)) LST2 (IF (LESSP (NAT-TO-UINT STR1) (NAT-TO-UINT STR2)) (IF (AND (EQUAL (REMAINDER (NAT-TO-UINT STR1) (QUOTE 4)) (QUOTE 0)) (EQUAL (REMAINDER (NAT-TO-UINT STR2) (QUOTE 4)) (QUOTE 0))) (IF (LESSP N (QUOTE 4)) (MMOV1-LST (QUOTE 0) LST1 LST2 N) (MEMMOVE-1 LST1 LST2 (QUOTE 0) (QUOTIENT N (QUOTE 4)) N)) (IF (AND (EQUAL (REMAINDER (NAT-TO-UINT STR1) (QUOTE 4)) (REMAINDER (NAT-TO-UINT STR2) (QUOTE 4))) (LESSP (QUOTE 3) N)) (MEMMOVE-0 LST1 LST2 (QUOTE 0) (DIFFERENCE (QUOTE 4) (REMAINDER (NAT-TO-UINT STR1) (QUOTE 4))) (DIFFERENCE (PLUS N (REMAINDER (NAT-TO-UINT STR1) (QUOTE 4))) (QUOTE 4))) (MEMMOVE-0 LST1 LST2 (QUOTE 0) N (QUOTE 0)))) (IF (AND (EQUAL (REMAINDER (PLUS N (NAT-TO-UINT STR1)) (QUOTE 4)) (QUOTE 0)) (EQUAL (REMAINDER (PLUS N (NAT-TO-UINT STR2)) (QUOTE 4)) (QUOTE 0))) (IF (LESSP N (QUOTE 4)) (MMOV1-LST1 N LST1 LST2 N) (MEMMOVE-4 LST1 LST2 N (QUOTIENT N (QUOTE 4)) N)) (IF (AND (EQUAL (REMAINDER (PLUS N (NAT-TO-UINT STR1)) (QUOTE 4)) (REMAINDER (PLUS N (NAT-TO-UINT STR2)) (QUOTE 4))) (LESSP (QUOTE 4) N)) (MEMMOVE-3 LST1 LST2 N (REMAINDER (PLUS N (NAT-TO-UINT STR1)) (QUOTE 4)) (DIFFERENCE N (REMAINDER (PLUS N (NAT-TO-UINT STR1)) (QUOTE 4)))) (MEMMOVE-3 LST1 LST2 N N (QUOTE 0)))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MEMMOVE-3 . MEMMOVE) (IMMEDIATE-DEPENDENTS0 MEMMOVE-4 . MEMMOVE) (IMMEDIATE-DEPENDENTS0 MMOV1-LST1 . MEMMOVE) (IMMEDIATE-DEPENDENTS0 MEMMOVE-0 . MEMMOVE) (IMMEDIATE-DEPENDENTS0 MEMMOVE-1 . MEMMOVE) (IMMEDIATE-DEPENDENTS0 MMOV1-LST . MEMMOVE) (IMMEDIATE-DEPENDENTS0 NAT-TO-UINT . MEMMOVE) (DCELL . *1*MEMMOVE))))) (PUT1-LST (QUOTE *1*MEMMOVE-3) (QUOTE (MAIN-EVENT MEMMOVE-3))) (PUT1-LST (QUOTE MEMMOVE-3) (QUOTE (TYPE-PRESCRIPTION-LST ((MEMMOVE-3 16 T NIL NIL NIL NIL)) TOTALP-LST ((MEMMOVE-3 . T)) SDEFN (LAMBDA (LST1 LST2 I NT N) (IF (LESSP N (QUOTE 4)) (MMOV1-LST1 (DIFFERENCE I NT) (MMOV1-LST1 I LST1 LST2 NT) LST2 N) (MEMMOVE-4 (MMOV1-LST1 I LST1 LST2 NT) LST2 (DIFFERENCE I NT) (QUOTIENT N (QUOTE 4)) N))) LISP-CODE *1*MEMMOVE-3 SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402215101 SATELLITES (*1*MEMMOVE-3) IMMEDIATE-DEPENDENTS0 (MEMMOVE) EVENT (DEFN MEMMOVE-3 (LST1 LST2 I NT N) (IF (LESSP N (QUOTE 4)) (MMOV1-LST1 (DIFFERENCE I NT) (MMOV1-LST1 I LST1 LST2 NT) LST2 N) (MEMMOVE-4 (MMOV1-LST1 I LST1 LST2 NT) LST2 (DIFFERENCE I NT) (QUOTIENT N (QUOTE 4)) N))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MEMMOVE-4 . MEMMOVE-3) (IMMEDIATE-DEPENDENTS0 MMOV1-LST1 . MEMMOVE-3) (DCELL . *1*MEMMOVE-3))))) (PUT1-LST (QUOTE *1*MEMMOVE-4) (QUOTE (MAIN-EVENT MEMMOVE-4))) (PUT1-LST (QUOTE MEMMOVE-4) (QUOTE (TYPE-PRESCRIPTION-LST ((MEMMOVE-4 16 T NIL NIL NIL NIL)) TOTALP-LST ((MEMMOVE-4 . T)) SDEFN (LAMBDA (LST1 LST2 I NT N) (IF (EQUAL (REMAINDER N (QUOTE 4)) (QUOTE 0)) (MMOVN-LST1 (QUOTE 4) LST1 LST2 I NT) (MMOV1-LST1 (DIFFERENCE I (TIMES (QUOTE 4) NT)) (MMOVN-LST1 (QUOTE 4) LST1 LST2 I NT) LST2 (REMAINDER N (QUOTE 4))))) LISP-CODE *1*MEMMOVE-4 SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402215101 SATELLITES (*1*MEMMOVE-4) IMMEDIATE-DEPENDENTS0 (MEMMOVE MEMMOVE-3) EVENT (DEFN MEMMOVE-4 (LST1 LST2 I NT N) (IF (EQUAL (REMAINDER N (QUOTE 4)) (QUOTE 0)) (MMOVN-LST1 (QUOTE 4) LST1 LST2 I NT) (MMOV1-LST1 (DIFFERENCE I (TIMES (QUOTE 4) NT)) (MMOVN-LST1 (QUOTE 4) LST1 LST2 I NT) LST2 (REMAINDER N (QUOTE 4))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MMOV1-LST1 . MEMMOVE-4) (IMMEDIATE-DEPENDENTS0 MMOVN-LST1 . MEMMOVE-4) (DCELL . *1*MEMMOVE-4))))) (PUT1-LST (QUOTE *1*MEMMOVE-0) (QUOTE (MAIN-EVENT MEMMOVE-0))) (PUT1-LST (QUOTE MEMMOVE-0) (QUOTE (TYPE-PRESCRIPTION-LST ((MEMMOVE-0 16 T NIL NIL NIL NIL)) TOTALP-LST ((MEMMOVE-0 . T)) SDEFN (LAMBDA (LST1 LST2 I NT N) (IF (LESSP N (QUOTE 4)) (MMOV1-LST (PLUS I NT) (MMOV1-LST I LST1 LST2 NT) LST2 N) (MEMMOVE-1 (MMOV1-LST I LST1 LST2 NT) LST2 (PLUS I NT) (QUOTIENT N (QUOTE 4)) N))) LISP-CODE *1*MEMMOVE-0 SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402215101 SATELLITES (*1*MEMMOVE-0) IMMEDIATE-DEPENDENTS0 (MEMMOVE) EVENT (DEFN MEMMOVE-0 (LST1 LST2 I NT N) (IF (LESSP N (QUOTE 4)) (MMOV1-LST (PLUS I NT) (MMOV1-LST I LST1 LST2 NT) LST2 N) (MEMMOVE-1 (MMOV1-LST I LST1 LST2 NT) LST2 (PLUS I NT) (QUOTIENT N (QUOTE 4)) N))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MEMMOVE-1 . MEMMOVE-0) (IMMEDIATE-DEPENDENTS0 MMOV1-LST . MEMMOVE-0) (DCELL . *1*MEMMOVE-0))))) (PUT1-LST (QUOTE *1*MEMMOVE-1) (QUOTE (MAIN-EVENT MEMMOVE-1))) (PUT1-LST (QUOTE MEMMOVE-1) (QUOTE (TYPE-PRESCRIPTION-LST ((MEMMOVE-1 16 T NIL NIL NIL NIL)) TOTALP-LST ((MEMMOVE-1 . T)) SDEFN (LAMBDA (LST1 LST2 I NT N) (IF (EQUAL (REMAINDER N (QUOTE 4)) (QUOTE 0)) (MMOVN-LST (QUOTE 4) LST1 LST2 I NT) (MMOV1-LST (PLUS I (TIMES (QUOTE 4) NT)) (MMOVN-LST (QUOTE 4) LST1 LST2 I NT) LST2 (REMAINDER N (QUOTE 4))))) LISP-CODE *1*MEMMOVE-1 SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402215101 SATELLITES (*1*MEMMOVE-1) IMMEDIATE-DEPENDENTS0 (MEMMOVE MEMMOVE-0) EVENT (DEFN MEMMOVE-1 (LST1 LST2 I NT N) (IF (EQUAL (REMAINDER N (QUOTE 4)) (QUOTE 0)) (MMOVN-LST (QUOTE 4) LST1 LST2 I NT) (MMOV1-LST (PLUS I (TIMES (QUOTE 4) NT)) (MMOVN-LST (QUOTE 4) LST1 LST2 I NT) LST2 (REMAINDER N (QUOTE 4))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MMOV1-LST . MEMMOVE-1) (IMMEDIATE-DEPENDENTS0 MMOVN-LST . MEMMOVE-1) (DCELL . *1*MEMMOVE-1))))) (PUT1-LST (QUOTE *1*STRSTR) (QUOTE (MAIN-EVENT STRSTR))) (PUT1-LST (QUOTE STRSTR) (QUOTE (TYPE-PRESCRIPTION-LST ((STRSTR 5 NIL NIL NIL NIL)) TOTALP-LST ((STRSTR . T)) SDEFN (LAMBDA (N1 LST1 N2 LST2) (IF (EQUAL (GET-NTH (QUOTE 0) LST2) (QUOTE 0)) (QUOTE 0) (STRSTR1 (QUOTE 0) N1 LST1 N2 LST2 (STRLEN (QUOTE 0) (SUB1 N2) (MCDR (QUOTE 1) LST2))))) LISP-CODE *1*STRSTR SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402215101 SATELLITES (*1*STRSTR) EVENT (DEFN STRSTR (N1 LST1 N2 LST2) (IF (EQUAL (GET-NTH (QUOTE 0) LST2) (QUOTE 0)) (QUOTE 0) (STRSTR1 (QUOTE 0) N1 LST1 N2 LST2 (STRLEN (QUOTE 0) (SUB1 N2) (MCDR (QUOTE 1) LST2))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MCDR . STRSTR) (IMMEDIATE-DEPENDENTS0 STRLEN . STRSTR) (IMMEDIATE-DEPENDENTS0 STRSTR1 . STRSTR) (IMMEDIATE-DEPENDENTS0 GET-NTH . STRSTR) (DCELL . *1*STRSTR))))) (PUT1-LST (QUOTE *1*STRSTR1) (QUOTE (MAIN-EVENT STRSTR1))) (PUT1-LST (QUOTE STRSTR1) (QUOTE (TYPE-PRESCRIPTION-LST ((STRSTR1 5 NIL NIL NIL NIL NIL NIL)) TOTALP-LST ((STRSTR1 . T)) LINEAR-LEMMAS ((LINEAR-LEMMA STRSTR-BOUNDS ((STRSTR1 I N1 LST1 N2 LST2 LEN)) (NOT (LESSP (STRSTR1 I N1 LST1 N2 LST2 LEN) I)) (STRSTR1 I N1 LST1 N2 LST2 LEN)) (LINEAR-LEMMA STRSTR-BOUNDS NIL (NOT (LESSP N1 (STRSTR1 I N1 LST1 N2 LST2 LEN))) (STRSTR1 I N1 LST1 N2 LST2 LEN))) QUICK-BLOCK-INFO (SELF-REFLEXIVE UNCHANGING UNCHANGING UNCHANGING UNCHANGING UNCHANGING) SDEFN (LAMBDA (I N1 LST1 N2 LST2 LEN) (IF (LESSP I N1) (IF (NUMBERP (STRCHR1 I N1 LST1 (GET-NTH (QUOTE 0) LST2))) (IF (EQUAL (STRNCMP LEN (MCDR (ADD1 (STRCHR1 I N1 LST1 (GET-NTH (QUOTE 0) LST2))) LST1) (MCDR (QUOTE 1) LST2)) (QUOTE 0)) (STRCHR1 I N1 LST1 (GET-NTH (QUOTE 0) LST2)) (STRSTR1 (ADD1 (STRCHR1 I N1 LST1 (GET-NTH (QUOTE 0) LST2))) N1 LST1 N2 LST2 LEN)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE))) LISP-CODE *1*STRSTR1 SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((LESSP I N1) (NUMBERP (STRCHR1 I N1 LST1 (GET-NTH (QUOTE 0) LST2))) (EQUAL (STRNCMP LEN (MCDR (ADD1 (STRCHR1 I N1 LST1 (GET-NTH (QUOTE 0) LST2))) LST1) (MCDR (QUOTE 1) LST2)) (QUOTE 0))) NIL) (TESTS-AND-CASES ((LESSP I N1) (NUMBERP (STRCHR1 I N1 LST1 (GET-NTH (QUOTE 0) LST2))) (NOT (EQUAL (STRNCMP LEN (MCDR (ADD1 (STRCHR1 I N1 LST1 (GET-NTH (QUOTE 0) LST2))) LST1) (MCDR (QUOTE 1) LST2)) (QUOTE 0)))) (((ADD1 (STRCHR1 I N1 LST1 (GET-NTH (QUOTE 0) LST2))) N1 LST1 N2 LST2 LEN))) (TESTS-AND-CASES ((LESSP I N1) (NOT (NUMBERP (STRCHR1 I N1 LST1 (GET-NTH (QUOTE 0) LST2))))) NIL) (TESTS-AND-CASES ((NOT (LESSP I N1))) NIL)) LEVEL-NO 3 JUSTIFICATIONS ((JUSTIFICATION (I N1) (DIFFERENCE N1 I) LESSP (LESSP-SUB1 SUB1-ADD1 MCDR STRNCMP DIFFERENCE-0 EQUAL DIFFERENCE=0 LESSP STRCHR1 ADD1 LESSP-OF-1 ZERO STRCHR1-BOUNDS))) IDATE 1000402215101 CONTROLLER-POCKETS (3) SATELLITES (*1*STRSTR1) IMMEDIATE-DEPENDENTS0 (STRSTR-BOUNDS STRSTR) EVENT (DEFN STRSTR1 (I N1 LST1 N2 LST2 LEN) (IF (LESSP I N1) (IF (NUMBERP (STRCHR1 I N1 LST1 (GET-NTH (QUOTE 0) LST2))) (IF (EQUAL (STRNCMP LEN (MCDR (ADD1 (STRCHR1 I N1 LST1 (GET-NTH (QUOTE 0) LST2))) LST1) (MCDR (QUOTE 1) LST2)) (QUOTE 0)) (STRCHR1 I N1 LST1 (GET-NTH (QUOTE 0) LST2)) (STRSTR1 (ADD1 (STRCHR1 I N1 LST1 (GET-NTH (QUOTE 0) LST2))) N1 LST1 N2 LST2 LEN)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) ((LESSP (DIFFERENCE N1 I)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 GET-NTH . STRSTR1) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . STRSTR1) (IMMEDIATE-DEPENDENTS0 MCDR . STRSTR1) (IMMEDIATE-DEPENDENTS0 STRNCMP . STRSTR1) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . STRSTR1) (IMMEDIATE-DEPENDENTS0 DIFFERENCE=0 . STRSTR1) (IMMEDIATE-DEPENDENTS0 STRCHR1 . STRSTR1) (IMMEDIATE-DEPENDENTS0 LESSP-OF-1 . STRSTR1) (IMMEDIATE-DEPENDENTS0 STRCHR1-BOUNDS . STRSTR1) (DCELL . *1*STRSTR1))))) (PUT1-LST (QUOTE *1*STRPBRK) (QUOTE (MAIN-EVENT STRPBRK))) (PUT1-LST (QUOTE STRPBRK) (QUOTE (TYPE-PRESCRIPTION-LST ((STRPBRK 5 NIL NIL NIL NIL NIL)) TOTALP-LST ((STRPBRK . T)) LINEAR-LEMMAS ((LINEAR-LEMMA STRPBRK-BOUNDS ((STRPBRK I1 N1 LST1 N2 LST2)) (NOT (LESSP (STRPBRK I1 N1 LST1 N2 LST2) I1)) (STRPBRK I1 N1 LST1 N2 LST2)) (LINEAR-LEMMA STRPBRK-BOUNDS NIL (NOT (LESSP N1 (STRPBRK I1 N1 LST1 N2 LST2))) (STRPBRK I1 N1 LST1 N2 LST2))) QUICK-BLOCK-INFO (SELF-REFLEXIVE UNCHANGING UNCHANGING UNCHANGING UNCHANGING) SDEFN (LAMBDA (I1 N1 LST1 N2 LST2) (IF (LESSP I1 N1) (IF (EQUAL (GET-NTH I1 LST1) (QUOTE 0)) (QUOTE *1*FALSE) (IF (STRCHR1 (QUOTE 0) N2 LST2 (GET-NTH I1 LST1)) (IF (NUMBERP I1) I1 (QUOTE 0)) (STRPBRK (ADD1 I1) N1 LST1 N2 LST2))) (QUOTE *1*FALSE))) LISP-CODE *1*STRPBRK SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((LESSP I1 N1) (EQUAL (GET-NTH I1 LST1) (QUOTE 0))) NIL) (TESTS-AND-CASES ((LESSP I1 N1) (NOT (EQUAL (GET-NTH I1 LST1) (QUOTE 0))) (STRCHR1 (QUOTE 0) N2 LST2 (GET-NTH I1 LST1))) NIL) (TESTS-AND-CASES ((LESSP I1 N1) (NOT (EQUAL (GET-NTH I1 LST1) (QUOTE 0))) (NOT (STRCHR1 (QUOTE 0) N2 LST2 (GET-NTH I1 LST1)))) (((ADD1 I1) N1 LST1 N2 LST2))) (TESTS-AND-CASES ((NOT (LESSP I1 N1))) NIL)) LEVEL-NO 3 JUSTIFICATIONS ((JUSTIFICATION (I1 N1) (DIFFERENCE N1 I1) LESSP (ZERO))) IDATE 1000402215101 CONTROLLER-POCKETS (3) SATELLITES (*1*STRPBRK) IMMEDIATE-DEPENDENTS0 (STRPBRK-BOUNDS) EVENT (DEFN STRPBRK (I1 N1 LST1 N2 LST2) (IF (LESSP I1 N1) (IF (EQUAL (GET-NTH I1 LST1) (QUOTE 0)) (QUOTE *1*FALSE) (IF (STRCHR1 (QUOTE 0) N2 LST2 (GET-NTH I1 LST1)) (FIX I1) (STRPBRK (ADD1 I1) N1 LST1 N2 LST2))) (QUOTE *1*FALSE)) ((LESSP (DIFFERENCE N1 I1)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 STRCHR1 . STRPBRK) (IMMEDIATE-DEPENDENTS0 GET-NTH . STRPBRK) (DCELL . *1*STRPBRK))))) (PUT1-LST (QUOTE *1*STRSPN) (QUOTE (MAIN-EVENT STRSPN))) (PUT1-LST (QUOTE STRSPN) (QUOTE (TYPE-PRESCRIPTION-LST ((STRSPN 5 NIL NIL NIL NIL NIL)) TOTALP-LST ((STRSPN . T)) LINEAR-LEMMAS ((LINEAR-LEMMA STRSPN-BOUNDS ((STRSPN I N1 LST1 N2 LST2)) (NOT (LESSP (STRSPN I N1 LST1 N2 LST2) I)) (STRSPN I N1 LST1 N2 LST2)) (LINEAR-LEMMA STRSPN-BOUNDS NIL (NOT (LESSP N1 (STRSPN I N1 LST1 N2 LST2))) (STRSPN I N1 LST1 N2 LST2)) (LINEAR-LEMMA STRSPN-UBOUND ((NUMBERP N1) (NOT (EQUAL N1 (QUOTE 0)))) (LESSP (STRSPN I N1 LST1 N2 LST2) N1) (STRSPN I N1 LST1 N2 LST2))) QUICK-BLOCK-INFO (SELF-REFLEXIVE UNCHANGING UNCHANGING UNCHANGING UNCHANGING) SDEFN (LAMBDA (I1 N1 LST1 N2 LST2) (IF (LESSP I1 N1) (IF (STRCHR1 (QUOTE 0) N2 LST2 (GET-NTH I1 LST1)) (STRSPN (ADD1 I1) N1 LST1 N2 LST2) (IF (NUMBERP I1) I1 (QUOTE 0))) (QUOTE *1*FALSE))) LISP-CODE *1*STRSPN SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((LESSP I1 N1) (STRCHR1 (QUOTE 0) N2 LST2 (GET-NTH I1 LST1))) (((ADD1 I1) N1 LST1 N2 LST2))) (TESTS-AND-CASES ((LESSP I1 N1) (NOT (STRCHR1 (QUOTE 0) N2 LST2 (GET-NTH I1 LST1)))) NIL) (TESTS-AND-CASES ((NOT (LESSP I1 N1))) NIL)) LEVEL-NO 3 JUSTIFICATIONS ((JUSTIFICATION (I1 N1) (DIFFERENCE N1 I1) LESSP (ZERO))) IDATE 1000402215101 CONTROLLER-POCKETS (3) SATELLITES (*1*STRSPN) IMMEDIATE-DEPENDENTS0 (STRSPN-BOUNDS STRSPN-UBOUND STRTOK-LAST STRTOK-LST STRTOK-TOK) EVENT (DEFN STRSPN (I1 N1 LST1 N2 LST2) (IF (LESSP I1 N1) (IF (STRCHR1 (QUOTE 0) N2 LST2 (GET-NTH I1 LST1)) (STRSPN (ADD1 I1) N1 LST1 N2 LST2) (FIX I1)) (QUOTE *1*FALSE)) ((LESSP (DIFFERENCE N1 I1)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 GET-NTH . STRSPN) (IMMEDIATE-DEPENDENTS0 STRCHR1 . STRSPN) (DCELL . *1*STRSPN))))) (PUT1-LST (QUOTE STRCHR1-FALSE-0) (QUOTE (IDATE 1000402215101 EVENT (PROVE-LEMMA STRCHR1-FALSE-0 (REWRITE) (NOT (STRCHR1 I N LST (QUOTE 0)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 STRCHR1 . STRCHR1-FALSE-0) (LEMMAS STRCHR1 . STRCHR1-FALSE-0))))) (PUT1-LST (QUOTE STRCHR1-BOUNDS) (QUOTE (IDATE 1000402215101 IMMEDIATE-DEPENDENTS0 (STRSTR-BOUNDS STRSTR1* STRSTR1) EVENT (PROVE-LEMMA STRCHR1-BOUNDS (REWRITE) (AND (NOT (LESSP N (STRCHR1 I N LST CH))) (IMPLIES (STRCHR1 I N LST CH) (NOT (LESSP (STRCHR1 I N LST CH) I))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 STRCHR1 . STRCHR1-BOUNDS) (LINEAR-LEMMAS STRCHR1 . STRCHR1-BOUNDS) (LINEAR-LEMMAS STRCHR1 . STRCHR1-BOUNDS))))) (PUT1-LST (QUOTE *1*STRCHR1) (QUOTE (MAIN-EVENT STRCHR1))) (PUT1-LST (QUOTE STRCHR1) (QUOTE (TYPE-PRESCRIPTION-LST ((STRCHR1 5 NIL NIL NIL NIL)) LEMMAS ((REWRITE-RULE STRCHR1-FALSE-0 NIL (NOT (STRCHR1 I N LST (QUOTE 0))) NIL)) TOTALP-LST ((STRCHR1 . T)) LINEAR-LEMMAS ((LINEAR-LEMMA STRCHR1-BOUNDS ((STRCHR1 I N LST CH)) (NOT (LESSP (STRCHR1 I N LST CH) I)) (STRCHR1 I N LST CH)) (LINEAR-LEMMA STRCHR1-BOUNDS NIL (NOT (LESSP N (STRCHR1 I N LST CH))) (STRCHR1 I N LST CH))) QUICK-BLOCK-INFO (SELF-REFLEXIVE UNCHANGING UNCHANGING UNCHANGING) SDEFN (LAMBDA (I N LST CH) (IF (LESSP I N) (IF (EQUAL (GET-NTH I LST) (QUOTE 0)) (QUOTE *1*FALSE) (IF (EQUAL (GET-NTH I LST) CH) (IF (NUMBERP I) I (QUOTE 0)) (STRCHR1 (ADD1 I) N LST CH))) (QUOTE *1*FALSE))) LISP-CODE *1*STRCHR1 SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((LESSP I N) (EQUAL (GET-NTH I LST) (QUOTE 0))) NIL) (TESTS-AND-CASES ((LESSP I N) (NOT (EQUAL (GET-NTH I LST) (QUOTE 0))) (EQUAL (GET-NTH I LST) CH)) NIL) (TESTS-AND-CASES ((LESSP I N) (NOT (EQUAL (GET-NTH I LST) (QUOTE 0))) (NOT (EQUAL (GET-NTH I LST) CH))) (((ADD1 I) N LST CH))) (TESTS-AND-CASES ((NOT (LESSP I N))) NIL)) LEVEL-NO 2 JUSTIFICATIONS ((JUSTIFICATION (I N) (DIFFERENCE N I) LESSP (ZERO))) IDATE 1000402215101 CONTROLLER-POCKETS (3) SATELLITES (*1*STRCHR1) IMMEDIATE-DEPENDENTS0 (STRSTR-BOUNDS STRSTR1* STRSPN* STRPBRK* STRSTR1 STRPBRK STRSPN STRCHR1-FALSE-0 STRCHR1-BOUNDS) EVENT (DEFN STRCHR1 (I N LST CH) (IF (LESSP I N) (IF (EQUAL (GET-NTH I LST) (QUOTE 0)) (QUOTE *1*FALSE) (IF (EQUAL (GET-NTH I LST) CH) (FIX I) (STRCHR1 (ADD1 I) N LST CH))) (QUOTE *1*FALSE)) ((LESSP (DIFFERENCE N I)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 GET-NTH . STRCHR1) (DCELL . *1*STRCHR1))))) (PUT1-LST (QUOTE *1*STRRCHR) (QUOTE (MAIN-EVENT STRRCHR))) (PUT1-LST (QUOTE STRRCHR) (QUOTE (TYPE-PRESCRIPTION-LST ((STRRCHR 4 NIL NIL NIL NIL T)) TOTALP-LST ((STRRCHR . T)) LINEAR-LEMMAS ((LINEAR-LEMMA STRRCHR-BOUNDS ((NOT (LESSP N J))) (NOT (LESSP N (STRRCHR I N LST CH J))) (STRRCHR I N LST CH J))) QUICK-BLOCK-INFO (SELF-REFLEXIVE UNCHANGING UNCHANGING UNCHANGING QUESTIONABLE) SDEFN (LAMBDA (I N LST CH J) (IF (LESSP I N) (IF (EQUAL (GET-NTH I LST) CH) (IF (EQUAL (GET-NTH I LST) (QUOTE 0)) (IF (NUMBERP I) I (QUOTE 0)) (IF (NUMBERP I) (STRRCHR (ADD1 I) N LST CH I) (STRRCHR (ADD1 I) N LST CH (QUOTE 0)))) (IF (EQUAL (GET-NTH I LST) (QUOTE 0)) J (STRRCHR (ADD1 I) N LST CH J))) J)) LISP-CODE *1*STRRCHR SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((LESSP I N) (EQUAL (GET-NTH I LST) CH) (EQUAL (GET-NTH I LST) (QUOTE 0))) NIL) (TESTS-AND-CASES ((LESSP I N) (EQUAL (GET-NTH I LST) CH) (NOT (EQUAL (GET-NTH I LST) (QUOTE 0)))) (((ADD1 I) N LST CH (FIX I)))) (TESTS-AND-CASES ((LESSP I N) (NOT (EQUAL (GET-NTH I LST) CH)) (EQUAL (GET-NTH I LST) (QUOTE 0))) NIL) (TESTS-AND-CASES ((LESSP I N) (NOT (EQUAL (GET-NTH I LST) CH)) (NOT (EQUAL (GET-NTH I LST) (QUOTE 0)))) (((ADD1 I) N LST CH J))) (TESTS-AND-CASES ((NOT (LESSP I N))) NIL)) LEVEL-NO 2 JUSTIFICATIONS ((JUSTIFICATION (I N) (DIFFERENCE N I) LESSP (ZERO))) IDATE 1000402215101 CONTROLLER-POCKETS (3) SATELLITES (*1*STRRCHR) IMMEDIATE-DEPENDENTS0 (STRRCHR-BOUNDS) EVENT (DEFN STRRCHR (I N LST CH J) (IF (LESSP I N) (IF (EQUAL (GET-NTH I LST) CH) (IF (EQUAL (GET-NTH I LST) (QUOTE 0)) (FIX I) (STRRCHR (ADD1 I) N LST CH (FIX I))) (IF (EQUAL (GET-NTH I LST) (QUOTE 0)) J (STRRCHR (ADD1 I) N LST CH J))) J) ((LESSP (DIFFERENCE N I)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 GET-NTH . STRRCHR) (DCELL . *1*STRRCHR))))) (PUT1-LST (QUOTE *1*STRCSPN) (QUOTE (MAIN-EVENT STRCSPN))) (PUT1-LST (QUOTE STRCSPN) (QUOTE (TYPE-PRESCRIPTION-LST ((STRCSPN 5 NIL NIL NIL NIL NIL)) TOTALP-LST ((STRCSPN . T)) LINEAR-LEMMAS ((LINEAR-LEMMA STRCSPN-BOUNDS ((STRCSPN I N1 LST1 N2 LST2)) (NOT (LESSP (STRCSPN I N1 LST1 N2 LST2) I)) (STRCSPN I N1 LST1 N2 LST2)) (LINEAR-LEMMA STRCSPN-BOUNDS NIL (NOT (LESSP N1 (STRCSPN I N1 LST1 N2 LST2))) (STRCSPN I N1 LST1 N2 LST2))) QUICK-BLOCK-INFO (SELF-REFLEXIVE UNCHANGING UNCHANGING UNCHANGING UNCHANGING) SDEFN (LAMBDA (I1 N1 LST1 N2 LST2) (IF (LESSP I1 N1) (IF (STRCHR (QUOTE 0) N2 LST2 (GET-NTH I1 LST1)) (IF (NUMBERP I1) I1 (QUOTE 0)) (STRCSPN (ADD1 I1) N1 LST1 N2 LST2)) (QUOTE *1*FALSE))) LISP-CODE *1*STRCSPN SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((LESSP I1 N1) (STRCHR (QUOTE 0) N2 LST2 (GET-NTH I1 LST1))) NIL) (TESTS-AND-CASES ((LESSP I1 N1) (NOT (STRCHR (QUOTE 0) N2 LST2 (GET-NTH I1 LST1)))) (((ADD1 I1) N1 LST1 N2 LST2))) (TESTS-AND-CASES ((NOT (LESSP I1 N1))) NIL)) LEVEL-NO 3 JUSTIFICATIONS ((JUSTIFICATION (I1 N1) (DIFFERENCE N1 I1) LESSP (ZERO))) IDATE 1000402215101 CONTROLLER-POCKETS (3) SATELLITES (*1*STRCSPN) IMMEDIATE-DEPENDENTS0 (STRCSPN-BOUNDS STRTOK-LAST0 STRTOK-LST1) EVENT (DEFN STRCSPN (I1 N1 LST1 N2 LST2) (IF (LESSP I1 N1) (IF (STRCHR (QUOTE 0) N2 LST2 (GET-NTH I1 LST1)) (FIX I1) (STRCSPN (ADD1 I1) N1 LST1 N2 LST2)) (QUOTE *1*FALSE)) ((LESSP (DIFFERENCE N1 I1)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 GET-NTH . STRCSPN) (IMMEDIATE-DEPENDENTS0 STRCHR . STRCSPN) (DCELL . *1*STRCSPN))))) (PUT1-LST (QUOTE *1*STRCHR) (QUOTE (MAIN-EVENT STRCHR))) (PUT1-LST (QUOTE STRCHR) (QUOTE (TYPE-PRESCRIPTION-LST ((STRCHR 5 NIL NIL NIL NIL)) TOTALP-LST ((STRCHR . T)) LINEAR-LEMMAS ((LINEAR-LEMMA STRCHR-BOUNDS ((STRCHR I N LST CH)) (NOT (LESSP (STRCHR I N LST CH) I)) (STRCHR I N LST CH)) (LINEAR-LEMMA STRCHR-BOUNDS NIL (NOT (LESSP N (STRCHR I N LST CH))) (STRCHR I N LST CH))) QUICK-BLOCK-INFO (SELF-REFLEXIVE UNCHANGING UNCHANGING UNCHANGING) SDEFN (LAMBDA (I N LST CH) (IF (LESSP I N) (IF (EQUAL (GET-NTH I LST) CH) (IF (NUMBERP I) I (QUOTE 0)) (IF (EQUAL (GET-NTH I LST) (QUOTE 0)) (QUOTE *1*FALSE) (STRCHR (ADD1 I) N LST CH))) (QUOTE *1*FALSE))) LISP-CODE *1*STRCHR SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((LESSP I N) (EQUAL (GET-NTH I LST) CH)) NIL) (TESTS-AND-CASES ((LESSP I N) (NOT (EQUAL (GET-NTH I LST) CH)) (EQUAL (GET-NTH I LST) (QUOTE 0))) NIL) (TESTS-AND-CASES ((LESSP I N) (NOT (EQUAL (GET-NTH I LST) CH)) (NOT (EQUAL (GET-NTH I LST) (QUOTE 0)))) (((ADD1 I) N LST CH))) (TESTS-AND-CASES ((NOT (LESSP I N))) NIL)) LEVEL-NO 2 JUSTIFICATIONS ((JUSTIFICATION (I N) (DIFFERENCE N I) LESSP (ZERO))) IDATE 1000402215101 CONTROLLER-POCKETS (3) SATELLITES (*1*STRCHR) IMMEDIATE-DEPENDENTS0 (STRCHR-BOUNDS STRCSPN* STRCSPN) EVENT (DEFN STRCHR (I N LST CH) (IF (LESSP I N) (IF (EQUAL (GET-NTH I LST) CH) (FIX I) (IF (EQUAL (GET-NTH I LST) (QUOTE 0)) (QUOTE *1*FALSE) (STRCHR (ADD1 I) N LST CH))) (QUOTE *1*FALSE)) ((LESSP (DIFFERENCE N I)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 GET-NTH . STRCHR) (DCELL . *1*STRCHR))))) (PUT1-LST (QUOTE *1*STRNCPY) (QUOTE (MAIN-EVENT STRNCPY))) (PUT1-LST (QUOTE STRNCPY) (QUOTE (TYPE-PRESCRIPTION-LST ((STRNCPY 16 NIL T NIL)) TOTALP-LST ((STRNCPY . T)) SDEFN (LAMBDA (N LST1 LST2) (IF (EQUAL N (QUOTE 0)) LST1 (IF (NUMBERP N) (STRNCPY1 (QUOTE 0) N LST1 LST2) LST1))) LISP-CODE *1*STRNCPY SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402215101 SATELLITES (*1*STRNCPY) EVENT (DEFN STRNCPY (N LST1 LST2) (IF (ZEROP N) LST1 (STRNCPY1 (QUOTE 0) N LST1 LST2))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 STRNCPY1 . STRNCPY) (DCELL . *1*STRNCPY))))) (PUT1-LST (QUOTE *1*STRNCPY1) (QUOTE (MAIN-EVENT STRNCPY1))) (PUT1-LST (QUOTE STRNCPY1) (QUOTE (TYPE-PRESCRIPTION-LST ((STRNCPY1 16 NIL NIL NIL NIL)) TOTALP-LST ((STRNCPY1 . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE SELF-REFLEXIVE UNCHANGING) SDEFN (LAMBDA (I N LST1 LST2) (IF (EQUAL (GET-NTH I LST2) (QUOTE 0)) (ZERO-LIST I N LST1) (IF (EQUAL (SUB1 N) (QUOTE 0)) (PUT-NTH (GET-NTH I LST2) I LST1) (STRNCPY1 (ADD1 I) (SUB1 N) (PUT-NTH (GET-NTH I LST2) I LST1) LST2)))) LISP-CODE *1*STRNCPY1 SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((EQUAL (GET-NTH I LST2) (QUOTE 0))) NIL) (TESTS-AND-CASES ((NOT (EQUAL (GET-NTH I LST2) (QUOTE 0))) (EQUAL (SUB1 N) (QUOTE 0))) NIL) (TESTS-AND-CASES ((NOT (EQUAL (GET-NTH I LST2) (QUOTE 0))) (NOT (EQUAL (SUB1 N) (QUOTE 0)))) (((ADD1 I) (SUB1 N) (PUT-NTH (GET-NTH I LST2) I LST1) LST2)))) LEVEL-NO 3 JUSTIFICATIONS ((JUSTIFICATION (N) (COUNT N) LESSP (SUB1-OF-1 COUNT-NUMBERP LESSP-SUB1))) IDATE 1000402215101 CONTROLLER-POCKETS (2) SATELLITES (*1*STRNCPY1) IMMEDIATE-DEPENDENTS0 (STRNCPY) EVENT (DEFN STRNCPY1 (I N LST1 LST2) (IF (EQUAL (GET-NTH I LST2) (QUOTE 0)) (ZERO-LIST I N LST1) (IF (EQUAL (SUB1 N) (QUOTE 0)) (PUT-NTH (GET-NTH I LST2) I LST1) (STRNCPY1 (ADD1 I) (SUB1 N) (PUT-NTH (GET-NTH I LST2) I LST1) LST2)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PUT-NTH . STRNCPY1) (IMMEDIATE-DEPENDENTS0 ZERO-LIST . STRNCPY1) (IMMEDIATE-DEPENDENTS0 GET-NTH . STRNCPY1) (IMMEDIATE-DEPENDENTS0 SUB1-OF-1 . STRNCPY1) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . STRNCPY1) (DCELL . *1*STRNCPY1))))) (PUT1-LST (QUOTE *1*ZERO-LIST) (QUOTE (MAIN-EVENT ZERO-LIST))) (PUT1-LST (QUOTE ZERO-LIST) (QUOTE (TYPE-PRESCRIPTION-LST ((ZERO-LIST 16 NIL NIL NIL)) TOTALP-LST ((ZERO-LIST . T)) SDEFN (LAMBDA (I N LST) (ZERO-LIST1 (ADD1 I) N (PUT-NTH (QUOTE 0) I LST))) LISP-CODE *1*ZERO-LIST SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402215101 SATELLITES (*1*ZERO-LIST) IMMEDIATE-DEPENDENTS0 (STRNCPY1) EVENT (DEFN ZERO-LIST (I N LST) (ZERO-LIST1 (ADD1 I) N (PUT-NTH (QUOTE 0) I LST))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PUT-NTH . ZERO-LIST) (IMMEDIATE-DEPENDENTS0 ZERO-LIST1 . ZERO-LIST) (DCELL . *1*ZERO-LIST))))) (PUT1-LST (QUOTE *1*ZERO-LIST1) (QUOTE (MAIN-EVENT ZERO-LIST1))) (PUT1-LST (QUOTE ZERO-LIST1) (QUOTE (TYPE-PRESCRIPTION-LST ((ZERO-LIST1 16 NIL NIL T)) TOTALP-LST ((ZERO-LIST1 . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE SELF-REFLEXIVE) SDEFN (LAMBDA (I N LST) (IF (EQUAL (SUB1 N) (QUOTE 0)) LST (ZERO-LIST1 (ADD1 I) (SUB1 N) (PUT-NTH (QUOTE 0) I LST)))) LISP-CODE *1*ZERO-LIST1 SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((EQUAL (SUB1 N) (QUOTE 0))) NIL) (TESTS-AND-CASES ((NOT (EQUAL (SUB1 N) (QUOTE 0)))) (((ADD1 I) (SUB1 N) (PUT-NTH (QUOTE 0) I LST))))) LEVEL-NO 2 JUSTIFICATIONS ((JUSTIFICATION (N) (COUNT N) LESSP (SUB1-OF-1 COUNT-NUMBERP LESSP-SUB1))) IDATE 1000402215101 CONTROLLER-POCKETS (2) SATELLITES (*1*ZERO-LIST1) IMMEDIATE-DEPENDENTS0 (ZERO-LIST) EVENT (DEFN ZERO-LIST1 (I N LST) (IF (EQUAL (SUB1 N) (QUOTE 0)) LST (ZERO-LIST1 (ADD1 I) (SUB1 N) (PUT-NTH (QUOTE 0) I LST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PUT-NTH . ZERO-LIST1) (IMMEDIATE-DEPENDENTS0 SUB1-OF-1 . ZERO-LIST1) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . ZERO-LIST1) (DCELL . *1*ZERO-LIST1))))) (PUT1-LST (QUOTE *1*STRNCMP) (QUOTE (MAIN-EVENT STRNCMP))) (PUT1-LST (QUOTE STRNCMP) (QUOTE (TYPE-PRESCRIPTION-LST ((STRNCMP 36 NIL NIL NIL)) TOTALP-LST ((STRNCMP . T)) SDEFN (LAMBDA (N LST1 LST2) (IF (EQUAL N (QUOTE 0)) (QUOTE 0) (IF (NUMBERP N) (STRNCMP1 (QUOTE 0) N LST1 LST2) (QUOTE 0)))) LISP-CODE *1*STRNCMP SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402215101 SATELLITES (*1*STRNCMP) IMMEDIATE-DEPENDENTS0 (STRSTR-BOUNDS STRSTR1* STRSTR1) EVENT (DEFN STRNCMP (N LST1 LST2) (IF (ZEROP N) (QUOTE 0) (STRNCMP1 (QUOTE 0) N LST1 LST2))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 STRNCMP1 . STRNCMP) (DCELL . *1*STRNCMP))))) (PUT1-LST (QUOTE *1*STRNCMP1) (QUOTE (MAIN-EVENT STRNCMP1))) (PUT1-LST (QUOTE STRNCMP1) (QUOTE (TYPE-PRESCRIPTION-LST ((STRNCMP1 36 NIL NIL NIL NIL)) TOTALP-LST ((STRNCMP1 . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE UNCHANGING UNCHANGING) SDEFN (LAMBDA (I N LST1 LST2) (IF (EQUAL (GET-NTH I LST1) (GET-NTH I LST2)) (IF (EQUAL (GET-NTH I LST1) (QUOTE 0)) (QUOTE 0) (IF (EQUAL (SUB1 N) (QUOTE 0)) (QUOTE 0) (STRNCMP1 (ADD1 I) (SUB1 N) LST1 LST2))) (IDIFFERENCE (GET-NTH I LST1) (GET-NTH I LST2)))) LISP-CODE *1*STRNCMP1 SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((EQUAL (GET-NTH I LST1) (GET-NTH I LST2)) (EQUAL (GET-NTH I LST1) (QUOTE 0))) NIL) (TESTS-AND-CASES ((EQUAL (GET-NTH I LST1) (GET-NTH I LST2)) (NOT (EQUAL (GET-NTH I LST1) (QUOTE 0))) (EQUAL (SUB1 N) (QUOTE 0))) NIL) (TESTS-AND-CASES ((EQUAL (GET-NTH I LST1) (GET-NTH I LST2)) (NOT (EQUAL (GET-NTH I LST1) (QUOTE 0))) (NOT (EQUAL (SUB1 N) (QUOTE 0)))) (((ADD1 I) (SUB1 N) LST1 LST2))) (TESTS-AND-CASES ((NOT (EQUAL (GET-NTH I LST1) (GET-NTH I LST2)))) NIL)) LEVEL-NO 2 JUSTIFICATIONS ((JUSTIFICATION (N) (COUNT N) LESSP (SUB1-OF-1 COUNT-NUMBERP LESSP-SUB1))) IDATE 1000402215101 CONTROLLER-POCKETS (2) SATELLITES (*1*STRNCMP1) IMMEDIATE-DEPENDENTS0 (STRNCMP) EVENT (DEFN STRNCMP1 (I N LST1 LST2) (IF (EQUAL (GET-NTH I LST1) (GET-NTH I LST2)) (IF (EQUAL (GET-NTH I LST1) (QUOTE 0)) (QUOTE 0) (IF (EQUAL (SUB1 N) (QUOTE 0)) (QUOTE 0) (STRNCMP1 (ADD1 I) (SUB1 N) LST1 LST2))) (IDIFFERENCE (GET-NTH I LST1) (GET-NTH I LST2)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IDIFFERENCE . STRNCMP1) (IMMEDIATE-DEPENDENTS0 GET-NTH . STRNCMP1) (IMMEDIATE-DEPENDENTS0 SUB1-OF-1 . STRNCMP1) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . STRNCMP1) (DCELL . *1*STRNCMP1))))) (PUT1-LST (QUOTE *1*STRNCAT) (QUOTE (MAIN-EVENT STRNCAT))) (PUT1-LST (QUOTE STRNCAT) (QUOTE (TYPE-PRESCRIPTION-LST ((STRNCAT 16 NIL T NIL NIL)) TOTALP-LST ((STRNCAT . T)) SDEFN (LAMBDA (N1 LST1 N LST2) (IF (EQUAL N (QUOTE 0)) LST1 (IF (EQUAL (GET-NTH (QUOTE 0) LST1) (NULL)) (STRCPY2 (QUOTE 0) LST1 (QUOTE 0) N LST2) (STRCPY2 (STRLEN (QUOTE 1) N1 LST1) LST1 (QUOTE 0) N LST2)))) LISP-CODE *1*STRNCAT SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402215101 SATELLITES (*1*STRNCAT) EVENT (DEFN STRNCAT (N1 LST1 N LST2) (IF (EQUAL N (QUOTE 0)) LST1 (IF (EQUAL (GET-NTH (QUOTE 0) LST1) (NULL)) (STRCPY2 (QUOTE 0) LST1 (QUOTE 0) N LST2) (STRCPY2 (STRLEN (QUOTE 1) N1 LST1) LST1 (QUOTE 0) N LST2)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 STRLEN . STRNCAT) (IMMEDIATE-DEPENDENTS0 STRCPY2 . STRNCAT) (IMMEDIATE-DEPENDENTS0 NULL . STRNCAT) (IMMEDIATE-DEPENDENTS0 GET-NTH . STRNCAT) (DCELL . *1*STRNCAT))))) (PUT1-LST (QUOTE *1*STRCPY2) (QUOTE (MAIN-EVENT STRCPY2))) (PUT1-LST (QUOTE STRCPY2) (QUOTE (TYPE-PRESCRIPTION-LST ((STRCPY2 16 NIL NIL NIL NIL NIL)) TOTALP-LST ((STRCPY2 . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE SELF-REFLEXIVE SELF-REFLEXIVE UNCHANGING) SDEFN (LAMBDA (I LST1 J N LST2) (IF (EQUAL (GET-NTH J LST2) (NULL)) (PUT-NTH (NULL) I LST1) (IF (EQUAL (SUB1 N) (QUOTE 0)) (PUT-NTH (NULL) (ADD1 I) (PUT-NTH (GET-NTH J LST2) I LST1)) (STRCPY2 (ADD1 I) (PUT-NTH (GET-NTH J LST2) I LST1) (ADD1 J) (SUB1 N) LST2)))) LISP-CODE *1*STRCPY2 SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((EQUAL (GET-NTH J LST2) (NULL))) NIL) (TESTS-AND-CASES ((NOT (EQUAL (GET-NTH J LST2) (NULL))) (EQUAL (SUB1 N) (QUOTE 0))) NIL) (TESTS-AND-CASES ((NOT (EQUAL (GET-NTH J LST2) (NULL))) (NOT (EQUAL (SUB1 N) (QUOTE 0)))) (((ADD1 I) (PUT-NTH (GET-NTH J LST2) I LST1) (ADD1 J) (SUB1 N) LST2)))) LEVEL-NO 2 JUSTIFICATIONS ((JUSTIFICATION (N) (COUNT N) LESSP (NULL SUB1-OF-1 COUNT-NUMBERP LESSP-SUB1))) IDATE 1000402215101 CONTROLLER-POCKETS (8) SATELLITES (*1*STRCPY2) IMMEDIATE-DEPENDENTS0 (STRNCAT) EVENT (DEFN STRCPY2 (I LST1 J N LST2) (IF (EQUAL (GET-NTH J LST2) (NULL)) (PUT-NTH (NULL) I LST1) (IF (EQUAL (SUB1 N) (QUOTE 0)) (PUT-NTH (NULL) (ADD1 I) (PUT-NTH (GET-NTH J LST2) I LST1)) (STRCPY2 (ADD1 I) (PUT-NTH (GET-NTH J LST2) I LST1) (ADD1 J) (SUB1 N) LST2)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PUT-NTH . STRCPY2) (IMMEDIATE-DEPENDENTS0 GET-NTH . STRCPY2) (IMMEDIATE-DEPENDENTS0 NULL . STRCPY2) (IMMEDIATE-DEPENDENTS0 SUB1-OF-1 . STRCPY2) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . STRCPY2) (DCELL . *1*STRCPY2))))) (PUT1-LST (QUOTE *1*STRCAT) (QUOTE (MAIN-EVENT STRCAT))) (PUT1-LST (QUOTE STRCAT) (QUOTE (TYPE-PRESCRIPTION-LST ((STRCAT 16 NIL T NIL NIL)) TOTALP-LST ((STRCAT . T)) SDEFN (LAMBDA (N1 LST1 N2 LST2) (IF (EQUAL (GET-NTH (QUOTE 0) LST1) (NULL)) (STRCPY1 (QUOTE 0) LST1 (QUOTE 0) N2 LST2) (STRCPY1 (STRLEN (QUOTE 1) N1 LST1) LST1 (QUOTE 0) N2 LST2))) LISP-CODE *1*STRCAT SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402215101 SATELLITES (*1*STRCAT) EVENT (DEFN STRCAT (N1 LST1 N2 LST2) (IF (EQUAL (GET-NTH (QUOTE 0) LST1) (NULL)) (STRCPY1 (QUOTE 0) LST1 (QUOTE 0) N2 LST2) (STRCPY1 (STRLEN (QUOTE 1) N1 LST1) LST1 (QUOTE 0) N2 LST2))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 STRLEN . STRCAT) (IMMEDIATE-DEPENDENTS0 STRCPY1 . STRCAT) (IMMEDIATE-DEPENDENTS0 NULL . STRCAT) (IMMEDIATE-DEPENDENTS0 GET-NTH . STRCAT) (DCELL . *1*STRCAT))))) (PUT1-LST (QUOTE *1*STRCPY1) (QUOTE (MAIN-EVENT STRCPY1))) (PUT1-LST (QUOTE STRCPY1) (QUOTE (TYPE-PRESCRIPTION-LST ((STRCPY1 16 NIL T NIL NIL NIL)) TOTALP-LST ((STRCPY1 . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE SELF-REFLEXIVE UNCHANGING UNCHANGING) SDEFN (LAMBDA (I LST1 J N2 LST2) (IF (LESSP J N2) (IF (EQUAL (GET-NTH J LST2) (NULL)) (PUT-NTH (NULL) I LST1) (STRCPY1 (ADD1 I) (PUT-NTH (GET-NTH J LST2) I LST1) (ADD1 J) N2 LST2)) LST1)) LISP-CODE *1*STRCPY1 SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((LESSP J N2) (EQUAL (GET-NTH J LST2) (NULL))) NIL) (TESTS-AND-CASES ((LESSP J N2) (NOT (EQUAL (GET-NTH J LST2) (NULL)))) (((ADD1 I) (PUT-NTH (GET-NTH J LST2) I LST1) (ADD1 J) N2 LST2))) (TESTS-AND-CASES ((NOT (LESSP J N2))) NIL)) LEVEL-NO 2 JUSTIFICATIONS ((JUSTIFICATION (J N2) (DIFFERENCE N2 J) LESSP (ZERO))) IDATE 1000402215101 CONTROLLER-POCKETS (12) SATELLITES (*1*STRCPY1) IMMEDIATE-DEPENDENTS0 (STRCAT) EVENT (DEFN STRCPY1 (I LST1 J N2 LST2) (IF (LESSP J N2) (IF (EQUAL (GET-NTH J LST2) (NULL)) (PUT-NTH (NULL) I LST1) (STRCPY1 (ADD1 I) (PUT-NTH (GET-NTH J LST2) I LST1) (ADD1 J) N2 LST2)) LST1) ((LESSP (DIFFERENCE N2 J)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PUT-NTH . STRCPY1) (IMMEDIATE-DEPENDENTS0 NULL . STRCPY1) (IMMEDIATE-DEPENDENTS0 GET-NTH . STRCPY1) (DCELL . *1*STRCPY1))))) (PUT1-LST (QUOTE *1*STRCOLL) (QUOTE (MAIN-EVENT STRCOLL))) (PUT1-LST (QUOTE STRCOLL) (QUOTE (TYPE-PRESCRIPTION-LST ((STRCOLL 36 NIL NIL NIL)) TOTALP-LST ((STRCOLL . T)) SDEFN (LAMBDA (N1 LST1 LST2) (STRCMP (QUOTE 0) N1 LST1 LST2)) LISP-CODE *1*STRCOLL SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402215101 SATELLITES (*1*STRCOLL) EVENT (DEFN STRCOLL (N1 LST1 LST2) (STRCMP (QUOTE 0) N1 LST1 LST2)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 STRCMP . STRCOLL) (DCELL . *1*STRCOLL))))) (PUT1-LST (QUOTE *1*STRCMP) (QUOTE (MAIN-EVENT STRCMP))) (PUT1-LST (QUOTE STRCMP) (QUOTE (TYPE-PRESCRIPTION-LST ((STRCMP 36 NIL NIL NIL NIL)) TOTALP-LST ((STRCMP . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE UNCHANGING UNCHANGING UNCHANGING) SDEFN (LAMBDA (I N1 LST1 LST2) (IF (LESSP I N1) (IF (EQUAL (GET-NTH I LST1) (GET-NTH I LST2)) (IF (EQUAL (GET-NTH I LST1) (NULL)) (QUOTE 0) (STRCMP (ADD1 I) N1 LST1 LST2)) (IDIFFERENCE (GET-NTH I LST1) (GET-NTH I LST2))) (QUOTE 0))) LISP-CODE *1*STRCMP SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((LESSP I N1) (EQUAL (GET-NTH I LST1) (GET-NTH I LST2)) (EQUAL (GET-NTH I LST1) (NULL))) NIL) (TESTS-AND-CASES ((LESSP I N1) (EQUAL (GET-NTH I LST1) (GET-NTH I LST2)) (NOT (EQUAL (GET-NTH I LST1) (NULL)))) (((ADD1 I) N1 LST1 LST2))) (TESTS-AND-CASES ((LESSP I N1) (NOT (EQUAL (GET-NTH I LST1) (GET-NTH I LST2)))) NIL) (TESTS-AND-CASES ((NOT (LESSP I N1))) NIL)) LEVEL-NO 2 JUSTIFICATIONS ((JUSTIFICATION (I N1) (DIFFERENCE N1 I) LESSP (ZERO))) IDATE 1000402215101 CONTROLLER-POCKETS (3) SATELLITES (*1*STRCMP) IMMEDIATE-DEPENDENTS0 (STRCOLL) EVENT (DEFN STRCMP (I N1 LST1 LST2) (IF (LESSP I N1) (IF (EQUAL (GET-NTH I LST1) (GET-NTH I LST2)) (IF (EQUAL (GET-NTH I LST1) (NULL)) (QUOTE 0) (STRCMP (ADD1 I) N1 LST1 LST2)) (IDIFFERENCE (GET-NTH I LST1) (GET-NTH I LST2))) (QUOTE 0)) ((LESSP (DIFFERENCE N1 I)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IDIFFERENCE . STRCMP) (IMMEDIATE-DEPENDENTS0 NULL . STRCMP) (IMMEDIATE-DEPENDENTS0 GET-NTH . STRCMP) (DCELL . *1*STRCMP))))) (PUT1-LST (QUOTE *1*STRCPY) (QUOTE (MAIN-EVENT STRCPY))) (PUT1-LST (QUOTE STRCPY) (QUOTE (TYPE-PRESCRIPTION-LST ((STRCPY 16 NIL T NIL NIL)) TOTALP-LST ((STRCPY . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE UNCHANGING UNCHANGING) SDEFN (LAMBDA (I LST1 N2 LST2) (IF (LESSP I N2) (IF (EQUAL (GET-NTH I LST2) (NULL)) (PUT-NTH (NULL) I LST1) (STRCPY (ADD1 I) (PUT-NTH (GET-NTH I LST2) I LST1) N2 LST2)) LST1)) LISP-CODE *1*STRCPY SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((LESSP I N2) (EQUAL (GET-NTH I LST2) (NULL))) NIL) (TESTS-AND-CASES ((LESSP I N2) (NOT (EQUAL (GET-NTH I LST2) (NULL)))) (((ADD1 I) (PUT-NTH (GET-NTH I LST2) I LST1) N2 LST2))) (TESTS-AND-CASES ((NOT (LESSP I N2))) NIL)) LEVEL-NO 2 JUSTIFICATIONS ((JUSTIFICATION (I N2) (DIFFERENCE N2 I) LESSP (ZERO))) IDATE 1000402215101 CONTROLLER-POCKETS (5) SATELLITES (*1*STRCPY) EVENT (DEFN STRCPY (I LST1 N2 LST2) (IF (LESSP I N2) (IF (EQUAL (GET-NTH I LST2) (NULL)) (PUT-NTH (NULL) I LST1) (STRCPY (ADD1 I) (PUT-NTH (GET-NTH I LST2) I LST1) N2 LST2)) LST1) ((LESSP (DIFFERENCE N2 I)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PUT-NTH . STRCPY) (IMMEDIATE-DEPENDENTS0 NULL . STRCPY) (IMMEDIATE-DEPENDENTS0 GET-NTH . STRCPY) (DCELL . *1*STRCPY))))) (PUT1-LST (QUOTE *1*STRLEN) (QUOTE (MAIN-EVENT STRLEN))) (PUT1-LST (QUOTE STRLEN) (QUOTE (TYPE-PRESCRIPTION-LST ((STRLEN 4 T NIL NIL)) TOTALP-LST ((STRLEN . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE UNCHANGING UNCHANGING) SDEFN (LAMBDA (I N LST) (IF (LESSP I N) (IF (EQUAL (GET-NTH I LST) (NULL)) I (STRLEN (ADD1 I) N LST)) I)) LISP-CODE *1*STRLEN SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((LESSP I N) (EQUAL (GET-NTH I LST) (NULL))) NIL) (TESTS-AND-CASES ((LESSP I N) (NOT (EQUAL (GET-NTH I LST) (NULL)))) (((ADD1 I) N LST))) (TESTS-AND-CASES ((NOT (LESSP I N))) NIL)) LEVEL-NO 2 JUSTIFICATIONS ((JUSTIFICATION (I N) (DIFFERENCE N I) LESSP (ZERO))) IDATE 1000402215101 CONTROLLER-POCKETS (3) SATELLITES (*1*STRLEN) IMMEDIATE-DEPENDENTS0 (STRSTR* STRSTR STRNCAT STRCAT) EVENT (DEFN STRLEN (I N LST) (IF (LESSP I N) (IF (EQUAL (GET-NTH I LST) (NULL)) I (STRLEN (ADD1 I) N LST)) I) ((LESSP (DIFFERENCE N I)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NULL . STRLEN) (IMMEDIATE-DEPENDENTS0 GET-NTH . STRLEN) (DCELL . *1*STRLEN))))) (PUT1-LST (QUOTE *1*MEMSET) (QUOTE (MAIN-EVENT MEMSET))) (PUT1-LST (QUOTE MEMSET) (QUOTE (TYPE-PRESCRIPTION-LST ((MEMSET 16 NIL T NIL)) TOTALP-LST ((MEMSET . T)) SDEFN (LAMBDA (N LST CH) (IF (EQUAL N (QUOTE 0)) LST (MEMSET1 (QUOTE 0) N LST CH))) LISP-CODE *1*MEMSET SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402215101 SATELLITES (*1*MEMSET) EVENT (DEFN MEMSET (N LST CH) (IF (EQUAL N (QUOTE 0)) LST (MEMSET1 (QUOTE 0) N LST CH))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MEMSET1 . MEMSET) (DCELL . *1*MEMSET))))) (PUT1-LST (QUOTE *1*MEMSET1) (QUOTE (MAIN-EVENT MEMSET1))) (PUT1-LST (QUOTE MEMSET1) (QUOTE (TYPE-PRESCRIPTION-LST ((MEMSET1 16 NIL NIL NIL NIL)) TOTALP-LST ((MEMSET1 . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE SELF-REFLEXIVE UNCHANGING) SDEFN (LAMBDA (I N LST CH) (IF (EQUAL (SUB1 N) (QUOTE 0)) (PUT-NTH CH I LST) (MEMSET1 (ADD1 I) (SUB1 N) (PUT-NTH CH I LST) CH))) LISP-CODE *1*MEMSET1 SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((EQUAL (SUB1 N) (QUOTE 0))) NIL) (TESTS-AND-CASES ((NOT (EQUAL (SUB1 N) (QUOTE 0)))) (((ADD1 I) (SUB1 N) (PUT-NTH CH I LST) CH)))) LEVEL-NO 2 JUSTIFICATIONS ((JUSTIFICATION (N) (COUNT N) LESSP (SUB1-OF-1 COUNT-NUMBERP LESSP-SUB1))) IDATE 1000402215101 CONTROLLER-POCKETS (2) SATELLITES (*1*MEMSET1) IMMEDIATE-DEPENDENTS0 (MEMSET) EVENT (DEFN MEMSET1 (I N LST CH) (IF (EQUAL (SUB1 N) (QUOTE 0)) (PUT-NTH CH I LST) (MEMSET1 (ADD1 I) (SUB1 N) (PUT-NTH CH I LST) CH))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PUT-NTH . MEMSET1) (IMMEDIATE-DEPENDENTS0 SUB1-OF-1 . MEMSET1) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . MEMSET1) (DCELL . *1*MEMSET1))))) (PUT1-LST (QUOTE *1*MEMCMP) (QUOTE (MAIN-EVENT MEMCMP))) (PUT1-LST (QUOTE MEMCMP) (QUOTE (TYPE-PRESCRIPTION-LST ((MEMCMP 36 NIL NIL NIL)) TOTALP-LST ((MEMCMP . T)) SDEFN (LAMBDA (N LST1 LST2) (IF (EQUAL N (QUOTE 0)) (QUOTE 0) (MEMCMP1 (QUOTE 0) N LST1 LST2))) LISP-CODE *1*MEMCMP SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402215101 SATELLITES (*1*MEMCMP) EVENT (DEFN MEMCMP (N LST1 LST2) (IF (EQUAL N (QUOTE 0)) (QUOTE 0) (MEMCMP1 (QUOTE 0) N LST1 LST2))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MEMCMP1 . MEMCMP) (DCELL . *1*MEMCMP))))) (PUT1-LST (QUOTE *1*MEMCMP1) (QUOTE (MAIN-EVENT MEMCMP1))) (PUT1-LST (QUOTE MEMCMP1) (QUOTE (TYPE-PRESCRIPTION-LST ((MEMCMP1 36 NIL NIL NIL NIL)) TOTALP-LST ((MEMCMP1 . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE UNCHANGING UNCHANGING) SDEFN (LAMBDA (I N LST1 LST2) (IF (EQUAL (GET-NTH I LST1) (GET-NTH I LST2)) (IF (EQUAL (SUB1 N) (QUOTE 0)) (QUOTE 0) (MEMCMP1 (ADD1 I) (SUB1 N) LST1 LST2)) (IDIFFERENCE (GET-NTH I LST1) (GET-NTH I LST2)))) LISP-CODE *1*MEMCMP1 SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((EQUAL (GET-NTH I LST1) (GET-NTH I LST2)) (EQUAL (SUB1 N) (QUOTE 0))) NIL) (TESTS-AND-CASES ((EQUAL (GET-NTH I LST1) (GET-NTH I LST2)) (NOT (EQUAL (SUB1 N) (QUOTE 0)))) (((ADD1 I) (SUB1 N) LST1 LST2))) (TESTS-AND-CASES ((NOT (EQUAL (GET-NTH I LST1) (GET-NTH I LST2)))) NIL)) LEVEL-NO 2 JUSTIFICATIONS ((JUSTIFICATION (N) (COUNT N) LESSP (SUB1-OF-1 COUNT-NUMBERP LESSP-SUB1))) IDATE 1000402215101 CONTROLLER-POCKETS (2) SATELLITES (*1*MEMCMP1) IMMEDIATE-DEPENDENTS0 (MEMCMP) EVENT (DEFN MEMCMP1 (I N LST1 LST2) (IF (EQUAL (GET-NTH I LST1) (GET-NTH I LST2)) (IF (EQUAL (SUB1 N) (QUOTE 0)) (QUOTE 0) (MEMCMP1 (ADD1 I) (SUB1 N) LST1 LST2)) (IDIFFERENCE (GET-NTH I LST1) (GET-NTH I LST2)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IDIFFERENCE . MEMCMP1) (IMMEDIATE-DEPENDENTS0 GET-NTH . MEMCMP1) (IMMEDIATE-DEPENDENTS0 SUB1-OF-1 . MEMCMP1) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . MEMCMP1) (DCELL . *1*MEMCMP1))))) (PUT1-LST (QUOTE *1*MEMCHR) (QUOTE (MAIN-EVENT MEMCHR))) (PUT1-LST (QUOTE MEMCHR) (QUOTE (TYPE-PRESCRIPTION-LST ((MEMCHR 5 NIL NIL NIL)) TOTALP-LST ((MEMCHR . T)) SDEFN (LAMBDA (N LST CH) (IF (EQUAL N (QUOTE 0)) (QUOTE *1*FALSE) (MEMCHR1 (QUOTE 0) N LST CH))) LISP-CODE *1*MEMCHR SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402215101 SATELLITES (*1*MEMCHR) EVENT (DEFN MEMCHR (N LST CH) (IF (EQUAL N (QUOTE 0)) (QUOTE *1*FALSE) (MEMCHR1 (QUOTE 0) N LST CH))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MEMCHR1 . MEMCHR) (DCELL . *1*MEMCHR))))) (PUT1-LST (QUOTE *1*MEMCHR1) (QUOTE (MAIN-EVENT MEMCHR1))) (PUT1-LST (QUOTE MEMCHR1) (QUOTE (TYPE-PRESCRIPTION-LST ((MEMCHR1 5 NIL NIL NIL NIL)) TOTALP-LST ((MEMCHR1 . T)) LINEAR-LEMMAS ((LINEAR-LEMMA MEMCHR-BOUNDS ((MEMCHR1 I N LST CH)) (NOT (LESSP (MEMCHR1 I N LST CH) I)) (MEMCHR1 I N LST CH)) (LINEAR-LEMMA MEMCHR-BOUNDS NIL (NOT (LESSP (PLUS I N) (MEMCHR1 I N LST CH))) (MEMCHR1 I N LST CH))) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE UNCHANGING UNCHANGING) SDEFN (LAMBDA (I N LST CH) (IF (EQUAL (GET-NTH I LST) CH) (IF (NUMBERP I) I (QUOTE 0)) (IF (EQUAL (SUB1 N) (QUOTE 0)) (QUOTE *1*FALSE) (MEMCHR1 (ADD1 I) (SUB1 N) LST CH)))) LISP-CODE *1*MEMCHR1 SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((EQUAL (GET-NTH I LST) CH)) NIL) (TESTS-AND-CASES ((NOT (EQUAL (GET-NTH I LST) CH)) (EQUAL (SUB1 N) (QUOTE 0))) NIL) (TESTS-AND-CASES ((NOT (EQUAL (GET-NTH I LST) CH)) (NOT (EQUAL (SUB1 N) (QUOTE 0)))) (((ADD1 I) (SUB1 N) LST CH)))) LEVEL-NO 2 JUSTIFICATIONS ((JUSTIFICATION (N) (COUNT N) LESSP (SUB1-OF-1 COUNT-NUMBERP LESSP-SUB1))) IDATE 1000402215101 CONTROLLER-POCKETS (2) SATELLITES (*1*MEMCHR1) IMMEDIATE-DEPENDENTS0 (MEMCHR-BOUNDS MEMCHR) EVENT (DEFN MEMCHR1 (I N LST CH) (IF (EQUAL (GET-NTH I LST) CH) (FIX I) (IF (EQUAL (SUB1 N) (QUOTE 0)) (QUOTE *1*FALSE) (MEMCHR1 (ADD1 I) (SUB1 N) LST CH)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 GET-NTH . MEMCHR1) (IMMEDIATE-DEPENDENTS0 SUB1-OF-1 . MEMCHR1) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . MEMCHR1) (DCELL . *1*MEMCHR1))))) (PUT1-LST (QUOTE *1*EOF) (QUOTE (MAIN-EVENT EOF))) (PUT1-LST (QUOTE EOF) (QUOTE (TYPE-PRESCRIPTION-LST ((EOF 32)) TOTALP-LST ((EOF . T)) SDEFN (LAMBDA NIL (QUOTE -1)) LISP-CODE *1*EOF SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402215101 SATELLITES (*1*EOF) EVENT (DEFN EOF NIL (QUOTE -1)) LOCAL-UNDO-TUPLES ((DCELL . *1*EOF))))) (PUT1-LST (QUOTE *1*NULL) (QUOTE (MAIN-EVENT NULL))) (PUT1-LST (QUOTE NULL) (QUOTE (TYPE-PRESCRIPTION-LST ((NULL 4)) TOTALP-LST ((NULL . T)) SDEFN (LAMBDA NIL (QUOTE 0)) LISP-CODE *1*NULL SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402215101 SATELLITES (*1*NULL) IMMEDIATE-DEPENDENTS0 (SLEN-REC LESSP-SLEN-MCDR-0 LESSP-SLEN-MCDR SLEN-PUT SLEN-PUT0 SLEN-ADD1 SLEN-01 SLEN-LBOUND SLEN-UBOUND SLEN STRLEN* STRNCAT STRCPY2 STRCAT STRCPY1 STRCMP STRCPY STRLEN) EVENT (DEFN NULL NIL (QUOTE 0)) LOCAL-UNDO-TUPLES ((DCELL . *1*NULL))))) (PUT1-LST (QUOTE PUT-NTH-OFF) (QUOTE (IDATE 1000402215101 EVENT (TOGGLE PUT-NTH-OFF PUT-NTH T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PUT-NTH . PUT-NTH-OFF) (DISABLED-LEMMAS NIL PUT-NTH PUT-NTH-OFF . T))))) (PUT1-LST (QUOTE GET-NTH-OFF) (QUOTE (IDATE 1000402215101 EVENT (TOGGLE GET-NTH-OFF GET-NTH T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 GET-NTH . GET-NTH-OFF) (DISABLED-LEMMAS NIL GET-NTH GET-NTH-OFF . T))))) (PUT1-LST (QUOTE GET-SWAP) (QUOTE (IDATE 1000402215101 EVENT (PROVE-LEMMA GET-SWAP (REWRITE) (EQUAL (GET-NTH K (SWAP I J LST)) (IF (EQUAL (FIX K) (FIX I)) (GET-NTH J LST) (IF (EQUAL (FIX K) (FIX J)) (GET-NTH I LST) (GET-NTH K LST))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 GET-PUT . GET-SWAP) (IMMEDIATE-DEPENDENTS0 SWAP . GET-SWAP) (IMMEDIATE-DEPENDENTS0 GET-NTH . GET-SWAP) (LEMMAS GET-NTH . GET-SWAP))))) (PUT1-LST (QUOTE *1*SWAP) (QUOTE (MAIN-EVENT SWAP))) (PUT1-LST (QUOTE SWAP) (QUOTE (TYPE-PRESCRIPTION-LST ((SWAP 16 NIL NIL NIL)) TOTALP-LST ((SWAP . T)) SDEFN (LAMBDA (I J LST) (PUT-NTH (GET-NTH I LST) J (PUT-NTH (GET-NTH J LST) I LST))) LISP-CODE *1*SWAP SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402215101 SATELLITES (*1*SWAP) IMMEDIATE-DEPENDENTS0 (GET-SWAP) EVENT (DEFN SWAP (I J LST) (PUT-NTH (GET-NTH I LST) J (PUT-NTH (GET-NTH J LST) I LST))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 GET-NTH . SWAP) (IMMEDIATE-DEPENDENTS0 PUT-NTH . SWAP) (DCELL . *1*SWAP))))) (PUT1-LST (QUOTE MEAN-LESSP) (QUOTE (IDATE 1000402215101 IMMEDIATE-DEPENDENTS0 (MEAN-DIFFERENCE-2) EVENT (PROVE-LEMMA MEAN-LESSP (REWRITE) (AND (EQUAL (LESSP (QUOTIENT (PLUS I J) (QUOTE 2)) J) (LESSP I J)) (EQUAL (LESSP (QUOTIENT (PLUS J I) (QUOTE 2)) J) (LESSP I J)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . MEAN-LESSP) (IMMEDIATE-DEPENDENTS0 MEAN-LESSP-LEMMA . MEAN-LESSP) (IMMEDIATE-DEPENDENTS0 QUOTIENT-TIMES-LESSP . MEAN-LESSP) (LEMMAS LESSP . MEAN-LESSP) (LEMMAS LESSP . MEAN-LESSP))))) (PUT1-LST (QUOTE MEAN-LESSP-LEMMA) (QUOTE (IDATE 1000402215101 IMMEDIATE-DEPENDENTS0 (MEAN-LESSP) EVENT (PROVE-LEMMA MEAN-LESSP-LEMMA (REWRITE) (EQUAL (LESSP (PLUS I J) (TIMES (QUOTE 2) J)) (LESSP I J)) ((INDUCT (DIFFERENCE J I)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-ADD1 . MEAN-LESSP-LEMMA) (IMMEDIATE-DEPENDENTS0 TIMES-ADD1 . MEAN-LESSP-LEMMA) (IMMEDIATE-DEPENDENTS0 TIMES-EQUAL-0 . MEAN-LESSP-LEMMA) (IMMEDIATE-DEPENDENTS0 SUB1-OF-1 . MEAN-LESSP-LEMMA) (IMMEDIATE-DEPENDENTS0 TIMES-EQUAL-1 . MEAN-LESSP-LEMMA) (IMMEDIATE-DEPENDENTS0 TIMES-LESSP . MEAN-LESSP-LEMMA) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . MEAN-LESSP-LEMMA) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . MEAN-LESSP-LEMMA) (LEMMAS LESSP . MEAN-LESSP-LEMMA))))) (PUT1-LST (QUOTE *1*D6-7A2-5P) (QUOTE (MAIN-EVENT D6-7A2-5P))) (PUT1-LST (QUOTE D6-7A2-5P) (QUOTE (TYPE-PRESCRIPTION-LST ((D6-7A2-5P 3 NIL)) TOTALP-LST ((D6-7A2-5P . T)) SDEFN (LAMBDA (RN) (IF (D4-7A2-5P RN) (IF (EQUAL RN (QUOTE 4)) (QUOTE *1*FALSE) (IF (EQUAL RN (QUOTE 5)) (QUOTE *1*FALSE) (QUOTE *1*TRUE))) (QUOTE *1*FALSE))) LISP-CODE *1*D6-7A2-5P SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402215101 SATELLITES (*1*D6-7A2-5P) EVENT (DEFN D6-7A2-5P (RN) (AND (D4-7A2-5P RN) (AND (NOT (EQUAL RN (QUOTE 4))) (NOT (EQUAL RN (QUOTE 5)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 D4-7A2-5P . D6-7A2-5P) (DCELL . *1*D6-7A2-5P))))) (PUT1-LST (QUOTE *1*D5-7A4-5P) (QUOTE (MAIN-EVENT D5-7A4-5P))) (PUT1-LST (QUOTE D5-7A4-5P) (QUOTE (TYPE-PRESCRIPTION-LST ((D5-7A4-5P 3 NIL)) TOTALP-LST ((D5-7A4-5P . T)) SDEFN (LAMBDA (RN) (IF (D4-7A2-5P RN) (IF (EQUAL RN (QUOTE 4)) (QUOTE *1*FALSE) (IF (EQUAL RN (QUOTE 10)) (QUOTE *1*FALSE) (IF (EQUAL RN (QUOTE 11)) (QUOTE *1*FALSE) (QUOTE *1*TRUE)))) (QUOTE *1*FALSE))) LISP-CODE *1*D5-7A4-5P SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402215101 SATELLITES (*1*D5-7A4-5P) EVENT (DEFN D5-7A4-5P (RN) (AND (D4-7A2-5P RN) (AND (NOT (EQUAL RN (QUOTE 4))) (AND (NOT (EQUAL RN (QUOTE 10))) (NOT (EQUAL RN (QUOTE 11))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 D4-7A2-5P . D5-7A4-5P) (DCELL . *1*D5-7A4-5P))))) (PUT1-LST (QUOTE *1*D4-7A5P) (QUOTE (MAIN-EVENT D4-7A5P))) (PUT1-LST (QUOTE D4-7A5P) (QUOTE (TYPE-PRESCRIPTION-LST ((D4-7A5P 3 NIL)) TOTALP-LST ((D4-7A5P . T)) SDEFN (LAMBDA (RN) (IF (D4-7A2-5P RN) (IF (EQUAL RN (QUOTE 10)) (QUOTE *1*FALSE) (IF (EQUAL RN (QUOTE 11)) (QUOTE *1*FALSE) (IF (EQUAL RN (QUOTE 12)) (QUOTE *1*FALSE) (QUOTE *1*TRUE)))) (QUOTE *1*FALSE))) LISP-CODE *1*D4-7A5P SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402215101 SATELLITES (*1*D4-7A5P) EVENT (DEFN D4-7A5P (RN) (AND (D4-7A2-5P RN) (AND (NOT (EQUAL RN (QUOTE 10))) (AND (NOT (EQUAL RN (QUOTE 11))) (NOT (EQUAL RN (QUOTE 12))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 D4-7A2-5P . D4-7A5P) (DCELL . *1*D4-7A5P))))) (PUT1-LST (QUOTE *1*D4-7A4-5P) (QUOTE (MAIN-EVENT D4-7A4-5P))) (PUT1-LST (QUOTE D4-7A4-5P) (QUOTE (TYPE-PRESCRIPTION-LST ((D4-7A4-5P 3 NIL)) TOTALP-LST ((D4-7A4-5P . T)) SDEFN (LAMBDA (RN) (IF (D4-7A2-5P RN) (IF (EQUAL RN (QUOTE 10)) (QUOTE *1*FALSE) (IF (EQUAL RN (QUOTE 11)) (QUOTE *1*FALSE) (QUOTE *1*TRUE))) (QUOTE *1*FALSE))) LISP-CODE *1*D4-7A4-5P SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402215101 SATELLITES (*1*D4-7A4-5P) EVENT (DEFN D4-7A4-5P (RN) (AND (D4-7A2-5P RN) (AND (NOT (EQUAL RN (QUOTE 10))) (NOT (EQUAL RN (QUOTE 11)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 D4-7A2-5P . D4-7A4-5P) (DCELL . *1*D4-7A4-5P))))) (PUT1-LST (QUOTE *1*D2-7A3-5P) (QUOTE (MAIN-EVENT D2-7A3-5P))) (PUT1-LST (QUOTE D2-7A3-5P) (QUOTE (TYPE-PRESCRIPTION-LST ((D2-7A3-5P 3 NIL)) TOTALP-LST ((D2-7A3-5P . T)) SDEFN (LAMBDA (RN) (IF (D2-7A2-5P RN) (IF (EQUAL RN (QUOTE 10)) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (QUOTE *1*FALSE))) LISP-CODE *1*D2-7A3-5P SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402215101 SATELLITES (*1*D2-7A3-5P) EVENT (DEFN D2-7A3-5P (RN) (AND (D2-7A2-5P RN) (NOT (EQUAL RN (QUOTE 10))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 D2-7A2-5P . D2-7A3-5P) (DCELL . *1*D2-7A3-5P))))) (PUT1-LST (QUOTE *1*D5-7A2-5P) (QUOTE (MAIN-EVENT D5-7A2-5P))) (PUT1-LST (QUOTE D5-7A2-5P) (QUOTE (TYPE-PRESCRIPTION-LST ((D5-7A2-5P 3 NIL)) TOTALP-LST ((D5-7A2-5P . T)) SDEFN (LAMBDA (RN) (IF (D2-7A2-5P RN) (IF (EQUAL RN (QUOTE 2)) (QUOTE *1*FALSE) (IF (EQUAL RN (QUOTE 3)) (QUOTE *1*FALSE) (IF (EQUAL RN (QUOTE 4)) (QUOTE *1*FALSE) (QUOTE *1*TRUE)))) (QUOTE *1*FALSE))) LISP-CODE *1*D5-7A2-5P SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402215101 SATELLITES (*1*D5-7A2-5P) EVENT (DEFN D5-7A2-5P (RN) (AND (D2-7A2-5P RN) (AND (NOT (EQUAL RN (QUOTE 2))) (AND (NOT (EQUAL RN (QUOTE 3))) (NOT (EQUAL RN (QUOTE 4))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 D2-7A2-5P . D5-7A2-5P) (DCELL . *1*D5-7A2-5P))))) (PUT1-LST (QUOTE *1*D4-7A2-5P) (QUOTE (MAIN-EVENT D4-7A2-5P))) (PUT1-LST (QUOTE D4-7A2-5P) (QUOTE (TYPE-PRESCRIPTION-LST ((D4-7A2-5P 3 NIL)) TOTALP-LST ((D4-7A2-5P . T)) SDEFN (LAMBDA (RN) (IF (D2-7A2-5P RN) (IF (EQUAL RN (QUOTE 2)) (QUOTE *1*FALSE) (IF (EQUAL RN (QUOTE 3)) (QUOTE *1*FALSE) (QUOTE *1*TRUE))) (QUOTE *1*FALSE))) LISP-CODE *1*D4-7A2-5P SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402215101 SATELLITES (*1*D4-7A2-5P) IMMEDIATE-DEPENDENTS0 (GCD-CORRECTNESS GCD-S0-SN-RFILE GCD-S0-S0-RFILE-2 GCD-S0-S0-RFILE-1 GCD-S0-SN-BASE-RFILE-2 GCD-S0-SN-BASE-RFILE-1 GCD-S-S0-RFILE D6-7A2-5P D5-7A4-5P D4-7A5P D4-7A4-5P) EVENT (DEFN D4-7A2-5P (RN) (AND (D2-7A2-5P RN) (AND (NOT (EQUAL RN (QUOTE 2))) (NOT (EQUAL RN (QUOTE 3)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 D2-7A2-5P . D4-7A2-5P) (DCELL . *1*D4-7A2-5P))))) (PUT1-LST (QUOTE *1*D3-7A2-5P) (QUOTE (MAIN-EVENT D3-7A2-5P))) (PUT1-LST (QUOTE D3-7A2-5P) (QUOTE (TYPE-PRESCRIPTION-LST ((D3-7A2-5P 3 NIL)) TOTALP-LST ((D3-7A2-5P . T)) SDEFN (LAMBDA (RN) (IF (D2-7A2-5P RN) (IF (EQUAL RN (QUOTE 2)) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (QUOTE *1*FALSE))) LISP-CODE *1*D3-7A2-5P SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402215101 SATELLITES (*1*D3-7A2-5P) EVENT (DEFN D3-7A2-5P (RN) (AND (D2-7A2-5P RN) (NOT (EQUAL RN (QUOTE 2))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 D2-7A2-5P . D3-7A2-5P) (DCELL . *1*D3-7A2-5P))))) (PUT1-LST (QUOTE *1*D2-7A2-5P) (QUOTE (MAIN-EVENT D2-7A2-5P))) (PUT1-LST (QUOTE D2-7A2-5P) (QUOTE (TYPE-PRESCRIPTION-LST ((D2-7A2-5P 3 NIL)) TOTALP-LST ((D2-7A2-5P . T)) SDEFN (LAMBDA (RN) (IF (EQUAL RN (QUOTE 0)) (QUOTE *1*FALSE) (IF (NUMBERP RN) (IF (EQUAL RN (QUOTE 1)) (QUOTE *1*FALSE) (IF (EQUAL RN (QUOTE 8)) (QUOTE *1*FALSE) (IF (EQUAL RN (QUOTE 9)) (QUOTE *1*FALSE) (IF (EQUAL RN (QUOTE 14)) (QUOTE *1*FALSE) (IF (EQUAL RN (QUOTE 15)) (QUOTE *1*FALSE) (QUOTE *1*TRUE)))))) (QUOTE *1*FALSE)))) LISP-CODE *1*D2-7A2-5P SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402215101 SATELLITES (*1*D2-7A2-5P) IMMEDIATE-DEPENDENTS0 (GCD-CORRECTNESS GCD-S0-SN-RFILE GCD-S0-S0-RFILE-2 GCD-S0-S0-RFILE-1 GCD-S0-SN-BASE-RFILE-2 GCD-S0-SN-BASE-RFILE-1 GCD-S-S0-RFILE D2-7A3-5P D5-7A2-5P D4-7A2-5P D3-7A2-5P) EVENT (DEFN D2-7A2-5P (RN) (AND (NOT (ZEROP RN)) (AND (NOT (EQUAL RN (QUOTE 1))) (AND (NOT (EQUAL RN (QUOTE 8))) (AND (NOT (EQUAL RN (QUOTE 9))) (AND (NOT (EQUAL RN (QUOTE 14))) (NOT (EQUAL RN (QUOTE 15))))))))) LOCAL-UNDO-TUPLES ((DCELL . *1*D2-7A2-5P))))) (PUT1-LST (QUOTE EQUAL*-OFF) (QUOTE (IDATE 1000402215101 EVENT (TOGGLE EQUAL*-OFF EQUAL* T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EQUAL* . EQUAL*-OFF) (DISABLED-LEMMAS NIL EQUAL* EQUAL*-OFF . T))))) (PUT1-LST (QUOTE READ-RN-EQUAL*) (QUOTE (IDATE 1000402215101 EVENT (PROVE-LEMMA READ-RN-EQUAL* (REWRITE) (IMPLIES (EQUAL* (READ-RN OPLEN RN RFILE) X) (EQUAL (READ-RN OPLEN RN RFILE) X))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 READ-RN . READ-RN-EQUAL*) (IMMEDIATE-DEPENDENTS0 EQUAL* . READ-RN-EQUAL*) (LEMMAS READ-RN . READ-RN-EQUAL*))))) (PUT1-LST (QUOTE EQUAL*-REFLEX) (QUOTE (IDATE 1000402215101 EVENT (PROVE-LEMMA EQUAL*-REFLEX (REWRITE) (EQUAL* X X)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EQUAL* . EQUAL*-REFLEX) (LEMMAS EQUAL* . EQUAL*-REFLEX))))) (PUT1-LST (QUOTE *1*EQUAL*) (QUOTE (MAIN-EVENT EQUAL*))) (PUT1-LST (QUOTE EQUAL*) (QUOTE (TYPE-PRESCRIPTION-LST ((EQUAL* 3 NIL NIL)) LEMMAS ((REWRITE-RULE EQUAL*-REFLEX NIL (EQUAL* X X) NIL)) TOTALP-LST ((EQUAL* . T)) SDEFN (LAMBDA (X Y) (EQUAL X Y)) LISP-CODE *1*EQUAL* SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402215101 SATELLITES (*1*EQUAL*) IMMEDIATE-DEPENDENTS0 (EQUAL*-OFF READ-RN-EQUAL* EQUAL*-REFLEX) EVENT (DEFN EQUAL* (X Y) (EQUAL X Y)) LOCAL-UNDO-TUPLES ((DCELL . *1*EQUAL*))))) (PUT1-LST (QUOTE MEM-ILST-OFF) (QUOTE (IDATE 1000402215101 EVENT (TOGGLE MEM-ILST-OFF MEM-ILST T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MEM-ILST . MEM-ILST-OFF) (DISABLED-LEMMAS NIL MEM-ILST MEM-ILST-OFF . T))))) (PUT1-LST (QUOTE MEM-LST-OFF) (QUOTE (IDATE 1000402215101 EVENT (TOGGLE MEM-LST-OFF MEM-LST T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MEM-LST . MEM-LST-OFF) (DISABLED-LEMMAS NIL MEM-LST MEM-LST-OFF . T))))) (PUT1-LST (QUOTE MEM-ILST-LST-INTEGERP) (QUOTE (IDATE 1000402215101 EVENT (PROVE-LEMMA MEM-ILST-LST-INTEGERP (REWRITE) (IMPLIES (MEM-ILST OPSZ A MEM N LST) (LST-INTEGERP LST))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 READ-MEM-NAT-RANGEP . MEM-ILST-LST-INTEGERP) (IMMEDIATE-DEPENDENTS0 NAT-TO-INT-INTEGERP . MEM-ILST-LST-INTEGERP) (IMMEDIATE-DEPENDENTS0 L . MEM-ILST-LST-INTEGERP) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . MEM-ILST-LST-INTEGERP) (IMMEDIATE-DEPENDENTS0 LST-INTEGERP . MEM-ILST-LST-INTEGERP) (IMMEDIATE-DEPENDENTS0 MEM-ILST . MEM-ILST-LST-INTEGERP) (LEMMAS LST-INTEGERP . MEM-ILST-LST-INTEGERP))))) (PUT1-LST (QUOTE MEM-LST-INTEGERP) (QUOTE (IDATE 1000402215101 EVENT (PROVE-LEMMA MEM-LST-INTEGERP (REWRITE) (IMPLIES (AND (MEM-LST OPSZ A MEM N LST) (EQUAL OPLEN (TIMES (QUOTE 8) OPSZ))) (LST-INTEGERP (LST-INT OPLEN LST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 READ-MEM-NAT-RANGEP . MEM-LST-INTEGERP) (IMMEDIATE-DEPENDENTS0 L . MEM-LST-INTEGERP) (IMMEDIATE-DEPENDENTS0 NAT-TO-INT-INTEGERP . MEM-LST-INTEGERP) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . MEM-LST-INTEGERP) (IMMEDIATE-DEPENDENTS0 LST-INT . MEM-LST-INTEGERP) (IMMEDIATE-DEPENDENTS0 LST-INTEGERP . MEM-LST-INTEGERP) (IMMEDIATE-DEPENDENTS0 MEM-LST . MEM-LST-INTEGERP) (LEMMAS LST-INTEGERP . MEM-LST-INTEGERP))))) (PUT1-LST (QUOTE GET-LST-INTEGERP) (QUOTE (IDATE 1000402215101 EVENT (PROVE-LEMMA GET-LST-INTEGERP (REWRITE) (IMPLIES (LST-INTEGERP LST) (INTEGERP (GET-NTH N LST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 GET-NTH-NIL . GET-LST-INTEGERP) (IMMEDIATE-DEPENDENTS0 GET-NTH . GET-LST-INTEGERP) (IMMEDIATE-DEPENDENTS0 INTEGERP . GET-LST-INTEGERP) (IMMEDIATE-DEPENDENTS0 LST-INTEGERP . GET-LST-INTEGERP) (LEMMAS INTEGERP . GET-LST-INTEGERP))))) (PUT1-LST (QUOTE *1*LST-INTEGERP) (QUOTE (MAIN-EVENT LST-INTEGERP))) (PUT1-LST (QUOTE LST-INTEGERP) (QUOTE (TYPE-PRESCRIPTION-LST ((LST-INTEGERP 3 NIL)) LEMMAS ((REWRITE-RULE MEM-ILST-LST-INTEGERP ((MEM-ILST OPSZ A MEM N LST)) (LST-INTEGERP LST) NIL) (REWRITE-RULE MEM-LST-INTEGERP ((MEM-LST OPSZ A MEM N LST) (EQUAL OPLEN (TIMES (QUOTE 8) OPSZ))) (LST-INTEGERP (LST-INT OPLEN LST)) NIL)) TOTALP-LST ((LST-INTEGERP . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE) SDEFN (LAMBDA (LST) (IF (LISTP LST) (IF (INTEGERP (CAR LST)) (IF (LST-INTEGERP (CDR LST)) (QUOTE *1*TRUE) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*TRUE))) LISP-CODE *1*LST-INTEGERP SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((NLISTP LST)) NIL) (TESTS-AND-CASES ((NOT (NLISTP LST))) (((CDR LST))))) LEVEL-NO 1 JUSTIFICATIONS ((JUSTIFICATION (LST) (COUNT LST) LESSP (CDR-LESSP NLISTP ZERO CDR-LESSEQP))) IDATE 1000402215100 CONTROLLER-POCKETS (1) SATELLITES (*1*LST-INTEGERP) IMMEDIATE-DEPENDENTS0 (MEM-ILST-LST-INTEGERP MEM-LST-INTEGERP GET-LST-INTEGERP) EVENT (DEFN LST-INTEGERP (LST) (IF (NLISTP LST) (QUOTE *1*TRUE) (AND (INTEGERP (CAR LST)) (LST-INTEGERP (CDR LST))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INTEGERP . LST-INTEGERP) (DCELL . *1*LST-INTEGERP))))) (PUT1-LST (QUOTE PUT-LST-INT) (QUOTE (IDATE 1000402215100 EVENT (PROVE-LEMMA PUT-LST-INT (REWRITE) (EQUAL (PUT-NTH (NAT-TO-INT VALUE N) I (LST-INT N LST)) (LST-INT N (PUT-NTH VALUE I LST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NAT-TO-INT-0 . PUT-LST-INT) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . PUT-LST-INT) (IMMEDIATE-DEPENDENTS0 LST-INT . PUT-LST-INT) (IMMEDIATE-DEPENDENTS0 NAT-TO-INT . PUT-LST-INT) (IMMEDIATE-DEPENDENTS0 PUT-NTH . PUT-LST-INT) (LEMMAS PUT-NTH . PUT-LST-INT))))) (PUT1-LST (QUOTE GET-LST-INT) (QUOTE (IDATE 1000402215100 EVENT (PROVE-LEMMA GET-LST-INT (REWRITE) (EQUAL (GET-NTH I (LST-INT N LST)) (NAT-TO-INT (GET-NTH I LST) N))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 GET-NTH-NIL . GET-LST-INT) (IMMEDIATE-DEPENDENTS0 NAT-TO-INT-0 . GET-LST-INT) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . GET-LST-INT) (IMMEDIATE-DEPENDENTS0 NAT-TO-INT . GET-LST-INT) (IMMEDIATE-DEPENDENTS0 LST-INT . GET-LST-INT) (IMMEDIATE-DEPENDENTS0 GET-NTH . GET-LST-INT) (LEMMAS GET-NTH . GET-LST-INT))))) (PUT1-LST (QUOTE *1*LST-INT) (QUOTE (MAIN-EVENT LST-INT))) (PUT1-LST (QUOTE LST-INT) (QUOTE (TYPE-PRESCRIPTION-LST ((LST-INT 16 NIL T)) TOTALP-LST ((LST-INT . T)) QUICK-BLOCK-INFO (UNCHANGING SELF-REFLEXIVE) SDEFN (LAMBDA (N LST) (IF (LISTP LST) (CONS (NAT-TO-INT (CAR LST) N) (LST-INT N (CDR LST))) LST)) LISP-CODE *1*LST-INT SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((NLISTP LST)) NIL) (TESTS-AND-CASES ((NOT (NLISTP LST))) ((N (CDR LST))))) LEVEL-NO 4 JUSTIFICATIONS ((JUSTIFICATION (LST) (COUNT LST) LESSP (CDR-LESSP NLISTP ZERO CDR-LESSEQP))) IDATE 1000402215100 CONTROLLER-POCKETS (2) SATELLITES (*1*LST-INT) IMMEDIATE-DEPENDENTS0 (MEM-LST-INTEGERP PUT-LST-INT GET-LST-INT) EVENT (DEFN LST-INT (N LST) (IF (NLISTP LST) LST (CONS (NAT-TO-INT (CAR LST) N) (LST-INT N (CDR LST))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NAT-TO-INT . LST-INT) (DCELL . *1*LST-INT))))) (PUT1-LST (QUOTE *1*RN-SAVED) (QUOTE (MAIN-EVENT RN-SAVED))) (PUT1-LST (QUOTE RN-SAVED) (QUOTE (TYPE-PRESCRIPTION-LST ((RN-SAVED 4 NIL)) TOTALP-LST ((RN-SAVED . T)) SDEFN (LAMBDA (S) (READ-MEM (SUB (QUOTE 32) (QUOTE 4) (READ-AN (QUOTE 32) (QUOTE 6) S)) (MC-MEM S) (QUOTE 4))) LISP-CODE *1*RN-SAVED SUBRP *1*FALSE LEVEL-NO 5 IDATE 1000402215100 SATELLITES (*1*RN-SAVED) EVENT (DEFN RN-SAVED (S) (READ-MEM (SUB (QUOTE 32) (QUOTE 4) (READ-AN (QUOTE 32) (QUOTE 6) S)) (MC-MEM S) (QUOTE 4))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MC-MEM . RN-SAVED) (IMMEDIATE-DEPENDENTS0 READ-AN . RN-SAVED) (IMMEDIATE-DEPENDENTS0 SUB . RN-SAVED) (IMMEDIATE-DEPENDENTS0 READ-MEM . RN-SAVED) (DCELL . *1*RN-SAVED))))) (PUT1-LST (QUOTE *1*MOVEM-SAVED) (QUOTE (MAIN-EVENT MOVEM-SAVED))) (PUT1-LST (QUOTE MOVEM-SAVED) (QUOTE (TYPE-PRESCRIPTION-LST ((MOVEM-SAVED 24 NIL NIL NIL NIL)) LEMMAS ((REWRITE-RULE GCD-S0-S0-2 ((GCD-S0P S A B) (NUMBERP A) (NOT (EQUAL A (QUOTE 0))) (NUMBERP B) (NOT (EQUAL B (QUOTE 0))) (NOT (LESSP B A))) (EQUAL (MOVEM-SAVED (STEPN S (QUOTE 9)) (QUOTE 4) (QUOTE 8) (QUOTE 2)) (MOVEM-SAVED S (QUOTE 4) (QUOTE 8) (QUOTE 2))) NIL) (REWRITE-RULE GCD-S0-S0-1 ((GCD-S0P S A B) (NUMBERP A) (NOT (EQUAL A (QUOTE 0))) (NUMBERP B) (NOT (EQUAL B (QUOTE 0))) (LESSP B A)) (EQUAL (MOVEM-SAVED (STEPN S (QUOTE 9)) (QUOTE 4) (QUOTE 8) (QUOTE 2)) (MOVEM-SAVED S (QUOTE 4) (QUOTE 8) (QUOTE 2))) NIL) (REWRITE-RULE GCD-S-S0 ((GCD-STATEP S A B)) (EQUAL (MOVEM-SAVED (STEPN S (QUOTE 4)) (QUOTE 4) (QUOTE 8) (QUOTE 2)) (READM-RN (QUOTE 32) (QUOTE (2 3)) (MC-RFILE S))) NIL)) TOTALP-LST ((MOVEM-SAVED . T)) SDEFN (LAMBDA (S OPSZ I N) (READM-MEM OPSZ (SUB (QUOTE 32) I (READ-AN (QUOTE 32) (QUOTE 6) S)) (MC-MEM S) N)) LISP-CODE *1*MOVEM-SAVED SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402215100 SATELLITES (*1*MOVEM-SAVED) IMMEDIATE-DEPENDENTS0 (GCD-S0-SN-RFILE GCD-S0-S0-2 GCD-S0-S0-1 GCD-S0-SN-BASE-RFILE-2 GCD-S0-SN-BASE-RFILE-1 GCD-S-S0) EVENT (DEFN MOVEM-SAVED (S OPSZ I N) (READM-MEM OPSZ (SUB (QUOTE 32) I (READ-AN (QUOTE 32) (QUOTE 6) S)) (MC-MEM S) N)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MC-MEM . MOVEM-SAVED) (IMMEDIATE-DEPENDENTS0 READ-AN . MOVEM-SAVED) (IMMEDIATE-DEPENDENTS0 SUB . MOVEM-SAVED) (IMMEDIATE-DEPENDENTS0 READM-MEM . MOVEM-SAVED) (DCELL . *1*MOVEM-SAVED))))) (PUT1-LST (QUOTE *1*LINKED-A6) (QUOTE (MAIN-EVENT LINKED-A6))) (PUT1-LST (QUOTE LINKED-A6) (QUOTE (TYPE-PRESCRIPTION-LST ((LINKED-A6 4 NIL)) LEMMAS ((REWRITE-RULE GCD-S0-S0-2 ((GCD-S0P S A B) (NUMBERP A) (NOT (EQUAL A (QUOTE 0))) (NUMBERP B) (NOT (EQUAL B (QUOTE 0))) (NOT (LESSP B A))) (EQUAL (LINKED-A6 (STEPN S (QUOTE 9))) (LINKED-A6 S)) NIL) (REWRITE-RULE GCD-S0-S0-1 ((GCD-S0P S A B) (NUMBERP A) (NOT (EQUAL A (QUOTE 0))) (NUMBERP B) (NOT (EQUAL B (QUOTE 0))) (LESSP B A)) (EQUAL (LINKED-A6 (STEPN S (QUOTE 9))) (LINKED-A6 S)) NIL) (REWRITE-RULE GCD-S-S0 ((GCD-STATEP S A B)) (EQUAL (LINKED-A6 (STEPN S (QUOTE 4))) (READ-AN (QUOTE 32) (QUOTE 6) S)) NIL)) TOTALP-LST ((LINKED-A6 . T)) SDEFN (LAMBDA (S) (READ-MEM (READ-AN (QUOTE 32) (QUOTE 6) S) (MC-MEM S) (QUOTE 4))) LISP-CODE *1*LINKED-A6 SUBRP *1*FALSE LEVEL-NO 5 IDATE 1000402215100 SATELLITES (*1*LINKED-A6) IMMEDIATE-DEPENDENTS0 (GCD-S0-SN GCD-S0-S0-2 GCD-S0-S0-1 GCD-S0-SN-BASE-2 GCD-S0-SN-BASE-1 GCD-S-S0) EVENT (DEFN LINKED-A6 (S) (READ-MEM (READ-AN (QUOTE 32) (QUOTE 6) S) (MC-MEM S) (QUOTE 4))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MC-MEM . LINKED-A6) (IMMEDIATE-DEPENDENTS0 READ-AN . LINKED-A6) (IMMEDIATE-DEPENDENTS0 READ-MEM . LINKED-A6) (DCELL . *1*LINKED-A6))))) (PUT1-LST (QUOTE *1*LINKED-RTS-ADDR) (QUOTE (MAIN-EVENT LINKED-RTS-ADDR))) (PUT1-LST (QUOTE LINKED-RTS-ADDR) (QUOTE (TYPE-PRESCRIPTION-LST ((LINKED-RTS-ADDR 4 NIL)) LEMMAS ((REWRITE-RULE GCD-S0-S0-2 ((GCD-S0P S A B) (NUMBERP A) (NOT (EQUAL A (QUOTE 0))) (NUMBERP B) (NOT (EQUAL B (QUOTE 0))) (NOT (LESSP B A))) (EQUAL (LINKED-RTS-ADDR (STEPN S (QUOTE 9))) (LINKED-RTS-ADDR S)) NIL) (REWRITE-RULE GCD-S0-S0-1 ((GCD-S0P S A B) (NUMBERP A) (NOT (EQUAL A (QUOTE 0))) (NUMBERP B) (NOT (EQUAL B (QUOTE 0))) (LESSP B A)) (EQUAL (LINKED-RTS-ADDR (STEPN S (QUOTE 9))) (LINKED-RTS-ADDR S)) NIL) (REWRITE-RULE GCD-S-S0 ((GCD-STATEP S A B)) (EQUAL (LINKED-RTS-ADDR (STEPN S (QUOTE 4))) (RTS-ADDR S)) NIL)) TOTALP-LST ((LINKED-RTS-ADDR . T)) SDEFN (LAMBDA (S) (READ-MEM (ADD (QUOTE 32) (READ-AN (QUOTE 32) (QUOTE 6) S) (QUOTE 4)) (MC-MEM S) (QUOTE 4))) LISP-CODE *1*LINKED-RTS-ADDR SUBRP *1*FALSE LEVEL-NO 5 IDATE 1000402215100 SATELLITES (*1*LINKED-RTS-ADDR) IMMEDIATE-DEPENDENTS0 (GCD-S0-SN GCD-S0-S0-2 GCD-S0-S0-1 GCD-S0-SN-BASE-2 GCD-S0-SN-BASE-1 GCD-S-S0) EVENT (DEFN LINKED-RTS-ADDR (S) (READ-MEM (ADD (QUOTE 32) (READ-AN (QUOTE 32) (QUOTE 6) S) (QUOTE 4)) (MC-MEM S) (QUOTE 4))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MC-MEM . LINKED-RTS-ADDR) (IMMEDIATE-DEPENDENTS0 READ-AN . LINKED-RTS-ADDR) (IMMEDIATE-DEPENDENTS0 ADD . LINKED-RTS-ADDR) (IMMEDIATE-DEPENDENTS0 READ-MEM . LINKED-RTS-ADDR) (DCELL . *1*LINKED-RTS-ADDR))))) (PUT1-LST (QUOTE *1*RTS-ADDR) (QUOTE (MAIN-EVENT RTS-ADDR))) (PUT1-LST (QUOTE RTS-ADDR) (QUOTE (TYPE-PRESCRIPTION-LST ((RTS-ADDR 4 NIL)) TOTALP-LST ((RTS-ADDR . T)) SDEFN (LAMBDA (S) (READ-MEM (READ-AN (QUOTE 32) (QUOTE 7) S) (MC-MEM S) (QUOTE 4))) LISP-CODE *1*RTS-ADDR SUBRP *1*FALSE LEVEL-NO 5 IDATE 1000402215100 SATELLITES (*1*RTS-ADDR) IMMEDIATE-DEPENDENTS0 (GCD-CORRECTNESS GCD-S-S0) EVENT (DEFN RTS-ADDR (S) (READ-MEM (READ-AN (QUOTE 32) (QUOTE 7) S) (MC-MEM S) (QUOTE 4))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MC-MEM . RTS-ADDR) (IMMEDIATE-DEPENDENTS0 READ-AN . RTS-ADDR) (IMMEDIATE-DEPENDENTS0 READ-MEM . RTS-ADDR) (DCELL . *1*RTS-ADDR))))) (PUT1-LST (QUOTE *1*IREAD-AN) (QUOTE (MAIN-EVENT IREAD-AN))) (PUT1-LST (QUOTE IREAD-AN) (QUOTE (TYPE-PRESCRIPTION-LST ((IREAD-AN 36 NIL NIL NIL)) TOTALP-LST ((IREAD-AN . T)) SDEFN (LAMBDA (OPLEN AN S) (NAT-TO-INT (READ-AN OPLEN AN S) OPLEN)) LISP-CODE *1*IREAD-AN SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402215100 SATELLITES (*1*IREAD-AN) EVENT (DEFN IREAD-AN (OPLEN AN S) (NAT-TO-INT (READ-AN OPLEN AN S) OPLEN)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 READ-AN . IREAD-AN) (IMMEDIATE-DEPENDENTS0 NAT-TO-INT . IREAD-AN) (DCELL . *1*IREAD-AN))))) (PUT1-LST (QUOTE *1*IREAD-DN) (QUOTE (MAIN-EVENT IREAD-DN))) (PUT1-LST (QUOTE IREAD-DN) (QUOTE (TYPE-PRESCRIPTION-LST ((IREAD-DN 36 NIL NIL NIL)) LEMMAS ((REWRITE-RULE GCD-CORRECTNESS ((GCD-STATEP S A B)) (EQUAL (IREAD-DN (QUOTE 32) (QUOTE 0) (STEPN S (GCD-T A B))) (GCD A B)) NIL) (REWRITE-RULE GCD-S0-SN ((GCD-S0P S A B)) (EQUAL (IREAD-DN (QUOTE 32) (QUOTE 0) (STEPN S (GCD-T1 A B))) (GCD A B)) NIL) (REWRITE-RULE GCD-S0-SN-BASE-2 ((GCD-S0P S A B) (NUMBERP A) (NOT (EQUAL A (QUOTE 0))) (ZEROP B)) (EQUAL (IREAD-DN (QUOTE 32) (QUOTE 0) (STEPN S (QUOTE 9))) (IF (NUMBERP A) A (QUOTE 0))) NIL) (REWRITE-RULE GCD-S0-SN-BASE-1 ((GCD-S0P S A B) (ZEROP A)) (EQUAL (IREAD-DN (QUOTE 32) (QUOTE 0) (STEPN S (QUOTE 6))) (IF (NUMBERP B) B (QUOTE 0))) NIL)) TOTALP-LST ((IREAD-DN . T)) SDEFN (LAMBDA (OPLEN DN S) (NAT-TO-INT (READ-DN OPLEN DN S) OPLEN)) LISP-CODE *1*IREAD-DN SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402215100 SATELLITES (*1*IREAD-DN) IMMEDIATE-DEPENDENTS0 (GCD-CORRECTNESS GCD-S0-SN GCD-S0-S0-RFILE-2 GCD-S0-S0-RFILE-1 GCD-S0-S0-2 GCD-S0-S0-1 GCD-S0-SN-BASE-RFILE-2 GCD-S0-SN-BASE-2 GCD-S0-SN-BASE-RFILE-1 GCD-S0-SN-BASE-1 GCD-S-S0 GCD-S0P) EVENT (DEFN IREAD-DN (OPLEN DN S) (NAT-TO-INT (READ-DN OPLEN DN S) OPLEN)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 READ-DN . IREAD-DN) (IMMEDIATE-DEPENDENTS0 NAT-TO-INT . IREAD-DN) (DCELL . *1*IREAD-DN))))) (PUT1-LST (QUOTE *1*IREAD-MEM) (QUOTE (MAIN-EVENT IREAD-MEM))) (PUT1-LST (QUOTE IREAD-MEM) (QUOTE (TYPE-PRESCRIPTION-LST ((IREAD-MEM 36 NIL NIL NIL)) TOTALP-LST ((IREAD-MEM . T)) SDEFN (LAMBDA (X MEM N) (NAT-TO-INT (READ-MEM X MEM N) (TIMES (QUOTE 8) N))) LISP-CODE *1*IREAD-MEM SUBRP *1*FALSE LEVEL-NO 5 IDATE 1000402215100 SATELLITES (*1*IREAD-MEM) IMMEDIATE-DEPENDENTS0 (GCD-S-S0-MEM GCD-S-S0-RFILE GCD-S-S0 GCD-STATEP) EVENT (DEFN IREAD-MEM (X MEM N) (NAT-TO-INT (READ-MEM X MEM N) (TIMES (QUOTE 8) N))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 READ-MEM . IREAD-MEM) (IMMEDIATE-DEPENDENTS0 NAT-TO-INT . IREAD-MEM) (DCELL . *1*IREAD-MEM))))) (PUT1-LST (QUOTE *1*UREAD-AN) (QUOTE (MAIN-EVENT UREAD-AN))) (PUT1-LST (QUOTE UREAD-AN) (QUOTE (TYPE-PRESCRIPTION-LST ((UREAD-AN 4 NIL NIL NIL)) TOTALP-LST ((UREAD-AN . T)) SDEFN (LAMBDA (OPLEN AN S) (NAT-TO-UINT (READ-AN OPLEN AN S))) LISP-CODE *1*UREAD-AN SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402215100 SATELLITES (*1*UREAD-AN) EVENT (DEFN UREAD-AN (OPLEN AN S) (NAT-TO-UINT (READ-AN OPLEN AN S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 READ-AN . UREAD-AN) (IMMEDIATE-DEPENDENTS0 NAT-TO-UINT . UREAD-AN) (DCELL . *1*UREAD-AN))))) (PUT1-LST (QUOTE *1*UREAD-DN) (QUOTE (MAIN-EVENT UREAD-DN))) (PUT1-LST (QUOTE UREAD-DN) (QUOTE (TYPE-PRESCRIPTION-LST ((UREAD-DN 4 NIL NIL NIL)) TOTALP-LST ((UREAD-DN . T)) SDEFN (LAMBDA (OPLEN DN S) (NAT-TO-UINT (READ-DN OPLEN DN S))) LISP-CODE *1*UREAD-DN SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402215100 SATELLITES (*1*UREAD-DN) EVENT (DEFN UREAD-DN (OPLEN DN S) (NAT-TO-UINT (READ-DN OPLEN DN S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 READ-DN . UREAD-DN) (IMMEDIATE-DEPENDENTS0 NAT-TO-UINT . UREAD-DN) (DCELL . *1*UREAD-DN))))) (PUT1-LST (QUOTE *1*UREAD-MEM) (QUOTE (MAIN-EVENT UREAD-MEM))) (PUT1-LST (QUOTE UREAD-MEM) (QUOTE (TYPE-PRESCRIPTION-LST ((UREAD-MEM 4 NIL NIL NIL)) TOTALP-LST ((UREAD-MEM . T)) SDEFN (LAMBDA (X MEM N) (NAT-TO-UINT (READ-MEM X MEM N))) LISP-CODE *1*UREAD-MEM SUBRP *1*FALSE LEVEL-NO 5 IDATE 1000402215100 SATELLITES (*1*UREAD-MEM) EVENT (DEFN UREAD-MEM (X MEM N) (NAT-TO-UINT (READ-MEM X MEM N))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 READ-MEM . UREAD-MEM) (IMMEDIATE-DEPENDENTS0 NAT-TO-UINT . UREAD-MEM) (DCELL . *1*UREAD-MEM))))) (PUT1-LST (QUOTE MCODE-ADDRP-OFF) (QUOTE (IDATE 1000402215100 EVENT (TOGGLE MCODE-ADDRP-OFF MCODE-ADDRP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MCODE-ADDRP . MCODE-ADDRP-OFF) (DISABLED-LEMMAS NIL MCODE-ADDRP MCODE-ADDRP-OFF . T))))) (PUT1-LST (QUOTE SPLUS-OFF) (QUOTE (IDATE 1000402215100 EVENT (TOGGLE SPLUS-OFF SPLUS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SPLUS . SPLUS-OFF) (DISABLED-LEMMAS NIL SPLUS SPLUS-OFF . T))))) (PUT1-LST (QUOTE STEPN-MCODE-ADDRP) (QUOTE (IDATE 1000402215100 IMMEDIATE-DEPENDENTS0 (STEPN-GCD-LOADP) EVENT (PROVE-LEMMA STEPN-MCODE-ADDRP (REWRITE) (IMPLIES (ROM-ADDRP X (MC-MEM S) (LEN LST)) (EQUAL (MCODE-ADDRP X (MC-MEM (STEPN S N)) LST) (MCODE-ADDRP X (MC-MEM S) LST))) ((INDUCT (MCODE-ADDRP X MEM LST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PC-BYTE-READ=PC-READ-MEM-1 . STEPN-MCODE-ADDRP) (IMMEDIATE-DEPENDENTS0 STEPN-PC-READ-MEM . STEPN-MCODE-ADDRP) (IMMEDIATE-DEPENDENTS0 INDEX-N-X-X . STEPN-MCODE-ADDRP) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . STEPN-MCODE-ADDRP) (IMMEDIATE-DEPENDENTS0 PLUS-ADD1 . STEPN-MCODE-ADDRP) (IMMEDIATE-DEPENDENTS0 INDEX-N-DEDUCTION1 . STEPN-MCODE-ADDRP) (IMMEDIATE-DEPENDENTS0 INDEX-N . STEPN-MCODE-ADDRP) (IMMEDIATE-DEPENDENTS0 ROM-ADDRP-LA2 . STEPN-MCODE-ADDRP) (IMMEDIATE-DEPENDENTS0 STEPN . STEPN-MCODE-ADDRP) (IMMEDIATE-DEPENDENTS0 MCODE-ADDRP . STEPN-MCODE-ADDRP) (IMMEDIATE-DEPENDENTS0 LEN . STEPN-MCODE-ADDRP) (IMMEDIATE-DEPENDENTS0 MC-MEM . STEPN-MCODE-ADDRP) (IMMEDIATE-DEPENDENTS0 ROM-ADDRP . STEPN-MCODE-ADDRP) (LEMMAS MCODE-ADDRP . STEPN-MCODE-ADDRP))))) (PUT1-LST (QUOTE STEPN-READ-MEM) (QUOTE (IDATE 1000402215100 EVENT (PROVE-LEMMA STEPN-READ-MEM (REWRITE) (IMPLIES (ROM-ADDRP X (MC-MEM S) K) (EQUAL (READ-MEM X (MC-MEM (STEPN S N)) K) (READ-MEM X (MC-MEM S) K))) ((ENABLE READ->PC-READ-MEM))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 STEPN-PC-READ-MEM . STEPN-READ-MEM) (IMMEDIATE-DEPENDENTS0 READ->PC-READ-MEM . STEPN-READ-MEM) (IMMEDIATE-DEPENDENTS0 STEPN . STEPN-READ-MEM) (IMMEDIATE-DEPENDENTS0 READ-MEM . STEPN-READ-MEM) (IMMEDIATE-DEPENDENTS0 MC-MEM . STEPN-READ-MEM) (IMMEDIATE-DEPENDENTS0 ROM-ADDRP . STEPN-READ-MEM) (LEMMAS READ-MEM . STEPN-READ-MEM))))) (PUT1-LST (QUOTE STEPN-PC-READ-MEM) (QUOTE (JUSTIFICATIONS ((H-INVARIANT (H PC-READ-MEM) (P ROM-ADDRP))) IDATE 1000402215100 IMMEDIATE-DEPENDENTS0 (STEPN-MCODE-ADDRP STEPN-READ-MEM) EVENT (FUNCTIONALLY-INSTANTIATE STEPN-PC-READ-MEM (REWRITE) (IMPLIES (ROM-ADDRP X (MC-MEM S) K) (EQUAL (PC-READ-MEM X (MC-MEM (STEPN S N)) K) (PC-READ-MEM X (MC-MEM S) K))) STEPN-H ((H PC-READ-MEM) (P ROM-ADDRP)) NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 H-INVARIANT . STEPN-PC-READ-MEM) (IMMEDIATE-DEPENDENTS0 PC-READ-MEMP-ROM0 . STEPN-PC-READ-MEM) (IMMEDIATE-DEPENDENTS0 PC-READ-MEM-WRITE-MEM . STEPN-PC-READ-MEM) (IMMEDIATE-DEPENDENTS0 WRITE-MEM-MAINTAIN-ROM-ADDRP . STEPN-PC-READ-MEM) (IMMEDIATE-DEPENDENTS0 STEPN . STEPN-PC-READ-MEM) (IMMEDIATE-DEPENDENTS0 MC-MEM . STEPN-PC-READ-MEM) (IMMEDIATE-DEPENDENTS0 PC-READ-MEM . STEPN-PC-READ-MEM) (IMMEDIATE-DEPENDENTS0 ROM-ADDRP . STEPN-PC-READ-MEM) (IMMEDIATE-DEPENDENTS0 STEPN-H . STEPN-PC-READ-MEM) (LEMMAS PC-READ-MEM . STEPN-PC-READ-MEM))))) (PUT1-LST (QUOTE STEPN-RAM-ADDRP) (QUOTE (IDATE 1000402215100 EVENT (PROVE-LEMMA STEPN-RAM-ADDRP (REWRITE) (EQUAL (RAM-ADDRP X (MC-MEM (STEPN S N)) K) (RAM-ADDRP X (MC-MEM S) K)) ((ENABLE RAM-ADDRP))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 STEPN-WRITE-MEMP . STEPN-RAM-ADDRP) (IMMEDIATE-DEPENDENTS0 STEPN . STEPN-RAM-ADDRP) (IMMEDIATE-DEPENDENTS0 MC-MEM . STEPN-RAM-ADDRP) (IMMEDIATE-DEPENDENTS0 RAM-ADDRP . STEPN-RAM-ADDRP) (LEMMAS RAM-ADDRP . STEPN-RAM-ADDRP))))) (PUT1-LST (QUOTE STEPN-ROM-ADDRP) (QUOTE (IDATE 1000402215100 IMMEDIATE-DEPENDENTS0 (STEPN-GCD-LOADP) EVENT (PROVE-LEMMA STEPN-ROM-ADDRP (REWRITE) (EQUAL (ROM-ADDRP X (MC-MEM (STEPN S N)) K) (ROM-ADDRP X (MC-MEM S) K)) ((ENABLE ROM-ADDRP))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 STEPN-PC-READ-MEMP . STEPN-ROM-ADDRP) (IMMEDIATE-DEPENDENTS0 STEPN . STEPN-ROM-ADDRP) (IMMEDIATE-DEPENDENTS0 MC-MEM . STEPN-ROM-ADDRP) (IMMEDIATE-DEPENDENTS0 ROM-ADDRP . STEPN-ROM-ADDRP) (LEMMAS ROM-ADDRP . STEPN-ROM-ADDRP))))) (PUT1-LST (QUOTE STEPN-WRITE-MEMP) (QUOTE (JUSTIFICATIONS ((H-INVARIANT (H WRITE-MEMP) (P T3))) IDATE 1000402215100 IMMEDIATE-DEPENDENTS0 (STEPN-RAM-ADDRP) EVENT (FUNCTIONALLY-INSTANTIATE STEPN-WRITE-MEMP (REWRITE) (IMPLIES (T3 X (MC-MEM S) K) (EQUAL (WRITE-MEMP X (MC-MEM (STEPN S N)) K) (WRITE-MEMP X (MC-MEM S) K))) STEPN-H ((H WRITE-MEMP) (P T3)) NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 H-INVARIANT . STEPN-WRITE-MEMP) (IMMEDIATE-DEPENDENTS0 WRITE-MEM-MAINTAIN-WRITE-MEMP . STEPN-WRITE-MEMP) (IMMEDIATE-DEPENDENTS0 STEPN . STEPN-WRITE-MEMP) (IMMEDIATE-DEPENDENTS0 MC-MEM . STEPN-WRITE-MEMP) (IMMEDIATE-DEPENDENTS0 WRITE-MEMP . STEPN-WRITE-MEMP) (IMMEDIATE-DEPENDENTS0 T3 . STEPN-WRITE-MEMP) (IMMEDIATE-DEPENDENTS0 STEPN-H . STEPN-WRITE-MEMP) (LEMMAS WRITE-MEMP . STEPN-WRITE-MEMP))))) (PUT1-LST (QUOTE STEPN-READ-MEMP) (QUOTE (JUSTIFICATIONS ((H-INVARIANT (H READ-MEMP) (P T3))) IDATE 1000402215100 EVENT (FUNCTIONALLY-INSTANTIATE STEPN-READ-MEMP (REWRITE) (IMPLIES (T3 X (MC-MEM S) K) (EQUAL (READ-MEMP X (MC-MEM (STEPN S N)) K) (READ-MEMP X (MC-MEM S) K))) STEPN-H ((H READ-MEMP) (P T3)) NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 H-INVARIANT . STEPN-READ-MEMP) (IMMEDIATE-DEPENDENTS0 WRITE-MEM-MAINTAIN-READ-MEMP . STEPN-READ-MEMP) (IMMEDIATE-DEPENDENTS0 STEPN . STEPN-READ-MEMP) (IMMEDIATE-DEPENDENTS0 MC-MEM . STEPN-READ-MEMP) (IMMEDIATE-DEPENDENTS0 READ-MEMP . STEPN-READ-MEMP) (IMMEDIATE-DEPENDENTS0 T3 . STEPN-READ-MEMP) (IMMEDIATE-DEPENDENTS0 STEPN-H . STEPN-READ-MEMP) (LEMMAS READ-MEMP . STEPN-READ-MEMP))))) (PUT1-LST (QUOTE STEPN-PC-READ-MEMP) (QUOTE (JUSTIFICATIONS ((H-INVARIANT (H PC-READ-MEMP) (P T3))) IDATE 1000402215100 IMMEDIATE-DEPENDENTS0 (STEPN-ROM-ADDRP) EVENT (FUNCTIONALLY-INSTANTIATE STEPN-PC-READ-MEMP (REWRITE) (IMPLIES (T3 X (MC-MEM S) K) (EQUAL (PC-READ-MEMP X (MC-MEM (STEPN S N)) K) (PC-READ-MEMP X (MC-MEM S) K))) STEPN-H ((H PC-READ-MEMP) (P T3)) NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 H-INVARIANT . STEPN-PC-READ-MEMP) (IMMEDIATE-DEPENDENTS0 WRITE-MEM-MAINTAIN-PC-READ-MEMP . STEPN-PC-READ-MEMP) (IMMEDIATE-DEPENDENTS0 STEPN . STEPN-PC-READ-MEMP) (IMMEDIATE-DEPENDENTS0 MC-MEM . STEPN-PC-READ-MEMP) (IMMEDIATE-DEPENDENTS0 PC-READ-MEMP . STEPN-PC-READ-MEMP) (IMMEDIATE-DEPENDENTS0 T3 . STEPN-PC-READ-MEMP) (IMMEDIATE-DEPENDENTS0 STEPN-H . STEPN-PC-READ-MEMP) (LEMMAS PC-READ-MEMP . STEPN-PC-READ-MEMP))))) (PUT1-LST (QUOTE STEPN-H) (QUOTE (IDATE 1000402215100 IMMEDIATE-DEPENDENTS0 (STEPN-PC-READ-MEM STEPN-WRITE-MEMP STEPN-READ-MEMP STEPN-PC-READ-MEMP) EVENT (PROVE-LEMMA STEPN-H (REWRITE) (IMPLIES (P X (MC-MEM S) K) (EQUAL (H X (MC-MEM (STEPN S N)) K) (H X (MC-MEM S) K))) ((DISABLE STEPI) (ENABLE STEPN))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 STEPI-H . STEPN-H) (IMMEDIATE-DEPENDENTS0 STEPI-P . STEPN-H) (IMMEDIATE-DEPENDENTS0 STEPN-REWRITER0 . STEPN-H) (IMMEDIATE-DEPENDENTS0 MC-STATUS . STEPN-H) (IMMEDIATE-DEPENDENTS0 MC-HALTP . STEPN-H) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . STEPN-H) (IMMEDIATE-DEPENDENTS0 STEPN . STEPN-H) (IMMEDIATE-DEPENDENTS0 H-INVARIANT . STEPN-H) (IMMEDIATE-DEPENDENTS0 MC-MEM . STEPN-H) (LEMMAS H . STEPN-H))))) (PUT1-LST (QUOTE STEPI-P) (QUOTE (JUSTIFICATIONS ((H-INVARIANT (H P) (P T3))) IDATE 1000402215100 IMMEDIATE-DEPENDENTS0 (STEPN-H) EVENT (FUNCTIONALLY-INSTANTIATE STEPI-P (REWRITE) (IMPLIES (T3 X (MC-MEM S) K) (EQUAL (P X (MC-MEM (STEPI S)) K) (P X (MC-MEM S) K))) STEPI-H ((H P) (P T3)) NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 H-INVARIANT . STEPI-P) (IMMEDIATE-DEPENDENTS0 STEPI . STEPI-P) (IMMEDIATE-DEPENDENTS0 MC-MEM . STEPI-P) (IMMEDIATE-DEPENDENTS0 T3 . STEPI-P) (IMMEDIATE-DEPENDENTS0 STEPI-H . STEPI-P) (LEMMAS P . STEPI-P))))) (PUT1-LST (QUOTE STEPI-H) (QUOTE (IDATE 1000402215100 IMMEDIATE-DEPENDENTS0 (STEPN-H STEPI-P) EVENT (PROVE-LEMMA STEPI-H (REWRITE) (IMPLIES (P X (MC-MEM S) K) (EQUAL (H X (MC-MEM (STEPI S)) K) (H X (MC-MEM S) K))) ((DISABLE-THEORY GROUPS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SCC-GROUP-H . STEPI-H) (IMMEDIATE-DEPENDENTS0 MISC-GROUP-H . STEPI-H) (IMMEDIATE-DEPENDENTS0 BCC-GROUP-H . STEPI-H) (IMMEDIATE-DEPENDENTS0 MOVE-H . STEPI-H) (IMMEDIATE-DEPENDENTS0 BIT-GROUP-H . STEPI-H) (IMMEDIATE-DEPENDENTS0 MOVE-GROUP-H . STEPI-H) (IMMEDIATE-DEPENDENTS0 ADD-GROUP-H . STEPI-H) (IMMEDIATE-DEPENDENTS0 AND-GROUP-H . STEPI-H) (IMMEDIATE-DEPENDENTS0 S&R-GROUP-H . STEPI-H) (IMMEDIATE-DEPENDENTS0 SUB-GROUP-H . STEPI-H) (IMMEDIATE-DEPENDENTS0 OR-GROUP-H . STEPI-H) (IMMEDIATE-DEPENDENTS0 CMP-GROUP-H . STEPI-H) (IMMEDIATE-DEPENDENTS0 BITN-0-1 . STEPI-H) (IMMEDIATE-DEPENDENTS0 PC-ODD-SIGNAL . STEPI-H) (IMMEDIATE-DEPENDENTS0 PC-SIGNAL . STEPI-H) (IMMEDIATE-DEPENDENTS0 EXECUTE-INS . STEPI-H) (IMMEDIATE-DEPENDENTS0 BITS . STEPI-H) (IMMEDIATE-DEPENDENTS0 TAIL-NAT-RANGEP . STEPI-H) (IMMEDIATE-DEPENDENTS0 PC-READ-MEM-NAT-RANGEP . STEPI-H) (IMMEDIATE-DEPENDENTS0 HEAD-LEMMA . STEPI-H) (IMMEDIATE-DEPENDENTS0 OPCODE-FIELD . STEPI-H) (IMMEDIATE-DEPENDENTS0 EXP . STEPI-H) (IMMEDIATE-DEPENDENTS0 TAIL-LESSP . STEPI-H) (IMMEDIATE-DEPENDENTS0 TAIL-EQUAL-0 . STEPI-H) (IMMEDIATE-DEPENDENTS0 B . STEPI-H) (IMMEDIATE-DEPENDENTS0 W . STEPI-H) (IMMEDIATE-DEPENDENTS0 HALT . STEPI-H) (IMMEDIATE-DEPENDENTS0 RESERVED-SIGNAL . STEPI-H) (IMMEDIATE-DEPENDENTS0 D-MAPPING . STEPI-H) (IMMEDIATE-DEPENDENTS0 MC-STATUS-REWRITE . STEPI-H) (IMMEDIATE-DEPENDENTS0 MC-RFILE-REWRITE . STEPI-H) (IMMEDIATE-DEPENDENTS0 ADD-NAT-RANGEP . STEPI-H) (IMMEDIATE-DEPENDENTS0 MC-PC-REWRITE . STEPI-H) (IMMEDIATE-DEPENDENTS0 MC-MEM-REWRITE . STEPI-H) (IMMEDIATE-DEPENDENTS0 D_RN . STEPI-H) (IMMEDIATE-DEPENDENTS0 MOVE-EFFECT . STEPI-H) (IMMEDIATE-DEPENDENTS0 MOVE-BEQ-EXT . STEPI-H) (IMMEDIATE-DEPENDENTS0 HEAD-NAT-RANGEP . STEPI-H) (IMMEDIATE-DEPENDENTS0 MOVE-CVZNX . STEPI-H) (IMMEDIATE-DEPENDENTS0 MC-CCR-REWRITE . STEPI-H) (IMMEDIATE-DEPENDENTS0 MC-CCR-RANGEP . STEPI-H) (IMMEDIATE-DEPENDENTS0 B0P . STEPI-H) (IMMEDIATE-DEPENDENTS0 B0 . STEPI-H) (IMMEDIATE-DEPENDENTS0 MOVEQ-INS . STEPI-H) (IMMEDIATE-DEPENDENTS0 OP-LEN . STEPI-H) (IMMEDIATE-DEPENDENTS0 OPMODE-FIELD . STEPI-H) (IMMEDIATE-DEPENDENTS0 UPDATE-PC . STEPI-H) (IMMEDIATE-DEPENDENTS0 L . STEPI-H) (IMMEDIATE-DEPENDENTS0 CURRENT-INS . STEPI-H) (IMMEDIATE-DEPENDENTS0 PC-WORD-READ . STEPI-H) (IMMEDIATE-DEPENDENTS0 PC-WORD-READP . STEPI-H) (IMMEDIATE-DEPENDENTS0 WSZ . STEPI-H) (IMMEDIATE-DEPENDENTS0 GROUPS . STEPI-H) (IMMEDIATE-DEPENDENTS0 STEPI . STEPI-H) (IMMEDIATE-DEPENDENTS0 H-INVARIANT . STEPI-H) (IMMEDIATE-DEPENDENTS0 MC-MEM . STEPI-H) (LEMMAS H . STEPI-H))))) (PUT1-LST (QUOTE MISC-GROUP-H) (QUOTE (IDATE 1000402215100 IMMEDIATE-DEPENDENTS0 (STEPI-H) EVENT (PROVE-LEMMA MISC-GROUP-H (REWRITE) (IMPLIES (P X (MC-MEM S) K) (EQUAL (H X (MC-MEM (MISC-GROUP INS S)) K) (H X (MC-MEM S) K))) ((DISABLE OPERAND EFFEC-ADDR MC-INSTATE MAPPING OP-LEN BITS OP-SZ) (DISABLE-THEORY MODE-GUARDS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MOVEM-PRE-RNLST-LEN . MISC-GROUP-H) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . MISC-GROUP-H) (IMMEDIATE-DEPENDENTS0 LEN . MISC-GROUP-H) (IMMEDIATE-DEPENDENTS0 READM-RN-LEN . MISC-GROUP-H) (IMMEDIATE-DEPENDENTS0 MOVEM-RNLST-LEN . MISC-GROUP-H) (IMMEDIATE-DEPENDENTS0 WRITEM-MEM-H . MISC-GROUP-H) (IMMEDIATE-DEPENDENTS0 H-INVARIANT . MISC-GROUP-H) (IMMEDIATE-DEPENDENTS0 MAPPING-H . MISC-GROUP-H) (IMMEDIATE-DEPENDENTS0 BITN-0-1 . MISC-GROUP-H) (IMMEDIATE-DEPENDENTS0 LEA-SUBGROUP . MISC-GROUP-H) (IMMEDIATE-DEPENDENTS0 EXTB-INS . MISC-GROUP-H) (IMMEDIATE-DEPENDENTS0 D_RN . MISC-GROUP-H) (IMMEDIATE-DEPENDENTS0 LEA-INS . MISC-GROUP-H) (IMMEDIATE-DEPENDENTS0 JMP-INS . MISC-GROUP-H) (IMMEDIATE-DEPENDENTS0 JMP-MAPPING . MISC-GROUP-H) (IMMEDIATE-DEPENDENTS0 JSR-INS . MISC-GROUP-H) (IMMEDIATE-DEPENDENTS0 NOP-SUBGROUP . MISC-GROUP-H) (IMMEDIATE-DEPENDENTS0 NOP-INS . MISC-GROUP-H) (IMMEDIATE-DEPENDENTS0 RTD-MAPPING . MISC-GROUP-H) (IMMEDIATE-DEPENDENTS0 RTD-INS . MISC-GROUP-H) (IMMEDIATE-DEPENDENTS0 EXT . MISC-GROUP-H) (IMMEDIATE-DEPENDENTS0 ADD . MISC-GROUP-H) (IMMEDIATE-DEPENDENTS0 RTS-INS . MISC-GROUP-H) (IMMEDIATE-DEPENDENTS0 TRAPV-INS . MISC-GROUP-H) (IMMEDIATE-DEPENDENTS0 WORD-READ . MISC-GROUP-H) (IMMEDIATE-DEPENDENTS0 WORD-READP . MISC-GROUP-H) (IMMEDIATE-DEPENDENTS0 RTR-INS . MISC-GROUP-H) (IMMEDIATE-DEPENDENTS0 UNLK-SUBGROUP . MISC-GROUP-H) (IMMEDIATE-DEPENDENTS0 LINK_W-INS . MISC-GROUP-H) (IMMEDIATE-DEPENDENTS0 LONG-READ . MISC-GROUP-H) (IMMEDIATE-DEPENDENTS0 LONG-READP . MISC-GROUP-H) (IMMEDIATE-DEPENDENTS0 UNLK-INS . MISC-GROUP-H) (IMMEDIATE-DEPENDENTS0 MOVEM-EA-RN-SUBGROUP . MISC-GROUP-H) (IMMEDIATE-DEPENDENTS0 RESERVED-SIGNAL . MISC-GROUP-H) (IMMEDIATE-DEPENDENTS0 DIV_L-INS . MISC-GROUP-H) (IMMEDIATE-DEPENDENTS0 DQ . MISC-GROUP-H) (IMMEDIATE-DEPENDENTS0 DR . MISC-GROUP-H) (IMMEDIATE-DEPENDENTS0 DIVU-CVZNX . MISC-GROUP-H) (IMMEDIATE-DEPENDENTS0 DIVUL_L . MISC-GROUP-H) (IMMEDIATE-DEPENDENTS0 SET-CVZNX-NAT-RANGEP . MISC-GROUP-H) (IMMEDIATE-DEPENDENTS0 SET-SET-CVZNX2 . MISC-GROUP-H) (IMMEDIATE-DEPENDENTS0 SET-V . MISC-GROUP-H) (IMMEDIATE-DEPENDENTS0 DIVU-OVERFLOW . MISC-GROUP-H) (IMMEDIATE-DEPENDENTS0 UINT-RANGEP . MISC-GROUP-H) (IMMEDIATE-DEPENDENTS0 EXP . MISC-GROUP-H) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . MISC-GROUP-H) (IMMEDIATE-DEPENDENTS0 QUOTIENT-TIMES-LESSP . MISC-GROUP-H) (IMMEDIATE-DEPENDENTS0 DIVU_L . MISC-GROUP-H) (IMMEDIATE-DEPENDENTS0 DIVS-CVZNX . MISC-GROUP-H) (IMMEDIATE-DEPENDENTS0 DIVS_3232-OVERFLOW . MISC-GROUP-H) (IMMEDIATE-DEPENDENTS0 DIVSL_L . MISC-GROUP-H) (IMMEDIATE-DEPENDENTS0 DIVS-OVERFLOW . MISC-GROUP-H) (IMMEDIATE-DEPENDENTS0 DIVS_L . MISC-GROUP-H) (IMMEDIATE-DEPENDENTS0 MUL_L-INS . MISC-GROUP-H) (IMMEDIATE-DEPENDENTS0 DL . MISC-GROUP-H) (IMMEDIATE-DEPENDENTS0 WRITE-DN . MISC-GROUP-H) (IMMEDIATE-DEPENDENTS0 MULU-CVZNX . MISC-GROUP-H) (IMMEDIATE-DEPENDENTS0 MULU_L_DL . MISC-GROUP-H) (IMMEDIATE-DEPENDENTS0 DH . MISC-GROUP-H) (IMMEDIATE-DEPENDENTS0 MULU_L_DLDH . MISC-GROUP-H) (IMMEDIATE-DEPENDENTS0 MULS-CVZNX . MISC-GROUP-H) (IMMEDIATE-DEPENDENTS0 MULS_L_DL . MISC-GROUP-H) (IMMEDIATE-DEPENDENTS0 MULS_L_DLDH . MISC-GROUP-H) (IMMEDIATE-DEPENDENTS0 MUL-DIV_L-INS . MISC-GROUP-H) (IMMEDIATE-DEPENDENTS0 READ-SIGNAL . MISC-GROUP-H) (IMMEDIATE-DEPENDENTS0 READMP . MISC-GROUP-H) (IMMEDIATE-DEPENDENTS0 POSTINC-MODEP . MISC-GROUP-H) (IMMEDIATE-DEPENDENTS0 MOVEM-EA-RN-INS . MISC-GROUP-H) (IMMEDIATE-DEPENDENTS0 TST-SUBGROUP . MISC-GROUP-H) (IMMEDIATE-DEPENDENTS0 TAS-EFFECT . MISC-GROUP-H) (IMMEDIATE-DEPENDENTS0 MOVE-CVZNX . MISC-GROUP-H) (IMMEDIATE-DEPENDENTS0 TAS-INS . MISC-GROUP-H) (IMMEDIATE-DEPENDENTS0 TST-INS . MISC-GROUP-H) (IMMEDIATE-DEPENDENTS0 EXT-SUBGROUP . MISC-GROUP-H) (IMMEDIATE-DEPENDENTS0 EXT-EFFECT . MISC-GROUP-H) (IMMEDIATE-DEPENDENTS0 EXT-CVZNX . MISC-GROUP-H) (IMMEDIATE-DEPENDENTS0 EXT-INS . MISC-GROUP-H) (IMMEDIATE-DEPENDENTS0 WSZ . MISC-GROUP-H) (IMMEDIATE-DEPENDENTS0 PC-WORD-READP . MISC-GROUP-H) (IMMEDIATE-DEPENDENTS0 PC-WORD-READ . MISC-GROUP-H) (IMMEDIATE-DEPENDENTS0 WRITE-WRITE-RN . MISC-GROUP-H) (IMMEDIATE-DEPENDENTS0 WRITEMP . MISC-GROUP-H) (IMMEDIATE-DEPENDENTS0 MOVEM-PREDEC . MISC-GROUP-H) (IMMEDIATE-DEPENDENTS0 OP-SZ . MISC-GROUP-H) (IMMEDIATE-DEPENDENTS0 PRE-EFFECT . MISC-GROUP-H) (IMMEDIATE-DEPENDENTS0 PREDEC-MODEP . MISC-GROUP-H) (IMMEDIATE-DEPENDENTS0 MOVEM-RN-EA-INS . MISC-GROUP-H) (IMMEDIATE-DEPENDENTS0 PEA-SUBGROUP . MISC-GROUP-H) (IMMEDIATE-DEPENDENTS0 LESSP-OF-1 . MISC-GROUP-H) (IMMEDIATE-DEPENDENTS0 SUB1-OF-1 . MISC-GROUP-H) (IMMEDIATE-DEPENDENTS0 D-MAPPING . MISC-GROUP-H) (IMMEDIATE-DEPENDENTS0 SWAP-EFFECT . MISC-GROUP-H) (IMMEDIATE-DEPENDENTS0 HEAD-READ-RN . MISC-GROUP-H) (IMMEDIATE-DEPENDENTS0 SWAP-CVZNX . MISC-GROUP-H) (IMMEDIATE-DEPENDENTS0 READ-DN . MISC-GROUP-H) (IMMEDIATE-DEPENDENTS0 SWAP-INS . MISC-GROUP-H) (IMMEDIATE-DEPENDENTS0 PUSH-SP . MISC-GROUP-H) (IMMEDIATE-DEPENDENTS0 EFFEC-ADDR-MEM . MISC-GROUP-H) (IMMEDIATE-DEPENDENTS0 MC-PC-RANGEP . MISC-GROUP-H) (IMMEDIATE-DEPENDENTS0 PEA-INS . MISC-GROUP-H) (IMMEDIATE-DEPENDENTS0 LINK_L-INS . MISC-GROUP-H) (IMMEDIATE-DEPENDENTS0 LSZ . MISC-GROUP-H) (IMMEDIATE-DEPENDENTS0 PC-LONG-READP . MISC-GROUP-H) (IMMEDIATE-DEPENDENTS0 PC-LONG-READ . MISC-GROUP-H) (IMMEDIATE-DEPENDENTS0 L . MISC-GROUP-H) (IMMEDIATE-DEPENDENTS0 UPDATE-PC . MISC-GROUP-H) (IMMEDIATE-DEPENDENTS0 WRITE-SIGNAL . MISC-GROUP-H) (IMMEDIATE-DEPENDENTS0 UPDATE-MEM . MISC-GROUP-H) (IMMEDIATE-DEPENDENTS0 WRITE-SP . MISC-GROUP-H) (IMMEDIATE-DEPENDENTS0 WRITE-AN . MISC-GROUP-H) (IMMEDIATE-DEPENDENTS0 MC-CCR-REWRITE . MISC-GROUP-H) (IMMEDIATE-DEPENDENTS0 MC-CCR-RANGEP . MISC-GROUP-H) (IMMEDIATE-DEPENDENTS0 MC-PC-REWRITE . MISC-GROUP-H) (IMMEDIATE-DEPENDENTS0 ADD-NAT-RANGEP . MISC-GROUP-H) (IMMEDIATE-DEPENDENTS0 MC-STATUS-REWRITE . MISC-GROUP-H) (IMMEDIATE-DEPENDENTS0 UPDATE-RFILE . MISC-GROUP-H) (IMMEDIATE-DEPENDENTS0 ADD-ASSOCIATIVITY . MISC-GROUP-H) (IMMEDIATE-DEPENDENTS0 MC-MEM-REWRITE . MISC-GROUP-H) (IMMEDIATE-DEPENDENTS0 NEG . MISC-GROUP-H) (IMMEDIATE-DEPENDENTS0 READ-SP . MISC-GROUP-H) (IMMEDIATE-DEPENDENTS0 SP . MISC-GROUP-H) (IMMEDIATE-DEPENDENTS0 MC-RFILE-REWRITE . MISC-GROUP-H) (IMMEDIATE-DEPENDENTS0 READ-AN . MISC-GROUP-H) (IMMEDIATE-DEPENDENTS0 LINK-MAPPING . MISC-GROUP-H) (IMMEDIATE-DEPENDENTS0 PC-SIGNAL . MISC-GROUP-H) (IMMEDIATE-DEPENDENTS0 B1P . MISC-GROUP-H) (IMMEDIATE-DEPENDENTS0 NOT-SUBGROUP . MISC-GROUP-H) (IMMEDIATE-DEPENDENTS0 NOT-EFFECT . MISC-GROUP-H) (IMMEDIATE-DEPENDENTS0 NOT-CVZNX . MISC-GROUP-H) (IMMEDIATE-DEPENDENTS0 NOT-INS . MISC-GROUP-H) (IMMEDIATE-DEPENDENTS0 NEG-SUBGROUP . MISC-GROUP-H) (IMMEDIATE-DEPENDENTS0 UPDATE-CCR . MISC-GROUP-H) (IMMEDIATE-DEPENDENTS0 MC-INSTATE-MEM . MISC-GROUP-H) (IMMEDIATE-DEPENDENTS0 B . MISC-GROUP-H) (IMMEDIATE-DEPENDENTS0 MOVE-TO-CCR-INS . MISC-GROUP-H) (IMMEDIATE-DEPENDENTS0 SUB-EFFECT . MISC-GROUP-H) (IMMEDIATE-DEPENDENTS0 NEG-NAT-RANGEP . MISC-GROUP-H) (IMMEDIATE-DEPENDENTS0 HEAD-LEMMA . MISC-GROUP-H) (IMMEDIATE-DEPENDENTS0 ADD-0 . MISC-GROUP-H) (IMMEDIATE-DEPENDENTS0 SUB-NEG . MISC-GROUP-H) (IMMEDIATE-DEPENDENTS0 SUB-CVZNX . MISC-GROUP-H) (IMMEDIATE-DEPENDENTS0 NEG-INS . MISC-GROUP-H) (IMMEDIATE-DEPENDENTS0 CLR-SUBGROUP . MISC-GROUP-H) (IMMEDIATE-DEPENDENTS0 MOVE-FROM-CCR-EFFECT . MISC-GROUP-H) (IMMEDIATE-DEPENDENTS0 W . MISC-GROUP-H) (IMMEDIATE-DEPENDENTS0 MOVE-FROM-CCR-INS . MISC-GROUP-H) (IMMEDIATE-DEPENDENTS0 CLR-EFFECT . MISC-GROUP-H) (IMMEDIATE-DEPENDENTS0 B1 . MISC-GROUP-H) (IMMEDIATE-DEPENDENTS0 CLR-CVZNX . MISC-GROUP-H) (IMMEDIATE-DEPENDENTS0 S_RN . MISC-GROUP-H) (IMMEDIATE-DEPENDENTS0 S_MODE . MISC-GROUP-H) (IMMEDIATE-DEPENDENTS0 CLR-INS . MISC-GROUP-H) (IMMEDIATE-DEPENDENTS0 NEGX-SUBGROUP . MISC-GROUP-H) (IMMEDIATE-DEPENDENTS0 Q . MISC-GROUP-H) (IMMEDIATE-DEPENDENTS0 HALT . MISC-GROUP-H) (IMMEDIATE-DEPENDENTS0 MODE-SIGNAL . MISC-GROUP-H) (IMMEDIATE-DEPENDENTS0 SUBX-EFFECT . MISC-GROUP-H) (IMMEDIATE-DEPENDENTS0 SUBX-CVZNX . MISC-GROUP-H) (IMMEDIATE-DEPENDENTS0 MC-HALTP . MISC-GROUP-H) (IMMEDIATE-DEPENDENTS0 NEGX-INS . MISC-GROUP-H) (IMMEDIATE-DEPENDENTS0 B0P . MISC-GROUP-H) (IMMEDIATE-DEPENDENTS0 B0 . MISC-GROUP-H) (IMMEDIATE-DEPENDENTS0 MODE-GUARDS . MISC-GROUP-H) (IMMEDIATE-DEPENDENTS0 MISC-GROUP . MISC-GROUP-H) (IMMEDIATE-DEPENDENTS0 MC-MEM . MISC-GROUP-H) (LEMMAS H . MISC-GROUP-H))))) (PUT1-LST (QUOTE MOVEM-PRE-RNLST-LEN) (QUOTE (IDATE 1000402215057 IMMEDIATE-DEPENDENTS0 (MISC-GROUP-H) EVENT (PROVE-LEMMA MOVEM-PRE-RNLST-LEN (REWRITE) (EQUAL (LEN (MOVEM-PRE-RNLST MASK I LST)) (PLUS (MOVEM-LEN MASK) (LEN LST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BCAR . MOVEM-PRE-RNLST-LEN) (IMMEDIATE-DEPENDENTS0 B0 . MOVEM-PRE-RNLST-LEN) (IMMEDIATE-DEPENDENTS0 B0P . MOVEM-PRE-RNLST-LEN) (IMMEDIATE-DEPENDENTS0 BCDR . MOVEM-PRE-RNLST-LEN) (IMMEDIATE-DEPENDENTS0 TIMES-LESSP . MOVEM-PRE-RNLST-LEN) (IMMEDIATE-DEPENDENTS0 QUOTIENT-TIMES-LESSP . MOVEM-PRE-RNLST-LEN) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . MOVEM-PRE-RNLST-LEN) (IMMEDIATE-DEPENDENTS0 MOVEM-LEN . MOVEM-PRE-RNLST-LEN) (IMMEDIATE-DEPENDENTS0 MOVEM-PRE-RNLST . MOVEM-PRE-RNLST-LEN) (IMMEDIATE-DEPENDENTS0 LEN . MOVEM-PRE-RNLST-LEN) (LEMMAS LEN . MOVEM-PRE-RNLST-LEN))))) (PUT1-LST (QUOTE MOVEM-RNLST-LEN) (QUOTE (IDATE 1000402215057 IMMEDIATE-DEPENDENTS0 (MISC-GROUP-H) EVENT (PROVE-LEMMA MOVEM-RNLST-LEN (REWRITE) (EQUAL (LEN (MOVEM-RNLST MASK I)) (MOVEM-LEN MASK))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BCAR . MOVEM-RNLST-LEN) (IMMEDIATE-DEPENDENTS0 B0 . MOVEM-RNLST-LEN) (IMMEDIATE-DEPENDENTS0 B0P . MOVEM-RNLST-LEN) (IMMEDIATE-DEPENDENTS0 BCDR . MOVEM-RNLST-LEN) (IMMEDIATE-DEPENDENTS0 TIMES-LESSP . MOVEM-RNLST-LEN) (IMMEDIATE-DEPENDENTS0 QUOTIENT-TIMES-LESSP . MOVEM-RNLST-LEN) (IMMEDIATE-DEPENDENTS0 MOVEM-LEN . MOVEM-RNLST-LEN) (IMMEDIATE-DEPENDENTS0 MOVEM-RNLST . MOVEM-RNLST-LEN) (IMMEDIATE-DEPENDENTS0 LEN . MOVEM-RNLST-LEN) (LEMMAS LEN . MOVEM-RNLST-LEN))))) (PUT1-LST (QUOTE WRITEM-MEM-H) (QUOTE (IDATE 1000402215057 IMMEDIATE-DEPENDENTS0 (MISC-GROUP-H) EVENT (PROVE-LEMMA WRITEM-MEM-H (REWRITE) (IMPLIES (AND (P X MEM K) (WRITE-MEMP ADDR MEM (TIMES OPSZ (LEN VLST)))) (EQUAL (H X (WRITEM-MEM OPSZ VLST ADDR MEM) K) (H X MEM K))) ((INDUCT (WRITEM-MEM OPSZ VLST ADDR MEM)) (ENABLE WRITE-MEMP-LA2 WRITE-MEMP-LA3))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-ZERO . WRITEM-MEM-H) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . WRITEM-MEM-H) (IMMEDIATE-DEPENDENTS0 WRITE-MEMP-LA3 . WRITEM-MEM-H) (IMMEDIATE-DEPENDENTS0 WRITE-MEMP-LA2 . WRITEM-MEM-H) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-LESSP-TIMES . WRITEM-MEM-H) (IMMEDIATE-DEPENDENTS0 TIMES-ADD1 . WRITEM-MEM-H) (IMMEDIATE-DEPENDENTS0 WRITE-MEM-MAINTAIN-WRITE-MEMP . WRITEM-MEM-H) (IMMEDIATE-DEPENDENTS0 L . WRITEM-MEM-H) (IMMEDIATE-DEPENDENTS0 H-INVARIANT . WRITEM-MEM-H) (IMMEDIATE-DEPENDENTS0 WRITEM-MEM . WRITEM-MEM-H) (IMMEDIATE-DEPENDENTS0 LEN . WRITEM-MEM-H) (IMMEDIATE-DEPENDENTS0 WRITE-MEMP . WRITEM-MEM-H) (LEMMAS H . WRITEM-MEM-H))))) (PUT1-LST (QUOTE S&R-GROUP-H) (QUOTE (IDATE 1000402215057 IMMEDIATE-DEPENDENTS0 (STEPI-H) EVENT (PROVE-LEMMA S&R-GROUP-H (REWRITE) (IMPLIES (P X (MC-MEM S) K) (EQUAL (H X (MC-MEM (S&R-GROUP INS S)) K) (H X (MC-MEM S) K))) ((DISABLE OPERAND MC-INSTATE MAPPING OP-LEN BITS SR-CNT) (DISABLE-THEORY MODE-GUARDS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MAPPING-H . S&R-GROUP-H) (IMMEDIATE-DEPENDENTS0 MC-INSTATE-MEM . S&R-GROUP-H) (IMMEDIATE-DEPENDENTS0 ASL-0 . S&R-GROUP-H) (IMMEDIATE-DEPENDENTS0 READ-RN-NAT-RANGEP . S&R-GROUP-H) (IMMEDIATE-DEPENDENTS0 ASR-0 . S&R-GROUP-H) (IMMEDIATE-DEPENDENTS0 LSL-0 . S&R-GROUP-H) (IMMEDIATE-DEPENDENTS0 LSL-C-0 . S&R-GROUP-H) (IMMEDIATE-DEPENDENTS0 LSR-0 . S&R-GROUP-H) (IMMEDIATE-DEPENDENTS0 LSR-C-0 . S&R-GROUP-H) (IMMEDIATE-DEPENDENTS0 HEAD-OF-0 . S&R-GROUP-H) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . S&R-GROUP-H) (IMMEDIATE-DEPENDENTS0 HEAD-HEAD . S&R-GROUP-H) (IMMEDIATE-DEPENDENTS0 REMAINDER-LESSP-LINEAR . S&R-GROUP-H) (IMMEDIATE-DEPENDENTS0 REMAINDER-0 . S&R-GROUP-H) (IMMEDIATE-DEPENDENTS0 MC-MEM-REWRITE . S&R-GROUP-H) (IMMEDIATE-DEPENDENTS0 BITN-0-1 . S&R-GROUP-H) (IMMEDIATE-DEPENDENTS0 APP-0 . S&R-GROUP-H) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . S&R-GROUP-H) (IMMEDIATE-DEPENDENTS0 TAIL-OF-0 . S&R-GROUP-H) (IMMEDIATE-DEPENDENTS0 REGISTER-SHIFT-ROTATE . S&R-GROUP-H) (IMMEDIATE-DEPENDENTS0 D-MAPPING . S&R-GROUP-H) (IMMEDIATE-DEPENDENTS0 READ-DN . S&R-GROUP-H) (IMMEDIATE-DEPENDENTS0 S_RN . S&R-GROUP-H) (IMMEDIATE-DEPENDENTS0 REGISTER-ASR-INS . S&R-GROUP-H) (IMMEDIATE-DEPENDENTS0 REGISTER-ASL-INS . S&R-GROUP-H) (IMMEDIATE-DEPENDENTS0 REGISTER-LSR-INS . S&R-GROUP-H) (IMMEDIATE-DEPENDENTS0 REGISTER-LSL-INS . S&R-GROUP-H) (IMMEDIATE-DEPENDENTS0 REGISTER-ROXR-INS . S&R-GROUP-H) (IMMEDIATE-DEPENDENTS0 REGISTER-ROXL-INS . S&R-GROUP-H) (IMMEDIATE-DEPENDENTS0 REGISTER-ROR-INS . S&R-GROUP-H) (IMMEDIATE-DEPENDENTS0 HEAD-READ-RN . S&R-GROUP-H) (IMMEDIATE-DEPENDENTS0 REGISTER-ROL-INS . S&R-GROUP-H) (IMMEDIATE-DEPENDENTS0 BF-SUBGROUP . S&R-GROUP-H) (IMMEDIATE-DEPENDENTS0 MEMORY-SHIFT-ROTATE . S&R-GROUP-H) (IMMEDIATE-DEPENDENTS0 HALT . S&R-GROUP-H) (IMMEDIATE-DEPENDENTS0 MODE-SIGNAL . S&R-GROUP-H) (IMMEDIATE-DEPENDENTS0 MEM-ASR-EFFECT . S&R-GROUP-H) (IMMEDIATE-DEPENDENTS0 ASR-CVZNX . S&R-GROUP-H) (IMMEDIATE-DEPENDENTS0 ASR-X . S&R-GROUP-H) (IMMEDIATE-DEPENDENTS0 ASR-EFFECT . S&R-GROUP-H) (IMMEDIATE-DEPENDENTS0 MC-HALTP . S&R-GROUP-H) (IMMEDIATE-DEPENDENTS0 W . S&R-GROUP-H) (IMMEDIATE-DEPENDENTS0 MEM-ASR-INS . S&R-GROUP-H) (IMMEDIATE-DEPENDENTS0 MEM-ASL-EFFECT . S&R-GROUP-H) (IMMEDIATE-DEPENDENTS0 ASL-CVZNX . S&R-GROUP-H) (IMMEDIATE-DEPENDENTS0 ASL-X . S&R-GROUP-H) (IMMEDIATE-DEPENDENTS0 ASL-EFFECT . S&R-GROUP-H) (IMMEDIATE-DEPENDENTS0 MEM-ASL-INS . S&R-GROUP-H) (IMMEDIATE-DEPENDENTS0 MEM-LSR-EFFECT . S&R-GROUP-H) (IMMEDIATE-DEPENDENTS0 LSR-CVZNX . S&R-GROUP-H) (IMMEDIATE-DEPENDENTS0 LSR-X . S&R-GROUP-H) (IMMEDIATE-DEPENDENTS0 LSR-EFFECT . S&R-GROUP-H) (IMMEDIATE-DEPENDENTS0 MEM-LSR-INS . S&R-GROUP-H) (IMMEDIATE-DEPENDENTS0 MEM-LSL-EFFECT . S&R-GROUP-H) (IMMEDIATE-DEPENDENTS0 LSL-CVZNX . S&R-GROUP-H) (IMMEDIATE-DEPENDENTS0 LSL-X . S&R-GROUP-H) (IMMEDIATE-DEPENDENTS0 LSL-EFFECT . S&R-GROUP-H) (IMMEDIATE-DEPENDENTS0 MEM-LSL-INS . S&R-GROUP-H) (IMMEDIATE-DEPENDENTS0 MEM-ROXR-EFFECT . S&R-GROUP-H) (IMMEDIATE-DEPENDENTS0 ROXR-CVZNX . S&R-GROUP-H) (IMMEDIATE-DEPENDENTS0 ROXR . S&R-GROUP-H) (IMMEDIATE-DEPENDENTS0 EXP . S&R-GROUP-H) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . S&R-GROUP-H) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . S&R-GROUP-H) (IMMEDIATE-DEPENDENTS0 ROR . S&R-GROUP-H) (IMMEDIATE-DEPENDENTS0 HEAD-APP . S&R-GROUP-H) (IMMEDIATE-DEPENDENTS0 ROXR-EFFECT . S&R-GROUP-H) (IMMEDIATE-DEPENDENTS0 MEM-ROXR-INS . S&R-GROUP-H) (IMMEDIATE-DEPENDENTS0 MEM-ROXL-EFFECT . S&R-GROUP-H) (IMMEDIATE-DEPENDENTS0 ROXL-CVZNX . S&R-GROUP-H) (IMMEDIATE-DEPENDENTS0 ROXL . S&R-GROUP-H) (IMMEDIATE-DEPENDENTS0 ROL . S&R-GROUP-H) (IMMEDIATE-DEPENDENTS0 ROXL-EFFECT . S&R-GROUP-H) (IMMEDIATE-DEPENDENTS0 MEM-ROXL-INS . S&R-GROUP-H) (IMMEDIATE-DEPENDENTS0 MEM-ROR-EFFECT . S&R-GROUP-H) (IMMEDIATE-DEPENDENTS0 ROR-CVZNX . S&R-GROUP-H) (IMMEDIATE-DEPENDENTS0 ROR-EFFECT . S&R-GROUP-H) (IMMEDIATE-DEPENDENTS0 MEM-ROR-INS . S&R-GROUP-H) (IMMEDIATE-DEPENDENTS0 MEM-ROL-EFFECT . S&R-GROUP-H) (IMMEDIATE-DEPENDENTS0 ROL-CVZNX . S&R-GROUP-H) (IMMEDIATE-DEPENDENTS0 ROL-EFFECT . S&R-GROUP-H) (IMMEDIATE-DEPENDENTS0 MEM-ROL-INS . S&R-GROUP-H) (IMMEDIATE-DEPENDENTS0 B0P . S&R-GROUP-H) (IMMEDIATE-DEPENDENTS0 B0 . S&R-GROUP-H) (IMMEDIATE-DEPENDENTS0 Q . S&R-GROUP-H) (IMMEDIATE-DEPENDENTS0 MODE-GUARDS . S&R-GROUP-H) (IMMEDIATE-DEPENDENTS0 S&R-GROUP . S&R-GROUP-H) (IMMEDIATE-DEPENDENTS0 H-INVARIANT . S&R-GROUP-H) (IMMEDIATE-DEPENDENTS0 MC-MEM . S&R-GROUP-H) (LEMMAS H . S&R-GROUP-H))))) (PUT1-LST (QUOTE MOVE-GROUP-H) (QUOTE (IDATE 1000402215055 IMMEDIATE-DEPENDENTS0 (STEPI-H) EVENT (PROVE-LEMMA MOVE-GROUP-H (REWRITE) (IMPLIES (P X (MC-MEM S) K) (EQUAL (H X (MC-MEM (MOVE-GROUP OPLEN INS S)) K) (H X (MC-MEM S) K))) ((DISABLE OPERAND MAPPING MC-INSTATE MOVE-INS) (DISABLE-THEORY MODE-GUARDS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MC-MEM-REWRITE . MOVE-GROUP-H) (IMMEDIATE-DEPENDENTS0 MOVE-H . MOVE-GROUP-H) (IMMEDIATE-DEPENDENTS0 MOVEA-INS . MOVE-GROUP-H) (IMMEDIATE-DEPENDENTS0 MC-HALTP . MOVE-GROUP-H) (IMMEDIATE-DEPENDENTS0 L . MOVE-GROUP-H) (IMMEDIATE-DEPENDENTS0 D_RN . MOVE-GROUP-H) (IMMEDIATE-DEPENDENTS0 UPDATE-RFILE . MOVE-GROUP-H) (IMMEDIATE-DEPENDENTS0 MC-INSTATE-MEM . MOVE-GROUP-H) (IMMEDIATE-DEPENDENTS0 WRITE-AN . MOVE-GROUP-H) (IMMEDIATE-DEPENDENTS0 MODE-SIGNAL . MOVE-GROUP-H) (IMMEDIATE-DEPENDENTS0 HALT . MOVE-GROUP-H) (IMMEDIATE-DEPENDENTS0 D_MODE . MOVE-GROUP-H) (IMMEDIATE-DEPENDENTS0 BITS . MOVE-GROUP-H) (IMMEDIATE-DEPENDENTS0 MODE-GUARDS . MOVE-GROUP-H) (IMMEDIATE-DEPENDENTS0 MOVE-GROUP . MOVE-GROUP-H) (IMMEDIATE-DEPENDENTS0 H-INVARIANT . MOVE-GROUP-H) (IMMEDIATE-DEPENDENTS0 MC-MEM . MOVE-GROUP-H) (LEMMAS H . MOVE-GROUP-H))))) (PUT1-LST (QUOTE MOVE-H) (QUOTE (IDATE 1000402215055 IMMEDIATE-DEPENDENTS0 (STEPI-H MOVE-GROUP-H) EVENT (PROVE-LEMMA MOVE-H (REWRITE) (IMPLIES (P X (MC-MEM S) K) (EQUAL (H X (MC-MEM (MOVE-INS OPLEN INS S)) K) (H X (MC-MEM S) K))) ((DISABLE OPERAND MAPPING EFFEC-ADDR MC-INSTATE) (DISABLE-THEORY MODE-GUARDS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MAPPING-H . MOVE-H) (IMMEDIATE-DEPENDENTS0 MC-INSTATE-MEM . MOVE-H) (IMMEDIATE-DEPENDENTS0 EFFEC-ADDR-MEM . MOVE-H) (IMMEDIATE-DEPENDENTS0 MC-MEM-REWRITE . MOVE-H) (IMMEDIATE-DEPENDENTS0 HALT . MOVE-H) (IMMEDIATE-DEPENDENTS0 MODE-SIGNAL . MOVE-H) (IMMEDIATE-DEPENDENTS0 MOVE-MAPPING . MOVE-H) (IMMEDIATE-DEPENDENTS0 BITS . MOVE-H) (IMMEDIATE-DEPENDENTS0 D_MODE . MOVE-H) (IMMEDIATE-DEPENDENTS0 D_RN . MOVE-H) (IMMEDIATE-DEPENDENTS0 MOVE-CVZNX . MOVE-H) (IMMEDIATE-DEPENDENTS0 B0 . MOVE-H) (IMMEDIATE-DEPENDENTS0 MOVE-EFFECT . MOVE-H) (IMMEDIATE-DEPENDENTS0 MC-HALTP . MOVE-H) (IMMEDIATE-DEPENDENTS0 MODE-GUARDS . MOVE-H) (IMMEDIATE-DEPENDENTS0 MOVE-INS . MOVE-H) (IMMEDIATE-DEPENDENTS0 H-INVARIANT . MOVE-H) (IMMEDIATE-DEPENDENTS0 MC-MEM . MOVE-H) (LEMMAS H . MOVE-H))))) (PUT1-LST (QUOTE BIT-GROUP-H) (QUOTE (IDATE 1000402215055 IMMEDIATE-DEPENDENTS0 (STEPI-H) EVENT (PROVE-LEMMA BIT-GROUP-H (REWRITE) (IMPLIES (P X (MC-MEM S) K) (EQUAL (H X (MC-MEM (BIT-GROUP INS S)) K) (H X (MC-MEM S) K))) ((DISABLE OPERAND MC-INSTATE MAPPING IMMEDIATE OP-LEN BITS) (DISABLE-THEORY MODE-GUARDS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BCHG-EFFECT . BIT-GROUP-H) (IMMEDIATE-DEPENDENTS0 BSET-EFFECT . BIT-GROUP-H) (IMMEDIATE-DEPENDENTS0 BCLR-EFFECT . BIT-GROUP-H) (IMMEDIATE-DEPENDENTS0 MAPPING-H . BIT-GROUP-H) (IMMEDIATE-DEPENDENTS0 MOVEP-WRITE-H . BIT-GROUP-H) (IMMEDIATE-DEPENDENTS0 WRITE-SIGNAL . BIT-GROUP-H) (IMMEDIATE-DEPENDENTS0 UPDATE-MEM . BIT-GROUP-H) (IMMEDIATE-DEPENDENTS0 MOVEP-TO-MEM . BIT-GROUP-H) (IMMEDIATE-DEPENDENTS0 READ-SIGNAL . BIT-GROUP-H) (IMMEDIATE-DEPENDENTS0 WRITE-DN . BIT-GROUP-H) (IMMEDIATE-DEPENDENTS0 UPDATE-RFILE . BIT-GROUP-H) (IMMEDIATE-DEPENDENTS0 OP-SZ . BIT-GROUP-H) (IMMEDIATE-DEPENDENTS0 MOVEP-TO-REG . BIT-GROUP-H) (IMMEDIATE-DEPENDENTS0 ADD-ASSOCIATIVITY . BIT-GROUP-H) (IMMEDIATE-DEPENDENTS0 MOVEP-ADDR . BIT-GROUP-H) (IMMEDIATE-DEPENDENTS0 BITN-0-1 . BIT-GROUP-H) (IMMEDIATE-DEPENDENTS0 D-BIT-SUBGROUP . BIT-GROUP-H) (IMMEDIATE-DEPENDENTS0 OPMODE-FIELD . BIT-GROUP-H) (IMMEDIATE-DEPENDENTS0 ADDR-DISP . BIT-GROUP-H) (IMMEDIATE-DEPENDENTS0 READ-AN . BIT-GROUP-H) (IMMEDIATE-DEPENDENTS0 PC-WORD-READ . BIT-GROUP-H) (IMMEDIATE-DEPENDENTS0 S_RN . BIT-GROUP-H) (IMMEDIATE-DEPENDENTS0 MOVEP-INS . BIT-GROUP-H) (IMMEDIATE-DEPENDENTS0 D_RN . BIT-GROUP-H) (IMMEDIATE-DEPENDENTS0 HEAD-READ-RN . BIT-GROUP-H) (IMMEDIATE-DEPENDENTS0 CMPI-SUBGROUP . BIT-GROUP-H) (IMMEDIATE-DEPENDENTS0 CMPI-MAPPING . BIT-GROUP-H) (IMMEDIATE-DEPENDENTS0 CMP-CVZNX . BIT-GROUP-H) (IMMEDIATE-DEPENDENTS0 IMMEDIATE-MEM . BIT-GROUP-H) (IMMEDIATE-DEPENDENTS0 CMPI-INS . BIT-GROUP-H) (IMMEDIATE-DEPENDENTS0 EORI-SUBGROUP . BIT-GROUP-H) (IMMEDIATE-DEPENDENTS0 LOGEOR-COMMUTATIVITY . BIT-GROUP-H) (IMMEDIATE-DEPENDENTS0 EORI-TO-CCR-INS . BIT-GROUP-H) (IMMEDIATE-DEPENDENTS0 EOR-MAPPING . BIT-GROUP-H) (IMMEDIATE-DEPENDENTS0 EOR-CVZNX . BIT-GROUP-H) (IMMEDIATE-DEPENDENTS0 EOR-EFFECT . BIT-GROUP-H) (IMMEDIATE-DEPENDENTS0 EORI-INS . BIT-GROUP-H) (IMMEDIATE-DEPENDENTS0 S-BIT-SUBGROUP . BIT-GROUP-H) (IMMEDIATE-DEPENDENTS0 BSET-INS . BIT-GROUP-H) (IMMEDIATE-DEPENDENTS0 BCLR-INS . BIT-GROUP-H) (IMMEDIATE-DEPENDENTS0 BCHG-INS . BIT-GROUP-H) (IMMEDIATE-DEPENDENTS0 BXXX-OPLEN . BIT-GROUP-H) (IMMEDIATE-DEPENDENTS0 BTST-INS . BIT-GROUP-H) (IMMEDIATE-DEPENDENTS0 S_MODE . BIT-GROUP-H) (IMMEDIATE-DEPENDENTS0 READ-DN . BIT-GROUP-H) (IMMEDIATE-DEPENDENTS0 DN-DIRECT-MODEP . BIT-GROUP-H) (IMMEDIATE-DEPENDENTS0 BXXX-OPD . BIT-GROUP-H) (IMMEDIATE-DEPENDENTS0 BXXX-NUM . BIT-GROUP-H) (IMMEDIATE-DEPENDENTS0 B1 . BIT-GROUP-H) (IMMEDIATE-DEPENDENTS0 B-NOT . BIT-GROUP-H) (IMMEDIATE-DEPENDENTS0 SET-Z . BIT-GROUP-H) (IMMEDIATE-DEPENDENTS0 MC-INSTATE-MEM . BIT-GROUP-H) (IMMEDIATE-DEPENDENTS0 SUB1-OF-1 . BIT-GROUP-H) (IMMEDIATE-DEPENDENTS0 LESSP-OF-1 . BIT-GROUP-H) (IMMEDIATE-DEPENDENTS0 BIT-INS . BIT-GROUP-H) (IMMEDIATE-DEPENDENTS0 ADDI-SUBGROUP . BIT-GROUP-H) (IMMEDIATE-DEPENDENTS0 ADD-MAPPING . BIT-GROUP-H) (IMMEDIATE-DEPENDENTS0 ADD-CVZNX . BIT-GROUP-H) (IMMEDIATE-DEPENDENTS0 ADD-EFFECT . BIT-GROUP-H) (IMMEDIATE-DEPENDENTS0 ADDI-INS . BIT-GROUP-H) (IMMEDIATE-DEPENDENTS0 SUBI-SUBGROUP . BIT-GROUP-H) (IMMEDIATE-DEPENDENTS0 SUB-MAPPING . BIT-GROUP-H) (IMMEDIATE-DEPENDENTS0 SUB-CVZNX . BIT-GROUP-H) (IMMEDIATE-DEPENDENTS0 SUB-NEG . BIT-GROUP-H) (IMMEDIATE-DEPENDENTS0 SUB-EFFECT . BIT-GROUP-H) (IMMEDIATE-DEPENDENTS0 SUBI-INS . BIT-GROUP-H) (IMMEDIATE-DEPENDENTS0 ANDI-SUBGROUP . BIT-GROUP-H) (IMMEDIATE-DEPENDENTS0 LOGAND-COMMUTATIVITY . BIT-GROUP-H) (IMMEDIATE-DEPENDENTS0 ANDI-TO-CCR-INS . BIT-GROUP-H) (IMMEDIATE-DEPENDENTS0 AND-MAPPING . BIT-GROUP-H) (IMMEDIATE-DEPENDENTS0 AND-CVZNX . BIT-GROUP-H) (IMMEDIATE-DEPENDENTS0 AND-EFFECT . BIT-GROUP-H) (IMMEDIATE-DEPENDENTS0 ANDI-INS . BIT-GROUP-H) (IMMEDIATE-DEPENDENTS0 ORI-SUBGROUP . BIT-GROUP-H) (IMMEDIATE-DEPENDENTS0 Q . BIT-GROUP-H) (IMMEDIATE-DEPENDENTS0 HALT . BIT-GROUP-H) (IMMEDIATE-DEPENDENTS0 B . BIT-GROUP-H) (IMMEDIATE-DEPENDENTS0 PC-SIGNAL . BIT-GROUP-H) (IMMEDIATE-DEPENDENTS0 RESERVED-SIGNAL . BIT-GROUP-H) (IMMEDIATE-DEPENDENTS0 UPDATE-CCR . BIT-GROUP-H) (IMMEDIATE-DEPENDENTS0 MC-STATUS-REWRITE . BIT-GROUP-H) (IMMEDIATE-DEPENDENTS0 MC-RFILE-REWRITE . BIT-GROUP-H) (IMMEDIATE-DEPENDENTS0 ADD-NAT-RANGEP . BIT-GROUP-H) (IMMEDIATE-DEPENDENTS0 MC-PC-REWRITE . BIT-GROUP-H) (IMMEDIATE-DEPENDENTS0 MC-CCR-RANGEP . BIT-GROUP-H) (IMMEDIATE-DEPENDENTS0 MC-CCR-REWRITE . BIT-GROUP-H) (IMMEDIATE-DEPENDENTS0 MC-MEM-REWRITE . BIT-GROUP-H) (IMMEDIATE-DEPENDENTS0 UPDATE-PC . BIT-GROUP-H) (IMMEDIATE-DEPENDENTS0 LOGOR-COMMUTATIVITY . BIT-GROUP-H) (IMMEDIATE-DEPENDENTS0 BSZ . BIT-GROUP-H) (IMMEDIATE-DEPENDENTS0 L . BIT-GROUP-H) (IMMEDIATE-DEPENDENTS0 PC-BYTE-READ=PC-READ-MEM-1 . BIT-GROUP-H) (IMMEDIATE-DEPENDENTS0 PC-WORD-READP . BIT-GROUP-H) (IMMEDIATE-DEPENDENTS0 WSZ . BIT-GROUP-H) (IMMEDIATE-DEPENDENTS0 ORI-TO-CCR-INS . BIT-GROUP-H) (IMMEDIATE-DEPENDENTS0 W . BIT-GROUP-H) (IMMEDIATE-DEPENDENTS0 MODE-SIGNAL . BIT-GROUP-H) (IMMEDIATE-DEPENDENTS0 OR-MAPPING . BIT-GROUP-H) (IMMEDIATE-DEPENDENTS0 OR-CVZNX . BIT-GROUP-H) (IMMEDIATE-DEPENDENTS0 OR-EFFECT . BIT-GROUP-H) (IMMEDIATE-DEPENDENTS0 MC-HALTP . BIT-GROUP-H) (IMMEDIATE-DEPENDENTS0 ORI-INS . BIT-GROUP-H) (IMMEDIATE-DEPENDENTS0 B0P . BIT-GROUP-H) (IMMEDIATE-DEPENDENTS0 B0 . BIT-GROUP-H) (IMMEDIATE-DEPENDENTS0 MODE-GUARDS . BIT-GROUP-H) (IMMEDIATE-DEPENDENTS0 BIT-GROUP . BIT-GROUP-H) (IMMEDIATE-DEPENDENTS0 H-INVARIANT . BIT-GROUP-H) (IMMEDIATE-DEPENDENTS0 MC-MEM . BIT-GROUP-H) (LEMMAS H . BIT-GROUP-H))))) (PUT1-LST (QUOTE MOVEP-WRITE-H) (QUOTE (IDATE 1000402215053 IMMEDIATE-DEPENDENTS0 (BIT-GROUP-H) EVENT (PROVE-LEMMA MOVEP-WRITE-H (REWRITE) (IMPLIES (AND (P X MEM K) (MOVEP-WRITEP ADDR MEM N)) (EQUAL (H X (MOVEP-WRITE VALUE ADDR MEM N) K) (H X MEM K))) ((INDUCT (MOVEP-WRITE VALUE ADDR MEM N)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BYTE-WRITEP=WRITE-MEMP-1 . MOVEP-WRITE-H) (IMMEDIATE-DEPENDENTS0 B . MOVEP-WRITE-H) (IMMEDIATE-DEPENDENTS0 WRITE-MEM-MAINTAIN-MOVEP-WRITEP . MOVEP-WRITE-H) (IMMEDIATE-DEPENDENTS0 H-INVARIANT . MOVEP-WRITE-H) (IMMEDIATE-DEPENDENTS0 BYTE-WRITE=WRITE-MEM-1 . MOVEP-WRITE-H) (IMMEDIATE-DEPENDENTS0 L . MOVEP-WRITE-H) (IMMEDIATE-DEPENDENTS0 MOVEP-WRITE . MOVEP-WRITE-H) (IMMEDIATE-DEPENDENTS0 MOVEP-WRITEP . MOVEP-WRITE-H) (LEMMAS H . MOVEP-WRITE-H))))) (PUT1-LST (QUOTE WRITE-MEM-MAINTAIN-MOVEP-WRITEP) (QUOTE (IDATE 1000402215053 IMMEDIATE-DEPENDENTS0 (MOVEP-WRITE-H) EVENT (PROVE-LEMMA WRITE-MEM-MAINTAIN-MOVEP-WRITEP (REWRITE) (EQUAL (MOVEP-WRITEP ADDR (WRITE-MEM VALUE X MEM M) N) (MOVEP-WRITEP ADDR MEM N)) ((INDUCT (MOVEP-WRITEP ADDR MEM N)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BYTE-WRITEP=WRITE-MEMP-1 . WRITE-MEM-MAINTAIN-MOVEP-WRITEP) (IMMEDIATE-DEPENDENTS0 WRITE-MEM-MAINTAIN-WRITE-MEMP . WRITE-MEM-MAINTAIN-MOVEP-WRITEP) (IMMEDIATE-DEPENDENTS0 L . WRITE-MEM-MAINTAIN-MOVEP-WRITEP) (IMMEDIATE-DEPENDENTS0 WRITE-MEM . WRITE-MEM-MAINTAIN-MOVEP-WRITEP) (IMMEDIATE-DEPENDENTS0 MOVEP-WRITEP . WRITE-MEM-MAINTAIN-MOVEP-WRITEP) (LEMMAS MOVEP-WRITEP . WRITE-MEM-MAINTAIN-MOVEP-WRITEP))))) (PUT1-LST (QUOTE BCC-GROUP-H) (QUOTE (IDATE 1000402215053 IMMEDIATE-DEPENDENTS0 (STEPI-H) EVENT (PROVE-LEMMA BCC-GROUP-H (REWRITE) (IMPLIES (P X (MC-MEM S) K) (EQUAL (H X (MC-MEM (BCC-GROUP DISP INS S)) K) (H X (MC-MEM S) K))) ((DISABLE OPERAND MC-INSTATE MAPPING BRANCH-CC BITS) (DISABLE-THEORY MODE-GUARDS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 H-INVARIANT . BCC-GROUP-H) (IMMEDIATE-DEPENDENTS0 B . BCC-GROUP-H) (IMMEDIATE-DEPENDENTS0 PC-LONG-READ . BCC-GROUP-H) (IMMEDIATE-DEPENDENTS0 PC-LONG-READP . BCC-GROUP-H) (IMMEDIATE-DEPENDENTS0 PC-SIGNAL . BCC-GROUP-H) (IMMEDIATE-DEPENDENTS0 BCC-RA-SR . BCC-GROUP-H) (IMMEDIATE-DEPENDENTS0 UPDATE-PC . BCC-GROUP-H) (IMMEDIATE-DEPENDENTS0 PUSH-SP . BCC-GROUP-H) (IMMEDIATE-DEPENDENTS0 READ-AN . BCC-GROUP-H) (IMMEDIATE-DEPENDENTS0 MC-RFILE-REWRITE . BCC-GROUP-H) (IMMEDIATE-DEPENDENTS0 SP . BCC-GROUP-H) (IMMEDIATE-DEPENDENTS0 READ-SP . BCC-GROUP-H) (IMMEDIATE-DEPENDENTS0 NEG . BCC-GROUP-H) (IMMEDIATE-DEPENDENTS0 SUB-NEG . BCC-GROUP-H) (IMMEDIATE-DEPENDENTS0 MC-MEM-REWRITE . BCC-GROUP-H) (IMMEDIATE-DEPENDENTS0 WRITE-AN . BCC-GROUP-H) (IMMEDIATE-DEPENDENTS0 MC-CCR-REWRITE . BCC-GROUP-H) (IMMEDIATE-DEPENDENTS0 MC-CCR-RANGEP . BCC-GROUP-H) (IMMEDIATE-DEPENDENTS0 MC-PC-REWRITE . BCC-GROUP-H) (IMMEDIATE-DEPENDENTS0 ADD-NAT-RANGEP . BCC-GROUP-H) (IMMEDIATE-DEPENDENTS0 MC-STATUS-REWRITE . BCC-GROUP-H) (IMMEDIATE-DEPENDENTS0 UPDATE-RFILE . BCC-GROUP-H) (IMMEDIATE-DEPENDENTS0 WRITE-SP . BCC-GROUP-H) (IMMEDIATE-DEPENDENTS0 UPDATE-MEM . BCC-GROUP-H) (IMMEDIATE-DEPENDENTS0 WRITE-SIGNAL . BCC-GROUP-H) (IMMEDIATE-DEPENDENTS0 HALT . BCC-GROUP-H) (IMMEDIATE-DEPENDENTS0 LSZ . BCC-GROUP-H) (IMMEDIATE-DEPENDENTS0 BSR-INS . BCC-GROUP-H) (IMMEDIATE-DEPENDENTS0 B0 . BCC-GROUP-H) (IMMEDIATE-DEPENDENTS0 B0P . BCC-GROUP-H) (IMMEDIATE-DEPENDENTS0 PC-WORD-READ . BCC-GROUP-H) (IMMEDIATE-DEPENDENTS0 W . BCC-GROUP-H) (IMMEDIATE-DEPENDENTS0 COND-FIELD . BCC-GROUP-H) (IMMEDIATE-DEPENDENTS0 L . BCC-GROUP-H) (IMMEDIATE-DEPENDENTS0 PC-WORD-READP . BCC-GROUP-H) (IMMEDIATE-DEPENDENTS0 WSZ . BCC-GROUP-H) (IMMEDIATE-DEPENDENTS0 MODE-GUARDS . BCC-GROUP-H) (IMMEDIATE-DEPENDENTS0 BCC-GROUP . BCC-GROUP-H) (IMMEDIATE-DEPENDENTS0 MC-MEM . BCC-GROUP-H) (LEMMAS H . BCC-GROUP-H))))) (PUT1-LST (QUOTE CMP-GROUP-H) (QUOTE (IDATE 1000402215053 IMMEDIATE-DEPENDENTS0 (STEPI-H) EVENT (PROVE-LEMMA CMP-GROUP-H (REWRITE) (IMPLIES (P X (MC-MEM S) K) (EQUAL (H X (MC-MEM (CMP-GROUP OPLEN INS S)) K) (H X (MC-MEM S) K))) ((DISABLE OPERAND MAPPING MC-INSTATE BITS POST-EFFECT) (DISABLE-THEORY MODE-GUARDS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 WRITE-WRITE-RN . CMP-GROUP-H) (IMMEDIATE-DEPENDENTS0 HEAD-READ-MEMP . CMP-GROUP-H) (IMMEDIATE-DEPENDENTS0 MAPPING-H . CMP-GROUP-H) (IMMEDIATE-DEPENDENTS0 BITN-0-1 . CMP-GROUP-H) (IMMEDIATE-DEPENDENTS0 EOR-INS . CMP-GROUP-H) (IMMEDIATE-DEPENDENTS0 EOR-EFFECT . CMP-GROUP-H) (IMMEDIATE-DEPENDENTS0 EOR-CVZNX . CMP-GROUP-H) (IMMEDIATE-DEPENDENTS0 EOR-MAPPING . CMP-GROUP-H) (IMMEDIATE-DEPENDENTS0 CMPM-INS . CMP-GROUP-H) (IMMEDIATE-DEPENDENTS0 S_RN . CMP-GROUP-H) (IMMEDIATE-DEPENDENTS0 WRITE-AN . CMP-GROUP-H) (IMMEDIATE-DEPENDENTS0 UPDATE-RFILE . CMP-GROUP-H) (IMMEDIATE-DEPENDENTS0 ADDR-POSTINC . CMP-GROUP-H) (IMMEDIATE-DEPENDENTS0 B . CMP-GROUP-H) (IMMEDIATE-DEPENDENTS0 OP-SZ . CMP-GROUP-H) (IMMEDIATE-DEPENDENTS0 READ-SIGNAL . CMP-GROUP-H) (IMMEDIATE-DEPENDENTS0 READ-WRITE-RN . CMP-GROUP-H) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-EQUAL-PLUS . CMP-GROUP-H) (IMMEDIATE-DEPENDENTS0 MC-RFILE-REWRITE . CMP-GROUP-H) (IMMEDIATE-DEPENDENTS0 MC-STATUS-REWRITE . CMP-GROUP-H) (IMMEDIATE-DEPENDENTS0 MC-PC-RANGEP . CMP-GROUP-H) (IMMEDIATE-DEPENDENTS0 MC-PC-REWRITE . CMP-GROUP-H) (IMMEDIATE-DEPENDENTS0 MC-CCR-RANGEP . CMP-GROUP-H) (IMMEDIATE-DEPENDENTS0 MC-CCR-REWRITE . CMP-GROUP-H) (IMMEDIATE-DEPENDENTS0 MC-MEM-REWRITE . CMP-GROUP-H) (IMMEDIATE-DEPENDENTS0 CMPM-MAPPING . CMP-GROUP-H) (IMMEDIATE-DEPENDENTS0 S_MODE . CMP-GROUP-H) (IMMEDIATE-DEPENDENTS0 EXT-LEMMA . CMP-GROUP-H) (IMMEDIATE-DEPENDENTS0 CMP-INS . CMP-GROUP-H) (IMMEDIATE-DEPENDENTS0 READ-DN . CMP-GROUP-H) (IMMEDIATE-DEPENDENTS0 CMPA-INS . CMP-GROUP-H) (IMMEDIATE-DEPENDENTS0 MC-HALTP . CMP-GROUP-H) (IMMEDIATE-DEPENDENTS0 L . CMP-GROUP-H) (IMMEDIATE-DEPENDENTS0 D_RN . CMP-GROUP-H) (IMMEDIATE-DEPENDENTS0 READ-AN . CMP-GROUP-H) (IMMEDIATE-DEPENDENTS0 CMP-CVZNX . CMP-GROUP-H) (IMMEDIATE-DEPENDENTS0 MC-INSTATE-MEM . CMP-GROUP-H) (IMMEDIATE-DEPENDENTS0 UPDATE-CCR . CMP-GROUP-H) (IMMEDIATE-DEPENDENTS0 MODE-SIGNAL . CMP-GROUP-H) (IMMEDIATE-DEPENDENTS0 HALT . CMP-GROUP-H) (IMMEDIATE-DEPENDENTS0 W . CMP-GROUP-H) (IMMEDIATE-DEPENDENTS0 Q . CMP-GROUP-H) (IMMEDIATE-DEPENDENTS0 B0P . CMP-GROUP-H) (IMMEDIATE-DEPENDENTS0 B0 . CMP-GROUP-H) (IMMEDIATE-DEPENDENTS0 MODE-GUARDS . CMP-GROUP-H) (IMMEDIATE-DEPENDENTS0 CMP-GROUP . CMP-GROUP-H) (IMMEDIATE-DEPENDENTS0 H-INVARIANT . CMP-GROUP-H) (IMMEDIATE-DEPENDENTS0 MC-MEM . CMP-GROUP-H) (LEMMAS H . CMP-GROUP-H))))) (PUT1-LST (QUOTE SCC-GROUP-H) (QUOTE (IDATE 1000402215053 IMMEDIATE-DEPENDENTS0 (STEPI-H) EVENT (PROVE-LEMMA SCC-GROUP-H (REWRITE) (IMPLIES (P X (MC-MEM S) K) (EQUAL (H X (MC-MEM (SCC-GROUP INS S)) K) (H X (MC-MEM S) K))) ((DISABLE OPERAND MAPPING MC-INSTATE BRANCH-CC BITS OP-LEN) (DISABLE-THEORY MODE-GUARDS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INT-RANGEP . SCC-GROUP-H) (IMMEDIATE-DEPENDENTS0 SUB-CVZNX . SCC-GROUP-H) (IMMEDIATE-DEPENDENTS0 SUB-EFFECT . SCC-GROUP-H) (IMMEDIATE-DEPENDENTS0 ADD-CVZNX . SCC-GROUP-H) (IMMEDIATE-DEPENDENTS0 ADD-EFFECT . SCC-GROUP-H) (IMMEDIATE-DEPENDENTS0 MAPPING-H . SCC-GROUP-H) (IMMEDIATE-DEPENDENTS0 MC-INSTATE-MEM . SCC-GROUP-H) (IMMEDIATE-DEPENDENTS0 BITN-0-1 . SCC-GROUP-H) (IMMEDIATE-DEPENDENTS0 SUBQ-INS . SCC-GROUP-H) (IMMEDIATE-DEPENDENTS0 SUB-MAPPING . SCC-GROUP-H) (IMMEDIATE-DEPENDENTS0 ADDQ-INS . SCC-GROUP-H) (IMMEDIATE-DEPENDENTS0 AN-DIRECT-MODEP . SCC-GROUP-H) (IMMEDIATE-DEPENDENTS0 READ-AN . SCC-GROUP-H) (IMMEDIATE-DEPENDENTS0 D_RN . SCC-GROUP-H) (IMMEDIATE-DEPENDENTS0 I-DATA . SCC-GROUP-H) (IMMEDIATE-DEPENDENTS0 WRITE-AN . SCC-GROUP-H) (IMMEDIATE-DEPENDENTS0 ADD-MAPPING . SCC-GROUP-H) (IMMEDIATE-DEPENDENTS0 SCC-INS . SCC-GROUP-H) (IMMEDIATE-DEPENDENTS0 B . SCC-GROUP-H) (IMMEDIATE-DEPENDENTS0 MC-HALTP . SCC-GROUP-H) (IMMEDIATE-DEPENDENTS0 SCC-EFFECT . SCC-GROUP-H) (IMMEDIATE-DEPENDENTS0 MODE-SIGNAL . SCC-GROUP-H) (IMMEDIATE-DEPENDENTS0 DBCC-INS . SCC-GROUP-H) (IMMEDIATE-DEPENDENTS0 WSZ . SCC-GROUP-H) (IMMEDIATE-DEPENDENTS0 PC-WORD-READP . SCC-GROUP-H) (IMMEDIATE-DEPENDENTS0 COND-FIELD . SCC-GROUP-H) (IMMEDIATE-DEPENDENTS0 B0 . SCC-GROUP-H) (IMMEDIATE-DEPENDENTS0 B0P . SCC-GROUP-H) (IMMEDIATE-DEPENDENTS0 S_RN . SCC-GROUP-H) (IMMEDIATE-DEPENDENTS0 PC-WORD-READ . SCC-GROUP-H) (IMMEDIATE-DEPENDENTS0 UPDATE-PC . SCC-GROUP-H) (IMMEDIATE-DEPENDENTS0 MC-STATUS-REWRITE . SCC-GROUP-H) (IMMEDIATE-DEPENDENTS0 MC-RFILE-REWRITE . SCC-GROUP-H) (IMMEDIATE-DEPENDENTS0 MC-CCR-RANGEP . SCC-GROUP-H) (IMMEDIATE-DEPENDENTS0 MC-CCR-REWRITE . SCC-GROUP-H) (IMMEDIATE-DEPENDENTS0 MC-MEM-REWRITE . SCC-GROUP-H) (IMMEDIATE-DEPENDENTS0 WRITE-DN . SCC-GROUP-H) (IMMEDIATE-DEPENDENTS0 UPDATE-RFILE . SCC-GROUP-H) (IMMEDIATE-DEPENDENTS0 L . SCC-GROUP-H) (IMMEDIATE-DEPENDENTS0 ADD-INT . SCC-GROUP-H) (IMMEDIATE-DEPENDENTS0 IPLUS . SCC-GROUP-H) (IMMEDIATE-DEPENDENTS0 EXP . SCC-GROUP-H) (IMMEDIATE-DEPENDENTS0 IPLUS-COMMUTATIVITY . SCC-GROUP-H) (IMMEDIATE-DEPENDENTS0 NAT-TO-INT . SCC-GROUP-H) (IMMEDIATE-DEPENDENTS0 READ-RN-NAT-RANGEP . SCC-GROUP-H) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . SCC-GROUP-H) (IMMEDIATE-DEPENDENTS0 SUB-NEG . SCC-GROUP-H) (IMMEDIATE-DEPENDENTS0 NEG . SCC-GROUP-H) (IMMEDIATE-DEPENDENTS0 READ-DN . SCC-GROUP-H) (IMMEDIATE-DEPENDENTS0 W . SCC-GROUP-H) (IMMEDIATE-DEPENDENTS0 DBCC-LOOP . SCC-GROUP-H) (IMMEDIATE-DEPENDENTS0 PC-SIGNAL . SCC-GROUP-H) (IMMEDIATE-DEPENDENTS0 HALT . SCC-GROUP-H) (IMMEDIATE-DEPENDENTS0 S_MODE . SCC-GROUP-H) (IMMEDIATE-DEPENDENTS0 Q . SCC-GROUP-H) (IMMEDIATE-DEPENDENTS0 MODE-GUARDS . SCC-GROUP-H) (IMMEDIATE-DEPENDENTS0 SCC-GROUP . SCC-GROUP-H) (IMMEDIATE-DEPENDENTS0 H-INVARIANT . SCC-GROUP-H) (IMMEDIATE-DEPENDENTS0 MC-MEM . SCC-GROUP-H) (LEMMAS H . SCC-GROUP-H))))) (PUT1-LST (QUOTE OR-GROUP-H) (QUOTE (IDATE 1000402215052 IMMEDIATE-DEPENDENTS0 (STEPI-H) EVENT (PROVE-LEMMA OR-GROUP-H (REWRITE) (IMPLIES (P X (MC-MEM S) K) (EQUAL (H X (MC-MEM (OR-GROUP OPLEN INS S)) K) (H X (MC-MEM S) K))) ((DISABLE OPERAND MAPPING MC-INSTATE) (DISABLE-THEORY MODE-GUARDS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MAPPING-H . OR-GROUP-H) (IMMEDIATE-DEPENDENTS0 BITN-0-1 . OR-GROUP-H) (IMMEDIATE-DEPENDENTS0 OR-INS2 . OR-GROUP-H) (IMMEDIATE-DEPENDENTS0 OR-MAPPING . OR-GROUP-H) (IMMEDIATE-DEPENDENTS0 SUB1-OF-1 . OR-GROUP-H) (IMMEDIATE-DEPENDENTS0 LESSP-OF-1 . OR-GROUP-H) (IMMEDIATE-DEPENDENTS0 S_MODE . OR-GROUP-H) (IMMEDIATE-DEPENDENTS0 OR-INS1 . OR-GROUP-H) (IMMEDIATE-DEPENDENTS0 OR-CVZNX . OR-GROUP-H) (IMMEDIATE-DEPENDENTS0 LOGOR-COMMUTATIVITY . OR-GROUP-H) (IMMEDIATE-DEPENDENTS0 OR-EFFECT . OR-GROUP-H) (IMMEDIATE-DEPENDENTS0 D-MAPPING . OR-GROUP-H) (IMMEDIATE-DEPENDENTS0 DIV_W-INS . OR-GROUP-H) (IMMEDIATE-DEPENDENTS0 W . OR-GROUP-H) (IMMEDIATE-DEPENDENTS0 MC-HALTP . OR-GROUP-H) (IMMEDIATE-DEPENDENTS0 B0 . OR-GROUP-H) (IMMEDIATE-DEPENDENTS0 B0P . OR-GROUP-H) (IMMEDIATE-DEPENDENTS0 BITS . OR-GROUP-H) (IMMEDIATE-DEPENDENTS0 D_RN . OR-GROUP-H) (IMMEDIATE-DEPENDENTS0 SET-CVZNX-NAT-RANGEP . OR-GROUP-H) (IMMEDIATE-DEPENDENTS0 SET-SET-CVZNX2 . OR-GROUP-H) (IMMEDIATE-DEPENDENTS0 SET-V . OR-GROUP-H) (IMMEDIATE-DEPENDENTS0 B1 . OR-GROUP-H) (IMMEDIATE-DEPENDENTS0 UPDATE-CCR . OR-GROUP-H) (IMMEDIATE-DEPENDENTS0 MC-STATUS-REWRITE . OR-GROUP-H) (IMMEDIATE-DEPENDENTS0 MC-RFILE-REWRITE . OR-GROUP-H) (IMMEDIATE-DEPENDENTS0 MC-PC-RANGEP . OR-GROUP-H) (IMMEDIATE-DEPENDENTS0 MC-PC-REWRITE . OR-GROUP-H) (IMMEDIATE-DEPENDENTS0 MC-CCR-RANGEP . OR-GROUP-H) (IMMEDIATE-DEPENDENTS0 MC-CCR-REWRITE . OR-GROUP-H) (IMMEDIATE-DEPENDENTS0 MC-MEM-REWRITE . OR-GROUP-H) (IMMEDIATE-DEPENDENTS0 WRITE-DN . OR-GROUP-H) (IMMEDIATE-DEPENDENTS0 UPDATE-RFILE . OR-GROUP-H) (IMMEDIATE-DEPENDENTS0 DIVU-CVZNX . OR-GROUP-H) (IMMEDIATE-DEPENDENTS0 DIVU-OVERFLOW . OR-GROUP-H) (IMMEDIATE-DEPENDENTS0 UINT-RANGEP . OR-GROUP-H) (IMMEDIATE-DEPENDENTS0 EXP . OR-GROUP-H) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . OR-GROUP-H) (IMMEDIATE-DEPENDENTS0 QUOTIENT-TIMES-LESSP . OR-GROUP-H) (IMMEDIATE-DEPENDENTS0 READ-DN . OR-GROUP-H) (IMMEDIATE-DEPENDENTS0 L . OR-GROUP-H) (IMMEDIATE-DEPENDENTS0 HALT . OR-GROUP-H) (IMMEDIATE-DEPENDENTS0 MC-INSTATE-MEM . OR-GROUP-H) (IMMEDIATE-DEPENDENTS0 DIVU_W-INS . OR-GROUP-H) (IMMEDIATE-DEPENDENTS0 DIVS-CVZNX . OR-GROUP-H) (IMMEDIATE-DEPENDENTS0 DIVS-OVERFLOW . OR-GROUP-H) (IMMEDIATE-DEPENDENTS0 DIVS_W-INS . OR-GROUP-H) (IMMEDIATE-DEPENDENTS0 MODE-SIGNAL . OR-GROUP-H) (IMMEDIATE-DEPENDENTS0 Q . OR-GROUP-H) (IMMEDIATE-DEPENDENTS0 MODE-GUARDS . OR-GROUP-H) (IMMEDIATE-DEPENDENTS0 OR-GROUP . OR-GROUP-H) (IMMEDIATE-DEPENDENTS0 H-INVARIANT . OR-GROUP-H) (IMMEDIATE-DEPENDENTS0 MC-MEM . OR-GROUP-H) (LEMMAS H . OR-GROUP-H))))) (PUT1-LST (QUOTE AND-GROUP-H) (QUOTE (IDATE 1000402215052 IMMEDIATE-DEPENDENTS0 (STEPI-H) EVENT (PROVE-LEMMA AND-GROUP-H (REWRITE) (IMPLIES (P X (MC-MEM S) K) (EQUAL (H X (MC-MEM (AND-GROUP OPLEN INS S)) K) (H X (MC-MEM S) K))) ((DISABLE OPERAND MAPPING MC-INSTATE) (DISABLE-THEORY MODE-GUARDS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TAIL-LEQ . AND-GROUP-H) (IMMEDIATE-DEPENDENTS0 HEAD-LEQ . AND-GROUP-H) (IMMEDIATE-DEPENDENTS0 MAPPING-H . AND-GROUP-H) (IMMEDIATE-DEPENDENTS0 BITN-0 . AND-GROUP-H) (IMMEDIATE-DEPENDENTS0 BITN-0-1 . AND-GROUP-H) (IMMEDIATE-DEPENDENTS0 AND-INS2 . AND-GROUP-H) (IMMEDIATE-DEPENDENTS0 AND-MAPPING . AND-GROUP-H) (IMMEDIATE-DEPENDENTS0 EXG-DRAR-INS . AND-GROUP-H) (IMMEDIATE-DEPENDENTS0 RESERVED-SIGNAL . AND-GROUP-H) (IMMEDIATE-DEPENDENTS0 EXG-ARAR-INS . AND-GROUP-H) (IMMEDIATE-DEPENDENTS0 READ-AN . AND-GROUP-H) (IMMEDIATE-DEPENDENTS0 WRITE-AN . AND-GROUP-H) (IMMEDIATE-DEPENDENTS0 EXG-DRDR-INS . AND-GROUP-H) (IMMEDIATE-DEPENDENTS0 TAIL-OF-0 . AND-GROUP-H) (IMMEDIATE-DEPENDENTS0 S_RN . AND-GROUP-H) (IMMEDIATE-DEPENDENTS0 B . AND-GROUP-H) (IMMEDIATE-DEPENDENTS0 SUB1-OF-1 . AND-GROUP-H) (IMMEDIATE-DEPENDENTS0 LESSP-OF-1 . AND-GROUP-H) (IMMEDIATE-DEPENDENTS0 S_MODE . AND-GROUP-H) (IMMEDIATE-DEPENDENTS0 AND-INS1 . AND-GROUP-H) (IMMEDIATE-DEPENDENTS0 AND-CVZNX . AND-GROUP-H) (IMMEDIATE-DEPENDENTS0 LOGAND-COMMUTATIVITY . AND-GROUP-H) (IMMEDIATE-DEPENDENTS0 AND-EFFECT . AND-GROUP-H) (IMMEDIATE-DEPENDENTS0 D-MAPPING . AND-GROUP-H) (IMMEDIATE-DEPENDENTS0 MUL_W-INS . AND-GROUP-H) (IMMEDIATE-DEPENDENTS0 W . AND-GROUP-H) (IMMEDIATE-DEPENDENTS0 MC-HALTP . AND-GROUP-H) (IMMEDIATE-DEPENDENTS0 B0 . AND-GROUP-H) (IMMEDIATE-DEPENDENTS0 B0P . AND-GROUP-H) (IMMEDIATE-DEPENDENTS0 BITS . AND-GROUP-H) (IMMEDIATE-DEPENDENTS0 D_RN . AND-GROUP-H) (IMMEDIATE-DEPENDENTS0 UPDATE-CCR . AND-GROUP-H) (IMMEDIATE-DEPENDENTS0 MC-STATUS-REWRITE . AND-GROUP-H) (IMMEDIATE-DEPENDENTS0 MC-RFILE-REWRITE . AND-GROUP-H) (IMMEDIATE-DEPENDENTS0 MC-PC-RANGEP . AND-GROUP-H) (IMMEDIATE-DEPENDENTS0 MC-PC-REWRITE . AND-GROUP-H) (IMMEDIATE-DEPENDENTS0 MC-CCR-RANGEP . AND-GROUP-H) (IMMEDIATE-DEPENDENTS0 MC-CCR-REWRITE . AND-GROUP-H) (IMMEDIATE-DEPENDENTS0 MC-MEM-REWRITE . AND-GROUP-H) (IMMEDIATE-DEPENDENTS0 WRITE-DN . AND-GROUP-H) (IMMEDIATE-DEPENDENTS0 MC-INSTATE-MEM . AND-GROUP-H) (IMMEDIATE-DEPENDENTS0 UPDATE-RFILE . AND-GROUP-H) (IMMEDIATE-DEPENDENTS0 MULU-CVZNX . AND-GROUP-H) (IMMEDIATE-DEPENDENTS0 READ-DN . AND-GROUP-H) (IMMEDIATE-DEPENDENTS0 L . AND-GROUP-H) (IMMEDIATE-DEPENDENTS0 MULU_W-INS . AND-GROUP-H) (IMMEDIATE-DEPENDENTS0 MULS-CVZNX . AND-GROUP-H) (IMMEDIATE-DEPENDENTS0 MULS_W-INS . AND-GROUP-H) (IMMEDIATE-DEPENDENTS0 MODE-SIGNAL . AND-GROUP-H) (IMMEDIATE-DEPENDENTS0 HALT . AND-GROUP-H) (IMMEDIATE-DEPENDENTS0 Q . AND-GROUP-H) (IMMEDIATE-DEPENDENTS0 MODE-GUARDS . AND-GROUP-H) (IMMEDIATE-DEPENDENTS0 AND-GROUP . AND-GROUP-H) (IMMEDIATE-DEPENDENTS0 H-INVARIANT . AND-GROUP-H) (IMMEDIATE-DEPENDENTS0 MC-MEM . AND-GROUP-H) (LEMMAS H . AND-GROUP-H))))) (PUT1-LST (QUOTE SUB-GROUP-H) (QUOTE (IDATE 1000402215052 IMMEDIATE-DEPENDENTS0 (STEPI-H) EVENT (PROVE-LEMMA SUB-GROUP-H (REWRITE) (IMPLIES (P X (MC-MEM S) K) (EQUAL (H X (MC-MEM (SUB-GROUP OPMODE INS S)) K) (H X (MC-MEM S) K))) ((DISABLE MAPPING MC-INSTATE BITS OP-LEN PRE-EFFECT) (DISABLE-THEORY MODE-GUARDS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUB-CVZNX . SUB-GROUP-H) (IMMEDIATE-DEPENDENTS0 SUB-EFFECT . SUB-GROUP-H) (IMMEDIATE-DEPENDENTS0 WRITE-WRITE-RN . SUB-GROUP-H) (IMMEDIATE-DEPENDENTS0 MAPPING-H . SUB-GROUP-H) (IMMEDIATE-DEPENDENTS0 SUB-INS2 . SUB-GROUP-H) (IMMEDIATE-DEPENDENTS0 SUB-MAPPING . SUB-GROUP-H) (IMMEDIATE-DEPENDENTS0 SUBX-INS2 . SUB-GROUP-H) (IMMEDIATE-DEPENDENTS0 ADDR-PREDEC . SUB-GROUP-H) (IMMEDIATE-DEPENDENTS0 MC-MEM-REWRITE . SUB-GROUP-H) (IMMEDIATE-DEPENDENTS0 MC-CCR-REWRITE . SUB-GROUP-H) (IMMEDIATE-DEPENDENTS0 MC-CCR-RANGEP . SUB-GROUP-H) (IMMEDIATE-DEPENDENTS0 MC-PC-REWRITE . SUB-GROUP-H) (IMMEDIATE-DEPENDENTS0 MC-PC-RANGEP . SUB-GROUP-H) (IMMEDIATE-DEPENDENTS0 MC-STATUS-REWRITE . SUB-GROUP-H) (IMMEDIATE-DEPENDENTS0 MC-RFILE-REWRITE . SUB-GROUP-H) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-EQUAL-PLUS . SUB-GROUP-H) (IMMEDIATE-DEPENDENTS0 READ-WRITE-RN . SUB-GROUP-H) (IMMEDIATE-DEPENDENTS0 READ-SIGNAL . SUB-GROUP-H) (IMMEDIATE-DEPENDENTS0 SUBX-INS1 . SUB-GROUP-H) (IMMEDIATE-DEPENDENTS0 S_RN . SUB-GROUP-H) (IMMEDIATE-DEPENDENTS0 SUBX-CVZNX . SUB-GROUP-H) (IMMEDIATE-DEPENDENTS0 SUBX-EFFECT . SUB-GROUP-H) (IMMEDIATE-DEPENDENTS0 D-MAPPING . SUB-GROUP-H) (IMMEDIATE-DEPENDENTS0 S_MODE . SUB-GROUP-H) (IMMEDIATE-DEPENDENTS0 EXT-LEMMA . SUB-GROUP-H) (IMMEDIATE-DEPENDENTS0 NEG-HEAD . SUB-GROUP-H) (IMMEDIATE-DEPENDENTS0 SUB-INS1 . SUB-GROUP-H) (IMMEDIATE-DEPENDENTS0 B . SUB-GROUP-H) (IMMEDIATE-DEPENDENTS0 SUBA-INS . SUB-GROUP-H) (IMMEDIATE-DEPENDENTS0 MC-HALTP . SUB-GROUP-H) (IMMEDIATE-DEPENDENTS0 L . SUB-GROUP-H) (IMMEDIATE-DEPENDENTS0 OP-SZ . SUB-GROUP-H) (IMMEDIATE-DEPENDENTS0 READ-AN . SUB-GROUP-H) (IMMEDIATE-DEPENDENTS0 READ-DN . SUB-GROUP-H) (IMMEDIATE-DEPENDENTS0 OPERAND . SUB-GROUP-H) (IMMEDIATE-DEPENDENTS0 D_RN . SUB-GROUP-H) (IMMEDIATE-DEPENDENTS0 SUB-NEG . SUB-GROUP-H) (IMMEDIATE-DEPENDENTS0 UPDATE-RFILE . SUB-GROUP-H) (IMMEDIATE-DEPENDENTS0 MC-INSTATE-MEM . SUB-GROUP-H) (IMMEDIATE-DEPENDENTS0 WRITE-AN . SUB-GROUP-H) (IMMEDIATE-DEPENDENTS0 MODE-SIGNAL . SUB-GROUP-H) (IMMEDIATE-DEPENDENTS0 HALT . SUB-GROUP-H) (IMMEDIATE-DEPENDENTS0 W . SUB-GROUP-H) (IMMEDIATE-DEPENDENTS0 MODE-GUARDS . SUB-GROUP-H) (IMMEDIATE-DEPENDENTS0 SUB-GROUP . SUB-GROUP-H) (IMMEDIATE-DEPENDENTS0 H-INVARIANT . SUB-GROUP-H) (IMMEDIATE-DEPENDENTS0 MC-MEM . SUB-GROUP-H) (LEMMAS H . SUB-GROUP-H))))) (PUT1-LST (QUOTE ADD-GROUP-H) (QUOTE (IDATE 1000402215052 IMMEDIATE-DEPENDENTS0 (STEPI-H) EVENT (PROVE-LEMMA ADD-GROUP-H (REWRITE) (IMPLIES (P X (MC-MEM S) K) (EQUAL (H X (MC-MEM (ADD-GROUP OPMODE INS S)) K) (H X (MC-MEM S) K))) ((DISABLE OPERAND MAPPING MC-INSTATE BITS OP-LEN PRE-EFFECT) (DISABLE-THEORY MODE-GUARDS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 WRITE-WRITE-RN . ADD-GROUP-H) (IMMEDIATE-DEPENDENTS0 MAPPING-H . ADD-GROUP-H) (IMMEDIATE-DEPENDENTS0 ADD-INS2 . ADD-GROUP-H) (IMMEDIATE-DEPENDENTS0 ADD-MAPPING . ADD-GROUP-H) (IMMEDIATE-DEPENDENTS0 ADDX-INS2 . ADD-GROUP-H) (IMMEDIATE-DEPENDENTS0 ADDR-PREDEC . ADD-GROUP-H) (IMMEDIATE-DEPENDENTS0 B . ADD-GROUP-H) (IMMEDIATE-DEPENDENTS0 OP-SZ . ADD-GROUP-H) (IMMEDIATE-DEPENDENTS0 MC-MEM-REWRITE . ADD-GROUP-H) (IMMEDIATE-DEPENDENTS0 MC-CCR-REWRITE . ADD-GROUP-H) (IMMEDIATE-DEPENDENTS0 MC-CCR-RANGEP . ADD-GROUP-H) (IMMEDIATE-DEPENDENTS0 MC-PC-REWRITE . ADD-GROUP-H) (IMMEDIATE-DEPENDENTS0 MC-PC-RANGEP . ADD-GROUP-H) (IMMEDIATE-DEPENDENTS0 MC-STATUS-REWRITE . ADD-GROUP-H) (IMMEDIATE-DEPENDENTS0 MC-RFILE-REWRITE . ADD-GROUP-H) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-EQUAL-PLUS . ADD-GROUP-H) (IMMEDIATE-DEPENDENTS0 READ-WRITE-RN . ADD-GROUP-H) (IMMEDIATE-DEPENDENTS0 READ-SIGNAL . ADD-GROUP-H) (IMMEDIATE-DEPENDENTS0 ADDX-INS1 . ADD-GROUP-H) (IMMEDIATE-DEPENDENTS0 S_RN . ADD-GROUP-H) (IMMEDIATE-DEPENDENTS0 ADDX-CVZNX . ADD-GROUP-H) (IMMEDIATE-DEPENDENTS0 ADDER-COMMUTATIVITY . ADD-GROUP-H) (IMMEDIATE-DEPENDENTS0 ADDX-EFFECT . ADD-GROUP-H) (IMMEDIATE-DEPENDENTS0 S_MODE . ADD-GROUP-H) (IMMEDIATE-DEPENDENTS0 EXT-LEMMA . ADD-GROUP-H) (IMMEDIATE-DEPENDENTS0 ADD-HEAD . ADD-GROUP-H) (IMMEDIATE-DEPENDENTS0 ADD-INS1 . ADD-GROUP-H) (IMMEDIATE-DEPENDENTS0 READ-DN . ADD-GROUP-H) (IMMEDIATE-DEPENDENTS0 ADD-CVZNX . ADD-GROUP-H) (IMMEDIATE-DEPENDENTS0 ADD-EFFECT . ADD-GROUP-H) (IMMEDIATE-DEPENDENTS0 D-MAPPING . ADD-GROUP-H) (IMMEDIATE-DEPENDENTS0 ADDA-INS . ADD-GROUP-H) (IMMEDIATE-DEPENDENTS0 MC-HALTP . ADD-GROUP-H) (IMMEDIATE-DEPENDENTS0 L . ADD-GROUP-H) (IMMEDIATE-DEPENDENTS0 D_RN . ADD-GROUP-H) (IMMEDIATE-DEPENDENTS0 READ-AN . ADD-GROUP-H) (IMMEDIATE-DEPENDENTS0 UPDATE-RFILE . ADD-GROUP-H) (IMMEDIATE-DEPENDENTS0 MC-INSTATE-MEM . ADD-GROUP-H) (IMMEDIATE-DEPENDENTS0 WRITE-AN . ADD-GROUP-H) (IMMEDIATE-DEPENDENTS0 MODE-SIGNAL . ADD-GROUP-H) (IMMEDIATE-DEPENDENTS0 HALT . ADD-GROUP-H) (IMMEDIATE-DEPENDENTS0 W . ADD-GROUP-H) (IMMEDIATE-DEPENDENTS0 MODE-GUARDS . ADD-GROUP-H) (IMMEDIATE-DEPENDENTS0 ADD-GROUP . ADD-GROUP-H) (IMMEDIATE-DEPENDENTS0 H-INVARIANT . ADD-GROUP-H) (IMMEDIATE-DEPENDENTS0 MC-MEM . ADD-GROUP-H) (LEMMAS H . ADD-GROUP-H))))) (PUT1-LST (QUOTE *1*T3) (QUOTE (MAIN-EVENT T3))) (PUT1-LST (QUOTE T3) (QUOTE (TYPE-PRESCRIPTION-LST ((T3 2 NIL NIL NIL)) TOTALP-LST ((T3 . T)) SDEFN (LAMBDA (X Y Z) (QUOTE *1*TRUE)) LISP-CODE *1*T3 SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402215052 SATELLITES (*1*T3) IMMEDIATE-DEPENDENTS0 (STEPN-WRITE-MEMP STEPN-READ-MEMP STEPN-PC-READ-MEMP STEPI-P) EVENT (DEFN T3 (X Y Z) (QUOTE *1*TRUE)) LOCAL-UNDO-TUPLES ((DCELL . *1*T3))))) (PUT1-LST (QUOTE MAPPING-H) (QUOTE (IDATE 1000402215052 IMMEDIATE-DEPENDENTS0 (MISC-GROUP-H S&R-GROUP-H MOVE-H BIT-GROUP-H CMP-GROUP-H SCC-GROUP-H OR-GROUP-H AND-GROUP-H SUB-GROUP-H ADD-GROUP-H) EVENT (PROVE-LEMMA MAPPING-H (REWRITE) (IMPLIES (P X (MC-MEM (CAR S&ADDR)) K) (EQUAL (H X (MC-MEM (MAPPING OPLEN V&CVZNX S&ADDR)) K) (H X (MC-MEM (CAR S&ADDR)) K)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 H-INVARIANT . MAPPING-H) (IMMEDIATE-DEPENDENTS0 MC-MEM-REWRITE . MAPPING-H) (IMMEDIATE-DEPENDENTS0 M-MAPPING . MAPPING-H) (IMMEDIATE-DEPENDENTS0 B . MAPPING-H) (IMMEDIATE-DEPENDENTS0 OP-SZ . MAPPING-H) (IMMEDIATE-DEPENDENTS0 WRITE-SIGNAL . MAPPING-H) (IMMEDIATE-DEPENDENTS0 HALT . MAPPING-H) (IMMEDIATE-DEPENDENTS0 A-MAPPING . MAPPING-H) (IMMEDIATE-DEPENDENTS0 D-MAPPING . MAPPING-H) (IMMEDIATE-DEPENDENTS0 MAPPING . MAPPING-H) (IMMEDIATE-DEPENDENTS0 MC-MEM . MAPPING-H) (LEMMAS H . MAPPING-H))))) (PUT1-LST (QUOTE MC-INSTATE-MEM) (QUOTE (IDATE 1000402215052 IMMEDIATE-DEPENDENTS0 (MISC-GROUP-H S&R-GROUP-H MOVE-GROUP-H MOVE-H BIT-GROUP-H CMP-GROUP-H SCC-GROUP-H OR-GROUP-H AND-GROUP-H SUB-GROUP-H ADD-GROUP-H) EVENT (PROVE-LEMMA MC-INSTATE-MEM (REWRITE) (EQUAL (MC-MEM (CAR (MC-INSTATE OPLEN INS S))) (MC-MEM S)) ((DISABLE EFFEC-ADDR))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 HEAD . MC-INSTATE-MEM) (IMMEDIATE-DEPENDENTS0 MC-MEM-REWRITE . MC-INSTATE-MEM) (IMMEDIATE-DEPENDENTS0 EFFEC-ADDR-MEM . MC-INSTATE-MEM) (IMMEDIATE-DEPENDENTS0 HALT . MC-INSTATE-MEM) (IMMEDIATE-DEPENDENTS0 READ-SIGNAL . MC-INSTATE-MEM) (IMMEDIATE-DEPENDENTS0 OP-SZ . MC-INSTATE-MEM) (IMMEDIATE-DEPENDENTS0 B . MC-INSTATE-MEM) (IMMEDIATE-DEPENDENTS0 S_RN . MC-INSTATE-MEM) (IMMEDIATE-DEPENDENTS0 TAIL-OF-0 . MC-INSTATE-MEM) (IMMEDIATE-DEPENDENTS0 S_MODE . MC-INSTATE-MEM) (IMMEDIATE-DEPENDENTS0 BITS . MC-INSTATE-MEM) (IMMEDIATE-DEPENDENTS0 MC-INSTATE . MC-INSTATE-MEM) (IMMEDIATE-DEPENDENTS0 MC-MEM . MC-INSTATE-MEM) (LEMMAS MC-MEM . MC-INSTATE-MEM))))) (PUT1-LST (QUOTE EFFEC-ADDR-MEM) (QUOTE (IDATE 1000402215051 IMMEDIATE-DEPENDENTS0 (MISC-GROUP-H MOVE-H MC-INSTATE-MEM) EVENT (PROVE-LEMMA EFFEC-ADDR-MEM (REWRITE) (EQUAL (MC-MEM (CAR (EFFEC-ADDR OPLEN MODE RN S))) (MC-MEM S)) ((DISABLE ADDR-INDEX2 IMMEDIATE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IMMEDIATE-MEM . EFFEC-ADDR-MEM) (IMMEDIATE-DEPENDENTS0 ADDR-INDEX2-MEM . EFFEC-ADDR-MEM) (IMMEDIATE-DEPENDENTS0 BITN-0-1 . EFFEC-ADDR-MEM) (IMMEDIATE-DEPENDENTS0 MC-MEM-REWRITE . EFFEC-ADDR-MEM) (IMMEDIATE-DEPENDENTS0 PC-INDEX . EFFEC-ADDR-MEM) (IMMEDIATE-DEPENDENTS0 BS-PC . EFFEC-ADDR-MEM) (IMMEDIATE-DEPENDENTS0 PC-INDEX-DISP . EFFEC-ADDR-MEM) (IMMEDIATE-DEPENDENTS0 PC-INDEX1 . EFFEC-ADDR-MEM) (IMMEDIATE-DEPENDENTS0 PC-DISP . EFFEC-ADDR-MEM) (IMMEDIATE-DEPENDENTS0 ABSOLUTE-LONG . EFFEC-ADDR-MEM) (IMMEDIATE-DEPENDENTS0 LSZ . EFFEC-ADDR-MEM) (IMMEDIATE-DEPENDENTS0 PC-LONG-READP . EFFEC-ADDR-MEM) (IMMEDIATE-DEPENDENTS0 PC-LONG-READ . EFFEC-ADDR-MEM) (IMMEDIATE-DEPENDENTS0 ABSOLUTE-SHORT . EFFEC-ADDR-MEM) (IMMEDIATE-DEPENDENTS0 ADDR-INDEX . EFFEC-ADDR-MEM) (IMMEDIATE-DEPENDENTS0 RESERVED-SIGNAL . EFFEC-ADDR-MEM) (IMMEDIATE-DEPENDENTS0 BS-REGISTER . EFFEC-ADDR-MEM) (IMMEDIATE-DEPENDENTS0 ADDR-INDEX-DISP . EFFEC-ADDR-MEM) (IMMEDIATE-DEPENDENTS0 INDEX-REGISTER . EFFEC-ADDR-MEM) (IMMEDIATE-DEPENDENTS0 BITS . EFFEC-ADDR-MEM) (IMMEDIATE-DEPENDENTS0 INDEX-RN . EFFEC-ADDR-MEM) (IMMEDIATE-DEPENDENTS0 READ-DN . EFFEC-ADDR-MEM) (IMMEDIATE-DEPENDENTS0 IR-SCALED . EFFEC-ADDR-MEM) (IMMEDIATE-DEPENDENTS0 ADD-ASSOCIATIVITY . EFFEC-ADDR-MEM) (IMMEDIATE-DEPENDENTS0 B0P . EFFEC-ADDR-MEM) (IMMEDIATE-DEPENDENTS0 B0 . EFFEC-ADDR-MEM) (IMMEDIATE-DEPENDENTS0 ADDR-INDEX1 . EFFEC-ADDR-MEM) (IMMEDIATE-DEPENDENTS0 ADDR-DISP . EFFEC-ADDR-MEM) (IMMEDIATE-DEPENDENTS0 PC-WORD-READP . EFFEC-ADDR-MEM) (IMMEDIATE-DEPENDENTS0 UPDATE-PC . EFFEC-ADDR-MEM) (IMMEDIATE-DEPENDENTS0 W . EFFEC-ADDR-MEM) (IMMEDIATE-DEPENDENTS0 PC-WORD-READ . EFFEC-ADDR-MEM) (IMMEDIATE-DEPENDENTS0 PC-SIGNAL . EFFEC-ADDR-MEM) (IMMEDIATE-DEPENDENTS0 HALT . EFFEC-ADDR-MEM) (IMMEDIATE-DEPENDENTS0 ADDR-PREDEC . EFFEC-ADDR-MEM) (IMMEDIATE-DEPENDENTS0 SUB-NEG . EFFEC-ADDR-MEM) (IMMEDIATE-DEPENDENTS0 NEG . EFFEC-ADDR-MEM) (IMMEDIATE-DEPENDENTS0 PRE-EFFECT . EFFEC-ADDR-MEM) (IMMEDIATE-DEPENDENTS0 ADDR-POSTINC . EFFEC-ADDR-MEM) (IMMEDIATE-DEPENDENTS0 OP-SZ . EFFEC-ADDR-MEM) (IMMEDIATE-DEPENDENTS0 WSZ . EFFEC-ADDR-MEM) (IMMEDIATE-DEPENDENTS0 B . EFFEC-ADDR-MEM) (IMMEDIATE-DEPENDENTS0 SP . EFFEC-ADDR-MEM) (IMMEDIATE-DEPENDENTS0 POST-EFFECT . EFFEC-ADDR-MEM) (IMMEDIATE-DEPENDENTS0 UPDATE-RFILE . EFFEC-ADDR-MEM) (IMMEDIATE-DEPENDENTS0 WRITE-AN . EFFEC-ADDR-MEM) (IMMEDIATE-DEPENDENTS0 ADDR-INDIRECT . EFFEC-ADDR-MEM) (IMMEDIATE-DEPENDENTS0 L . EFFEC-ADDR-MEM) (IMMEDIATE-DEPENDENTS0 READ-AN . EFFEC-ADDR-MEM) (IMMEDIATE-DEPENDENTS0 AN-DIRECT . EFFEC-ADDR-MEM) (IMMEDIATE-DEPENDENTS0 DN-DIRECT . EFFEC-ADDR-MEM) (IMMEDIATE-DEPENDENTS0 SUB1-OF-1 . EFFEC-ADDR-MEM) (IMMEDIATE-DEPENDENTS0 LESSP-OF-1 . EFFEC-ADDR-MEM) (IMMEDIATE-DEPENDENTS0 EFFEC-ADDR . EFFEC-ADDR-MEM) (IMMEDIATE-DEPENDENTS0 MC-MEM . EFFEC-ADDR-MEM) (LEMMAS MC-MEM . EFFEC-ADDR-MEM))))) (PUT1-LST (QUOTE IMMEDIATE-MEM) (QUOTE (IDATE 1000402215051 IMMEDIATE-DEPENDENTS0 (BIT-GROUP-H EFFEC-ADDR-MEM) EVENT (PROVE-LEMMA IMMEDIATE-MEM (REWRITE) (EQUAL (MC-MEM (CAR (IMMEDIATE OPLEN PC S))) (MC-MEM S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MC-MEM-REWRITE . IMMEDIATE-MEM) (IMMEDIATE-DEPENDENTS0 OP-SZ . IMMEDIATE-MEM) (IMMEDIATE-DEPENDENTS0 HALT . IMMEDIATE-MEM) (IMMEDIATE-DEPENDENTS0 PC-SIGNAL . IMMEDIATE-MEM) (IMMEDIATE-DEPENDENTS0 PC-BYTE-READ=PC-READ-MEM-1 . IMMEDIATE-MEM) (IMMEDIATE-DEPENDENTS0 BSZ . IMMEDIATE-MEM) (IMMEDIATE-DEPENDENTS0 UPDATE-PC . IMMEDIATE-MEM) (IMMEDIATE-DEPENDENTS0 L . IMMEDIATE-MEM) (IMMEDIATE-DEPENDENTS0 PC-WORD-READP . IMMEDIATE-MEM) (IMMEDIATE-DEPENDENTS0 WSZ . IMMEDIATE-MEM) (IMMEDIATE-DEPENDENTS0 B . IMMEDIATE-MEM) (IMMEDIATE-DEPENDENTS0 IMMEDIATE . IMMEDIATE-MEM) (IMMEDIATE-DEPENDENTS0 MC-MEM . IMMEDIATE-MEM) (LEMMAS MC-MEM . IMMEDIATE-MEM))))) (PUT1-LST (QUOTE ADDR-INDEX2-MEM) (QUOTE (IDATE 1000402215051 IMMEDIATE-DEPENDENTS0 (EFFEC-ADDR-MEM) EVENT (PROVE-LEMMA ADDR-INDEX2-MEM (REWRITE) (EQUAL (MC-MEM (CAR (ADDR-INDEX2 PC ADDR INDEXWD S))) (MC-MEM S)) ((DISABLE INDEX-REGISTER BITS IR-SCALED))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BITN-0-1 . ADDR-INDEX2-MEM) (IMMEDIATE-DEPENDENTS0 MC-MEM-REWRITE . ADDR-INDEX2-MEM) (IMMEDIATE-DEPENDENTS0 PC-LONG-READ . ADDR-INDEX2-MEM) (IMMEDIATE-DEPENDENTS0 PC-LONG-READP . ADDR-INDEX2-MEM) (IMMEDIATE-DEPENDENTS0 ADD . ADDR-INDEX2-MEM) (IMMEDIATE-DEPENDENTS0 PC-WORD-READ . ADDR-INDEX2-MEM) (IMMEDIATE-DEPENDENTS0 PC-WORD-READP . ADDR-INDEX2-MEM) (IMMEDIATE-DEPENDENTS0 WSZ . ADDR-INDEX2-MEM) (IMMEDIATE-DEPENDENTS0 ADDR-INDEX3 . ADDR-INDEX2-MEM) (IMMEDIATE-DEPENDENTS0 B0 . ADDR-INDEX2-MEM) (IMMEDIATE-DEPENDENTS0 B0P . ADDR-INDEX2-MEM) (IMMEDIATE-DEPENDENTS0 I-IS . ADDR-INDEX2-MEM) (IMMEDIATE-DEPENDENTS0 L . ADDR-INDEX2-MEM) (IMMEDIATE-DEPENDENTS0 UPDATE-PC . ADDR-INDEX2-MEM) (IMMEDIATE-DEPENDENTS0 ADDR-INDEX-BD . ADDR-INDEX2-MEM) (IMMEDIATE-DEPENDENTS0 MEM-INDIRECT . ADDR-INDEX2-MEM) (IMMEDIATE-DEPENDENTS0 LSZ . ADDR-INDEX2-MEM) (IMMEDIATE-DEPENDENTS0 LONG-READP . ADDR-INDEX2-MEM) (IMMEDIATE-DEPENDENTS0 OP-SZ . ADDR-INDEX2-MEM) (IMMEDIATE-DEPENDENTS0 ADD-0 . ADDR-INDEX2-MEM) (IMMEDIATE-DEPENDENTS0 LONG-READ . ADDR-INDEX2-MEM) (IMMEDIATE-DEPENDENTS0 PC-SIGNAL . ADDR-INDEX2-MEM) (IMMEDIATE-DEPENDENTS0 READ-SIGNAL . ADDR-INDEX2-MEM) (IMMEDIATE-DEPENDENTS0 MEM-PREINDEX . ADDR-INDEX2-MEM) (IMMEDIATE-DEPENDENTS0 W . ADDR-INDEX2-MEM) (IMMEDIATE-DEPENDENTS0 PC-READ-MEM-NAT-RANGEP . ADDR-INDEX2-MEM) (IMMEDIATE-DEPENDENTS0 HEAD-LEMMA . ADDR-INDEX2-MEM) (IMMEDIATE-DEPENDENTS0 EXT-LEMMA . ADDR-INDEX2-MEM) (IMMEDIATE-DEPENDENTS0 ADD-ASSOCIATIVITY . ADDR-INDEX2-MEM) (IMMEDIATE-DEPENDENTS0 MEM-POSTINDEX . ADDR-INDEX2-MEM) (IMMEDIATE-DEPENDENTS0 HALT . ADDR-INDEX2-MEM) (IMMEDIATE-DEPENDENTS0 RESERVED-SIGNAL . ADDR-INDEX2-MEM) (IMMEDIATE-DEPENDENTS0 SUB1-OF-1 . ADDR-INDEX2-MEM) (IMMEDIATE-DEPENDENTS0 LESSP-OF-1 . ADDR-INDEX2-MEM) (IMMEDIATE-DEPENDENTS0 BD-SZ . ADDR-INDEX2-MEM) (IMMEDIATE-DEPENDENTS0 ADDR-INDEX2 . ADDR-INDEX2-MEM) (IMMEDIATE-DEPENDENTS0 MC-MEM . ADDR-INDEX2-MEM) (LEMMAS MC-MEM . ADDR-INDEX2-MEM))))) (PUT1-LST (QUOTE *1*H) (QUOTE (MAIN-EVENT H-INVARIANT))) (PUT1-LST (QUOTE H) (QUOTE (TYPE-PRESCRIPTION-LST ((H -1 NIL NIL NIL)) LEMMAS ((REWRITE-RULE STEPN-H ((P X (MC-MEM S) K)) (EQUAL (H X (MC-MEM (STEPN S N)) K) (H X (MC-MEM S) K)) NIL) (REWRITE-RULE STEPI-H ((P X (MC-MEM S) K)) (EQUAL (H X (MC-MEM (STEPI S)) K) (H X (MC-MEM S) K)) NIL) (REWRITE-RULE MISC-GROUP-H ((P X (MC-MEM S) K)) (EQUAL (H X (MC-MEM (MISC-GROUP INS S)) K) (H X (MC-MEM S) K)) NIL) (REWRITE-RULE WRITEM-MEM-H ((P X MEM K) (WRITE-MEMP ADDR MEM (TIMES OPSZ (LEN VLST)))) (EQUAL (H X (WRITEM-MEM OPSZ VLST ADDR MEM) K) (H X MEM K)) NIL) (REWRITE-RULE S&R-GROUP-H ((P X (MC-MEM S) K)) (EQUAL (H X (MC-MEM (S&R-GROUP INS S)) K) (H X (MC-MEM S) K)) NIL) (REWRITE-RULE MOVE-GROUP-H ((P X (MC-MEM S) K)) (EQUAL (H X (MC-MEM (MOVE-GROUP OPLEN INS S)) K) (H X (MC-MEM S) K)) NIL) (REWRITE-RULE MOVE-H ((P X (MC-MEM S) K)) (EQUAL (H X (MC-MEM (MOVE-INS OPLEN INS S)) K) (H X (MC-MEM S) K)) NIL) (REWRITE-RULE BIT-GROUP-H ((P X (MC-MEM S) K)) (EQUAL (H X (MC-MEM (BIT-GROUP INS S)) K) (H X (MC-MEM S) K)) NIL) (REWRITE-RULE MOVEP-WRITE-H ((P X MEM K) (MOVEP-WRITEP ADDR MEM N)) (EQUAL (H X (MOVEP-WRITE VALUE ADDR MEM N) K) (H X MEM K)) NIL) (REWRITE-RULE BCC-GROUP-H ((P X (MC-MEM S) K)) (EQUAL (H X (MC-MEM (BCC-GROUP DISP INS S)) K) (H X (MC-MEM S) K)) NIL) (REWRITE-RULE CMP-GROUP-H ((P X (MC-MEM S) K)) (EQUAL (H X (MC-MEM (CMP-GROUP OPLEN INS S)) K) (H X (MC-MEM S) K)) NIL) (REWRITE-RULE SCC-GROUP-H ((P X (MC-MEM S) K)) (EQUAL (H X (MC-MEM (SCC-GROUP INS S)) K) (H X (MC-MEM S) K)) NIL) (REWRITE-RULE OR-GROUP-H ((P X (MC-MEM S) K)) (EQUAL (H X (MC-MEM (OR-GROUP OPLEN INS S)) K) (H X (MC-MEM S) K)) NIL) (REWRITE-RULE AND-GROUP-H ((P X (MC-MEM S) K)) (EQUAL (H X (MC-MEM (AND-GROUP OPLEN INS S)) K) (H X (MC-MEM S) K)) NIL) (REWRITE-RULE SUB-GROUP-H ((P X (MC-MEM S) K)) (EQUAL (H X (MC-MEM (SUB-GROUP OPMODE INS S)) K) (H X (MC-MEM S) K)) NIL) (REWRITE-RULE ADD-GROUP-H ((P X (MC-MEM S) K)) (EQUAL (H X (MC-MEM (ADD-GROUP OPMODE INS S)) K) (H X (MC-MEM S) K)) NIL) (REWRITE-RULE MAPPING-H ((P X (MC-MEM (CAR S&ADDR)) K)) (EQUAL (H X (MC-MEM (MAPPING OPLEN V&CVZNX S&ADDR)) K) (H X (MC-MEM (CAR S&ADDR)) K)) NIL) (REWRITE-RULE H-INVARIANT ((P X MEM K) (WRITE-MEMP Y MEM M)) (EQUAL (H X (WRITE-MEM VALUE Y MEM M) K) (H X MEM K)) NIL)) TOTALP-LST ((H)) LISP-CODE *1*H ERRATICP T LEVEL-NO 0 MAIN-EVENT H-INVARIANT))) (PUT1-LST (QUOTE *1*P) (QUOTE (MAIN-EVENT H-INVARIANT))) (PUT1-LST (QUOTE P) (QUOTE (TYPE-PRESCRIPTION-LST ((P -1 NIL NIL NIL)) LEMMAS ((REWRITE-RULE STEPI-P ((T3 X (MC-MEM S) K)) (EQUAL (P X (MC-MEM (STEPI S)) K) (P X (MC-MEM S) K)) NIL) (REWRITE-RULE H-INVARIANT NIL (EQUAL (P X (WRITE-MEM VALUE Y MEM M) K) (P X MEM K)) NIL)) TOTALP-LST ((P)) LISP-CODE *1*P ERRATICP T LEVEL-NO 0 MAIN-EVENT H-INVARIANT))) (PUT1-LST (QUOTE H-INVARIANT) (QUOTE (IDATE 1000402215050 SATELLITES (*1*H H *1*P P) IMMEDIATE-DEPENDENTS0 (STEPN-PC-READ-MEM STEPN-WRITE-MEMP STEPN-READ-MEMP STEPN-PC-READ-MEMP STEPN-H STEPI-P STEPI-H MISC-GROUP-H WRITEM-MEM-H S&R-GROUP-H MOVE-GROUP-H MOVE-H BIT-GROUP-H MOVEP-WRITE-H BCC-GROUP-H CMP-GROUP-H SCC-GROUP-H OR-GROUP-H AND-GROUP-H SUB-GROUP-H ADD-GROUP-H MAPPING-H) EVENT (CONSTRAIN H-INVARIANT (REWRITE) (AND (EQUAL (P X (WRITE-MEM VALUE Y MEM M) K) (P X MEM K)) (IMPLIES (AND (P X MEM K) (WRITE-MEMP Y MEM M)) (EQUAL (H X (WRITE-MEM VALUE Y MEM M) K) (H X MEM K)))) ((P ROM-ADDRP) (H ROM-ADDRP)) NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 WRITE-MEM-MAINTAIN-ROM-ADDRP . H-INVARIANT) (IMMEDIATE-DEPENDENTS0 WRITE-MEMP . H-INVARIANT) (IMMEDIATE-DEPENDENTS0 WRITE-MEM . H-INVARIANT) (IMMEDIATE-DEPENDENTS0 ROM-ADDRP . H-INVARIANT) (DCELL . *1*H) (DCELL . *1*P))))) (PUT1-LST (QUOTE GROUPS) (QUOTE (IDATE 1000402215050 IMMEDIATE-DEPENDENTS0 (STEPI-H) EVENT (DEFTHEORY GROUPS (BIT-GROUP MOVE-INS MOVE-GROUP MISC-GROUP SCC-GROUP BCC-GROUP OR-GROUP SUB-GROUP CMP-GROUP AND-GROUP ADD-GROUP S&R-GROUP)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BIT-GROUP . GROUPS) (IMMEDIATE-DEPENDENTS0 MOVE-INS . GROUPS) (IMMEDIATE-DEPENDENTS0 MOVE-GROUP . GROUPS) (IMMEDIATE-DEPENDENTS0 MISC-GROUP . GROUPS) (IMMEDIATE-DEPENDENTS0 SCC-GROUP . GROUPS) (IMMEDIATE-DEPENDENTS0 BCC-GROUP . GROUPS) (IMMEDIATE-DEPENDENTS0 OR-GROUP . GROUPS) (IMMEDIATE-DEPENDENTS0 SUB-GROUP . GROUPS) (IMMEDIATE-DEPENDENTS0 CMP-GROUP . GROUPS) (IMMEDIATE-DEPENDENTS0 AND-GROUP . GROUPS) (IMMEDIATE-DEPENDENTS0 ADD-GROUP . GROUPS) (IMMEDIATE-DEPENDENTS0 S&R-GROUP . GROUPS))))) (PUT1-LST (QUOTE MODE-GUARDS) (QUOTE (IDATE 1000402215050 IMMEDIATE-DEPENDENTS0 (MISC-GROUP-H S&R-GROUP-H MOVE-GROUP-H MOVE-H BIT-GROUP-H BCC-GROUP-H CMP-GROUP-H SCC-GROUP-H OR-GROUP-H AND-GROUP-H SUB-GROUP-H ADD-GROUP-H) EVENT (DEFTHEORY MODE-GUARDS (ADD-ADDR-MODEP1 ADD-ADDR-MODEP2 ADDA-ADDR-MODEP SUB-ADDR-MODEP1 SUB-ADDR-MODEP2 SUBA-ADDR-MODEP AND-ADDR-MODEP1 AND-ADDR-MODEP2 MUL&DIV-ADDR-MODEP OR-ADDR-MODEP1 OR-ADDR-MODEP2 S&R-ADDR-MODEP MOVE-ADDR-MODEP MOVEA-ADDR-MODEP LEA-ADDR-MODEP CLR-ADDR-MODEP MOVE-FROM-CCR-ADDR-MODEP NEGX-ADDR-MODEP NEG-ADDR-MODEP MOVE-TO-CCR-ADDR-MODEP PEA-ADDR-MODEP MOVEM-RN-EA-ADDR-MODEP MOVEM-EA-RN-ADDR-MODEP TST-ADDR-MODEP TAS-ADDR-MODEP JMP-ADDR-MODEP JSR-ADDR-MODEP NOT-ADDR-MODEP SCC-ADDR-MODEP ADDQ-ADDR-MODEP SUBQ-ADDR-MODEP CMP-ADDR-MODEP CMPA-ADDR-MODEP EOR&EORI-ADDR-MODEP BCHG-ADDR-MODEP BCLR-ADDR-MODEP BSET-ADDR-MODEP BTST-ADDR-MODEP ORI-ADDR-MODEP ANDI-ADDR-MODEP SUBI-ADDR-MODEP ADDI-ADDR-MODEP CMPI-ADDR-MODEP)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ADD-ADDR-MODEP1 . MODE-GUARDS) (IMMEDIATE-DEPENDENTS0 ADD-ADDR-MODEP2 . MODE-GUARDS) (IMMEDIATE-DEPENDENTS0 ADDA-ADDR-MODEP . MODE-GUARDS) (IMMEDIATE-DEPENDENTS0 SUB-ADDR-MODEP1 . MODE-GUARDS) (IMMEDIATE-DEPENDENTS0 SUB-ADDR-MODEP2 . MODE-GUARDS) (IMMEDIATE-DEPENDENTS0 SUBA-ADDR-MODEP . MODE-GUARDS) (IMMEDIATE-DEPENDENTS0 AND-ADDR-MODEP1 . MODE-GUARDS) (IMMEDIATE-DEPENDENTS0 AND-ADDR-MODEP2 . MODE-GUARDS) (IMMEDIATE-DEPENDENTS0 MUL&DIV-ADDR-MODEP . MODE-GUARDS) (IMMEDIATE-DEPENDENTS0 OR-ADDR-MODEP1 . MODE-GUARDS) (IMMEDIATE-DEPENDENTS0 OR-ADDR-MODEP2 . MODE-GUARDS) (IMMEDIATE-DEPENDENTS0 S&R-ADDR-MODEP . MODE-GUARDS) (IMMEDIATE-DEPENDENTS0 MOVE-ADDR-MODEP . MODE-GUARDS) (IMMEDIATE-DEPENDENTS0 MOVEA-ADDR-MODEP . MODE-GUARDS) (IMMEDIATE-DEPENDENTS0 LEA-ADDR-MODEP . MODE-GUARDS) (IMMEDIATE-DEPENDENTS0 CLR-ADDR-MODEP . MODE-GUARDS) (IMMEDIATE-DEPENDENTS0 MOVE-FROM-CCR-ADDR-MODEP . MODE-GUARDS) (IMMEDIATE-DEPENDENTS0 NEGX-ADDR-MODEP . MODE-GUARDS) (IMMEDIATE-DEPENDENTS0 NEG-ADDR-MODEP . MODE-GUARDS) (IMMEDIATE-DEPENDENTS0 MOVE-TO-CCR-ADDR-MODEP . MODE-GUARDS) (IMMEDIATE-DEPENDENTS0 PEA-ADDR-MODEP . MODE-GUARDS) (IMMEDIATE-DEPENDENTS0 MOVEM-RN-EA-ADDR-MODEP . MODE-GUARDS) (IMMEDIATE-DEPENDENTS0 MOVEM-EA-RN-ADDR-MODEP . MODE-GUARDS) (IMMEDIATE-DEPENDENTS0 TST-ADDR-MODEP . MODE-GUARDS) (IMMEDIATE-DEPENDENTS0 TAS-ADDR-MODEP . MODE-GUARDS) (IMMEDIATE-DEPENDENTS0 JMP-ADDR-MODEP . MODE-GUARDS) (IMMEDIATE-DEPENDENTS0 JSR-ADDR-MODEP . MODE-GUARDS) (IMMEDIATE-DEPENDENTS0 NOT-ADDR-MODEP . MODE-GUARDS) (IMMEDIATE-DEPENDENTS0 SCC-ADDR-MODEP . MODE-GUARDS) (IMMEDIATE-DEPENDENTS0 ADDQ-ADDR-MODEP . MODE-GUARDS) (IMMEDIATE-DEPENDENTS0 SUBQ-ADDR-MODEP . MODE-GUARDS) (IMMEDIATE-DEPENDENTS0 CMP-ADDR-MODEP . MODE-GUARDS) (IMMEDIATE-DEPENDENTS0 CMPA-ADDR-MODEP . MODE-GUARDS) (IMMEDIATE-DEPENDENTS0 EOR&EORI-ADDR-MODEP . MODE-GUARDS) (IMMEDIATE-DEPENDENTS0 BCHG-ADDR-MODEP . MODE-GUARDS) (IMMEDIATE-DEPENDENTS0 BCLR-ADDR-MODEP . MODE-GUARDS) (IMMEDIATE-DEPENDENTS0 BSET-ADDR-MODEP . MODE-GUARDS) (IMMEDIATE-DEPENDENTS0 BTST-ADDR-MODEP . MODE-GUARDS) (IMMEDIATE-DEPENDENTS0 ORI-ADDR-MODEP . MODE-GUARDS) (IMMEDIATE-DEPENDENTS0 ANDI-ADDR-MODEP . MODE-GUARDS) (IMMEDIATE-DEPENDENTS0 SUBI-ADDR-MODEP . MODE-GUARDS) (IMMEDIATE-DEPENDENTS0 ADDI-ADDR-MODEP . MODE-GUARDS) (IMMEDIATE-DEPENDENTS0 CMPI-ADDR-MODEP . MODE-GUARDS))))) (PUT1-LST (QUOTE STEPN-OFF) (QUOTE (IDATE 1000402215050 EVENT (TOGGLE STEPN-OFF STEPN T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 STEPN . STEPN-OFF) (DISABLED-LEMMAS NIL STEPN STEPN-OFF . T))))) (PUT1-LST (QUOTE UINT-TO-NAT-OFF) (QUOTE (IDATE 1000402215050 EVENT (TOGGLE UINT-TO-NAT-OFF UINT-TO-NAT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 UINT-TO-NAT . UINT-TO-NAT-OFF) (DISABLED-LEMMAS NIL UINT-TO-NAT UINT-TO-NAT-OFF . T))))) (PUT1-LST (QUOTE NAT-TO-UINT-OFF) (QUOTE (IDATE 1000402215050 EVENT (TOGGLE NAT-TO-UINT-OFF NAT-TO-UINT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NAT-TO-UINT . NAT-TO-UINT-OFF) (DISABLED-LEMMAS NIL NAT-TO-UINT NAT-TO-UINT-OFF . T))))) (PUT1-LST (QUOTE ADD-COMMUTATIVITY1-OFF) (QUOTE (IDATE 1000402215050 EVENT (TOGGLE ADD-COMMUTATIVITY1-OFF ADD-COMMUTATIVITY1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ADD-COMMUTATIVITY1 . ADD-COMMUTATIVITY1-OFF) (DISABLED-LEMMAS NIL ADD-COMMUTATIVITY1 ADD-COMMUTATIVITY1-OFF . T))))) (PUT1-LST (QUOTE ADD-COMMUTATIVITY-OFF) (QUOTE (IDATE 1000402215050 EVENT (TOGGLE ADD-COMMUTATIVITY-OFF ADD-COMMUTATIVITY T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ADD-COMMUTATIVITY . ADD-COMMUTATIVITY-OFF) (DISABLED-LEMMAS NIL ADD-COMMUTATIVITY ADD-COMMUTATIVITY-OFF . T))))) (PUT1-LST (QUOTE ADD-NON-NUMBERP-OFF) (QUOTE (IDATE 1000402215050 EVENT (TOGGLE ADD-NON-NUMBERP-OFF ADD-NON-NUMBERP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ADD-NON-NUMBERP . ADD-NON-NUMBERP-OFF) (DISABLED-LEMMAS NIL ADD-NON-NUMBERP ADD-NON-NUMBERP-OFF . T))))) (PUT1-LST (QUOTE DISJOINT-LA3-OFF) (QUOTE (IDATE 1000402215050 EVENT (TOGGLE DISJOINT-LA3-OFF DISJOINT-LA3 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DISJOINT-LA3 . DISJOINT-LA3-OFF) (DISABLED-LEMMAS NIL DISJOINT-LA3 DISJOINT-LA3-OFF . T))))) (PUT1-LST (QUOTE DISJOINT-LA2-OFF) (QUOTE (IDATE 1000402215050 EVENT (TOGGLE DISJOINT-LA2-OFF DISJOINT-LA2 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DISJOINT-LA2 . DISJOINT-LA2-OFF) (DISABLED-LEMMAS NIL DISJOINT-LA2 DISJOINT-LA2-OFF . T))))) (PUT1-LST (QUOTE DISJOINT-LA1-OFF) (QUOTE (IDATE 1000402215050 EVENT (TOGGLE DISJOINT-LA1-OFF DISJOINT-LA1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DISJOINT-LA1 . DISJOINT-LA1-OFF) (DISABLED-LEMMAS NIL DISJOINT-LA1 DISJOINT-LA1-OFF . T))))) (PUT1-LST (QUOTE DISJOINT-LA0-OFF) (QUOTE (IDATE 1000402215050 EVENT (TOGGLE DISJOINT-LA0-OFF DISJOINT-LA0 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DISJOINT-LA0 . DISJOINT-LA0-OFF) (DISABLED-LEMMAS NIL DISJOINT-LA0 DISJOINT-LA0-OFF . T))))) (PUT1-LST (QUOTE DISJOINT0-LA2-OFF) (QUOTE (IDATE 1000402215050 EVENT (TOGGLE DISJOINT0-LA2-OFF DISJOINT0-LA2 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DISJOINT0-LA2 . DISJOINT0-LA2-OFF) (DISABLED-LEMMAS NIL DISJOINT0-LA2 DISJOINT0-LA2-OFF . T))))) (PUT1-LST (QUOTE DISJOINT0-LA1-OFF) (QUOTE (IDATE 1000402215050 EVENT (TOGGLE DISJOINT0-LA1-OFF DISJOINT0-LA1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DISJOINT0-LA1 . DISJOINT0-LA1-OFF) (DISABLED-LEMMAS NIL DISJOINT0-LA1 DISJOINT0-LA1-OFF . T))))) (PUT1-LST (QUOTE DISJOINT0-LA0-OFF) (QUOTE (IDATE 1000402215050 EVENT (TOGGLE DISJOINT0-LA0-OFF DISJOINT0-LA0 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DISJOINT0-LA0 . DISJOINT0-LA0-OFF) (DISABLED-LEMMAS NIL DISJOINT0-LA0 DISJOINT0-LA0-OFF . T))))) (PUT1-LST (QUOTE DISJOINT-OFF) (QUOTE (IDATE 1000402215050 EVENT (TOGGLE DISJOINT-OFF DISJOINT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DISJOINT . DISJOINT-OFF) (DISABLED-LEMMAS NIL DISJOINT DISJOINT-OFF . T))))) (PUT1-LST (QUOTE DISJOINT0-OFF) (QUOTE (IDATE 1000402215050 EVENT (TOGGLE DISJOINT0-OFF DISJOINT0 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DISJOINT0 . DISJOINT0-OFF) (DISABLED-LEMMAS NIL DISJOINT0 DISJOINT0-OFF . T))))) (PUT1-LST (QUOTE WRITE-MEMP-LA3-OFF) (QUOTE (IDATE 1000402215050 EVENT (TOGGLE WRITE-MEMP-LA3-OFF WRITE-MEMP-LA3 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 WRITE-MEMP-LA3 . WRITE-MEMP-LA3-OFF) (DISABLED-LEMMAS NIL WRITE-MEMP-LA3 WRITE-MEMP-LA3-OFF . T))))) (PUT1-LST (QUOTE WRITE-MEMP-LA2-OFF) (QUOTE (IDATE 1000402215050 EVENT (TOGGLE WRITE-MEMP-LA2-OFF WRITE-MEMP-LA2 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 WRITE-MEMP-LA2 . WRITE-MEMP-LA2-OFF) (DISABLED-LEMMAS NIL WRITE-MEMP-LA2 WRITE-MEMP-LA2-OFF . T))))) (PUT1-LST (QUOTE WRITE-MEMP-LA1-OFF) (QUOTE (IDATE 1000402215050 EVENT (TOGGLE WRITE-MEMP-LA1-OFF WRITE-MEMP-LA1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 WRITE-MEMP-LA1 . WRITE-MEMP-LA1-OFF) (DISABLED-LEMMAS NIL WRITE-MEMP-LA1 WRITE-MEMP-LA1-OFF . T))))) (PUT1-LST (QUOTE WRITE-MEMP-LA0-OFF) (QUOTE (IDATE 1000402215050 EVENT (TOGGLE WRITE-MEMP-LA0-OFF WRITE-MEMP-LA0 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 WRITE-MEMP-LA0 . WRITE-MEMP-LA0-OFF) (DISABLED-LEMMAS NIL WRITE-MEMP-LA0 WRITE-MEMP-LA0-OFF . T))))) (PUT1-LST (QUOTE PC-READ-MEMP-LA3-OFF) (QUOTE (IDATE 1000402215050 EVENT (TOGGLE PC-READ-MEMP-LA3-OFF PC-READ-MEMP-LA3 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PC-READ-MEMP-LA3 . PC-READ-MEMP-LA3-OFF) (DISABLED-LEMMAS NIL PC-READ-MEMP-LA3 PC-READ-MEMP-LA3-OFF . T))))) (PUT1-LST (QUOTE PC-READ-MEMP-LA2-OFF) (QUOTE (IDATE 1000402215050 EVENT (TOGGLE PC-READ-MEMP-LA2-OFF PC-READ-MEMP-LA2 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PC-READ-MEMP-LA2 . PC-READ-MEMP-LA2-OFF) (DISABLED-LEMMAS NIL PC-READ-MEMP-LA2 PC-READ-MEMP-LA2-OFF . T))))) (PUT1-LST (QUOTE PC-READ-MEMP-LA1-OFF) (QUOTE (IDATE 1000402215050 EVENT (TOGGLE PC-READ-MEMP-LA1-OFF PC-READ-MEMP-LA1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PC-READ-MEMP-LA1 . PC-READ-MEMP-LA1-OFF) (DISABLED-LEMMAS NIL PC-READ-MEMP-LA1 PC-READ-MEMP-LA1-OFF . T))))) (PUT1-LST (QUOTE PC-READ-MEMP-LA0-OFF) (QUOTE (IDATE 1000402215050 EVENT (TOGGLE PC-READ-MEMP-LA0-OFF PC-READ-MEMP-LA0 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PC-READ-MEMP-LA0 . PC-READ-MEMP-LA0-OFF) (DISABLED-LEMMAS NIL PC-READ-MEMP-LA0 PC-READ-MEMP-LA0-OFF . T))))) (PUT1-LST (QUOTE WRITEM-RN-OFF) (QUOTE (IDATE 1000402215050 EVENT (TOGGLE WRITEM-RN-OFF WRITEM-RN T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 WRITEM-RN . WRITEM-RN-OFF) (DISABLED-LEMMAS NIL WRITEM-RN WRITEM-RN-OFF . T))))) (PUT1-LST (QUOTE READM-RN-OFF) (QUOTE (IDATE 1000402215050 EVENT (TOGGLE READM-RN-OFF READM-RN T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 READM-RN . READM-RN-OFF) (DISABLED-LEMMAS NIL READM-RN READM-RN-OFF . T))))) (PUT1-LST (QUOTE WRITE-MEM-OFF) (QUOTE (IDATE 1000402215050 EVENT (TOGGLE WRITE-MEM-OFF WRITE-MEM T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 WRITE-MEM . WRITE-MEM-OFF) (DISABLED-LEMMAS NIL WRITE-MEM WRITE-MEM-OFF . T))))) (PUT1-LST (QUOTE WRITE-MEMP-OFF) (QUOTE (IDATE 1000402215050 EVENT (TOGGLE WRITE-MEMP-OFF WRITE-MEMP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 WRITE-MEMP . WRITE-MEMP-OFF) (DISABLED-LEMMAS NIL WRITE-MEMP WRITE-MEMP-OFF . T))))) (PUT1-LST (QUOTE READ-MEM-OFF) (QUOTE (IDATE 1000402215050 EVENT (TOGGLE READ-MEM-OFF READ-MEM T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 READ-MEM . READ-MEM-OFF) (DISABLED-LEMMAS NIL READ-MEM READ-MEM-OFF . T))))) (PUT1-LST (QUOTE READ-MEMP-OFF) (QUOTE (IDATE 1000402215050 EVENT (TOGGLE READ-MEMP-OFF READ-MEMP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 READ-MEMP . READ-MEMP-OFF) (DISABLED-LEMMAS NIL READ-MEMP READ-MEMP-OFF . T))))) (PUT1-LST (QUOTE PC-READ-MEM-OFF) (QUOTE (IDATE 1000402215050 EVENT (TOGGLE PC-READ-MEM-OFF PC-READ-MEM T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PC-READ-MEM . PC-READ-MEM-OFF) (DISABLED-LEMMAS NIL PC-READ-MEM PC-READ-MEM-OFF . T))))) (PUT1-LST (QUOTE PC-READ-MEMP-OFF) (QUOTE (IDATE 1000402215050 EVENT (TOGGLE PC-READ-MEMP-OFF PC-READ-MEMP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PC-READ-MEMP . PC-READ-MEMP-OFF) (DISABLED-LEMMAS NIL PC-READ-MEMP PC-READ-MEMP-OFF . T))))) (PUT1-LST (QUOTE EOR-N-OFF) (QUOTE (IDATE 1000402215050 EVENT (TOGGLE EOR-N-OFF EOR-N T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EOR-N . EOR-N-OFF) (DISABLED-LEMMAS NIL EOR-N EOR-N-OFF . T))))) (PUT1-LST (QUOTE EOR-Z-OFF) (QUOTE (IDATE 1000402215050 EVENT (TOGGLE EOR-Z-OFF EOR-Z T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EOR-Z . EOR-Z-OFF) (DISABLED-LEMMAS NIL EOR-Z EOR-Z-OFF . T))))) (PUT1-LST (QUOTE NOT-N-OFF) (QUOTE (IDATE 1000402215050 EVENT (TOGGLE NOT-N-OFF NOT-N T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NOT-N . NOT-N-OFF) (DISABLED-LEMMAS NIL NOT-N NOT-N-OFF . T))))) (PUT1-LST (QUOTE NOT-Z-OFF) (QUOTE (IDATE 1000402215050 EVENT (TOGGLE NOT-Z-OFF NOT-Z T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NOT-Z . NOT-Z-OFF) (DISABLED-LEMMAS NIL NOT-Z NOT-Z-OFF . T))))) (PUT1-LST (QUOTE SWAP-N-OFF) (QUOTE (IDATE 1000402215050 EVENT (TOGGLE SWAP-N-OFF SWAP-N T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SWAP-N . SWAP-N-OFF) (DISABLED-LEMMAS NIL SWAP-N SWAP-N-OFF . T))))) (PUT1-LST (QUOTE SWAP-Z-OFF) (QUOTE (IDATE 1000402215050 EVENT (TOGGLE SWAP-Z-OFF SWAP-Z T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SWAP-Z . SWAP-Z-OFF) (DISABLED-LEMMAS NIL SWAP-Z SWAP-Z-OFF . T))))) (PUT1-LST (QUOTE EXT-N-OFF) (QUOTE (IDATE 1000402215050 EVENT (TOGGLE EXT-N-OFF EXT-N T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EXT-N . EXT-N-OFF) (DISABLED-LEMMAS NIL EXT-N EXT-N-OFF . T))))) (PUT1-LST (QUOTE EXT-Z-OFF) (QUOTE (IDATE 1000402215050 EVENT (TOGGLE EXT-Z-OFF EXT-Z T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EXT-Z . EXT-Z-OFF) (DISABLED-LEMMAS NIL EXT-Z EXT-Z-OFF . T))))) (PUT1-LST (QUOTE MOVE-N-OFF) (QUOTE (IDATE 1000402215050 EVENT (TOGGLE MOVE-N-OFF MOVE-N T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MOVE-N . MOVE-N-OFF) (DISABLED-LEMMAS NIL MOVE-N MOVE-N-OFF . T))))) (PUT1-LST (QUOTE MOVE-Z-OFF) (QUOTE (IDATE 1000402215050 EVENT (TOGGLE MOVE-Z-OFF MOVE-Z T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MOVE-Z . MOVE-Z-OFF) (DISABLED-LEMMAS NIL MOVE-Z MOVE-Z-OFF . T))))) (PUT1-LST (QUOTE ROXR-N-OFF) (QUOTE (IDATE 1000402215050 EVENT (TOGGLE ROXR-N-OFF ROXR-N T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ROXR-N . ROXR-N-OFF) (DISABLED-LEMMAS NIL ROXR-N ROXR-N-OFF . T))))) (PUT1-LST (QUOTE ROXR-Z-OFF) (QUOTE (IDATE 1000402215050 EVENT (TOGGLE ROXR-Z-OFF ROXR-Z T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ROXR-Z . ROXR-Z-OFF) (DISABLED-LEMMAS NIL ROXR-Z ROXR-Z-OFF . T))))) (PUT1-LST (QUOTE ROXR-C-OFF) (QUOTE (IDATE 1000402215050 EVENT (TOGGLE ROXR-C-OFF ROXR-C T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ROXR-C . ROXR-C-OFF) (DISABLED-LEMMAS NIL ROXR-C ROXR-C-OFF . T))))) (PUT1-LST (QUOTE ROXL-N-OFF) (QUOTE (IDATE 1000402215050 EVENT (TOGGLE ROXL-N-OFF ROXL-N T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ROXL-N . ROXL-N-OFF) (DISABLED-LEMMAS NIL ROXL-N ROXL-N-OFF . T))))) (PUT1-LST (QUOTE ROXL-Z-OFF) (QUOTE (IDATE 1000402215050 EVENT (TOGGLE ROXL-Z-OFF ROXL-Z T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ROXL-Z . ROXL-Z-OFF) (DISABLED-LEMMAS NIL ROXL-Z ROXL-Z-OFF . T))))) (PUT1-LST (QUOTE ROXL-C-OFF) (QUOTE (IDATE 1000402215050 EVENT (TOGGLE ROXL-C-OFF ROXL-C T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ROXL-C . ROXL-C-OFF) (DISABLED-LEMMAS NIL ROXL-C ROXL-C-OFF . T))))) (PUT1-LST (QUOTE ASR-N-OFF) (QUOTE (IDATE 1000402215050 EVENT (TOGGLE ASR-N-OFF ASR-N T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ASR-N . ASR-N-OFF) (DISABLED-LEMMAS NIL ASR-N ASR-N-OFF . T))))) (PUT1-LST (QUOTE ASR-Z-OFF) (QUOTE (IDATE 1000402215050 EVENT (TOGGLE ASR-Z-OFF ASR-Z T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ASR-Z . ASR-Z-OFF) (DISABLED-LEMMAS NIL ASR-Z ASR-Z-OFF . T))))) (PUT1-LST (QUOTE ASR-C-OFF) (QUOTE (IDATE 1000402215050 EVENT (TOGGLE ASR-C-OFF ASR-C T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ASR-C . ASR-C-OFF) (DISABLED-LEMMAS NIL ASR-C ASR-C-OFF . T))))) (PUT1-LST (QUOTE ASL-N-OFF) (QUOTE (IDATE 1000402215050 EVENT (TOGGLE ASL-N-OFF ASL-N T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ASL-N . ASL-N-OFF) (DISABLED-LEMMAS NIL ASL-N ASL-N-OFF . T))))) (PUT1-LST (QUOTE ASL-Z-OFF) (QUOTE (IDATE 1000402215050 EVENT (TOGGLE ASL-Z-OFF ASL-Z T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ASL-Z . ASL-Z-OFF) (DISABLED-LEMMAS NIL ASL-Z ASL-Z-OFF . T))))) (PUT1-LST (QUOTE ASL-V-OFF) (QUOTE (IDATE 1000402215050 EVENT (TOGGLE ASL-V-OFF ASL-V T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ASL-V . ASL-V-OFF) (DISABLED-LEMMAS NIL ASL-V ASL-V-OFF . T))))) (PUT1-LST (QUOTE ASL-C-OFF) (QUOTE (IDATE 1000402215050 EVENT (TOGGLE ASL-C-OFF ASL-C T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ASL-C . ASL-C-OFF) (DISABLED-LEMMAS NIL ASL-C ASL-C-OFF . T))))) (PUT1-LST (QUOTE LSR-N-OFF) (QUOTE (IDATE 1000402215050 EVENT (TOGGLE LSR-N-OFF LSR-N T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LSR-N . LSR-N-OFF) (DISABLED-LEMMAS NIL LSR-N LSR-N-OFF . T))))) (PUT1-LST (QUOTE LSR-Z-OFF) (QUOTE (IDATE 1000402215050 EVENT (TOGGLE LSR-Z-OFF LSR-Z T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LSR-Z . LSR-Z-OFF) (DISABLED-LEMMAS NIL LSR-Z LSR-Z-OFF . T))))) (PUT1-LST (QUOTE LSR-C-OFF) (QUOTE (IDATE 1000402215050 EVENT (TOGGLE LSR-C-OFF LSR-C T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LSR-C . LSR-C-OFF) (DISABLED-LEMMAS NIL LSR-C LSR-C-OFF . T))))) (PUT1-LST (QUOTE LSL-N-OFF) (QUOTE (IDATE 1000402215050 EVENT (TOGGLE LSL-N-OFF LSL-N T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LSL-N . LSL-N-OFF) (DISABLED-LEMMAS NIL LSL-N LSL-N-OFF . T))))) (PUT1-LST (QUOTE LSL-Z-OFF) (QUOTE (IDATE 1000402215050 EVENT (TOGGLE LSL-Z-OFF LSL-Z T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LSL-Z . LSL-Z-OFF) (DISABLED-LEMMAS NIL LSL-Z LSL-Z-OFF . T))))) (PUT1-LST (QUOTE LSL-C-OFF) (QUOTE (IDATE 1000402215050 EVENT (TOGGLE LSL-C-OFF LSL-C T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LSL-C . LSL-C-OFF) (DISABLED-LEMMAS NIL LSL-C LSL-C-OFF . T))))) (PUT1-LST (QUOTE ROR-N-OFF) (QUOTE (IDATE 1000402215050 EVENT (TOGGLE ROR-N-OFF ROR-N T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ROR-N . ROR-N-OFF) (DISABLED-LEMMAS NIL ROR-N ROR-N-OFF . T))))) (PUT1-LST (QUOTE ROR-Z-OFF) (QUOTE (IDATE 1000402215050 EVENT (TOGGLE ROR-Z-OFF ROR-Z T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ROR-Z . ROR-Z-OFF) (DISABLED-LEMMAS NIL ROR-Z ROR-Z-OFF . T))))) (PUT1-LST (QUOTE ROR-C-OFF) (QUOTE (IDATE 1000402215050 EVENT (TOGGLE ROR-C-OFF ROR-C T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ROR-C . ROR-C-OFF) (DISABLED-LEMMAS NIL ROR-C ROR-C-OFF . T))))) (PUT1-LST (QUOTE ROL-N-OFF) (QUOTE (IDATE 1000402215050 EVENT (TOGGLE ROL-N-OFF ROL-N T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ROL-N . ROL-N-OFF) (DISABLED-LEMMAS NIL ROL-N ROL-N-OFF . T))))) (PUT1-LST (QUOTE ROL-Z-OFF) (QUOTE (IDATE 1000402215050 EVENT (TOGGLE ROL-Z-OFF ROL-Z T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ROL-Z . ROL-Z-OFF) (DISABLED-LEMMAS NIL ROL-Z ROL-Z-OFF . T))))) (PUT1-LST (QUOTE ROL-C-OFF) (QUOTE (IDATE 1000402215050 EVENT (TOGGLE ROL-C-OFF ROL-C T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ROL-C . ROL-C-OFF) (DISABLED-LEMMAS NIL ROL-C ROL-C-OFF . T))))) (PUT1-LST (QUOTE DIVU-N-OFF) (QUOTE (IDATE 1000402215050 EVENT (TOGGLE DIVU-N-OFF DIVU-N T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIVU-N . DIVU-N-OFF) (DISABLED-LEMMAS NIL DIVU-N DIVU-N-OFF . T))))) (PUT1-LST (QUOTE DIVU-Z-OFF) (QUOTE (IDATE 1000402215050 EVENT (TOGGLE DIVU-Z-OFF DIVU-Z T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIVU-Z . DIVU-Z-OFF) (DISABLED-LEMMAS NIL DIVU-Z DIVU-Z-OFF . T))))) (PUT1-LST (QUOTE DIVS-N-OFF) (QUOTE (IDATE 1000402215050 EVENT (TOGGLE DIVS-N-OFF DIVS-N T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIVS-N . DIVS-N-OFF) (DISABLED-LEMMAS NIL DIVS-N DIVS-N-OFF . T))))) (PUT1-LST (QUOTE DIVS-Z-OFF) (QUOTE (IDATE 1000402215050 EVENT (TOGGLE DIVS-Z-OFF DIVS-Z T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIVS-Z . DIVS-Z-OFF) (DISABLED-LEMMAS NIL DIVS-Z DIVS-Z-OFF . T))))) (PUT1-LST (QUOTE OR-N-OFF) (QUOTE (IDATE 1000402215050 EVENT (TOGGLE OR-N-OFF OR-N T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OR-N . OR-N-OFF) (DISABLED-LEMMAS NIL OR-N OR-N-OFF . T))))) (PUT1-LST (QUOTE OR-Z-OFF) (QUOTE (IDATE 1000402215050 EVENT (TOGGLE OR-Z-OFF OR-Z T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OR-Z . OR-Z-OFF) (DISABLED-LEMMAS NIL OR-Z OR-Z-OFF . T))))) (PUT1-LST (QUOTE MULS-N-OFF) (QUOTE (IDATE 1000402215050 EVENT (TOGGLE MULS-N-OFF MULS-N T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MULS-N . MULS-N-OFF) (DISABLED-LEMMAS NIL MULS-N MULS-N-OFF . T))))) (PUT1-LST (QUOTE MULS-Z-OFF) (QUOTE (IDATE 1000402215050 EVENT (TOGGLE MULS-Z-OFF MULS-Z T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MULS-Z . MULS-Z-OFF) (DISABLED-LEMMAS NIL MULS-Z MULS-Z-OFF . T))))) (PUT1-LST (QUOTE MULS-V-OFF) (QUOTE (IDATE 1000402215050 EVENT (TOGGLE MULS-V-OFF MULS-V T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MULS-V . MULS-V-OFF) (DISABLED-LEMMAS NIL MULS-V MULS-V-OFF . T))))) (PUT1-LST (QUOTE MULU-N-OFF) (QUOTE (IDATE 1000402215050 EVENT (TOGGLE MULU-N-OFF MULU-N T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MULU-N . MULU-N-OFF) (DISABLED-LEMMAS NIL MULU-N MULU-N-OFF . T))))) (PUT1-LST (QUOTE MULU-Z-OFF) (QUOTE (IDATE 1000402215050 EVENT (TOGGLE MULU-Z-OFF MULU-Z T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MULU-Z . MULU-Z-OFF) (DISABLED-LEMMAS NIL MULU-Z MULU-Z-OFF . T))))) (PUT1-LST (QUOTE MULU-V-OFF) (QUOTE (IDATE 1000402215050 EVENT (TOGGLE MULU-V-OFF MULU-V T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MULU-V . MULU-V-OFF) (DISABLED-LEMMAS NIL MULU-V MULU-V-OFF . T))))) (PUT1-LST (QUOTE AND-N-OFF) (QUOTE (IDATE 1000402215050 EVENT (TOGGLE AND-N-OFF AND-N T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 AND-N . AND-N-OFF) (DISABLED-LEMMAS NIL AND-N AND-N-OFF . T))))) (PUT1-LST (QUOTE AND-Z-OFF) (QUOTE (IDATE 1000402215050 EVENT (TOGGLE AND-Z-OFF AND-Z T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 AND-Z . AND-Z-OFF) (DISABLED-LEMMAS NIL AND-Z AND-Z-OFF . T))))) (PUT1-LST (QUOTE SUBX-N-OFF) (QUOTE (IDATE 1000402215050 EVENT (TOGGLE SUBX-N-OFF SUBX-N T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUBX-N . SUBX-N-OFF) (DISABLED-LEMMAS NIL SUBX-N SUBX-N-OFF . T))))) (PUT1-LST (QUOTE SUBX-Z-OFF) (QUOTE (IDATE 1000402215050 EVENT (TOGGLE SUBX-Z-OFF SUBX-Z T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUBX-Z . SUBX-Z-OFF) (DISABLED-LEMMAS NIL SUBX-Z SUBX-Z-OFF . T))))) (PUT1-LST (QUOTE SUBX-V-OFF) (QUOTE (IDATE 1000402215050 EVENT (TOGGLE SUBX-V-OFF SUBX-V T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUBX-V . SUBX-V-OFF) (DISABLED-LEMMAS NIL SUBX-V SUBX-V-OFF . T))))) (PUT1-LST (QUOTE SUB-N-OFF) (QUOTE (IDATE 1000402215050 EVENT (TOGGLE SUB-N-OFF SUB-N T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUB-N . SUB-N-OFF) (DISABLED-LEMMAS NIL SUB-N SUB-N-OFF . T))))) (PUT1-LST (QUOTE SUB-V-OFF) (QUOTE (IDATE 1000402215050 EVENT (TOGGLE SUB-V-OFF SUB-V T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUB-V . SUB-V-OFF) (DISABLED-LEMMAS NIL SUB-V SUB-V-OFF . T))))) (PUT1-LST (QUOTE ADDX-N-OFF) (QUOTE (IDATE 1000402215050 EVENT (TOGGLE ADDX-N-OFF ADDX-N T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ADDX-N . ADDX-N-OFF) (DISABLED-LEMMAS NIL ADDX-N ADDX-N-OFF . T))))) (PUT1-LST (QUOTE ADDX-Z-OFF) (QUOTE (IDATE 1000402215050 EVENT (TOGGLE ADDX-Z-OFF ADDX-Z T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ADDX-Z . ADDX-Z-OFF) (DISABLED-LEMMAS NIL ADDX-Z ADDX-Z-OFF . T))))) (PUT1-LST (QUOTE ADDX-V-OFF) (QUOTE (IDATE 1000402215050 EVENT (TOGGLE ADDX-V-OFF ADDX-V T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ADDX-V . ADDX-V-OFF) (DISABLED-LEMMAS NIL ADDX-V ADDX-V-OFF . T))))) (PUT1-LST (QUOTE ADD-N-OFF) (QUOTE (IDATE 1000402215050 EVENT (TOGGLE ADD-N-OFF ADD-N T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ADD-N . ADD-N-OFF) (DISABLED-LEMMAS NIL ADD-N ADD-N-OFF . T))))) (PUT1-LST (QUOTE ADD-Z-OFF) (QUOTE (IDATE 1000402215050 EVENT (TOGGLE ADD-Z-OFF ADD-Z T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ADD-Z . ADD-Z-OFF) (DISABLED-LEMMAS NIL ADD-Z ADD-Z-OFF . T))))) (PUT1-LST (QUOTE ADD-V-OFF) (QUOTE (IDATE 1000402215050 EVENT (TOGGLE ADD-V-OFF ADD-V T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ADD-V . ADD-V-OFF) (DISABLED-LEMMAS NIL ADD-V ADD-V-OFF . T))))) (PUT1-LST (QUOTE FIX-BIT-OFF) (QUOTE (IDATE 1000402215050 EVENT (TOGGLE FIX-BIT-OFF FIX-BIT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FIX-BIT . FIX-BIT-OFF) (DISABLED-LEMMAS NIL FIX-BIT FIX-BIT-OFF . T))))) (PUT1-LST (QUOTE ASR-OFF) (QUOTE (IDATE 1000402215050 EVENT (TOGGLE ASR-OFF ASR T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ASR . ASR-OFF) (DISABLED-LEMMAS NIL ASR ASR-OFF . T))))) (PUT1-LST (QUOTE ASL-OFF) (QUOTE (IDATE 1000402215050 EVENT (TOGGLE ASL-OFF ASL T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ASL . ASL-OFF) (DISABLED-LEMMAS NIL ASL ASL-OFF . T))))) (PUT1-LST (QUOTE LSR-OFF) (QUOTE (IDATE 1000402215050 EVENT (TOGGLE LSR-OFF LSR T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LSR . LSR-OFF) (DISABLED-LEMMAS NIL LSR LSR-OFF . T))))) (PUT1-LST (QUOTE LSL-OFF) (QUOTE (IDATE 1000402215050 EVENT (TOGGLE LSL-OFF LSL T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LSL . LSL-OFF) (DISABLED-LEMMAS NIL LSL LSL-OFF . T))))) (PUT1-LST (QUOTE IREM-OFF) (QUOTE (IDATE 1000402215050 EVENT (TOGGLE IREM-OFF IREM T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IREM . IREM-OFF) (DISABLED-LEMMAS NIL IREM IREM-OFF . T))))) (PUT1-LST (QUOTE IQUOT-OFF) (QUOTE (IDATE 1000402215050 EVENT (TOGGLE IQUOT-OFF IQUOT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IQUOT . IQUOT-OFF) (DISABLED-LEMMAS NIL IQUOT IQUOT-OFF . T))))) (PUT1-LST (QUOTE REM-OFF) (QUOTE (IDATE 1000402215050 EVENT (TOGGLE REM-OFF REM T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REM . REM-OFF) (DISABLED-LEMMAS NIL REM REM-OFF . T))))) (PUT1-LST (QUOTE QUOT-OFF) (QUOTE (IDATE 1000402215050 EVENT (TOGGLE QUOT-OFF QUOT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 QUOT . QUOT-OFF) (DISABLED-LEMMAS NIL QUOT QUOT-OFF . T))))) (PUT1-LST (QUOTE MULS-OFF) (QUOTE (IDATE 1000402215050 EVENT (TOGGLE MULS-OFF MULS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MULS . MULS-OFF) (DISABLED-LEMMAS NIL MULS MULS-OFF . T))))) (PUT1-LST (QUOTE MULU-OFF) (QUOTE (IDATE 1000402215050 EVENT (TOGGLE MULU-OFF MULU T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MULU . MULU-OFF) (DISABLED-LEMMAS NIL MULU MULU-OFF . T))))) (PUT1-LST (QUOTE QUOTIENT-EXIT-OFF) (QUOTE (IDATE 1000402215050 EVENT (TOGGLE QUOTIENT-EXIT-OFF QUOTIENT-EXIT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 QUOTIENT-EXIT . QUOTIENT-EXIT-OFF) (DISABLED-LEMMAS NIL QUOTIENT-EXIT QUOTIENT-EXIT-OFF . T))))) (PUT1-LST (QUOTE REMAINDER-EXIT-OFF) (QUOTE (IDATE 1000402215050 EVENT (TOGGLE REMAINDER-EXIT-OFF REMAINDER-EXIT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-EXIT . REMAINDER-EXIT-OFF) (DISABLED-LEMMAS NIL REMAINDER-EXIT REMAINDER-EXIT-OFF . T))))) (PUT1-LST (QUOTE PLUS-ADD1-1-OFF) (QUOTE (IDATE 1000402215050 EVENT (TOGGLE PLUS-ADD1-1-OFF PLUS-ADD1-1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-ADD1-1 . PLUS-ADD1-1-OFF) (DISABLED-LEMMAS NIL PLUS-ADD1-1 PLUS-ADD1-1-OFF . T))))) (PUT1-LST (QUOTE READ-MEM-PLUS-OFF) (QUOTE (IDATE 1000402215050 EVENT (TOGGLE READ-MEM-PLUS-OFF READ-MEM-PLUS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 READ-MEM-PLUS . READ-MEM-PLUS-OFF) (DISABLED-LEMMAS NIL READ-MEM-PLUS READ-MEM-PLUS-OFF . T))))) (PUT1-LST (QUOTE STEPN-MEM-ILST) (QUOTE (IDATE 1000402215050 EVENT (PROVE-LEMMA STEPN-MEM-ILST (REWRITE) (IMPLIES (EQUAL (READM-MEM OPSZ X (MC-MEM (STEPN S N)) K) (READM-MEM OPSZ X (MC-MEM S) K)) (EQUAL (MEM-ILST OPSZ X (MC-MEM (STEPN S N)) K LST) (MEM-ILST OPSZ X (MC-MEM S) K LST))) ((DISABLE STEPN))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 READ-MEM . STEPN-MEM-ILST) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . STEPN-MEM-ILST) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . STEPN-MEM-ILST) (IMMEDIATE-DEPENDENTS0 STEPN-READM-MEM . STEPN-MEM-ILST) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . STEPN-MEM-ILST) (IMMEDIATE-DEPENDENTS0 MEM-ILST . STEPN-MEM-ILST) (IMMEDIATE-DEPENDENTS0 STEPN . STEPN-MEM-ILST) (IMMEDIATE-DEPENDENTS0 MC-MEM . STEPN-MEM-ILST) (IMMEDIATE-DEPENDENTS0 READM-MEM . STEPN-MEM-ILST) (LEMMAS MEM-ILST . STEPN-MEM-ILST))))) (PUT1-LST (QUOTE STEPN-MEM-LST) (QUOTE (IDATE 1000402215050 EVENT (PROVE-LEMMA STEPN-MEM-LST (REWRITE) (IMPLIES (EQUAL (READM-MEM OPSZ X (MC-MEM (STEPN S N)) K) (READM-MEM OPSZ X (MC-MEM S) K)) (EQUAL (MEM-LST OPSZ X (MC-MEM (STEPN S N)) K LST) (MEM-LST OPSZ X (MC-MEM S) K LST))) ((DISABLE STEPN))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 READ-MEM . STEPN-MEM-LST) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . STEPN-MEM-LST) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . STEPN-MEM-LST) (IMMEDIATE-DEPENDENTS0 STEPN-READM-MEM . STEPN-MEM-LST) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . STEPN-MEM-LST) (IMMEDIATE-DEPENDENTS0 MEM-LST . STEPN-MEM-LST) (IMMEDIATE-DEPENDENTS0 STEPN . STEPN-MEM-LST) (IMMEDIATE-DEPENDENTS0 MC-MEM . STEPN-MEM-LST) (IMMEDIATE-DEPENDENTS0 READM-MEM . STEPN-MEM-LST) (LEMMAS MEM-LST . STEPN-MEM-LST))))) (PUT1-LST (QUOTE STEPN-READM-MEM) (QUOTE (IDATE 1000402215050 IMMEDIATE-DEPENDENTS0 (STEPN-MEM-ILST STEPN-MEM-LST) EVENT (PROVE-LEMMA STEPN-READM-MEM (REWRITE) (IMPLIES (EQUAL (READ-MEM X (MC-MEM (STEPN S N)) (TIMES OPSZ K)) (READ-MEM X (MC-MEM S) (TIMES OPSZ K))) (EQUAL (READM-MEM OPSZ X (MC-MEM (STEPN S N)) K) (READM-MEM OPSZ X (MC-MEM S) K))) ((DISABLE STEPN))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-ADD1 . STEPN-READM-MEM) (IMMEDIATE-DEPENDENTS0 READ-MEM-PLUS . STEPN-READM-MEM) (IMMEDIATE-DEPENDENTS0 READ-MEM-NAT-RANGEP . STEPN-READM-MEM) (IMMEDIATE-DEPENDENTS0 HEAD-LEMMA . STEPN-READM-MEM) (IMMEDIATE-DEPENDENTS0 APP-CANCEL . STEPN-READM-MEM) (IMMEDIATE-DEPENDENTS0 L . STEPN-READM-MEM) (IMMEDIATE-DEPENDENTS0 ADD-COMMUTATIVITY . STEPN-READM-MEM) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . STEPN-READM-MEM) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . STEPN-READM-MEM) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . STEPN-READM-MEM) (IMMEDIATE-DEPENDENTS0 READM-MEM . STEPN-READM-MEM) (IMMEDIATE-DEPENDENTS0 STEPN . STEPN-READM-MEM) (IMMEDIATE-DEPENDENTS0 MC-MEM . STEPN-READM-MEM) (IMMEDIATE-DEPENDENTS0 READ-MEM . STEPN-READM-MEM) (LEMMAS READM-MEM . STEPN-READM-MEM))))) (PUT1-LST (QUOTE READ-MEM-PLUS) (QUOTE (IDATE 1000402215050 IMMEDIATE-DEPENDENTS0 (READ-MEM-PLUS-OFF STEPN-READM-MEM) EVENT (PROVE-LEMMA READ-MEM-PLUS (REWRITE) (EQUAL (READ-MEM ADDR MEM (PLUS M K)) (APP (TIMES (QUOTE 8) K) (READ-MEM (ADD (QUOTE 32) ADDR M) MEM K) (READ-MEM ADDR MEM M))) ((INDUCT (READ-MEM ADDR MEM K)) (ENABLE ADD-PLUS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 APP-ASSOCIATIVITY . READ-MEM-PLUS) (IMMEDIATE-DEPENDENTS0 TIMES-ADD1 . READ-MEM-PLUS) (IMMEDIATE-DEPENDENTS0 ADD-ASSOCIATIVITY . READ-MEM-PLUS) (IMMEDIATE-DEPENDENTS0 ADD-PLUS . READ-MEM-PLUS) (IMMEDIATE-DEPENDENTS0 BYTE-READ=READ-MEM-1 . READ-MEM-PLUS) (IMMEDIATE-DEPENDENTS0 B . READ-MEM-PLUS) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . READ-MEM-PLUS) (IMMEDIATE-DEPENDENTS0 APP-0 . READ-MEM-PLUS) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . READ-MEM-PLUS) (IMMEDIATE-DEPENDENTS0 ADD . READ-MEM-PLUS) (IMMEDIATE-DEPENDENTS0 APP . READ-MEM-PLUS) (IMMEDIATE-DEPENDENTS0 READ-MEM . READ-MEM-PLUS) (LEMMAS READ-MEM . READ-MEM-PLUS))))) (PUT1-LST (QUOTE BETWEEN-ILEQ-OFF) (QUOTE (IDATE 1000402215049 EVENT (TOGGLE BETWEEN-ILEQ-OFF BETWEEN-ILEQ T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BETWEEN-ILEQ . BETWEEN-ILEQ-OFF) (DISABLED-LEMMAS NIL BETWEEN-ILEQ BETWEEN-ILEQ-OFF . T))))) (PUT1-LST (QUOTE BETWEEN-ILEQ-LA) (QUOTE (IDATE 1000402215049 EVENT (PROVE-LEMMA BETWEEN-ILEQ-LA (REWRITE) (IMPLIES (AND (INTEGERP X) (AND (INTEGERP Y) (INTEGERP Z))) (EQUAL (BETWEEN-ILEQ X Y Z) (IF (ILESSP Z X) (QUOTE *1*FALSE) (OR (EQUAL X Y) (BETWEEN-ILEQ (IPLUS X (QUOTE 1)) Y Z))))) ((ENABLE IPLUS INTEGERP))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUB1-OF-1 . BETWEEN-ILEQ-LA) (IMMEDIATE-DEPENDENTS0 NEGP . BETWEEN-ILEQ-LA) (IMMEDIATE-DEPENDENTS0 ILEQ . BETWEEN-ILEQ-LA) (IMMEDIATE-DEPENDENTS0 PLUS-ADD1 . BETWEEN-ILEQ-LA) (IMMEDIATE-DEPENDENTS0 IPLUS-COMMUTATIVITY . BETWEEN-ILEQ-LA) (IMMEDIATE-DEPENDENTS0 ILESSP-ENTAILS-ILEQ . BETWEEN-ILEQ-LA) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . BETWEEN-ILEQ-LA) (IMMEDIATE-DEPENDENTS0 NEGATIVEP-GUTS0 . BETWEEN-ILEQ-LA) (IMMEDIATE-DEPENDENTS0 LESSP-OF-1 . BETWEEN-ILEQ-LA) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-SUB1 . BETWEEN-ILEQ-LA) (IMMEDIATE-DEPENDENTS0 IPLUS . BETWEEN-ILEQ-LA) (IMMEDIATE-DEPENDENTS0 ILESSP . BETWEEN-ILEQ-LA) (IMMEDIATE-DEPENDENTS0 BETWEEN-ILEQ . BETWEEN-ILEQ-LA) (IMMEDIATE-DEPENDENTS0 INTEGERP . BETWEEN-ILEQ-LA) (LEMMAS BETWEEN-ILEQ . BETWEEN-ILEQ-LA))))) (PUT1-LST (QUOTE MOD32-EQ-OFF) (QUOTE (IDATE 1000402215049 EVENT (TOGGLE MOD32-EQ-OFF MOD32-EQ T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MOD32-EQ . MOD32-EQ-OFF) (DISABLED-LEMMAS NIL MOD32-EQ MOD32-EQ-OFF . T))))) (PUT1-LST (QUOTE MOD32-EQ-DEDUCTION3) (QUOTE (IDATE 1000402215049 EVENT (PROVE-LEMMA MOD32-EQ-DEDUCTION3 (REWRITE) (EQUAL (MOD32-EQ (ADD (QUOTE 32) X Y) (ADD (QUOTE 32) X Z)) (MOD32-EQ Y Z)) ((USE (ADD-CANCEL (Y (HEAD Y (QUOTE 32))) (Z (HEAD Z (QUOTE 32))) (N (QUOTE 32)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 HEAD-HEAD . MOD32-EQ-DEDUCTION3) (IMMEDIATE-DEPENDENTS0 ADD-NAT-RANGEP . MOD32-EQ-DEDUCTION3) (IMMEDIATE-DEPENDENTS0 HEAD-LEMMA . MOD32-EQ-DEDUCTION3) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-EQUAL-ADD . MOD32-EQ-DEDUCTION3) (IMMEDIATE-DEPENDENTS0 ADD-HEAD . MOD32-EQ-DEDUCTION3) (IMMEDIATE-DEPENDENTS0 ADD-CANCEL . MOD32-EQ-DEDUCTION3) (IMMEDIATE-DEPENDENTS0 ADD . MOD32-EQ-DEDUCTION3) (IMMEDIATE-DEPENDENTS0 MOD32-EQ . MOD32-EQ-DEDUCTION3) (LEMMAS MOD32-EQ . MOD32-EQ-DEDUCTION3))))) (PUT1-LST (QUOTE MOD32-EQ-DEDUCTION2) (QUOTE (IDATE 1000402215049 EVENT (PROVE-LEMMA MOD32-EQ-DEDUCTION2 (REWRITE) (AND (EQUAL (MOD32-EQ X (ADD (QUOTE 32) X Y)) (MOD32-EQ (QUOTE 0) Y)) (EQUAL (MOD32-EQ (ADD (QUOTE 32) X Y) X) (MOD32-EQ Y (QUOTE 0)))) ((USE (ADD-CANCEL0 (X (HEAD X (QUOTE 32))) (Y (HEAD Y (QUOTE 32))) (N (QUOTE 32)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 HEAD-NAT-RANGEP . MOD32-EQ-DEDUCTION2) (IMMEDIATE-DEPENDENTS0 HEAD-HEAD . MOD32-EQ-DEDUCTION2) (IMMEDIATE-DEPENDENTS0 ADD-NAT-RANGEP . MOD32-EQ-DEDUCTION2) (IMMEDIATE-DEPENDENTS0 HEAD-LEMMA . MOD32-EQ-DEDUCTION2) (IMMEDIATE-DEPENDENTS0 HEAD-0 . MOD32-EQ-DEDUCTION2) (IMMEDIATE-DEPENDENTS0 ADD-HEAD . MOD32-EQ-DEDUCTION2) (IMMEDIATE-DEPENDENTS0 ADD-CANCEL0 . MOD32-EQ-DEDUCTION2) (IMMEDIATE-DEPENDENTS0 ADD . MOD32-EQ-DEDUCTION2) (IMMEDIATE-DEPENDENTS0 MOD32-EQ . MOD32-EQ-DEDUCTION2) (LEMMAS MOD32-EQ . MOD32-EQ-DEDUCTION2) (LEMMAS MOD32-EQ . MOD32-EQ-DEDUCTION2))))) (PUT1-LST (QUOTE MOD32-EQ-DEDUCTION1) (QUOTE (IDATE 1000402215049 EVENT (PROVE-LEMMA MOD32-EQ-DEDUCTION1 (REWRITE) (AND (EQUAL (MOD32-EQ (QUOTE 0) (NEG (QUOTE 32) X)) (MOD32-EQ X (QUOTE 0))) (EQUAL (MOD32-EQ (NEG (QUOTE 32) X) (QUOTE 0)) (MOD32-EQ X (QUOTE 0)))) ((USE (SUB-CANCEL0 (X (QUOTE 0)) (Y (HEAD X (QUOTE 32))) (N (QUOTE 32)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NAT-RANGEP . MOD32-EQ-DEDUCTION1) (IMMEDIATE-DEPENDENTS0 HEAD-NAT-RANGEP . MOD32-EQ-DEDUCTION1) (IMMEDIATE-DEPENDENTS0 NEG-HEAD . MOD32-EQ-DEDUCTION1) (IMMEDIATE-DEPENDENTS0 NEG-NAT-RANGEP . MOD32-EQ-DEDUCTION1) (IMMEDIATE-DEPENDENTS0 HEAD-LEMMA . MOD32-EQ-DEDUCTION1) (IMMEDIATE-DEPENDENTS0 ADD-0 . MOD32-EQ-DEDUCTION1) (IMMEDIATE-DEPENDENTS0 SUB-NEG . MOD32-EQ-DEDUCTION1) (IMMEDIATE-DEPENDENTS0 HEAD-0 . MOD32-EQ-DEDUCTION1) (IMMEDIATE-DEPENDENTS0 SUB-CANCEL0 . MOD32-EQ-DEDUCTION1) (IMMEDIATE-DEPENDENTS0 NEG . MOD32-EQ-DEDUCTION1) (IMMEDIATE-DEPENDENTS0 MOD32-EQ . MOD32-EQ-DEDUCTION1) (LEMMAS MOD32-EQ . MOD32-EQ-DEDUCTION1) (LEMMAS MOD32-EQ . MOD32-EQ-DEDUCTION1))))) (PUT1-LST (QUOTE MOD32-EQ-DEDUCTION0) (QUOTE (IDATE 1000402215049 EVENT (PROVE-LEMMA MOD32-EQ-DEDUCTION0 (REWRITE) (MOD32-EQ X X)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MOD32-EQ . MOD32-EQ-DEDUCTION0) (LEMMAS MOD32-EQ . MOD32-EQ-DEDUCTION0))))) (PUT1-LST (QUOTE MMOVN-LST1-0) (QUOTE (IDATE 1000402215049 EVENT (PROVE-LEMMA MMOVN-LST1-0 (REWRITE) (EQUAL (MMOVN-LST1 N LST1 LST2 I (QUOTE 0)) LST1)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MMOVN-LST1 . MMOVN-LST1-0) (LEMMAS MMOVN-LST1 . MMOVN-LST1-0))))) (PUT1-LST (QUOTE MMOVN-LST-0) (QUOTE (IDATE 1000402215049 EVENT (PROVE-LEMMA MMOVN-LST-0 (REWRITE) (EQUAL (MMOVN-LST N LST1 LST2 I (QUOTE 0)) LST1)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MMOVN-LST . MMOVN-LST-0) (LEMMAS MMOVN-LST . MMOVN-LST-0))))) (PUT1-LST (QUOTE MMOV1-LST1-0) (QUOTE (IDATE 1000402215049 EVENT (PROVE-LEMMA MMOV1-LST1-0 (REWRITE) (EQUAL (MMOV1-LST1 I LST1 LST2 (QUOTE 0)) LST1)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MMOV1-LST1 . MMOV1-LST1-0) (LEMMAS MMOV1-LST1 . MMOV1-LST1-0))))) (PUT1-LST (QUOTE MMOV1-LST-0) (QUOTE (IDATE 1000402215049 EVENT (PROVE-LEMMA MMOV1-LST-0 (REWRITE) (EQUAL (MMOV1-LST I LST1 LST2 (QUOTE 0)) LST1)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MMOV1-LST . MMOV1-LST-0) (LEMMAS MMOV1-LST . MMOV1-LST-0))))) (PUT1-LST (QUOTE *1*MMOVN-LST1) (QUOTE (MAIN-EVENT MMOVN-LST1))) (PUT1-LST (QUOTE MMOVN-LST1) (QUOTE (TYPE-PRESCRIPTION-LST ((MMOVN-LST1 16 NIL T NIL NIL NIL)) LEMMAS ((REWRITE-RULE MMOVN-LST1-0 NIL (EQUAL (MMOVN-LST1 N LST1 LST2 I (QUOTE 0)) LST1) NIL)) TOTALP-LST ((MMOVN-LST1 . T)) QUICK-BLOCK-INFO (UNCHANGING SELF-REFLEXIVE UNCHANGING SELF-REFLEXIVE SELF-REFLEXIVE) SDEFN (LAMBDA (H LST1 LST2 I NT) (IF (EQUAL NT (QUOTE 0)) LST1 (IF (NUMBERP NT) (MMOVN-LST1 H (MOVN-LST H LST1 LST2 (DIFFERENCE I H)) LST2 (DIFFERENCE I H) (SUB1 NT)) LST1))) LISP-CODE *1*MMOVN-LST1 SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((ZEROP NT)) NIL) (TESTS-AND-CASES ((NOT (ZEROP NT))) ((H (MOVN-LST H LST1 LST2 (DIFFERENCE I H)) LST2 (DIFFERENCE I H) (SUB1 NT))))) LEVEL-NO 3 JUSTIFICATIONS ((JUSTIFICATION (NT) (COUNT NT) LESSP (ZEROP COUNT-NUMBERP LESSP-SUB1))) IDATE 1000402215049 CONTROLLER-POCKETS (16) SATELLITES (*1*MMOVN-LST1) IMMEDIATE-DEPENDENTS0 (MEMMOVE-4 MMOVN-LST1-0) EVENT (DEFN MMOVN-LST1 (H LST1 LST2 I NT) (IF (ZEROP NT) LST1 (MMOVN-LST1 H (MOVN-LST H LST1 LST2 (DIFFERENCE I H)) LST2 (DIFFERENCE I H) (SUB1 NT)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MOVN-LST . MMOVN-LST1) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . MMOVN-LST1) (DCELL . *1*MMOVN-LST1))))) (PUT1-LST (QUOTE *1*MMOVN-LST) (QUOTE (MAIN-EVENT MMOVN-LST))) (PUT1-LST (QUOTE MMOVN-LST) (QUOTE (TYPE-PRESCRIPTION-LST ((MMOVN-LST 16 NIL T NIL NIL NIL)) LEMMAS ((REWRITE-RULE MMOVN-LST-0 NIL (EQUAL (MMOVN-LST N LST1 LST2 I (QUOTE 0)) LST1) NIL)) TOTALP-LST ((MMOVN-LST . T)) QUICK-BLOCK-INFO (UNCHANGING SELF-REFLEXIVE UNCHANGING SELF-REFLEXIVE SELF-REFLEXIVE) SDEFN (LAMBDA (H LST1 LST2 I NT) (IF (EQUAL NT (QUOTE 0)) LST1 (IF (NUMBERP NT) (MMOVN-LST H (MOVN-LST H LST1 LST2 I) LST2 (PLUS H I) (SUB1 NT)) LST1))) LISP-CODE *1*MMOVN-LST SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((ZEROP NT)) NIL) (TESTS-AND-CASES ((NOT (ZEROP NT))) ((H (MOVN-LST H LST1 LST2 I) LST2 (PLUS H I) (SUB1 NT))))) LEVEL-NO 3 JUSTIFICATIONS ((JUSTIFICATION (NT) (COUNT NT) LESSP (ZEROP COUNT-NUMBERP LESSP-SUB1))) IDATE 1000402215049 CONTROLLER-POCKETS (16) SATELLITES (*1*MMOVN-LST) IMMEDIATE-DEPENDENTS0 (MEMMOVE-1 MMOVN-LST-0) EVENT (DEFN MMOVN-LST (H LST1 LST2 I NT) (IF (ZEROP NT) LST1 (MMOVN-LST H (MOVN-LST H LST1 LST2 I) LST2 (PLUS H I) (SUB1 NT)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MOVN-LST . MMOVN-LST) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . MMOVN-LST) (DCELL . *1*MMOVN-LST))))) (PUT1-LST (QUOTE *1*MOVN-LST) (QUOTE (MAIN-EVENT MOVN-LST))) (PUT1-LST (QUOTE MOVN-LST) (QUOTE (TYPE-PRESCRIPTION-LST ((MOVN-LST 16 NIL T NIL NIL)) TOTALP-LST ((MOVN-LST . T)) SDEFN (LAMBDA (N LST1 LST2 I) (PUT-VALS (GET-VALS I LST2 N) I LST1 N)) LISP-CODE *1*MOVN-LST SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402215049 SATELLITES (*1*MOVN-LST) IMMEDIATE-DEPENDENTS0 (MMOVN-LST1 MMOVN-LST) EVENT (DEFN MOVN-LST (N LST1 LST2 I) (PUT-VALS (GET-VALS I LST2 N) I LST1 N)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 GET-VALS . MOVN-LST) (IMMEDIATE-DEPENDENTS0 PUT-VALS . MOVN-LST) (DCELL . *1*MOVN-LST))))) (PUT1-LST (QUOTE *1*MMOV1-LST1) (QUOTE (MAIN-EVENT MMOV1-LST1))) (PUT1-LST (QUOTE MMOV1-LST1) (QUOTE (TYPE-PRESCRIPTION-LST ((MMOV1-LST1 16 NIL T NIL NIL)) LEMMAS ((REWRITE-RULE MMOV1-LST1-0 NIL (EQUAL (MMOV1-LST1 I LST1 LST2 (QUOTE 0)) LST1) NIL)) TOTALP-LST ((MMOV1-LST1 . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE UNCHANGING SELF-REFLEXIVE) SDEFN (LAMBDA (I LST1 LST2 N) (IF (EQUAL N (QUOTE 0)) LST1 (IF (NUMBERP N) (MMOV1-LST1 (SUB1 I) (PUT-NTH (GET-NTH (SUB1 I) LST2) (SUB1 I) LST1) LST2 (SUB1 N)) LST1))) LISP-CODE *1*MMOV1-LST1 SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((ZEROP N)) NIL) (TESTS-AND-CASES ((NOT (ZEROP N))) (((SUB1 I) (PUT-NTH (GET-NTH (SUB1 I) LST2) (SUB1 I) LST1) LST2 (SUB1 N))))) LEVEL-NO 2 JUSTIFICATIONS ((JUSTIFICATION (N) (COUNT N) LESSP (ZEROP COUNT-NUMBERP LESSP-SUB1))) IDATE 1000402215049 CONTROLLER-POCKETS (8) SATELLITES (*1*MMOV1-LST1) IMMEDIATE-DEPENDENTS0 (MEMMOVE MEMMOVE-3 MEMMOVE-4 MMOV1-LST1-0) EVENT (DEFN MMOV1-LST1 (I LST1 LST2 N) (IF (ZEROP N) LST1 (MMOV1-LST1 (SUB1 I) (PUT-NTH (GET-NTH (SUB1 I) LST2) (SUB1 I) LST1) LST2 (SUB1 N)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 GET-NTH . MMOV1-LST1) (IMMEDIATE-DEPENDENTS0 PUT-NTH . MMOV1-LST1) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . MMOV1-LST1) (DCELL . *1*MMOV1-LST1))))) (PUT1-LST (QUOTE *1*MMOV1-LST) (QUOTE (MAIN-EVENT MMOV1-LST))) (PUT1-LST (QUOTE MMOV1-LST) (QUOTE (TYPE-PRESCRIPTION-LST ((MMOV1-LST 16 NIL T NIL NIL)) LEMMAS ((REWRITE-RULE MMOV1-LST-0 NIL (EQUAL (MMOV1-LST I LST1 LST2 (QUOTE 0)) LST1) NIL)) TOTALP-LST ((MMOV1-LST . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE UNCHANGING SELF-REFLEXIVE) SDEFN (LAMBDA (I LST1 LST2 N) (IF (EQUAL N (QUOTE 0)) LST1 (IF (NUMBERP N) (MMOV1-LST (ADD1 I) (PUT-NTH (GET-NTH I LST2) I LST1) LST2 (SUB1 N)) LST1))) LISP-CODE *1*MMOV1-LST SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((ZEROP N)) NIL) (TESTS-AND-CASES ((NOT (ZEROP N))) (((ADD1 I) (PUT-NTH (GET-NTH I LST2) I LST1) LST2 (SUB1 N))))) LEVEL-NO 2 JUSTIFICATIONS ((JUSTIFICATION (N) (COUNT N) LESSP (ZEROP COUNT-NUMBERP LESSP-SUB1))) IDATE 1000402215049 CONTROLLER-POCKETS (8) SATELLITES (*1*MMOV1-LST) IMMEDIATE-DEPENDENTS0 (MEMMOVE MEMMOVE-0 MEMMOVE-1 MMOV1-LST-0) EVENT (DEFN MMOV1-LST (I LST1 LST2 N) (IF (ZEROP N) LST1 (MMOV1-LST (ADD1 I) (PUT-NTH (GET-NTH I LST2) I LST1) LST2 (SUB1 N)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 GET-NTH . MMOV1-LST) (IMMEDIATE-DEPENDENTS0 PUT-NTH . MMOV1-LST) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . MMOV1-LST) (DCELL . *1*MMOV1-LST))))) (PUT1-LST (QUOTE LSTCPY-CPY1-OFF) (QUOTE (IDATE 1000402215049 EVENT (TOGGLE LSTCPY-CPY1-OFF LSTCPY-CPY1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LSTCPY-CPY1 . LSTCPY-CPY1-OFF) (DISABLED-LEMMAS NIL LSTCPY-CPY1 LSTCPY-CPY1-OFF . T))))) (PUT1-LST (QUOTE PUT-GET-VALS-IS-CPY) (QUOTE (IDATE 1000402215049 EVENT (PROVE-LEMMA PUT-GET-VALS-IS-CPY (REWRITE) (EQUAL (PUT-VALS (GET-VALS I2 LST2 N) I1 LST1 N) (LSTCPY I1 LST1 I2 LST2 N)) ((INDUCT (LSTCPY1 I1 LST1 I2 LST2 N)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 GET-NTH-APPEND . PUT-GET-VALS-IS-CPY) (IMMEDIATE-DEPENDENTS0 GET-NTH . PUT-GET-VALS-IS-CPY) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-X-X . PUT-GET-VALS-IS-CPY) (IMMEDIATE-DEPENDENTS0 GET-VALS-LEN . PUT-GET-VALS-IS-CPY) (IMMEDIATE-DEPENDENTS0 PUT-VALS-APPEND . PUT-GET-VALS-IS-CPY) (IMMEDIATE-DEPENDENTS0 LSTCPY-CPY1 . PUT-GET-VALS-IS-CPY) (IMMEDIATE-DEPENDENTS0 LSTCPY1 . PUT-GET-VALS-IS-CPY) (IMMEDIATE-DEPENDENTS0 LSTCPY . PUT-GET-VALS-IS-CPY) (IMMEDIATE-DEPENDENTS0 GET-VALS . PUT-GET-VALS-IS-CPY) (IMMEDIATE-DEPENDENTS0 PUT-VALS . PUT-GET-VALS-IS-CPY) (LEMMAS PUT-VALS . PUT-GET-VALS-IS-CPY))))) (PUT1-LST (QUOTE PUT-GET-LST-IS-CPY) (QUOTE (IDATE 1000402215049 EVENT (PROVE-LEMMA PUT-GET-LST-IS-CPY (REWRITE) (IMPLIES (MEM-LST OPSZ X MEM N2 LST2) (EQUAL (PUT-LST OPSZ (GET-LST OPSZ I2 LST2 N) I1 LST1 N) (LSTCPY I1 LST1 I2 LST2 N))) ((INDUCT (LSTCPY1 I1 LST1 I2 LST2 N)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 HEAD-APP . PUT-GET-LST-IS-CPY) (IMMEDIATE-DEPENDENTS0 HEAD-LEMMA . PUT-GET-LST-IS-CPY) (IMMEDIATE-DEPENDENTS0 MEM-LST-NUMBERP . PUT-GET-LST-IS-CPY) (IMMEDIATE-DEPENDENTS0 MEM-LST-NAT-RANGEP . PUT-GET-LST-IS-CPY) (IMMEDIATE-DEPENDENTS0 TAIL-APP . PUT-GET-LST-IS-CPY) (IMMEDIATE-DEPENDENTS0 TAIL-OF-0 . PUT-GET-LST-IS-CPY) (IMMEDIATE-DEPENDENTS0 TIMES-DISTRIBUTES-DIFFERENCE1 . PUT-GET-LST-IS-CPY) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . PUT-GET-LST-IS-CPY) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . PUT-GET-LST-IS-CPY) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-LESSP-TIMES . PUT-GET-LST-IS-CPY) (IMMEDIATE-DEPENDENTS0 LSTCPY-CPY1 . PUT-GET-LST-IS-CPY) (IMMEDIATE-DEPENDENTS0 LSTCPY1 . PUT-GET-LST-IS-CPY) (IMMEDIATE-DEPENDENTS0 LSTCPY . PUT-GET-LST-IS-CPY) (IMMEDIATE-DEPENDENTS0 GET-LST . PUT-GET-LST-IS-CPY) (IMMEDIATE-DEPENDENTS0 PUT-LST . PUT-GET-LST-IS-CPY) (IMMEDIATE-DEPENDENTS0 MEM-LST . PUT-GET-LST-IS-CPY) (LEMMAS PUT-LST . PUT-GET-LST-IS-CPY))))) (PUT1-LST (QUOTE LSTCPY-CPY1) (QUOTE (IDATE 1000402215049 IMMEDIATE-DEPENDENTS0 (LSTCPY-CPY1-OFF PUT-GET-VALS-IS-CPY PUT-GET-LST-IS-CPY) EVENT (PROVE-LEMMA LSTCPY-CPY1 (REWRITE) (EQUAL (LSTCPY I1 LST1 I2 LST2 N) (LSTCPY1 I1 LST1 I2 LST2 N))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LSTCPY-ADD1 . LSTCPY-CPY1) (IMMEDIATE-DEPENDENTS0 LSTCPY-0 . LSTCPY-CPY1) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . LSTCPY-CPY1) (IMMEDIATE-DEPENDENTS0 LSTCPY1 . LSTCPY-CPY1) (IMMEDIATE-DEPENDENTS0 LSTCPY . LSTCPY-CPY1) (LEMMAS LSTCPY . LSTCPY-CPY1))))) (PUT1-LST (QUOTE LSTCPY-ADD1) (QUOTE (IDATE 1000402215049 IMMEDIATE-DEPENDENTS0 (LSTCPY-CPY1) EVENT (PROVE-LEMMA LSTCPY-ADD1 (REWRITE) (EQUAL (LSTCPY I1 (PUT-NTH (GET-NTH (PLUS I2 H) LST2) (PLUS I1 H) LST1) I2 LST2 H) (LSTCPY I1 LST1 I2 LST2 (ADD1 H))) ((INDUCT (LSTCPY I1 LST1 I2 LST2 H)) (ENABLE GET-NTH-0 PUT-NTH-0))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PUT-COMMUTATIVITY . LSTCPY-ADD1) (IMMEDIATE-DEPENDENTS0 GET-NTH-0 . LSTCPY-ADD1) (IMMEDIATE-DEPENDENTS0 PUT-NTH-0 . LSTCPY-ADD1) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . LSTCPY-ADD1) (IMMEDIATE-DEPENDENTS0 LSTCPY-0 . LSTCPY-ADD1) (IMMEDIATE-DEPENDENTS0 GET-NTH . LSTCPY-ADD1) (IMMEDIATE-DEPENDENTS0 PUT-NTH . LSTCPY-ADD1) (IMMEDIATE-DEPENDENTS0 LSTCPY . LSTCPY-ADD1) (LEMMAS LSTCPY . LSTCPY-ADD1))))) (PUT1-LST (QUOTE *1*LSTCPY1) (QUOTE (MAIN-EVENT LSTCPY1))) (PUT1-LST (QUOTE LSTCPY1) (QUOTE (TYPE-PRESCRIPTION-LST ((LSTCPY1 16 NIL T NIL NIL NIL)) TOTALP-LST ((LSTCPY1 . T)) QUICK-BLOCK-INFO (UNCHANGING SELF-REFLEXIVE UNCHANGING UNCHANGING SELF-REFLEXIVE) SDEFN (LAMBDA (I1 LST1 I2 LST2 N) (IF (EQUAL N (QUOTE 0)) LST1 (IF (NUMBERP N) (LSTCPY1 I1 (PUT-NTH (GET-NTH (PLUS I2 (SUB1 N)) LST2) (PLUS I1 (SUB1 N)) LST1) I2 LST2 (SUB1 N)) LST1))) LISP-CODE *1*LSTCPY1 SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((ZEROP N)) NIL) (TESTS-AND-CASES ((NOT (ZEROP N))) ((I1 (PUT-NTH (GET-NTH (PLUS I2 (SUB1 N)) LST2) (PLUS I1 (SUB1 N)) LST1) I2 LST2 (SUB1 N))))) LEVEL-NO 2 JUSTIFICATIONS ((JUSTIFICATION (N) (COUNT N) LESSP (ZEROP COUNT-NUMBERP LESSP-SUB1))) IDATE 1000402215048 CONTROLLER-POCKETS (16) SATELLITES (*1*LSTCPY1) IMMEDIATE-DEPENDENTS0 (PUT-GET-VALS-IS-CPY PUT-GET-LST-IS-CPY LSTCPY-CPY1) EVENT (DEFN LSTCPY1 (I1 LST1 I2 LST2 N) (IF (ZEROP N) LST1 (LSTCPY1 I1 (PUT-NTH (GET-NTH (PLUS I2 (SUB1 N)) LST2) (PLUS I1 (SUB1 N)) LST1) I2 LST2 (SUB1 N)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 GET-NTH . LSTCPY1) (IMMEDIATE-DEPENDENTS0 PUT-NTH . LSTCPY1) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . LSTCPY1) (DCELL . *1*LSTCPY1))))) (PUT1-LST (QUOTE LSTCPY-PUT-NTH) (QUOTE (IDATE 1000402215048 EVENT (PROVE-LEMMA LSTCPY-PUT-NTH (REWRITE) (IMPLIES (LESSP I J1) (EQUAL (PUT-NTH V I (LSTCPY J1 LST1 J2 LST2 N)) (LSTCPY J1 (PUT-NTH V I LST1) J2 LST2 N))) ((INDUCT (LSTCPY J1 LST1 J2 LST2 N)) (ENABLE PUT-NTH-0))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PUT-COMMUTATIVITY . LSTCPY-PUT-NTH) (IMMEDIATE-DEPENDENTS0 LSTCPY-0 . LSTCPY-PUT-NTH) (IMMEDIATE-DEPENDENTS0 LSTCPY . LSTCPY-PUT-NTH) (IMMEDIATE-DEPENDENTS0 PUT-NTH . LSTCPY-PUT-NTH) (LEMMAS PUT-NTH . LSTCPY-PUT-NTH))))) (PUT1-LST (QUOTE PUT-COMMUTATIVITY) (QUOTE (IDATE 1000402215048 IMMEDIATE-DEPENDENTS0 (LSTCPY-ADD1 LSTCPY-PUT-NTH) EVENT (PROVE-LEMMA PUT-COMMUTATIVITY (REWRITE) (IMPLIES (LESSP J I) (EQUAL (PUT-NTH V1 I (PUT-NTH V2 J LST)) (PUT-NTH V2 J (PUT-NTH V1 I LST)))) ((ENABLE PUT-NTH))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-OF-1 . PUT-COMMUTATIVITY) (IMMEDIATE-DEPENDENTS0 PUT-NTH . PUT-COMMUTATIVITY) (LEMMAS PUT-NTH . PUT-COMMUTATIVITY))))) (PUT1-LST (QUOTE LSTMCPY-CPY) (QUOTE (IDATE 1000402215048 EVENT (PROVE-LEMMA LSTMCPY-CPY (REWRITE) (EQUAL (LSTMCPY H I1 LST1 I2 LST2 N) (LSTCPY I1 LST1 I2 LST2 (TIMES H N)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-ADD1 . LSTMCPY-CPY) (IMMEDIATE-DEPENDENTS0 LSTCPY-LSTCPY . LSTMCPY-CPY) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . LSTMCPY-CPY) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . LSTMCPY-CPY) (IMMEDIATE-DEPENDENTS0 LSTCPY-0 . LSTMCPY-CPY) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . LSTMCPY-CPY) (IMMEDIATE-DEPENDENTS0 LSTCPY . LSTMCPY-CPY) (IMMEDIATE-DEPENDENTS0 LSTMCPY . LSTMCPY-CPY) (LEMMAS LSTMCPY . LSTMCPY-CPY))))) (PUT1-LST (QUOTE *1*LSTMCPY) (QUOTE (MAIN-EVENT LSTMCPY))) (PUT1-LST (QUOTE LSTMCPY) (QUOTE (TYPE-PRESCRIPTION-LST ((LSTMCPY 16 NIL NIL T NIL NIL NIL)) LEMMAS ((REWRITE-RULE LSTMCPY-CPY NIL (EQUAL (LSTMCPY H I1 LST1 I2 LST2 N) (LSTCPY I1 LST1 I2 LST2 (TIMES H N))) NIL)) TOTALP-LST ((LSTMCPY . T)) QUICK-BLOCK-INFO (UNCHANGING SELF-REFLEXIVE SELF-REFLEXIVE SELF-REFLEXIVE UNCHANGING SELF-REFLEXIVE) SDEFN (LAMBDA (OPSZ I1 LST1 I2 LST2 N) (IF (EQUAL N (QUOTE 0)) LST1 (IF (NUMBERP N) (LSTMCPY OPSZ (PLUS OPSZ I1) (LSTCPY I1 LST1 I2 LST2 OPSZ) (PLUS OPSZ I2) LST2 (SUB1 N)) LST1))) LISP-CODE *1*LSTMCPY SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((ZEROP N)) NIL) (TESTS-AND-CASES ((NOT (ZEROP N))) ((OPSZ (PLUS OPSZ I1) (LSTCPY I1 LST1 I2 LST2 OPSZ) (PLUS OPSZ I2) LST2 (SUB1 N))))) LEVEL-NO 3 JUSTIFICATIONS ((JUSTIFICATION (N) (COUNT N) LESSP (ZEROP COUNT-NUMBERP LESSP-SUB1))) IDATE 1000402215048 CONTROLLER-POCKETS (32) SATELLITES (*1*LSTMCPY) IMMEDIATE-DEPENDENTS0 (LSTMCPY-CPY) EVENT (DEFN LSTMCPY (OPSZ I1 LST1 I2 LST2 N) (IF (ZEROP N) LST1 (LSTMCPY OPSZ (PLUS OPSZ I1) (LSTCPY I1 LST1 I2 LST2 OPSZ) (PLUS OPSZ I2) LST2 (SUB1 N)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LSTCPY . LSTMCPY) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . LSTMCPY) (DCELL . *1*LSTMCPY))))) (PUT1-LST (QUOTE LSTCPY-LSTCPY) (QUOTE (IDATE 1000402215048 IMMEDIATE-DEPENDENTS0 (LSTMCPY-CPY) EVENT (PROVE-LEMMA LSTCPY-LSTCPY (REWRITE) (IMPLIES (AND (EQUAL J1 (PLUS H1 I1)) (EQUAL J2 (PLUS H1 I2))) (EQUAL (LSTCPY J1 (LSTCPY I1 LST1 I2 LST2 H1) J2 LST2 H2) (LSTCPY I1 LST1 I2 LST2 (PLUS H1 H2)))) ((INDUCT (LSTCPY I1 LST1 I2 LST2 H1)) (ENABLE PUT-NTH-0 GET-NTH-0))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 GET-NTH . LSTCPY-LSTCPY) (IMMEDIATE-DEPENDENTS0 GET-NTH-0 . LSTCPY-LSTCPY) (IMMEDIATE-DEPENDENTS0 PUT-NTH . LSTCPY-LSTCPY) (IMMEDIATE-DEPENDENTS0 PUT-NTH-0 . LSTCPY-LSTCPY) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . LSTCPY-LSTCPY) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . LSTCPY-LSTCPY) (IMMEDIATE-DEPENDENTS0 LSTCPY-0 . LSTCPY-LSTCPY) (IMMEDIATE-DEPENDENTS0 PLUS-ADD1-1 . LSTCPY-LSTCPY) (IMMEDIATE-DEPENDENTS0 LSTCPY . LSTCPY-LSTCPY) (LEMMAS LSTCPY . LSTCPY-LSTCPY))))) (PUT1-LST (QUOTE LSTCPY-0) (QUOTE (IDATE 1000402215048 IMMEDIATE-DEPENDENTS0 (LSTCPY-CPY1 LSTCPY-ADD1 LSTCPY-PUT-NTH LSTMCPY-CPY LSTCPY-LSTCPY) EVENT (PROVE-LEMMA LSTCPY-0 (REWRITE) (EQUAL (LSTCPY I1 LST1 I2 LST2 (QUOTE 0)) LST1)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LSTCPY . LSTCPY-0) (LEMMAS LSTCPY . LSTCPY-0))))) (PUT1-LST (QUOTE *1*LSTCPY) (QUOTE (MAIN-EVENT LSTCPY))) (PUT1-LST (QUOTE LSTCPY) (QUOTE (TYPE-PRESCRIPTION-LST ((LSTCPY 16 NIL T NIL NIL NIL)) LEMMAS ((REWRITE-RULE LSTCPY-CPY1 NIL (EQUAL (LSTCPY I1 LST1 I2 LST2 N) (LSTCPY1 I1 LST1 I2 LST2 N)) NIL) (REWRITE-RULE LSTCPY-ADD1 NIL (EQUAL (LSTCPY I1 (PUT-NTH (GET-NTH (PLUS I2 H) LST2) (PLUS I1 H) LST1) I2 LST2 H) (LSTCPY I1 LST1 I2 LST2 (ADD1 H))) NIL) (REWRITE-RULE LSTCPY-LSTCPY ((EQUAL J1 (PLUS H1 I1)) (EQUAL J2 (PLUS H1 I2))) (EQUAL (LSTCPY J1 (LSTCPY I1 LST1 I2 LST2 H1) J2 LST2 H2) (LSTCPY I1 LST1 I2 LST2 (PLUS H1 H2))) NIL) (REWRITE-RULE LSTCPY-0 NIL (EQUAL (LSTCPY I1 LST1 I2 LST2 (QUOTE 0)) LST1) NIL)) TOTALP-LST ((LSTCPY . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE SELF-REFLEXIVE UNCHANGING SELF-REFLEXIVE) SDEFN (LAMBDA (I1 LST1 I2 LST2 N) (IF (EQUAL N (QUOTE 0)) LST1 (IF (NUMBERP N) (LSTCPY (ADD1 I1) (PUT-NTH (GET-NTH I2 LST2) I1 LST1) (ADD1 I2) LST2 (SUB1 N)) LST1))) LISP-CODE *1*LSTCPY SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((ZEROP N)) NIL) (TESTS-AND-CASES ((NOT (ZEROP N))) (((ADD1 I1) (PUT-NTH (GET-NTH I2 LST2) I1 LST1) (ADD1 I2) LST2 (SUB1 N))))) LEVEL-NO 2 JUSTIFICATIONS ((JUSTIFICATION (N) (COUNT N) LESSP (ZEROP COUNT-NUMBERP LESSP-SUB1))) IDATE 1000402215048 CONTROLLER-POCKETS (16) SATELLITES (*1*LSTCPY) IMMEDIATE-DEPENDENTS0 (PUT-GET-VALS-IS-CPY PUT-GET-LST-IS-CPY LSTCPY-CPY1 LSTCPY-ADD1 LSTCPY-PUT-NTH LSTMCPY-CPY LSTMCPY LSTCPY-LSTCPY LSTCPY-0) EVENT (DEFN LSTCPY (I1 LST1 I2 LST2 N) (IF (ZEROP N) LST1 (LSTCPY (ADD1 I1) (PUT-NTH (GET-NTH I2 LST2) I1 LST1) (ADD1 I2) LST2 (SUB1 N)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 GET-NTH . LSTCPY) (IMMEDIATE-DEPENDENTS0 PUT-NTH . LSTCPY) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . LSTCPY) (DCELL . *1*LSTCPY))))) (PUT1-LST (QUOTE PLUS-DIFFERENCE-OFF) (QUOTE (IDATE 1000402215048 EVENT (TOGGLE PLUS-DIFFERENCE-OFF PLUS-DIFFERENCE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-DIFFERENCE . PLUS-DIFFERENCE-OFF) (DISABLED-LEMMAS NIL PLUS-DIFFERENCE PLUS-DIFFERENCE-OFF . T))))) (PUT1-LST (QUOTE MEM-LST-LEN-OFF) (QUOTE (IDATE 1000402215048 EVENT (TOGGLE MEM-LST-LEN-OFF MEM-LST-LEN T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MEM-LST-LEN . MEM-LST-LEN-OFF) (DISABLED-LEMMAS NIL MEM-LST-LEN MEM-LST-LEN-OFF . T))))) (PUT1-LST (QUOTE MEM-LST-MCDR-UINT-1) (QUOTE (IDATE 1000402215048 EVENT (PROVE-LEMMA MEM-LST-MCDR-UINT-1 (REWRITE) (IMPLIES (AND (MEM-LST OPSZ (ADD (QUOTE 32) A B) MEM (DIFFERENCE N J) (MCDR K LST)) (AND (EQUAL (NAT-TO-UINT I) (TIMES OPSZ M)) (NOT (ZEROP OPSZ)))) (MEM-LST OPSZ (ADD (QUOTE 32) A (ADD (QUOTE 32) B I)) MEM (DIFFERENCE N (PLUS M J)) (MCDR (PLUS M K) LST))) ((USE (MEM-LST-MCDR-UINT (A (ADD (QUOTE 32) A B)) (N (DIFFERENCE N J)) (LST (MCDR K LST)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-ZERO . MEM-LST-MCDR-UINT-1) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . MEM-LST-MCDR-UINT-1) (IMMEDIATE-DEPENDENTS0 TIMES-EQUAL-0 . MEM-LST-MCDR-UINT-1) (IMMEDIATE-DEPENDENTS0 ADD-NON-NUMBERP . MEM-LST-MCDR-UINT-1) (IMMEDIATE-DEPENDENTS0 ADD-HEAD . MEM-LST-MCDR-UINT-1) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . MEM-LST-MCDR-UINT-1) (IMMEDIATE-DEPENDENTS0 MCDR-MCDR . MEM-LST-MCDR-UINT-1) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-DIFFERENCE1 . MEM-LST-MCDR-UINT-1) (IMMEDIATE-DEPENDENTS0 ADD-ASSOCIATIVITY . MEM-LST-MCDR-UINT-1) (IMMEDIATE-DEPENDENTS0 MEM-LST-MCDR-UINT . MEM-LST-MCDR-UINT-1) (IMMEDIATE-DEPENDENTS0 NAT-TO-UINT . MEM-LST-MCDR-UINT-1) (IMMEDIATE-DEPENDENTS0 MCDR . MEM-LST-MCDR-UINT-1) (IMMEDIATE-DEPENDENTS0 ADD . MEM-LST-MCDR-UINT-1) (IMMEDIATE-DEPENDENTS0 MEM-LST . MEM-LST-MCDR-UINT-1) (LEMMAS MEM-LST . MEM-LST-MCDR-UINT-1))))) (PUT1-LST (QUOTE MEM-LST-MCDR-1) (QUOTE (IDATE 1000402215048 EVENT (PROVE-LEMMA MEM-LST-MCDR-1 (REWRITE) (IMPLIES (MEM-LST (QUOTE 1) (ADD (QUOTE 32) X I) MEM (DIFFERENCE N J) (MCDR K LST)) (MEM-LST (QUOTE 1) (ADD (QUOTE 32) X (ADD (QUOTE 32) I (QUOTE 1))) MEM (DIFFERENCE (SUB1 N) J) (MCDR (ADD1 K) LST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CDR-MCDR . MEM-LST-MCDR-1) (IMMEDIATE-DEPENDENTS0 LEN . MEM-LST-MCDR-1) (IMMEDIATE-DEPENDENTS0 MCDR-LISTP-LEN . MEM-LST-MCDR-1) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-SUB1-SUB1 . MEM-LST-MCDR-1) (IMMEDIATE-DEPENDENTS0 ADD-ASSOCIATIVITY . MEM-LST-MCDR-1) (IMMEDIATE-DEPENDENTS0 L . MEM-LST-MCDR-1) (IMMEDIATE-DEPENDENTS0 DIFFERENCE=0 . MEM-LST-MCDR-1) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . MEM-LST-MCDR-1) (IMMEDIATE-DEPENDENTS0 ADD-COMMUTATIVITY . MEM-LST-MCDR-1) (IMMEDIATE-DEPENDENTS0 ADD-COMMUTATIVITY1 . MEM-LST-MCDR-1) (IMMEDIATE-DEPENDENTS0 MCDR . MEM-LST-MCDR-1) (IMMEDIATE-DEPENDENTS0 ADD . MEM-LST-MCDR-1) (IMMEDIATE-DEPENDENTS0 MEM-LST . MEM-LST-MCDR-1) (LEMMAS MEM-LST . MEM-LST-MCDR-1))))) (PUT1-LST (QUOTE MEM-LST-MCDR-UINT) (QUOTE (IDATE 1000402215048 IMMEDIATE-DEPENDENTS0 (MEM-LST-MCDR-UINT-1) EVENT (PROVE-LEMMA MEM-LST-MCDR-UINT (REWRITE) (IMPLIES (AND (MEM-LST OPSZ A MEM N LST) (AND (EQUAL (NAT-TO-UINT I) (TIMES OPSZ M)) (NOT (ZEROP OPSZ)))) (MEM-LST OPSZ (ADD (QUOTE 32) A I) MEM (DIFFERENCE N M) (MCDR M LST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-EQUAL-0 . MEM-LST-MCDR-UINT) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . MEM-LST-MCDR-UINT) (IMMEDIATE-DEPENDENTS0 ADD-NON-NUMBERP . MEM-LST-MCDR-UINT) (IMMEDIATE-DEPENDENTS0 HEAD-MEM-LST . MEM-LST-MCDR-UINT) (IMMEDIATE-DEPENDENTS0 MEM-LST-MCDR . MEM-LST-MCDR-UINT) (IMMEDIATE-DEPENDENTS0 MCDR . MEM-LST-MCDR-UINT) (IMMEDIATE-DEPENDENTS0 ADD . MEM-LST-MCDR-UINT) (IMMEDIATE-DEPENDENTS0 NAT-TO-UINT . MEM-LST-MCDR-UINT) (IMMEDIATE-DEPENDENTS0 MEM-LST . MEM-LST-MCDR-UINT) (LEMMAS MEM-LST . MEM-LST-MCDR-UINT))))) (PUT1-LST (QUOTE MEM-LST-MCDR-0) (QUOTE (IDATE 1000402215048 EVENT (PROVE-LEMMA MEM-LST-MCDR-0 (REWRITE) (IMPLIES (MEM-LST OPSZ A MEM N LST) (MEM-LST OPSZ (ADD (QUOTE 32) A OPSZ) MEM (SUB1 N) (MCDR (QUOTE 1) LST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 L . MEM-LST-MCDR-0) (IMMEDIATE-DEPENDENTS0 MCDR . MEM-LST-MCDR-0) (IMMEDIATE-DEPENDENTS0 ADD . MEM-LST-MCDR-0) (IMMEDIATE-DEPENDENTS0 MEM-LST . MEM-LST-MCDR-0) (LEMMAS MEM-LST . MEM-LST-MCDR-0))))) (PUT1-LST (QUOTE MEM-LST-MCDR) (QUOTE (IDATE 1000402215048 IMMEDIATE-DEPENDENTS0 (MEM-LST-MCDR-UINT) EVENT (PROVE-LEMMA MEM-LST-MCDR (REWRITE) (IMPLIES (AND (MEM-LST OPSZ A MEM N LST) (EQUAL I (TIMES OPSZ M))) (MEM-LST OPSZ (ADD (QUOTE 32) A I) MEM (DIFFERENCE N M) (MCDR M LST))) ((USE (MEM-LST-PLUS (N (DIFFERENCE N M)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MEM-LST-LEN . MEM-LST-MCDR) (IMMEDIATE-DEPENDENTS0 MCAR . MEM-LST-MCDR) (IMMEDIATE-DEPENDENTS0 PLUS-DIFFERENCE . MEM-LST-MCDR) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . MEM-LST-MCDR) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . MEM-LST-MCDR) (IMMEDIATE-DEPENDENTS0 MCDR-LISTP-LEN . MEM-LST-MCDR) (IMMEDIATE-DEPENDENTS0 LEN . MEM-LST-MCDR) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . MEM-LST-MCDR) (IMMEDIATE-DEPENDENTS0 ADD-0 . MEM-LST-MCDR) (IMMEDIATE-DEPENDENTS0 ADD-COMMUTATIVITY . MEM-LST-MCDR) (IMMEDIATE-DEPENDENTS0 HEAD-MEM-LST . MEM-LST-MCDR) (IMMEDIATE-DEPENDENTS0 MEM-LST-PLUS . MEM-LST-MCDR) (IMMEDIATE-DEPENDENTS0 MCDR . MEM-LST-MCDR) (IMMEDIATE-DEPENDENTS0 ADD . MEM-LST-MCDR) (IMMEDIATE-DEPENDENTS0 MEM-LST . MEM-LST-MCDR) (LEMMAS MEM-LST . MEM-LST-MCDR))))) (PUT1-LST (QUOTE MEM-LST-LEN) (QUOTE (IDATE 1000402215048 IMMEDIATE-DEPENDENTS0 (MEM-LST-LEN-OFF MEM-LST-MCDR) EVENT (PROVE-LEMMA MEM-LST-LEN (REWRITE) (IMPLIES (MEM-LST OPSZ A MEM N LST) (NOT (LESSP N (LEN LST))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . MEM-LST-LEN) (IMMEDIATE-DEPENDENTS0 LEN . MEM-LST-LEN) (IMMEDIATE-DEPENDENTS0 MEM-LST . MEM-LST-LEN) (LINEAR-LEMMAS LEN . MEM-LST-LEN))))) (PUT1-LST (QUOTE PLUS-DIFFERENCE) (QUOTE (IDATE 1000402215047 IMMEDIATE-DEPENDENTS0 (PLUS-DIFFERENCE-OFF MEM-LST-MCDR) EVENT (PROVE-LEMMA PLUS-DIFFERENCE (REWRITE) (EQUAL (PLUS M (DIFFERENCE N M)) (IF (LESSP N M) (FIX M) (FIX N)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . PLUS-DIFFERENCE) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . PLUS-DIFFERENCE) (LEMMAS PLUS . PLUS-DIFFERENCE))))) (PUT1-LST (QUOTE MEM-LST-MCAR-2) (QUOTE (IDATE 1000402215047 EVENT (PROVE-LEMMA MEM-LST-MCAR-2 (REWRITE) (IMPLIES (AND (MEM-LST OPSZ A MEM N (MCAR N LST)) (IF (LESSP N K) (QUOTE *1*FALSE) (QUOTE *1*TRUE))) (MEM-LST OPSZ A MEM (DIFFERENCE N K) (MCAR (DIFFERENCE N K) LST))) ((USE (MEM-LST-PLUS (LST (MCAR N LST)) (M (DIFFERENCE N K)) (N K))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . MEM-LST-MCAR-2) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS . MEM-LST-MCAR-2) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-PLUS1 . MEM-LST-MCAR-2) (IMMEDIATE-DEPENDENTS0 MCAR-MCAR . MEM-LST-MCAR-2) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . MEM-LST-MCAR-2) (IMMEDIATE-DEPENDENTS0 MEM-LST-PLUS . MEM-LST-MCAR-2) (IMMEDIATE-DEPENDENTS0 MCAR . MEM-LST-MCAR-2) (IMMEDIATE-DEPENDENTS0 MEM-LST . MEM-LST-MCAR-2) (LEMMAS MEM-LST . MEM-LST-MCAR-2))))) (PUT1-LST (QUOTE MEM-LST-MCAR-1) (QUOTE (IDATE 1000402215047 EVENT (PROVE-LEMMA MEM-LST-MCAR-1 (REWRITE) (IMPLIES (MEM-LST OPSZ A MEM N (MCAR N LST)) (MEM-LST OPSZ A MEM (SUB1 N) (MCAR (SUB1 N) LST))) ((USE (MEM-LST-PLUS (LST (MCAR N LST)) (M (SUB1 N)) (N (QUOTE 1)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-OF-1 . MEM-LST-MCAR-1) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . MEM-LST-MCAR-1) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . MEM-LST-MCAR-1) (IMMEDIATE-DEPENDENTS0 ADD-0 . MEM-LST-MCAR-1) (IMMEDIATE-DEPENDENTS0 MCDR . MEM-LST-MCAR-1) (IMMEDIATE-DEPENDENTS0 HEAD-MEM-LST . MEM-LST-MCAR-1) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . MEM-LST-MCAR-1) (IMMEDIATE-DEPENDENTS0 MCAR-MCAR . MEM-LST-MCAR-1) (IMMEDIATE-DEPENDENTS0 CDR-MCDR . MEM-LST-MCAR-1) (IMMEDIATE-DEPENDENTS0 ADD-ASSOCIATIVITY . MEM-LST-MCAR-1) (IMMEDIATE-DEPENDENTS0 ADD-COMMUTATIVITY . MEM-LST-MCAR-1) (IMMEDIATE-DEPENDENTS0 L . MEM-LST-MCAR-1) (IMMEDIATE-DEPENDENTS0 MCDR-LISTP-LEN . MEM-LST-MCAR-1) (IMMEDIATE-DEPENDENTS0 PLUS-ADD1-1 . MEM-LST-MCAR-1) (IMMEDIATE-DEPENDENTS0 MEM-LST-PLUS . MEM-LST-MCAR-1) (IMMEDIATE-DEPENDENTS0 MCAR . MEM-LST-MCAR-1) (IMMEDIATE-DEPENDENTS0 MEM-LST . MEM-LST-MCAR-1) (LEMMAS MEM-LST . MEM-LST-MCAR-1))))) (PUT1-LST (QUOTE MEM-LST-MCAR) (QUOTE (IDATE 1000402215047 EVENT (PROVE-LEMMA MEM-LST-MCAR (REWRITE) (IMPLIES (AND (MEM-LST OPSZ A MEM N LST) (IF (LESSP N K) (QUOTE *1*FALSE) (QUOTE *1*TRUE))) (MEM-LST OPSZ A MEM K (MCAR K LST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 L . MEM-LST-MCAR) (IMMEDIATE-DEPENDENTS0 LESSP-OF-1 . MEM-LST-MCAR) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . MEM-LST-MCAR) (IMMEDIATE-DEPENDENTS0 MCAR . MEM-LST-MCAR) (IMMEDIATE-DEPENDENTS0 MEM-LST . MEM-LST-MCAR) (LEMMAS MEM-LST . MEM-LST-MCAR))))) (PUT1-LST (QUOTE MEM-LST-PLUS) (QUOTE (IDATE 1000402215047 IMMEDIATE-DEPENDENTS0 (MEM-LST-MCDR MEM-LST-MCAR-2 MEM-LST-MCAR-1) EVENT (PROVE-LEMMA MEM-LST-PLUS (REWRITE) (EQUAL (MEM-LST OPSZ A MEM (PLUS M N) LST) (AND (MEM-LST OPSZ A MEM M (MCAR M LST)) (MEM-LST OPSZ (ADD (QUOTE 32) A (TIMES OPSZ M)) MEM N (MCDR M LST)))) ((INDUCT (MEM-LST OPSZ A MEM M LST)) (ENABLE ADD-PLUS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-ADD1 . MEM-LST-PLUS) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . MEM-LST-PLUS) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . MEM-LST-PLUS) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . MEM-LST-PLUS) (IMMEDIATE-DEPENDENTS0 ADD-0 . MEM-LST-PLUS) (IMMEDIATE-DEPENDENTS0 ADD-COMMUTATIVITY . MEM-LST-PLUS) (IMMEDIATE-DEPENDENTS0 HEAD-MEM-LST . MEM-LST-PLUS) (IMMEDIATE-DEPENDENTS0 ADD-PLUS . MEM-LST-PLUS) (IMMEDIATE-DEPENDENTS0 ADD-ASSOCIATIVITY . MEM-LST-PLUS) (IMMEDIATE-DEPENDENTS0 L . MEM-LST-PLUS) (IMMEDIATE-DEPENDENTS0 MCDR . MEM-LST-PLUS) (IMMEDIATE-DEPENDENTS0 ADD . MEM-LST-PLUS) (IMMEDIATE-DEPENDENTS0 MCAR . MEM-LST-PLUS) (IMMEDIATE-DEPENDENTS0 MEM-LST . MEM-LST-PLUS) (LEMMAS MEM-LST . MEM-LST-PLUS))))) (PUT1-LST (QUOTE DISJOINT-LEQ1-UINT-OFF) (QUOTE (IDATE 1000402215047 EVENT (TOGGLE DISJOINT-LEQ1-UINT-OFF DISJOINT-LEQ1-UINT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DISJOINT-LEQ1-UINT . DISJOINT-LEQ1-UINT-OFF) (DISABLED-LEMMAS NIL DISJOINT-LEQ1-UINT DISJOINT-LEQ1-UINT-OFF . T))))) (PUT1-LST (QUOTE DISJOINT-LEQ-UINT-OFF) (QUOTE (IDATE 1000402215047 EVENT (TOGGLE DISJOINT-LEQ-UINT-OFF DISJOINT-LEQ-UINT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DISJOINT-LEQ-UINT . DISJOINT-LEQ-UINT-OFF) (DISABLED-LEMMAS NIL DISJOINT-LEQ-UINT DISJOINT-LEQ-UINT-OFF . T))))) (PUT1-LST (QUOTE DISJOINT-COMMUTATIVITY-OFF) (QUOTE (IDATE 1000402215047 EVENT (TOGGLE DISJOINT-COMMUTATIVITY-OFF DISJOINT-COMMUTATIVITY T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DISJOINT-COMMUTATIVITY . DISJOINT-COMMUTATIVITY-OFF) (DISABLED-LEMMAS NIL DISJOINT-COMMUTATIVITY DISJOINT-COMMUTATIVITY-OFF . T))))) (PUT1-LST (QUOTE DISJOINT0-LEQ-OFF) (QUOTE (IDATE 1000402215047 EVENT (TOGGLE DISJOINT0-LEQ-OFF DISJOINT0-LEQ T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DISJOINT0-LEQ . DISJOINT0-LEQ-OFF) (DISABLED-LEMMAS NIL DISJOINT0-LEQ DISJOINT0-LEQ-OFF . T))))) (PUT1-LST (QUOTE DISJOINT-LEQ1-OFF) (QUOTE (IDATE 1000402215047 EVENT (TOGGLE DISJOINT-LEQ1-OFF DISJOINT-LEQ1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DISJOINT-LEQ1 . DISJOINT-LEQ1-OFF) (DISABLED-LEMMAS NIL DISJOINT-LEQ1 DISJOINT-LEQ1-OFF . T))))) (PUT1-LST (QUOTE DISJOINT-LEQ-OFF) (QUOTE (IDATE 1000402215047 EVENT (TOGGLE DISJOINT-LEQ-OFF DISJOINT-LEQ T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DISJOINT-LEQ . DISJOINT-LEQ-OFF) (DISABLED-LEMMAS NIL DISJOINT-LEQ DISJOINT-LEQ-OFF . T))))) (PUT1-LST (QUOTE DISJOINT-LEQ1-UINT) (QUOTE (IDATE 1000402215047 IMMEDIATE-DEPENDENTS0 (DISJOINT-LEQ1-UINT-OFF) EVENT (PROVE-LEMMA DISJOINT-LEQ1-UINT (REWRITE) (IMPLIES (AND (IF (LESSP (QUOTE 4294967296) (PLUS (NAT-TO-UINT A) M)) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (IF (LESSP (NAT-TO-UINT A) (PLUS (NAT-TO-UINT B) N)) (QUOTE *1*FALSE) (QUOTE *1*TRUE))) (DISJOINT B N A M))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DISJOINT-LEQ-UINT . DISJOINT-LEQ1-UINT) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . DISJOINT-LEQ1-UINT) (IMMEDIATE-DEPENDENTS0 PLUS-EQUAL-0 . DISJOINT-LEQ1-UINT) (IMMEDIATE-DEPENDENTS0 DISJOINT-DEDUCTION0 . DISJOINT-LEQ1-UINT) (IMMEDIATE-DEPENDENTS0 DISJOINT-COMMUTATIVITY . DISJOINT-LEQ1-UINT) (IMMEDIATE-DEPENDENTS0 DISJOINT-LEQ1 . DISJOINT-LEQ1-UINT) (IMMEDIATE-DEPENDENTS0 DISJOINT0 . DISJOINT-LEQ1-UINT) (IMMEDIATE-DEPENDENTS0 DISJOINT . DISJOINT-LEQ1-UINT) (IMMEDIATE-DEPENDENTS0 NAT-TO-UINT . DISJOINT-LEQ1-UINT) (LEMMAS DISJOINT . DISJOINT-LEQ1-UINT))))) (PUT1-LST (QUOTE DISJOINT-LEQ-UINT) (QUOTE (IDATE 1000402215047 IMMEDIATE-DEPENDENTS0 (DISJOINT-LEQ-UINT-OFF DISJOINT-LEQ1-UINT) EVENT (PROVE-LEMMA DISJOINT-LEQ-UINT (REWRITE) (IMPLIES (AND (IF (LESSP (QUOTE 4294967296) (PLUS (NAT-TO-UINT A) M)) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (IF (LESSP (NAT-TO-UINT A) (PLUS (NAT-TO-UINT B) N)) (QUOTE *1*FALSE) (QUOTE *1*TRUE))) (DISJOINT A M B N))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DISJOINT-LEQ . DISJOINT-LEQ-UINT) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . DISJOINT-LEQ-UINT) (IMMEDIATE-DEPENDENTS0 PLUS-EQUAL-0 . DISJOINT-LEQ-UINT) (IMMEDIATE-DEPENDENTS0 DISJOINT-DEDUCTION0 . DISJOINT-LEQ-UINT) (IMMEDIATE-DEPENDENTS0 DISJOINT . DISJOINT-LEQ-UINT) (IMMEDIATE-DEPENDENTS0 NAT-TO-UINT . DISJOINT-LEQ-UINT) (LEMMAS DISJOINT . DISJOINT-LEQ-UINT))))) (PUT1-LST (QUOTE READM-WRITEM-MEM) (QUOTE (IDATE 1000402215047 IMMEDIATE-DEPENDENTS0 (GCD-S-S0) EVENT (PROVE-LEMMA READM-WRITEM-MEM (REWRITE) (IMPLIES (AND (UINT-RANGEP (TIMES OPSZ N) (QUOTE 32)) (EQUAL N (LEN VLST))) (EQUAL (READM-MEM OPSZ ADDR (WRITEM-MEM OPSZ VLST ADDR MEM) N) (MODN-LST (TIMES (QUOTE 8) OPSZ) VLST))) ((DISABLE PLUS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DISJOINT-DEDUCTION1 . READM-WRITEM-MEM) (IMMEDIATE-DEPENDENTS0 DISJOINT-LEQ1 . READM-WRITEM-MEM) (IMMEDIATE-DEPENDENTS0 UINT-RANGEP-LA . READM-WRITEM-MEM) (IMMEDIATE-DEPENDENTS0 READ-WRITE-MEM2 . READM-WRITEM-MEM) (IMMEDIATE-DEPENDENTS0 READ-WRITEM-MEM . READM-WRITEM-MEM) (IMMEDIATE-DEPENDENTS0 TIMES-ADD1 . READM-WRITEM-MEM) (IMMEDIATE-DEPENDENTS0 L . READM-WRITEM-MEM) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . READM-WRITEM-MEM) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . READM-WRITEM-MEM) (IMMEDIATE-DEPENDENTS0 EXP . READM-WRITEM-MEM) (IMMEDIATE-DEPENDENTS0 MODN-LST . READM-WRITEM-MEM) (IMMEDIATE-DEPENDENTS0 WRITEM-MEM . READM-WRITEM-MEM) (IMMEDIATE-DEPENDENTS0 READM-MEM . READM-WRITEM-MEM) (IMMEDIATE-DEPENDENTS0 LEN . READM-WRITEM-MEM) (IMMEDIATE-DEPENDENTS0 UINT-RANGEP . READM-WRITEM-MEM) (LEMMAS READM-MEM . READM-WRITEM-MEM))))) (PUT1-LST (QUOTE MODN-READM-RN) (QUOTE (IDATE 1000402215047 IMMEDIATE-DEPENDENTS0 (GCD-S-S0) EVENT (PROVE-LEMMA MODN-READM-RN (REWRITE) (EQUAL (MODN-LST OPLEN (READM-RN OPLEN RNLST RFILE)) (READM-RN OPLEN RNLST RFILE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 HEAD-READ-RN . MODN-READM-RN) (IMMEDIATE-DEPENDENTS0 READM-RN . MODN-READM-RN) (IMMEDIATE-DEPENDENTS0 MODN-LST . MODN-READM-RN) (LEMMAS MODN-LST . MODN-READM-RN))))) (PUT1-LST (QUOTE *1*MODN-LST) (QUOTE (MAIN-EVENT MODN-LST))) (PUT1-LST (QUOTE MODN-LST) (QUOTE (TYPE-PRESCRIPTION-LST ((MODN-LST 24 NIL NIL)) LEMMAS ((REWRITE-RULE MODN-READM-RN NIL (EQUAL (MODN-LST OPLEN (READM-RN OPLEN RNLST RFILE)) (READM-RN OPLEN RNLST RFILE)) NIL)) TOTALP-LST ((MODN-LST . T)) QUICK-BLOCK-INFO (UNCHANGING SELF-REFLEXIVE) SDEFN (LAMBDA (N LST) (IF (LISTP LST) (CONS (HEAD (CAR LST) N) (MODN-LST N (CDR LST))) (QUOTE NIL))) LISP-CODE *1*MODN-LST SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((NLISTP LST)) NIL) (TESTS-AND-CASES ((NOT (NLISTP LST))) ((N (CDR LST))))) LEVEL-NO 4 JUSTIFICATIONS ((JUSTIFICATION (LST) (COUNT LST) LESSP (CDR-LESSP NLISTP ZERO CDR-LESSEQP))) IDATE 1000402215047 CONTROLLER-POCKETS (2) SATELLITES (*1*MODN-LST) IMMEDIATE-DEPENDENTS0 (READM-WRITEM-MEM MODN-READM-RN) EVENT (DEFN MODN-LST (N LST) (IF (NLISTP LST) (QUOTE NIL) (CONS (HEAD (CAR LST) N) (MODN-LST N (CDR LST))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 HEAD . MODN-LST) (DCELL . *1*MODN-LST))))) (PUT1-LST (QUOTE READM-WRITE-MEM) (QUOTE (IDATE 1000402215047 EVENT (PROVE-LEMMA READM-WRITE-MEM (REWRITE) (IMPLIES (DISJOINT ADDR (TIMES OPSZ N) ADDR1 K) (EQUAL (READM-MEM OPSZ ADDR (WRITE-MEM VALUE ADDR1 MEM K) N) (READM-MEM OPSZ ADDR MEM N))) ((ENABLE TIMES))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DISJOINT-0 . READM-WRITE-MEM) (IMMEDIATE-DEPENDENTS0 READ-WRITE-MEM1 . READM-WRITE-MEM) (IMMEDIATE-DEPENDENTS0 L . READM-WRITE-MEM) (IMMEDIATE-DEPENDENTS0 TIMES-LESSP-CANCEL1 . READM-WRITE-MEM) (IMMEDIATE-DEPENDENTS0 DISJOINT-2~ . READM-WRITE-MEM) (IMMEDIATE-DEPENDENTS0 DISJOINT-COMMUTATIVITY . READM-WRITE-MEM) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . READM-WRITE-MEM) (IMMEDIATE-DEPENDENTS0 DISJOINT-DEDUCTION0 . READM-WRITE-MEM) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . READM-WRITE-MEM) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . READM-WRITE-MEM) (IMMEDIATE-DEPENDENTS0 WRITE-MEM . READM-WRITE-MEM) (IMMEDIATE-DEPENDENTS0 READM-MEM . READM-WRITE-MEM) (IMMEDIATE-DEPENDENTS0 DISJOINT . READM-WRITE-MEM) (LEMMAS READM-MEM . READM-WRITE-MEM))))) (PUT1-LST (QUOTE READ-WRITEM-MEM) (QUOTE (IDATE 1000402215047 IMMEDIATE-DEPENDENTS0 (GCD-S-S0-MEM GCD-S-S0-RFILE GCD-S-S0 READM-WRITEM-MEM) EVENT (PROVE-LEMMA READ-WRITEM-MEM (REWRITE) (IMPLIES (DISJOINT ADDR N ADDR1 (TIMES OPSZ (LEN VLST))) (EQUAL (READ-MEM ADDR (WRITEM-MEM OPSZ VLST ADDR1 MEM) N) (READ-MEM ADDR MEM N))) ((INDUCT (WRITEM-MEM OPSZ VLST ADDR1 MEM)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-ZERO . READ-WRITEM-MEM) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . READ-WRITEM-MEM) (IMMEDIATE-DEPENDENTS0 DISJOINT-DEDUCTION0 . READ-WRITEM-MEM) (IMMEDIATE-DEPENDENTS0 DISJOINT-1 . READ-WRITEM-MEM) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-LESSP-TIMES . READ-WRITEM-MEM) (IMMEDIATE-DEPENDENTS0 DISJOINT-0 . READ-WRITEM-MEM) (IMMEDIATE-DEPENDENTS0 READ-WRITE-MEM1 . READ-WRITEM-MEM) (IMMEDIATE-DEPENDENTS0 TIMES-ADD1 . READ-WRITEM-MEM) (IMMEDIATE-DEPENDENTS0 L . READ-WRITEM-MEM) (IMMEDIATE-DEPENDENTS0 WRITEM-MEM . READ-WRITEM-MEM) (IMMEDIATE-DEPENDENTS0 READ-MEM . READ-WRITEM-MEM) (IMMEDIATE-DEPENDENTS0 LEN . READ-WRITEM-MEM) (IMMEDIATE-DEPENDENTS0 DISJOINT . READ-WRITEM-MEM) (LEMMAS READ-MEM . READ-WRITEM-MEM))))) (PUT1-LST (QUOTE WRITEM-ELSE-MEM-ILST) (QUOTE (IDATE 1000402215046 EVENT (PROVE-LEMMA WRITEM-ELSE-MEM-ILST (REWRITE) (IMPLIES (DISJOINT A (TIMES OPSZ N) ADDR (TIMES OPSZ1 (LEN VLST))) (EQUAL (MEM-ILST OPSZ A (WRITEM-MEM OPSZ1 VLST ADDR MEM) N LST) (MEM-ILST OPSZ A MEM N LST))) ((INDUCT (WRITEM-MEM OPSZ1 VLST ADDR MEM)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-ZERO . WRITEM-ELSE-MEM-ILST) (IMMEDIATE-DEPENDENTS0 DISJOINT-DEDUCTION0 . WRITEM-ELSE-MEM-ILST) (IMMEDIATE-DEPENDENTS0 DISJOINT-1 . WRITEM-ELSE-MEM-ILST) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . WRITEM-ELSE-MEM-ILST) (IMMEDIATE-DEPENDENTS0 DISJOINT-0 . WRITEM-ELSE-MEM-ILST) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-LESSP-TIMES . WRITEM-ELSE-MEM-ILST) (IMMEDIATE-DEPENDENTS0 WRITE-ELSE-MEM-ILST . WRITEM-ELSE-MEM-ILST) (IMMEDIATE-DEPENDENTS0 TIMES-ADD1 . WRITEM-ELSE-MEM-ILST) (IMMEDIATE-DEPENDENTS0 L . WRITEM-ELSE-MEM-ILST) (IMMEDIATE-DEPENDENTS0 WRITEM-MEM . WRITEM-ELSE-MEM-ILST) (IMMEDIATE-DEPENDENTS0 MEM-ILST . WRITEM-ELSE-MEM-ILST) (IMMEDIATE-DEPENDENTS0 LEN . WRITEM-ELSE-MEM-ILST) (IMMEDIATE-DEPENDENTS0 DISJOINT . WRITEM-ELSE-MEM-ILST) (LEMMAS MEM-ILST . WRITEM-ELSE-MEM-ILST))))) (PUT1-LST (QUOTE WRITEM-ELSE-MEM-LST) (QUOTE (IDATE 1000402215046 EVENT (PROVE-LEMMA WRITEM-ELSE-MEM-LST (REWRITE) (IMPLIES (DISJOINT ADDR (TIMES OPSZ1 (LEN VLST)) A (TIMES OPSZ N)) (EQUAL (MEM-LST OPSZ A (WRITEM-MEM OPSZ1 VLST ADDR MEM) N LST) (MEM-LST OPSZ A MEM N LST))) ((INDUCT (WRITEM-MEM OPSZ1 VLST ADDR MEM)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-ZERO . WRITEM-ELSE-MEM-LST) (IMMEDIATE-DEPENDENTS0 DISJOINT-DEDUCTION0 . WRITEM-ELSE-MEM-LST) (IMMEDIATE-DEPENDENTS0 DISJOINT-1 . WRITEM-ELSE-MEM-LST) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . WRITEM-ELSE-MEM-LST) (IMMEDIATE-DEPENDENTS0 DISJOINT-COMMUTATIVITY . WRITEM-ELSE-MEM-LST) (IMMEDIATE-DEPENDENTS0 DISJOINT-0~ . WRITEM-ELSE-MEM-LST) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-LESSP-TIMES . WRITEM-ELSE-MEM-LST) (IMMEDIATE-DEPENDENTS0 WRITE-ELSE-MEM-LST . WRITEM-ELSE-MEM-LST) (IMMEDIATE-DEPENDENTS0 TIMES-ADD1 . WRITEM-ELSE-MEM-LST) (IMMEDIATE-DEPENDENTS0 L . WRITEM-ELSE-MEM-LST) (IMMEDIATE-DEPENDENTS0 WRITEM-MEM . WRITEM-ELSE-MEM-LST) (IMMEDIATE-DEPENDENTS0 MEM-LST . WRITEM-ELSE-MEM-LST) (IMMEDIATE-DEPENDENTS0 LEN . WRITEM-ELSE-MEM-LST) (IMMEDIATE-DEPENDENTS0 DISJOINT . WRITEM-ELSE-MEM-LST) (LEMMAS MEM-LST . WRITEM-ELSE-MEM-LST))))) (PUT1-LST (QUOTE WRITEM-MEM-MCODE-ADDRP) (QUOTE (IDATE 1000402215046 IMMEDIATE-DEPENDENTS0 (GCD-S-S0) EVENT (PROVE-LEMMA WRITEM-MEM-MCODE-ADDRP (REWRITE) (IMPLIES (AND (PC-READ-MEMP PC MEM (LEN LST)) (WRITE-MEMP ADDR MEM (TIMES OPSZ (LEN VLST)))) (EQUAL (MCODE-ADDRP PC (WRITEM-MEM OPSZ VLST ADDR MEM) LST) (MCODE-ADDRP PC MEM LST))) ((INDUCT (WRITEM-MEM OPSZ VLST ADDR MEM)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-ZERO . WRITEM-MEM-MCODE-ADDRP) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . WRITEM-MEM-MCODE-ADDRP) (IMMEDIATE-DEPENDENTS0 WRITE-MEMP-LA3 . WRITEM-MEM-MCODE-ADDRP) (IMMEDIATE-DEPENDENTS0 PC-READ-MEMP-LA2 . WRITEM-MEM-MCODE-ADDRP) (IMMEDIATE-DEPENDENTS0 WRITE-MEMP-LA2 . WRITEM-MEM-MCODE-ADDRP) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-LESSP-TIMES . WRITEM-MEM-MCODE-ADDRP) (IMMEDIATE-DEPENDENTS0 WRITE-MEM-MCODE-ADDRP . WRITEM-MEM-MCODE-ADDRP) (IMMEDIATE-DEPENDENTS0 TIMES-ADD1 . WRITEM-MEM-MCODE-ADDRP) (IMMEDIATE-DEPENDENTS0 WRITE-MEM-MAINTAIN-WRITE-MEMP . WRITEM-MEM-MCODE-ADDRP) (IMMEDIATE-DEPENDENTS0 L . WRITEM-MEM-MCODE-ADDRP) (IMMEDIATE-DEPENDENTS0 WRITE-MEM-MAINTAIN-PC-READ-MEMP . WRITEM-MEM-MCODE-ADDRP) (IMMEDIATE-DEPENDENTS0 WRITEM-MEM . WRITEM-MEM-MCODE-ADDRP) (IMMEDIATE-DEPENDENTS0 MCODE-ADDRP . WRITEM-MEM-MCODE-ADDRP) (IMMEDIATE-DEPENDENTS0 WRITE-MEMP . WRITEM-MEM-MCODE-ADDRP) (IMMEDIATE-DEPENDENTS0 LEN . WRITEM-MEM-MCODE-ADDRP) (IMMEDIATE-DEPENDENTS0 PC-READ-MEMP . WRITEM-MEM-MCODE-ADDRP) (LEMMAS MCODE-ADDRP . WRITEM-MEM-MCODE-ADDRP))))) (PUT1-LST (QUOTE PC-READ-MEM-WRITEM-MEM) (QUOTE (IDATE 1000402215046 IMMEDIATE-DEPENDENTS0 (GCD-S-S0-MEM GCD-S-S0-RFILE GCD-S-S0) EVENT (PROVE-LEMMA PC-READ-MEM-WRITEM-MEM (REWRITE) (IMPLIES (AND (WRITE-MEMP ADDR MEM (TIMES OPSZ (LEN VLST))) (PC-READ-MEMP X MEM N)) (EQUAL (PC-READ-MEM X (WRITEM-MEM OPSZ VLST ADDR MEM) N) (PC-READ-MEM X MEM N))) ((INDUCT (WRITEM-MEM OPSZ VLST ADDR MEM)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-ZERO . PC-READ-MEM-WRITEM-MEM) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . PC-READ-MEM-WRITEM-MEM) (IMMEDIATE-DEPENDENTS0 WRITE-MEMP-LA3 . PC-READ-MEM-WRITEM-MEM) (IMMEDIATE-DEPENDENTS0 PC-READ-MEMP-LA2 . PC-READ-MEM-WRITEM-MEM) (IMMEDIATE-DEPENDENTS0 WRITE-MEMP-LA2 . PC-READ-MEM-WRITEM-MEM) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-LESSP-TIMES . PC-READ-MEM-WRITEM-MEM) (IMMEDIATE-DEPENDENTS0 PC-READ-MEM-WRITE-MEM . PC-READ-MEM-WRITEM-MEM) (IMMEDIATE-DEPENDENTS0 TIMES-ADD1 . PC-READ-MEM-WRITEM-MEM) (IMMEDIATE-DEPENDENTS0 WRITE-MEM-MAINTAIN-PC-READ-MEMP . PC-READ-MEM-WRITEM-MEM) (IMMEDIATE-DEPENDENTS0 WRITE-MEM-MAINTAIN-WRITE-MEMP . PC-READ-MEM-WRITEM-MEM) (IMMEDIATE-DEPENDENTS0 L . PC-READ-MEM-WRITEM-MEM) (IMMEDIATE-DEPENDENTS0 WRITEM-MEM . PC-READ-MEM-WRITEM-MEM) (IMMEDIATE-DEPENDENTS0 PC-READ-MEM . PC-READ-MEM-WRITEM-MEM) (IMMEDIATE-DEPENDENTS0 PC-READ-MEMP . PC-READ-MEM-WRITEM-MEM) (IMMEDIATE-DEPENDENTS0 LEN . PC-READ-MEM-WRITEM-MEM) (IMMEDIATE-DEPENDENTS0 WRITE-MEMP . PC-READ-MEM-WRITEM-MEM) (LEMMAS PC-READ-MEM . PC-READ-MEM-WRITEM-MEM))))) (PUT1-LST (QUOTE WRITEM-MEM-MAINTAIN-RAM-ADDRP) (QUOTE (IDATE 1000402215046 IMMEDIATE-DEPENDENTS0 (GCD-S-S0) EVENT (PROVE-LEMMA WRITEM-MEM-MAINTAIN-RAM-ADDRP (REWRITE) (EQUAL (RAM-ADDRP X (WRITEM-MEM OPSZ VLST ADDR MEM) N) (RAM-ADDRP X MEM N))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 WRITE-MEM-MAINTAIN-RAM-ADDRP . WRITEM-MEM-MAINTAIN-RAM-ADDRP) (IMMEDIATE-DEPENDENTS0 WRITEM-MEM . WRITEM-MEM-MAINTAIN-RAM-ADDRP) (IMMEDIATE-DEPENDENTS0 RAM-ADDRP . WRITEM-MEM-MAINTAIN-RAM-ADDRP) (LEMMAS RAM-ADDRP . WRITEM-MEM-MAINTAIN-RAM-ADDRP))))) (PUT1-LST (QUOTE WRITEM-MEM-MAINTAIN-ROM-ADDRP) (QUOTE (IDATE 1000402215046 IMMEDIATE-DEPENDENTS0 (GCD-S-S0) EVENT (PROVE-LEMMA WRITEM-MEM-MAINTAIN-ROM-ADDRP (REWRITE) (EQUAL (ROM-ADDRP X (WRITEM-MEM OPSZ VLST ADDR MEM) N) (ROM-ADDRP X MEM N))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 WRITE-MEM-MAINTAIN-ROM-ADDRP . WRITEM-MEM-MAINTAIN-ROM-ADDRP) (IMMEDIATE-DEPENDENTS0 WRITEM-MEM . WRITEM-MEM-MAINTAIN-ROM-ADDRP) (IMMEDIATE-DEPENDENTS0 ROM-ADDRP . WRITEM-MEM-MAINTAIN-ROM-ADDRP) (LEMMAS ROM-ADDRP . WRITEM-MEM-MAINTAIN-ROM-ADDRP))))) (PUT1-LST (QUOTE WRITEM-MEM-MAINTAIN-WRITE-MEMP) (QUOTE (IDATE 1000402215046 EVENT (PROVE-LEMMA WRITEM-MEM-MAINTAIN-WRITE-MEMP (REWRITE) (EQUAL (WRITE-MEMP X (WRITEM-MEM OPSZ VLST ADDR MEM) N) (WRITE-MEMP X MEM N))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 WRITE-MEM-MAINTAIN-WRITE-MEMP . WRITEM-MEM-MAINTAIN-WRITE-MEMP) (IMMEDIATE-DEPENDENTS0 WRITEM-MEM . WRITEM-MEM-MAINTAIN-WRITE-MEMP) (IMMEDIATE-DEPENDENTS0 WRITE-MEMP . WRITEM-MEM-MAINTAIN-WRITE-MEMP) (LEMMAS WRITE-MEMP . WRITEM-MEM-MAINTAIN-WRITE-MEMP))))) (PUT1-LST (QUOTE WRITEM-MEM-MAINTAIN-BYTE-WRITEP) (QUOTE (IDATE 1000402215046 EVENT (PROVE-LEMMA WRITEM-MEM-MAINTAIN-BYTE-WRITEP (REWRITE) (EQUAL (BYTE-WRITEP X (WRITEM-MEM OPSZ VLST ADDR MEM)) (BYTE-WRITEP X MEM))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 WRITE-MEM-MAINTAIN-WRITE-MEMP . WRITEM-MEM-MAINTAIN-BYTE-WRITEP) (IMMEDIATE-DEPENDENTS0 BYTE-WRITEP=WRITE-MEMP-1 . WRITEM-MEM-MAINTAIN-BYTE-WRITEP) (IMMEDIATE-DEPENDENTS0 WRITEM-MEM . WRITEM-MEM-MAINTAIN-BYTE-WRITEP) (IMMEDIATE-DEPENDENTS0 BYTE-WRITEP . WRITEM-MEM-MAINTAIN-BYTE-WRITEP) (LEMMAS BYTE-WRITEP . WRITEM-MEM-MAINTAIN-BYTE-WRITEP))))) (PUT1-LST (QUOTE WRITEM-MEM-MAINTAIN-READ-MEMP) (QUOTE (IDATE 1000402215046 IMMEDIATE-DEPENDENTS0 (GCD-S-S0-MEM GCD-S-S0-RFILE GCD-S-S0) EVENT (PROVE-LEMMA WRITEM-MEM-MAINTAIN-READ-MEMP (REWRITE) (EQUAL (READ-MEMP X (WRITEM-MEM OPSZ VLST ADDR MEM) N) (READ-MEMP X MEM N))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 WRITE-MEM-MAINTAIN-READ-MEMP . WRITEM-MEM-MAINTAIN-READ-MEMP) (IMMEDIATE-DEPENDENTS0 WRITEM-MEM . WRITEM-MEM-MAINTAIN-READ-MEMP) (IMMEDIATE-DEPENDENTS0 READ-MEMP . WRITEM-MEM-MAINTAIN-READ-MEMP) (LEMMAS READ-MEMP . WRITEM-MEM-MAINTAIN-READ-MEMP))))) (PUT1-LST (QUOTE WRITEM-MEM-MAINTAIN-BYTE-READP) (QUOTE (IDATE 1000402215046 EVENT (PROVE-LEMMA WRITEM-MEM-MAINTAIN-BYTE-READP (REWRITE) (EQUAL (BYTE-READP X (WRITEM-MEM OPSZ VLST ADDR MEM)) (BYTE-READP X MEM))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 WRITE-MEM-MAINTAIN-BYTE-READP . WRITEM-MEM-MAINTAIN-BYTE-READP) (IMMEDIATE-DEPENDENTS0 WRITEM-MEM . WRITEM-MEM-MAINTAIN-BYTE-READP) (IMMEDIATE-DEPENDENTS0 BYTE-READP . WRITEM-MEM-MAINTAIN-BYTE-READP) (LEMMAS BYTE-READP . WRITEM-MEM-MAINTAIN-BYTE-READP))))) (PUT1-LST (QUOTE WRITEM-MEM-MAINTAIN-PC-READ-MEMP) (QUOTE (IDATE 1000402215046 IMMEDIATE-DEPENDENTS0 (GCD-S-S0-MEM GCD-S-S0-RFILE GCD-S-S0) EVENT (PROVE-LEMMA WRITEM-MEM-MAINTAIN-PC-READ-MEMP (REWRITE) (EQUAL (PC-READ-MEMP X (WRITEM-MEM OPSZ VLST ADDR MEM) N) (PC-READ-MEMP X MEM N))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 WRITE-MEM-MAINTAIN-PC-READ-MEMP . WRITEM-MEM-MAINTAIN-PC-READ-MEMP) (IMMEDIATE-DEPENDENTS0 WRITEM-MEM . WRITEM-MEM-MAINTAIN-PC-READ-MEMP) (IMMEDIATE-DEPENDENTS0 PC-READ-MEMP . WRITEM-MEM-MAINTAIN-PC-READ-MEMP) (LEMMAS PC-READ-MEMP . WRITEM-MEM-MAINTAIN-PC-READ-MEMP))))) (PUT1-LST (QUOTE WRITEM-MEM-MAINTAIN-PC-BYTE-READP) (QUOTE (IDATE 1000402215046 EVENT (PROVE-LEMMA WRITEM-MEM-MAINTAIN-PC-BYTE-READP (REWRITE) (EQUAL (PC-BYTE-READP X (WRITEM-MEM OPSZ VLST ADDR MEM)) (PC-BYTE-READP X MEM))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 WRITE-MEM-MAINTAIN-PC-BYTE-READP . WRITEM-MEM-MAINTAIN-PC-BYTE-READP) (IMMEDIATE-DEPENDENTS0 WRITEM-MEM . WRITEM-MEM-MAINTAIN-PC-BYTE-READP) (IMMEDIATE-DEPENDENTS0 PC-BYTE-READP . WRITEM-MEM-MAINTAIN-PC-BYTE-READP) (LEMMAS PC-BYTE-READP . WRITEM-MEM-MAINTAIN-PC-BYTE-READP))))) (PUT1-LST (QUOTE WRITE-MEMP-RAM1-ASL) (QUOTE (IDATE 1000402215046 EVENT (PROVE-LEMMA WRITE-MEMP-RAM1-ASL (REWRITE) (IMPLIES (AND (RAM-ADDRP ADDR MEM N) (AND (EQUAL OPSZ (EXP (QUOTE 2) CNT)) (AND (LESSP (NAT-TO-INT X (QUOTE 32)) (QUOTIENT N OPSZ)) (NUMBERP (NAT-TO-INT X (QUOTE 32)))))) (WRITE-MEMP (ADD (QUOTE 32) ADDR (ASL (QUOTE 32) X CNT)) MEM OPSZ)) ((USE (RAM-ADDRP-LA1 (M (TIMES OPSZ (QUOTIENT N OPSZ)))) (WRITE-MEMP-RAM1 (K (TIMES OPSZ (QUOTIENT N OPSZ))) (I (TIMES X (EXP (QUOTE 2) CNT))) (J OPSZ))) (ENABLE NAT-TO-INT) (DISABLE RAM-ADDRP-LA1 RAM-ADDRP-LA2 WRITE-MEMP-RAM1))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-LESSP-TIMES . WRITE-MEMP-RAM1-ASL) (IMMEDIATE-DEPENDENTS0 QUOTIENT-EQUAL-0 . WRITE-MEMP-RAM1-ASL) (IMMEDIATE-DEPENDENTS0 QUOTIENT-0 . WRITE-MEMP-RAM1-ASL) (IMMEDIATE-DEPENDENTS0 TIMES-LESSP-CANCEL1 . WRITE-MEMP-RAM1-ASL) (IMMEDIATE-DEPENDENTS0 EXP-OF-2-0 . WRITE-MEMP-RAM1-ASL) (IMMEDIATE-DEPENDENTS0 QUOTIENT-EXIT . WRITE-MEMP-RAM1-ASL) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . WRITE-MEMP-RAM1-ASL) (IMMEDIATE-DEPENDENTS0 PLUS-EQUAL-0 . WRITE-MEMP-RAM1-ASL) (IMMEDIATE-DEPENDENTS0 TIMES-EQUAL-0 . WRITE-MEMP-RAM1-ASL) (IMMEDIATE-DEPENDENTS0 REMAINDER-LESSP . WRITE-MEMP-RAM1-ASL) (IMMEDIATE-DEPENDENTS0 REMAINDER-QUOTIENT-ELIM . WRITE-MEMP-RAM1-ASL) (IMMEDIATE-DEPENDENTS0 QUOTIENT-SHRINK-FAST . WRITE-MEMP-RAM1-ASL) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . WRITE-MEMP-RAM1-ASL) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . WRITE-MEMP-RAM1-ASL) (IMMEDIATE-DEPENDENTS0 ADD-0 . WRITE-MEMP-RAM1-ASL) (IMMEDIATE-DEPENDENTS0 ADD-COMMUTATIVITY . WRITE-MEMP-RAM1-ASL) (IMMEDIATE-DEPENDENTS0 HEAD-WRITE-MEMP . WRITE-MEMP-RAM1-ASL) (IMMEDIATE-DEPENDENTS0 ADD-HEAD . WRITE-MEMP-RAM1-ASL) (IMMEDIATE-DEPENDENTS0 RAM-ADDRP-LA1 . WRITE-MEMP-RAM1-ASL) (IMMEDIATE-DEPENDENTS0 WRITE-MEMP-RAM1 . WRITE-MEMP-RAM1-ASL) (IMMEDIATE-DEPENDENTS0 ASL . WRITE-MEMP-RAM1-ASL) (IMMEDIATE-DEPENDENTS0 ADD . WRITE-MEMP-RAM1-ASL) (IMMEDIATE-DEPENDENTS0 WRITE-MEMP . WRITE-MEMP-RAM1-ASL) (IMMEDIATE-DEPENDENTS0 NAT-TO-INT . WRITE-MEMP-RAM1-ASL) (IMMEDIATE-DEPENDENTS0 EXP . WRITE-MEMP-RAM1-ASL) (IMMEDIATE-DEPENDENTS0 RAM-ADDRP . WRITE-MEMP-RAM1-ASL) (LEMMAS WRITE-MEMP . WRITE-MEMP-RAM1-ASL))))) (PUT1-LST (QUOTE READ-MEMP-ROM1-ASL) (QUOTE (IDATE 1000402215045 EVENT (PROVE-LEMMA READ-MEMP-ROM1-ASL (REWRITE) (IMPLIES (AND (ROM-ADDRP ADDR MEM N) (AND (EQUAL OPSZ (EXP (QUOTE 2) CNT)) (AND (LESSP (NAT-TO-INT X (QUOTE 32)) (QUOTIENT N OPSZ)) (NUMBERP (NAT-TO-INT X (QUOTE 32)))))) (READ-MEMP (ADD (QUOTE 32) ADDR (ASL (QUOTE 32) X CNT)) MEM OPSZ)) ((USE (ROM-ADDRP-LA1 (M (TIMES OPSZ (QUOTIENT N OPSZ)))) (READ-MEMP-ROM1 (K (TIMES OPSZ (QUOTIENT N OPSZ))) (I (TIMES X (EXP (QUOTE 2) CNT))) (J OPSZ))) (ENABLE NAT-TO-INT) (DISABLE ROM-ADDRP-LA1 ROM-ADDRP-LA2 READ-MEMP-ROM1))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-LESSP-TIMES . READ-MEMP-ROM1-ASL) (IMMEDIATE-DEPENDENTS0 QUOTIENT-EQUAL-0 . READ-MEMP-ROM1-ASL) (IMMEDIATE-DEPENDENTS0 QUOTIENT-0 . READ-MEMP-ROM1-ASL) (IMMEDIATE-DEPENDENTS0 TIMES-LESSP-CANCEL1 . READ-MEMP-ROM1-ASL) (IMMEDIATE-DEPENDENTS0 EXP-OF-2-0 . READ-MEMP-ROM1-ASL) (IMMEDIATE-DEPENDENTS0 QUOTIENT-EXIT . READ-MEMP-ROM1-ASL) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . READ-MEMP-ROM1-ASL) (IMMEDIATE-DEPENDENTS0 PLUS-EQUAL-0 . READ-MEMP-ROM1-ASL) (IMMEDIATE-DEPENDENTS0 TIMES-EQUAL-0 . READ-MEMP-ROM1-ASL) (IMMEDIATE-DEPENDENTS0 REMAINDER-LESSP . READ-MEMP-ROM1-ASL) (IMMEDIATE-DEPENDENTS0 REMAINDER-QUOTIENT-ELIM . READ-MEMP-ROM1-ASL) (IMMEDIATE-DEPENDENTS0 QUOTIENT-SHRINK-FAST . READ-MEMP-ROM1-ASL) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . READ-MEMP-ROM1-ASL) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . READ-MEMP-ROM1-ASL) (IMMEDIATE-DEPENDENTS0 ADD-0 . READ-MEMP-ROM1-ASL) (IMMEDIATE-DEPENDENTS0 ADD-COMMUTATIVITY . READ-MEMP-ROM1-ASL) (IMMEDIATE-DEPENDENTS0 HEAD-READ-MEMP . READ-MEMP-ROM1-ASL) (IMMEDIATE-DEPENDENTS0 ADD-HEAD . READ-MEMP-ROM1-ASL) (IMMEDIATE-DEPENDENTS0 ROM-ADDRP-LA1 . READ-MEMP-ROM1-ASL) (IMMEDIATE-DEPENDENTS0 READ-MEMP-ROM1 . READ-MEMP-ROM1-ASL) (IMMEDIATE-DEPENDENTS0 ASL . READ-MEMP-ROM1-ASL) (IMMEDIATE-DEPENDENTS0 ADD . READ-MEMP-ROM1-ASL) (IMMEDIATE-DEPENDENTS0 READ-MEMP . READ-MEMP-ROM1-ASL) (IMMEDIATE-DEPENDENTS0 NAT-TO-INT . READ-MEMP-ROM1-ASL) (IMMEDIATE-DEPENDENTS0 EXP . READ-MEMP-ROM1-ASL) (IMMEDIATE-DEPENDENTS0 ROM-ADDRP . READ-MEMP-ROM1-ASL) (LEMMAS READ-MEMP . READ-MEMP-ROM1-ASL))))) (PUT1-LST (QUOTE READ-MEMP-RAM1-ASL) (QUOTE (IDATE 1000402215044 EVENT (PROVE-LEMMA READ-MEMP-RAM1-ASL (REWRITE) (IMPLIES (AND (RAM-ADDRP ADDR MEM N) (AND (EQUAL OPSZ (EXP (QUOTE 2) CNT)) (AND (LESSP (NAT-TO-INT X (QUOTE 32)) (QUOTIENT N OPSZ)) (NUMBERP (NAT-TO-INT X (QUOTE 32)))))) (READ-MEMP (ADD (QUOTE 32) ADDR (ASL (QUOTE 32) X CNT)) MEM OPSZ)) ((USE (RAM-ADDRP-LA1 (M (TIMES OPSZ (QUOTIENT N OPSZ)))) (READ-MEMP-RAM1 (K (TIMES OPSZ (QUOTIENT N OPSZ))) (I (TIMES X (EXP (QUOTE 2) CNT))) (J OPSZ))) (ENABLE NAT-TO-INT) (DISABLE RAM-ADDRP-LA1 RAM-ADDRP-LA2 READ-MEMP-RAM1))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-LESSP-TIMES . READ-MEMP-RAM1-ASL) (IMMEDIATE-DEPENDENTS0 QUOTIENT-EQUAL-0 . READ-MEMP-RAM1-ASL) (IMMEDIATE-DEPENDENTS0 QUOTIENT-0 . READ-MEMP-RAM1-ASL) (IMMEDIATE-DEPENDENTS0 TIMES-LESSP-CANCEL1 . READ-MEMP-RAM1-ASL) (IMMEDIATE-DEPENDENTS0 EXP-OF-2-0 . READ-MEMP-RAM1-ASL) (IMMEDIATE-DEPENDENTS0 QUOTIENT-EXIT . READ-MEMP-RAM1-ASL) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . READ-MEMP-RAM1-ASL) (IMMEDIATE-DEPENDENTS0 PLUS-EQUAL-0 . READ-MEMP-RAM1-ASL) (IMMEDIATE-DEPENDENTS0 TIMES-EQUAL-0 . READ-MEMP-RAM1-ASL) (IMMEDIATE-DEPENDENTS0 REMAINDER-LESSP . READ-MEMP-RAM1-ASL) (IMMEDIATE-DEPENDENTS0 REMAINDER-QUOTIENT-ELIM . READ-MEMP-RAM1-ASL) (IMMEDIATE-DEPENDENTS0 QUOTIENT-SHRINK-FAST . READ-MEMP-RAM1-ASL) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . READ-MEMP-RAM1-ASL) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . READ-MEMP-RAM1-ASL) (IMMEDIATE-DEPENDENTS0 ADD-0 . READ-MEMP-RAM1-ASL) (IMMEDIATE-DEPENDENTS0 ADD-COMMUTATIVITY . READ-MEMP-RAM1-ASL) (IMMEDIATE-DEPENDENTS0 HEAD-READ-MEMP . READ-MEMP-RAM1-ASL) (IMMEDIATE-DEPENDENTS0 ADD-HEAD . READ-MEMP-RAM1-ASL) (IMMEDIATE-DEPENDENTS0 RAM-ADDRP-LA1 . READ-MEMP-RAM1-ASL) (IMMEDIATE-DEPENDENTS0 READ-MEMP-RAM1 . READ-MEMP-RAM1-ASL) (IMMEDIATE-DEPENDENTS0 ASL . READ-MEMP-RAM1-ASL) (IMMEDIATE-DEPENDENTS0 ADD . READ-MEMP-RAM1-ASL) (IMMEDIATE-DEPENDENTS0 READ-MEMP . READ-MEMP-RAM1-ASL) (IMMEDIATE-DEPENDENTS0 NAT-TO-INT . READ-MEMP-RAM1-ASL) (IMMEDIATE-DEPENDENTS0 EXP . READ-MEMP-RAM1-ASL) (IMMEDIATE-DEPENDENTS0 RAM-ADDRP . READ-MEMP-RAM1-ASL) (LEMMAS READ-MEMP . READ-MEMP-RAM1-ASL))))) (PUT1-LST (QUOTE TIMES-LESSP-CANCEL1) (QUOTE (IDATE 1000402215042 IMMEDIATE-DEPENDENTS0 (READM-WRITE-MEM WRITE-MEMP-RAM1-ASL READ-MEMP-ROM1-ASL READ-MEMP-RAM1-ASL) EVENT (PROVE-LEMMA TIMES-LESSP-CANCEL1 (REWRITE) (EQUAL (LESSP (TIMES Y X) (PLUS X (TIMES Z X))) (AND (NOT (ZEROP X)) (IF (LESSP Z Y) (QUOTE *1*FALSE) (QUOTE *1*TRUE)))) ((USE (TIMES-LESSP-CANCEL (Z (ADD1 Z)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-LESSP-TIMES . TIMES-LESSP-CANCEL1) (IMMEDIATE-DEPENDENTS0 TIMES-ADD1 . TIMES-LESSP-CANCEL1) (IMMEDIATE-DEPENDENTS0 TIMES-LESSP-CANCEL-1 . TIMES-LESSP-CANCEL1) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . TIMES-LESSP-CANCEL1) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . TIMES-LESSP-CANCEL1) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . TIMES-LESSP-CANCEL1) (IMMEDIATE-DEPENDENTS0 PLUS-EQUAL-0 . TIMES-LESSP-CANCEL1) (IMMEDIATE-DEPENDENTS0 TIMES-EQUAL-0 . TIMES-LESSP-CANCEL1) (IMMEDIATE-DEPENDENTS0 TIMES-LESSP-CANCEL . TIMES-LESSP-CANCEL1) (LEMMAS LESSP . TIMES-LESSP-CANCEL1))))) (PUT1-LST (QUOTE WRITE-MEM-ILST-ASL) (QUOTE (IDATE 1000402215042 EVENT (PROVE-LEMMA WRITE-MEM-ILST-ASL (REWRITE) (IMPLIES (AND (MEM-ILST OPSZ A MEM N LST) (AND (UINT-RANGEP (TIMES OPSZ N) (QUOTE 32)) (AND (EQUAL OPSZ (EXP (QUOTE 2) CNT)) (AND (NAT-RANGEP V (TIMES (QUOTE 8) OPSZ)) (AND (EQUAL V1 (NAT-TO-INT V (TIMES (QUOTE 8) OPSZ))) (AND (EQUAL J (NAT-TO-INT I (QUOTE 32))) (AND (LESSP J N) (AND (NUMBERP V) (NUMBERP J))))))))) (MEM-ILST OPSZ A (WRITE-MEM V (ADD (QUOTE 32) A (ASL (QUOTE 32) I CNT)) MEM OPSZ) N (PUT-NTH V1 J LST))) ((USE (WRITE-MEM-ILST (OPSZ (EXP (QUOTE 2) CNT)) (J (TIMES (EXP (QUOTE 2) CNT) I)))) (ENABLE NAT-TO-INT))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EXP-OF-2-0 . WRITE-MEM-ILST-ASL) (IMMEDIATE-DEPENDENTS0 TIMES-EQUAL-0 . WRITE-MEM-ILST-ASL) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP-0 . WRITE-MEM-ILST-ASL) (IMMEDIATE-DEPENDENTS0 READ-MEM . WRITE-MEM-ILST-ASL) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . WRITE-MEM-ILST-ASL) (IMMEDIATE-DEPENDENTS0 NAT-TO-UINT . WRITE-MEM-ILST-ASL) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . WRITE-MEM-ILST-ASL) (IMMEDIATE-DEPENDENTS0 ADD-0 . WRITE-MEM-ILST-ASL) (IMMEDIATE-DEPENDENTS0 ADD-COMMUTATIVITY . WRITE-MEM-ILST-ASL) (IMMEDIATE-DEPENDENTS0 HEAD-WRITE-MEM . WRITE-MEM-ILST-ASL) (IMMEDIATE-DEPENDENTS0 UINT-RANGEP-LA . WRITE-MEM-ILST-ASL) (IMMEDIATE-DEPENDENTS0 ADD-HEAD . WRITE-MEM-ILST-ASL) (IMMEDIATE-DEPENDENTS0 WRITE-MEM-ILST . WRITE-MEM-ILST-ASL) (IMMEDIATE-DEPENDENTS0 PUT-NTH . WRITE-MEM-ILST-ASL) (IMMEDIATE-DEPENDENTS0 ASL . WRITE-MEM-ILST-ASL) (IMMEDIATE-DEPENDENTS0 ADD . WRITE-MEM-ILST-ASL) (IMMEDIATE-DEPENDENTS0 WRITE-MEM . WRITE-MEM-ILST-ASL) (IMMEDIATE-DEPENDENTS0 NAT-TO-INT . WRITE-MEM-ILST-ASL) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . WRITE-MEM-ILST-ASL) (IMMEDIATE-DEPENDENTS0 EXP . WRITE-MEM-ILST-ASL) (IMMEDIATE-DEPENDENTS0 UINT-RANGEP . WRITE-MEM-ILST-ASL) (IMMEDIATE-DEPENDENTS0 MEM-ILST . WRITE-MEM-ILST-ASL) (LEMMAS MEM-ILST . WRITE-MEM-ILST-ASL))))) (PUT1-LST (QUOTE WRITE-MEM-LST-ASL) (QUOTE (IDATE 1000402215042 EVENT (PROVE-LEMMA WRITE-MEM-LST-ASL (REWRITE) (IMPLIES (AND (MEM-LST OPSZ A MEM N LST) (AND (UINT-RANGEP (TIMES OPSZ N) (QUOTE 32)) (AND (EQUAL OPSZ (EXP (QUOTE 2) CNT)) (AND (NAT-RANGEP V (TIMES (QUOTE 8) OPSZ)) (AND (EQUAL J (NAT-TO-INT I (QUOTE 32))) (AND (EQUAL V1 (NAT-TO-UINT V)) (AND (LESSP J N) (AND (NUMBERP J) (NUMBERP V))))))))) (MEM-LST OPSZ A (WRITE-MEM V (ADD (QUOTE 32) A (ASL (QUOTE 32) I CNT)) MEM OPSZ) N (PUT-NTH V1 J LST))) ((USE (WRITE-MEM-LST (OPSZ (EXP (QUOTE 2) CNT)) (J (TIMES (EXP (QUOTE 2) CNT) I)))) (ENABLE NAT-TO-INT))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . WRITE-MEM-LST-ASL) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . WRITE-MEM-LST-ASL) (IMMEDIATE-DEPENDENTS0 ADD-0 . WRITE-MEM-LST-ASL) (IMMEDIATE-DEPENDENTS0 ADD-COMMUTATIVITY . WRITE-MEM-LST-ASL) (IMMEDIATE-DEPENDENTS0 HEAD-WRITE-MEM . WRITE-MEM-LST-ASL) (IMMEDIATE-DEPENDENTS0 UINT-RANGEP-LA . WRITE-MEM-LST-ASL) (IMMEDIATE-DEPENDENTS0 ADD-HEAD . WRITE-MEM-LST-ASL) (IMMEDIATE-DEPENDENTS0 WRITE-MEM-LST . WRITE-MEM-LST-ASL) (IMMEDIATE-DEPENDENTS0 PUT-NTH . WRITE-MEM-LST-ASL) (IMMEDIATE-DEPENDENTS0 ASL . WRITE-MEM-LST-ASL) (IMMEDIATE-DEPENDENTS0 ADD . WRITE-MEM-LST-ASL) (IMMEDIATE-DEPENDENTS0 WRITE-MEM . WRITE-MEM-LST-ASL) (IMMEDIATE-DEPENDENTS0 NAT-TO-UINT . WRITE-MEM-LST-ASL) (IMMEDIATE-DEPENDENTS0 NAT-TO-INT . WRITE-MEM-LST-ASL) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . WRITE-MEM-LST-ASL) (IMMEDIATE-DEPENDENTS0 EXP . WRITE-MEM-LST-ASL) (IMMEDIATE-DEPENDENTS0 UINT-RANGEP . WRITE-MEM-LST-ASL) (IMMEDIATE-DEPENDENTS0 MEM-LST . WRITE-MEM-LST-ASL) (LEMMAS MEM-LST . WRITE-MEM-LST-ASL))))) (PUT1-LST (QUOTE READ-MEM-ILST-ASL) (QUOTE (IDATE 1000402215042 EVENT (PROVE-LEMMA READ-MEM-ILST-ASL (REWRITE) (IMPLIES (AND (MEM-ILST OPSZ A MEM N LST) (AND (EQUAL OPSZ (EXP (QUOTE 2) CNT)) (AND (EQUAL OPLEN (TIMES (QUOTE 8) OPSZ)) (AND (LESSP (NAT-TO-INT I (QUOTE 32)) N) (NUMBERP (NAT-TO-INT I (QUOTE 32))))))) (EQUAL (NAT-TO-INT (READ-MEM (ADD (QUOTE 32) A (ASL (QUOTE 32) I CNT)) MEM OPSZ) OPLEN) (GET-NTH (NAT-TO-INT I (QUOTE 32)) LST))) ((USE (READ-MEM-ILST (OPSZ (EXP (QUOTE 2) CNT)) (J (TIMES (EXP (QUOTE 2) CNT) I)))) (ENABLE NAT-TO-INT))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . READ-MEM-ILST-ASL) (IMMEDIATE-DEPENDENTS0 NAT-TO-UINT . READ-MEM-ILST-ASL) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-X-X . READ-MEM-ILST-ASL) (IMMEDIATE-DEPENDENTS0 REMAINDER-1 . READ-MEM-ILST-ASL) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . READ-MEM-ILST-ASL) (IMMEDIATE-DEPENDENTS0 REMAINDER-TIMES-EXP2-1 . READ-MEM-ILST-ASL) (IMMEDIATE-DEPENDENTS0 QUOTIENT-1 . READ-MEM-ILST-ASL) (IMMEDIATE-DEPENDENTS0 TIMES-1 . READ-MEM-ILST-ASL) (IMMEDIATE-DEPENDENTS0 QUOTIENT-TIMES-EXP2-1 . READ-MEM-ILST-ASL) (IMMEDIATE-DEPENDENTS0 ADD-0 . READ-MEM-ILST-ASL) (IMMEDIATE-DEPENDENTS0 ADD-COMMUTATIVITY . READ-MEM-ILST-ASL) (IMMEDIATE-DEPENDENTS0 HEAD-READ-MEM . READ-MEM-ILST-ASL) (IMMEDIATE-DEPENDENTS0 IREAD-MEM-GET0 . READ-MEM-ILST-ASL) (IMMEDIATE-DEPENDENTS0 ADD-HEAD . READ-MEM-ILST-ASL) (IMMEDIATE-DEPENDENTS0 READ-MEM-ILST . READ-MEM-ILST-ASL) (IMMEDIATE-DEPENDENTS0 GET-NTH . READ-MEM-ILST-ASL) (IMMEDIATE-DEPENDENTS0 ASL . READ-MEM-ILST-ASL) (IMMEDIATE-DEPENDENTS0 ADD . READ-MEM-ILST-ASL) (IMMEDIATE-DEPENDENTS0 READ-MEM . READ-MEM-ILST-ASL) (IMMEDIATE-DEPENDENTS0 NAT-TO-INT . READ-MEM-ILST-ASL) (IMMEDIATE-DEPENDENTS0 EXP . READ-MEM-ILST-ASL) (IMMEDIATE-DEPENDENTS0 MEM-ILST . READ-MEM-ILST-ASL) (LEMMAS NAT-TO-INT . READ-MEM-ILST-ASL))))) (PUT1-LST (QUOTE READ-MEM-LST-ASL) (QUOTE (IDATE 1000402215041 EVENT (PROVE-LEMMA READ-MEM-LST-ASL (REWRITE) (IMPLIES (AND (MEM-LST OPSZ A MEM N LST) (AND (EQUAL OPSZ (EXP (QUOTE 2) CNT)) (AND (LESSP (NAT-TO-INT I (QUOTE 32)) N) (NUMBERP (NAT-TO-INT I (QUOTE 32)))))) (EQUAL (NAT-TO-UINT (READ-MEM (ADD (QUOTE 32) A (ASL (QUOTE 32) I CNT)) MEM OPSZ)) (GET-NTH (NAT-TO-INT I (QUOTE 32)) LST))) ((USE (READ-MEM-LST (OPSZ (EXP (QUOTE 2) CNT)) (J (TIMES (EXP (QUOTE 2) CNT) I)))) (ENABLE NAT-TO-INT))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . READ-MEM-LST-ASL) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-X-X . READ-MEM-LST-ASL) (IMMEDIATE-DEPENDENTS0 REMAINDER-1 . READ-MEM-LST-ASL) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . READ-MEM-LST-ASL) (IMMEDIATE-DEPENDENTS0 REMAINDER-TIMES-EXP2-1 . READ-MEM-LST-ASL) (IMMEDIATE-DEPENDENTS0 QUOTIENT-1 . READ-MEM-LST-ASL) (IMMEDIATE-DEPENDENTS0 TIMES-1 . READ-MEM-LST-ASL) (IMMEDIATE-DEPENDENTS0 QUOTIENT-TIMES-EXP2-1 . READ-MEM-LST-ASL) (IMMEDIATE-DEPENDENTS0 ADD-0 . READ-MEM-LST-ASL) (IMMEDIATE-DEPENDENTS0 ADD-COMMUTATIVITY . READ-MEM-LST-ASL) (IMMEDIATE-DEPENDENTS0 HEAD-READ-MEM . READ-MEM-LST-ASL) (IMMEDIATE-DEPENDENTS0 READ-MEM-LST0 . READ-MEM-LST-ASL) (IMMEDIATE-DEPENDENTS0 READ-MEM-LST-LA . READ-MEM-LST-ASL) (IMMEDIATE-DEPENDENTS0 ADD-HEAD . READ-MEM-LST-ASL) (IMMEDIATE-DEPENDENTS0 READ-MEM-LST . READ-MEM-LST-ASL) (IMMEDIATE-DEPENDENTS0 GET-NTH . READ-MEM-LST-ASL) (IMMEDIATE-DEPENDENTS0 ASL . READ-MEM-LST-ASL) (IMMEDIATE-DEPENDENTS0 ADD . READ-MEM-LST-ASL) (IMMEDIATE-DEPENDENTS0 READ-MEM . READ-MEM-LST-ASL) (IMMEDIATE-DEPENDENTS0 NAT-TO-UINT . READ-MEM-LST-ASL) (IMMEDIATE-DEPENDENTS0 NAT-TO-INT . READ-MEM-LST-ASL) (IMMEDIATE-DEPENDENTS0 EXP . READ-MEM-LST-ASL) (IMMEDIATE-DEPENDENTS0 MEM-LST . READ-MEM-LST-ASL) (LEMMAS NAT-TO-UINT . READ-MEM-LST-ASL))))) (PUT1-LST (QUOTE WRITE-MEM-ILST-INT) (QUOTE (IDATE 1000402215041 EVENT (PROVE-LEMMA WRITE-MEM-ILST-INT (REWRITE) (IMPLIES (AND (MEM-ILST OPSZ A MEM N LST) (AND (UINT-RANGEP (TIMES OPSZ N) (QUOTE 32)) (AND (EQUAL (TIMES OPSZ I) (NAT-TO-INT J (QUOTE 32))) (AND (NUMBERP (NAT-TO-INT J (QUOTE 32))) (AND (NAT-RANGEP V (TIMES (QUOTE 8) OPSZ)) (AND (EQUAL V1 (NAT-TO-INT V (TIMES (QUOTE 8) OPSZ))) (AND (LESSP I N) (AND (NOT (ZEROP OPSZ)) (NUMBERP V))))))))) (MEM-ILST OPSZ A (WRITE-MEM V (ADD (QUOTE 32) A J) MEM OPSZ) N (PUT-NTH V1 I LST))) ((ENABLE PUT-NTH-0 NAT-TO-INT NAT-RANGEP) (DISABLE PUT-NTH))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-LESSP . WRITE-MEM-ILST-INT) (IMMEDIATE-DEPENDENTS0 TIMES-EQUAL-0 . WRITE-MEM-ILST-INT) (IMMEDIATE-DEPENDENTS0 WRITE-MEM-ILST0 . WRITE-MEM-ILST-INT) (IMMEDIATE-DEPENDENTS0 PUT-NTH-0 . WRITE-MEM-ILST-INT) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . WRITE-MEM-ILST-INT) (IMMEDIATE-DEPENDENTS0 EXP . WRITE-MEM-ILST-INT) (IMMEDIATE-DEPENDENTS0 NAT-TO-UINT . WRITE-MEM-ILST-INT) (IMMEDIATE-DEPENDENTS0 UINT-RANGEP-LA . WRITE-MEM-ILST-INT) (IMMEDIATE-DEPENDENTS0 WRITE-MEM-ILST . WRITE-MEM-ILST-INT) (IMMEDIATE-DEPENDENTS0 ADD-NON-NUMBERP . WRITE-MEM-ILST-INT) (IMMEDIATE-DEPENDENTS0 HEAD-WRITE-MEM . WRITE-MEM-ILST-INT) (IMMEDIATE-DEPENDENTS0 PUT-NTH . WRITE-MEM-ILST-INT) (IMMEDIATE-DEPENDENTS0 ADD . WRITE-MEM-ILST-INT) (IMMEDIATE-DEPENDENTS0 WRITE-MEM . WRITE-MEM-ILST-INT) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . WRITE-MEM-ILST-INT) (IMMEDIATE-DEPENDENTS0 NAT-TO-INT . WRITE-MEM-ILST-INT) (IMMEDIATE-DEPENDENTS0 UINT-RANGEP . WRITE-MEM-ILST-INT) (IMMEDIATE-DEPENDENTS0 MEM-ILST . WRITE-MEM-ILST-INT) (LEMMAS MEM-ILST . WRITE-MEM-ILST-INT))))) (PUT1-LST (QUOTE WRITE-MEM-LST-INT) (QUOTE (IDATE 1000402215041 EVENT (PROVE-LEMMA WRITE-MEM-LST-INT (REWRITE) (IMPLIES (AND (MEM-LST OPSZ A MEM N LST) (AND (UINT-RANGEP (TIMES OPSZ N) (QUOTE 32)) (AND (EQUAL (TIMES OPSZ I) (NAT-TO-INT J (QUOTE 32))) (AND (NUMBERP (NAT-TO-INT J (QUOTE 32))) (AND (NAT-RANGEP V (TIMES (QUOTE 8) OPSZ)) (AND (EQUAL V1 (NAT-TO-UINT V)) (AND (LESSP I N) (AND (NOT (ZEROP OPSZ)) (NUMBERP V))))))))) (MEM-LST OPSZ A (WRITE-MEM V (ADD (QUOTE 32) A J) MEM OPSZ) N (PUT-NTH V1 I LST))) ((ENABLE PUT-NTH-0 NAT-TO-INT NAT-RANGEP) (DISABLE PUT-NTH))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-EQUAL-0 . WRITE-MEM-LST-INT) (IMMEDIATE-DEPENDENTS0 WRITE-MEM-LST0 . WRITE-MEM-LST-INT) (IMMEDIATE-DEPENDENTS0 PUT-NTH-0 . WRITE-MEM-LST-INT) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . WRITE-MEM-LST-INT) (IMMEDIATE-DEPENDENTS0 EXP . WRITE-MEM-LST-INT) (IMMEDIATE-DEPENDENTS0 UINT-RANGEP-LA . WRITE-MEM-LST-INT) (IMMEDIATE-DEPENDENTS0 WRITE-MEM-LST . WRITE-MEM-LST-INT) (IMMEDIATE-DEPENDENTS0 ADD-NON-NUMBERP . WRITE-MEM-LST-INT) (IMMEDIATE-DEPENDENTS0 HEAD-WRITE-MEM . WRITE-MEM-LST-INT) (IMMEDIATE-DEPENDENTS0 PUT-NTH . WRITE-MEM-LST-INT) (IMMEDIATE-DEPENDENTS0 ADD . WRITE-MEM-LST-INT) (IMMEDIATE-DEPENDENTS0 WRITE-MEM . WRITE-MEM-LST-INT) (IMMEDIATE-DEPENDENTS0 NAT-TO-UINT . WRITE-MEM-LST-INT) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . WRITE-MEM-LST-INT) (IMMEDIATE-DEPENDENTS0 NAT-TO-INT . WRITE-MEM-LST-INT) (IMMEDIATE-DEPENDENTS0 UINT-RANGEP . WRITE-MEM-LST-INT) (IMMEDIATE-DEPENDENTS0 MEM-LST . WRITE-MEM-LST-INT) (LEMMAS MEM-LST . WRITE-MEM-LST-INT))))) (PUT1-LST (QUOTE WRITE-MEM-ILST0) (QUOTE (IDATE 1000402215041 IMMEDIATE-DEPENDENTS0 (WRITE-MEM-ILST-INT) EVENT (PROVE-LEMMA WRITE-MEM-ILST0 (REWRITE) (IMPLIES (AND (MEM-ILST OPSZ A MEM N LST) (AND (UINT-RANGEP (TIMES OPSZ N) (QUOTE 32)) (AND (NAT-RANGEP V (TIMES (QUOTE 8) OPSZ)) (AND (EQUAL V1 (NAT-TO-INT V (TIMES (QUOTE 8) OPSZ))) (AND (NOT (ZEROP N)) (NUMBERP V)))))) (MEM-ILST OPSZ A (WRITE-MEM V A MEM OPSZ) N (PUT-NTH V1 (QUOTE 0) LST))) ((USE (WRITE-MEM-ILST (I (QUOTE 0)) (J (QUOTE 0)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . WRITE-MEM-ILST0) (IMMEDIATE-DEPENDENTS0 EXP . WRITE-MEM-ILST0) (IMMEDIATE-DEPENDENTS0 NAT-TO-UINT . WRITE-MEM-ILST0) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . WRITE-MEM-ILST0) (IMMEDIATE-DEPENDENTS0 HEAD-WRITE-MEM . WRITE-MEM-ILST0) (IMMEDIATE-DEPENDENTS0 ADD-0 . WRITE-MEM-ILST0) (IMMEDIATE-DEPENDENTS0 WRITE-MEM-ILST . WRITE-MEM-ILST0) (IMMEDIATE-DEPENDENTS0 PUT-NTH . WRITE-MEM-ILST0) (IMMEDIATE-DEPENDENTS0 WRITE-MEM . WRITE-MEM-ILST0) (IMMEDIATE-DEPENDENTS0 NAT-TO-INT . WRITE-MEM-ILST0) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . WRITE-MEM-ILST0) (IMMEDIATE-DEPENDENTS0 UINT-RANGEP . WRITE-MEM-ILST0) (IMMEDIATE-DEPENDENTS0 MEM-ILST . WRITE-MEM-ILST0) (LEMMAS MEM-ILST . WRITE-MEM-ILST0))))) (PUT1-LST (QUOTE WRITE-MEM-LST0) (QUOTE (IDATE 1000402215041 IMMEDIATE-DEPENDENTS0 (WRITE-MEM-LST-INT) EVENT (PROVE-LEMMA WRITE-MEM-LST0 (REWRITE) (IMPLIES (AND (MEM-LST OPSZ A MEM N LST) (AND (UINT-RANGEP (TIMES OPSZ N) (QUOTE 32)) (AND (NAT-RANGEP V (TIMES (QUOTE 8) OPSZ)) (AND (EQUAL V1 (NAT-TO-UINT V)) (AND (NOT (ZEROP N)) (NUMBERP V)))))) (MEM-LST OPSZ A (WRITE-MEM V A MEM OPSZ) N (PUT-NTH V1 (QUOTE 0) LST))) ((USE (WRITE-MEM-LST (I (QUOTE 0)) (J (QUOTE 0)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . WRITE-MEM-LST0) (IMMEDIATE-DEPENDENTS0 EXP . WRITE-MEM-LST0) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . WRITE-MEM-LST0) (IMMEDIATE-DEPENDENTS0 HEAD-WRITE-MEM . WRITE-MEM-LST0) (IMMEDIATE-DEPENDENTS0 ADD-0 . WRITE-MEM-LST0) (IMMEDIATE-DEPENDENTS0 WRITE-MEM-LST . WRITE-MEM-LST0) (IMMEDIATE-DEPENDENTS0 PUT-NTH . WRITE-MEM-LST0) (IMMEDIATE-DEPENDENTS0 WRITE-MEM . WRITE-MEM-LST0) (IMMEDIATE-DEPENDENTS0 NAT-TO-UINT . WRITE-MEM-LST0) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . WRITE-MEM-LST0) (IMMEDIATE-DEPENDENTS0 UINT-RANGEP . WRITE-MEM-LST0) (IMMEDIATE-DEPENDENTS0 MEM-LST . WRITE-MEM-LST0) (LEMMAS MEM-LST . WRITE-MEM-LST0))))) (PUT1-LST (QUOTE WRITE-MEM-ILST) (QUOTE (IDATE 1000402215041 IMMEDIATE-DEPENDENTS0 (WRITE-MEM-ILST-ASL WRITE-MEM-ILST-INT WRITE-MEM-ILST0) EVENT (PROVE-LEMMA WRITE-MEM-ILST (REWRITE) (IMPLIES (AND (MEM-ILST OPSZ A MEM N LST) (AND (UINT-RANGEP (TIMES OPSZ N) (QUOTE 32)) (AND (EQUAL (NAT-TO-UINT J) (TIMES OPSZ I)) (AND (NAT-RANGEP V (TIMES (QUOTE 8) OPSZ)) (AND (EQUAL V1 (NAT-TO-INT V (TIMES (QUOTE 8) OPSZ))) (AND (LESSP I N) (AND (NUMBERP J) (NUMBERP V)))))))) (MEM-ILST OPSZ A (WRITE-MEM V (ADD (QUOTE 32) A J) MEM OPSZ) N (PUT-NTH V1 I LST))) ((INDUCT (MEM-INDUCT2 OPSZ A I N LST J)) (ENABLE TIMES ADD-PLUS) (DISABLE PLUS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS . WRITE-MEM-ILST) (IMMEDIATE-DEPENDENTS0 READ-WRITE-MEM1 . WRITE-MEM-ILST) (IMMEDIATE-DEPENDENTS0 DISJOINT-LEQ1 . WRITE-MEM-ILST) (IMMEDIATE-DEPENDENTS0 PLUS-ASSOCIATIVITY . WRITE-MEM-ILST) (IMMEDIATE-DEPENDENTS0 PLUS-TIMES-LESSP . WRITE-MEM-ILST) (IMMEDIATE-DEPENDENTS0 SUB1-OF-1 . WRITE-MEM-ILST) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . WRITE-MEM-ILST) (IMMEDIATE-DEPENDENTS0 READ-WRITE-MEM2 . WRITE-MEM-ILST) (IMMEDIATE-DEPENDENTS0 HEAD-LEMMA . WRITE-MEM-ILST) (IMMEDIATE-DEPENDENTS0 UINT-RANGEP-LA . WRITE-MEM-ILST) (IMMEDIATE-DEPENDENTS0 DISJOINT-DEDUCTION1 . WRITE-MEM-ILST) (IMMEDIATE-DEPENDENTS0 DISJOINT-LEQ . WRITE-MEM-ILST) (IMMEDIATE-DEPENDENTS0 WRITE-ELSE-MEM-ILST . WRITE-MEM-ILST) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . WRITE-MEM-ILST) (IMMEDIATE-DEPENDENTS0 L . WRITE-MEM-ILST) (IMMEDIATE-DEPENDENTS0 ADD-0 . WRITE-MEM-ILST) (IMMEDIATE-DEPENDENTS0 ADD-COMMUTATIVITY . WRITE-MEM-ILST) (IMMEDIATE-DEPENDENTS0 HEAD-WRITE-MEM . WRITE-MEM-ILST) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . WRITE-MEM-ILST) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . WRITE-MEM-ILST) (IMMEDIATE-DEPENDENTS0 EXP . WRITE-MEM-ILST) (IMMEDIATE-DEPENDENTS0 ADD-PLUS . WRITE-MEM-ILST) (IMMEDIATE-DEPENDENTS0 ADD-ASSOCIATIVITY . WRITE-MEM-ILST) (IMMEDIATE-DEPENDENTS0 MEM-INDUCT2 . WRITE-MEM-ILST) (IMMEDIATE-DEPENDENTS0 PUT-NTH . WRITE-MEM-ILST) (IMMEDIATE-DEPENDENTS0 ADD . WRITE-MEM-ILST) (IMMEDIATE-DEPENDENTS0 WRITE-MEM . WRITE-MEM-ILST) (IMMEDIATE-DEPENDENTS0 NAT-TO-INT . WRITE-MEM-ILST) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . WRITE-MEM-ILST) (IMMEDIATE-DEPENDENTS0 NAT-TO-UINT . WRITE-MEM-ILST) (IMMEDIATE-DEPENDENTS0 UINT-RANGEP . WRITE-MEM-ILST) (IMMEDIATE-DEPENDENTS0 MEM-ILST . WRITE-MEM-ILST) (LEMMAS MEM-ILST . WRITE-MEM-ILST))))) (PUT1-LST (QUOTE WRITE-MEM-LST) (QUOTE (IDATE 1000402215039 IMMEDIATE-DEPENDENTS0 (WRITE-MEM-LST-ASL WRITE-MEM-LST-INT WRITE-MEM-LST0) EVENT (PROVE-LEMMA WRITE-MEM-LST (REWRITE) (IMPLIES (AND (MEM-LST OPSZ A MEM N LST) (AND (UINT-RANGEP (TIMES OPSZ N) (QUOTE 32)) (AND (NAT-RANGEP V (TIMES (QUOTE 8) OPSZ)) (AND (EQUAL (NAT-TO-UINT J) (TIMES OPSZ I)) (AND (EQUAL V1 (NAT-TO-UINT V)) (AND (LESSP I N) (AND (NUMBERP J) (NUMBERP V)))))))) (MEM-LST OPSZ A (WRITE-MEM V (ADD (QUOTE 32) A J) MEM OPSZ) N (PUT-NTH V1 I LST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . WRITE-MEM-LST) (IMMEDIATE-DEPENDENTS0 EXP . WRITE-MEM-LST) (IMMEDIATE-DEPENDENTS0 HEAD-LEMMA . WRITE-MEM-LST) (IMMEDIATE-DEPENDENTS0 UINT-RANGEP-LA . WRITE-MEM-LST) (IMMEDIATE-DEPENDENTS0 WRITE-MEM-LST-LA . WRITE-MEM-LST) (IMMEDIATE-DEPENDENTS0 PUT-NTH . WRITE-MEM-LST) (IMMEDIATE-DEPENDENTS0 ADD . WRITE-MEM-LST) (IMMEDIATE-DEPENDENTS0 WRITE-MEM . WRITE-MEM-LST) (IMMEDIATE-DEPENDENTS0 NAT-TO-UINT . WRITE-MEM-LST) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . WRITE-MEM-LST) (IMMEDIATE-DEPENDENTS0 UINT-RANGEP . WRITE-MEM-LST) (IMMEDIATE-DEPENDENTS0 MEM-LST . WRITE-MEM-LST) (LEMMAS MEM-LST . WRITE-MEM-LST))))) (PUT1-LST (QUOTE GET-VALS-0-OFF) (QUOTE (IDATE 1000402215039 EVENT (TOGGLE GET-VALS-0-OFF GET-VALS-0 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 GET-VALS-0 . GET-VALS-0-OFF) (DISABLED-LEMMAS NIL GET-VALS-0 GET-VALS-0-OFF . T))))) (PUT1-LST (QUOTE MEM-LST-PUT-VALS) (QUOTE (IDATE 1000402215039 EVENT (PROVE-LEMMA MEM-LST-PUT-VALS (REWRITE) (IMPLIES (AND (MEM-LST (QUOTE 1) A MEM N LST) (AND (UINT-RANGEP N (QUOTE 32)) (AND (NAT-RANGEP V (TIMES (QUOTE 8) K)) (AND (EQUAL (NAT-TO-UINT J) I) (AND (EQUAL VALS (BV-TO-LST (QUOTE 1) V K)) (AND (IF (LESSP N (PLUS I K)) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (AND (NUMBERP J) (NUMBERP V)))))))) (MEM-LST (QUOTE 1) A (WRITE-MEM V (ADD (QUOTE 32) A J) MEM K) N (PUT-VALS VALS I LST K))) ((INDUCT (MEM-INDUCT4 V VALS A MEM I LST K)) (ENABLE ADD-PLUS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 UINT-RANGEP-LA . MEM-LST-PUT-VALS) (IMMEDIATE-DEPENDENTS0 TIMES-1 . MEM-LST-PUT-VALS) (IMMEDIATE-DEPENDENTS0 WRITE-MEM-LST-LA . MEM-LST-PUT-VALS) (IMMEDIATE-DEPENDENTS0 TIMES-ADD1 . MEM-LST-PUT-VALS) (IMMEDIATE-DEPENDENTS0 PLUS-ADD1-1 . MEM-LST-PUT-VALS) (IMMEDIATE-DEPENDENTS0 ADD-ASSOCIATIVITY . MEM-LST-PUT-VALS) (IMMEDIATE-DEPENDENTS0 ADD-PLUS . MEM-LST-PUT-VALS) (IMMEDIATE-DEPENDENTS0 B . MEM-LST-PUT-VALS) (IMMEDIATE-DEPENDENTS0 GET-NTH-APPEND . MEM-LST-PUT-VALS) (IMMEDIATE-DEPENDENTS0 GET-NTH . MEM-LST-PUT-VALS) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-X-X . MEM-LST-PUT-VALS) (IMMEDIATE-DEPENDENTS0 PUT-VALS-APPEND . MEM-LST-PUT-VALS) (IMMEDIATE-DEPENDENTS0 BV-TO-LST-LEN . MEM-LST-PUT-VALS) (IMMEDIATE-DEPENDENTS0 BV-TO-LST-PROPER-LSTP . MEM-LST-PUT-VALS) (IMMEDIATE-DEPENDENTS0 GET-VALS-0 . MEM-LST-PUT-VALS) (IMMEDIATE-DEPENDENTS0 GET-VALS-APPEND . MEM-LST-PUT-VALS) (IMMEDIATE-DEPENDENTS0 EXP . MEM-LST-PUT-VALS) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP-0 . MEM-LST-PUT-VALS) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . MEM-LST-PUT-VALS) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . MEM-LST-PUT-VALS) (IMMEDIATE-DEPENDENTS0 TAIL-NAT-RANGEP . MEM-LST-PUT-VALS) (IMMEDIATE-DEPENDENTS0 BYTE-WRITE=WRITE-MEM-1 . MEM-LST-PUT-VALS) (IMMEDIATE-DEPENDENTS0 MEM-INDUCT4 . MEM-LST-PUT-VALS) (IMMEDIATE-DEPENDENTS0 PUT-VALS . MEM-LST-PUT-VALS) (IMMEDIATE-DEPENDENTS0 ADD . MEM-LST-PUT-VALS) (IMMEDIATE-DEPENDENTS0 WRITE-MEM . MEM-LST-PUT-VALS) (IMMEDIATE-DEPENDENTS0 BV-TO-LST . MEM-LST-PUT-VALS) (IMMEDIATE-DEPENDENTS0 NAT-TO-UINT . MEM-LST-PUT-VALS) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . MEM-LST-PUT-VALS) (IMMEDIATE-DEPENDENTS0 UINT-RANGEP . MEM-LST-PUT-VALS) (IMMEDIATE-DEPENDENTS0 MEM-LST . MEM-LST-PUT-VALS) (LEMMAS MEM-LST . MEM-LST-PUT-VALS))))) (PUT1-LST (QUOTE GET-VALS-0) (QUOTE (IDATE 1000402215038 IMMEDIATE-DEPENDENTS0 (GET-VALS-0-OFF MEM-LST-PUT-VALS) EVENT (PROVE-LEMMA GET-VALS-0 (REWRITE) (IMPLIES (AND (EQUAL (LEN LST) N) (PROPER-LSTP LST)) (EQUAL (GET-VALS (QUOTE 0) LST N) LST))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-ADD1 . GET-VALS-0) (IMMEDIATE-DEPENDENTS0 GET-NTH . GET-VALS-0) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . GET-VALS-0) (IMMEDIATE-DEPENDENTS0 GET-VALS-CDR . GET-VALS-0) (IMMEDIATE-DEPENDENTS0 GET-VALS . GET-VALS-0) (IMMEDIATE-DEPENDENTS0 PROPER-LSTP . GET-VALS-0) (IMMEDIATE-DEPENDENTS0 LEN . GET-VALS-0) (LEMMAS GET-VALS . GET-VALS-0))))) (PUT1-LST (QUOTE *1*MEM-INDUCT4) (QUOTE (MAIN-EVENT MEM-INDUCT4))) (PUT1-LST (QUOTE MEM-INDUCT4) (QUOTE (TYPE-PRESCRIPTION-LST ((MEM-INDUCT4 2 NIL NIL NIL NIL NIL NIL NIL)) TOTALP-LST ((MEM-INDUCT4 . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE UNCHANGING SELF-REFLEXIVE UNCHANGING SELF-REFLEXIVE SELF-REFLEXIVE) SDEFN (LAMBDA (V VALS A MEM I LST K) (IF (EQUAL K (QUOTE 0)) (QUOTE *1*TRUE) (IF (NUMBERP K) (MEM-INDUCT4 (TAIL V (QUOTE 8)) (GET-VALS (QUOTE 0) VALS (SUB1 K)) A (BYTE-WRITE V (ADD (QUOTE 32) A (PLUS I (SUB1 K))) MEM) I (PUT-NTH (HEAD V (QUOTE 8)) (PLUS I (SUB1 K)) LST) (SUB1 K)) (QUOTE *1*TRUE)))) LISP-CODE *1*MEM-INDUCT4 SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((ZEROP K)) NIL) (TESTS-AND-CASES ((NOT (ZEROP K))) (((TAIL V (QUOTE 8)) (GET-VALS (QUOTE 0) VALS (SUB1 K)) A (BYTE-WRITE V (ADD (QUOTE 32) A (PLUS I (SUB1 K))) MEM) I (PUT-NTH (HEAD V (QUOTE 8)) (PLUS I (SUB1 K)) LST) (SUB1 K))))) LEVEL-NO 5 JUSTIFICATIONS ((JUSTIFICATION (K) (COUNT K) LESSP (ZEROP COUNT-NUMBERP LESSP-SUB1))) IDATE 1000402215038 CONTROLLER-POCKETS (64) SATELLITES (*1*MEM-INDUCT4) IMMEDIATE-DEPENDENTS0 (MEM-LST-PUT-VALS) EVENT (DEFN MEM-INDUCT4 (V VALS A MEM I LST K) (IF (ZEROP K) (QUOTE *1*TRUE) (MEM-INDUCT4 (TAIL V (QUOTE 8)) (GET-VALS (QUOTE 0) VALS (SUB1 K)) A (BYTE-WRITE V (ADD (QUOTE 32) A (PLUS I (SUB1 K))) MEM) I (PUT-NTH (HEAD V (QUOTE 8)) (PLUS I (SUB1 K)) LST) (SUB1 K)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 HEAD . MEM-INDUCT4) (IMMEDIATE-DEPENDENTS0 PUT-NTH . MEM-INDUCT4) (IMMEDIATE-DEPENDENTS0 ADD . MEM-INDUCT4) (IMMEDIATE-DEPENDENTS0 BYTE-WRITE . MEM-INDUCT4) (IMMEDIATE-DEPENDENTS0 GET-VALS . MEM-INDUCT4) (IMMEDIATE-DEPENDENTS0 TAIL . MEM-INDUCT4) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . MEM-INDUCT4) (DCELL . *1*MEM-INDUCT4))))) (PUT1-LST (QUOTE MEM-LST-PUT-LST) (QUOTE (IDATE 1000402215038 EVENT (PROVE-LEMMA MEM-LST-PUT-LST (REWRITE) (IMPLIES (AND (MEM-LST (QUOTE 1) A MEM N LST) (AND (UINT-RANGEP N (QUOTE 32)) (AND (NAT-RANGEP V (TIMES (QUOTE 8) K)) (AND (EQUAL (NAT-TO-UINT J) I) (AND (EQUAL V1 (NAT-TO-UINT V)) (AND (IF (LESSP N (PLUS I K)) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (AND (NUMBERP J) (NUMBERP V)))))))) (MEM-LST (QUOTE 1) A (WRITE-MEM V (ADD (QUOTE 32) A J) MEM K) N (PUT-LST (QUOTE 1) V1 I LST K))) ((INDUCT (MEM-INDUCT3 V V1 A MEM I LST K)) (ENABLE ADD-PLUS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 UINT-RANGEP-LA . MEM-LST-PUT-LST) (IMMEDIATE-DEPENDENTS0 TIMES-1 . MEM-LST-PUT-LST) (IMMEDIATE-DEPENDENTS0 WRITE-MEM-LST-LA . MEM-LST-PUT-LST) (IMMEDIATE-DEPENDENTS0 TIMES-ADD1 . MEM-LST-PUT-LST) (IMMEDIATE-DEPENDENTS0 PLUS-ADD1-1 . MEM-LST-PUT-LST) (IMMEDIATE-DEPENDENTS0 ADD-ASSOCIATIVITY . MEM-LST-PUT-LST) (IMMEDIATE-DEPENDENTS0 ADD-PLUS . MEM-LST-PUT-LST) (IMMEDIATE-DEPENDENTS0 B . MEM-LST-PUT-LST) (IMMEDIATE-DEPENDENTS0 EXP . MEM-LST-PUT-LST) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP-0 . MEM-LST-PUT-LST) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . MEM-LST-PUT-LST) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . MEM-LST-PUT-LST) (IMMEDIATE-DEPENDENTS0 TAIL-NAT-RANGEP . MEM-LST-PUT-LST) (IMMEDIATE-DEPENDENTS0 BYTE-WRITE=WRITE-MEM-1 . MEM-LST-PUT-LST) (IMMEDIATE-DEPENDENTS0 MEM-INDUCT3 . MEM-LST-PUT-LST) (IMMEDIATE-DEPENDENTS0 PUT-LST . MEM-LST-PUT-LST) (IMMEDIATE-DEPENDENTS0 ADD . MEM-LST-PUT-LST) (IMMEDIATE-DEPENDENTS0 WRITE-MEM . MEM-LST-PUT-LST) (IMMEDIATE-DEPENDENTS0 NAT-TO-UINT . MEM-LST-PUT-LST) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . MEM-LST-PUT-LST) (IMMEDIATE-DEPENDENTS0 UINT-RANGEP . MEM-LST-PUT-LST) (IMMEDIATE-DEPENDENTS0 MEM-LST . MEM-LST-PUT-LST) (LEMMAS MEM-LST . MEM-LST-PUT-LST))))) (PUT1-LST (QUOTE *1*MEM-INDUCT3) (QUOTE (MAIN-EVENT MEM-INDUCT3))) (PUT1-LST (QUOTE MEM-INDUCT3) (QUOTE (TYPE-PRESCRIPTION-LST ((MEM-INDUCT3 2 NIL NIL NIL NIL NIL NIL NIL)) TOTALP-LST ((MEM-INDUCT3 . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE UNCHANGING SELF-REFLEXIVE UNCHANGING SELF-REFLEXIVE SELF-REFLEXIVE) SDEFN (LAMBDA (V V1 A MEM I LST K) (IF (EQUAL K (QUOTE 0)) (QUOTE *1*TRUE) (IF (NUMBERP K) (MEM-INDUCT3 (TAIL V (QUOTE 8)) (TAIL V1 (QUOTE 8)) A (BYTE-WRITE V (ADD (QUOTE 32) A (PLUS I (SUB1 K))) MEM) I (PUT-NTH (HEAD V (QUOTE 8)) (PLUS I (SUB1 K)) LST) (SUB1 K)) (QUOTE *1*TRUE)))) LISP-CODE *1*MEM-INDUCT3 SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((ZEROP K)) NIL) (TESTS-AND-CASES ((NOT (ZEROP K))) (((TAIL V (QUOTE 8)) (TAIL V1 (QUOTE 8)) A (BYTE-WRITE V (ADD (QUOTE 32) A (PLUS I (SUB1 K))) MEM) I (PUT-NTH (HEAD V (QUOTE 8)) (PLUS I (SUB1 K)) LST) (SUB1 K))))) LEVEL-NO 5 JUSTIFICATIONS ((JUSTIFICATION (K) (COUNT K) LESSP (ZEROP COUNT-NUMBERP LESSP-SUB1))) IDATE 1000402215037 CONTROLLER-POCKETS (64) SATELLITES (*1*MEM-INDUCT3) IMMEDIATE-DEPENDENTS0 (MEM-LST-PUT-LST) EVENT (DEFN MEM-INDUCT3 (V V1 A MEM I LST K) (IF (ZEROP K) (QUOTE *1*TRUE) (MEM-INDUCT3 (TAIL V (QUOTE 8)) (TAIL V1 (QUOTE 8)) A (BYTE-WRITE V (ADD (QUOTE 32) A (PLUS I (SUB1 K))) MEM) I (PUT-NTH (HEAD V (QUOTE 8)) (PLUS I (SUB1 K)) LST) (SUB1 K)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 HEAD . MEM-INDUCT3) (IMMEDIATE-DEPENDENTS0 PUT-NTH . MEM-INDUCT3) (IMMEDIATE-DEPENDENTS0 ADD . MEM-INDUCT3) (IMMEDIATE-DEPENDENTS0 BYTE-WRITE . MEM-INDUCT3) (IMMEDIATE-DEPENDENTS0 TAIL . MEM-INDUCT3) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . MEM-INDUCT3) (DCELL . *1*MEM-INDUCT3))))) (PUT1-LST (QUOTE WRITE-MEM-LST-LA) (QUOTE (IDATE 1000402215037 IMMEDIATE-DEPENDENTS0 (WRITE-MEM-LST MEM-LST-PUT-VALS MEM-LST-PUT-LST) EVENT (PROVE-LEMMA WRITE-MEM-LST-LA (REWRITE) (IMPLIES (AND (MEM-LST OPSZ A MEM N LST) (AND (UINT-RANGEP (TIMES OPSZ N) (QUOTE 32)) (AND (EQUAL V1 (HEAD V (TIMES (QUOTE 8) OPSZ))) (AND (EQUAL J (TIMES OPSZ I)) (AND (LESSP I N) (NUMBERP V)))))) (MEM-LST OPSZ A (WRITE-MEM V (ADD (QUOTE 32) A J) MEM OPSZ) N (PUT-NTH V1 I LST))) ((INDUCT (MEM-INDUCT2 OPSZ A I N LST J)) (ENABLE TIMES ADD-PLUS) (DISABLE PLUS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS . WRITE-MEM-LST-LA) (IMMEDIATE-DEPENDENTS0 READ-WRITE-MEM1 . WRITE-MEM-LST-LA) (IMMEDIATE-DEPENDENTS0 DISJOINT-LEQ1 . WRITE-MEM-LST-LA) (IMMEDIATE-DEPENDENTS0 PLUS-ASSOCIATIVITY . WRITE-MEM-LST-LA) (IMMEDIATE-DEPENDENTS0 PLUS-TIMES-LESSP . WRITE-MEM-LST-LA) (IMMEDIATE-DEPENDENTS0 SUB1-OF-1 . WRITE-MEM-LST-LA) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . WRITE-MEM-LST-LA) (IMMEDIATE-DEPENDENTS0 READ-WRITE-MEM2 . WRITE-MEM-LST-LA) (IMMEDIATE-DEPENDENTS0 UINT-RANGEP-LA . WRITE-MEM-LST-LA) (IMMEDIATE-DEPENDENTS0 DISJOINT-DEDUCTION1 . WRITE-MEM-LST-LA) (IMMEDIATE-DEPENDENTS0 DISJOINT-LEQ . WRITE-MEM-LST-LA) (IMMEDIATE-DEPENDENTS0 WRITE-ELSE-MEM-LST . WRITE-MEM-LST-LA) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . WRITE-MEM-LST-LA) (IMMEDIATE-DEPENDENTS0 L . WRITE-MEM-LST-LA) (IMMEDIATE-DEPENDENTS0 ADD-0 . WRITE-MEM-LST-LA) (IMMEDIATE-DEPENDENTS0 ADD-COMMUTATIVITY . WRITE-MEM-LST-LA) (IMMEDIATE-DEPENDENTS0 HEAD-WRITE-MEM . WRITE-MEM-LST-LA) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . WRITE-MEM-LST-LA) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . WRITE-MEM-LST-LA) (IMMEDIATE-DEPENDENTS0 EXP . WRITE-MEM-LST-LA) (IMMEDIATE-DEPENDENTS0 ADD-PLUS . WRITE-MEM-LST-LA) (IMMEDIATE-DEPENDENTS0 ADD-ASSOCIATIVITY . WRITE-MEM-LST-LA) (IMMEDIATE-DEPENDENTS0 MEM-INDUCT2 . WRITE-MEM-LST-LA) (IMMEDIATE-DEPENDENTS0 PUT-NTH . WRITE-MEM-LST-LA) (IMMEDIATE-DEPENDENTS0 ADD . WRITE-MEM-LST-LA) (IMMEDIATE-DEPENDENTS0 WRITE-MEM . WRITE-MEM-LST-LA) (IMMEDIATE-DEPENDENTS0 HEAD . WRITE-MEM-LST-LA) (IMMEDIATE-DEPENDENTS0 UINT-RANGEP . WRITE-MEM-LST-LA) (IMMEDIATE-DEPENDENTS0 MEM-LST . WRITE-MEM-LST-LA) (LEMMAS MEM-LST . WRITE-MEM-LST-LA))))) (PUT1-LST (QUOTE PLUS-TIMES-LESSP) (QUOTE (IDATE 1000402215036 IMMEDIATE-DEPENDENTS0 (WRITE-MEM-ILST WRITE-MEM-LST-LA) EVENT (PROVE-LEMMA PLUS-TIMES-LESSP (REWRITE) (IMPLIES (AND (LESSP (PLUS X (TIMES Y Z)) W) (LESSP Z1 Z)) (LESSP (PLUS X (PLUS Y (TIMES Y Z1))) W)) ((INDUCT (PLUS Z A)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-ADD1 . PLUS-TIMES-LESSP) (IMMEDIATE-DEPENDENTS0 TIMES-1 . PLUS-TIMES-LESSP) (IMMEDIATE-DEPENDENTS0 LESSP-OF-1 . PLUS-TIMES-LESSP) (IMMEDIATE-DEPENDENTS0 TIMES-ADD1 . PLUS-TIMES-LESSP) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . PLUS-TIMES-LESSP) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . PLUS-TIMES-LESSP) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . PLUS-TIMES-LESSP) (LINEAR-LEMMAS TIMES . PLUS-TIMES-LESSP))))) (PUT1-LST (QUOTE DISJOINT-LEQ1) (QUOTE (IDATE 1000402215035 IMMEDIATE-DEPENDENTS0 (DISJOINT-LEQ1-OFF DISJOINT-LEQ1-UINT READM-WRITEM-MEM WRITE-MEM-ILST WRITE-MEM-LST-LA) EVENT (PROVE-LEMMA DISJOINT-LEQ1 (REWRITE) (IMPLIES (AND (IF (LESSP (QUOTE 4294967296) (PLUS A M)) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (IF (LESSP A (PLUS B N)) (QUOTE *1*FALSE) (QUOTE *1*TRUE))) (DISJOINT B N A M))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DISJOINT-LEQ . DISJOINT-LEQ1) (IMMEDIATE-DEPENDENTS0 DISJOINT-COMMUTATIVITY . DISJOINT-LEQ1) (IMMEDIATE-DEPENDENTS0 DISJOINT . DISJOINT-LEQ1) (LEMMAS DISJOINT . DISJOINT-LEQ1))))) (PUT1-LST (QUOTE DISJOINT-LEQ) (QUOTE (IDATE 1000402215035 IMMEDIATE-DEPENDENTS0 (DISJOINT-LEQ-OFF DISJOINT-LEQ-UINT WRITE-MEM-ILST WRITE-MEM-LST-LA DISJOINT-LEQ1) EVENT (PROVE-LEMMA DISJOINT-LEQ (REWRITE) (IMPLIES (AND (IF (LESSP (QUOTE 4294967296) (PLUS A M)) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (IF (LESSP A (PLUS B N)) (QUOTE *1*FALSE) (QUOTE *1*TRUE))) (DISJOINT A M B N)) ((INDUCT (DISJOINT A M B N)) (ENABLE ADD NAT-RANGEP))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DISJOINT0-LEQ . DISJOINT-LEQ) (IMMEDIATE-DEPENDENTS0 ADD . DISJOINT-LEQ) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . DISJOINT-LEQ) (IMMEDIATE-DEPENDENTS0 EXP . DISJOINT-LEQ) (IMMEDIATE-DEPENDENTS0 HEAD-LEMMA . DISJOINT-LEQ) (IMMEDIATE-DEPENDENTS0 DISJOINT-0 . DISJOINT-LEQ) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . DISJOINT-LEQ) (IMMEDIATE-DEPENDENTS0 DISJOINT-DEDUCTION0 . DISJOINT-LEQ) (IMMEDIATE-DEPENDENTS0 DISJOINT . DISJOINT-LEQ) (LEMMAS DISJOINT . DISJOINT-LEQ))))) (PUT1-LST (QUOTE DISJOINT0-LEQ) (QUOTE (IDATE 1000402215035 IMMEDIATE-DEPENDENTS0 (DISJOINT0-LEQ-OFF DISJOINT-LEQ) EVENT (PROVE-LEMMA DISJOINT0-LEQ (REWRITE) (IMPLIES (AND (IF (LESSP (QUOTE 4294967296) (PLUS A M)) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (LESSP B A)) (DISJOINT0 A M B)) ((INDUCT (DISJOINT0 A M B)) (ENABLE ADD NAT-RANGEP))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MOD32-EQ . DISJOINT0-LEQ) (IMMEDIATE-DEPENDENTS0 ADD . DISJOINT0-LEQ) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . DISJOINT0-LEQ) (IMMEDIATE-DEPENDENTS0 EXP . DISJOINT0-LEQ) (IMMEDIATE-DEPENDENTS0 HEAD-LEMMA . DISJOINT0-LEQ) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . DISJOINT0-LEQ) (IMMEDIATE-DEPENDENTS0 DISJOINT0-DEDUCTION0 . DISJOINT0-LEQ) (IMMEDIATE-DEPENDENTS0 DISJOINT0 . DISJOINT0-LEQ) (LEMMAS DISJOINT0 . DISJOINT0-LEQ))))) (PUT1-LST (QUOTE WRITE-ELSE-MEM-ILST) (QUOTE (IDATE 1000402215035 IMMEDIATE-DEPENDENTS0 (WRITEM-ELSE-MEM-ILST WRITE-MEM-ILST) EVENT (PROVE-LEMMA WRITE-ELSE-MEM-ILST (REWRITE) (IMPLIES (DISJOINT A (TIMES OPSZ N) X M) (EQUAL (MEM-ILST OPSZ A (WRITE-MEM VALUE X MEM M) N LST) (MEM-ILST OPSZ A MEM N LST))) ((ENABLE TIMES))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DISJOINT-2~ . WRITE-ELSE-MEM-ILST) (IMMEDIATE-DEPENDENTS0 L . WRITE-ELSE-MEM-ILST) (IMMEDIATE-DEPENDENTS0 DISJOINT-COMMUTATIVITY . WRITE-ELSE-MEM-ILST) (IMMEDIATE-DEPENDENTS0 DISJOINT-0 . WRITE-ELSE-MEM-ILST) (IMMEDIATE-DEPENDENTS0 READ-WRITE-MEM1 . WRITE-ELSE-MEM-ILST) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . WRITE-ELSE-MEM-ILST) (IMMEDIATE-DEPENDENTS0 DISJOINT-DEDUCTION0 . WRITE-ELSE-MEM-ILST) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . WRITE-ELSE-MEM-ILST) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . WRITE-ELSE-MEM-ILST) (IMMEDIATE-DEPENDENTS0 WRITE-MEM . WRITE-ELSE-MEM-ILST) (IMMEDIATE-DEPENDENTS0 MEM-ILST . WRITE-ELSE-MEM-ILST) (IMMEDIATE-DEPENDENTS0 DISJOINT . WRITE-ELSE-MEM-ILST) (LEMMAS MEM-ILST . WRITE-ELSE-MEM-ILST))))) (PUT1-LST (QUOTE WRITE-ELSE-MEM-LST) (QUOTE (IDATE 1000402215035 IMMEDIATE-DEPENDENTS0 (WRITEM-ELSE-MEM-LST WRITE-MEM-LST-LA) EVENT (PROVE-LEMMA WRITE-ELSE-MEM-LST (REWRITE) (IMPLIES (DISJOINT A (TIMES OPSZ N) X M) (EQUAL (MEM-LST OPSZ A (WRITE-MEM VALUE X MEM M) N LST) (MEM-LST OPSZ A MEM N LST))) ((ENABLE TIMES))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DISJOINT-2~ . WRITE-ELSE-MEM-LST) (IMMEDIATE-DEPENDENTS0 L . WRITE-ELSE-MEM-LST) (IMMEDIATE-DEPENDENTS0 DISJOINT-COMMUTATIVITY . WRITE-ELSE-MEM-LST) (IMMEDIATE-DEPENDENTS0 DISJOINT-0 . WRITE-ELSE-MEM-LST) (IMMEDIATE-DEPENDENTS0 READ-WRITE-MEM1 . WRITE-ELSE-MEM-LST) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . WRITE-ELSE-MEM-LST) (IMMEDIATE-DEPENDENTS0 DISJOINT-DEDUCTION0 . WRITE-ELSE-MEM-LST) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . WRITE-ELSE-MEM-LST) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . WRITE-ELSE-MEM-LST) (IMMEDIATE-DEPENDENTS0 WRITE-MEM . WRITE-ELSE-MEM-LST) (IMMEDIATE-DEPENDENTS0 MEM-LST . WRITE-ELSE-MEM-LST) (IMMEDIATE-DEPENDENTS0 DISJOINT . WRITE-ELSE-MEM-LST) (LEMMAS MEM-LST . WRITE-ELSE-MEM-LST))))) (PUT1-LST (QUOTE READ-MEM-ILST-INT) (QUOTE (IDATE 1000402215035 EVENT (PROVE-LEMMA READ-MEM-ILST-INT (REWRITE) (IMPLIES (AND (MEM-ILST OPSZ A MEM N LST) (AND (EQUAL OPLEN (TIMES (QUOTE 8) OPSZ)) (AND (EQUAL (REMAINDER (NAT-TO-UINT J) OPSZ) (QUOTE 0)) (AND (LESSP (QUOTIENT (NAT-TO-UINT J) OPSZ) N) (NUMBERP (NAT-TO-INT J (QUOTE 32))))))) (EQUAL (NAT-TO-INT (READ-MEM (ADD (QUOTE 32) A J) MEM OPSZ) OPLEN) (GET-NTH (QUOTIENT (NAT-TO-UINT J) OPSZ) LST))) ((INDUCT (MEM-INDUCT2 OPSZ A I N LST J)) (ENABLE ADD-PLUS NAT-TO-INT))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 HEAD-MEM-ILST . READ-MEM-ILST-INT) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . READ-MEM-ILST-INT) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS . READ-MEM-ILST-INT) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-PLUS2 . READ-MEM-ILST-INT) (IMMEDIATE-DEPENDENTS0 TIMES-LESSP . READ-MEM-ILST-INT) (IMMEDIATE-DEPENDENTS0 REMAINDER-EXIT . READ-MEM-ILST-INT) (IMMEDIATE-DEPENDENTS0 TIMES-EQUAL-0 . READ-MEM-ILST-INT) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . READ-MEM-ILST-INT) (IMMEDIATE-DEPENDENTS0 SUB1-OF-1 . READ-MEM-ILST-INT) (IMMEDIATE-DEPENDENTS0 EXP . READ-MEM-ILST-INT) (IMMEDIATE-DEPENDENTS0 L . READ-MEM-ILST-INT) (IMMEDIATE-DEPENDENTS0 ADD-NON-NUMBERP . READ-MEM-ILST-INT) (IMMEDIATE-DEPENDENTS0 HEAD-READ-MEM . READ-MEM-ILST-INT) (IMMEDIATE-DEPENDENTS0 QUOTIENT-EXIT . READ-MEM-ILST-INT) (IMMEDIATE-DEPENDENTS0 REMAINDER-0 . READ-MEM-ILST-INT) (IMMEDIATE-DEPENDENTS0 ADD-0 . READ-MEM-ILST-INT) (IMMEDIATE-DEPENDENTS0 ADD-COMMUTATIVITY . READ-MEM-ILST-INT) (IMMEDIATE-DEPENDENTS0 QUOTIENT-0 . READ-MEM-ILST-INT) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . READ-MEM-ILST-INT) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . READ-MEM-ILST-INT) (IMMEDIATE-DEPENDENTS0 QUOTIENT-TIMES-LESSP . READ-MEM-ILST-INT) (IMMEDIATE-DEPENDENTS0 ADD-PLUS . READ-MEM-ILST-INT) (IMMEDIATE-DEPENDENTS0 ADD-ASSOCIATIVITY . READ-MEM-ILST-INT) (IMMEDIATE-DEPENDENTS0 MEM-INDUCT2 . READ-MEM-ILST-INT) (IMMEDIATE-DEPENDENTS0 GET-NTH . READ-MEM-ILST-INT) (IMMEDIATE-DEPENDENTS0 ADD . READ-MEM-ILST-INT) (IMMEDIATE-DEPENDENTS0 READ-MEM . READ-MEM-ILST-INT) (IMMEDIATE-DEPENDENTS0 NAT-TO-INT . READ-MEM-ILST-INT) (IMMEDIATE-DEPENDENTS0 NAT-TO-UINT . READ-MEM-ILST-INT) (IMMEDIATE-DEPENDENTS0 MEM-ILST . READ-MEM-ILST-INT) (LEMMAS NAT-TO-INT . READ-MEM-ILST-INT))))) (PUT1-LST (QUOTE READ-MEM-ILST) (QUOTE (IDATE 1000402215031 IMMEDIATE-DEPENDENTS0 (READ-MEM-ILST-ASL) EVENT (PROVE-LEMMA READ-MEM-ILST (REWRITE) (IMPLIES (AND (MEM-ILST OPSZ A MEM N LST) (AND (EQUAL OPLEN (TIMES (QUOTE 8) OPSZ)) (AND (EQUAL (REMAINDER (NAT-TO-UINT J) OPSZ) (QUOTE 0)) (LESSP (QUOTIENT (NAT-TO-UINT J) OPSZ) N)))) (EQUAL (NAT-TO-INT (READ-MEM (ADD (QUOTE 32) A J) MEM OPSZ) OPLEN) (GET-NTH (QUOTIENT (NAT-TO-UINT J) OPSZ) LST))) ((INDUCT (MEM-INDUCT2 OPSZ A I N LST J)) (ENABLE ADD-PLUS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 HEAD-MEM-ILST . READ-MEM-ILST) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . READ-MEM-ILST) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS . READ-MEM-ILST) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-PLUS2 . READ-MEM-ILST) (IMMEDIATE-DEPENDENTS0 TIMES-LESSP . READ-MEM-ILST) (IMMEDIATE-DEPENDENTS0 REMAINDER-EXIT . READ-MEM-ILST) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . READ-MEM-ILST) (IMMEDIATE-DEPENDENTS0 SUB1-OF-1 . READ-MEM-ILST) (IMMEDIATE-DEPENDENTS0 L . READ-MEM-ILST) (IMMEDIATE-DEPENDENTS0 ADD-NON-NUMBERP . READ-MEM-ILST) (IMMEDIATE-DEPENDENTS0 HEAD-READ-MEM . READ-MEM-ILST) (IMMEDIATE-DEPENDENTS0 QUOTIENT-EXIT . READ-MEM-ILST) (IMMEDIATE-DEPENDENTS0 REMAINDER-0 . READ-MEM-ILST) (IMMEDIATE-DEPENDENTS0 ADD-0 . READ-MEM-ILST) (IMMEDIATE-DEPENDENTS0 ADD-COMMUTATIVITY . READ-MEM-ILST) (IMMEDIATE-DEPENDENTS0 QUOTIENT-0 . READ-MEM-ILST) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . READ-MEM-ILST) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . READ-MEM-ILST) (IMMEDIATE-DEPENDENTS0 QUOTIENT-TIMES-LESSP . READ-MEM-ILST) (IMMEDIATE-DEPENDENTS0 ADD-PLUS . READ-MEM-ILST) (IMMEDIATE-DEPENDENTS0 ADD-ASSOCIATIVITY . READ-MEM-ILST) (IMMEDIATE-DEPENDENTS0 MEM-INDUCT2 . READ-MEM-ILST) (IMMEDIATE-DEPENDENTS0 GET-NTH . READ-MEM-ILST) (IMMEDIATE-DEPENDENTS0 ADD . READ-MEM-ILST) (IMMEDIATE-DEPENDENTS0 READ-MEM . READ-MEM-ILST) (IMMEDIATE-DEPENDENTS0 NAT-TO-INT . READ-MEM-ILST) (IMMEDIATE-DEPENDENTS0 NAT-TO-UINT . READ-MEM-ILST) (IMMEDIATE-DEPENDENTS0 MEM-ILST . READ-MEM-ILST) (LEMMAS NAT-TO-INT . READ-MEM-ILST))))) (PUT1-LST (QUOTE READ-MEM-LST-INT) (QUOTE (IDATE 1000402215030 EVENT (PROVE-LEMMA READ-MEM-LST-INT (REWRITE) (IMPLIES (AND (MEM-LST OPSZ A MEM N LST) (AND (EQUAL (REMAINDER (NAT-TO-INT J (QUOTE 32)) OPSZ) (QUOTE 0)) (AND (LESSP (QUOTIENT (NAT-TO-INT J (QUOTE 32)) OPSZ) N) (NUMBERP (NAT-TO-INT J (QUOTE 32)))))) (EQUAL (NAT-TO-UINT (READ-MEM (ADD (QUOTE 32) A J) MEM OPSZ)) (GET-NTH (QUOTIENT (NAT-TO-INT J (QUOTE 32)) OPSZ) LST))) ((ENABLE NAT-TO-INT))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EXP . READ-MEM-LST-INT) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . READ-MEM-LST-INT) (IMMEDIATE-DEPENDENTS0 QUOTIENT-TIMES-LESSP . READ-MEM-LST-INT) (IMMEDIATE-DEPENDENTS0 READ-MEM-LST-LA . READ-MEM-LST-INT) (IMMEDIATE-DEPENDENTS0 MEM-LST-NUMBERP . READ-MEM-LST-INT) (IMMEDIATE-DEPENDENTS0 QUOTIENT-0 . READ-MEM-LST-INT) (IMMEDIATE-DEPENDENTS0 ADD-NON-NUMBERP . READ-MEM-LST-INT) (IMMEDIATE-DEPENDENTS0 HEAD-READ-MEM . READ-MEM-LST-INT) (IMMEDIATE-DEPENDENTS0 READ-MEM-LST0 . READ-MEM-LST-INT) (IMMEDIATE-DEPENDENTS0 GET-NTH . READ-MEM-LST-INT) (IMMEDIATE-DEPENDENTS0 ADD . READ-MEM-LST-INT) (IMMEDIATE-DEPENDENTS0 READ-MEM . READ-MEM-LST-INT) (IMMEDIATE-DEPENDENTS0 NAT-TO-UINT . READ-MEM-LST-INT) (IMMEDIATE-DEPENDENTS0 NAT-TO-INT . READ-MEM-LST-INT) (IMMEDIATE-DEPENDENTS0 MEM-LST . READ-MEM-LST-INT) (LEMMAS NAT-TO-UINT . READ-MEM-LST-INT))))) (PUT1-LST (QUOTE READ-MEM-LST) (QUOTE (IDATE 1000402215030 IMMEDIATE-DEPENDENTS0 (READ-MEM-LST-ASL) EVENT (PROVE-LEMMA READ-MEM-LST (REWRITE) (IMPLIES (AND (MEM-LST OPSZ A MEM N LST) (AND (EQUAL (REMAINDER (NAT-TO-UINT J) OPSZ) (QUOTE 0)) (LESSP (QUOTIENT (NAT-TO-UINT J) OPSZ) N))) (EQUAL (NAT-TO-UINT (READ-MEM (ADD (QUOTE 32) A J) MEM OPSZ)) (GET-NTH (QUOTIENT (NAT-TO-UINT J) OPSZ) LST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 QUOTIENT-0 . READ-MEM-LST) (IMMEDIATE-DEPENDENTS0 ADD-NON-NUMBERP . READ-MEM-LST) (IMMEDIATE-DEPENDENTS0 HEAD-READ-MEM . READ-MEM-LST) (IMMEDIATE-DEPENDENTS0 READ-MEM-LST0 . READ-MEM-LST) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . READ-MEM-LST) (IMMEDIATE-DEPENDENTS0 QUOTIENT-TIMES-LESSP . READ-MEM-LST) (IMMEDIATE-DEPENDENTS0 READ-MEM-LST-LA . READ-MEM-LST) (IMMEDIATE-DEPENDENTS0 MEM-LST-NUMBERP . READ-MEM-LST) (IMMEDIATE-DEPENDENTS0 GET-NTH . READ-MEM-LST) (IMMEDIATE-DEPENDENTS0 ADD . READ-MEM-LST) (IMMEDIATE-DEPENDENTS0 READ-MEM . READ-MEM-LST) (IMMEDIATE-DEPENDENTS0 NAT-TO-UINT . READ-MEM-LST) (IMMEDIATE-DEPENDENTS0 MEM-LST . READ-MEM-LST) (LEMMAS NAT-TO-UINT . READ-MEM-LST))))) (PUT1-LST (QUOTE IREAD-MEM-GET0) (QUOTE (IDATE 1000402215030 IMMEDIATE-DEPENDENTS0 (READ-MEM-ILST-ASL) EVENT (PROVE-LEMMA IREAD-MEM-GET0 (REWRITE) (IMPLIES (AND (MEM-ILST OPSZ A MEM N LST) (AND (NOT (ZEROP N)) (EQUAL OPLEN (TIMES (QUOTE 8) OPSZ)))) (EQUAL (NAT-TO-INT (READ-MEM A MEM OPSZ) OPLEN) (GET-NTH (QUOTE 0) LST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 GET-NTH . IREAD-MEM-GET0) (IMMEDIATE-DEPENDENTS0 READ-MEM . IREAD-MEM-GET0) (IMMEDIATE-DEPENDENTS0 NAT-TO-INT . IREAD-MEM-GET0) (IMMEDIATE-DEPENDENTS0 MEM-ILST . IREAD-MEM-GET0) (LEMMAS NAT-TO-INT . IREAD-MEM-GET0))))) (PUT1-LST (QUOTE READ-MEM-LST0) (QUOTE (IDATE 1000402215030 IMMEDIATE-DEPENDENTS0 (READ-MEM-LST-ASL READ-MEM-LST-INT READ-MEM-LST) EVENT (PROVE-LEMMA READ-MEM-LST0 (REWRITE) (IMPLIES (AND (MEM-LST OPSZ A MEM N LST) (NOT (ZEROP N))) (EQUAL (NAT-TO-UINT (READ-MEM A MEM OPSZ)) (GET-NTH (QUOTE 0) LST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 GET-NTH . READ-MEM-LST0) (IMMEDIATE-DEPENDENTS0 READ-MEM . READ-MEM-LST0) (IMMEDIATE-DEPENDENTS0 NAT-TO-UINT . READ-MEM-LST0) (IMMEDIATE-DEPENDENTS0 MEM-LST . READ-MEM-LST0) (LEMMAS NAT-TO-UINT . READ-MEM-LST0))))) (PUT1-LST (QUOTE MEM-LST-GET-VALS) (QUOTE (IDATE 1000402215030 EVENT (PROVE-LEMMA MEM-LST-GET-VALS (REWRITE) (IMPLIES (AND (MEM-LST (QUOTE 1) A MEM N LST) (IF (LESSP N (PLUS (NAT-TO-UINT J) K)) (QUOTE *1*FALSE) (QUOTE *1*TRUE))) (EQUAL (BV-TO-LST (QUOTE 1) (READ-MEM (ADD (QUOTE 32) A J) MEM K) K) (GET-VALS (NAT-TO-UINT J) LST K))) ((INDUCT (READ-MEM A MEM K)) (ENABLE ADD-PLUS PLUS-ADD1-1))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-PLUS2 . MEM-LST-GET-VALS) (IMMEDIATE-DEPENDENTS0 QUOTIENT-PLUS2 . MEM-LST-GET-VALS) (IMMEDIATE-DEPENDENTS0 ADD-ASSOCIATIVITY . MEM-LST-GET-VALS) (IMMEDIATE-DEPENDENTS0 ADD-PLUS . MEM-LST-GET-VALS) (IMMEDIATE-DEPENDENTS0 BYTE-READ=READ-MEM-1 . MEM-LST-GET-VALS) (IMMEDIATE-DEPENDENTS0 READ-MEM-LST-LA . MEM-LST-GET-VALS) (IMMEDIATE-DEPENDENTS0 REMAINDER-1 . MEM-LST-GET-VALS) (IMMEDIATE-DEPENDENTS0 REMAINDER-SUB1 . MEM-LST-GET-VALS) (IMMEDIATE-DEPENDENTS0 QUOTIENT-1 . MEM-LST-GET-VALS) (IMMEDIATE-DEPENDENTS0 QUOTIENT-SUB1 . MEM-LST-GET-VALS) (IMMEDIATE-DEPENDENTS0 B . MEM-LST-GET-VALS) (IMMEDIATE-DEPENDENTS0 HEAD-APP . MEM-LST-GET-VALS) (IMMEDIATE-DEPENDENTS0 HEAD-LEMMA . MEM-LST-GET-VALS) (IMMEDIATE-DEPENDENTS0 MEM-LST-NUMBERP . MEM-LST-GET-VALS) (IMMEDIATE-DEPENDENTS0 MEM-LST-NAT-RANGEP . MEM-LST-GET-VALS) (IMMEDIATE-DEPENDENTS0 MEM-LST-GET-VALS0 . MEM-LST-GET-VALS) (IMMEDIATE-DEPENDENTS0 TAIL-APP . MEM-LST-GET-VALS) (IMMEDIATE-DEPENDENTS0 TAIL-OF-0 . MEM-LST-GET-VALS) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . MEM-LST-GET-VALS) (IMMEDIATE-DEPENDENTS0 ADD-NON-NUMBERP . MEM-LST-GET-VALS) (IMMEDIATE-DEPENDENTS0 HEAD-READ-MEM . MEM-LST-GET-VALS) (IMMEDIATE-DEPENDENTS0 GET-VALS . MEM-LST-GET-VALS) (IMMEDIATE-DEPENDENTS0 ADD . MEM-LST-GET-VALS) (IMMEDIATE-DEPENDENTS0 READ-MEM . MEM-LST-GET-VALS) (IMMEDIATE-DEPENDENTS0 BV-TO-LST . MEM-LST-GET-VALS) (IMMEDIATE-DEPENDENTS0 NAT-TO-UINT . MEM-LST-GET-VALS) (IMMEDIATE-DEPENDENTS0 MEM-LST . MEM-LST-GET-VALS) (LEMMAS BV-TO-LST . MEM-LST-GET-VALS))))) (PUT1-LST (QUOTE MEM-LST-GET-VALS0) (QUOTE (IDATE 1000402215030 IMMEDIATE-DEPENDENTS0 (MEM-LST-GET-VALS) EVENT (PROVE-LEMMA MEM-LST-GET-VALS0 (REWRITE) (IMPLIES (AND (MEM-LST (QUOTE 1) A MEM N LST) (IF (LESSP N K) (QUOTE *1*FALSE) (QUOTE *1*TRUE))) (EQUAL (BV-TO-LST (QUOTE 1) (READ-MEM A MEM K) K) (GET-VALS (QUOTE 0) LST K))) ((INDUCT (READ-MEM A MEM K)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BYTE-READ=READ-MEM-1 . MEM-LST-GET-VALS0) (IMMEDIATE-DEPENDENTS0 READ-MEM-LST-LA . MEM-LST-GET-VALS0) (IMMEDIATE-DEPENDENTS0 REMAINDER-1 . MEM-LST-GET-VALS0) (IMMEDIATE-DEPENDENTS0 REMAINDER-SUB1 . MEM-LST-GET-VALS0) (IMMEDIATE-DEPENDENTS0 QUOTIENT-1 . MEM-LST-GET-VALS0) (IMMEDIATE-DEPENDENTS0 QUOTIENT-SUB1 . MEM-LST-GET-VALS0) (IMMEDIATE-DEPENDENTS0 B . MEM-LST-GET-VALS0) (IMMEDIATE-DEPENDENTS0 HEAD-APP . MEM-LST-GET-VALS0) (IMMEDIATE-DEPENDENTS0 HEAD-LEMMA . MEM-LST-GET-VALS0) (IMMEDIATE-DEPENDENTS0 MEM-LST-NUMBERP . MEM-LST-GET-VALS0) (IMMEDIATE-DEPENDENTS0 MEM-LST-NAT-RANGEP . MEM-LST-GET-VALS0) (IMMEDIATE-DEPENDENTS0 TAIL-APP . MEM-LST-GET-VALS0) (IMMEDIATE-DEPENDENTS0 TAIL-OF-0 . MEM-LST-GET-VALS0) (IMMEDIATE-DEPENDENTS0 GET-VALS . MEM-LST-GET-VALS0) (IMMEDIATE-DEPENDENTS0 READ-MEM . MEM-LST-GET-VALS0) (IMMEDIATE-DEPENDENTS0 BV-TO-LST . MEM-LST-GET-VALS0) (IMMEDIATE-DEPENDENTS0 MEM-LST . MEM-LST-GET-VALS0) (LEMMAS BV-TO-LST . MEM-LST-GET-VALS0))))) (PUT1-LST (QUOTE MEM-LST-GET-LST) (QUOTE (IDATE 1000402215030 EVENT (PROVE-LEMMA MEM-LST-GET-LST (REWRITE) (IMPLIES (AND (MEM-LST (QUOTE 1) A MEM N LST) (IF (LESSP N (PLUS (NAT-TO-UINT J) K)) (QUOTE *1*FALSE) (QUOTE *1*TRUE))) (EQUAL (NAT-TO-UINT (READ-MEM (ADD (QUOTE 32) A J) MEM K)) (GET-LST (QUOTE 1) (NAT-TO-UINT J) LST K))) ((INDUCT (READ-MEM A MEM K)) (ENABLE ADD-PLUS PLUS-ADD1-1))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-PLUS2 . MEM-LST-GET-LST) (IMMEDIATE-DEPENDENTS0 QUOTIENT-PLUS2 . MEM-LST-GET-LST) (IMMEDIATE-DEPENDENTS0 ADD-ASSOCIATIVITY . MEM-LST-GET-LST) (IMMEDIATE-DEPENDENTS0 ADD-PLUS . MEM-LST-GET-LST) (IMMEDIATE-DEPENDENTS0 BYTE-READ=READ-MEM-1 . MEM-LST-GET-LST) (IMMEDIATE-DEPENDENTS0 READ-MEM-LST-LA . MEM-LST-GET-LST) (IMMEDIATE-DEPENDENTS0 REMAINDER-1 . MEM-LST-GET-LST) (IMMEDIATE-DEPENDENTS0 REMAINDER-SUB1 . MEM-LST-GET-LST) (IMMEDIATE-DEPENDENTS0 QUOTIENT-1 . MEM-LST-GET-LST) (IMMEDIATE-DEPENDENTS0 QUOTIENT-SUB1 . MEM-LST-GET-LST) (IMMEDIATE-DEPENDENTS0 B . MEM-LST-GET-LST) (IMMEDIATE-DEPENDENTS0 MEM-LST-NAT-RANGEP . MEM-LST-GET-LST) (IMMEDIATE-DEPENDENTS0 MEM-LST-NUMBERP . MEM-LST-GET-LST) (IMMEDIATE-DEPENDENTS0 HEAD-LEMMA . MEM-LST-GET-LST) (IMMEDIATE-DEPENDENTS0 APP-CANCEL . MEM-LST-GET-LST) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . MEM-LST-GET-LST) (IMMEDIATE-DEPENDENTS0 ADD-NON-NUMBERP . MEM-LST-GET-LST) (IMMEDIATE-DEPENDENTS0 HEAD-READ-MEM . MEM-LST-GET-LST) (IMMEDIATE-DEPENDENTS0 GET-LST . MEM-LST-GET-LST) (IMMEDIATE-DEPENDENTS0 ADD . MEM-LST-GET-LST) (IMMEDIATE-DEPENDENTS0 READ-MEM . MEM-LST-GET-LST) (IMMEDIATE-DEPENDENTS0 NAT-TO-UINT . MEM-LST-GET-LST) (IMMEDIATE-DEPENDENTS0 MEM-LST . MEM-LST-GET-LST) (LEMMAS NAT-TO-UINT . MEM-LST-GET-LST))))) (PUT1-LST (QUOTE MEM-LST-GET-LST0) (QUOTE (IDATE 1000402215030 EVENT (PROVE-LEMMA MEM-LST-GET-LST0 (REWRITE) (IMPLIES (AND (MEM-LST (QUOTE 1) A MEM N LST) (IF (LESSP N K) (QUOTE *1*FALSE) (QUOTE *1*TRUE))) (EQUAL (NAT-TO-UINT (READ-MEM A MEM K)) (GET-LST (QUOTE 1) (QUOTE 0) LST K))) ((INDUCT (READ-MEM A MEM K)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BYTE-READ=READ-MEM-1 . MEM-LST-GET-LST0) (IMMEDIATE-DEPENDENTS0 READ-MEM-LST-LA . MEM-LST-GET-LST0) (IMMEDIATE-DEPENDENTS0 REMAINDER-1 . MEM-LST-GET-LST0) (IMMEDIATE-DEPENDENTS0 REMAINDER-SUB1 . MEM-LST-GET-LST0) (IMMEDIATE-DEPENDENTS0 QUOTIENT-1 . MEM-LST-GET-LST0) (IMMEDIATE-DEPENDENTS0 QUOTIENT-SUB1 . MEM-LST-GET-LST0) (IMMEDIATE-DEPENDENTS0 B . MEM-LST-GET-LST0) (IMMEDIATE-DEPENDENTS0 MEM-LST-NAT-RANGEP . MEM-LST-GET-LST0) (IMMEDIATE-DEPENDENTS0 MEM-LST-NUMBERP . MEM-LST-GET-LST0) (IMMEDIATE-DEPENDENTS0 HEAD-LEMMA . MEM-LST-GET-LST0) (IMMEDIATE-DEPENDENTS0 APP-CANCEL . MEM-LST-GET-LST0) (IMMEDIATE-DEPENDENTS0 GET-LST . MEM-LST-GET-LST0) (IMMEDIATE-DEPENDENTS0 READ-MEM . MEM-LST-GET-LST0) (IMMEDIATE-DEPENDENTS0 NAT-TO-UINT . MEM-LST-GET-LST0) (IMMEDIATE-DEPENDENTS0 MEM-LST . MEM-LST-GET-LST0) (LEMMAS NAT-TO-UINT . MEM-LST-GET-LST0))))) (PUT1-LST (QUOTE READ-MEM-LST-LA) (QUOTE (IDATE 1000402215030 IMMEDIATE-DEPENDENTS0 (READ-MEM-LST-ASL READ-MEM-LST-INT READ-MEM-LST MEM-LST-GET-VALS MEM-LST-GET-VALS0 MEM-LST-GET-LST MEM-LST-GET-LST0) EVENT (PROVE-LEMMA READ-MEM-LST-LA (REWRITE) (IMPLIES (AND (MEM-LST OPSZ A MEM N LST) (AND (EQUAL (REMAINDER J OPSZ) (QUOTE 0)) (LESSP (QUOTIENT J OPSZ) N))) (EQUAL (READ-MEM (ADD (QUOTE 32) A J) MEM OPSZ) (GET-NTH (QUOTIENT J OPSZ) LST))) ((INDUCT (MEM-INDUCT2 OPSZ A I N LST J)) (ENABLE ADD-PLUS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS . READ-MEM-LST-LA) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-PLUS2 . READ-MEM-LST-LA) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . READ-MEM-LST-LA) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . READ-MEM-LST-LA) (IMMEDIATE-DEPENDENTS0 SUB1-OF-1 . READ-MEM-LST-LA) (IMMEDIATE-DEPENDENTS0 L . READ-MEM-LST-LA) (IMMEDIATE-DEPENDENTS0 ADD-0 . READ-MEM-LST-LA) (IMMEDIATE-DEPENDENTS0 ADD-COMMUTATIVITY . READ-MEM-LST-LA) (IMMEDIATE-DEPENDENTS0 HEAD-READ-MEM . READ-MEM-LST-LA) (IMMEDIATE-DEPENDENTS0 QUOTIENT-0 . READ-MEM-LST-LA) (IMMEDIATE-DEPENDENTS0 QUOTIENT-EXIT . READ-MEM-LST-LA) (IMMEDIATE-DEPENDENTS0 ADD-NON-NUMBERP . READ-MEM-LST-LA) (IMMEDIATE-DEPENDENTS0 REMAINDER-0 . READ-MEM-LST-LA) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . READ-MEM-LST-LA) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . READ-MEM-LST-LA) (IMMEDIATE-DEPENDENTS0 QUOTIENT-TIMES-LESSP . READ-MEM-LST-LA) (IMMEDIATE-DEPENDENTS0 ADD-PLUS . READ-MEM-LST-LA) (IMMEDIATE-DEPENDENTS0 ADD-ASSOCIATIVITY . READ-MEM-LST-LA) (IMMEDIATE-DEPENDENTS0 MEM-INDUCT2 . READ-MEM-LST-LA) (IMMEDIATE-DEPENDENTS0 GET-NTH . READ-MEM-LST-LA) (IMMEDIATE-DEPENDENTS0 ADD . READ-MEM-LST-LA) (IMMEDIATE-DEPENDENTS0 READ-MEM . READ-MEM-LST-LA) (IMMEDIATE-DEPENDENTS0 MEM-LST . READ-MEM-LST-LA) (LEMMAS READ-MEM . READ-MEM-LST-LA))))) (PUT1-LST (QUOTE *1*MEM-INDUCT2) (QUOTE (MAIN-EVENT MEM-INDUCT2))) (PUT1-LST (QUOTE MEM-INDUCT2) (QUOTE (TYPE-PRESCRIPTION-LST ((MEM-INDUCT2 2 NIL NIL NIL NIL NIL NIL)) TOTALP-LST ((MEM-INDUCT2 . T)) QUICK-BLOCK-INFO (UNCHANGING SELF-REFLEXIVE SELF-REFLEXIVE SELF-REFLEXIVE SELF-REFLEXIVE SELF-REFLEXIVE) SDEFN (LAMBDA (OPSZ ADDR I N LST J) (IF (EQUAL N (QUOTE 0)) (QUOTE *1*TRUE) (IF (NUMBERP N) (MEM-INDUCT2 OPSZ (ADD (QUOTE 32) ADDR OPSZ) (SUB1 I) (SUB1 N) (CDR LST) (DIFFERENCE J OPSZ)) (QUOTE *1*TRUE)))) LISP-CODE *1*MEM-INDUCT2 SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((ZEROP N)) NIL) (TESTS-AND-CASES ((NOT (ZEROP N))) ((OPSZ (ADD (QUOTE 32) ADDR OPSZ) (SUB1 I) (SUB1 N) (CDR LST) (DIFFERENCE J OPSZ))))) LEVEL-NO 4 JUSTIFICATIONS ((JUSTIFICATION (N) (COUNT N) LESSP (ZEROP COUNT-NUMBERP LESSP-SUB1))) IDATE 1000402215029 CONTROLLER-POCKETS (8) SATELLITES (*1*MEM-INDUCT2) IMMEDIATE-DEPENDENTS0 (WRITE-MEM-ILST WRITE-MEM-LST-LA READ-MEM-ILST-INT READ-MEM-ILST READ-MEM-LST-LA) EVENT (DEFN MEM-INDUCT2 (OPSZ ADDR I N LST J) (IF (ZEROP N) (QUOTE *1*TRUE) (MEM-INDUCT2 OPSZ (ADD (QUOTE 32) ADDR OPSZ) (SUB1 I) (SUB1 N) (CDR LST) (DIFFERENCE J OPSZ)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ADD . MEM-INDUCT2) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . MEM-INDUCT2) (DCELL . *1*MEM-INDUCT2))))) (PUT1-LST (QUOTE PUT-VALS-APPEND) (QUOTE (IDATE 1000402215029 IMMEDIATE-DEPENDENTS0 (PUT-GET-VALS-IS-CPY MEM-LST-PUT-VALS) EVENT (PROVE-LEMMA PUT-VALS-APPEND (REWRITE) (IMPLIES (IF (LESSP (LEN X) N) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (EQUAL (PUT-VALS (APPEND X Y) M LST N) (PUT-VALS X M LST N))) ((INDUCT (PUT-VALS X M LST N)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 GET-NTH-APPEND . PUT-VALS-APPEND) (IMMEDIATE-DEPENDENTS0 GET-NTH . PUT-VALS-APPEND) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . PUT-VALS-APPEND) (IMMEDIATE-DEPENDENTS0 PUT-VALS . PUT-VALS-APPEND) (IMMEDIATE-DEPENDENTS0 LEN . PUT-VALS-APPEND) (LEMMAS PUT-VALS . PUT-VALS-APPEND))))) (PUT1-LST (QUOTE GET-VALS-APPEND) (QUOTE (IDATE 1000402215029 IMMEDIATE-DEPENDENTS0 (MEM-LST-PUT-VALS) EVENT (PROVE-LEMMA GET-VALS-APPEND (REWRITE) (IMPLIES (IF (LESSP (LEN X) N) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (EQUAL (GET-VALS (QUOTE 0) (APPEND X Y) N) (GET-VALS (QUOTE 0) X N)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . GET-VALS-APPEND) (IMMEDIATE-DEPENDENTS0 SUB1-OF-1 . GET-VALS-APPEND) (IMMEDIATE-DEPENDENTS0 GET-NTH . GET-VALS-APPEND) (IMMEDIATE-DEPENDENTS0 GET-NTH-APPEND . GET-VALS-APPEND) (IMMEDIATE-DEPENDENTS0 LESSP-OF-1 . GET-VALS-APPEND) (IMMEDIATE-DEPENDENTS0 GET-VALS . GET-VALS-APPEND) (IMMEDIATE-DEPENDENTS0 LEN . GET-VALS-APPEND) (LEMMAS GET-VALS . GET-VALS-APPEND))))) (PUT1-LST (QUOTE GET-NTH-APPEND) (QUOTE (IDATE 1000402215029 IMMEDIATE-DEPENDENTS0 (PUT-GET-VALS-IS-CPY MEM-LST-PUT-VALS PUT-VALS-APPEND GET-VALS-APPEND) EVENT (PROVE-LEMMA GET-NTH-APPEND (REWRITE) (EQUAL (GET-NTH I (APPEND X Y)) (IF (LESSP I (LEN X)) (GET-NTH I X) (GET-NTH (DIFFERENCE I (LEN X)) Y))) ((ENABLE GET-NTH))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . GET-NTH-APPEND) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . GET-NTH-APPEND) (IMMEDIATE-DEPENDENTS0 LEN . GET-NTH-APPEND) (IMMEDIATE-DEPENDENTS0 GET-NTH . GET-NTH-APPEND) (LEMMAS GET-NTH . GET-NTH-APPEND))))) (PUT1-LST (QUOTE GET-VALS-MCAR) (QUOTE (IDATE 1000402215029 EVENT (PROVE-LEMMA GET-VALS-MCAR (REWRITE) (IMPLIES (IF (LESSP J (PLUS M N)) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (EQUAL (GET-VALS M (MCAR J LST) N) (GET-VALS M LST N))) ((INDUCT (GET-VALS M LST N)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MCAR-NTH . GET-VALS-MCAR) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . GET-VALS-MCAR) (IMMEDIATE-DEPENDENTS0 MCAR . GET-VALS-MCAR) (IMMEDIATE-DEPENDENTS0 GET-VALS . GET-VALS-MCAR) (LEMMAS GET-VALS . GET-VALS-MCAR))))) (PUT1-LST (QUOTE GET-VALS-MCDR) (QUOTE (IDATE 1000402215029 EVENT (PROVE-LEMMA GET-VALS-MCDR (REWRITE) (EQUAL (GET-VALS M (MCDR J LST) N) (GET-VALS (PLUS M J) LST N))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 GET-VALS-CDR . GET-VALS-MCDR) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . GET-VALS-MCDR) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . GET-VALS-MCDR) (IMMEDIATE-DEPENDENTS0 MCDR . GET-VALS-MCDR) (IMMEDIATE-DEPENDENTS0 GET-VALS . GET-VALS-MCDR) (LEMMAS GET-VALS . GET-VALS-MCDR))))) (PUT1-LST (QUOTE GET-VALS-CDR) (QUOTE (IDATE 1000402215029 IMMEDIATE-DEPENDENTS0 (GET-VALS-0 GET-VALS-MCDR) EVENT (PROVE-LEMMA GET-VALS-CDR (REWRITE) (EQUAL (GET-VALS M (CDR LST) N) (GET-VALS (ADD1 M) LST N)) ((ENABLE GET-NTH))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . GET-VALS-CDR) (IMMEDIATE-DEPENDENTS0 GET-NTH . GET-VALS-CDR) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . GET-VALS-CDR) (IMMEDIATE-DEPENDENTS0 GET-VALS . GET-VALS-CDR) (LEMMAS GET-VALS . GET-VALS-CDR))))) (PUT1-LST (QUOTE GET-LST-MCAR) (QUOTE (IDATE 1000402215029 EVENT (PROVE-LEMMA GET-LST-MCAR (REWRITE) (IMPLIES (IF (LESSP J (PLUS M N)) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (EQUAL (GET-LST OPSZ M (MCAR J LST) N) (GET-LST OPSZ M LST N))) ((INDUCT (GET-LST OPSZ M LST N)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MCAR-NTH . GET-LST-MCAR) (IMMEDIATE-DEPENDENTS0 APP-CANCEL . GET-LST-MCAR) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . GET-LST-MCAR) (IMMEDIATE-DEPENDENTS0 MCAR . GET-LST-MCAR) (IMMEDIATE-DEPENDENTS0 GET-LST . GET-LST-MCAR) (LEMMAS GET-LST . GET-LST-MCAR))))) (PUT1-LST (QUOTE GET-LST-MCDR) (QUOTE (IDATE 1000402215029 EVENT (PROVE-LEMMA GET-LST-MCDR (REWRITE) (EQUAL (GET-LST OPSZ M (MCDR J LST) N) (GET-LST OPSZ (PLUS M J) LST N))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 GET-LST-CDR . GET-LST-MCDR) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . GET-LST-MCDR) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . GET-LST-MCDR) (IMMEDIATE-DEPENDENTS0 MCDR . GET-LST-MCDR) (IMMEDIATE-DEPENDENTS0 GET-LST . GET-LST-MCDR) (LEMMAS GET-LST . GET-LST-MCDR))))) (PUT1-LST (QUOTE GET-LST-CDR) (QUOTE (IDATE 1000402215029 IMMEDIATE-DEPENDENTS0 (GET-LST-MCDR) EVENT (PROVE-LEMMA GET-LST-CDR (REWRITE) (EQUAL (GET-LST OPSZ M (CDR LST) N) (GET-LST OPSZ (ADD1 M) LST N)) ((ENABLE GET-NTH))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . GET-LST-CDR) (IMMEDIATE-DEPENDENTS0 GET-NTH . GET-LST-CDR) (IMMEDIATE-DEPENDENTS0 APP-CANCEL . GET-LST-CDR) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . GET-LST-CDR) (IMMEDIATE-DEPENDENTS0 GET-LST . GET-LST-CDR) (LEMMAS GET-LST . GET-LST-CDR))))) (PUT1-LST (QUOTE MCDR-NTH) (QUOTE (IDATE 1000402215029 IMMEDIATE-DEPENDENTS0 (LESSP-SLEN-MCDR-0 LESSP-SLEN-MCDR) EVENT (PROVE-LEMMA MCDR-NTH (REWRITE) (EQUAL (GET-NTH N (MCDR M LST)) (GET-NTH (PLUS M N) LST))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . MCDR-NTH) (IMMEDIATE-DEPENDENTS0 MCDR . MCDR-NTH) (IMMEDIATE-DEPENDENTS0 GET-NTH . MCDR-NTH) (LEMMAS GET-NTH . MCDR-NTH))))) (PUT1-LST (QUOTE MCAR-NTH) (QUOTE (IDATE 1000402215029 IMMEDIATE-DEPENDENTS0 (GET-VALS-MCAR GET-LST-MCAR) EVENT (PROVE-LEMMA MCAR-NTH (REWRITE) (EQUAL (GET-NTH N (MCAR M LST)) (IF (LESSP N M) (GET-NTH N LST) (QUOTE 0))) ((ENABLE GET-NTH))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 GET-NTH-NIL . MCAR-NTH) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . MCAR-NTH) (IMMEDIATE-DEPENDENTS0 MCAR . MCAR-NTH) (IMMEDIATE-DEPENDENTS0 GET-NTH . MCAR-NTH) (LEMMAS GET-NTH . MCAR-NTH))))) (PUT1-LST (QUOTE MCDR-MCDR) (QUOTE (IDATE 1000402215029 IMMEDIATE-DEPENDENTS0 (MEM-LST-MCDR-UINT-1) EVENT (PROVE-LEMMA MCDR-MCDR (REWRITE) (EQUAL (MCDR N (MCDR M LST)) (MCDR (PLUS M N) LST))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . MCDR-MCDR) (IMMEDIATE-DEPENDENTS0 MCDR . MCDR-MCDR) (LEMMAS MCDR . MCDR-MCDR))))) (PUT1-LST (QUOTE MCAR-MCAR) (QUOTE (IDATE 1000402215029 IMMEDIATE-DEPENDENTS0 (MEM-LST-MCAR-2 MEM-LST-MCAR-1) EVENT (PROVE-LEMMA MCAR-MCAR (REWRITE) (IMPLIES (IF (LESSP N M) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (EQUAL (MCAR M (MCAR N LST)) (MCAR M LST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-OF-1 . MCAR-MCAR) (IMMEDIATE-DEPENDENTS0 MCAR . MCAR-MCAR) (LEMMAS MCAR . MCAR-MCAR))))) (PUT1-LST (QUOTE CDR-MCDR) (QUOTE (IDATE 1000402215029 IMMEDIATE-DEPENDENTS0 (MEM-LST-MCDR-1 MEM-LST-MCAR-1) EVENT (PROVE-LEMMA CDR-MCDR (REWRITE) (EQUAL (CDR (MCDR N LST)) (MCDR (ADD1 N) LST))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . CDR-MCDR) (IMMEDIATE-DEPENDENTS0 MCDR-LISTP-LEN . CDR-MCDR) (IMMEDIATE-DEPENDENTS0 LEN . CDR-MCDR) (IMMEDIATE-DEPENDENTS0 MCDR . CDR-MCDR) (LEMMAS CDR . CDR-MCDR))))) (PUT1-LST (QUOTE MCDR-LISTP-LEN) (QUOTE (IDATE 1000402215028 IMMEDIATE-DEPENDENTS0 (MEM-LST-MCDR-1 MEM-LST-MCDR MEM-LST-MCAR-1 CDR-MCDR) EVENT (PROVE-LEMMA MCDR-LISTP-LEN (REWRITE) (EQUAL (LISTP (MCDR N LST)) (LESSP N (LEN LST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . MCDR-LISTP-LEN) (IMMEDIATE-DEPENDENTS0 LEN . MCDR-LISTP-LEN) (IMMEDIATE-DEPENDENTS0 MCDR . MCDR-LISTP-LEN) (LEMMAS LISTP . MCDR-LISTP-LEN))))) (PUT1-LST (QUOTE BV-TO-LST-PROPER-LSTP) (QUOTE (IDATE 1000402215028 IMMEDIATE-DEPENDENTS0 (MEM-LST-PUT-VALS) EVENT (PROVE-LEMMA BV-TO-LST-PROPER-LSTP (REWRITE) (PROPER-LSTP (BV-TO-LST OPSZ BV N))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . BV-TO-LST-PROPER-LSTP) (IMMEDIATE-DEPENDENTS0 BV-TO-LST . BV-TO-LST-PROPER-LSTP) (IMMEDIATE-DEPENDENTS0 PROPER-LSTP . BV-TO-LST-PROPER-LSTP) (LEMMAS PROPER-LSTP . BV-TO-LST-PROPER-LSTP))))) (PUT1-LST (QUOTE GET-VALS-PROPER-LSTP) (QUOTE (IDATE 1000402215028 EVENT (PROVE-LEMMA GET-VALS-PROPER-LSTP (REWRITE) (PROPER-LSTP (GET-VALS M LST N))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . GET-VALS-PROPER-LSTP) (IMMEDIATE-DEPENDENTS0 GET-VALS . GET-VALS-PROPER-LSTP) (IMMEDIATE-DEPENDENTS0 PROPER-LSTP . GET-VALS-PROPER-LSTP) (LEMMAS PROPER-LSTP . GET-VALS-PROPER-LSTP))))) (PUT1-LST (QUOTE BV-TO-LST-LEN) (QUOTE (IDATE 1000402215028 IMMEDIATE-DEPENDENTS0 (MEM-LST-PUT-VALS) EVENT (PROVE-LEMMA BV-TO-LST-LEN (REWRITE) (EQUAL (LEN (BV-TO-LST OPSZ BV N)) (FIX N))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-ADD1 . BV-TO-LST-LEN) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . BV-TO-LST-LEN) (IMMEDIATE-DEPENDENTS0 APPEND-LEN . BV-TO-LST-LEN) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . BV-TO-LST-LEN) (IMMEDIATE-DEPENDENTS0 BV-TO-LST . BV-TO-LST-LEN) (IMMEDIATE-DEPENDENTS0 LEN . BV-TO-LST-LEN) (LEMMAS LEN . BV-TO-LST-LEN))))) (PUT1-LST (QUOTE GET-VALS-LEN) (QUOTE (IDATE 1000402215028 IMMEDIATE-DEPENDENTS0 (PUT-GET-VALS-IS-CPY) EVENT (PROVE-LEMMA GET-VALS-LEN (REWRITE) (EQUAL (LEN (GET-VALS M LST N)) (FIX N))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-ADD1 . GET-VALS-LEN) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . GET-VALS-LEN) (IMMEDIATE-DEPENDENTS0 APPEND-LEN . GET-VALS-LEN) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . GET-VALS-LEN) (IMMEDIATE-DEPENDENTS0 GET-VALS . GET-VALS-LEN) (IMMEDIATE-DEPENDENTS0 LEN . GET-VALS-LEN) (LEMMAS LEN . GET-VALS-LEN))))) (PUT1-LST (QUOTE APPEND-LEN) (QUOTE (IDATE 1000402215028 IMMEDIATE-DEPENDENTS0 (BV-TO-LST-LEN GET-VALS-LEN) EVENT (PROVE-LEMMA APPEND-LEN (REWRITE) (EQUAL (LEN (APPEND X Y)) (PLUS (LEN X) (LEN Y)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . APPEND-LEN) (IMMEDIATE-DEPENDENTS0 PLUS-ADD1-1 . APPEND-LEN) (IMMEDIATE-DEPENDENTS0 LEN . APPEND-LEN) (LEMMAS LEN . APPEND-LEN))))) (PUT1-LST (QUOTE *1*PROPER-LSTP) (QUOTE (MAIN-EVENT PROPER-LSTP))) (PUT1-LST (QUOTE PROPER-LSTP) (QUOTE (TYPE-PRESCRIPTION-LST ((PROPER-LSTP 3 NIL)) LEMMAS ((REWRITE-RULE BV-TO-LST-PROPER-LSTP NIL (PROPER-LSTP (BV-TO-LST OPSZ BV N)) NIL) (REWRITE-RULE GET-VALS-PROPER-LSTP NIL (PROPER-LSTP (GET-VALS M LST N)) NIL)) TOTALP-LST ((PROPER-LSTP . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE) SDEFN (LAMBDA (LST) (IF (LISTP LST) (PROPER-LSTP (CDR LST)) (EQUAL LST (QUOTE NIL)))) LISP-CODE *1*PROPER-LSTP SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((NLISTP LST)) NIL) (TESTS-AND-CASES ((NOT (NLISTP LST))) (((CDR LST))))) LEVEL-NO 1 JUSTIFICATIONS ((JUSTIFICATION (LST) (COUNT LST) LESSP (CDR-LESSP NLISTP ZERO CDR-LESSEQP))) IDATE 1000402215028 CONTROLLER-POCKETS (1) SATELLITES (*1*PROPER-LSTP) IMMEDIATE-DEPENDENTS0 (GET-VALS-0 BV-TO-LST-PROPER-LSTP GET-VALS-PROPER-LSTP) EVENT (DEFN PROPER-LSTP (LST) (IF (NLISTP LST) (EQUAL LST (QUOTE NIL)) (PROPER-LSTP (CDR LST)))) LOCAL-UNDO-TUPLES ((DCELL . *1*PROPER-LSTP))))) (PUT1-LST (QUOTE *1*MCDR) (QUOTE (MAIN-EVENT MCDR))) (PUT1-LST (QUOTE MCDR) (QUOTE (TYPE-PRESCRIPTION-LST ((MCDR -1 NIL T)) LEMMAS ((REWRITE-RULE MCDR-MCDR NIL (EQUAL (MCDR N (MCDR M LST)) (MCDR (PLUS M N) LST)) NIL)) TOTALP-LST ((MCDR . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE) SDEFN (LAMBDA (N LST) (IF (EQUAL N (QUOTE 0)) LST (IF (NUMBERP N) (MCDR (SUB1 N) (CDR LST)) LST))) LISP-CODE *1*MCDR SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((ZEROP N)) NIL) (TESTS-AND-CASES ((NOT (ZEROP N))) (((SUB1 N) (CDR LST))))) LEVEL-NO 1 JUSTIFICATIONS ((JUSTIFICATION (N) (COUNT N) LESSP (ZEROP COUNT-NUMBERP LESSP-SUB1))) IDATE 1000402215028 CONTROLLER-POCKETS (1) SATELLITES (*1*MCDR) IMMEDIATE-DEPENDENTS0 (STRSTR-BOUNDS LESSP-SLEN-MCDR-0 LESSP-SLEN-MCDR STRSTR* STRSTR1* STRSTR STRSTR1 MEM-LST-MCDR-UINT-1 MEM-LST-MCDR-1 MEM-LST-MCDR-UINT MEM-LST-MCDR-0 MEM-LST-MCDR MEM-LST-MCAR-1 MEM-LST-PLUS GET-VALS-MCDR GET-LST-MCDR MCDR-NTH MCDR-MCDR CDR-MCDR MCDR-LISTP-LEN) EVENT (DEFN MCDR (N LST) (IF (ZEROP N) LST (MCDR (SUB1 N) (CDR LST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . MCDR) (DCELL . *1*MCDR))))) (PUT1-LST (QUOTE *1*MCAR) (QUOTE (MAIN-EVENT MCAR))) (PUT1-LST (QUOTE MCAR) (QUOTE (TYPE-PRESCRIPTION-LST ((MCAR 24 NIL NIL)) LEMMAS ((REWRITE-RULE MCAR-MCAR ((NOT (LESSP N M))) (EQUAL (MCAR M (MCAR N LST)) (MCAR M LST)) NIL)) TOTALP-LST ((MCAR . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE) SDEFN (LAMBDA (N LST) (IF (EQUAL N (QUOTE 0)) (QUOTE NIL) (IF (NUMBERP N) (CONS (CAR LST) (MCAR (SUB1 N) (CDR LST))) (QUOTE NIL)))) LISP-CODE *1*MCAR SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((ZEROP N)) NIL) (TESTS-AND-CASES ((NOT (ZEROP N))) (((SUB1 N) (CDR LST))))) LEVEL-NO 1 JUSTIFICATIONS ((JUSTIFICATION (N) (COUNT N) LESSP (ZEROP COUNT-NUMBERP LESSP-SUB1))) IDATE 1000402215028 CONTROLLER-POCKETS (1) SATELLITES (*1*MCAR) IMMEDIATE-DEPENDENTS0 (MEM-LST-MCDR MEM-LST-MCAR-2 MEM-LST-MCAR-1 MEM-LST-MCAR MEM-LST-PLUS GET-VALS-MCAR GET-LST-MCAR MCAR-NTH MCAR-MCAR) EVENT (DEFN MCAR (N LST) (IF (ZEROP N) (QUOTE NIL) (CONS (CAR LST) (MCAR (SUB1 N) (CDR LST))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . MCAR) (DCELL . *1*MCAR))))) (PUT1-LST (QUOTE *1*LST-TO-BV) (QUOTE (MAIN-EVENT LST-TO-BV))) (PUT1-LST (QUOTE LST-TO-BV) (QUOTE (TYPE-PRESCRIPTION-LST ((LST-TO-BV 4 NIL NIL NIL)) TOTALP-LST ((LST-TO-BV . T)) QUICK-BLOCK-INFO (UNCHANGING UNCHANGING SELF-REFLEXIVE) SDEFN (LAMBDA (OPSZ LST N) (IF (EQUAL N (QUOTE 0)) (QUOTE 0) (IF (NUMBERP N) (APP (TIMES (QUOTE 8) OPSZ) (GET-NTH (SUB1 N) LST) (LST-TO-BV OPSZ LST (SUB1 N))) (QUOTE 0)))) LISP-CODE *1*LST-TO-BV SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((ZEROP N)) NIL) (TESTS-AND-CASES ((NOT (ZEROP N))) ((OPSZ LST (SUB1 N))))) LEVEL-NO 4 JUSTIFICATIONS ((JUSTIFICATION (N) (COUNT N) LESSP (ZEROP COUNT-NUMBERP LESSP-SUB1))) IDATE 1000402215028 CONTROLLER-POCKETS (4) SATELLITES (*1*LST-TO-BV) EVENT (DEFN LST-TO-BV (OPSZ LST N) (IF (ZEROP N) (QUOTE 0) (APP (TIMES (QUOTE 8) OPSZ) (GET-NTH (SUB1 N) LST) (LST-TO-BV OPSZ LST (SUB1 N))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 GET-NTH . LST-TO-BV) (IMMEDIATE-DEPENDENTS0 APP . LST-TO-BV) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . LST-TO-BV) (DCELL . *1*LST-TO-BV))))) (PUT1-LST (QUOTE *1*BV-TO-LST) (QUOTE (MAIN-EVENT BV-TO-LST))) (PUT1-LST (QUOTE BV-TO-LST) (QUOTE (TYPE-PRESCRIPTION-LST ((BV-TO-LST 24 NIL NIL NIL)) LEMMAS ((REWRITE-RULE MEM-LST-GET-VALS ((MEM-LST (QUOTE 1) A MEM N LST) (NOT (LESSP N (PLUS (NAT-TO-UINT J) K)))) (EQUAL (BV-TO-LST (QUOTE 1) (READ-MEM (ADD (QUOTE 32) A J) MEM K) K) (GET-VALS (NAT-TO-UINT J) LST K)) NIL) (REWRITE-RULE MEM-LST-GET-VALS0 ((MEM-LST (QUOTE 1) A MEM N LST) (NOT (LESSP N K))) (EQUAL (BV-TO-LST (QUOTE 1) (READ-MEM A MEM K) K) (GET-VALS (QUOTE 0) LST K)) NIL)) TOTALP-LST ((BV-TO-LST . T)) QUICK-BLOCK-INFO (UNCHANGING SELF-REFLEXIVE SELF-REFLEXIVE) SDEFN (LAMBDA (OPSZ BV N) (IF (EQUAL N (QUOTE 0)) (QUOTE NIL) (IF (NUMBERP N) (APPEND (BV-TO-LST OPSZ (TAIL BV (TIMES (QUOTE 8) OPSZ)) (SUB1 N)) (CONS (HEAD BV (TIMES (QUOTE 8) OPSZ)) (QUOTE NIL))) (QUOTE NIL)))) LISP-CODE *1*BV-TO-LST SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((ZEROP N)) NIL) (TESTS-AND-CASES ((NOT (ZEROP N))) ((OPSZ (TAIL BV (TIMES (QUOTE 8) OPSZ)) (SUB1 N))))) LEVEL-NO 4 JUSTIFICATIONS ((JUSTIFICATION (N) (COUNT N) LESSP (ZEROP COUNT-NUMBERP LESSP-SUB1))) IDATE 1000402215028 CONTROLLER-POCKETS (4) SATELLITES (*1*BV-TO-LST) IMMEDIATE-DEPENDENTS0 (MEM-LST-PUT-VALS MEM-LST-GET-VALS MEM-LST-GET-VALS0 BV-TO-LST-PROPER-LSTP BV-TO-LST-LEN) EVENT (DEFN BV-TO-LST (OPSZ BV N) (IF (ZEROP N) (QUOTE NIL) (APPEND (BV-TO-LST OPSZ (TAIL BV (TIMES (QUOTE 8) OPSZ)) (SUB1 N)) (CONS (HEAD BV (TIMES (QUOTE 8) OPSZ)) (QUOTE NIL))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 HEAD . BV-TO-LST) (IMMEDIATE-DEPENDENTS0 TAIL . BV-TO-LST) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . BV-TO-LST) (DCELL . *1*BV-TO-LST))))) (PUT1-LST (QUOTE *1*PUT-VALS) (QUOTE (MAIN-EVENT PUT-VALS))) (PUT1-LST (QUOTE PUT-VALS) (QUOTE (TYPE-PRESCRIPTION-LST ((PUT-VALS 16 NIL NIL T NIL)) LEMMAS ((REWRITE-RULE PUT-GET-VALS-IS-CPY NIL (EQUAL (PUT-VALS (GET-VALS I2 LST2 N) I1 LST1 N) (LSTCPY I1 LST1 I2 LST2 N)) NIL) (REWRITE-RULE PUT-VALS-APPEND ((NOT (LESSP (LEN X) N))) (EQUAL (PUT-VALS (APPEND X Y) M LST N) (PUT-VALS X M LST N)) NIL)) TOTALP-LST ((PUT-VALS . T)) QUICK-BLOCK-INFO (UNCHANGING UNCHANGING SELF-REFLEXIVE SELF-REFLEXIVE) SDEFN (LAMBDA (VALS M LST N) (IF (EQUAL N (QUOTE 0)) LST (IF (NUMBERP N) (PUT-VALS VALS M (PUT-NTH (GET-NTH (SUB1 N) VALS) (PLUS M (SUB1 N)) LST) (SUB1 N)) LST))) LISP-CODE *1*PUT-VALS SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((ZEROP N)) NIL) (TESTS-AND-CASES ((NOT (ZEROP N))) ((VALS M (PUT-NTH (GET-NTH (SUB1 N) VALS) (PLUS M (SUB1 N)) LST) (SUB1 N))))) LEVEL-NO 2 JUSTIFICATIONS ((JUSTIFICATION (N) (COUNT N) LESSP (ZEROP COUNT-NUMBERP LESSP-SUB1))) IDATE 1000402215028 CONTROLLER-POCKETS (8) SATELLITES (*1*PUT-VALS) IMMEDIATE-DEPENDENTS0 (MOVN-LST PUT-GET-VALS-IS-CPY MEM-LST-PUT-VALS PUT-VALS-APPEND) EVENT (DEFN PUT-VALS (VALS M LST N) (IF (ZEROP N) LST (PUT-VALS VALS M (PUT-NTH (GET-NTH (SUB1 N) VALS) (PLUS M (SUB1 N)) LST) (SUB1 N)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 GET-NTH . PUT-VALS) (IMMEDIATE-DEPENDENTS0 PUT-NTH . PUT-VALS) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . PUT-VALS) (DCELL . *1*PUT-VALS))))) (PUT1-LST (QUOTE *1*GET-VALS) (QUOTE (MAIN-EVENT GET-VALS))) (PUT1-LST (QUOTE GET-VALS) (QUOTE (TYPE-PRESCRIPTION-LST ((GET-VALS 24 NIL NIL NIL)) LEMMAS ((REWRITE-RULE GET-VALS-0 ((EQUAL (LEN LST) N) (PROPER-LSTP LST)) (EQUAL (GET-VALS (QUOTE 0) LST N) LST) NIL) (REWRITE-RULE GET-VALS-APPEND ((NOT (LESSP (LEN X) N))) (EQUAL (GET-VALS (QUOTE 0) (APPEND X Y) N) (GET-VALS (QUOTE 0) X N)) NIL) (REWRITE-RULE GET-VALS-MCAR ((NOT (LESSP J (PLUS M N)))) (EQUAL (GET-VALS M (MCAR J LST) N) (GET-VALS M LST N)) NIL) (REWRITE-RULE GET-VALS-MCDR NIL (EQUAL (GET-VALS M (MCDR J LST) N) (GET-VALS (PLUS M J) LST N)) NIL) (REWRITE-RULE GET-VALS-CDR NIL (EQUAL (GET-VALS M (CDR LST) N) (GET-VALS (ADD1 M) LST N)) NIL)) TOTALP-LST ((GET-VALS . T)) QUICK-BLOCK-INFO (UNCHANGING UNCHANGING SELF-REFLEXIVE) SDEFN (LAMBDA (M LST N) (IF (EQUAL N (QUOTE 0)) (QUOTE NIL) (IF (NUMBERP N) (APPEND (GET-VALS M LST (SUB1 N)) (CONS (GET-NTH (PLUS M (SUB1 N)) LST) (QUOTE NIL))) (QUOTE NIL)))) LISP-CODE *1*GET-VALS SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((ZEROP N)) NIL) (TESTS-AND-CASES ((NOT (ZEROP N))) ((M LST (SUB1 N))))) LEVEL-NO 2 JUSTIFICATIONS ((JUSTIFICATION (N) (COUNT N) LESSP (ZEROP COUNT-NUMBERP LESSP-SUB1))) IDATE 1000402215028 CONTROLLER-POCKETS (4) SATELLITES (*1*GET-VALS) IMMEDIATE-DEPENDENTS0 (MOVN-LST PUT-GET-VALS-IS-CPY GET-VALS-0 MEM-INDUCT4 MEM-LST-GET-VALS MEM-LST-GET-VALS0 GET-VALS-APPEND GET-VALS-MCAR GET-VALS-MCDR GET-VALS-CDR GET-VALS-PROPER-LSTP GET-VALS-LEN) EVENT (DEFN GET-VALS (M LST N) (IF (ZEROP N) (QUOTE NIL) (APPEND (GET-VALS M LST (SUB1 N)) (CONS (GET-NTH (PLUS M (SUB1 N)) LST) (QUOTE NIL))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 GET-NTH . GET-VALS) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . GET-VALS) (DCELL . *1*GET-VALS))))) (PUT1-LST (QUOTE *1*PUT-LST) (QUOTE (MAIN-EVENT PUT-LST))) (PUT1-LST (QUOTE PUT-LST) (QUOTE (TYPE-PRESCRIPTION-LST ((PUT-LST 16 NIL NIL NIL T NIL)) LEMMAS ((REWRITE-RULE PUT-GET-LST-IS-CPY ((MEM-LST OPSZ X MEM N2 LST2)) (EQUAL (PUT-LST OPSZ (GET-LST OPSZ I2 LST2 N) I1 LST1 N) (LSTCPY I1 LST1 I2 LST2 N)) NIL)) TOTALP-LST ((PUT-LST . T)) QUICK-BLOCK-INFO (UNCHANGING SELF-REFLEXIVE UNCHANGING SELF-REFLEXIVE SELF-REFLEXIVE) SDEFN (LAMBDA (OPSZ V N LST K) (IF (EQUAL K (QUOTE 0)) LST (IF (NUMBERP K) (PUT-LST OPSZ (TAIL V (TIMES (QUOTE 8) OPSZ)) N (PUT-NTH (HEAD V (TIMES (QUOTE 8) OPSZ)) (PLUS N (SUB1 K)) LST) (SUB1 K)) LST))) LISP-CODE *1*PUT-LST SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((ZEROP K)) NIL) (TESTS-AND-CASES ((NOT (ZEROP K))) ((OPSZ (TAIL V (TIMES (QUOTE 8) OPSZ)) N (PUT-NTH (HEAD V (TIMES (QUOTE 8) OPSZ)) (PLUS N (SUB1 K)) LST) (SUB1 K))))) LEVEL-NO 4 JUSTIFICATIONS ((JUSTIFICATION (K) (COUNT K) LESSP (ZEROP COUNT-NUMBERP LESSP-SUB1))) IDATE 1000402215028 CONTROLLER-POCKETS (16) SATELLITES (*1*PUT-LST) IMMEDIATE-DEPENDENTS0 (PUT-GET-LST-IS-CPY MEM-LST-PUT-LST) EVENT (DEFN PUT-LST (OPSZ V N LST K) (IF (ZEROP K) LST (PUT-LST OPSZ (TAIL V (TIMES (QUOTE 8) OPSZ)) N (PUT-NTH (HEAD V (TIMES (QUOTE 8) OPSZ)) (PLUS N (SUB1 K)) LST) (SUB1 K)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 HEAD . PUT-LST) (IMMEDIATE-DEPENDENTS0 PUT-NTH . PUT-LST) (IMMEDIATE-DEPENDENTS0 TAIL . PUT-LST) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . PUT-LST) (DCELL . *1*PUT-LST))))) (PUT1-LST (QUOTE *1*GET-LST) (QUOTE (MAIN-EVENT GET-LST))) (PUT1-LST (QUOTE GET-LST) (QUOTE (TYPE-PRESCRIPTION-LST ((GET-LST 4 NIL NIL NIL NIL)) LEMMAS ((REWRITE-RULE GET-LST-MCAR ((NOT (LESSP J (PLUS M N)))) (EQUAL (GET-LST OPSZ M (MCAR J LST) N) (GET-LST OPSZ M LST N)) NIL) (REWRITE-RULE GET-LST-MCDR NIL (EQUAL (GET-LST OPSZ M (MCDR J LST) N) (GET-LST OPSZ (PLUS M J) LST N)) NIL) (REWRITE-RULE GET-LST-CDR NIL (EQUAL (GET-LST OPSZ M (CDR LST) N) (GET-LST OPSZ (ADD1 M) LST N)) NIL)) TOTALP-LST ((GET-LST . T)) QUICK-BLOCK-INFO (UNCHANGING UNCHANGING UNCHANGING SELF-REFLEXIVE) SDEFN (LAMBDA (OPSZ M LST N) (IF (EQUAL N (QUOTE 0)) (QUOTE 0) (IF (NUMBERP N) (APP (TIMES (QUOTE 8) OPSZ) (GET-NTH (PLUS M (SUB1 N)) LST) (GET-LST OPSZ M LST (SUB1 N))) (QUOTE 0)))) LISP-CODE *1*GET-LST SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((ZEROP N)) NIL) (TESTS-AND-CASES ((NOT (ZEROP N))) ((OPSZ M LST (SUB1 N))))) LEVEL-NO 4 JUSTIFICATIONS ((JUSTIFICATION (N) (COUNT N) LESSP (ZEROP COUNT-NUMBERP LESSP-SUB1))) IDATE 1000402215028 CONTROLLER-POCKETS (8) SATELLITES (*1*GET-LST) IMMEDIATE-DEPENDENTS0 (PUT-GET-LST-IS-CPY MEM-LST-GET-LST MEM-LST-GET-LST0 GET-LST-MCAR GET-LST-MCDR GET-LST-CDR) EVENT (DEFN GET-LST (OPSZ M LST N) (IF (ZEROP N) (QUOTE 0) (APP (TIMES (QUOTE 8) OPSZ) (GET-NTH (PLUS M (SUB1 N)) LST) (GET-LST OPSZ M LST (SUB1 N))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 GET-NTH . GET-LST) (IMMEDIATE-DEPENDENTS0 APP . GET-LST) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . GET-LST) (DCELL . *1*GET-LST))))) (PUT1-LST (QUOTE BYTE-WRITEP=WRITE-MEMP-1) (QUOTE (IDATE 1000402215028 IMMEDIATE-DEPENDENTS0 (MOVEP-WRITE-H WRITE-MEM-MAINTAIN-MOVEP-WRITEP WRITEM-MEM-MAINTAIN-BYTE-WRITEP) EVENT (PROVE-LEMMA BYTE-WRITEP=WRITE-MEMP-1 (REWRITE) (EQUAL (BYTE-WRITEP X MEM) (WRITE-MEMP X MEM (QUOTE 1))) ((EXPAND (WRITE-MEMP X MEM (QUOTE 1))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ADD-0 . BYTE-WRITEP=WRITE-MEMP-1) (IMMEDIATE-DEPENDENTS0 ADD-COMMUTATIVITY . BYTE-WRITEP=WRITE-MEMP-1) (IMMEDIATE-DEPENDENTS0 HEAD-BYTE-WRITEP . BYTE-WRITEP=WRITE-MEMP-1) (IMMEDIATE-DEPENDENTS0 WRITE-MEMP . BYTE-WRITEP=WRITE-MEMP-1) (IMMEDIATE-DEPENDENTS0 BYTE-WRITEP . BYTE-WRITEP=WRITE-MEMP-1) (LEMMAS BYTE-WRITEP . BYTE-WRITEP=WRITE-MEMP-1))))) (PUT1-LST (QUOTE BYTE-WRITE=WRITE-MEM-1) (QUOTE (IDATE 1000402215028 IMMEDIATE-DEPENDENTS0 (MOVEP-WRITE-H MEM-LST-PUT-VALS MEM-LST-PUT-LST) EVENT (PROVE-LEMMA BYTE-WRITE=WRITE-MEM-1 (REWRITE) (EQUAL (BYTE-WRITE VALUE ADDR MEM) (WRITE-MEM VALUE ADDR MEM (QUOTE 1))) ((EXPAND (WRITE-MEM VALUE ADDR MEM (QUOTE 1))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B . BYTE-WRITE=WRITE-MEM-1) (IMMEDIATE-DEPENDENTS0 ADD-0 . BYTE-WRITE=WRITE-MEM-1) (IMMEDIATE-DEPENDENTS0 ADD-COMMUTATIVITY . BYTE-WRITE=WRITE-MEM-1) (IMMEDIATE-DEPENDENTS0 HEAD-BYTE-WRITE . BYTE-WRITE=WRITE-MEM-1) (IMMEDIATE-DEPENDENTS0 DISJOINT0-DEDUCTION0 . BYTE-WRITE=WRITE-MEM-1) (IMMEDIATE-DEPENDENTS0 WRITE-MEM-BYTE-WRITE . BYTE-WRITE=WRITE-MEM-1) (IMMEDIATE-DEPENDENTS0 WRITE-MEM . BYTE-WRITE=WRITE-MEM-1) (IMMEDIATE-DEPENDENTS0 BYTE-WRITE . BYTE-WRITE=WRITE-MEM-1) (LEMMAS BYTE-WRITE . BYTE-WRITE=WRITE-MEM-1))))) (PUT1-LST (QUOTE BYTE-READ=READ-MEM-1) (QUOTE (IDATE 1000402215028 IMMEDIATE-DEPENDENTS0 (READ-MEM-PLUS MEM-LST-GET-VALS MEM-LST-GET-VALS0 MEM-LST-GET-LST MEM-LST-GET-LST0) EVENT (PROVE-LEMMA BYTE-READ=READ-MEM-1 (REWRITE) (EQUAL (BYTE-READ ADDR MEM) (READ-MEM ADDR MEM (QUOTE 1))) ((EXPAND (READ-MEM ADDR MEM (QUOTE 1))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B . BYTE-READ=READ-MEM-1) (IMMEDIATE-DEPENDENTS0 ADD-0 . BYTE-READ=READ-MEM-1) (IMMEDIATE-DEPENDENTS0 ADD-COMMUTATIVITY . BYTE-READ=READ-MEM-1) (IMMEDIATE-DEPENDENTS0 HEAD-BYTE-READ . BYTE-READ=READ-MEM-1) (IMMEDIATE-DEPENDENTS0 BYTE-READ-NAT-RANGEP . BYTE-READ=READ-MEM-1) (IMMEDIATE-DEPENDENTS0 HEAD-LEMMA . BYTE-READ=READ-MEM-1) (IMMEDIATE-DEPENDENTS0 APP-0 . BYTE-READ=READ-MEM-1) (IMMEDIATE-DEPENDENTS0 READ-MEM . BYTE-READ=READ-MEM-1) (IMMEDIATE-DEPENDENTS0 BYTE-READ . BYTE-READ=READ-MEM-1) (LEMMAS BYTE-READ . BYTE-READ=READ-MEM-1))))) (PUT1-LST (QUOTE PC-BYTE-READ=PC-READ-MEM-1) (QUOTE (IDATE 1000402215028 IMMEDIATE-DEPENDENTS0 (STEPN-MCODE-ADDRP BIT-GROUP-H IMMEDIATE-MEM) EVENT (PROVE-LEMMA PC-BYTE-READ=PC-READ-MEM-1 (REWRITE) (EQUAL (PC-BYTE-READ ADDR MEM) (PC-READ-MEM ADDR MEM (QUOTE 1))) ((EXPAND (PC-READ-MEM ADDR MEM (QUOTE 1))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B . PC-BYTE-READ=PC-READ-MEM-1) (IMMEDIATE-DEPENDENTS0 ADD-0 . PC-BYTE-READ=PC-READ-MEM-1) (IMMEDIATE-DEPENDENTS0 ADD-COMMUTATIVITY . PC-BYTE-READ=PC-READ-MEM-1) (IMMEDIATE-DEPENDENTS0 HEAD-BYTE-PC-READ . PC-BYTE-READ=PC-READ-MEM-1) (IMMEDIATE-DEPENDENTS0 PC-BYTE-READ-NAT-RANGEP . PC-BYTE-READ=PC-READ-MEM-1) (IMMEDIATE-DEPENDENTS0 HEAD-LEMMA . PC-BYTE-READ=PC-READ-MEM-1) (IMMEDIATE-DEPENDENTS0 APP-0 . PC-BYTE-READ=PC-READ-MEM-1) (IMMEDIATE-DEPENDENTS0 PC-READ-MEM . PC-BYTE-READ=PC-READ-MEM-1) (IMMEDIATE-DEPENDENTS0 PC-BYTE-READ . PC-BYTE-READ=PC-READ-MEM-1) (LEMMAS PC-BYTE-READ . PC-BYTE-READ=PC-READ-MEM-1))))) (PUT1-LST (QUOTE MEM-LST-SAME-OFF) (QUOTE (IDATE 1000402215028 EVENT (TOGGLE MEM-LST-SAME-OFF MEM-LST-SAME T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MEM-LST-SAME . MEM-LST-SAME-OFF) (DISABLED-LEMMAS NIL MEM-LST-SAME MEM-LST-SAME-OFF . T))))) (PUT1-LST (QUOTE MEM-LST-NON-NUMBERP-OFF) (QUOTE (IDATE 1000402215028 EVENT (TOGGLE MEM-LST-NON-NUMBERP-OFF MEM-LST-NON-NUMBERP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MEM-LST-NON-NUMBERP . MEM-LST-NON-NUMBERP-OFF) (DISABLED-LEMMAS NIL MEM-LST-NON-NUMBERP MEM-LST-NON-NUMBERP-OFF . T))))) (PUT1-LST (QUOTE READ-MEM-NON-NUMBERP-OFF) (QUOTE (IDATE 1000402215028 EVENT (TOGGLE READ-MEM-NON-NUMBERP-OFF READ-MEM-NON-NUMBERP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 READ-MEM-NON-NUMBERP . READ-MEM-NON-NUMBERP-OFF) (DISABLED-LEMMAS NIL READ-MEM-NON-NUMBERP READ-MEM-NON-NUMBERP-OFF . T))))) (PUT1-LST (QUOTE MEM-LST-SAME) (QUOTE (IDATE 1000402215028 IMMEDIATE-DEPENDENTS0 (MEM-LST-SAME-OFF) EVENT (PROVE-LEMMA MEM-LST-SAME (REWRITE) (IMPLIES (AND (MEM-LST OPSZ X MEM N LST) (EQUAL (NAT-TO-UINT X) (NAT-TO-UINT Y))) (MEM-LST OPSZ Y MEM N LST)) ((ENABLE NAT-TO-UINT))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MEM-LST-NON-NUMBERP . MEM-LST-SAME) (IMMEDIATE-DEPENDENTS0 NAT-TO-UINT . MEM-LST-SAME) (IMMEDIATE-DEPENDENTS0 MEM-LST . MEM-LST-SAME) (LEMMAS MEM-LST . MEM-LST-SAME))))) (PUT1-LST (QUOTE MEM-LST-NON-NUMBERP) (QUOTE (IDATE 1000402215028 IMMEDIATE-DEPENDENTS0 (MEM-LST-NON-NUMBERP-OFF MEM-LST-SAME) EVENT (PROVE-LEMMA MEM-LST-NON-NUMBERP (REWRITE) (IMPLIES (NOT (NUMBERP X)) (EQUAL (MEM-LST OPSZ X MEM N LST) (MEM-LST OPSZ (QUOTE 0) MEM N LST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ADD-NON-NUMBERP . MEM-LST-NON-NUMBERP) (IMMEDIATE-DEPENDENTS0 ADD-COMMUTATIVITY . MEM-LST-NON-NUMBERP) (IMMEDIATE-DEPENDENTS0 READ-MEM-NON-NUMBERP . MEM-LST-NON-NUMBERP) (IMMEDIATE-DEPENDENTS0 L . MEM-LST-NON-NUMBERP) (IMMEDIATE-DEPENDENTS0 ADD-0 . MEM-LST-NON-NUMBERP) (IMMEDIATE-DEPENDENTS0 HEAD-MEM-LST . MEM-LST-NON-NUMBERP) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . MEM-LST-NON-NUMBERP) (IMMEDIATE-DEPENDENTS0 MEM-LST . MEM-LST-NON-NUMBERP) (LEMMAS MEM-LST . MEM-LST-NON-NUMBERP))))) (PUT1-LST (QUOTE READ-MEM-NON-NUMBERP) (QUOTE (IDATE 1000402215028 IMMEDIATE-DEPENDENTS0 (READ-MEM-NON-NUMBERP-OFF MEM-LST-NON-NUMBERP) EVENT (PROVE-LEMMA READ-MEM-NON-NUMBERP (REWRITE) (IMPLIES (NOT (NUMBERP X)) (EQUAL (READ-MEM X MEM K) (READ-MEM (QUOTE 0) MEM K))) ((ENABLE ADD))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B . READ-MEM-NON-NUMBERP) (IMMEDIATE-DEPENDENTS0 ADD . READ-MEM-NON-NUMBERP) (IMMEDIATE-DEPENDENTS0 HEAD-BYTE-READ . READ-MEM-NON-NUMBERP) (IMMEDIATE-DEPENDENTS0 ADD-0 . READ-MEM-NON-NUMBERP) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . READ-MEM-NON-NUMBERP) (IMMEDIATE-DEPENDENTS0 READ-MEM . READ-MEM-NON-NUMBERP) (LEMMAS READ-MEM . READ-MEM-NON-NUMBERP))))) (PUT1-LST (QUOTE HEAD-MEM-ILST) (QUOTE (IDATE 1000402215028 IMMEDIATE-DEPENDENTS0 (READ-MEM-ILST-INT READ-MEM-ILST) EVENT (PROVE-LEMMA HEAD-MEM-ILST (REWRITE) (EQUAL (MEM-ILST OPSZ (HEAD X (QUOTE 32)) MEM N LST) (MEM-ILST OPSZ X MEM N LST))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 HEAD-READ-MEM . HEAD-MEM-ILST) (IMMEDIATE-DEPENDENTS0 L . HEAD-MEM-ILST) (IMMEDIATE-DEPENDENTS0 ADD-COMMUTATIVITY . HEAD-MEM-ILST) (IMMEDIATE-DEPENDENTS0 ADD-HEAD . HEAD-MEM-ILST) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . HEAD-MEM-ILST) (IMMEDIATE-DEPENDENTS0 HEAD . HEAD-MEM-ILST) (IMMEDIATE-DEPENDENTS0 MEM-ILST . HEAD-MEM-ILST) (LEMMAS MEM-ILST . HEAD-MEM-ILST))))) (PUT1-LST (QUOTE HEAD-MEM-LST) (QUOTE (IDATE 1000402215028 IMMEDIATE-DEPENDENTS0 (MEM-LST-MCDR-UINT MEM-LST-MCDR MEM-LST-MCAR-1 MEM-LST-PLUS MEM-LST-NON-NUMBERP) EVENT (PROVE-LEMMA HEAD-MEM-LST (REWRITE) (EQUAL (MEM-LST OPSZ (HEAD X (QUOTE 32)) MEM N LST) (MEM-LST OPSZ X MEM N LST))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 HEAD-READ-MEM . HEAD-MEM-LST) (IMMEDIATE-DEPENDENTS0 L . HEAD-MEM-LST) (IMMEDIATE-DEPENDENTS0 ADD-COMMUTATIVITY . HEAD-MEM-LST) (IMMEDIATE-DEPENDENTS0 ADD-HEAD . HEAD-MEM-LST) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . HEAD-MEM-LST) (IMMEDIATE-DEPENDENTS0 HEAD . HEAD-MEM-LST) (IMMEDIATE-DEPENDENTS0 MEM-LST . HEAD-MEM-LST) (LEMMAS MEM-LST . HEAD-MEM-LST))))) (PUT1-LST (QUOTE READM-MEM-LST) (QUOTE (IDATE 1000402215028 EVENT (PROVE-LEMMA READM-MEM-LST (REWRITE) (MEM-LST OPSZ A MEM N (READM-MEM OPSZ A MEM N))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 L . READM-MEM-LST) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . READM-MEM-LST) (IMMEDIATE-DEPENDENTS0 READM-MEM . READM-MEM-LST) (IMMEDIATE-DEPENDENTS0 MEM-LST . READM-MEM-LST) (LEMMAS MEM-LST . READM-MEM-LST))))) (PUT1-LST (QUOTE MEM-ILST-INTEGERP) (QUOTE (IDATE 1000402215028 EVENT (PROVE-LEMMA MEM-ILST-INTEGERP (REWRITE) (IMPLIES (MEM-ILST OPSZ A MEM N LST) (INTEGERP (GET-NTH I LST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 READ-MEM-NAT-RANGEP . MEM-ILST-INTEGERP) (IMMEDIATE-DEPENDENTS0 NAT-TO-INT-INTEGERP . MEM-ILST-INTEGERP) (IMMEDIATE-DEPENDENTS0 L . MEM-ILST-INTEGERP) (IMMEDIATE-DEPENDENTS0 GET-NTH-NIL . MEM-ILST-INTEGERP) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . MEM-ILST-INTEGERP) (IMMEDIATE-DEPENDENTS0 GET-NTH . MEM-ILST-INTEGERP) (IMMEDIATE-DEPENDENTS0 INTEGERP . MEM-ILST-INTEGERP) (IMMEDIATE-DEPENDENTS0 MEM-ILST . MEM-ILST-INTEGERP) (LEMMAS INTEGERP . MEM-ILST-INTEGERP))))) (PUT1-LST (QUOTE MEM-LST-LESSP) (QUOTE (IDATE 1000402215028 EVENT (PROVE-LEMMA MEM-LST-LESSP (REWRITE) (IMPLIES (AND (MEM-LST OPSZ A MEM N LST) (EQUAL K (EXP (QUOTE 2) (TIMES (QUOTE 8) OPSZ)))) (LESSP (GET-NTH I LST) K)) ((USE (MEM-LST-NAT-RANGEP (K (TIMES (QUOTE 8) OPSZ)))) (ENABLE NAT-RANGEP))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-LESSP-TIMES . MEM-LST-LESSP) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . MEM-LST-LESSP) (IMMEDIATE-DEPENDENTS0 MEM-LST-NAT-RANGEP . MEM-LST-LESSP) (IMMEDIATE-DEPENDENTS0 GET-NTH . MEM-LST-LESSP) (IMMEDIATE-DEPENDENTS0 EXP . MEM-LST-LESSP) (IMMEDIATE-DEPENDENTS0 MEM-LST . MEM-LST-LESSP) (LINEAR-LEMMAS GET-NTH . MEM-LST-LESSP))))) (PUT1-LST (QUOTE MEM-LST-NUMBERP) (QUOTE (IDATE 1000402215028 IMMEDIATE-DEPENDENTS0 (PUT-GET-LST-IS-CPY READ-MEM-LST-INT READ-MEM-LST MEM-LST-GET-VALS MEM-LST-GET-VALS0 MEM-LST-GET-LST MEM-LST-GET-LST0) EVENT (PROVE-LEMMA MEM-LST-NUMBERP (REWRITE) (IMPLIES (MEM-LST OPSZ A MEM N LST) (NUMBERP (GET-NTH I LST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 GET-NTH-NIL . MEM-LST-NUMBERP) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . MEM-LST-NUMBERP) (IMMEDIATE-DEPENDENTS0 GET-NTH . MEM-LST-NUMBERP) (IMMEDIATE-DEPENDENTS0 MEM-LST . MEM-LST-NUMBERP) (LEMMAS NUMBERP . MEM-LST-NUMBERP))))) (PUT1-LST (QUOTE MEM-ILST-INT-RANGEP) (QUOTE (IDATE 1000402215028 EVENT (PROVE-LEMMA MEM-ILST-INT-RANGEP (REWRITE) (IMPLIES (AND (MEM-ILST OPSZ A MEM N LST) (EQUAL OPLEN (TIMES (QUOTE 8) OPSZ))) (INT-RANGEP (GET-NTH I LST) OPLEN))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NAT-TO-INT-RANGEP . MEM-ILST-INT-RANGEP) (IMMEDIATE-DEPENDENTS0 L . MEM-ILST-INT-RANGEP) (IMMEDIATE-DEPENDENTS0 GET-NTH-NIL . MEM-ILST-INT-RANGEP) (IMMEDIATE-DEPENDENTS0 INT-RANGEP-OF-0 . MEM-ILST-INT-RANGEP) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . MEM-ILST-INT-RANGEP) (IMMEDIATE-DEPENDENTS0 GET-NTH . MEM-ILST-INT-RANGEP) (IMMEDIATE-DEPENDENTS0 INT-RANGEP . MEM-ILST-INT-RANGEP) (IMMEDIATE-DEPENDENTS0 MEM-ILST . MEM-ILST-INT-RANGEP) (LEMMAS INT-RANGEP . MEM-ILST-INT-RANGEP))))) (PUT1-LST (QUOTE MEM-LST-NAT-RANGEP) (QUOTE (IDATE 1000402215028 IMMEDIATE-DEPENDENTS0 (PUT-GET-LST-IS-CPY MEM-LST-GET-VALS MEM-LST-GET-VALS0 MEM-LST-GET-LST MEM-LST-GET-LST0 MEM-LST-LESSP) EVENT (PROVE-LEMMA MEM-LST-NAT-RANGEP (REWRITE) (IMPLIES (AND (MEM-LST OPSZ A MEM N LST) (IF (LESSP K (TIMES (QUOTE 8) OPSZ)) (QUOTE *1*FALSE) (QUOTE *1*TRUE))) (NAT-RANGEP (GET-NTH I LST) K))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 READ-MEM-NAT-RANGEP . MEM-LST-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 L . MEM-LST-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 GET-NTH-NIL . MEM-LST-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP-OF-0 . MEM-LST-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . MEM-LST-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 GET-NTH . MEM-LST-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . MEM-LST-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 MEM-LST . MEM-LST-NAT-RANGEP) (LEMMAS NAT-RANGEP . MEM-LST-NAT-RANGEP))))) (PUT1-LST (QUOTE *1*MEM-ILST) (QUOTE (MAIN-EVENT MEM-ILST))) (PUT1-LST (QUOTE MEM-ILST) (QUOTE (TYPE-PRESCRIPTION-LST ((MEM-ILST 3 NIL NIL NIL NIL NIL)) LEMMAS ((REWRITE-RULE STEPN-MEM-ILST ((EQUAL (READM-MEM OPSZ X (MC-MEM (STEPN S N)) K) (READM-MEM OPSZ X (MC-MEM S) K))) (EQUAL (MEM-ILST OPSZ X (MC-MEM (STEPN S N)) K LST) (MEM-ILST OPSZ X (MC-MEM S) K LST)) NIL) (REWRITE-RULE WRITEM-ELSE-MEM-ILST ((DISJOINT A (TIMES OPSZ N) ADDR (TIMES OPSZ1 (LEN VLST)))) (EQUAL (MEM-ILST OPSZ A (WRITEM-MEM OPSZ1 VLST ADDR MEM) N LST) (MEM-ILST OPSZ A MEM N LST)) NIL) (REWRITE-RULE WRITE-MEM-ILST-ASL ((MEM-ILST OPSZ A MEM N LST) (UINT-RANGEP (TIMES OPSZ N) (QUOTE 32)) (EQUAL OPSZ (EXP (QUOTE 2) CNT)) (NAT-RANGEP V (TIMES (QUOTE 8) OPSZ)) (EQUAL V1 (NAT-TO-INT V (TIMES (QUOTE 8) OPSZ))) (EQUAL J (NAT-TO-INT I (QUOTE 32))) (LESSP J N) (NUMBERP V) (NUMBERP J)) (MEM-ILST OPSZ A (WRITE-MEM V (ADD (QUOTE 32) A (ASL (QUOTE 32) I CNT)) MEM OPSZ) N (PUT-NTH V1 J LST)) NIL) (REWRITE-RULE WRITE-MEM-ILST-INT ((MEM-ILST OPSZ A MEM N LST) (UINT-RANGEP (TIMES OPSZ N) (QUOTE 32)) (EQUAL (TIMES OPSZ I) (NAT-TO-INT J (QUOTE 32))) (NUMBERP (NAT-TO-INT J (QUOTE 32))) (NAT-RANGEP V (TIMES (QUOTE 8) OPSZ)) (EQUAL V1 (NAT-TO-INT V (TIMES (QUOTE 8) OPSZ))) (LESSP I N) (NUMBERP OPSZ) (NOT (EQUAL OPSZ (QUOTE 0))) (NUMBERP V)) (MEM-ILST OPSZ A (WRITE-MEM V (ADD (QUOTE 32) A J) MEM OPSZ) N (PUT-NTH V1 I LST)) NIL) (REWRITE-RULE WRITE-MEM-ILST0 ((MEM-ILST OPSZ A MEM N LST) (UINT-RANGEP (TIMES OPSZ N) (QUOTE 32)) (NAT-RANGEP V (TIMES (QUOTE 8) OPSZ)) (EQUAL V1 (NAT-TO-INT V (TIMES (QUOTE 8) OPSZ))) (NUMBERP N) (NOT (EQUAL N (QUOTE 0))) (NUMBERP V)) (MEM-ILST OPSZ A (WRITE-MEM V A MEM OPSZ) N (PUT-NTH V1 (QUOTE 0) LST)) NIL) (REWRITE-RULE WRITE-MEM-ILST ((MEM-ILST OPSZ A MEM N LST) (UINT-RANGEP (TIMES OPSZ N) (QUOTE 32)) (EQUAL (NAT-TO-UINT J) (TIMES OPSZ I)) (NAT-RANGEP V (TIMES (QUOTE 8) OPSZ)) (EQUAL V1 (NAT-TO-INT V (TIMES (QUOTE 8) OPSZ))) (LESSP I N) (NUMBERP J) (NUMBERP V)) (MEM-ILST OPSZ A (WRITE-MEM V (ADD (QUOTE 32) A J) MEM OPSZ) N (PUT-NTH V1 I LST)) NIL) (REWRITE-RULE WRITE-ELSE-MEM-ILST ((DISJOINT A (TIMES OPSZ N) X M)) (EQUAL (MEM-ILST OPSZ A (WRITE-MEM VALUE X MEM M) N LST) (MEM-ILST OPSZ A MEM N LST)) NIL) (REWRITE-RULE HEAD-MEM-ILST NIL (EQUAL (MEM-ILST OPSZ (HEAD X (QUOTE 32)) MEM N LST) (MEM-ILST OPSZ X MEM N LST)) NIL)) TOTALP-LST ((MEM-ILST . T)) QUICK-BLOCK-INFO (UNCHANGING SELF-REFLEXIVE UNCHANGING SELF-REFLEXIVE SELF-REFLEXIVE) SDEFN (LAMBDA (OPSZ A MEM N LST) (IF (EQUAL N (QUOTE 0)) (IF (LISTP LST) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (IF (NUMBERP N) (IF (EQUAL (NAT-TO-INT (READ-MEM A MEM OPSZ) (TIMES (QUOTE 8) OPSZ)) (CAR LST)) (IF (MEM-ILST OPSZ (ADD (L) A OPSZ) MEM (SUB1 N) (CDR LST)) (QUOTE *1*TRUE) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (IF (LISTP LST) (QUOTE *1*FALSE) (QUOTE *1*TRUE))))) LISP-CODE *1*MEM-ILST SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((ZEROP N)) NIL) (TESTS-AND-CASES ((NOT (ZEROP N))) ((OPSZ (ADD (L) A OPSZ) MEM (SUB1 N) (CDR LST))))) LEVEL-NO 6 JUSTIFICATIONS ((JUSTIFICATION (N) (COUNT N) LESSP (ZEROP COUNT-NUMBERP LESSP-SUB1))) IDATE 1000402215028 CONTROLLER-POCKETS (8) SATELLITES (*1*MEM-ILST) IMMEDIATE-DEPENDENTS0 (MEM-ILST-OFF MEM-ILST-LST-INTEGERP STEPN-MEM-ILST WRITEM-ELSE-MEM-ILST WRITE-MEM-ILST-ASL READ-MEM-ILST-ASL WRITE-MEM-ILST-INT WRITE-MEM-ILST0 WRITE-MEM-ILST WRITE-ELSE-MEM-ILST READ-MEM-ILST-INT READ-MEM-ILST IREAD-MEM-GET0 HEAD-MEM-ILST MEM-ILST-INTEGERP MEM-ILST-INT-RANGEP) EVENT (DEFN MEM-ILST (OPSZ A MEM N LST) (IF (ZEROP N) (NLISTP LST) (AND (EQUAL (NAT-TO-INT (READ-MEM A MEM OPSZ) (TIMES (QUOTE 8) OPSZ)) (CAR LST)) (MEM-ILST OPSZ (ADD (L) A OPSZ) MEM (SUB1 N) (CDR LST))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 L . MEM-ILST) (IMMEDIATE-DEPENDENTS0 ADD . MEM-ILST) (IMMEDIATE-DEPENDENTS0 READ-MEM . MEM-ILST) (IMMEDIATE-DEPENDENTS0 NAT-TO-INT . MEM-ILST) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . MEM-ILST) (DCELL . *1*MEM-ILST))))) (PUT1-LST (QUOTE *1*MEM-LST) (QUOTE (MAIN-EVENT MEM-LST))) (PUT1-LST (QUOTE MEM-LST) (QUOTE (TYPE-PRESCRIPTION-LST ((MEM-LST 3 NIL NIL NIL NIL NIL)) LEMMAS ((REWRITE-RULE STEPN-MEM-LST ((EQUAL (READM-MEM OPSZ X (MC-MEM (STEPN S N)) K) (READM-MEM OPSZ X (MC-MEM S) K))) (EQUAL (MEM-LST OPSZ X (MC-MEM (STEPN S N)) K LST) (MEM-LST OPSZ X (MC-MEM S) K LST)) NIL) (REWRITE-RULE MEM-LST-MCDR-UINT-1 ((MEM-LST OPSZ (ADD (QUOTE 32) A B) MEM (DIFFERENCE N J) (MCDR K LST)) (EQUAL (NAT-TO-UINT I) (TIMES OPSZ M)) (NUMBERP OPSZ) (NOT (EQUAL OPSZ (QUOTE 0)))) (MEM-LST OPSZ (ADD (QUOTE 32) A (ADD (QUOTE 32) B I)) MEM (DIFFERENCE N (PLUS M J)) (MCDR (PLUS M K) LST)) NIL) (REWRITE-RULE MEM-LST-MCDR-1 ((MEM-LST (QUOTE 1) (ADD (QUOTE 32) X I) MEM (DIFFERENCE N J) (MCDR K LST))) (MEM-LST (QUOTE 1) (ADD (QUOTE 32) X (ADD (QUOTE 32) I (QUOTE 1))) MEM (DIFFERENCE (SUB1 N) J) (MCDR (ADD1 K) LST)) NIL) (REWRITE-RULE MEM-LST-MCDR-UINT ((MEM-LST OPSZ A MEM N LST) (EQUAL (NAT-TO-UINT I) (TIMES OPSZ M)) (NUMBERP OPSZ) (NOT (EQUAL OPSZ (QUOTE 0)))) (MEM-LST OPSZ (ADD (QUOTE 32) A I) MEM (DIFFERENCE N M) (MCDR M LST)) NIL) (REWRITE-RULE MEM-LST-MCDR-0 ((MEM-LST OPSZ A MEM N LST)) (MEM-LST OPSZ (ADD (QUOTE 32) A OPSZ) MEM (SUB1 N) (MCDR (QUOTE 1) LST)) NIL) (REWRITE-RULE MEM-LST-MCDR ((MEM-LST OPSZ A MEM N LST) (EQUAL I (TIMES OPSZ M))) (MEM-LST OPSZ (ADD (QUOTE 32) A I) MEM (DIFFERENCE N M) (MCDR M LST)) NIL) (REWRITE-RULE MEM-LST-MCAR-2 ((MEM-LST OPSZ A MEM N (MCAR N LST)) (NOT (LESSP N K))) (MEM-LST OPSZ A MEM (DIFFERENCE N K) (MCAR (DIFFERENCE N K) LST)) NIL) (REWRITE-RULE MEM-LST-MCAR-1 ((MEM-LST OPSZ A MEM N (MCAR N LST))) (MEM-LST OPSZ A MEM (SUB1 N) (MCAR (SUB1 N) LST)) NIL) (REWRITE-RULE MEM-LST-MCAR ((MEM-LST OPSZ A MEM N LST) (NOT (LESSP N K))) (MEM-LST OPSZ A MEM K (MCAR K LST)) NIL) (REWRITE-RULE MEM-LST-PLUS NIL (EQUAL (MEM-LST OPSZ A MEM (PLUS M N) LST) (IF (MEM-LST OPSZ A MEM M (MCAR M LST)) (MEM-LST OPSZ (ADD (QUOTE 32) A (TIMES OPSZ M)) MEM N (MCDR M LST)) (QUOTE *1*FALSE))) NIL) (REWRITE-RULE WRITEM-ELSE-MEM-LST ((DISJOINT ADDR (TIMES OPSZ1 (LEN VLST)) A (TIMES OPSZ N))) (EQUAL (MEM-LST OPSZ A (WRITEM-MEM OPSZ1 VLST ADDR MEM) N LST) (MEM-LST OPSZ A MEM N LST)) NIL) (REWRITE-RULE WRITE-MEM-LST-ASL ((MEM-LST OPSZ A MEM N LST) (UINT-RANGEP (TIMES OPSZ N) (QUOTE 32)) (EQUAL OPSZ (EXP (QUOTE 2) CNT)) (NAT-RANGEP V (TIMES (QUOTE 8) OPSZ)) (EQUAL J (NAT-TO-INT I (QUOTE 32))) (EQUAL V1 (NAT-TO-UINT V)) (LESSP J N) (NUMBERP J) (NUMBERP V)) (MEM-LST OPSZ A (WRITE-MEM V (ADD (QUOTE 32) A (ASL (QUOTE 32) I CNT)) MEM OPSZ) N (PUT-NTH V1 J LST)) NIL) (REWRITE-RULE WRITE-MEM-LST-INT ((MEM-LST OPSZ A MEM N LST) (UINT-RANGEP (TIMES OPSZ N) (QUOTE 32)) (EQUAL (TIMES OPSZ I) (NAT-TO-INT J (QUOTE 32))) (NUMBERP (NAT-TO-INT J (QUOTE 32))) (NAT-RANGEP V (TIMES (QUOTE 8) OPSZ)) (EQUAL V1 (NAT-TO-UINT V)) (LESSP I N) (NUMBERP OPSZ) (NOT (EQUAL OPSZ (QUOTE 0))) (NUMBERP V)) (MEM-LST OPSZ A (WRITE-MEM V (ADD (QUOTE 32) A J) MEM OPSZ) N (PUT-NTH V1 I LST)) NIL) (REWRITE-RULE WRITE-MEM-LST0 ((MEM-LST OPSZ A MEM N LST) (UINT-RANGEP (TIMES OPSZ N) (QUOTE 32)) (NAT-RANGEP V (TIMES (QUOTE 8) OPSZ)) (EQUAL V1 (NAT-TO-UINT V)) (NUMBERP N) (NOT (EQUAL N (QUOTE 0))) (NUMBERP V)) (MEM-LST OPSZ A (WRITE-MEM V A MEM OPSZ) N (PUT-NTH V1 (QUOTE 0) LST)) NIL) (REWRITE-RULE WRITE-MEM-LST ((MEM-LST OPSZ A MEM N LST) (UINT-RANGEP (TIMES OPSZ N) (QUOTE 32)) (NAT-RANGEP V (TIMES (QUOTE 8) OPSZ)) (EQUAL (NAT-TO-UINT J) (TIMES OPSZ I)) (EQUAL V1 (NAT-TO-UINT V)) (LESSP I N) (NUMBERP J) (NUMBERP V)) (MEM-LST OPSZ A (WRITE-MEM V (ADD (QUOTE 32) A J) MEM OPSZ) N (PUT-NTH V1 I LST)) NIL) (REWRITE-RULE MEM-LST-PUT-VALS ((MEM-LST (QUOTE 1) A MEM N LST) (UINT-RANGEP N (QUOTE 32)) (NAT-RANGEP V (TIMES (QUOTE 8) K)) (EQUAL (NAT-TO-UINT J) I) (EQUAL VALS (BV-TO-LST (QUOTE 1) V K)) (NOT (LESSP N (PLUS I K))) (NUMBERP J) (NUMBERP V)) (MEM-LST (QUOTE 1) A (WRITE-MEM V (ADD (QUOTE 32) A J) MEM K) N (PUT-VALS VALS I LST K)) NIL) (REWRITE-RULE MEM-LST-PUT-LST ((MEM-LST (QUOTE 1) A MEM N LST) (UINT-RANGEP N (QUOTE 32)) (NAT-RANGEP V (TIMES (QUOTE 8) K)) (EQUAL (NAT-TO-UINT J) I) (EQUAL V1 (NAT-TO-UINT V)) (NOT (LESSP N (PLUS I K))) (NUMBERP J) (NUMBERP V)) (MEM-LST (QUOTE 1) A (WRITE-MEM V (ADD (QUOTE 32) A J) MEM K) N (PUT-LST (QUOTE 1) V1 I LST K)) NIL) (REWRITE-RULE WRITE-MEM-LST-LA ((MEM-LST OPSZ A MEM N LST) (UINT-RANGEP (TIMES OPSZ N) (QUOTE 32)) (EQUAL V1 (HEAD V (TIMES (QUOTE 8) OPSZ))) (EQUAL J (TIMES OPSZ I)) (LESSP I N) (NUMBERP V)) (MEM-LST OPSZ A (WRITE-MEM V (ADD (QUOTE 32) A J) MEM OPSZ) N (PUT-NTH V1 I LST)) NIL) (REWRITE-RULE WRITE-ELSE-MEM-LST ((DISJOINT A (TIMES OPSZ N) X M)) (EQUAL (MEM-LST OPSZ A (WRITE-MEM VALUE X MEM M) N LST) (MEM-LST OPSZ A MEM N LST)) NIL) (REWRITE-RULE MEM-LST-SAME ((MEM-LST OPSZ X MEM N LST) (EQUAL (NAT-TO-UINT X) (NAT-TO-UINT Y))) (MEM-LST OPSZ Y MEM N LST) NIL) (REWRITE-RULE MEM-LST-NON-NUMBERP ((NOT (NUMBERP X))) (EQUAL (MEM-LST OPSZ X MEM N LST) (MEM-LST OPSZ (QUOTE 0) MEM N LST)) NIL) (REWRITE-RULE HEAD-MEM-LST NIL (EQUAL (MEM-LST OPSZ (HEAD X (QUOTE 32)) MEM N LST) (MEM-LST OPSZ X MEM N LST)) NIL) (REWRITE-RULE READM-MEM-LST NIL (MEM-LST OPSZ A MEM N (READM-MEM OPSZ A MEM N)) NIL)) TOTALP-LST ((MEM-LST . T)) QUICK-BLOCK-INFO (UNCHANGING SELF-REFLEXIVE UNCHANGING SELF-REFLEXIVE SELF-REFLEXIVE) SDEFN (LAMBDA (OPSZ A MEM N LST) (IF (EQUAL N (QUOTE 0)) (IF (LISTP LST) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (IF (NUMBERP N) (IF (EQUAL (READ-MEM A MEM OPSZ) (CAR LST)) (IF (MEM-LST OPSZ (ADD (L) A OPSZ) MEM (SUB1 N) (CDR LST)) (QUOTE *1*TRUE) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (IF (LISTP LST) (QUOTE *1*FALSE) (QUOTE *1*TRUE))))) LISP-CODE *1*MEM-LST SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((ZEROP N)) NIL) (TESTS-AND-CASES ((NOT (ZEROP N))) ((OPSZ (ADD (L) A OPSZ) MEM (SUB1 N) (CDR LST))))) LEVEL-NO 6 JUSTIFICATIONS ((JUSTIFICATION (N) (COUNT N) LESSP (ZEROP COUNT-NUMBERP LESSP-SUB1))) IDATE 1000402215028 CONTROLLER-POCKETS (8) SATELLITES (*1*MEM-LST) IMMEDIATE-DEPENDENTS0 (MEM-LST-OFF MEM-LST-INTEGERP STEPN-MEM-LST PUT-GET-LST-IS-CPY MEM-LST-MCDR-UINT-1 MEM-LST-MCDR-1 MEM-LST-MCDR-UINT MEM-LST-MCDR-0 MEM-LST-MCDR MEM-LST-LEN MEM-LST-MCAR-2 MEM-LST-MCAR-1 MEM-LST-MCAR MEM-LST-PLUS WRITEM-ELSE-MEM-LST WRITE-MEM-LST-ASL READ-MEM-LST-ASL WRITE-MEM-LST-INT WRITE-MEM-LST0 WRITE-MEM-LST MEM-LST-PUT-VALS MEM-LST-PUT-LST WRITE-MEM-LST-LA WRITE-ELSE-MEM-LST READ-MEM-LST-INT READ-MEM-LST READ-MEM-LST0 MEM-LST-GET-VALS MEM-LST-GET-VALS0 MEM-LST-GET-LST MEM-LST-GET-LST0 READ-MEM-LST-LA MEM-LST-SAME MEM-LST-NON-NUMBERP HEAD-MEM-LST READM-MEM-LST MEM-LST-LESSP MEM-LST-NUMBERP MEM-LST-NAT-RANGEP) EVENT (DEFN MEM-LST (OPSZ A MEM N LST) (IF (ZEROP N) (NLISTP LST) (AND (EQUAL (READ-MEM A MEM OPSZ) (CAR LST)) (MEM-LST OPSZ (ADD (L) A OPSZ) MEM (SUB1 N) (CDR LST))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 L . MEM-LST) (IMMEDIATE-DEPENDENTS0 ADD . MEM-LST) (IMMEDIATE-DEPENDENTS0 READ-MEM . MEM-LST) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . MEM-LST) (DCELL . *1*MEM-LST))))) (PUT1-LST (QUOTE INDEX-N-OFF) (QUOTE (IDATE 1000402215028 EVENT (TOGGLE INDEX-N-OFF INDEX-N T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INDEX-N . INDEX-N-OFF) (DISABLED-LEMMAS NIL INDEX-N INDEX-N-OFF . T))))) (PUT1-LST (QUOTE DISJOINT-DEDUCTION3) (QUOTE (IDATE 1000402215028 EVENT (PROVE-LEMMA DISJOINT-DEDUCTION3 (REWRITE) (EQUAL (DISJOINT (ADD (QUOTE 32) Y X) M (ADD (QUOTE 32) Z X) N) (DISJOINT Y M Z N)) ((ENABLE ADD-COMMUTATIVITY))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ADD-COMMUTATIVITY . DISJOINT-DEDUCTION3) (IMMEDIATE-DEPENDENTS0 DISJOINT-DEDUCTION2 . DISJOINT-DEDUCTION3) (IMMEDIATE-DEPENDENTS0 ADD . DISJOINT-DEDUCTION3) (IMMEDIATE-DEPENDENTS0 DISJOINT . DISJOINT-DEDUCTION3) (LEMMAS DISJOINT . DISJOINT-DEDUCTION3))))) (PUT1-LST (QUOTE INDEX-N-DEDUCTION2) (QUOTE (IDATE 1000402215028 IMMEDIATE-DEPENDENTS0 (GCD-S0-S0-2 GCD-S0-S0-1 RAM-ADDRP-3) EVENT (PROVE-LEMMA INDEX-N-DEDUCTION2 (REWRITE) (EQUAL (INDEX-N (ADD (QUOTE 32) Z X) (ADD (QUOTE 32) Z Y)) (INDEX-N X Y))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ADD-COMMUTATIVITY . INDEX-N-DEDUCTION2) (IMMEDIATE-DEPENDENTS0 NEG-ADD . INDEX-N-DEDUCTION2) (IMMEDIATE-DEPENDENTS0 SUB-NEG . INDEX-N-DEDUCTION2) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-ADD-NEG . INDEX-N-DEDUCTION2) (IMMEDIATE-DEPENDENTS0 ADD-SUB . INDEX-N-DEDUCTION2) (IMMEDIATE-DEPENDENTS0 ADD . INDEX-N-DEDUCTION2) (IMMEDIATE-DEPENDENTS0 INDEX-N . INDEX-N-DEDUCTION2) (LEMMAS INDEX-N . INDEX-N-DEDUCTION2))))) (PUT1-LST (QUOTE INDEX-N-DEDUCTION1) (QUOTE (IDATE 1000402215028 IMMEDIATE-DEPENDENTS0 (RAM-ADDRP-4 STEPN-MCODE-ADDRP) EVENT (PROVE-LEMMA INDEX-N-DEDUCTION1 (REWRITE) (AND (EQUAL (INDEX-N (ADD (QUOTE 32) X Y) X) (INDEX-N Y (QUOTE 0))) (EQUAL (INDEX-N Y (ADD (QUOTE 32) Y X)) (INDEX-N (QUOTE 0) X)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ADD-COMMUTATIVITY . INDEX-N-DEDUCTION1) (IMMEDIATE-DEPENDENTS0 NEG-ADD . INDEX-N-DEDUCTION1) (IMMEDIATE-DEPENDENTS0 NEG-NAT-RANGEP . INDEX-N-DEDUCTION1) (IMMEDIATE-DEPENDENTS0 HEAD-LEMMA . INDEX-N-DEDUCTION1) (IMMEDIATE-DEPENDENTS0 ADD-0 . INDEX-N-DEDUCTION1) (IMMEDIATE-DEPENDENTS0 SUB-NEG . INDEX-N-DEDUCTION1) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-ADD-NEG . INDEX-N-DEDUCTION1) (IMMEDIATE-DEPENDENTS0 SUB-0 . INDEX-N-DEDUCTION1) (IMMEDIATE-DEPENDENTS0 ADD-SUB . INDEX-N-DEDUCTION1) (IMMEDIATE-DEPENDENTS0 ADD . INDEX-N-DEDUCTION1) (IMMEDIATE-DEPENDENTS0 INDEX-N . INDEX-N-DEDUCTION1) (LEMMAS INDEX-N . INDEX-N-DEDUCTION1) (LEMMAS INDEX-N . INDEX-N-DEDUCTION1))))) (PUT1-LST (QUOTE INDEX-N-DEDUCTION0) (QUOTE (IDATE 1000402215028 EVENT (PROVE-LEMMA INDEX-N-DEDUCTION0 (REWRITE) (AND (EQUAL (INDEX-N X (NEG (QUOTE 32) Y)) (INDEX-N (ADD (QUOTE 32) X Y) (QUOTE 0))) (EQUAL (INDEX-N (NEG (QUOTE 32) X) Y) (INDEX-N (QUOTE 0) (ADD (QUOTE 32) X Y))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NEG-ADD . INDEX-N-DEDUCTION0) (IMMEDIATE-DEPENDENTS0 ADD-NAT-RANGEP . INDEX-N-DEDUCTION0) (IMMEDIATE-DEPENDENTS0 HEAD-LEMMA . INDEX-N-DEDUCTION0) (IMMEDIATE-DEPENDENTS0 ADD-0 . INDEX-N-DEDUCTION0) (IMMEDIATE-DEPENDENTS0 NEG-NEG . INDEX-N-DEDUCTION0) (IMMEDIATE-DEPENDENTS0 SUB-NEG . INDEX-N-DEDUCTION0) (IMMEDIATE-DEPENDENTS0 ADD-HEAD . INDEX-N-DEDUCTION0) (IMMEDIATE-DEPENDENTS0 SUB-0 . INDEX-N-DEDUCTION0) (IMMEDIATE-DEPENDENTS0 ADD-SUB . INDEX-N-DEDUCTION0) (IMMEDIATE-DEPENDENTS0 ADD . INDEX-N-DEDUCTION0) (IMMEDIATE-DEPENDENTS0 NEG . INDEX-N-DEDUCTION0) (IMMEDIATE-DEPENDENTS0 INDEX-N . INDEX-N-DEDUCTION0) (LEMMAS INDEX-N . INDEX-N-DEDUCTION0) (LEMMAS INDEX-N . INDEX-N-DEDUCTION0))))) (PUT1-LST (QUOTE INDEX-N-X-X) (QUOTE (IDATE 1000402215027 IMMEDIATE-DEPENDENTS0 (GCD-S-S0 STEPN-GCD-LOADP STEPN-MCODE-ADDRP) EVENT (PROVE-LEMMA INDEX-N-X-X (REWRITE) (EQUAL (INDEX-N X X) (QUOTE 0))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUB-X-X . INDEX-N-X-X) (IMMEDIATE-DEPENDENTS0 INDEX-N . INDEX-N-X-X) (LEMMAS INDEX-N . INDEX-N-X-X))))) (PUT1-LST (QUOTE INDEX-N-0) (QUOTE (IDATE 1000402215027 IMMEDIATE-DEPENDENTS0 (RAM-ADDRP-4 DISJOINT-5-UINT) EVENT (PROVE-LEMMA INDEX-N-0 (REWRITE) (AND (EQUAL (INDEX-N X (QUOTE 0)) (HEAD X (QUOTE 32))) (EQUAL (INDEX-N (QUOTE 0) X) (NEG (QUOTE 32) X)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NEG-NAT-RANGEP . INDEX-N-0) (IMMEDIATE-DEPENDENTS0 HEAD-LEMMA . INDEX-N-0) (IMMEDIATE-DEPENDENTS0 ADD-0 . INDEX-N-0) (IMMEDIATE-DEPENDENTS0 SUB-NEG . INDEX-N-0) (IMMEDIATE-DEPENDENTS0 SUB-0 . INDEX-N-0) (IMMEDIATE-DEPENDENTS0 NEG . INDEX-N-0) (IMMEDIATE-DEPENDENTS0 HEAD . INDEX-N-0) (IMMEDIATE-DEPENDENTS0 INDEX-N . INDEX-N-0) (LEMMAS INDEX-N . INDEX-N-0) (LEMMAS INDEX-N . INDEX-N-0))))) (PUT1-LST (QUOTE DISJOINT-DEDUCTION2) (QUOTE (IDATE 1000402215027 IMMEDIATE-DEPENDENTS0 (GCD-S-S0-MEM GCD-S-S0-RFILE GCD-S-S0 DISJOINT-DEDUCTION3) EVENT (PROVE-LEMMA DISJOINT-DEDUCTION2 (REWRITE) (EQUAL (DISJOINT (ADD (QUOTE 32) X Y) M (ADD (QUOTE 32) X Z) N) (DISJOINT Y M Z N))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ADD-ASSOCIATIVITY . DISJOINT-DEDUCTION2) (IMMEDIATE-DEPENDENTS0 DISJOINT0-DEDUCTION2 . DISJOINT-DEDUCTION2) (IMMEDIATE-DEPENDENTS0 DISJOINT-DEDUCTION0 . DISJOINT-DEDUCTION2) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . DISJOINT-DEDUCTION2) (IMMEDIATE-DEPENDENTS0 ADD . DISJOINT-DEDUCTION2) (IMMEDIATE-DEPENDENTS0 DISJOINT . DISJOINT-DEDUCTION2) (LEMMAS DISJOINT . DISJOINT-DEDUCTION2))))) (PUT1-LST (QUOTE DISJOINT-DEDUCTION1) (QUOTE (IDATE 1000402215027 IMMEDIATE-DEPENDENTS0 (GCD-S-S0 READM-WRITEM-MEM WRITE-MEM-ILST WRITE-MEM-LST-LA) EVENT (PROVE-LEMMA DISJOINT-DEDUCTION1 (REWRITE) (AND (EQUAL (DISJOINT X M (ADD (QUOTE 32) X Y) N) (DISJOINT (QUOTE 0) M Y N)) (EQUAL (DISJOINT (ADD (QUOTE 32) X Y) M X N) (DISJOINT Y M (QUOTE 0) N)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DISJOINT0-DEDUCTION2 . DISJOINT-DEDUCTION1) (IMMEDIATE-DEPENDENTS0 ADD-0 . DISJOINT-DEDUCTION1) (IMMEDIATE-DEPENDENTS0 DISJOINT0-HEAD . DISJOINT-DEDUCTION1) (IMMEDIATE-DEPENDENTS0 ADD-ASSOCIATIVITY . DISJOINT-DEDUCTION1) (IMMEDIATE-DEPENDENTS0 DISJOINT0-DEDUCTION1 . DISJOINT-DEDUCTION1) (IMMEDIATE-DEPENDENTS0 DISJOINT-DEDUCTION0 . DISJOINT-DEDUCTION1) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . DISJOINT-DEDUCTION1) (IMMEDIATE-DEPENDENTS0 ADD . DISJOINT-DEDUCTION1) (IMMEDIATE-DEPENDENTS0 DISJOINT . DISJOINT-DEDUCTION1) (LEMMAS DISJOINT . DISJOINT-DEDUCTION1) (LEMMAS DISJOINT . DISJOINT-DEDUCTION1))))) (PUT1-LST (QUOTE DISJOINT-DEDUCTION0) (QUOTE (IDATE 1000402215027 IMMEDIATE-DEPENDENTS0 (DISJOINT-LEQ1-UINT DISJOINT-LEQ-UINT READM-WRITE-MEM READ-WRITEM-MEM WRITEM-ELSE-MEM-ILST WRITEM-ELSE-MEM-LST DISJOINT-LEQ WRITE-ELSE-MEM-ILST WRITE-ELSE-MEM-LST DISJOINT-DEDUCTION2 DISJOINT-DEDUCTION1) EVENT (PROVE-LEMMA DISJOINT-DEDUCTION0 (REWRITE) (AND (DISJOINT X M Y (QUOTE 0)) (DISJOINT X (QUOTE 0) Y N))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DISJOINT0-DEDUCTION0 . DISJOINT-DEDUCTION0) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . DISJOINT-DEDUCTION0) (IMMEDIATE-DEPENDENTS0 DISJOINT . DISJOINT-DEDUCTION0) (LEMMAS DISJOINT . DISJOINT-DEDUCTION0) (LEMMAS DISJOINT . DISJOINT-DEDUCTION0))))) (PUT1-LST (QUOTE DISJOINT-X-X) (QUOTE (IDATE 1000402215027 EVENT (PROVE-LEMMA DISJOINT-X-X (REWRITE) (EQUAL (DISJOINT X M X N) (OR (ZEROP M) (ZEROP N)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DISJOINT0-X-X . DISJOINT-X-X) (IMMEDIATE-DEPENDENTS0 DISJOINT-0 . DISJOINT-X-X) (IMMEDIATE-DEPENDENTS0 DISJOINT0-DEDUCTION0 . DISJOINT-X-X) (IMMEDIATE-DEPENDENTS0 SUB1-OF-1 . DISJOINT-X-X) (IMMEDIATE-DEPENDENTS0 DISJOINT0 . DISJOINT-X-X) (IMMEDIATE-DEPENDENTS0 DISJOINT0-DEDUCTION1 . DISJOINT-X-X) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . DISJOINT-X-X) (IMMEDIATE-DEPENDENTS0 DISJOINT . DISJOINT-X-X) (LEMMAS DISJOINT . DISJOINT-X-X))))) (PUT1-LST (QUOTE DISJOINT0-DEDUCTION2) (QUOTE (IDATE 1000402215027 IMMEDIATE-DEPENDENTS0 (DISJOINT-DEDUCTION2 DISJOINT-DEDUCTION1) EVENT (PROVE-LEMMA DISJOINT0-DEDUCTION2 (REWRITE) (EQUAL (DISJOINT0 (ADD (QUOTE 32) X Y) M (ADD (QUOTE 32) X Z)) (DISJOINT0 Y M Z)) ((INDUCT (DISJOINT0 Y M Z)) (ENABLE ADD))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MOD32-EQ . DISJOINT0-DEDUCTION2) (IMMEDIATE-DEPENDENTS0 HEAD-HEAD . DISJOINT0-DEDUCTION2) (IMMEDIATE-DEPENDENTS0 HEAD-PLUS-CANCEL . DISJOINT0-DEDUCTION2) (IMMEDIATE-DEPENDENTS0 ADD-COMMUTATIVITY . DISJOINT0-DEDUCTION2) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . DISJOINT0-DEDUCTION2) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY1 . DISJOINT0-DEDUCTION2) (IMMEDIATE-DEPENDENTS0 DISJOINT0-DEDUCTION0 . DISJOINT0-DEDUCTION2) (IMMEDIATE-DEPENDENTS0 DISJOINT0-HEAD . DISJOINT0-DEDUCTION2) (IMMEDIATE-DEPENDENTS0 ADD . DISJOINT0-DEDUCTION2) (IMMEDIATE-DEPENDENTS0 DISJOINT0 . DISJOINT0-DEDUCTION2) (LEMMAS DISJOINT0 . DISJOINT0-DEDUCTION2))))) (PUT1-LST (QUOTE DISJOINT0-DEDUCTION1) (QUOTE (IDATE 1000402215027 IMMEDIATE-DEPENDENTS0 (DISJOINT-DEDUCTION1 DISJOINT-X-X) EVENT (PROVE-LEMMA DISJOINT0-DEDUCTION1 (REWRITE) (AND (EQUAL (DISJOINT0 X M (ADD (QUOTE 32) X Y)) (DISJOINT0 (QUOTE 0) M Y)) (EQUAL (DISJOINT0 (ADD (QUOTE 32) X Y) M X) (DISJOINT0 Y M (QUOTE 0)))) ((ENABLE ADD))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 HEAD-PLUS-CANCEL0 . DISJOINT0-DEDUCTION1) (IMMEDIATE-DEPENDENTS0 ADD-COMMUTATIVITY . DISJOINT0-DEDUCTION1) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . DISJOINT0-DEDUCTION1) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY1 . DISJOINT0-DEDUCTION1) (IMMEDIATE-DEPENDENTS0 HEAD . DISJOINT0-DEDUCTION1) (IMMEDIATE-DEPENDENTS0 HEAD-PLUS-CANCEL . DISJOINT0-DEDUCTION1) (IMMEDIATE-DEPENDENTS0 ADD-0 . DISJOINT0-DEDUCTION1) (IMMEDIATE-DEPENDENTS0 HEAD-HEAD . DISJOINT0-DEDUCTION1) (IMMEDIATE-DEPENDENTS0 MOD32-EQ . DISJOINT0-DEDUCTION1) (IMMEDIATE-DEPENDENTS0 DISJOINT0-DEDUCTION0 . DISJOINT0-DEDUCTION1) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . DISJOINT0-DEDUCTION1) (IMMEDIATE-DEPENDENTS0 DISJOINT0-HEAD . DISJOINT0-DEDUCTION1) (IMMEDIATE-DEPENDENTS0 ADD . DISJOINT0-DEDUCTION1) (IMMEDIATE-DEPENDENTS0 DISJOINT0 . DISJOINT0-DEDUCTION1) (LEMMAS DISJOINT0 . DISJOINT0-DEDUCTION1) (LEMMAS DISJOINT0 . DISJOINT0-DEDUCTION1))))) (PUT1-LST (QUOTE DISJOINT0-DEDUCTION0) (QUOTE (IDATE 1000402215027 IMMEDIATE-DEPENDENTS0 (DISJOINT0-LEQ BYTE-WRITE=WRITE-MEM-1 DISJOINT-DEDUCTION0 DISJOINT-X-X DISJOINT0-DEDUCTION2 DISJOINT0-DEDUCTION1) EVENT (PROVE-LEMMA DISJOINT0-DEDUCTION0 (REWRITE) (DISJOINT0 X (QUOTE 0) Y)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DISJOINT0 . DISJOINT0-DEDUCTION0) (LEMMAS DISJOINT0 . DISJOINT0-DEDUCTION0))))) (PUT1-LST (QUOTE DISJOINT0-X-X) (QUOTE (IDATE 1000402215027 IMMEDIATE-DEPENDENTS0 (DISJOINT-X-X) EVENT (PROVE-LEMMA DISJOINT0-X-X (REWRITE) (EQUAL (DISJOINT0 X M X) (ZEROP M))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 HEAD-LEMMA . DISJOINT0-X-X) (IMMEDIATE-DEPENDENTS0 ADD-NAT-RANGEP . DISJOINT0-X-X) (IMMEDIATE-DEPENDENTS0 SUB1-OF-1 . DISJOINT0-X-X) (IMMEDIATE-DEPENDENTS0 MOD32-EQ . DISJOINT0-X-X) (IMMEDIATE-DEPENDENTS0 HEAD-HEAD . DISJOINT0-X-X) (IMMEDIATE-DEPENDENTS0 ADD-COMMUTATIVITY . DISJOINT0-X-X) (IMMEDIATE-DEPENDENTS0 ADD-0 . DISJOINT0-X-X) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . DISJOINT0-X-X) (IMMEDIATE-DEPENDENTS0 DISJOINT0 . DISJOINT0-X-X) (LEMMAS DISJOINT0 . DISJOINT0-X-X))))) (PUT1-LST (QUOTE TIMES-PLUS-LESSP-CANCEL-OFF) (QUOTE (IDATE 1000402215027 EVENT (TOGGLE TIMES-PLUS-LESSP-CANCEL-OFF TIMES-PLUS-LESSP-CANCEL T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-PLUS-LESSP-CANCEL . TIMES-PLUS-LESSP-CANCEL-OFF) (DISABLED-LEMMAS NIL TIMES-PLUS-LESSP-CANCEL TIMES-PLUS-LESSP-CANCEL-OFF . T))))) (PUT1-LST (QUOTE DISJOINT-11~-ASL) (QUOTE (IDATE 1000402215027 EVENT (PROVE-LEMMA DISJOINT-11~-ASL (REWRITE) (IMPLIES (AND (DISJOINT A M (ADD (QUOTE 32) B K) N) (AND (EQUAL OPSZ (EXP (QUOTE 2) CNT)) (AND (LESSP (NAT-TO-INT X (QUOTE 32)) (QUOTIENT M OPSZ)) (AND (NUMBERP (NAT-TO-INT X (QUOTE 32))) (IF (LESSP N (PLUS L (INDEX-N K1 K))) (QUOTE *1*FALSE) (QUOTE *1*TRUE)))))) (DISJOINT (ADD (QUOTE 32) B K1) L (ADD (QUOTE 32) A (ASL (QUOTE 32) X CNT)) OPSZ)) ((ENABLE NAT-TO-INT))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 QUOTIENT-EQUAL-0 . DISJOINT-11~-ASL) (IMMEDIATE-DEPENDENTS0 DISJOINT-10~ . DISJOINT-11~-ASL) (IMMEDIATE-DEPENDENTS0 TIMES-PLUS-LESSP-CANCEL . DISJOINT-11~-ASL) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . DISJOINT-11~-ASL) (IMMEDIATE-DEPENDENTS0 DISJOINT-11~ . DISJOINT-11~-ASL) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . DISJOINT-11~-ASL) (IMMEDIATE-DEPENDENTS0 EXP-OF-2-0 . DISJOINT-11~-ASL) (IMMEDIATE-DEPENDENTS0 QUOTIENT-EXIT . DISJOINT-11~-ASL) (IMMEDIATE-DEPENDENTS0 REMAINDER-LESSP . DISJOINT-11~-ASL) (IMMEDIATE-DEPENDENTS0 REMAINDER-QUOTIENT-ELIM . DISJOINT-11~-ASL) (IMMEDIATE-DEPENDENTS0 SUB-NEG . DISJOINT-11~-ASL) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . DISJOINT-11~-ASL) (IMMEDIATE-DEPENDENTS0 ADD-0 . DISJOINT-11~-ASL) (IMMEDIATE-DEPENDENTS0 ADD-COMMUTATIVITY . DISJOINT-11~-ASL) (IMMEDIATE-DEPENDENTS0 DISJOINT-HEAD . DISJOINT-11~-ASL) (IMMEDIATE-DEPENDENTS0 ADD-HEAD . DISJOINT-11~-ASL) (IMMEDIATE-DEPENDENTS0 ASL . DISJOINT-11~-ASL) (IMMEDIATE-DEPENDENTS0 INDEX-N . DISJOINT-11~-ASL) (IMMEDIATE-DEPENDENTS0 NAT-TO-INT . DISJOINT-11~-ASL) (IMMEDIATE-DEPENDENTS0 EXP . DISJOINT-11~-ASL) (IMMEDIATE-DEPENDENTS0 ADD . DISJOINT-11~-ASL) (IMMEDIATE-DEPENDENTS0 DISJOINT . DISJOINT-11~-ASL) (LEMMAS DISJOINT . DISJOINT-11~-ASL))))) (PUT1-LST (QUOTE DISJOINT-11-ASL) (QUOTE (IDATE 1000402215027 EVENT (PROVE-LEMMA DISJOINT-11-ASL (REWRITE) (IMPLIES (AND (DISJOINT A M (ADD (QUOTE 32) B K) N) (AND (EQUAL OPSZ (EXP (QUOTE 2) CNT)) (AND (LESSP (NAT-TO-INT X (QUOTE 32)) (QUOTIENT M OPSZ)) (AND (NUMBERP (NAT-TO-INT X (QUOTE 32))) (IF (LESSP N (PLUS L (INDEX-N K1 K))) (QUOTE *1*FALSE) (QUOTE *1*TRUE)))))) (DISJOINT (ADD (QUOTE 32) A (ASL (QUOTE 32) X CNT)) OPSZ (ADD (QUOTE 32) B K1) L)) ((ENABLE NAT-TO-INT))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 QUOTIENT-EQUAL-0 . DISJOINT-11-ASL) (IMMEDIATE-DEPENDENTS0 DISJOINT-10 . DISJOINT-11-ASL) (IMMEDIATE-DEPENDENTS0 TIMES-PLUS-LESSP-CANCEL . DISJOINT-11-ASL) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . DISJOINT-11-ASL) (IMMEDIATE-DEPENDENTS0 DISJOINT-11~ . DISJOINT-11-ASL) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . DISJOINT-11-ASL) (IMMEDIATE-DEPENDENTS0 EXP-OF-2-0 . DISJOINT-11-ASL) (IMMEDIATE-DEPENDENTS0 QUOTIENT-EXIT . DISJOINT-11-ASL) (IMMEDIATE-DEPENDENTS0 REMAINDER-LESSP . DISJOINT-11-ASL) (IMMEDIATE-DEPENDENTS0 REMAINDER-QUOTIENT-ELIM . DISJOINT-11-ASL) (IMMEDIATE-DEPENDENTS0 SUB-NEG . DISJOINT-11-ASL) (IMMEDIATE-DEPENDENTS0 DISJOINT-COMMUTATIVITY . DISJOINT-11-ASL) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . DISJOINT-11-ASL) (IMMEDIATE-DEPENDENTS0 ADD-0 . DISJOINT-11-ASL) (IMMEDIATE-DEPENDENTS0 ADD-COMMUTATIVITY . DISJOINT-11-ASL) (IMMEDIATE-DEPENDENTS0 DISJOINT-HEAD . DISJOINT-11-ASL) (IMMEDIATE-DEPENDENTS0 ADD-HEAD . DISJOINT-11-ASL) (IMMEDIATE-DEPENDENTS0 ASL . DISJOINT-11-ASL) (IMMEDIATE-DEPENDENTS0 INDEX-N . DISJOINT-11-ASL) (IMMEDIATE-DEPENDENTS0 NAT-TO-INT . DISJOINT-11-ASL) (IMMEDIATE-DEPENDENTS0 EXP . DISJOINT-11-ASL) (IMMEDIATE-DEPENDENTS0 ADD . DISJOINT-11-ASL) (IMMEDIATE-DEPENDENTS0 DISJOINT . DISJOINT-11-ASL) (LEMMAS DISJOINT . DISJOINT-11-ASL))))) (PUT1-LST (QUOTE DISJOINT-9~-ASL) (QUOTE (IDATE 1000402215026 EVENT (PROVE-LEMMA DISJOINT-9~-ASL (REWRITE) (IMPLIES (AND (DISJOINT A M (ADD (QUOTE 32) B K) N) (AND (EQUAL OPSZ (EXP (QUOTE 2) CNT)) (AND (LESSP (NAT-TO-INT X (QUOTE 32)) (QUOTIENT M OPSZ)) (AND (NUMBERP (NAT-TO-INT X (QUOTE 32))) (IF (LESSP N (PLUS L (INDEX-N (QUOTE 0) K))) (QUOTE *1*FALSE) (QUOTE *1*TRUE)))))) (DISJOINT B L (ADD (QUOTE 32) A (ASL (QUOTE 32) X CNT)) OPSZ)) ((ENABLE NAT-TO-INT))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 QUOTIENT-EQUAL-0 . DISJOINT-9~-ASL) (IMMEDIATE-DEPENDENTS0 DISJOINT-8~ . DISJOINT-9~-ASL) (IMMEDIATE-DEPENDENTS0 TIMES-PLUS-LESSP-CANCEL . DISJOINT-9~-ASL) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . DISJOINT-9~-ASL) (IMMEDIATE-DEPENDENTS0 DISJOINT-9~ . DISJOINT-9~-ASL) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . DISJOINT-9~-ASL) (IMMEDIATE-DEPENDENTS0 EXP-OF-2-0 . DISJOINT-9~-ASL) (IMMEDIATE-DEPENDENTS0 QUOTIENT-EXIT . DISJOINT-9~-ASL) (IMMEDIATE-DEPENDENTS0 REMAINDER-LESSP . DISJOINT-9~-ASL) (IMMEDIATE-DEPENDENTS0 REMAINDER-QUOTIENT-ELIM . DISJOINT-9~-ASL) (IMMEDIATE-DEPENDENTS0 NEG-NAT-RANGEP . DISJOINT-9~-ASL) (IMMEDIATE-DEPENDENTS0 HEAD-LEMMA . DISJOINT-9~-ASL) (IMMEDIATE-DEPENDENTS0 ADD-0 . DISJOINT-9~-ASL) (IMMEDIATE-DEPENDENTS0 SUB-NEG . DISJOINT-9~-ASL) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . DISJOINT-9~-ASL) (IMMEDIATE-DEPENDENTS0 ADD-COMMUTATIVITY . DISJOINT-9~-ASL) (IMMEDIATE-DEPENDENTS0 DISJOINT-HEAD . DISJOINT-9~-ASL) (IMMEDIATE-DEPENDENTS0 ADD-HEAD . DISJOINT-9~-ASL) (IMMEDIATE-DEPENDENTS0 ASL . DISJOINT-9~-ASL) (IMMEDIATE-DEPENDENTS0 INDEX-N . DISJOINT-9~-ASL) (IMMEDIATE-DEPENDENTS0 NAT-TO-INT . DISJOINT-9~-ASL) (IMMEDIATE-DEPENDENTS0 EXP . DISJOINT-9~-ASL) (IMMEDIATE-DEPENDENTS0 ADD . DISJOINT-9~-ASL) (IMMEDIATE-DEPENDENTS0 DISJOINT . DISJOINT-9~-ASL) (LEMMAS DISJOINT . DISJOINT-9~-ASL))))) (PUT1-LST (QUOTE DISJOINT-9-ASL) (QUOTE (IDATE 1000402215026 EVENT (PROVE-LEMMA DISJOINT-9-ASL (REWRITE) (IMPLIES (AND (DISJOINT A M (ADD (QUOTE 32) B K) N) (AND (EQUAL OPSZ (EXP (QUOTE 2) CNT)) (AND (LESSP (NAT-TO-INT X (QUOTE 32)) (QUOTIENT M OPSZ)) (AND (NUMBERP (NAT-TO-INT X (QUOTE 32))) (IF (LESSP N (PLUS L (INDEX-N (QUOTE 0) K))) (QUOTE *1*FALSE) (QUOTE *1*TRUE)))))) (DISJOINT (ADD (QUOTE 32) A (ASL (QUOTE 32) X CNT)) OPSZ B L)) ((ENABLE NAT-TO-INT))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 QUOTIENT-EQUAL-0 . DISJOINT-9-ASL) (IMMEDIATE-DEPENDENTS0 DISJOINT-8~ . DISJOINT-9-ASL) (IMMEDIATE-DEPENDENTS0 TIMES-PLUS-LESSP-CANCEL . DISJOINT-9-ASL) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . DISJOINT-9-ASL) (IMMEDIATE-DEPENDENTS0 DISJOINT-9~ . DISJOINT-9-ASL) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . DISJOINT-9-ASL) (IMMEDIATE-DEPENDENTS0 EXP-OF-2-0 . DISJOINT-9-ASL) (IMMEDIATE-DEPENDENTS0 QUOTIENT-EXIT . DISJOINT-9-ASL) (IMMEDIATE-DEPENDENTS0 REMAINDER-LESSP . DISJOINT-9-ASL) (IMMEDIATE-DEPENDENTS0 REMAINDER-QUOTIENT-ELIM . DISJOINT-9-ASL) (IMMEDIATE-DEPENDENTS0 NEG-NAT-RANGEP . DISJOINT-9-ASL) (IMMEDIATE-DEPENDENTS0 HEAD-LEMMA . DISJOINT-9-ASL) (IMMEDIATE-DEPENDENTS0 ADD-0 . DISJOINT-9-ASL) (IMMEDIATE-DEPENDENTS0 SUB-NEG . DISJOINT-9-ASL) (IMMEDIATE-DEPENDENTS0 DISJOINT-COMMUTATIVITY . DISJOINT-9-ASL) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . DISJOINT-9-ASL) (IMMEDIATE-DEPENDENTS0 ADD-COMMUTATIVITY . DISJOINT-9-ASL) (IMMEDIATE-DEPENDENTS0 DISJOINT-HEAD . DISJOINT-9-ASL) (IMMEDIATE-DEPENDENTS0 ADD-HEAD . DISJOINT-9-ASL) (IMMEDIATE-DEPENDENTS0 ASL . DISJOINT-9-ASL) (IMMEDIATE-DEPENDENTS0 INDEX-N . DISJOINT-9-ASL) (IMMEDIATE-DEPENDENTS0 NAT-TO-INT . DISJOINT-9-ASL) (IMMEDIATE-DEPENDENTS0 EXP . DISJOINT-9-ASL) (IMMEDIATE-DEPENDENTS0 ADD . DISJOINT-9-ASL) (IMMEDIATE-DEPENDENTS0 DISJOINT . DISJOINT-9-ASL) (LEMMAS DISJOINT . DISJOINT-9-ASL))))) (PUT1-LST (QUOTE DISJOINT-3~-ASL) (QUOTE (IDATE 1000402215026 EVENT (PROVE-LEMMA DISJOINT-3~-ASL (REWRITE) (IMPLIES (AND (DISJOINT A M B N) (AND (EQUAL OPSZ (EXP (QUOTE 2) CNT)) (AND (LESSP (NAT-TO-INT X (QUOTE 32)) (QUOTIENT M OPSZ)) (AND (NUMBERP (NAT-TO-INT X (QUOTE 32))) (IF (LESSP N (PLUS K L)) (QUOTE *1*FALSE) (QUOTE *1*TRUE)))))) (DISJOINT (ADD (QUOTE 32) B K) L (ADD (QUOTE 32) A (ASL (QUOTE 32) X CNT)) OPSZ)) ((ENABLE NAT-TO-INT))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 QUOTIENT-EQUAL-0 . DISJOINT-3~-ASL) (IMMEDIATE-DEPENDENTS0 DISJOINT-1~ . DISJOINT-3~-ASL) (IMMEDIATE-DEPENDENTS0 TIMES-PLUS-LESSP-CANCEL . DISJOINT-3~-ASL) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . DISJOINT-3~-ASL) (IMMEDIATE-DEPENDENTS0 DISJOINT-3~ . DISJOINT-3~-ASL) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . DISJOINT-3~-ASL) (IMMEDIATE-DEPENDENTS0 EXP-OF-2-0 . DISJOINT-3~-ASL) (IMMEDIATE-DEPENDENTS0 QUOTIENT-EXIT . DISJOINT-3~-ASL) (IMMEDIATE-DEPENDENTS0 REMAINDER-LESSP . DISJOINT-3~-ASL) (IMMEDIATE-DEPENDENTS0 REMAINDER-QUOTIENT-ELIM . DISJOINT-3~-ASL) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . DISJOINT-3~-ASL) (IMMEDIATE-DEPENDENTS0 ADD-0 . DISJOINT-3~-ASL) (IMMEDIATE-DEPENDENTS0 ADD-COMMUTATIVITY . DISJOINT-3~-ASL) (IMMEDIATE-DEPENDENTS0 DISJOINT-HEAD . DISJOINT-3~-ASL) (IMMEDIATE-DEPENDENTS0 ADD-HEAD . DISJOINT-3~-ASL) (IMMEDIATE-DEPENDENTS0 ASL . DISJOINT-3~-ASL) (IMMEDIATE-DEPENDENTS0 ADD . DISJOINT-3~-ASL) (IMMEDIATE-DEPENDENTS0 NAT-TO-INT . DISJOINT-3~-ASL) (IMMEDIATE-DEPENDENTS0 EXP . DISJOINT-3~-ASL) (IMMEDIATE-DEPENDENTS0 DISJOINT . DISJOINT-3~-ASL) (LEMMAS DISJOINT . DISJOINT-3~-ASL))))) (PUT1-LST (QUOTE DISJOINT-3-ASL) (QUOTE (IDATE 1000402215026 EVENT (PROVE-LEMMA DISJOINT-3-ASL (REWRITE) (IMPLIES (AND (DISJOINT A M B N) (AND (EQUAL OPSZ (EXP (QUOTE 2) CNT)) (AND (LESSP (NAT-TO-INT X (QUOTE 32)) (QUOTIENT M OPSZ)) (AND (NUMBERP (NAT-TO-INT X (QUOTE 32))) (IF (LESSP N (PLUS K L)) (QUOTE *1*FALSE) (QUOTE *1*TRUE)))))) (DISJOINT (ADD (QUOTE 32) A (ASL (QUOTE 32) X CNT)) OPSZ (ADD (QUOTE 32) B K) L)) ((ENABLE NAT-TO-INT))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 QUOTIENT-EQUAL-0 . DISJOINT-3-ASL) (IMMEDIATE-DEPENDENTS0 DISJOINT-1 . DISJOINT-3-ASL) (IMMEDIATE-DEPENDENTS0 TIMES-PLUS-LESSP-CANCEL . DISJOINT-3-ASL) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . DISJOINT-3-ASL) (IMMEDIATE-DEPENDENTS0 DISJOINT-3~ . DISJOINT-3-ASL) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . DISJOINT-3-ASL) (IMMEDIATE-DEPENDENTS0 EXP-OF-2-0 . DISJOINT-3-ASL) (IMMEDIATE-DEPENDENTS0 QUOTIENT-EXIT . DISJOINT-3-ASL) (IMMEDIATE-DEPENDENTS0 REMAINDER-LESSP . DISJOINT-3-ASL) (IMMEDIATE-DEPENDENTS0 REMAINDER-QUOTIENT-ELIM . DISJOINT-3-ASL) (IMMEDIATE-DEPENDENTS0 DISJOINT-COMMUTATIVITY . DISJOINT-3-ASL) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . DISJOINT-3-ASL) (IMMEDIATE-DEPENDENTS0 ADD-0 . DISJOINT-3-ASL) (IMMEDIATE-DEPENDENTS0 ADD-COMMUTATIVITY . DISJOINT-3-ASL) (IMMEDIATE-DEPENDENTS0 DISJOINT-HEAD . DISJOINT-3-ASL) (IMMEDIATE-DEPENDENTS0 ADD-HEAD . DISJOINT-3-ASL) (IMMEDIATE-DEPENDENTS0 ASL . DISJOINT-3-ASL) (IMMEDIATE-DEPENDENTS0 ADD . DISJOINT-3-ASL) (IMMEDIATE-DEPENDENTS0 NAT-TO-INT . DISJOINT-3-ASL) (IMMEDIATE-DEPENDENTS0 EXP . DISJOINT-3-ASL) (IMMEDIATE-DEPENDENTS0 DISJOINT . DISJOINT-3-ASL) (LEMMAS DISJOINT . DISJOINT-3-ASL))))) (PUT1-LST (QUOTE DISJOINT-2~-ASL) (QUOTE (IDATE 1000402215026 EVENT (PROVE-LEMMA DISJOINT-2~-ASL (REWRITE) (IMPLIES (AND (DISJOINT A M B N) (AND (EQUAL OPSZ (EXP (QUOTE 2) CNT)) (AND (LESSP (NAT-TO-INT X (QUOTE 32)) (QUOTIENT M OPSZ)) (AND (NUMBERP (NAT-TO-INT X (QUOTE 32))) (IF (LESSP N L) (QUOTE *1*FALSE) (QUOTE *1*TRUE)))))) (DISJOINT B L (ADD (QUOTE 32) A (ASL (QUOTE 32) X CNT)) OPSZ)) ((ENABLE NAT-TO-INT))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 QUOTIENT-EQUAL-0 . DISJOINT-2~-ASL) (IMMEDIATE-DEPENDENTS0 DISJOINT-0~ . DISJOINT-2~-ASL) (IMMEDIATE-DEPENDENTS0 TIMES-PLUS-LESSP-CANCEL . DISJOINT-2~-ASL) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . DISJOINT-2~-ASL) (IMMEDIATE-DEPENDENTS0 DISJOINT-2~ . DISJOINT-2~-ASL) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . DISJOINT-2~-ASL) (IMMEDIATE-DEPENDENTS0 EXP-OF-2-0 . DISJOINT-2~-ASL) (IMMEDIATE-DEPENDENTS0 QUOTIENT-EXIT . DISJOINT-2~-ASL) (IMMEDIATE-DEPENDENTS0 REMAINDER-LESSP . DISJOINT-2~-ASL) (IMMEDIATE-DEPENDENTS0 REMAINDER-QUOTIENT-ELIM . DISJOINT-2~-ASL) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . DISJOINT-2~-ASL) (IMMEDIATE-DEPENDENTS0 ADD-0 . DISJOINT-2~-ASL) (IMMEDIATE-DEPENDENTS0 ADD-COMMUTATIVITY . DISJOINT-2~-ASL) (IMMEDIATE-DEPENDENTS0 DISJOINT-HEAD . DISJOINT-2~-ASL) (IMMEDIATE-DEPENDENTS0 ADD-HEAD . DISJOINT-2~-ASL) (IMMEDIATE-DEPENDENTS0 ASL . DISJOINT-2~-ASL) (IMMEDIATE-DEPENDENTS0 ADD . DISJOINT-2~-ASL) (IMMEDIATE-DEPENDENTS0 NAT-TO-INT . DISJOINT-2~-ASL) (IMMEDIATE-DEPENDENTS0 EXP . DISJOINT-2~-ASL) (IMMEDIATE-DEPENDENTS0 DISJOINT . DISJOINT-2~-ASL) (LEMMAS DISJOINT . DISJOINT-2~-ASL))))) (PUT1-LST (QUOTE DISJOINT-2-ASL) (QUOTE (IDATE 1000402215026 EVENT (PROVE-LEMMA DISJOINT-2-ASL (REWRITE) (IMPLIES (AND (DISJOINT A M B N) (AND (EQUAL OPSZ (EXP (QUOTE 2) CNT)) (AND (LESSP (NAT-TO-INT X (QUOTE 32)) (QUOTIENT M OPSZ)) (AND (NUMBERP (NAT-TO-INT X (QUOTE 32))) (IF (LESSP N L) (QUOTE *1*FALSE) (QUOTE *1*TRUE)))))) (DISJOINT (ADD (QUOTE 32) A (ASL (QUOTE 32) X CNT)) OPSZ B L)) ((ENABLE NAT-TO-INT))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 QUOTIENT-EQUAL-0 . DISJOINT-2-ASL) (IMMEDIATE-DEPENDENTS0 DISJOINT-0~ . DISJOINT-2-ASL) (IMMEDIATE-DEPENDENTS0 TIMES-PLUS-LESSP-CANCEL . DISJOINT-2-ASL) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . DISJOINT-2-ASL) (IMMEDIATE-DEPENDENTS0 DISJOINT-2~ . DISJOINT-2-ASL) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . DISJOINT-2-ASL) (IMMEDIATE-DEPENDENTS0 EXP-OF-2-0 . DISJOINT-2-ASL) (IMMEDIATE-DEPENDENTS0 QUOTIENT-EXIT . DISJOINT-2-ASL) (IMMEDIATE-DEPENDENTS0 REMAINDER-LESSP . DISJOINT-2-ASL) (IMMEDIATE-DEPENDENTS0 REMAINDER-QUOTIENT-ELIM . DISJOINT-2-ASL) (IMMEDIATE-DEPENDENTS0 DISJOINT-COMMUTATIVITY . DISJOINT-2-ASL) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . DISJOINT-2-ASL) (IMMEDIATE-DEPENDENTS0 ADD-0 . DISJOINT-2-ASL) (IMMEDIATE-DEPENDENTS0 ADD-COMMUTATIVITY . DISJOINT-2-ASL) (IMMEDIATE-DEPENDENTS0 DISJOINT-HEAD . DISJOINT-2-ASL) (IMMEDIATE-DEPENDENTS0 ADD-HEAD . DISJOINT-2-ASL) (IMMEDIATE-DEPENDENTS0 ASL . DISJOINT-2-ASL) (IMMEDIATE-DEPENDENTS0 ADD . DISJOINT-2-ASL) (IMMEDIATE-DEPENDENTS0 NAT-TO-INT . DISJOINT-2-ASL) (IMMEDIATE-DEPENDENTS0 EXP . DISJOINT-2-ASL) (IMMEDIATE-DEPENDENTS0 DISJOINT . DISJOINT-2-ASL) (LEMMAS DISJOINT . DISJOINT-2-ASL))))) (PUT1-LST (QUOTE TIMES-PLUS-LESSP-CANCEL) (QUOTE (IDATE 1000402215025 IMMEDIATE-DEPENDENTS0 (TIMES-PLUS-LESSP-CANCEL-OFF DISJOINT-11~-ASL DISJOINT-11-ASL DISJOINT-9~-ASL DISJOINT-9-ASL DISJOINT-3~-ASL DISJOINT-3-ASL DISJOINT-2~-ASL DISJOINT-2-ASL) EVENT (PROVE-LEMMA TIMES-PLUS-LESSP-CANCEL (REWRITE) (IMPLIES (AND (IF (LESSP K A) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (AND (IF (LESSP K B) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (LESSP A B))) (EQUAL (LESSP (PLUS A (TIMES I K)) (PLUS B (TIMES J K))) (IF (LESSP J I) (QUOTE *1*FALSE) (QUOTE *1*TRUE)))) ((INDUCT (DIFFERENCE I J)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-ADD1 . TIMES-PLUS-LESSP-CANCEL) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-LESSP-TIMES . TIMES-PLUS-LESSP-CANCEL) (IMMEDIATE-DEPENDENTS0 TIMES-LESSP . TIMES-PLUS-LESSP-CANCEL) (IMMEDIATE-DEPENDENTS0 TIMES-1 . TIMES-PLUS-LESSP-CANCEL) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . TIMES-PLUS-LESSP-CANCEL) (IMMEDIATE-DEPENDENTS0 SUB1-OF-1 . TIMES-PLUS-LESSP-CANCEL) (IMMEDIATE-DEPENDENTS0 TIMES-EQUAL-0 . TIMES-PLUS-LESSP-CANCEL) (IMMEDIATE-DEPENDENTS0 LESSP-OF-1 . TIMES-PLUS-LESSP-CANCEL) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-LESSP-PLUS . TIMES-PLUS-LESSP-CANCEL) (IMMEDIATE-DEPENDENTS0 TIMES-ADD1 . TIMES-PLUS-LESSP-CANCEL) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . TIMES-PLUS-LESSP-CANCEL) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . TIMES-PLUS-LESSP-CANCEL) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . TIMES-PLUS-LESSP-CANCEL) (LEMMAS LESSP . TIMES-PLUS-LESSP-CANCEL))))) (PUT1-LST (QUOTE DISJOINT-15~) (QUOTE (IDATE 1000402215025 EVENT (PROVE-LEMMA DISJOINT-15~ (REWRITE) (IMPLIES (AND (DISJOINT (ADD (QUOTE 32) A I) M (ADD (QUOTE 32) B K) N) (AND (IF (LESSP M (PLUS J (INDEX-N I1 I))) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (IF (LESSP N (PLUS L (INDEX-N K1 K))) (QUOTE *1*FALSE) (QUOTE *1*TRUE)))) (DISJOINT (ADD (QUOTE 32) B K1) L (ADD (QUOTE 32) A I1) J))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUB-NEG . DISJOINT-15~) (IMMEDIATE-DEPENDENTS0 DISJOINT-15 . DISJOINT-15~) (IMMEDIATE-DEPENDENTS0 DISJOINT-COMMUTATIVITY . DISJOINT-15~) (IMMEDIATE-DEPENDENTS0 INDEX-N . DISJOINT-15~) (IMMEDIATE-DEPENDENTS0 ADD . DISJOINT-15~) (IMMEDIATE-DEPENDENTS0 DISJOINT . DISJOINT-15~) (LEMMAS DISJOINT . DISJOINT-15~))))) (PUT1-LST (QUOTE DISJOINT-14~) (QUOTE (IDATE 1000402215025 EVENT (PROVE-LEMMA DISJOINT-14~ (REWRITE) (IMPLIES (AND (DISJOINT (ADD (QUOTE 32) A I) M (ADD (QUOTE 32) B K) N) (AND (IF (LESSP M (PLUS J (INDEX-N (QUOTE 0) I))) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (IF (LESSP N (PLUS L (INDEX-N K1 K))) (QUOTE *1*FALSE) (QUOTE *1*TRUE)))) (DISJOINT (ADD (QUOTE 32) B K1) L A J))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NEG-NAT-RANGEP . DISJOINT-14~) (IMMEDIATE-DEPENDENTS0 HEAD-LEMMA . DISJOINT-14~) (IMMEDIATE-DEPENDENTS0 ADD-0 . DISJOINT-14~) (IMMEDIATE-DEPENDENTS0 SUB-NEG . DISJOINT-14~) (IMMEDIATE-DEPENDENTS0 DISJOINT-14 . DISJOINT-14~) (IMMEDIATE-DEPENDENTS0 DISJOINT-COMMUTATIVITY . DISJOINT-14~) (IMMEDIATE-DEPENDENTS0 INDEX-N . DISJOINT-14~) (IMMEDIATE-DEPENDENTS0 ADD . DISJOINT-14~) (IMMEDIATE-DEPENDENTS0 DISJOINT . DISJOINT-14~) (LEMMAS DISJOINT . DISJOINT-14~))))) (PUT1-LST (QUOTE DISJOINT-13~) (QUOTE (IDATE 1000402215025 EVENT (PROVE-LEMMA DISJOINT-13~ (REWRITE) (IMPLIES (AND (DISJOINT (ADD (QUOTE 32) A I) M (ADD (QUOTE 32) B K) N) (AND (IF (LESSP M (PLUS J (INDEX-N I1 I))) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (IF (LESSP N (PLUS L (INDEX-N (QUOTE 0) K))) (QUOTE *1*FALSE) (QUOTE *1*TRUE)))) (DISJOINT B L (ADD (QUOTE 32) A I1) J)) ((USE (DISJOINT-13)) (DISABLE DISJOINT-13))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DISJOINT-0 . DISJOINT-13~) (IMMEDIATE-DEPENDENTS0 SUB-NEG . DISJOINT-13~) (IMMEDIATE-DEPENDENTS0 NEG-NAT-RANGEP . DISJOINT-13~) (IMMEDIATE-DEPENDENTS0 HEAD-LEMMA . DISJOINT-13~) (IMMEDIATE-DEPENDENTS0 ADD-0 . DISJOINT-13~) (IMMEDIATE-DEPENDENTS0 DISJOINT-0~ . DISJOINT-13~) (IMMEDIATE-DEPENDENTS0 DISJOINT-13 . DISJOINT-13~) (IMMEDIATE-DEPENDENTS0 INDEX-N . DISJOINT-13~) (IMMEDIATE-DEPENDENTS0 ADD . DISJOINT-13~) (IMMEDIATE-DEPENDENTS0 DISJOINT . DISJOINT-13~) (LEMMAS DISJOINT . DISJOINT-13~))))) (PUT1-LST (QUOTE DISJOINT-12~) (QUOTE (IDATE 1000402215025 EVENT (PROVE-LEMMA DISJOINT-12~ (REWRITE) (IMPLIES (AND (DISJOINT (ADD (QUOTE 32) A I) M (ADD (QUOTE 32) B K) N) (AND (IF (LESSP M (PLUS J (INDEX-N (QUOTE 0) I))) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (IF (LESSP N (PLUS L (INDEX-N (QUOTE 0) K))) (QUOTE *1*FALSE) (QUOTE *1*TRUE)))) (DISJOINT B L A J))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NEG-NAT-RANGEP . DISJOINT-12~) (IMMEDIATE-DEPENDENTS0 HEAD-LEMMA . DISJOINT-12~) (IMMEDIATE-DEPENDENTS0 ADD-0 . DISJOINT-12~) (IMMEDIATE-DEPENDENTS0 SUB-NEG . DISJOINT-12~) (IMMEDIATE-DEPENDENTS0 DISJOINT-12 . DISJOINT-12~) (IMMEDIATE-DEPENDENTS0 DISJOINT-COMMUTATIVITY . DISJOINT-12~) (IMMEDIATE-DEPENDENTS0 INDEX-N . DISJOINT-12~) (IMMEDIATE-DEPENDENTS0 ADD . DISJOINT-12~) (IMMEDIATE-DEPENDENTS0 DISJOINT . DISJOINT-12~) (LEMMAS DISJOINT . DISJOINT-12~))))) (PUT1-LST (QUOTE DISJOINT-11~) (QUOTE (IDATE 1000402215025 IMMEDIATE-DEPENDENTS0 (DISJOINT-11~-ASL DISJOINT-11-ASL) EVENT (PROVE-LEMMA DISJOINT-11~ (REWRITE) (IMPLIES (AND (DISJOINT A M (ADD (QUOTE 32) B K) N) (AND (IF (LESSP M (PLUS I J)) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (IF (LESSP N (PLUS L (INDEX-N K1 K))) (QUOTE *1*FALSE) (QUOTE *1*TRUE)))) (DISJOINT (ADD (QUOTE 32) B K1) L (ADD (QUOTE 32) A I) J))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUB-NEG . DISJOINT-11~) (IMMEDIATE-DEPENDENTS0 DISJOINT-11 . DISJOINT-11~) (IMMEDIATE-DEPENDENTS0 DISJOINT-COMMUTATIVITY . DISJOINT-11~) (IMMEDIATE-DEPENDENTS0 INDEX-N . DISJOINT-11~) (IMMEDIATE-DEPENDENTS0 ADD . DISJOINT-11~) (IMMEDIATE-DEPENDENTS0 DISJOINT . DISJOINT-11~) (LEMMAS DISJOINT . DISJOINT-11~))))) (PUT1-LST (QUOTE DISJOINT-10~) (QUOTE (IDATE 1000402215025 IMMEDIATE-DEPENDENTS0 (DISJOINT-11~-ASL) EVENT (PROVE-LEMMA DISJOINT-10~ (REWRITE) (IMPLIES (AND (DISJOINT A M (ADD (QUOTE 32) B K) N) (AND (IF (LESSP M J) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (IF (LESSP N (PLUS L (INDEX-N K1 K))) (QUOTE *1*FALSE) (QUOTE *1*TRUE)))) (DISJOINT (ADD (QUOTE 32) B K1) L A J))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUB-NEG . DISJOINT-10~) (IMMEDIATE-DEPENDENTS0 DISJOINT-10 . DISJOINT-10~) (IMMEDIATE-DEPENDENTS0 DISJOINT-COMMUTATIVITY . DISJOINT-10~) (IMMEDIATE-DEPENDENTS0 INDEX-N . DISJOINT-10~) (IMMEDIATE-DEPENDENTS0 ADD . DISJOINT-10~) (IMMEDIATE-DEPENDENTS0 DISJOINT . DISJOINT-10~) (LEMMAS DISJOINT . DISJOINT-10~))))) (PUT1-LST (QUOTE DISJOINT-9~) (QUOTE (IDATE 1000402215024 IMMEDIATE-DEPENDENTS0 (DISJOINT-9~-ASL DISJOINT-9-ASL) EVENT (PROVE-LEMMA DISJOINT-9~ (REWRITE) (IMPLIES (AND (DISJOINT A M (ADD (QUOTE 32) B K) N) (AND (IF (LESSP M (PLUS I J)) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (IF (LESSP N (PLUS L (INDEX-N (QUOTE 0) K))) (QUOTE *1*FALSE) (QUOTE *1*TRUE)))) (DISJOINT B L (ADD (QUOTE 32) A I) J)) ((USE (DISJOINT-9)) (DISABLE DISJOINT-9))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DISJOINT-0 . DISJOINT-9~) (IMMEDIATE-DEPENDENTS0 NEG-NAT-RANGEP . DISJOINT-9~) (IMMEDIATE-DEPENDENTS0 HEAD-LEMMA . DISJOINT-9~) (IMMEDIATE-DEPENDENTS0 ADD-0 . DISJOINT-9~) (IMMEDIATE-DEPENDENTS0 SUB-NEG . DISJOINT-9~) (IMMEDIATE-DEPENDENTS0 DISJOINT-0~ . DISJOINT-9~) (IMMEDIATE-DEPENDENTS0 DISJOINT-9 . DISJOINT-9~) (IMMEDIATE-DEPENDENTS0 INDEX-N . DISJOINT-9~) (IMMEDIATE-DEPENDENTS0 ADD . DISJOINT-9~) (IMMEDIATE-DEPENDENTS0 DISJOINT . DISJOINT-9~) (LEMMAS DISJOINT . DISJOINT-9~))))) (PUT1-LST (QUOTE DISJOINT-8~) (QUOTE (IDATE 1000402215024 IMMEDIATE-DEPENDENTS0 (DISJOINT-9~-ASL DISJOINT-9-ASL) EVENT (PROVE-LEMMA DISJOINT-8~ (REWRITE) (IMPLIES (AND (DISJOINT A M (ADD (QUOTE 32) B K) N) (AND (IF (LESSP M J) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (IF (LESSP N (PLUS L (INDEX-N (QUOTE 0) K))) (QUOTE *1*FALSE) (QUOTE *1*TRUE)))) (DISJOINT B L A J))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NEG-NAT-RANGEP . DISJOINT-8~) (IMMEDIATE-DEPENDENTS0 HEAD-LEMMA . DISJOINT-8~) (IMMEDIATE-DEPENDENTS0 ADD-0 . DISJOINT-8~) (IMMEDIATE-DEPENDENTS0 SUB-NEG . DISJOINT-8~) (IMMEDIATE-DEPENDENTS0 DISJOINT-8 . DISJOINT-8~) (IMMEDIATE-DEPENDENTS0 DISJOINT-COMMUTATIVITY . DISJOINT-8~) (IMMEDIATE-DEPENDENTS0 INDEX-N . DISJOINT-8~) (IMMEDIATE-DEPENDENTS0 ADD . DISJOINT-8~) (IMMEDIATE-DEPENDENTS0 DISJOINT . DISJOINT-8~) (LEMMAS DISJOINT . DISJOINT-8~))))) (PUT1-LST (QUOTE DISJOINT-7~) (QUOTE (IDATE 1000402215024 EVENT (PROVE-LEMMA DISJOINT-7~ (REWRITE) (IMPLIES (AND (DISJOINT (ADD (QUOTE 32) A I) M B N) (AND (IF (LESSP M (PLUS J (INDEX-N I1 I))) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (IF (LESSP N (PLUS K L)) (QUOTE *1*FALSE) (QUOTE *1*TRUE)))) (DISJOINT (ADD (QUOTE 32) B K) L (ADD (QUOTE 32) A I1) J))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUB-NEG . DISJOINT-7~) (IMMEDIATE-DEPENDENTS0 DISJOINT-7 . DISJOINT-7~) (IMMEDIATE-DEPENDENTS0 DISJOINT-COMMUTATIVITY . DISJOINT-7~) (IMMEDIATE-DEPENDENTS0 INDEX-N . DISJOINT-7~) (IMMEDIATE-DEPENDENTS0 ADD . DISJOINT-7~) (IMMEDIATE-DEPENDENTS0 DISJOINT . DISJOINT-7~) (LEMMAS DISJOINT . DISJOINT-7~))))) (PUT1-LST (QUOTE DISJOINT-6~) (QUOTE (IDATE 1000402215024 EVENT (PROVE-LEMMA DISJOINT-6~ (REWRITE) (IMPLIES (AND (DISJOINT (ADD (QUOTE 32) A I) M B N) (AND (IF (LESSP M (PLUS J (INDEX-N I1 I))) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (IF (LESSP N L) (QUOTE *1*FALSE) (QUOTE *1*TRUE)))) (DISJOINT B L (ADD (QUOTE 32) A I1) J)) ((USE (DISJOINT-6)) (DISABLE DISJOINT-6))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DISJOINT-0 . DISJOINT-6~) (IMMEDIATE-DEPENDENTS0 SUB-NEG . DISJOINT-6~) (IMMEDIATE-DEPENDENTS0 DISJOINT-0~ . DISJOINT-6~) (IMMEDIATE-DEPENDENTS0 DISJOINT-6 . DISJOINT-6~) (IMMEDIATE-DEPENDENTS0 INDEX-N . DISJOINT-6~) (IMMEDIATE-DEPENDENTS0 ADD . DISJOINT-6~) (IMMEDIATE-DEPENDENTS0 DISJOINT . DISJOINT-6~) (LEMMAS DISJOINT . DISJOINT-6~))))) (PUT1-LST (QUOTE DISJOINT-5~) (QUOTE (IDATE 1000402215024 EVENT (PROVE-LEMMA DISJOINT-5~ (REWRITE) (IMPLIES (AND (DISJOINT (ADD (QUOTE 32) A I) M B N) (AND (IF (LESSP M (PLUS J (INDEX-N (QUOTE 0) I))) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (IF (LESSP N (PLUS K L)) (QUOTE *1*FALSE) (QUOTE *1*TRUE)))) (DISJOINT (ADD (QUOTE 32) B K) L A J))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NEG-NAT-RANGEP . DISJOINT-5~) (IMMEDIATE-DEPENDENTS0 HEAD-LEMMA . DISJOINT-5~) (IMMEDIATE-DEPENDENTS0 ADD-0 . DISJOINT-5~) (IMMEDIATE-DEPENDENTS0 SUB-NEG . DISJOINT-5~) (IMMEDIATE-DEPENDENTS0 DISJOINT-5 . DISJOINT-5~) (IMMEDIATE-DEPENDENTS0 DISJOINT-COMMUTATIVITY . DISJOINT-5~) (IMMEDIATE-DEPENDENTS0 INDEX-N . DISJOINT-5~) (IMMEDIATE-DEPENDENTS0 ADD . DISJOINT-5~) (IMMEDIATE-DEPENDENTS0 DISJOINT . DISJOINT-5~) (LEMMAS DISJOINT . DISJOINT-5~))))) (PUT1-LST (QUOTE DISJOINT-4~) (QUOTE (IDATE 1000402215024 EVENT (PROVE-LEMMA DISJOINT-4~ (REWRITE) (IMPLIES (AND (DISJOINT (ADD (QUOTE 32) A I) M B N) (AND (IF (LESSP M (PLUS J (INDEX-N (QUOTE 0) I))) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (IF (LESSP N L) (QUOTE *1*FALSE) (QUOTE *1*TRUE)))) (DISJOINT B L A J))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NEG-NAT-RANGEP . DISJOINT-4~) (IMMEDIATE-DEPENDENTS0 HEAD-LEMMA . DISJOINT-4~) (IMMEDIATE-DEPENDENTS0 ADD-0 . DISJOINT-4~) (IMMEDIATE-DEPENDENTS0 SUB-NEG . DISJOINT-4~) (IMMEDIATE-DEPENDENTS0 DISJOINT-4 . DISJOINT-4~) (IMMEDIATE-DEPENDENTS0 DISJOINT-COMMUTATIVITY . DISJOINT-4~) (IMMEDIATE-DEPENDENTS0 INDEX-N . DISJOINT-4~) (IMMEDIATE-DEPENDENTS0 ADD . DISJOINT-4~) (IMMEDIATE-DEPENDENTS0 DISJOINT . DISJOINT-4~) (LEMMAS DISJOINT . DISJOINT-4~))))) (PUT1-LST (QUOTE DISJOINT-3~) (QUOTE (IDATE 1000402215024 IMMEDIATE-DEPENDENTS0 (DISJOINT-3~-ASL DISJOINT-3-ASL) EVENT (PROVE-LEMMA DISJOINT-3~ (REWRITE) (IMPLIES (AND (DISJOINT A M B N) (AND (IF (LESSP M (PLUS I J)) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (IF (LESSP N (PLUS K L)) (QUOTE *1*FALSE) (QUOTE *1*TRUE)))) (DISJOINT (ADD (QUOTE 32) B K) L (ADD (QUOTE 32) A I) J))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DISJOINT-3 . DISJOINT-3~) (IMMEDIATE-DEPENDENTS0 DISJOINT-COMMUTATIVITY . DISJOINT-3~) (IMMEDIATE-DEPENDENTS0 ADD . DISJOINT-3~) (IMMEDIATE-DEPENDENTS0 DISJOINT . DISJOINT-3~) (LEMMAS DISJOINT . DISJOINT-3~))))) (PUT1-LST (QUOTE DISJOINT-2~) (QUOTE (IDATE 1000402215024 IMMEDIATE-DEPENDENTS0 (DISJOINT-2~-UINT DISJOINT-2~-INT READM-WRITE-MEM WRITE-ELSE-MEM-ILST WRITE-ELSE-MEM-LST DISJOINT-2~-ASL DISJOINT-2-ASL) EVENT (PROVE-LEMMA DISJOINT-2~ (REWRITE) (IMPLIES (AND (DISJOINT A M B N) (AND (IF (LESSP M (PLUS I J)) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (IF (LESSP N L) (QUOTE *1*FALSE) (QUOTE *1*TRUE)))) (DISJOINT B L (ADD (QUOTE 32) A I) J)) ((USE (DISJOINT-2)) (DISABLE DISJOINT-2))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DISJOINT-0 . DISJOINT-2~) (IMMEDIATE-DEPENDENTS0 DISJOINT-0~ . DISJOINT-2~) (IMMEDIATE-DEPENDENTS0 DISJOINT-2 . DISJOINT-2~) (IMMEDIATE-DEPENDENTS0 ADD . DISJOINT-2~) (IMMEDIATE-DEPENDENTS0 DISJOINT . DISJOINT-2~) (LEMMAS DISJOINT . DISJOINT-2~))))) (PUT1-LST (QUOTE DISJOINT-1~) (QUOTE (IDATE 1000402215024 IMMEDIATE-DEPENDENTS0 (DISJOINT-3~-ASL) EVENT (PROVE-LEMMA DISJOINT-1~ (REWRITE) (IMPLIES (AND (DISJOINT A M B N) (AND (IF (LESSP M J) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (IF (LESSP N (PLUS K L)) (QUOTE *1*FALSE) (QUOTE *1*TRUE)))) (DISJOINT (ADD (QUOTE 32) B K) L A J))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DISJOINT-1 . DISJOINT-1~) (IMMEDIATE-DEPENDENTS0 DISJOINT-COMMUTATIVITY . DISJOINT-1~) (IMMEDIATE-DEPENDENTS0 ADD . DISJOINT-1~) (IMMEDIATE-DEPENDENTS0 DISJOINT . DISJOINT-1~) (LEMMAS DISJOINT . DISJOINT-1~))))) (PUT1-LST (QUOTE DISJOINT-0~) (QUOTE (IDATE 1000402215024 IMMEDIATE-DEPENDENTS0 (WRITEM-ELSE-MEM-LST DISJOINT-2~-ASL DISJOINT-2-ASL DISJOINT-13~ DISJOINT-9~ DISJOINT-6~ DISJOINT-2~) EVENT (PROVE-LEMMA DISJOINT-0~ (REWRITE) (IMPLIES (AND (DISJOINT A M B N) (AND (IF (LESSP M J) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (IF (LESSP N L) (QUOTE *1*FALSE) (QUOTE *1*TRUE)))) (DISJOINT B L A J))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DISJOINT-0 . DISJOINT-0~) (IMMEDIATE-DEPENDENTS0 DISJOINT-COMMUTATIVITY . DISJOINT-0~) (IMMEDIATE-DEPENDENTS0 DISJOINT . DISJOINT-0~) (LEMMAS DISJOINT . DISJOINT-0~))))) (PUT1-LST (QUOTE DISJOINT-COMMUTATIVITY) (QUOTE (IDATE 1000402215024 IMMEDIATE-DEPENDENTS0 (DISJOINT-COMMUTATIVITY-OFF DISJOINT-LEQ1-UINT READM-WRITE-MEM WRITEM-ELSE-MEM-LST DISJOINT-LEQ1 WRITE-ELSE-MEM-ILST WRITE-ELSE-MEM-LST DISJOINT-11-ASL DISJOINT-9-ASL DISJOINT-3-ASL DISJOINT-2-ASL DISJOINT-15~ DISJOINT-14~ DISJOINT-12~ DISJOINT-11~ DISJOINT-10~ DISJOINT-8~ DISJOINT-7~ DISJOINT-5~ DISJOINT-4~ DISJOINT-3~ DISJOINT-1~ DISJOINT-0~) EVENT (PROVE-LEMMA DISJOINT-COMMUTATIVITY (REWRITE) (EQUAL (DISJOINT X M Y N) (DISJOINT Y N X M))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 HEAD-LEMMA . DISJOINT-COMMUTATIVITY) (IMMEDIATE-DEPENDENTS0 ADD-NAT-RANGEP . DISJOINT-COMMUTATIVITY) (IMMEDIATE-DEPENDENTS0 MOD32-EQ . DISJOINT-COMMUTATIVITY) (IMMEDIATE-DEPENDENTS0 DISJOINT0 . DISJOINT-COMMUTATIVITY) (IMMEDIATE-DEPENDENTS0 DISJOINT-0 . DISJOINT-COMMUTATIVITY) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . DISJOINT-COMMUTATIVITY) (IMMEDIATE-DEPENDENTS0 DISJOINT . DISJOINT-COMMUTATIVITY) (LEMMAS DISJOINT . DISJOINT-COMMUTATIVITY))))) (PUT1-LST (QUOTE DISJOINT-15) (QUOTE (IDATE 1000402215024 IMMEDIATE-DEPENDENTS0 (DISJOINT-15~) EVENT (PROVE-LEMMA DISJOINT-15 (REWRITE) (IMPLIES (AND (DISJOINT (ADD (QUOTE 32) A I) M (ADD (QUOTE 32) B K) N) (AND (IF (LESSP M (PLUS J (INDEX-N I1 I))) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (IF (LESSP N (PLUS L (INDEX-N K1 K))) (QUOTE *1*FALSE) (QUOTE *1*TRUE)))) (DISJOINT (ADD (QUOTE 32) A I1) J (ADD (QUOTE 32) B K1) L)) ((USE (DISJOINT-11 (A (ADD (QUOTE 32) A I)) (I (INDEX-N I1 I)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DISJOINT-0 . DISJOINT-15) (IMMEDIATE-DEPENDENTS0 SUB-NEG . DISJOINT-15) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . DISJOINT-15) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-ADD-NEG . DISJOINT-15) (IMMEDIATE-DEPENDENTS0 ADD-HEAD . DISJOINT-15) (IMMEDIATE-DEPENDENTS0 ADD-ASSOCIATIVITY . DISJOINT-15) (IMMEDIATE-DEPENDENTS0 DISJOINT-11 . DISJOINT-15) (IMMEDIATE-DEPENDENTS0 INDEX-N . DISJOINT-15) (IMMEDIATE-DEPENDENTS0 ADD . DISJOINT-15) (IMMEDIATE-DEPENDENTS0 DISJOINT . DISJOINT-15) (LEMMAS DISJOINT . DISJOINT-15))))) (PUT1-LST (QUOTE DISJOINT-14) (QUOTE (IDATE 1000402215024 IMMEDIATE-DEPENDENTS0 (DISJOINT-14~) EVENT (PROVE-LEMMA DISJOINT-14 (REWRITE) (IMPLIES (AND (DISJOINT (ADD (QUOTE 32) A I) M (ADD (QUOTE 32) B K) N) (AND (IF (LESSP M (PLUS J (INDEX-N (QUOTE 0) I))) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (IF (LESSP N (PLUS L (INDEX-N K1 K))) (QUOTE *1*FALSE) (QUOTE *1*TRUE)))) (DISJOINT A J (ADD (QUOTE 32) B K1) L)) ((USE (DISJOINT-11 (A (ADD (QUOTE 32) A I)) (I (INDEX-N (QUOTE 0) I)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DISJOINT-0 . DISJOINT-14) (IMMEDIATE-DEPENDENTS0 NEG-NAT-RANGEP . DISJOINT-14) (IMMEDIATE-DEPENDENTS0 HEAD-LEMMA . DISJOINT-14) (IMMEDIATE-DEPENDENTS0 ADD-0 . DISJOINT-14) (IMMEDIATE-DEPENDENTS0 SUB-NEG . DISJOINT-14) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . DISJOINT-14) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-ADD-NEG . DISJOINT-14) (IMMEDIATE-DEPENDENTS0 ADD-COMMUTATIVITY . DISJOINT-14) (IMMEDIATE-DEPENDENTS0 DISJOINT-HEAD . DISJOINT-14) (IMMEDIATE-DEPENDENTS0 ADD-ASSOCIATIVITY . DISJOINT-14) (IMMEDIATE-DEPENDENTS0 DISJOINT-11 . DISJOINT-14) (IMMEDIATE-DEPENDENTS0 INDEX-N . DISJOINT-14) (IMMEDIATE-DEPENDENTS0 ADD . DISJOINT-14) (IMMEDIATE-DEPENDENTS0 DISJOINT . DISJOINT-14) (LEMMAS DISJOINT . DISJOINT-14))))) (PUT1-LST (QUOTE DISJOINT-13) (QUOTE (IDATE 1000402215024 IMMEDIATE-DEPENDENTS0 (DISJOINT-13~) EVENT (PROVE-LEMMA DISJOINT-13 (REWRITE) (IMPLIES (AND (DISJOINT (ADD (QUOTE 32) A I) M (ADD (QUOTE 32) B K) N) (AND (IF (LESSP M (PLUS J (INDEX-N I1 I))) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (IF (LESSP N (PLUS L (INDEX-N (QUOTE 0) K))) (QUOTE *1*FALSE) (QUOTE *1*TRUE)))) (DISJOINT (ADD (QUOTE 32) A I1) J B L)) ((USE (DISJOINT-9 (A (ADD (QUOTE 32) A I)) (I (INDEX-N I1 I)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DISJOINT-0 . DISJOINT-13) (IMMEDIATE-DEPENDENTS0 SUB-NEG . DISJOINT-13) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . DISJOINT-13) (IMMEDIATE-DEPENDENTS0 NEG-NAT-RANGEP . DISJOINT-13) (IMMEDIATE-DEPENDENTS0 HEAD-LEMMA . DISJOINT-13) (IMMEDIATE-DEPENDENTS0 ADD-0 . DISJOINT-13) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-ADD-NEG . DISJOINT-13) (IMMEDIATE-DEPENDENTS0 ADD-HEAD . DISJOINT-13) (IMMEDIATE-DEPENDENTS0 ADD-ASSOCIATIVITY . DISJOINT-13) (IMMEDIATE-DEPENDENTS0 DISJOINT-9 . DISJOINT-13) (IMMEDIATE-DEPENDENTS0 INDEX-N . DISJOINT-13) (IMMEDIATE-DEPENDENTS0 ADD . DISJOINT-13) (IMMEDIATE-DEPENDENTS0 DISJOINT . DISJOINT-13) (LEMMAS DISJOINT . DISJOINT-13))))) (PUT1-LST (QUOTE DISJOINT-12) (QUOTE (IDATE 1000402215024 IMMEDIATE-DEPENDENTS0 (DISJOINT-12~) EVENT (PROVE-LEMMA DISJOINT-12 (REWRITE) (IMPLIES (AND (DISJOINT (ADD (QUOTE 32) A I) M (ADD (QUOTE 32) B K) N) (AND (IF (LESSP M (PLUS J (INDEX-N (QUOTE 0) I))) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (IF (LESSP N (PLUS L (INDEX-N (QUOTE 0) K))) (QUOTE *1*FALSE) (QUOTE *1*TRUE)))) (DISJOINT A J B L)) ((USE (DISJOINT-9 (A (ADD (QUOTE 32) A I)) (I (INDEX-N (QUOTE 0) I)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DISJOINT-0 . DISJOINT-12) (IMMEDIATE-DEPENDENTS0 NEG-NAT-RANGEP . DISJOINT-12) (IMMEDIATE-DEPENDENTS0 HEAD-LEMMA . DISJOINT-12) (IMMEDIATE-DEPENDENTS0 ADD-0 . DISJOINT-12) (IMMEDIATE-DEPENDENTS0 SUB-NEG . DISJOINT-12) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . DISJOINT-12) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-ADD-NEG . DISJOINT-12) (IMMEDIATE-DEPENDENTS0 ADD-COMMUTATIVITY . DISJOINT-12) (IMMEDIATE-DEPENDENTS0 DISJOINT-HEAD . DISJOINT-12) (IMMEDIATE-DEPENDENTS0 ADD-ASSOCIATIVITY . DISJOINT-12) (IMMEDIATE-DEPENDENTS0 DISJOINT-9 . DISJOINT-12) (IMMEDIATE-DEPENDENTS0 INDEX-N . DISJOINT-12) (IMMEDIATE-DEPENDENTS0 ADD . DISJOINT-12) (IMMEDIATE-DEPENDENTS0 DISJOINT . DISJOINT-12) (LEMMAS DISJOINT . DISJOINT-12))))) (PUT1-LST (QUOTE DISJOINT-11) (QUOTE (IDATE 1000402215024 IMMEDIATE-DEPENDENTS0 (DISJOINT-11~ DISJOINT-15 DISJOINT-14) EVENT (PROVE-LEMMA DISJOINT-11 (REWRITE) (IMPLIES (AND (DISJOINT A M (ADD (QUOTE 32) B K) N) (AND (IF (LESSP M (PLUS I J)) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (IF (LESSP N (PLUS L (INDEX-N K1 K))) (QUOTE *1*FALSE) (QUOTE *1*TRUE)))) (DISJOINT (ADD (QUOTE 32) A I) J (ADD (QUOTE 32) B K1) L)) ((USE (DISJOINT-3 (B (ADD (QUOTE 32) B K)) (K (INDEX-N K1 K)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DISJOINT-0 . DISJOINT-11) (IMMEDIATE-DEPENDENTS0 SUB-NEG . DISJOINT-11) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . DISJOINT-11) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-ADD-NEG . DISJOINT-11) (IMMEDIATE-DEPENDENTS0 ADD-HEAD . DISJOINT-11) (IMMEDIATE-DEPENDENTS0 ADD-ASSOCIATIVITY . DISJOINT-11) (IMMEDIATE-DEPENDENTS0 DISJOINT-3 . DISJOINT-11) (IMMEDIATE-DEPENDENTS0 INDEX-N . DISJOINT-11) (IMMEDIATE-DEPENDENTS0 ADD . DISJOINT-11) (IMMEDIATE-DEPENDENTS0 DISJOINT . DISJOINT-11) (LEMMAS DISJOINT . DISJOINT-11))))) (PUT1-LST (QUOTE DISJOINT-10) (QUOTE (IDATE 1000402215024 IMMEDIATE-DEPENDENTS0 (GCD-CORRECTNESS GCD-S-S0-MEM DISJOINT-11-ASL DISJOINT-10~) EVENT (PROVE-LEMMA DISJOINT-10 (REWRITE) (IMPLIES (AND (DISJOINT A M (ADD (QUOTE 32) B K) N) (AND (IF (LESSP M J) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (IF (LESSP N (PLUS L (INDEX-N K1 K))) (QUOTE *1*FALSE) (QUOTE *1*TRUE)))) (DISJOINT A J (ADD (QUOTE 32) B K1) L)) ((USE (DISJOINT-1 (B (ADD (QUOTE 32) B K)) (K (INDEX-N K1 K)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DISJOINT-0 . DISJOINT-10) (IMMEDIATE-DEPENDENTS0 SUB-NEG . DISJOINT-10) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . DISJOINT-10) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-ADD-NEG . DISJOINT-10) (IMMEDIATE-DEPENDENTS0 ADD-HEAD . DISJOINT-10) (IMMEDIATE-DEPENDENTS0 ADD-ASSOCIATIVITY . DISJOINT-10) (IMMEDIATE-DEPENDENTS0 DISJOINT-1 . DISJOINT-10) (IMMEDIATE-DEPENDENTS0 INDEX-N . DISJOINT-10) (IMMEDIATE-DEPENDENTS0 ADD . DISJOINT-10) (IMMEDIATE-DEPENDENTS0 DISJOINT . DISJOINT-10) (LEMMAS DISJOINT . DISJOINT-10))))) (PUT1-LST (QUOTE DISJOINT-9) (QUOTE (IDATE 1000402215024 IMMEDIATE-DEPENDENTS0 (DISJOINT-9~ DISJOINT-13 DISJOINT-12) EVENT (PROVE-LEMMA DISJOINT-9 (REWRITE) (IMPLIES (AND (DISJOINT A M (ADD (QUOTE 32) B K) N) (AND (IF (LESSP M (PLUS I J)) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (IF (LESSP N (PLUS L (INDEX-N (QUOTE 0) K))) (QUOTE *1*FALSE) (QUOTE *1*TRUE)))) (DISJOINT (ADD (QUOTE 32) A I) J B L)) ((USE (DISJOINT-3 (B (ADD (QUOTE 32) B K)) (K (INDEX-N (QUOTE 0) K)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DISJOINT-0 . DISJOINT-9) (IMMEDIATE-DEPENDENTS0 NEG-NAT-RANGEP . DISJOINT-9) (IMMEDIATE-DEPENDENTS0 HEAD-LEMMA . DISJOINT-9) (IMMEDIATE-DEPENDENTS0 ADD-0 . DISJOINT-9) (IMMEDIATE-DEPENDENTS0 SUB-NEG . DISJOINT-9) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . DISJOINT-9) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-ADD-NEG . DISJOINT-9) (IMMEDIATE-DEPENDENTS0 ADD-COMMUTATIVITY . DISJOINT-9) (IMMEDIATE-DEPENDENTS0 DISJOINT-HEAD . DISJOINT-9) (IMMEDIATE-DEPENDENTS0 ADD-ASSOCIATIVITY . DISJOINT-9) (IMMEDIATE-DEPENDENTS0 DISJOINT-3 . DISJOINT-9) (IMMEDIATE-DEPENDENTS0 INDEX-N . DISJOINT-9) (IMMEDIATE-DEPENDENTS0 ADD . DISJOINT-9) (IMMEDIATE-DEPENDENTS0 DISJOINT . DISJOINT-9) (LEMMAS DISJOINT . DISJOINT-9))))) (PUT1-LST (QUOTE DISJOINT-8) (QUOTE (IDATE 1000402215024 IMMEDIATE-DEPENDENTS0 (DISJOINT-8~) EVENT (PROVE-LEMMA DISJOINT-8 (REWRITE) (IMPLIES (AND (DISJOINT A M (ADD (QUOTE 32) B K) N) (AND (IF (LESSP M J) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (IF (LESSP N (PLUS L (INDEX-N (QUOTE 0) K))) (QUOTE *1*FALSE) (QUOTE *1*TRUE)))) (DISJOINT A J B L)) ((USE (DISJOINT-1 (B (ADD (QUOTE 32) B K)) (K (INDEX-N (QUOTE 0) K)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DISJOINT-0 . DISJOINT-8) (IMMEDIATE-DEPENDENTS0 NEG-NAT-RANGEP . DISJOINT-8) (IMMEDIATE-DEPENDENTS0 HEAD-LEMMA . DISJOINT-8) (IMMEDIATE-DEPENDENTS0 ADD-0 . DISJOINT-8) (IMMEDIATE-DEPENDENTS0 SUB-NEG . DISJOINT-8) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . DISJOINT-8) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-ADD-NEG . DISJOINT-8) (IMMEDIATE-DEPENDENTS0 ADD-COMMUTATIVITY . DISJOINT-8) (IMMEDIATE-DEPENDENTS0 DISJOINT-HEAD . DISJOINT-8) (IMMEDIATE-DEPENDENTS0 ADD-ASSOCIATIVITY . DISJOINT-8) (IMMEDIATE-DEPENDENTS0 DISJOINT-1 . DISJOINT-8) (IMMEDIATE-DEPENDENTS0 INDEX-N . DISJOINT-8) (IMMEDIATE-DEPENDENTS0 ADD . DISJOINT-8) (IMMEDIATE-DEPENDENTS0 DISJOINT . DISJOINT-8) (LEMMAS DISJOINT . DISJOINT-8))))) (PUT1-LST (QUOTE DISJOINT-7) (QUOTE (IDATE 1000402215024 IMMEDIATE-DEPENDENTS0 (DISJOINT-7-UINT DISJOINT-7~) EVENT (PROVE-LEMMA DISJOINT-7 (REWRITE) (IMPLIES (AND (DISJOINT (ADD (QUOTE 32) A I) M B N) (AND (IF (LESSP M (PLUS J (INDEX-N I1 I))) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (IF (LESSP N (PLUS K L)) (QUOTE *1*FALSE) (QUOTE *1*TRUE)))) (DISJOINT (ADD (QUOTE 32) A I1) J (ADD (QUOTE 32) B K) L)) ((USE (DISJOINT-3 (A (ADD (QUOTE 32) A I)) (I (INDEX-N I1 I)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DISJOINT-0 . DISJOINT-7) (IMMEDIATE-DEPENDENTS0 SUB-NEG . DISJOINT-7) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . DISJOINT-7) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-ADD-NEG . DISJOINT-7) (IMMEDIATE-DEPENDENTS0 ADD-HEAD . DISJOINT-7) (IMMEDIATE-DEPENDENTS0 ADD-ASSOCIATIVITY . DISJOINT-7) (IMMEDIATE-DEPENDENTS0 DISJOINT-3 . DISJOINT-7) (IMMEDIATE-DEPENDENTS0 INDEX-N . DISJOINT-7) (IMMEDIATE-DEPENDENTS0 ADD . DISJOINT-7) (IMMEDIATE-DEPENDENTS0 DISJOINT . DISJOINT-7) (LEMMAS DISJOINT . DISJOINT-7))))) (PUT1-LST (QUOTE DISJOINT-6) (QUOTE (IDATE 1000402215024 IMMEDIATE-DEPENDENTS0 (DISJOINT-6-UINT DISJOINT-6~) EVENT (PROVE-LEMMA DISJOINT-6 (REWRITE) (IMPLIES (AND (DISJOINT (ADD (QUOTE 32) A I) M B N) (AND (IF (LESSP M (PLUS J (INDEX-N I1 I))) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (IF (LESSP N L) (QUOTE *1*FALSE) (QUOTE *1*TRUE)))) (DISJOINT (ADD (QUOTE 32) A I1) J B L)) ((USE (DISJOINT-2 (A (ADD (QUOTE 32) A I)) (I (INDEX-N I1 I)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DISJOINT-0 . DISJOINT-6) (IMMEDIATE-DEPENDENTS0 SUB-NEG . DISJOINT-6) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . DISJOINT-6) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-ADD-NEG . DISJOINT-6) (IMMEDIATE-DEPENDENTS0 ADD-HEAD . DISJOINT-6) (IMMEDIATE-DEPENDENTS0 ADD-ASSOCIATIVITY . DISJOINT-6) (IMMEDIATE-DEPENDENTS0 DISJOINT-2 . DISJOINT-6) (IMMEDIATE-DEPENDENTS0 INDEX-N . DISJOINT-6) (IMMEDIATE-DEPENDENTS0 ADD . DISJOINT-6) (IMMEDIATE-DEPENDENTS0 DISJOINT . DISJOINT-6) (LEMMAS DISJOINT . DISJOINT-6))))) (PUT1-LST (QUOTE DISJOINT-5) (QUOTE (IDATE 1000402215024 IMMEDIATE-DEPENDENTS0 (DISJOINT-5-UINT DISJOINT-5~) EVENT (PROVE-LEMMA DISJOINT-5 (REWRITE) (IMPLIES (AND (DISJOINT (ADD (QUOTE 32) A I) M B N) (AND (IF (LESSP M (PLUS J (INDEX-N (QUOTE 0) I))) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (IF (LESSP N (PLUS K L)) (QUOTE *1*FALSE) (QUOTE *1*TRUE)))) (DISJOINT A J (ADD (QUOTE 32) B K) L)) ((USE (DISJOINT-3 (A (ADD (QUOTE 32) A I)) (I (INDEX-N (QUOTE 0) I)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DISJOINT-0 . DISJOINT-5) (IMMEDIATE-DEPENDENTS0 NEG-NAT-RANGEP . DISJOINT-5) (IMMEDIATE-DEPENDENTS0 HEAD-LEMMA . DISJOINT-5) (IMMEDIATE-DEPENDENTS0 ADD-0 . DISJOINT-5) (IMMEDIATE-DEPENDENTS0 SUB-NEG . DISJOINT-5) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . DISJOINT-5) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-ADD-NEG . DISJOINT-5) (IMMEDIATE-DEPENDENTS0 ADD-COMMUTATIVITY . DISJOINT-5) (IMMEDIATE-DEPENDENTS0 DISJOINT-HEAD . DISJOINT-5) (IMMEDIATE-DEPENDENTS0 ADD-ASSOCIATIVITY . DISJOINT-5) (IMMEDIATE-DEPENDENTS0 DISJOINT-3 . DISJOINT-5) (IMMEDIATE-DEPENDENTS0 INDEX-N . DISJOINT-5) (IMMEDIATE-DEPENDENTS0 ADD . DISJOINT-5) (IMMEDIATE-DEPENDENTS0 DISJOINT . DISJOINT-5) (LEMMAS DISJOINT . DISJOINT-5))))) (PUT1-LST (QUOTE DISJOINT-4) (QUOTE (IDATE 1000402215024 IMMEDIATE-DEPENDENTS0 (DISJOINT-4~) EVENT (PROVE-LEMMA DISJOINT-4 (REWRITE) (IMPLIES (AND (DISJOINT (ADD (QUOTE 32) A I) M B N) (AND (IF (LESSP M (PLUS J (INDEX-N (QUOTE 0) I))) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (IF (LESSP N L) (QUOTE *1*FALSE) (QUOTE *1*TRUE)))) (DISJOINT A J B L)) ((USE (DISJOINT-2 (A (ADD (QUOTE 32) A I)) (I (INDEX-N (QUOTE 0) I)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DISJOINT-0 . DISJOINT-4) (IMMEDIATE-DEPENDENTS0 NEG-NAT-RANGEP . DISJOINT-4) (IMMEDIATE-DEPENDENTS0 HEAD-LEMMA . DISJOINT-4) (IMMEDIATE-DEPENDENTS0 ADD-0 . DISJOINT-4) (IMMEDIATE-DEPENDENTS0 SUB-NEG . DISJOINT-4) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . DISJOINT-4) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-ADD-NEG . DISJOINT-4) (IMMEDIATE-DEPENDENTS0 ADD-COMMUTATIVITY . DISJOINT-4) (IMMEDIATE-DEPENDENTS0 DISJOINT-HEAD . DISJOINT-4) (IMMEDIATE-DEPENDENTS0 ADD-ASSOCIATIVITY . DISJOINT-4) (IMMEDIATE-DEPENDENTS0 DISJOINT-2 . DISJOINT-4) (IMMEDIATE-DEPENDENTS0 INDEX-N . DISJOINT-4) (IMMEDIATE-DEPENDENTS0 ADD . DISJOINT-4) (IMMEDIATE-DEPENDENTS0 DISJOINT . DISJOINT-4) (LEMMAS DISJOINT . DISJOINT-4))))) (PUT1-LST (QUOTE DISJOINT-3) (QUOTE (IDATE 1000402215024 IMMEDIATE-DEPENDENTS0 (DISJOINT-3-UINT DISJOINT-3-INT DISJOINT-3~ DISJOINT-11 DISJOINT-9 DISJOINT-7 DISJOINT-5) EVENT (PROVE-LEMMA DISJOINT-3 (REWRITE) (IMPLIES (AND (DISJOINT A M B N) (AND (IF (LESSP M (PLUS I J)) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (IF (LESSP N (PLUS K L)) (QUOTE *1*FALSE) (QUOTE *1*TRUE)))) (DISJOINT (ADD (QUOTE 32) A I) J (ADD (QUOTE 32) B K) L))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DISJOINT-LA3 . DISJOINT-3) (IMMEDIATE-DEPENDENTS0 ADD . DISJOINT-3) (IMMEDIATE-DEPENDENTS0 DISJOINT . DISJOINT-3) (LEMMAS DISJOINT . DISJOINT-3))))) (PUT1-LST (QUOTE DISJOINT-2) (QUOTE (IDATE 1000402215024 IMMEDIATE-DEPENDENTS0 (DISJOINT-2-UINT DISJOINT-2-INT DISJOINT-2~ DISJOINT-6 DISJOINT-4) EVENT (PROVE-LEMMA DISJOINT-2 (REWRITE) (IMPLIES (AND (DISJOINT A M B N) (AND (IF (LESSP M (PLUS I J)) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (IF (LESSP N L) (QUOTE *1*FALSE) (QUOTE *1*TRUE)))) (DISJOINT (ADD (QUOTE 32) A I) J B L)) ((USE (DISJOINT-LA3 (K (QUOTE 0)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DISJOINT-0 . DISJOINT-2) (IMMEDIATE-DEPENDENTS0 DISJOINT-HEAD . DISJOINT-2) (IMMEDIATE-DEPENDENTS0 ADD-0 . DISJOINT-2) (IMMEDIATE-DEPENDENTS0 DISJOINT-LA3 . DISJOINT-2) (IMMEDIATE-DEPENDENTS0 ADD . DISJOINT-2) (IMMEDIATE-DEPENDENTS0 DISJOINT . DISJOINT-2) (LEMMAS DISJOINT . DISJOINT-2))))) (PUT1-LST (QUOTE DISJOINT-1) (QUOTE (IDATE 1000402215024 IMMEDIATE-DEPENDENTS0 (DISJOINT-1-UINT DISJOINT-1-INT READ-WRITEM-MEM WRITEM-ELSE-MEM-ILST WRITEM-ELSE-MEM-LST DISJOINT-3-ASL DISJOINT-1~ DISJOINT-10 DISJOINT-8) EVENT (PROVE-LEMMA DISJOINT-1 (REWRITE) (IMPLIES (AND (DISJOINT A M B N) (AND (IF (LESSP M J) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (IF (LESSP N (PLUS K L)) (QUOTE *1*FALSE) (QUOTE *1*TRUE)))) (DISJOINT A J (ADD (QUOTE 32) B K) L)) ((USE (DISJOINT-LA3 (I (QUOTE 0)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DISJOINT-0 . DISJOINT-1) (IMMEDIATE-DEPENDENTS0 DISJOINT-HEAD . DISJOINT-1) (IMMEDIATE-DEPENDENTS0 ADD-0 . DISJOINT-1) (IMMEDIATE-DEPENDENTS0 DISJOINT-LA3 . DISJOINT-1) (IMMEDIATE-DEPENDENTS0 ADD . DISJOINT-1) (IMMEDIATE-DEPENDENTS0 DISJOINT . DISJOINT-1) (LEMMAS DISJOINT . DISJOINT-1))))) (PUT1-LST (QUOTE DISJOINT-0) (QUOTE (IDATE 1000402215024 IMMEDIATE-DEPENDENTS0 (READM-WRITE-MEM READ-WRITEM-MEM WRITEM-ELSE-MEM-ILST DISJOINT-LEQ WRITE-ELSE-MEM-ILST WRITE-ELSE-MEM-LST DISJOINT-X-X DISJOINT-13~ DISJOINT-9~ DISJOINT-6~ DISJOINT-2~ DISJOINT-0~ DISJOINT-COMMUTATIVITY DISJOINT-15 DISJOINT-14 DISJOINT-13 DISJOINT-12 DISJOINT-11 DISJOINT-10 DISJOINT-9 DISJOINT-8 DISJOINT-7 DISJOINT-6 DISJOINT-5 DISJOINT-4 DISJOINT-2 DISJOINT-1) EVENT (PROVE-LEMMA DISJOINT-0 (REWRITE) (IMPLIES (AND (DISJOINT A M B N) (AND (IF (LESSP M J) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (IF (LESSP N L) (QUOTE *1*FALSE) (QUOTE *1*TRUE)))) (DISJOINT A J B L)) ((USE (DISJOINT-LA3 (I (QUOTE 0)) (K (QUOTE 0)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DISJOINT-HEAD . DISJOINT-0) (IMMEDIATE-DEPENDENTS0 ADD-0 . DISJOINT-0) (IMMEDIATE-DEPENDENTS0 DISJOINT-LA3 . DISJOINT-0) (IMMEDIATE-DEPENDENTS0 DISJOINT . DISJOINT-0) (LEMMAS DISJOINT . DISJOINT-0))))) (PUT1-LST (QUOTE DISJOINT-LA3) (QUOTE (IDATE 1000402215024 IMMEDIATE-DEPENDENTS0 (DISJOINT-LA3-OFF DISJOINT-3 DISJOINT-2 DISJOINT-1 DISJOINT-0) EVENT (PROVE-LEMMA DISJOINT-LA3 (REWRITE) (IMPLIES (AND (DISJOINT A M B N) (AND (IF (LESSP M (PLUS I J)) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (IF (LESSP N (PLUS K L)) (QUOTE *1*FALSE) (QUOTE *1*TRUE)))) (DISJOINT (ADD (QUOTE 32) A I) J (ADD (QUOTE 32) B K) L)) ((INDUCT (DISJOINT X J Y L)) (ENABLE ADD-PLUS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DISJOINT-LA2 . DISJOINT-LA3) (IMMEDIATE-DEPENDENTS0 ADD-ASSOCIATIVITY . DISJOINT-LA3) (IMMEDIATE-DEPENDENTS0 ADD-PLUS . DISJOINT-LA3) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . DISJOINT-LA3) (IMMEDIATE-DEPENDENTS0 ADD-NON-NUMBERP . DISJOINT-LA3) (IMMEDIATE-DEPENDENTS0 DISJOINT-HEAD . DISJOINT-LA3) (IMMEDIATE-DEPENDENTS0 ADD . DISJOINT-LA3) (IMMEDIATE-DEPENDENTS0 DISJOINT . DISJOINT-LA3) (LEMMAS DISJOINT . DISJOINT-LA3))))) (PUT1-LST (QUOTE DISJOINT-LA2) (QUOTE (IDATE 1000402215024 IMMEDIATE-DEPENDENTS0 (DISJOINT-LA2-OFF DISJOINT-LA3) EVENT (PROVE-LEMMA DISJOINT-LA2 (REWRITE) (IMPLIES (AND (DISJOINT A M B N) (AND (IF (LESSP M (PLUS I J)) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (LESSP K N))) (DISJOINT0 (ADD (QUOTE 32) A I) J (ADD (QUOTE 32) B K))) ((INDUCT (DISJOINT0 A J B)) (ENABLE ADD-PLUS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DISJOINT-LA1 . DISJOINT-LA2) (IMMEDIATE-DEPENDENTS0 ADD-ASSOCIATIVITY . DISJOINT-LA2) (IMMEDIATE-DEPENDENTS0 ADD-PLUS . DISJOINT-LA2) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . DISJOINT-LA2) (IMMEDIATE-DEPENDENTS0 ADD-NON-NUMBERP . DISJOINT-LA2) (IMMEDIATE-DEPENDENTS0 DISJOINT0-HEAD . DISJOINT-LA2) (IMMEDIATE-DEPENDENTS0 ADD . DISJOINT-LA2) (IMMEDIATE-DEPENDENTS0 DISJOINT0 . DISJOINT-LA2) (IMMEDIATE-DEPENDENTS0 DISJOINT . DISJOINT-LA2) (LEMMAS DISJOINT0 . DISJOINT-LA2))))) (PUT1-LST (QUOTE DISJOINT-LA1) (QUOTE (IDATE 1000402215024 IMMEDIATE-DEPENDENTS0 (DISJOINT-LA1-OFF DISJOINT-LA2) EVENT (PROVE-LEMMA DISJOINT-LA1 (REWRITE) (IMPLIES (AND (DISJOINT A M B N) (AND (LESSP I M) (LESSP J N))) (NOT (MOD32-EQ (ADD (QUOTE 32) A I) (ADD (QUOTE 32) B J)))) ((USE (DISJOINT0-LA0 (B (ADD (QUOTE 32) B J)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DISJOINT-LA0 . DISJOINT-LA1) (IMMEDIATE-DEPENDENTS0 ADD-NAT-RANGEP . DISJOINT-LA1) (IMMEDIATE-DEPENDENTS0 HEAD-LEMMA . DISJOINT-LA1) (IMMEDIATE-DEPENDENTS0 DISJOINT0-LA0 . DISJOINT-LA1) (IMMEDIATE-DEPENDENTS0 ADD . DISJOINT-LA1) (IMMEDIATE-DEPENDENTS0 MOD32-EQ . DISJOINT-LA1) (IMMEDIATE-DEPENDENTS0 DISJOINT . DISJOINT-LA1) (LEMMAS MOD32-EQ . DISJOINT-LA1))))) (PUT1-LST (QUOTE DISJOINT-LA0) (QUOTE (IDATE 1000402215024 IMMEDIATE-DEPENDENTS0 (DISJOINT-LA0-OFF DISJOINT-LA1) EVENT (PROVE-LEMMA DISJOINT-LA0 (REWRITE) (IMPLIES (AND (DISJOINT A M B N) (LESSP J N)) (DISJOINT0 A M (ADD (QUOTE 32) B J)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ADD-COMMUTATIVITY . DISJOINT-LA0) (IMMEDIATE-DEPENDENTS0 ADD-0 . DISJOINT-LA0) (IMMEDIATE-DEPENDENTS0 PLUS-ADD1 . DISJOINT-LA0) (IMMEDIATE-DEPENDENTS0 LESSP-OF-1 . DISJOINT-LA0) (IMMEDIATE-DEPENDENTS0 ADD-NON-NUMBERP . DISJOINT-LA0) (IMMEDIATE-DEPENDENTS0 DISJOINT0-HEAD . DISJOINT-LA0) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . DISJOINT-LA0) (IMMEDIATE-DEPENDENTS0 ADD . DISJOINT-LA0) (IMMEDIATE-DEPENDENTS0 DISJOINT0 . DISJOINT-LA0) (IMMEDIATE-DEPENDENTS0 DISJOINT . DISJOINT-LA0) (LEMMAS DISJOINT0 . DISJOINT-LA0))))) (PUT1-LST (QUOTE DISJOINT0-LA2) (QUOTE (IDATE 1000402215024 IMMEDIATE-DEPENDENTS0 (DISJOINT0-LA2-OFF) EVENT (PROVE-LEMMA DISJOINT0-LA2 (REWRITE) (IMPLIES (AND (DISJOINT0 A M B) (IF (LESSP M (PLUS I J)) (QUOTE *1*FALSE) (QUOTE *1*TRUE))) (DISJOINT0 (ADD (QUOTE 32) A I) J B)) ((INDUCT (DISJOINT0 A J B)) (ENABLE ADD-PLUS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DISJOINT0-LA1 . DISJOINT0-LA2) (IMMEDIATE-DEPENDENTS0 DISJOINT0-LA0 . DISJOINT0-LA2) (IMMEDIATE-DEPENDENTS0 ADD-ASSOCIATIVITY . DISJOINT0-LA2) (IMMEDIATE-DEPENDENTS0 ADD-PLUS . DISJOINT0-LA2) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . DISJOINT0-LA2) (IMMEDIATE-DEPENDENTS0 ADD-NON-NUMBERP . DISJOINT0-LA2) (IMMEDIATE-DEPENDENTS0 DISJOINT0-HEAD . DISJOINT0-LA2) (IMMEDIATE-DEPENDENTS0 ADD . DISJOINT0-LA2) (IMMEDIATE-DEPENDENTS0 DISJOINT0 . DISJOINT0-LA2) (LEMMAS DISJOINT0 . DISJOINT0-LA2))))) (PUT1-LST (QUOTE DISJOINT0-LA1) (QUOTE (IDATE 1000402215024 IMMEDIATE-DEPENDENTS0 (DISJOINT0-LA1-OFF DISJOINT0-LA2) EVENT (PROVE-LEMMA DISJOINT0-LA1 (REWRITE) (IMPLIES (AND (DISJOINT0 A M B) (LESSP I M)) (DISJOINT0 A I B))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DISJOINT0-LA0 . DISJOINT0-LA1) (IMMEDIATE-DEPENDENTS0 LESSP-OF-1 . DISJOINT0-LA1) (IMMEDIATE-DEPENDENTS0 HEAD-LEMMA . DISJOINT0-LA1) (IMMEDIATE-DEPENDENTS0 ADD-NAT-RANGEP . DISJOINT0-LA1) (IMMEDIATE-DEPENDENTS0 MOD32-EQ . DISJOINT0-LA1) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . DISJOINT0-LA1) (IMMEDIATE-DEPENDENTS0 DISJOINT0 . DISJOINT0-LA1) (LEMMAS DISJOINT0 . DISJOINT0-LA1))))) (PUT1-LST (QUOTE DISJOINT0-LA0) (QUOTE (IDATE 1000402215024 IMMEDIATE-DEPENDENTS0 (DISJOINT0-LA0-OFF DISJOINT-LA1 DISJOINT0-LA2 DISJOINT0-LA1) EVENT (PROVE-LEMMA DISJOINT0-LA0 (REWRITE) (IMPLIES (AND (DISJOINT0 A M B) (LESSP I M)) (NOT (MOD32-EQ (ADD (QUOTE 32) A I) B)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ADD-COMMUTATIVITY . DISJOINT0-LA0) (IMMEDIATE-DEPENDENTS0 ADD-0 . DISJOINT0-LA0) (IMMEDIATE-DEPENDENTS0 PLUS-ADD1 . DISJOINT0-LA0) (IMMEDIATE-DEPENDENTS0 LESSP-OF-1 . DISJOINT0-LA0) (IMMEDIATE-DEPENDENTS0 ADD-NON-NUMBERP . DISJOINT0-LA0) (IMMEDIATE-DEPENDENTS0 HEAD-HEAD . DISJOINT0-LA0) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . DISJOINT0-LA0) (IMMEDIATE-DEPENDENTS0 ADD-NAT-RANGEP . DISJOINT0-LA0) (IMMEDIATE-DEPENDENTS0 HEAD-LEMMA . DISJOINT0-LA0) (IMMEDIATE-DEPENDENTS0 ADD . DISJOINT0-LA0) (IMMEDIATE-DEPENDENTS0 MOD32-EQ . DISJOINT0-LA0) (IMMEDIATE-DEPENDENTS0 DISJOINT0 . DISJOINT0-LA0) (LEMMAS MOD32-EQ . DISJOINT0-LA0))))) (PUT1-LST (QUOTE DISJOINT-HEAD) (QUOTE (IDATE 1000402215024 IMMEDIATE-DEPENDENTS0 (DISJOINT-11~-ASL DISJOINT-11-ASL DISJOINT-9~-ASL DISJOINT-9-ASL DISJOINT-3~-ASL DISJOINT-3-ASL DISJOINT-2~-ASL DISJOINT-2-ASL DISJOINT-14 DISJOINT-12 DISJOINT-9 DISJOINT-8 DISJOINT-5 DISJOINT-4 DISJOINT-2 DISJOINT-1 DISJOINT-0 DISJOINT-LA3) EVENT (PROVE-LEMMA DISJOINT-HEAD (REWRITE) (AND (EQUAL (DISJOINT (HEAD X (QUOTE 32)) M Y N) (DISJOINT X M Y N)) (EQUAL (DISJOINT X M (HEAD Y (QUOTE 32)) N) (DISJOINT X M Y N)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ADD-HEAD . DISJOINT-HEAD) (IMMEDIATE-DEPENDENTS0 DISJOINT0-HEAD . DISJOINT-HEAD) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . DISJOINT-HEAD) (IMMEDIATE-DEPENDENTS0 HEAD . DISJOINT-HEAD) (IMMEDIATE-DEPENDENTS0 DISJOINT . DISJOINT-HEAD) (LEMMAS DISJOINT . DISJOINT-HEAD) (LEMMAS DISJOINT . DISJOINT-HEAD))))) (PUT1-LST (QUOTE DISJOINT0-HEAD) (QUOTE (IDATE 1000402215024 IMMEDIATE-DEPENDENTS0 (DISJOINT-DEDUCTION1 DISJOINT0-DEDUCTION2 DISJOINT0-DEDUCTION1 DISJOINT-LA2 DISJOINT-LA0 DISJOINT0-LA2 DISJOINT-HEAD) EVENT (PROVE-LEMMA DISJOINT0-HEAD (REWRITE) (AND (EQUAL (DISJOINT0 (HEAD X (QUOTE 32)) M Y) (DISJOINT0 X M Y)) (EQUAL (DISJOINT0 X M (HEAD Y (QUOTE 32))) (DISJOINT0 X M Y)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 HEAD-HEAD . DISJOINT0-HEAD) (IMMEDIATE-DEPENDENTS0 ADD-HEAD . DISJOINT0-HEAD) (IMMEDIATE-DEPENDENTS0 HEAD-LEMMA . DISJOINT0-HEAD) (IMMEDIATE-DEPENDENTS0 ADD-NAT-RANGEP . DISJOINT0-HEAD) (IMMEDIATE-DEPENDENTS0 MOD32-EQ . DISJOINT0-HEAD) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . DISJOINT0-HEAD) (IMMEDIATE-DEPENDENTS0 HEAD . DISJOINT0-HEAD) (IMMEDIATE-DEPENDENTS0 DISJOINT0 . DISJOINT0-HEAD) (LEMMAS DISJOINT0 . DISJOINT0-HEAD) (LEMMAS DISJOINT0 . DISJOINT0-HEAD))))) (PUT1-LST (QUOTE WRITE-MEM-MCODE-ADDRP) (QUOTE (IDATE 1000402215024 IMMEDIATE-DEPENDENTS0 (GCD-S-S0 WRITEM-MEM-MCODE-ADDRP) EVENT (PROVE-LEMMA WRITE-MEM-MCODE-ADDRP (REWRITE) (IMPLIES (AND (PC-READ-MEMP PC MEM (LEN LST)) (WRITE-MEMP X MEM N)) (EQUAL (MCODE-ADDRP PC (WRITE-MEM VALUE X MEM N) LST) (MCODE-ADDRP PC MEM LST))) ((INDUCT (MCODE-ADDRP PC MEM LST)) (USE (PC-BYTE-READ-WRITE-MEM (Y PC))) (DISABLE ADD-COMMUTATIVITY))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-ADD1 . WRITE-MEM-MCODE-ADDRP) (IMMEDIATE-DEPENDENTS0 PC-READ-MEMP-LA3 . WRITE-MEM-MCODE-ADDRP) (IMMEDIATE-DEPENDENTS0 PC-READ-MEMP-LA0 . WRITE-MEM-MCODE-ADDRP) (IMMEDIATE-DEPENDENTS0 PC-BYTE-READ-WRITE-MEM . WRITE-MEM-MCODE-ADDRP) (IMMEDIATE-DEPENDENTS0 WRITE-MEM . WRITE-MEM-MCODE-ADDRP) (IMMEDIATE-DEPENDENTS0 MCODE-ADDRP . WRITE-MEM-MCODE-ADDRP) (IMMEDIATE-DEPENDENTS0 WRITE-MEMP . WRITE-MEM-MCODE-ADDRP) (IMMEDIATE-DEPENDENTS0 LEN . WRITE-MEM-MCODE-ADDRP) (IMMEDIATE-DEPENDENTS0 PC-READ-MEMP . WRITE-MEM-MCODE-ADDRP) (LEMMAS MCODE-ADDRP . WRITE-MEM-MCODE-ADDRP))))) (PUT1-LST (QUOTE BYTE-WRITE-MCODE-ADDRP) (QUOTE (IDATE 1000402215023 EVENT (PROVE-LEMMA BYTE-WRITE-MCODE-ADDRP (REWRITE) (IMPLIES (AND (PC-READ-MEMP PC MEM (LEN LST)) (BYTE-WRITEP X MEM)) (EQUAL (MCODE-ADDRP PC (BYTE-WRITE VALUE X MEM) LST) (MCODE-ADDRP PC MEM LST))) ((INDUCT (MCODE-ADDRP PC MEM LST)) (USE (PC-BYTE-READ-WRITE (Y PC))) (DISABLE ADD-COMMUTATIVITY))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-ADD1 . BYTE-WRITE-MCODE-ADDRP) (IMMEDIATE-DEPENDENTS0 PC-READ-MEMP-LA3 . BYTE-WRITE-MCODE-ADDRP) (IMMEDIATE-DEPENDENTS0 PC-READ-MEMP-LA0 . BYTE-WRITE-MCODE-ADDRP) (IMMEDIATE-DEPENDENTS0 PC-BYTE-READ-WRITE . BYTE-WRITE-MCODE-ADDRP) (IMMEDIATE-DEPENDENTS0 BYTE-WRITE . BYTE-WRITE-MCODE-ADDRP) (IMMEDIATE-DEPENDENTS0 MCODE-ADDRP . BYTE-WRITE-MCODE-ADDRP) (IMMEDIATE-DEPENDENTS0 BYTE-WRITEP . BYTE-WRITE-MCODE-ADDRP) (IMMEDIATE-DEPENDENTS0 LEN . BYTE-WRITE-MCODE-ADDRP) (IMMEDIATE-DEPENDENTS0 PC-READ-MEMP . BYTE-WRITE-MCODE-ADDRP) (LEMMAS MCODE-ADDRP . BYTE-WRITE-MCODE-ADDRP))))) (PUT1-LST (QUOTE READ->PC-READ-MEM-OFF) (QUOTE (IDATE 1000402215023 EVENT (TOGGLE READ->PC-READ-MEM-OFF READ->PC-READ-MEM T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 READ->PC-READ-MEM . READ->PC-READ-MEM-OFF) (DISABLED-LEMMAS NIL READ->PC-READ-MEM READ->PC-READ-MEM-OFF . T))))) (PUT1-LST (QUOTE READ-MEM-MCODE3) (QUOTE (IDATE 1000402215023 EVENT (PROVE-LEMMA READ-MEM-MCODE3 (REWRITE) (IMPLIES (AND (MCODE-ADDRP (ADD (QUOTE 32) ADDR I) MEM LST) (AND (IF (LESSP (LEN LST) (PLUS (INDEX-N J I) K)) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (LST-NUMBERP (INDEX-N J I) LST K))) (EQUAL (READ-MEM (ADD (QUOTE 32) ADDR J) MEM K) (READ-LST (INDEX-N J I) LST K)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUB-NEG . READ-MEM-MCODE3) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . READ-MEM-MCODE3) (IMMEDIATE-DEPENDENTS0 PC-READ-MEM-MCODE3 . READ-MEM-MCODE3) (IMMEDIATE-DEPENDENTS0 READ->PC-READ-MEM . READ-MEM-MCODE3) (IMMEDIATE-DEPENDENTS0 READ-LST . READ-MEM-MCODE3) (IMMEDIATE-DEPENDENTS0 READ-MEM . READ-MEM-MCODE3) (IMMEDIATE-DEPENDENTS0 LST-NUMBERP . READ-MEM-MCODE3) (IMMEDIATE-DEPENDENTS0 INDEX-N . READ-MEM-MCODE3) (IMMEDIATE-DEPENDENTS0 LEN . READ-MEM-MCODE3) (IMMEDIATE-DEPENDENTS0 ADD . READ-MEM-MCODE3) (IMMEDIATE-DEPENDENTS0 MCODE-ADDRP . READ-MEM-MCODE3) (LEMMAS READ-MEM . READ-MEM-MCODE3))))) (PUT1-LST (QUOTE READ-MEM-MCODE2) (QUOTE (IDATE 1000402215023 EVENT (PROVE-LEMMA READ-MEM-MCODE2 (REWRITE) (IMPLIES (AND (MCODE-ADDRP (ADD (QUOTE 32) ADDR I) MEM LST) (AND (IF (LESSP (LEN LST) (PLUS (INDEX-N (QUOTE 0) I) K)) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (LST-NUMBERP (INDEX-N (QUOTE 0) I) LST K))) (EQUAL (READ-MEM ADDR MEM K) (READ-LST (INDEX-N (QUOTE 0) I) LST K)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NEG-NAT-RANGEP . READ-MEM-MCODE2) (IMMEDIATE-DEPENDENTS0 HEAD-LEMMA . READ-MEM-MCODE2) (IMMEDIATE-DEPENDENTS0 ADD-0 . READ-MEM-MCODE2) (IMMEDIATE-DEPENDENTS0 SUB-NEG . READ-MEM-MCODE2) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . READ-MEM-MCODE2) (IMMEDIATE-DEPENDENTS0 PC-READ-MEM-MCODE2 . READ-MEM-MCODE2) (IMMEDIATE-DEPENDENTS0 READ->PC-READ-MEM . READ-MEM-MCODE2) (IMMEDIATE-DEPENDENTS0 READ-LST . READ-MEM-MCODE2) (IMMEDIATE-DEPENDENTS0 READ-MEM . READ-MEM-MCODE2) (IMMEDIATE-DEPENDENTS0 LST-NUMBERP . READ-MEM-MCODE2) (IMMEDIATE-DEPENDENTS0 INDEX-N . READ-MEM-MCODE2) (IMMEDIATE-DEPENDENTS0 LEN . READ-MEM-MCODE2) (IMMEDIATE-DEPENDENTS0 ADD . READ-MEM-MCODE2) (IMMEDIATE-DEPENDENTS0 MCODE-ADDRP . READ-MEM-MCODE2) (LEMMAS READ-MEM . READ-MEM-MCODE2))))) (PUT1-LST (QUOTE READ-MEM-MCODE1-INT) (QUOTE (IDATE 1000402215023 EVENT (PROVE-LEMMA READ-MEM-MCODE1-INT (REWRITE) (IMPLIES (AND (MCODE-ADDRP ADDR MEM LST) (AND (IF (LESSP (LEN LST) (PLUS (NAT-TO-INT I (QUOTE 32)) J)) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (AND (NUMBERP (NAT-TO-INT I (QUOTE 32))) (LST-NUMBERP (NAT-TO-INT I (QUOTE 32)) LST J)))) (EQUAL (READ-MEM (ADD (QUOTE 32) ADDR I) MEM J) (READ-LST (NAT-TO-INT I (QUOTE 32)) LST J))) ((ENABLE NAT-TO-INT))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PC-READ-MEM-MCODE1 . READ-MEM-MCODE1-INT) (IMMEDIATE-DEPENDENTS0 EXP . READ-MEM-MCODE1-INT) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . READ-MEM-MCODE1-INT) (IMMEDIATE-DEPENDENTS0 ADD-NON-NUMBERP . READ-MEM-MCODE1-INT) (IMMEDIATE-DEPENDENTS0 PC-READ-MEM-MCODE0 . READ-MEM-MCODE1-INT) (IMMEDIATE-DEPENDENTS0 HEAD-PC-READ-MEM . READ-MEM-MCODE1-INT) (IMMEDIATE-DEPENDENTS0 READ->PC-READ-MEM . READ-MEM-MCODE1-INT) (IMMEDIATE-DEPENDENTS0 READ-LST . READ-MEM-MCODE1-INT) (IMMEDIATE-DEPENDENTS0 ADD . READ-MEM-MCODE1-INT) (IMMEDIATE-DEPENDENTS0 READ-MEM . READ-MEM-MCODE1-INT) (IMMEDIATE-DEPENDENTS0 LST-NUMBERP . READ-MEM-MCODE1-INT) (IMMEDIATE-DEPENDENTS0 NAT-TO-INT . READ-MEM-MCODE1-INT) (IMMEDIATE-DEPENDENTS0 LEN . READ-MEM-MCODE1-INT) (IMMEDIATE-DEPENDENTS0 MCODE-ADDRP . READ-MEM-MCODE1-INT) (LEMMAS READ-MEM . READ-MEM-MCODE1-INT))))) (PUT1-LST (QUOTE READ->PC-READ-MEM) (QUOTE (IDATE 1000402215023 IMMEDIATE-DEPENDENTS0 (STEPN-READ-MEM READ->PC-READ-MEM-OFF READ-MEM-MCODE3 READ-MEM-MCODE2 READ-MEM-MCODE1-INT) EVENT (PROVE-LEMMA READ->PC-READ-MEM (REWRITE) (EQUAL (READ-MEM X MEM K) (PC-READ-MEM X MEM K)) ((ENABLE READ-MEM PC-READ-MEM PC-BYTE-READ BYTE-READ PC-READ))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B . READ->PC-READ-MEM) (IMMEDIATE-DEPENDENTS0 BYTE-READ . READ->PC-READ-MEM) (IMMEDIATE-DEPENDENTS0 PC-READ . READ->PC-READ-MEM) (IMMEDIATE-DEPENDENTS0 PC-BYTE-READ . READ->PC-READ-MEM) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . READ->PC-READ-MEM) (IMMEDIATE-DEPENDENTS0 PC-READ-MEM . READ->PC-READ-MEM) (IMMEDIATE-DEPENDENTS0 READ-MEM . READ->PC-READ-MEM) (LEMMAS READ-MEM . READ->PC-READ-MEM))))) (PUT1-LST (QUOTE PC-READ-MEM-MCODE3) (QUOTE (IDATE 1000402215023 IMMEDIATE-DEPENDENTS0 (GCD-S0-S0-RFILE-2 GCD-S0-S0-RFILE-1 GCD-S0-S0-2 GCD-S0-S0-1 GCD-S0-SN-BASE-RFILE-2 GCD-S0-SN-BASE-2 GCD-S0-SN-BASE-RFILE-1 GCD-S0-SN-BASE-1 READ-MEM-MCODE3) EVENT (PROVE-LEMMA PC-READ-MEM-MCODE3 (REWRITE) (IMPLIES (AND (MCODE-ADDRP (ADD (QUOTE 32) ADDR I) MEM LST) (AND (IF (LESSP (LEN LST) (PLUS (INDEX-N J I) K)) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (LST-NUMBERP (INDEX-N J I) LST K))) (EQUAL (PC-READ-MEM (ADD (QUOTE 32) ADDR J) MEM K) (READ-LST (INDEX-N J I) LST K))) ((USE (PC-READ-MEM-MCODE1 (ADDR (ADD (QUOTE 32) ADDR I)) (I (INDEX-N J I)) (J K))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUB-NEG . PC-READ-MEM-MCODE3) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . PC-READ-MEM-MCODE3) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-ADD-NEG . PC-READ-MEM-MCODE3) (IMMEDIATE-DEPENDENTS0 ADD-HEAD . PC-READ-MEM-MCODE3) (IMMEDIATE-DEPENDENTS0 ADD-ASSOCIATIVITY . PC-READ-MEM-MCODE3) (IMMEDIATE-DEPENDENTS0 PC-READ-MEM-MCODE1 . PC-READ-MEM-MCODE3) (IMMEDIATE-DEPENDENTS0 READ-LST . PC-READ-MEM-MCODE3) (IMMEDIATE-DEPENDENTS0 PC-READ-MEM . PC-READ-MEM-MCODE3) (IMMEDIATE-DEPENDENTS0 LST-NUMBERP . PC-READ-MEM-MCODE3) (IMMEDIATE-DEPENDENTS0 INDEX-N . PC-READ-MEM-MCODE3) (IMMEDIATE-DEPENDENTS0 LEN . PC-READ-MEM-MCODE3) (IMMEDIATE-DEPENDENTS0 ADD . PC-READ-MEM-MCODE3) (IMMEDIATE-DEPENDENTS0 MCODE-ADDRP . PC-READ-MEM-MCODE3) (LEMMAS PC-READ-MEM . PC-READ-MEM-MCODE3))))) (PUT1-LST (QUOTE PC-READ-MEM-MCODE2) (QUOTE (IDATE 1000402215023 IMMEDIATE-DEPENDENTS0 (GCD-S0-S0-RFILE-2 GCD-S0-S0-RFILE-1 GCD-S0-S0-2 GCD-S0-S0-1 GCD-S0-SN-BASE-RFILE-2 GCD-S0-SN-BASE-2 GCD-S0-SN-BASE-RFILE-1 GCD-S0-SN-BASE-1 READ-MEM-MCODE2) EVENT (PROVE-LEMMA PC-READ-MEM-MCODE2 (REWRITE) (IMPLIES (AND (MCODE-ADDRP (ADD (QUOTE 32) ADDR I) MEM LST) (AND (IF (LESSP (LEN LST) (PLUS (INDEX-N (QUOTE 0) I) K)) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (LST-NUMBERP (INDEX-N (QUOTE 0) I) LST K))) (EQUAL (PC-READ-MEM ADDR MEM K) (READ-LST (INDEX-N (QUOTE 0) I) LST K))) ((USE (PC-READ-MEM-MCODE1 (ADDR (ADD (QUOTE 32) ADDR I)) (I (INDEX-N (QUOTE 0) I)) (J K))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NEG-NAT-RANGEP . PC-READ-MEM-MCODE2) (IMMEDIATE-DEPENDENTS0 HEAD-LEMMA . PC-READ-MEM-MCODE2) (IMMEDIATE-DEPENDENTS0 ADD-0 . PC-READ-MEM-MCODE2) (IMMEDIATE-DEPENDENTS0 SUB-NEG . PC-READ-MEM-MCODE2) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . PC-READ-MEM-MCODE2) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-ADD-NEG . PC-READ-MEM-MCODE2) (IMMEDIATE-DEPENDENTS0 ADD-COMMUTATIVITY . PC-READ-MEM-MCODE2) (IMMEDIATE-DEPENDENTS0 HEAD-PC-READ-MEM . PC-READ-MEM-MCODE2) (IMMEDIATE-DEPENDENTS0 ADD-ASSOCIATIVITY . PC-READ-MEM-MCODE2) (IMMEDIATE-DEPENDENTS0 PC-READ-MEM-MCODE1 . PC-READ-MEM-MCODE2) (IMMEDIATE-DEPENDENTS0 READ-LST . PC-READ-MEM-MCODE2) (IMMEDIATE-DEPENDENTS0 PC-READ-MEM . PC-READ-MEM-MCODE2) (IMMEDIATE-DEPENDENTS0 LST-NUMBERP . PC-READ-MEM-MCODE2) (IMMEDIATE-DEPENDENTS0 INDEX-N . PC-READ-MEM-MCODE2) (IMMEDIATE-DEPENDENTS0 LEN . PC-READ-MEM-MCODE2) (IMMEDIATE-DEPENDENTS0 ADD . PC-READ-MEM-MCODE2) (IMMEDIATE-DEPENDENTS0 MCODE-ADDRP . PC-READ-MEM-MCODE2) (LEMMAS PC-READ-MEM . PC-READ-MEM-MCODE2))))) (PUT1-LST (QUOTE LST-NUMBERP-OFF) (QUOTE (IDATE 1000402215023 EVENT (TOGGLE LST-NUMBERP-OFF LST-NUMBERP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LST-NUMBERP . LST-NUMBERP-OFF) (DISABLED-LEMMAS NIL LST-NUMBERP LST-NUMBERP-OFF . T))))) (PUT1-LST (QUOTE READ-LST-OFF) (QUOTE (IDATE 1000402215023 EVENT (TOGGLE READ-LST-OFF READ-LST T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 READ-LST . READ-LST-OFF) (DISABLED-LEMMAS NIL READ-LST READ-LST-OFF . T))))) (PUT1-LST (QUOTE PC-READ-MEM-MCODE1) (QUOTE (IDATE 1000402215023 IMMEDIATE-DEPENDENTS0 (GCD-S-S0-MEM GCD-S-S0-RFILE GCD-S-S0 READ-MEM-MCODE1-INT PC-READ-MEM-MCODE3 PC-READ-MEM-MCODE2) EVENT (PROVE-LEMMA PC-READ-MEM-MCODE1 (REWRITE) (IMPLIES (AND (MCODE-ADDRP ADDR MEM LST) (AND (IF (LESSP (LEN LST) (PLUS I J)) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (LST-NUMBERP I LST J))) (EQUAL (PC-READ-MEM (ADD (QUOTE 32) ADDR I) MEM J) (READ-LST I LST J))) ((ENABLE ADD-PLUS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B . PC-READ-MEM-MCODE1) (IMMEDIATE-DEPENDENTS0 ADD-PLUS . PC-READ-MEM-MCODE1) (IMMEDIATE-DEPENDENTS0 ADD-ASSOCIATIVITY . PC-READ-MEM-MCODE1) (IMMEDIATE-DEPENDENTS0 PC-BYTE-READ-MCODE1 . PC-READ-MEM-MCODE1) (IMMEDIATE-DEPENDENTS0 GET-NTH-TAIL-LST . PC-READ-MEM-MCODE1) (IMMEDIATE-DEPENDENTS0 LESSP-OF-1 . PC-READ-MEM-MCODE1) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . PC-READ-MEM-MCODE1) (IMMEDIATE-DEPENDENTS0 TAIL-LST . PC-READ-MEM-MCODE1) (IMMEDIATE-DEPENDENTS0 LST-NUMBERP0 . PC-READ-MEM-MCODE1) (IMMEDIATE-DEPENDENTS0 ADD-NON-NUMBERP . PC-READ-MEM-MCODE1) (IMMEDIATE-DEPENDENTS0 READ-LST0 . PC-READ-MEM-MCODE1) (IMMEDIATE-DEPENDENTS0 PC-READ-MEM-MCODE0 . PC-READ-MEM-MCODE1) (IMMEDIATE-DEPENDENTS0 HEAD-PC-READ-MEM . PC-READ-MEM-MCODE1) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . PC-READ-MEM-MCODE1) (IMMEDIATE-DEPENDENTS0 READ-LST . PC-READ-MEM-MCODE1) (IMMEDIATE-DEPENDENTS0 ADD . PC-READ-MEM-MCODE1) (IMMEDIATE-DEPENDENTS0 PC-READ-MEM . PC-READ-MEM-MCODE1) (IMMEDIATE-DEPENDENTS0 LST-NUMBERP . PC-READ-MEM-MCODE1) (IMMEDIATE-DEPENDENTS0 LEN . PC-READ-MEM-MCODE1) (IMMEDIATE-DEPENDENTS0 MCODE-ADDRP . PC-READ-MEM-MCODE1) (LEMMAS PC-READ-MEM . PC-READ-MEM-MCODE1))))) (PUT1-LST (QUOTE PC-READ-MEM-MCODE0) (QUOTE (IDATE 1000402215023 IMMEDIATE-DEPENDENTS0 (GCD-S-S0-MEM GCD-S-S0-RFILE GCD-S-S0 READ-MEM-MCODE1-INT PC-READ-MEM-MCODE1) EVENT (PROVE-LEMMA PC-READ-MEM-MCODE0 (REWRITE) (IMPLIES (AND (MCODE-ADDRP ADDR MEM LST) (AND (IF (LESSP (LEN LST) J) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (LST-NUMBERP (QUOTE 0) LST J))) (EQUAL (PC-READ-MEM ADDR MEM J) (READ-LST (QUOTE 0) LST J)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B . PC-READ-MEM-MCODE0) (IMMEDIATE-DEPENDENTS0 PC-BYTE-READ-MCODE1 . PC-READ-MEM-MCODE0) (IMMEDIATE-DEPENDENTS0 LESSP-OF-1 . PC-READ-MEM-MCODE0) (IMMEDIATE-DEPENDENTS0 LST-NUMBERP0 . PC-READ-MEM-MCODE0) (IMMEDIATE-DEPENDENTS0 READ-LST0 . PC-READ-MEM-MCODE0) (IMMEDIATE-DEPENDENTS0 TAIL-LST . PC-READ-MEM-MCODE0) (IMMEDIATE-DEPENDENTS0 READ-LST . PC-READ-MEM-MCODE0) (IMMEDIATE-DEPENDENTS0 PC-READ-MEM . PC-READ-MEM-MCODE0) (IMMEDIATE-DEPENDENTS0 LST-NUMBERP . PC-READ-MEM-MCODE0) (IMMEDIATE-DEPENDENTS0 LEN . PC-READ-MEM-MCODE0) (IMMEDIATE-DEPENDENTS0 MCODE-ADDRP . PC-READ-MEM-MCODE0) (LEMMAS PC-READ-MEM . PC-READ-MEM-MCODE0))))) (PUT1-LST (QUOTE GET-NTH-TAIL-LST) (QUOTE (IDATE 1000402215023 IMMEDIATE-DEPENDENTS0 (PC-READ-MEM-MCODE1) EVENT (PROVE-LEMMA GET-NTH-TAIL-LST (REWRITE) (EQUAL (GET-NTH N (TAIL-LST X M)) (GET-NTH (PLUS M N) X))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . GET-NTH-TAIL-LST) (IMMEDIATE-DEPENDENTS0 TAIL-LST . GET-NTH-TAIL-LST) (IMMEDIATE-DEPENDENTS0 GET-NTH . GET-NTH-TAIL-LST) (LEMMAS GET-NTH . GET-NTH-TAIL-LST))))) (PUT1-LST (QUOTE *1*READ-LST) (QUOTE (MAIN-EVENT READ-LST))) (PUT1-LST (QUOTE READ-LST) (QUOTE (TYPE-PRESCRIPTION-LST ((READ-LST 4 NIL NIL NIL)) TOTALP-LST ((READ-LST . T)) SDEFN (LAMBDA (M LST N) (READ-LST0 (TAIL-LST LST M) N)) LISP-CODE *1*READ-LST SUBRP *1*FALSE LEVEL-NO 4 IDATE 1000402215023 SATELLITES (*1*READ-LST) IMMEDIATE-DEPENDENTS0 (GCD-S0-S0-RFILE-2 GCD-S0-S0-RFILE-1 GCD-S0-S0-2 GCD-S0-S0-1 GCD-S0-SN-BASE-RFILE-2 GCD-S0-SN-BASE-2 GCD-S0-SN-BASE-RFILE-1 GCD-S0-SN-BASE-1 GCD-S-S0-MEM GCD-S-S0-RFILE GCD-S-S0 READ-MEM-MCODE3 READ-MEM-MCODE2 READ-MEM-MCODE1-INT PC-READ-MEM-MCODE3 PC-READ-MEM-MCODE2 READ-LST-OFF PC-READ-MEM-MCODE1 PC-READ-MEM-MCODE0) EVENT (DEFN READ-LST (M LST N) (READ-LST0 (TAIL-LST LST M) N)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TAIL-LST . READ-LST) (IMMEDIATE-DEPENDENTS0 READ-LST0 . READ-LST) (DCELL . *1*READ-LST))))) (PUT1-LST (QUOTE *1*LST-NUMBERP) (QUOTE (MAIN-EVENT LST-NUMBERP))) (PUT1-LST (QUOTE LST-NUMBERP) (QUOTE (TYPE-PRESCRIPTION-LST ((LST-NUMBERP 7 NIL NIL NIL)) TOTALP-LST ((LST-NUMBERP . T)) SDEFN (LAMBDA (M LST N) (LST-NUMBERP0 (TAIL-LST LST M) N)) LISP-CODE *1*LST-NUMBERP SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402215023 SATELLITES (*1*LST-NUMBERP) IMMEDIATE-DEPENDENTS0 (GCD-S0-S0-RFILE-2 GCD-S0-S0-RFILE-1 GCD-S0-S0-2 GCD-S0-S0-1 GCD-S0-SN-BASE-RFILE-2 GCD-S0-SN-BASE-2 GCD-S0-SN-BASE-RFILE-1 GCD-S0-SN-BASE-1 GCD-S-S0-MEM GCD-S-S0-RFILE GCD-S-S0 READ-MEM-MCODE3 READ-MEM-MCODE2 READ-MEM-MCODE1-INT PC-READ-MEM-MCODE3 PC-READ-MEM-MCODE2 LST-NUMBERP-OFF PC-READ-MEM-MCODE1 PC-READ-MEM-MCODE0) EVENT (DEFN LST-NUMBERP (M LST N) (LST-NUMBERP0 (TAIL-LST LST M) N)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TAIL-LST . LST-NUMBERP) (IMMEDIATE-DEPENDENTS0 LST-NUMBERP0 . LST-NUMBERP) (DCELL . *1*LST-NUMBERP))))) (PUT1-LST (QUOTE *1*TAIL-LST) (QUOTE (MAIN-EVENT TAIL-LST))) (PUT1-LST (QUOTE TAIL-LST) (QUOTE (TYPE-PRESCRIPTION-LST ((TAIL-LST -1 T NIL)) TOTALP-LST ((TAIL-LST . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE) SDEFN (LAMBDA (LST N) (IF (EQUAL N (QUOTE 0)) LST (IF (NUMBERP N) (TAIL-LST (CDR LST) (SUB1 N)) LST))) LISP-CODE *1*TAIL-LST SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((ZEROP N)) NIL) (TESTS-AND-CASES ((NOT (ZEROP N))) (((CDR LST) (SUB1 N))))) LEVEL-NO 1 JUSTIFICATIONS ((JUSTIFICATION (N) (COUNT N) LESSP (ZEROP COUNT-NUMBERP LESSP-SUB1))) IDATE 1000402215023 CONTROLLER-POCKETS (2) SATELLITES (*1*TAIL-LST) IMMEDIATE-DEPENDENTS0 (PC-READ-MEM-MCODE1 PC-READ-MEM-MCODE0 GET-NTH-TAIL-LST READ-LST LST-NUMBERP) EVENT (DEFN TAIL-LST (LST N) (IF (ZEROP N) LST (TAIL-LST (CDR LST) (SUB1 N)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . TAIL-LST) (DCELL . *1*TAIL-LST))))) (PUT1-LST (QUOTE *1*READ-LST0) (QUOTE (MAIN-EVENT READ-LST0))) (PUT1-LST (QUOTE READ-LST0) (QUOTE (TYPE-PRESCRIPTION-LST ((READ-LST0 4 NIL NIL)) TOTALP-LST ((READ-LST0 . T)) QUICK-BLOCK-INFO (UNCHANGING SELF-REFLEXIVE) SDEFN (LAMBDA (LST N) (IF (EQUAL N (QUOTE 0)) (QUOTE 0) (IF (NUMBERP N) (APP (B) (GET-NTH (SUB1 N) LST) (READ-LST0 LST (SUB1 N))) (QUOTE 0)))) LISP-CODE *1*READ-LST0 SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((ZEROP N)) NIL) (TESTS-AND-CASES ((NOT (ZEROP N))) ((LST (SUB1 N))))) LEVEL-NO 4 JUSTIFICATIONS ((JUSTIFICATION (N) (COUNT N) LESSP (ZEROP COUNT-NUMBERP LESSP-SUB1))) IDATE 1000402215023 CONTROLLER-POCKETS (2) SATELLITES (*1*READ-LST0) IMMEDIATE-DEPENDENTS0 (PC-READ-MEM-MCODE1 PC-READ-MEM-MCODE0 READ-LST) EVENT (DEFN READ-LST0 (LST N) (IF (ZEROP N) (QUOTE 0) (APP (B) (GET-NTH (SUB1 N) LST) (READ-LST0 LST (SUB1 N))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 GET-NTH . READ-LST0) (IMMEDIATE-DEPENDENTS0 B . READ-LST0) (IMMEDIATE-DEPENDENTS0 APP . READ-LST0) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . READ-LST0) (DCELL . *1*READ-LST0))))) (PUT1-LST (QUOTE *1*LST-NUMBERP0) (QUOTE (MAIN-EVENT LST-NUMBERP0))) (PUT1-LST (QUOTE LST-NUMBERP0) (QUOTE (TYPE-PRESCRIPTION-LST ((LST-NUMBERP0 7 NIL NIL)) TOTALP-LST ((LST-NUMBERP0 . T)) QUICK-BLOCK-INFO (UNCHANGING SELF-REFLEXIVE) SDEFN (LAMBDA (LST N) (IF (EQUAL N (QUOTE 0)) (QUOTE 0) (IF (NUMBERP N) (IF (NUMBERP (GET-NTH (SUB1 N) LST)) (IF (LST-NUMBERP0 LST (SUB1 N)) (QUOTE *1*TRUE) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE 0)))) LISP-CODE *1*LST-NUMBERP0 SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((ZEROP N)) NIL) (TESTS-AND-CASES ((NOT (ZEROP N))) ((LST (SUB1 N))))) LEVEL-NO 2 JUSTIFICATIONS ((JUSTIFICATION (N) (COUNT N) LESSP (ZEROP COUNT-NUMBERP LESSP-SUB1))) IDATE 1000402215023 CONTROLLER-POCKETS (2) SATELLITES (*1*LST-NUMBERP0) IMMEDIATE-DEPENDENTS0 (PC-READ-MEM-MCODE1 PC-READ-MEM-MCODE0 LST-NUMBERP) EVENT (DEFN LST-NUMBERP0 (LST N) (IF (ZEROP N) (QUOTE 0) (AND (NUMBERP (GET-NTH (SUB1 N) LST)) (LST-NUMBERP0 LST (SUB1 N))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 GET-NTH . LST-NUMBERP0) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . LST-NUMBERP0) (DCELL . *1*LST-NUMBERP0))))) (PUT1-LST (QUOTE PC-BYTE-READ-MCODE3) (QUOTE (IDATE 1000402215023 EVENT (PROVE-LEMMA PC-BYTE-READ-MCODE3 (REWRITE) (IMPLIES (AND (MCODE-ADDRP (ADD (QUOTE 32) ADDR I) MEM LST) (AND (LESSP (INDEX-N J I) (LEN LST)) (NOT (EQUAL (GET-NTH (INDEX-N J I) LST) (QUOTE -1))))) (EQUAL (PC-BYTE-READ (ADD (QUOTE 32) ADDR J) MEM) (GET-NTH (INDEX-N J I) LST))) ((USE (PC-BYTE-READ-MCODE1 (ADDR (ADD (QUOTE 32) ADDR I)) (I (INDEX-N J I)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUB-NEG . PC-BYTE-READ-MCODE3) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-ADD-NEG . PC-BYTE-READ-MCODE3) (IMMEDIATE-DEPENDENTS0 ADD-HEAD . PC-BYTE-READ-MCODE3) (IMMEDIATE-DEPENDENTS0 ADD-ASSOCIATIVITY . PC-BYTE-READ-MCODE3) (IMMEDIATE-DEPENDENTS0 PC-BYTE-READ-MCODE1 . PC-BYTE-READ-MCODE3) (IMMEDIATE-DEPENDENTS0 PC-BYTE-READ . PC-BYTE-READ-MCODE3) (IMMEDIATE-DEPENDENTS0 GET-NTH . PC-BYTE-READ-MCODE3) (IMMEDIATE-DEPENDENTS0 LEN . PC-BYTE-READ-MCODE3) (IMMEDIATE-DEPENDENTS0 INDEX-N . PC-BYTE-READ-MCODE3) (IMMEDIATE-DEPENDENTS0 ADD . PC-BYTE-READ-MCODE3) (IMMEDIATE-DEPENDENTS0 MCODE-ADDRP . PC-BYTE-READ-MCODE3) (LEMMAS PC-BYTE-READ . PC-BYTE-READ-MCODE3))))) (PUT1-LST (QUOTE PC-BYTE-READ-MCODE2) (QUOTE (IDATE 1000402215023 EVENT (PROVE-LEMMA PC-BYTE-READ-MCODE2 (REWRITE) (IMPLIES (AND (MCODE-ADDRP (ADD (QUOTE 32) ADDR I) MEM LST) (AND (LESSP (INDEX-N (QUOTE 0) I) (LEN LST)) (NOT (EQUAL (GET-NTH (INDEX-N (QUOTE 0) I) LST) (QUOTE -1))))) (EQUAL (PC-BYTE-READ ADDR MEM) (GET-NTH (INDEX-N (QUOTE 0) I) LST))) ((USE (PC-BYTE-READ-MCODE1 (ADDR (ADD (QUOTE 32) ADDR I)) (I (INDEX-N (QUOTE 0) I)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NEG-NAT-RANGEP . PC-BYTE-READ-MCODE2) (IMMEDIATE-DEPENDENTS0 HEAD-LEMMA . PC-BYTE-READ-MCODE2) (IMMEDIATE-DEPENDENTS0 ADD-0 . PC-BYTE-READ-MCODE2) (IMMEDIATE-DEPENDENTS0 SUB-NEG . PC-BYTE-READ-MCODE2) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-ADD-NEG . PC-BYTE-READ-MCODE2) (IMMEDIATE-DEPENDENTS0 ADD-COMMUTATIVITY . PC-BYTE-READ-MCODE2) (IMMEDIATE-DEPENDENTS0 HEAD-BYTE-PC-READ . PC-BYTE-READ-MCODE2) (IMMEDIATE-DEPENDENTS0 ADD-ASSOCIATIVITY . PC-BYTE-READ-MCODE2) (IMMEDIATE-DEPENDENTS0 PC-BYTE-READ-MCODE1 . PC-BYTE-READ-MCODE2) (IMMEDIATE-DEPENDENTS0 PC-BYTE-READ . PC-BYTE-READ-MCODE2) (IMMEDIATE-DEPENDENTS0 GET-NTH . PC-BYTE-READ-MCODE2) (IMMEDIATE-DEPENDENTS0 LEN . PC-BYTE-READ-MCODE2) (IMMEDIATE-DEPENDENTS0 INDEX-N . PC-BYTE-READ-MCODE2) (IMMEDIATE-DEPENDENTS0 ADD . PC-BYTE-READ-MCODE2) (IMMEDIATE-DEPENDENTS0 MCODE-ADDRP . PC-BYTE-READ-MCODE2) (LEMMAS PC-BYTE-READ . PC-BYTE-READ-MCODE2))))) (PUT1-LST (QUOTE PC-BYTE-READ-MCODE1) (QUOTE (IDATE 1000402215023 IMMEDIATE-DEPENDENTS0 (PC-READ-MEM-MCODE1 PC-READ-MEM-MCODE0 PC-BYTE-READ-MCODE3 PC-BYTE-READ-MCODE2) EVENT (PROVE-LEMMA PC-BYTE-READ-MCODE1 (REWRITE) (IMPLIES (AND (MCODE-ADDRP ADDR MEM LST) (AND (LESSP I (LEN LST)) (NOT (EQUAL (GET-NTH I LST) (QUOTE -1))))) (EQUAL (PC-BYTE-READ (ADD (QUOTE 32) ADDR I) MEM) (GET-NTH I LST))) ((INDUCT (MEM-INDUCT1 I ADDR LST)) (ENABLE ADD-PLUS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 GET-NTH-NIL . PC-BYTE-READ-MCODE1) (IMMEDIATE-DEPENDENTS0 ADD-0 . PC-BYTE-READ-MCODE1) (IMMEDIATE-DEPENDENTS0 ADD-COMMUTATIVITY . PC-BYTE-READ-MCODE1) (IMMEDIATE-DEPENDENTS0 HEAD-BYTE-PC-READ . PC-BYTE-READ-MCODE1) (IMMEDIATE-DEPENDENTS0 ADD-NON-NUMBERP . PC-BYTE-READ-MCODE1) (IMMEDIATE-DEPENDENTS0 PLUS-ADD1 . PC-BYTE-READ-MCODE1) (IMMEDIATE-DEPENDENTS0 ADD-PLUS . PC-BYTE-READ-MCODE1) (IMMEDIATE-DEPENDENTS0 ADD-ASSOCIATIVITY . PC-BYTE-READ-MCODE1) (IMMEDIATE-DEPENDENTS0 MEM-INDUCT1 . PC-BYTE-READ-MCODE1) (IMMEDIATE-DEPENDENTS0 ADD . PC-BYTE-READ-MCODE1) (IMMEDIATE-DEPENDENTS0 PC-BYTE-READ . PC-BYTE-READ-MCODE1) (IMMEDIATE-DEPENDENTS0 GET-NTH . PC-BYTE-READ-MCODE1) (IMMEDIATE-DEPENDENTS0 LEN . PC-BYTE-READ-MCODE1) (IMMEDIATE-DEPENDENTS0 MCODE-ADDRP . PC-BYTE-READ-MCODE1) (LEMMAS PC-BYTE-READ . PC-BYTE-READ-MCODE1))))) (PUT1-LST (QUOTE PC-BYTE-READ-MCODE0) (QUOTE (IDATE 1000402215023 EVENT (PROVE-LEMMA PC-BYTE-READ-MCODE0 (REWRITE) (IMPLIES (AND (MCODE-ADDRP ADDR MEM (CONS X LST)) (NOT (EQUAL X (QUOTE -1)))) (EQUAL (PC-BYTE-READ ADDR MEM) X))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PC-BYTE-READ . PC-BYTE-READ-MCODE0) (IMMEDIATE-DEPENDENTS0 MCODE-ADDRP . PC-BYTE-READ-MCODE0) (LEMMAS PC-BYTE-READ . PC-BYTE-READ-MCODE0))))) (PUT1-LST (QUOTE *1*MEM-INDUCT1) (QUOTE (MAIN-EVENT MEM-INDUCT1))) (PUT1-LST (QUOTE MEM-INDUCT1) (QUOTE (TYPE-PRESCRIPTION-LST ((MEM-INDUCT1 2 NIL NIL NIL)) TOTALP-LST ((MEM-INDUCT1 . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE SELF-REFLEXIVE) SDEFN (LAMBDA (I ADDR LST) (IF (EQUAL I (QUOTE 0)) (QUOTE *1*TRUE) (IF (NUMBERP I) (MEM-INDUCT1 (SUB1 I) (ADD (QUOTE 32) ADDR (QUOTE 1)) (CDR LST)) (QUOTE *1*TRUE)))) LISP-CODE *1*MEM-INDUCT1 SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((ZEROP I)) NIL) (TESTS-AND-CASES ((NOT (ZEROP I))) (((SUB1 I) (ADD (QUOTE 32) ADDR (QUOTE 1)) (CDR LST))))) LEVEL-NO 4 JUSTIFICATIONS ((JUSTIFICATION (I) (COUNT I) LESSP (ZEROP COUNT-NUMBERP LESSP-SUB1))) IDATE 1000402215023 CONTROLLER-POCKETS (1) SATELLITES (*1*MEM-INDUCT1) IMMEDIATE-DEPENDENTS0 (PC-BYTE-READ-MCODE1) EVENT (DEFN MEM-INDUCT1 (I ADDR LST) (IF (ZEROP I) (QUOTE *1*TRUE) (MEM-INDUCT1 (SUB1 I) (ADD (QUOTE 32) ADDR (QUOTE 1)) (CDR LST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ADD . MEM-INDUCT1) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . MEM-INDUCT1) (DCELL . *1*MEM-INDUCT1))))) (PUT1-LST (QUOTE READ-MEMP-RAM3) (QUOTE (IDATE 1000402215023 IMMEDIATE-DEPENDENTS0 (GCD-S0-SN-BASE-RFILE-2 GCD-S0-SN-BASE-2 GCD-S0-SN-BASE-RFILE-1 GCD-S0-SN-BASE-1) EVENT (PROVE-LEMMA READ-MEMP-RAM3 (REWRITE) (IMPLIES (AND (RAM-ADDRP (ADD (QUOTE 32) ADDR I) MEM K) (IF (LESSP K (PLUS (INDEX-N H I) J)) (QUOTE *1*FALSE) (QUOTE *1*TRUE))) (READ-MEMP (ADD (QUOTE 32) ADDR H) MEM J))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUB-NEG . READ-MEMP-RAM3) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . READ-MEMP-RAM3) (IMMEDIATE-DEPENDENTS0 WRITE-MEMP-RAM3 . READ-MEMP-RAM3) (IMMEDIATE-DEPENDENTS0 WRITE-MEMP->READ-MEMP . READ-MEMP-RAM3) (IMMEDIATE-DEPENDENTS0 READ-MEMP . READ-MEMP-RAM3) (IMMEDIATE-DEPENDENTS0 INDEX-N . READ-MEMP-RAM3) (IMMEDIATE-DEPENDENTS0 ADD . READ-MEMP-RAM3) (IMMEDIATE-DEPENDENTS0 RAM-ADDRP . READ-MEMP-RAM3) (LEMMAS READ-MEMP . READ-MEMP-RAM3))))) (PUT1-LST (QUOTE READ-MEMP-RAM2) (QUOTE (IDATE 1000402215023 IMMEDIATE-DEPENDENTS0 (GCD-S0-SN-BASE-RFILE-2 GCD-S0-SN-BASE-2 GCD-S0-SN-BASE-RFILE-1 GCD-S0-SN-BASE-1) EVENT (PROVE-LEMMA READ-MEMP-RAM2 (REWRITE) (IMPLIES (AND (RAM-ADDRP (ADD (QUOTE 32) ADDR I) MEM K) (IF (LESSP K (PLUS (INDEX-N (QUOTE 0) I) J)) (QUOTE *1*FALSE) (QUOTE *1*TRUE))) (READ-MEMP ADDR MEM J))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NEG-NAT-RANGEP . READ-MEMP-RAM2) (IMMEDIATE-DEPENDENTS0 HEAD-LEMMA . READ-MEMP-RAM2) (IMMEDIATE-DEPENDENTS0 ADD-0 . READ-MEMP-RAM2) (IMMEDIATE-DEPENDENTS0 SUB-NEG . READ-MEMP-RAM2) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . READ-MEMP-RAM2) (IMMEDIATE-DEPENDENTS0 WRITE-MEMP-RAM2 . READ-MEMP-RAM2) (IMMEDIATE-DEPENDENTS0 WRITE-MEMP->READ-MEMP . READ-MEMP-RAM2) (IMMEDIATE-DEPENDENTS0 READ-MEMP . READ-MEMP-RAM2) (IMMEDIATE-DEPENDENTS0 INDEX-N . READ-MEMP-RAM2) (IMMEDIATE-DEPENDENTS0 ADD . READ-MEMP-RAM2) (IMMEDIATE-DEPENDENTS0 RAM-ADDRP . READ-MEMP-RAM2) (LEMMAS READ-MEMP . READ-MEMP-RAM2))))) (PUT1-LST (QUOTE READ-MEMP-RAM1-INT) (QUOTE (IDATE 1000402215023 EVENT (PROVE-LEMMA READ-MEMP-RAM1-INT (REWRITE) (IMPLIES (AND (RAM-ADDRP ADDR MEM K) (AND (NUMBERP (NAT-TO-INT I (QUOTE 32))) (IF (LESSP K (PLUS (NAT-TO-INT I (QUOTE 32)) J)) (QUOTE *1*FALSE) (QUOTE *1*TRUE)))) (READ-MEMP (ADD (QUOTE 32) ADDR I) MEM J)) ((ENABLE NAT-TO-INT))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 READ-MEMP-RAM1 . READ-MEMP-RAM1-INT) (IMMEDIATE-DEPENDENTS0 EXP . READ-MEMP-RAM1-INT) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . READ-MEMP-RAM1-INT) (IMMEDIATE-DEPENDENTS0 ADD-NON-NUMBERP . READ-MEMP-RAM1-INT) (IMMEDIATE-DEPENDENTS0 HEAD-WRITE-MEMP . READ-MEMP-RAM1-INT) (IMMEDIATE-DEPENDENTS0 WRITE-MEMP-RAM0 . READ-MEMP-RAM1-INT) (IMMEDIATE-DEPENDENTS0 WRITE-MEMP->READ-MEMP . READ-MEMP-RAM1-INT) (IMMEDIATE-DEPENDENTS0 ADD . READ-MEMP-RAM1-INT) (IMMEDIATE-DEPENDENTS0 READ-MEMP . READ-MEMP-RAM1-INT) (IMMEDIATE-DEPENDENTS0 NAT-TO-INT . READ-MEMP-RAM1-INT) (IMMEDIATE-DEPENDENTS0 RAM-ADDRP . READ-MEMP-RAM1-INT) (LEMMAS READ-MEMP . READ-MEMP-RAM1-INT))))) (PUT1-LST (QUOTE READ-MEMP-RAM1) (QUOTE (IDATE 1000402215023 IMMEDIATE-DEPENDENTS0 (READ-MEMP-RAM1-UINT READ-MEMP-RAM1-ASL READ-MEMP-RAM1-INT) EVENT (PROVE-LEMMA READ-MEMP-RAM1 (REWRITE) (IMPLIES (AND (RAM-ADDRP ADDR MEM K) (IF (LESSP K (PLUS I J)) (QUOTE *1*FALSE) (QUOTE *1*TRUE))) (READ-MEMP (ADD (QUOTE 32) ADDR I) MEM J))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 WRITE-MEMP-RAM1 . READ-MEMP-RAM1) (IMMEDIATE-DEPENDENTS0 WRITE-MEMP->READ-MEMP . READ-MEMP-RAM1) (IMMEDIATE-DEPENDENTS0 ADD . READ-MEMP-RAM1) (IMMEDIATE-DEPENDENTS0 READ-MEMP . READ-MEMP-RAM1) (IMMEDIATE-DEPENDENTS0 RAM-ADDRP . READ-MEMP-RAM1) (LEMMAS READ-MEMP . READ-MEMP-RAM1))))) (PUT1-LST (QUOTE READ-MEMP-RAM0) (QUOTE (IDATE 1000402215023 EVENT (PROVE-LEMMA READ-MEMP-RAM0 (REWRITE) (IMPLIES (AND (RAM-ADDRP ADDR MEM K) (IF (LESSP K J) (QUOTE *1*FALSE) (QUOTE *1*TRUE))) (READ-MEMP ADDR MEM J))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 WRITE-MEMP-RAM0 . READ-MEMP-RAM0) (IMMEDIATE-DEPENDENTS0 WRITE-MEMP->READ-MEMP . READ-MEMP-RAM0) (IMMEDIATE-DEPENDENTS0 READ-MEMP . READ-MEMP-RAM0) (IMMEDIATE-DEPENDENTS0 RAM-ADDRP . READ-MEMP-RAM0) (LEMMAS READ-MEMP . READ-MEMP-RAM0))))) (PUT1-LST (QUOTE BYTE-READP-RAM3) (QUOTE (IDATE 1000402215023 EVENT (PROVE-LEMMA BYTE-READP-RAM3 (REWRITE) (IMPLIES (AND (RAM-ADDRP (ADD (QUOTE 32) ADDR I) MEM K) (LESSP (INDEX-N J I) K)) (BYTE-READP (ADD (QUOTE 32) ADDR J) MEM))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUB-NEG . BYTE-READP-RAM3) (IMMEDIATE-DEPENDENTS0 BYTE-WRITEP-RAM3 . BYTE-READP-RAM3) (IMMEDIATE-DEPENDENTS0 BYTE-WRITEP->READP . BYTE-READP-RAM3) (IMMEDIATE-DEPENDENTS0 BYTE-READP . BYTE-READP-RAM3) (IMMEDIATE-DEPENDENTS0 INDEX-N . BYTE-READP-RAM3) (IMMEDIATE-DEPENDENTS0 ADD . BYTE-READP-RAM3) (IMMEDIATE-DEPENDENTS0 RAM-ADDRP . BYTE-READP-RAM3) (LEMMAS BYTE-READP . BYTE-READP-RAM3))))) (PUT1-LST (QUOTE BYTE-READP-RAM2) (QUOTE (IDATE 1000402215023 EVENT (PROVE-LEMMA BYTE-READP-RAM2 (REWRITE) (IMPLIES (AND (RAM-ADDRP (ADD (QUOTE 32) ADDR I) MEM K) (LESSP (INDEX-N (QUOTE 0) I) K)) (BYTE-READP ADDR MEM))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NEG-NAT-RANGEP . BYTE-READP-RAM2) (IMMEDIATE-DEPENDENTS0 HEAD-LEMMA . BYTE-READP-RAM2) (IMMEDIATE-DEPENDENTS0 ADD-0 . BYTE-READP-RAM2) (IMMEDIATE-DEPENDENTS0 SUB-NEG . BYTE-READP-RAM2) (IMMEDIATE-DEPENDENTS0 BYTE-WRITEP-RAM2 . BYTE-READP-RAM2) (IMMEDIATE-DEPENDENTS0 BYTE-WRITEP->READP . BYTE-READP-RAM2) (IMMEDIATE-DEPENDENTS0 BYTE-READP . BYTE-READP-RAM2) (IMMEDIATE-DEPENDENTS0 INDEX-N . BYTE-READP-RAM2) (IMMEDIATE-DEPENDENTS0 ADD . BYTE-READP-RAM2) (IMMEDIATE-DEPENDENTS0 RAM-ADDRP . BYTE-READP-RAM2) (LEMMAS BYTE-READP . BYTE-READP-RAM2))))) (PUT1-LST (QUOTE BYTE-READP-RAM1) (QUOTE (IDATE 1000402215022 EVENT (PROVE-LEMMA BYTE-READP-RAM1 (REWRITE) (IMPLIES (AND (RAM-ADDRP ADDR MEM K) (LESSP J K)) (BYTE-READP (ADD (QUOTE 32) ADDR J) MEM))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BYTE-WRITEP-RAM1 . BYTE-READP-RAM1) (IMMEDIATE-DEPENDENTS0 BYTE-WRITEP->READP . BYTE-READP-RAM1) (IMMEDIATE-DEPENDENTS0 ADD . BYTE-READP-RAM1) (IMMEDIATE-DEPENDENTS0 BYTE-READP . BYTE-READP-RAM1) (IMMEDIATE-DEPENDENTS0 RAM-ADDRP . BYTE-READP-RAM1) (LEMMAS BYTE-READP . BYTE-READP-RAM1))))) (PUT1-LST (QUOTE BYTE-READP-RAM0) (QUOTE (IDATE 1000402215022 EVENT (PROVE-LEMMA BYTE-READP-RAM0 (REWRITE) (IMPLIES (AND (RAM-ADDRP ADDR MEM K) (NOT (ZEROP K))) (BYTE-READP ADDR MEM))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BYTE-WRITEP-RAM0 . BYTE-READP-RAM0) (IMMEDIATE-DEPENDENTS0 BYTE-WRITEP->READP . BYTE-READP-RAM0) (IMMEDIATE-DEPENDENTS0 BYTE-READP . BYTE-READP-RAM0) (IMMEDIATE-DEPENDENTS0 RAM-ADDRP . BYTE-READP-RAM0) (LEMMAS BYTE-READP . BYTE-READP-RAM0))))) (PUT1-LST (QUOTE RAM-ADDRP-OFF) (QUOTE (IDATE 1000402215022 EVENT (TOGGLE RAM-ADDRP-OFF RAM-ADDRP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 RAM-ADDRP . RAM-ADDRP-OFF) (DISABLED-LEMMAS NIL RAM-ADDRP RAM-ADDRP-OFF . T))))) (PUT1-LST (QUOTE RAM-ADDRP-LA2) (QUOTE (IDATE 1000402215022 IMMEDIATE-DEPENDENTS0 (RAM-ADDRP-4 RAM-ADDRP-3) EVENT (PROVE-LEMMA RAM-ADDRP-LA2 (REWRITE) (IMPLIES (AND (RAM-ADDRP ADDR MEM N) (IF (LESSP N (PLUS J (INDEX-N X ADDR))) (QUOTE *1*FALSE) (QUOTE *1*TRUE))) (RAM-ADDRP X MEM J)) ((USE (WRITE-MEMP-LA3 (I (INDEX-N X ADDR)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 WRITE-MEMP-LA2 . RAM-ADDRP-LA2) (IMMEDIATE-DEPENDENTS0 SUB-NEG . RAM-ADDRP-LA2) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . RAM-ADDRP-LA2) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-ADD-NEG . RAM-ADDRP-LA2) (IMMEDIATE-DEPENDENTS0 HEAD-WRITE-MEMP . RAM-ADDRP-LA2) (IMMEDIATE-DEPENDENTS0 WRITE-MEMP-LA3 . RAM-ADDRP-LA2) (IMMEDIATE-DEPENDENTS0 INDEX-N . RAM-ADDRP-LA2) (IMMEDIATE-DEPENDENTS0 RAM-ADDRP . RAM-ADDRP-LA2) (LEMMAS RAM-ADDRP . RAM-ADDRP-LA2))))) (PUT1-LST (QUOTE RAM-ADDRP-LA1) (QUOTE (IDATE 1000402215022 IMMEDIATE-DEPENDENTS0 (WRITE-MEMP-RAM1-ASL READ-MEMP-RAM1-ASL) EVENT (PROVE-LEMMA RAM-ADDRP-LA1 (REWRITE) (IMPLIES (AND (RAM-ADDRP ADDR MEM N) (IF (LESSP N M) (QUOTE *1*FALSE) (QUOTE *1*TRUE))) (RAM-ADDRP ADDR MEM M))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 WRITE-MEMP-LA2 . RAM-ADDRP-LA1) (IMMEDIATE-DEPENDENTS0 RAM-ADDRP . RAM-ADDRP-LA1) (LEMMAS RAM-ADDRP . RAM-ADDRP-LA1))))) (PUT1-LST (QUOTE WRITE-MEMP-RAM3) (QUOTE (IDATE 1000402215022 IMMEDIATE-DEPENDENTS0 (GCD-S-S0-MEM GCD-S-S0-RFILE GCD-S-S0 READ-MEMP-RAM3) EVENT (PROVE-LEMMA WRITE-MEMP-RAM3 (REWRITE) (IMPLIES (AND (RAM-ADDRP (ADD (QUOTE 32) ADDR I) MEM K) (IF (LESSP K (PLUS (INDEX-N H I) J)) (QUOTE *1*FALSE) (QUOTE *1*TRUE))) (WRITE-MEMP (ADD (QUOTE 32) ADDR H) MEM J)) ((USE (WRITE-MEMP-RAM1 (ADDR (ADD (QUOTE 32) ADDR I)) (I (INDEX-N H I)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 WRITE-MEMP-LA2 . WRITE-MEMP-RAM3) (IMMEDIATE-DEPENDENTS0 SUB-NEG . WRITE-MEMP-RAM3) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . WRITE-MEMP-RAM3) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-ADD-NEG . WRITE-MEMP-RAM3) (IMMEDIATE-DEPENDENTS0 ADD-HEAD . WRITE-MEMP-RAM3) (IMMEDIATE-DEPENDENTS0 ADD-ASSOCIATIVITY . WRITE-MEMP-RAM3) (IMMEDIATE-DEPENDENTS0 WRITE-MEMP-RAM1 . WRITE-MEMP-RAM3) (IMMEDIATE-DEPENDENTS0 WRITE-MEMP . WRITE-MEMP-RAM3) (IMMEDIATE-DEPENDENTS0 INDEX-N . WRITE-MEMP-RAM3) (IMMEDIATE-DEPENDENTS0 ADD . WRITE-MEMP-RAM3) (IMMEDIATE-DEPENDENTS0 RAM-ADDRP . WRITE-MEMP-RAM3) (LEMMAS WRITE-MEMP . WRITE-MEMP-RAM3))))) (PUT1-LST (QUOTE WRITE-MEMP-RAM2) (QUOTE (IDATE 1000402215022 IMMEDIATE-DEPENDENTS0 (READ-MEMP-RAM2) EVENT (PROVE-LEMMA WRITE-MEMP-RAM2 (REWRITE) (IMPLIES (AND (RAM-ADDRP (ADD (QUOTE 32) ADDR I) MEM K) (IF (LESSP K (PLUS (INDEX-N (QUOTE 0) I) J)) (QUOTE *1*FALSE) (QUOTE *1*TRUE))) (WRITE-MEMP ADDR MEM J)) ((USE (WRITE-MEMP-RAM1 (ADDR (ADD (QUOTE 32) ADDR I)) (I (INDEX-N (QUOTE 0) I)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 WRITE-MEMP-LA2 . WRITE-MEMP-RAM2) (IMMEDIATE-DEPENDENTS0 NEG-NAT-RANGEP . WRITE-MEMP-RAM2) (IMMEDIATE-DEPENDENTS0 HEAD-LEMMA . WRITE-MEMP-RAM2) (IMMEDIATE-DEPENDENTS0 ADD-0 . WRITE-MEMP-RAM2) (IMMEDIATE-DEPENDENTS0 SUB-NEG . WRITE-MEMP-RAM2) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . WRITE-MEMP-RAM2) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-ADD-NEG . WRITE-MEMP-RAM2) (IMMEDIATE-DEPENDENTS0 ADD-COMMUTATIVITY . WRITE-MEMP-RAM2) (IMMEDIATE-DEPENDENTS0 HEAD-WRITE-MEMP . WRITE-MEMP-RAM2) (IMMEDIATE-DEPENDENTS0 ADD-ASSOCIATIVITY . WRITE-MEMP-RAM2) (IMMEDIATE-DEPENDENTS0 WRITE-MEMP-RAM1 . WRITE-MEMP-RAM2) (IMMEDIATE-DEPENDENTS0 WRITE-MEMP . WRITE-MEMP-RAM2) (IMMEDIATE-DEPENDENTS0 INDEX-N . WRITE-MEMP-RAM2) (IMMEDIATE-DEPENDENTS0 ADD . WRITE-MEMP-RAM2) (IMMEDIATE-DEPENDENTS0 RAM-ADDRP . WRITE-MEMP-RAM2) (LEMMAS WRITE-MEMP . WRITE-MEMP-RAM2))))) (PUT1-LST (QUOTE WRITE-MEMP-RAM1-INT) (QUOTE (IDATE 1000402215022 EVENT (PROVE-LEMMA WRITE-MEMP-RAM1-INT (REWRITE) (IMPLIES (AND (RAM-ADDRP ADDR MEM K) (AND (NUMBERP (NAT-TO-INT I (QUOTE 32))) (IF (LESSP K (PLUS (NAT-TO-INT I (QUOTE 32)) J)) (QUOTE *1*FALSE) (QUOTE *1*TRUE)))) (WRITE-MEMP (ADD (QUOTE 32) ADDR I) MEM J)) ((ENABLE NAT-TO-INT))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 WRITE-MEMP-LA3 . WRITE-MEMP-RAM1-INT) (IMMEDIATE-DEPENDENTS0 EXP . WRITE-MEMP-RAM1-INT) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . WRITE-MEMP-RAM1-INT) (IMMEDIATE-DEPENDENTS0 ADD-NON-NUMBERP . WRITE-MEMP-RAM1-INT) (IMMEDIATE-DEPENDENTS0 WRITE-MEMP-LA2 . WRITE-MEMP-RAM1-INT) (IMMEDIATE-DEPENDENTS0 HEAD-WRITE-MEMP . WRITE-MEMP-RAM1-INT) (IMMEDIATE-DEPENDENTS0 ADD . WRITE-MEMP-RAM1-INT) (IMMEDIATE-DEPENDENTS0 WRITE-MEMP . WRITE-MEMP-RAM1-INT) (IMMEDIATE-DEPENDENTS0 NAT-TO-INT . WRITE-MEMP-RAM1-INT) (IMMEDIATE-DEPENDENTS0 RAM-ADDRP . WRITE-MEMP-RAM1-INT) (LEMMAS WRITE-MEMP . WRITE-MEMP-RAM1-INT))))) (PUT1-LST (QUOTE WRITE-MEMP-RAM1) (QUOTE (IDATE 1000402215022 IMMEDIATE-DEPENDENTS0 (WRITE-MEMP-RAM1-UINT WRITE-MEMP-RAM1-ASL READ-MEMP-RAM1 WRITE-MEMP-RAM3 WRITE-MEMP-RAM2) EVENT (PROVE-LEMMA WRITE-MEMP-RAM1 (REWRITE) (IMPLIES (AND (RAM-ADDRP ADDR MEM K) (IF (LESSP K (PLUS I J)) (QUOTE *1*FALSE) (QUOTE *1*TRUE))) (WRITE-MEMP (ADD (QUOTE 32) ADDR I) MEM J))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 WRITE-MEMP-LA3 . WRITE-MEMP-RAM1) (IMMEDIATE-DEPENDENTS0 ADD . WRITE-MEMP-RAM1) (IMMEDIATE-DEPENDENTS0 WRITE-MEMP . WRITE-MEMP-RAM1) (IMMEDIATE-DEPENDENTS0 RAM-ADDRP . WRITE-MEMP-RAM1) (LEMMAS WRITE-MEMP . WRITE-MEMP-RAM1))))) (PUT1-LST (QUOTE WRITE-MEMP-RAM0) (QUOTE (IDATE 1000402215022 IMMEDIATE-DEPENDENTS0 (READ-MEMP-RAM1-INT READ-MEMP-RAM0) EVENT (PROVE-LEMMA WRITE-MEMP-RAM0 (REWRITE) (IMPLIES (AND (RAM-ADDRP ADDR MEM K) (IF (LESSP K J) (QUOTE *1*FALSE) (QUOTE *1*TRUE))) (WRITE-MEMP ADDR MEM J))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 WRITE-MEMP-LA2 . WRITE-MEMP-RAM0) (IMMEDIATE-DEPENDENTS0 WRITE-MEMP . WRITE-MEMP-RAM0) (IMMEDIATE-DEPENDENTS0 RAM-ADDRP . WRITE-MEMP-RAM0) (LEMMAS WRITE-MEMP . WRITE-MEMP-RAM0))))) (PUT1-LST (QUOTE BYTE-WRITEP-RAM3) (QUOTE (IDATE 1000402215022 IMMEDIATE-DEPENDENTS0 (BYTE-READP-RAM3) EVENT (PROVE-LEMMA BYTE-WRITEP-RAM3 (REWRITE) (IMPLIES (AND (RAM-ADDRP (ADD (QUOTE 32) ADDR I) MEM K) (LESSP (INDEX-N J I) K)) (BYTE-WRITEP (ADD (QUOTE 32) ADDR J) MEM)) ((USE (BYTE-WRITEP-RAM1 (ADDR (ADD (QUOTE 32) ADDR I)) (J (INDEX-N J I)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 WRITE-MEMP-LA2 . BYTE-WRITEP-RAM3) (IMMEDIATE-DEPENDENTS0 SUB-NEG . BYTE-WRITEP-RAM3) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-ADD-NEG . BYTE-WRITEP-RAM3) (IMMEDIATE-DEPENDENTS0 ADD-HEAD . BYTE-WRITEP-RAM3) (IMMEDIATE-DEPENDENTS0 ADD-ASSOCIATIVITY . BYTE-WRITEP-RAM3) (IMMEDIATE-DEPENDENTS0 BYTE-WRITEP-RAM1 . BYTE-WRITEP-RAM3) (IMMEDIATE-DEPENDENTS0 BYTE-WRITEP . BYTE-WRITEP-RAM3) (IMMEDIATE-DEPENDENTS0 INDEX-N . BYTE-WRITEP-RAM3) (IMMEDIATE-DEPENDENTS0 ADD . BYTE-WRITEP-RAM3) (IMMEDIATE-DEPENDENTS0 RAM-ADDRP . BYTE-WRITEP-RAM3) (LEMMAS BYTE-WRITEP . BYTE-WRITEP-RAM3))))) (PUT1-LST (QUOTE BYTE-WRITEP-RAM2) (QUOTE (IDATE 1000402215022 IMMEDIATE-DEPENDENTS0 (BYTE-READP-RAM2) EVENT (PROVE-LEMMA BYTE-WRITEP-RAM2 (REWRITE) (IMPLIES (AND (RAM-ADDRP (ADD (QUOTE 32) ADDR I) MEM K) (LESSP (INDEX-N (QUOTE 0) I) K)) (BYTE-WRITEP ADDR MEM))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-ADD1 . BYTE-WRITEP-RAM2) (IMMEDIATE-DEPENDENTS0 HEAD-BYTE-WRITEP . BYTE-WRITEP-RAM2) (IMMEDIATE-DEPENDENTS0 ADD-COMMUTATIVITY . BYTE-WRITEP-RAM2) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-ADD-NEG . BYTE-WRITEP-RAM2) (IMMEDIATE-DEPENDENTS0 ADD-ASSOCIATIVITY . BYTE-WRITEP-RAM2) (IMMEDIATE-DEPENDENTS0 WRITE-MEMP . BYTE-WRITEP-RAM2) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . BYTE-WRITEP-RAM2) (IMMEDIATE-DEPENDENTS0 NEG-NAT-RANGEP . BYTE-WRITEP-RAM2) (IMMEDIATE-DEPENDENTS0 HEAD-LEMMA . BYTE-WRITEP-RAM2) (IMMEDIATE-DEPENDENTS0 ADD-0 . BYTE-WRITEP-RAM2) (IMMEDIATE-DEPENDENTS0 SUB-NEG . BYTE-WRITEP-RAM2) (IMMEDIATE-DEPENDENTS0 BYTE-WRITEP . BYTE-WRITEP-RAM2) (IMMEDIATE-DEPENDENTS0 INDEX-N . BYTE-WRITEP-RAM2) (IMMEDIATE-DEPENDENTS0 ADD . BYTE-WRITEP-RAM2) (IMMEDIATE-DEPENDENTS0 RAM-ADDRP . BYTE-WRITEP-RAM2) (LEMMAS BYTE-WRITEP . BYTE-WRITEP-RAM2))))) (PUT1-LST (QUOTE BYTE-WRITEP-RAM1) (QUOTE (IDATE 1000402215022 IMMEDIATE-DEPENDENTS0 (BYTE-READP-RAM1 BYTE-WRITEP-RAM3) EVENT (PROVE-LEMMA BYTE-WRITEP-RAM1 (REWRITE) (IMPLIES (AND (RAM-ADDRP ADDR MEM K) (LESSP J K)) (BYTE-WRITEP (ADD (QUOTE 32) ADDR J) MEM))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 WRITE-MEMP-LA1 . BYTE-WRITEP-RAM1) (IMMEDIATE-DEPENDENTS0 ADD . BYTE-WRITEP-RAM1) (IMMEDIATE-DEPENDENTS0 BYTE-WRITEP . BYTE-WRITEP-RAM1) (IMMEDIATE-DEPENDENTS0 RAM-ADDRP . BYTE-WRITEP-RAM1) (LEMMAS BYTE-WRITEP . BYTE-WRITEP-RAM1))))) (PUT1-LST (QUOTE BYTE-WRITEP-RAM0) (QUOTE (IDATE 1000402215022 IMMEDIATE-DEPENDENTS0 (BYTE-READP-RAM0) EVENT (PROVE-LEMMA BYTE-WRITEP-RAM0 (REWRITE) (IMPLIES (AND (RAM-ADDRP ADDR MEM K) (NOT (ZEROP K))) (BYTE-WRITEP ADDR MEM))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 WRITE-MEMP-LA0 . BYTE-WRITEP-RAM0) (IMMEDIATE-DEPENDENTS0 BYTE-WRITEP . BYTE-WRITEP-RAM0) (IMMEDIATE-DEPENDENTS0 RAM-ADDRP . BYTE-WRITEP-RAM0) (LEMMAS BYTE-WRITEP . BYTE-WRITEP-RAM0))))) (PUT1-LST (QUOTE READ-MEMP-ROM1-INT) (QUOTE (IDATE 1000402215022 EVENT (PROVE-LEMMA READ-MEMP-ROM1-INT (REWRITE) (IMPLIES (AND (ROM-ADDRP ADDR MEM N) (AND (LESSP (PLUS (NAT-TO-INT X (QUOTE 32)) J) N) (NUMBERP (NAT-TO-INT X (QUOTE 32))))) (READ-MEMP (ADD (QUOTE 32) ADDR X) MEM J)) ((ENABLE NAT-TO-INT))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 READ-MEMP-ROM1 . READ-MEMP-ROM1-INT) (IMMEDIATE-DEPENDENTS0 EXP . READ-MEMP-ROM1-INT) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . READ-MEMP-ROM1-INT) (IMMEDIATE-DEPENDENTS0 ADD-NON-NUMBERP . READ-MEMP-ROM1-INT) (IMMEDIATE-DEPENDENTS0 HEAD-PC-READ-MEMP . READ-MEMP-ROM1-INT) (IMMEDIATE-DEPENDENTS0 PC-READ-MEMP-ROM0 . READ-MEMP-ROM1-INT) (IMMEDIATE-DEPENDENTS0 PC-READ-MEMP->READ-MEMP . READ-MEMP-ROM1-INT) (IMMEDIATE-DEPENDENTS0 ADD . READ-MEMP-ROM1-INT) (IMMEDIATE-DEPENDENTS0 READ-MEMP . READ-MEMP-ROM1-INT) (IMMEDIATE-DEPENDENTS0 NAT-TO-INT . READ-MEMP-ROM1-INT) (IMMEDIATE-DEPENDENTS0 ROM-ADDRP . READ-MEMP-ROM1-INT) (LEMMAS READ-MEMP . READ-MEMP-ROM1-INT))))) (PUT1-LST (QUOTE READ-MEMP-ROM3) (QUOTE (IDATE 1000402215022 EVENT (PROVE-LEMMA READ-MEMP-ROM3 (REWRITE) (IMPLIES (AND (ROM-ADDRP (ADD (QUOTE 32) ADDR I) MEM K) (IF (LESSP K (PLUS (INDEX-N H I) J)) (QUOTE *1*FALSE) (QUOTE *1*TRUE))) (READ-MEMP (ADD (QUOTE 32) ADDR H) MEM J))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUB-NEG . READ-MEMP-ROM3) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . READ-MEMP-ROM3) (IMMEDIATE-DEPENDENTS0 PC-READ-MEMP-ROM3 . READ-MEMP-ROM3) (IMMEDIATE-DEPENDENTS0 PC-READ-MEMP->READ-MEMP . READ-MEMP-ROM3) (IMMEDIATE-DEPENDENTS0 READ-MEMP . READ-MEMP-ROM3) (IMMEDIATE-DEPENDENTS0 INDEX-N . READ-MEMP-ROM3) (IMMEDIATE-DEPENDENTS0 ADD . READ-MEMP-ROM3) (IMMEDIATE-DEPENDENTS0 ROM-ADDRP . READ-MEMP-ROM3) (LEMMAS READ-MEMP . READ-MEMP-ROM3))))) (PUT1-LST (QUOTE READ-MEMP-ROM2) (QUOTE (IDATE 1000402215022 EVENT (PROVE-LEMMA READ-MEMP-ROM2 (REWRITE) (IMPLIES (AND (ROM-ADDRP (ADD (QUOTE 32) ADDR I) MEM K) (IF (LESSP K (PLUS (INDEX-N (QUOTE 0) I) J)) (QUOTE *1*FALSE) (QUOTE *1*TRUE))) (READ-MEMP ADDR MEM J))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NEG-NAT-RANGEP . READ-MEMP-ROM2) (IMMEDIATE-DEPENDENTS0 HEAD-LEMMA . READ-MEMP-ROM2) (IMMEDIATE-DEPENDENTS0 ADD-0 . READ-MEMP-ROM2) (IMMEDIATE-DEPENDENTS0 SUB-NEG . READ-MEMP-ROM2) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . READ-MEMP-ROM2) (IMMEDIATE-DEPENDENTS0 PC-READ-MEMP-ROM2 . READ-MEMP-ROM2) (IMMEDIATE-DEPENDENTS0 PC-READ-MEMP->READ-MEMP . READ-MEMP-ROM2) (IMMEDIATE-DEPENDENTS0 READ-MEMP . READ-MEMP-ROM2) (IMMEDIATE-DEPENDENTS0 INDEX-N . READ-MEMP-ROM2) (IMMEDIATE-DEPENDENTS0 ADD . READ-MEMP-ROM2) (IMMEDIATE-DEPENDENTS0 ROM-ADDRP . READ-MEMP-ROM2) (LEMMAS READ-MEMP . READ-MEMP-ROM2))))) (PUT1-LST (QUOTE READ-MEMP-ROM1) (QUOTE (IDATE 1000402215022 IMMEDIATE-DEPENDENTS0 (READ-MEMP-ROM1-ASL READ-MEMP-ROM1-INT) EVENT (PROVE-LEMMA READ-MEMP-ROM1 (REWRITE) (IMPLIES (AND (ROM-ADDRP ADDR MEM K) (IF (LESSP K (PLUS I J)) (QUOTE *1*FALSE) (QUOTE *1*TRUE))) (READ-MEMP (ADD (QUOTE 32) ADDR I) MEM J))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PC-READ-MEMP-ROM1 . READ-MEMP-ROM1) (IMMEDIATE-DEPENDENTS0 PC-READ-MEMP->READ-MEMP . READ-MEMP-ROM1) (IMMEDIATE-DEPENDENTS0 ADD . READ-MEMP-ROM1) (IMMEDIATE-DEPENDENTS0 READ-MEMP . READ-MEMP-ROM1) (IMMEDIATE-DEPENDENTS0 ROM-ADDRP . READ-MEMP-ROM1) (LEMMAS READ-MEMP . READ-MEMP-ROM1))))) (PUT1-LST (QUOTE READ-MEMP-ROM0) (QUOTE (IDATE 1000402215022 EVENT (PROVE-LEMMA READ-MEMP-ROM0 (REWRITE) (IMPLIES (AND (ROM-ADDRP ADDR MEM K) (IF (LESSP K J) (QUOTE *1*FALSE) (QUOTE *1*TRUE))) (READ-MEMP ADDR MEM J))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PC-READ-MEMP-ROM0 . READ-MEMP-ROM0) (IMMEDIATE-DEPENDENTS0 PC-READ-MEMP->READ-MEMP . READ-MEMP-ROM0) (IMMEDIATE-DEPENDENTS0 READ-MEMP . READ-MEMP-ROM0) (IMMEDIATE-DEPENDENTS0 ROM-ADDRP . READ-MEMP-ROM0) (LEMMAS READ-MEMP . READ-MEMP-ROM0))))) (PUT1-LST (QUOTE BYTE-READP-ROM3) (QUOTE (IDATE 1000402215022 EVENT (PROVE-LEMMA BYTE-READP-ROM3 (REWRITE) (IMPLIES (AND (ROM-ADDRP (ADD (QUOTE 32) ADDR I) MEM K) (LESSP (INDEX-N J I) K)) (BYTE-READP (ADD (QUOTE 32) ADDR J) MEM))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUB-NEG . BYTE-READP-ROM3) (IMMEDIATE-DEPENDENTS0 PC-BYTE-READP-ROM3 . BYTE-READP-ROM3) (IMMEDIATE-DEPENDENTS0 PC-BYTE-READP->BYTE-READP . BYTE-READP-ROM3) (IMMEDIATE-DEPENDENTS0 BYTE-READP . BYTE-READP-ROM3) (IMMEDIATE-DEPENDENTS0 INDEX-N . BYTE-READP-ROM3) (IMMEDIATE-DEPENDENTS0 ADD . BYTE-READP-ROM3) (IMMEDIATE-DEPENDENTS0 ROM-ADDRP . BYTE-READP-ROM3) (LEMMAS BYTE-READP . BYTE-READP-ROM3))))) (PUT1-LST (QUOTE BYTE-READP-ROM2) (QUOTE (IDATE 1000402215022 EVENT (PROVE-LEMMA BYTE-READP-ROM2 (REWRITE) (IMPLIES (AND (ROM-ADDRP (ADD (QUOTE 32) ADDR I) MEM K) (LESSP (INDEX-N (QUOTE 0) I) K)) (BYTE-READP ADDR MEM))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NEG-NAT-RANGEP . BYTE-READP-ROM2) (IMMEDIATE-DEPENDENTS0 HEAD-LEMMA . BYTE-READP-ROM2) (IMMEDIATE-DEPENDENTS0 ADD-0 . BYTE-READP-ROM2) (IMMEDIATE-DEPENDENTS0 SUB-NEG . BYTE-READP-ROM2) (IMMEDIATE-DEPENDENTS0 PC-BYTE-READP-ROM2 . BYTE-READP-ROM2) (IMMEDIATE-DEPENDENTS0 PC-BYTE-READP->BYTE-READP . BYTE-READP-ROM2) (IMMEDIATE-DEPENDENTS0 BYTE-READP . BYTE-READP-ROM2) (IMMEDIATE-DEPENDENTS0 INDEX-N . BYTE-READP-ROM2) (IMMEDIATE-DEPENDENTS0 ADD . BYTE-READP-ROM2) (IMMEDIATE-DEPENDENTS0 ROM-ADDRP . BYTE-READP-ROM2) (LEMMAS BYTE-READP . BYTE-READP-ROM2))))) (PUT1-LST (QUOTE BYTE-READP-ROM1) (QUOTE (IDATE 1000402215022 EVENT (PROVE-LEMMA BYTE-READP-ROM1 (REWRITE) (IMPLIES (AND (ROM-ADDRP ADDR MEM K) (LESSP J K)) (BYTE-READP (ADD (QUOTE 32) ADDR J) MEM))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PC-BYTE-READP-ROM1 . BYTE-READP-ROM1) (IMMEDIATE-DEPENDENTS0 PC-BYTE-READP->BYTE-READP . BYTE-READP-ROM1) (IMMEDIATE-DEPENDENTS0 ADD . BYTE-READP-ROM1) (IMMEDIATE-DEPENDENTS0 BYTE-READP . BYTE-READP-ROM1) (IMMEDIATE-DEPENDENTS0 ROM-ADDRP . BYTE-READP-ROM1) (LEMMAS BYTE-READP . BYTE-READP-ROM1))))) (PUT1-LST (QUOTE BYTE-READP-ROM0) (QUOTE (IDATE 1000402215022 EVENT (PROVE-LEMMA BYTE-READP-ROM0 (REWRITE) (IMPLIES (AND (ROM-ADDRP ADDR MEM K) (NOT (ZEROP K))) (BYTE-READP ADDR MEM))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PC-BYTE-READP-ROM0 . BYTE-READP-ROM0) (IMMEDIATE-DEPENDENTS0 PC-BYTE-READP->BYTE-READP . BYTE-READP-ROM0) (IMMEDIATE-DEPENDENTS0 BYTE-READP . BYTE-READP-ROM0) (IMMEDIATE-DEPENDENTS0 ROM-ADDRP . BYTE-READP-ROM0) (LEMMAS BYTE-READP . BYTE-READP-ROM0))))) (PUT1-LST (QUOTE ROM-ADDRP-OFF) (QUOTE (IDATE 1000402215022 EVENT (TOGGLE ROM-ADDRP-OFF ROM-ADDRP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ROM-ADDRP . ROM-ADDRP-OFF) (DISABLED-LEMMAS NIL ROM-ADDRP ROM-ADDRP-OFF . T))))) (PUT1-LST (QUOTE ROM-ADDRP-LA2) (QUOTE (IDATE 1000402215022 IMMEDIATE-DEPENDENTS0 (GCD-S0-S0-2 GCD-S0-S0-1 GCD-S-S0 STEPN-GCD-LOADP STEPN-MCODE-ADDRP) EVENT (PROVE-LEMMA ROM-ADDRP-LA2 (REWRITE) (IMPLIES (AND (ROM-ADDRP ADDR MEM K) (IF (LESSP K (PLUS J (INDEX-N X ADDR))) (QUOTE *1*FALSE) (QUOTE *1*TRUE))) (ROM-ADDRP X MEM J)) ((USE (PC-READ-MEMP-LA3 (I (INDEX-N X ADDR)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PC-READ-MEMP-LA2 . ROM-ADDRP-LA2) (IMMEDIATE-DEPENDENTS0 SUB-NEG . ROM-ADDRP-LA2) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . ROM-ADDRP-LA2) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-ADD-NEG . ROM-ADDRP-LA2) (IMMEDIATE-DEPENDENTS0 HEAD-PC-READ-MEMP . ROM-ADDRP-LA2) (IMMEDIATE-DEPENDENTS0 PC-READ-MEMP-LA3 . ROM-ADDRP-LA2) (IMMEDIATE-DEPENDENTS0 INDEX-N . ROM-ADDRP-LA2) (IMMEDIATE-DEPENDENTS0 ROM-ADDRP . ROM-ADDRP-LA2) (LEMMAS ROM-ADDRP . ROM-ADDRP-LA2))))) (PUT1-LST (QUOTE ROM-ADDRP-LA1) (QUOTE (IDATE 1000402215022 IMMEDIATE-DEPENDENTS0 (READ-MEMP-ROM1-ASL) EVENT (PROVE-LEMMA ROM-ADDRP-LA1 (REWRITE) (IMPLIES (AND (ROM-ADDRP ADDR MEM N) (IF (LESSP N M) (QUOTE *1*FALSE) (QUOTE *1*TRUE))) (ROM-ADDRP ADDR MEM M))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PC-READ-MEMP-LA2 . ROM-ADDRP-LA1) (IMMEDIATE-DEPENDENTS0 ROM-ADDRP . ROM-ADDRP-LA1) (LEMMAS ROM-ADDRP . ROM-ADDRP-LA1))))) (PUT1-LST (QUOTE PC-READ-MEMP-ROM3) (QUOTE (IDATE 1000402215022 IMMEDIATE-DEPENDENTS0 (GCD-S0-S0-RFILE-2 GCD-S0-S0-RFILE-1 GCD-S0-S0-2 GCD-S0-S0-1 GCD-S0-SN-BASE-RFILE-2 GCD-S0-SN-BASE-2 GCD-S0-SN-BASE-RFILE-1 GCD-S0-SN-BASE-1 READ-MEMP-ROM3) EVENT (PROVE-LEMMA PC-READ-MEMP-ROM3 (REWRITE) (IMPLIES (AND (ROM-ADDRP (ADD (QUOTE 32) ADDR I) MEM K) (IF (LESSP K (PLUS (INDEX-N H I) J)) (QUOTE *1*FALSE) (QUOTE *1*TRUE))) (PC-READ-MEMP (ADD (QUOTE 32) ADDR H) MEM J)) ((USE (PC-READ-MEMP-ROM1 (ADDR (ADD (QUOTE 32) ADDR I)) (I (INDEX-N H I)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PC-READ-MEMP-LA2 . PC-READ-MEMP-ROM3) (IMMEDIATE-DEPENDENTS0 SUB-NEG . PC-READ-MEMP-ROM3) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . PC-READ-MEMP-ROM3) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-ADD-NEG . PC-READ-MEMP-ROM3) (IMMEDIATE-DEPENDENTS0 ADD-HEAD . PC-READ-MEMP-ROM3) (IMMEDIATE-DEPENDENTS0 ADD-ASSOCIATIVITY . PC-READ-MEMP-ROM3) (IMMEDIATE-DEPENDENTS0 PC-READ-MEMP-ROM1 . PC-READ-MEMP-ROM3) (IMMEDIATE-DEPENDENTS0 PC-READ-MEMP . PC-READ-MEMP-ROM3) (IMMEDIATE-DEPENDENTS0 INDEX-N . PC-READ-MEMP-ROM3) (IMMEDIATE-DEPENDENTS0 ADD . PC-READ-MEMP-ROM3) (IMMEDIATE-DEPENDENTS0 ROM-ADDRP . PC-READ-MEMP-ROM3) (LEMMAS PC-READ-MEMP . PC-READ-MEMP-ROM3))))) (PUT1-LST (QUOTE PC-READ-MEMP-ROM2) (QUOTE (IDATE 1000402215022 IMMEDIATE-DEPENDENTS0 (GCD-S0-S0-RFILE-2 GCD-S0-S0-RFILE-1 GCD-S0-S0-2 GCD-S0-S0-1 GCD-S0-SN-BASE-RFILE-2 GCD-S0-SN-BASE-2 GCD-S0-SN-BASE-RFILE-1 GCD-S0-SN-BASE-1 READ-MEMP-ROM2) EVENT (PROVE-LEMMA PC-READ-MEMP-ROM2 (REWRITE) (IMPLIES (AND (ROM-ADDRP (ADD (QUOTE 32) ADDR I) MEM K) (IF (LESSP K (PLUS (INDEX-N (QUOTE 0) I) J)) (QUOTE *1*FALSE) (QUOTE *1*TRUE))) (PC-READ-MEMP ADDR MEM J)) ((USE (PC-READ-MEMP-ROM1 (ADDR (ADD (QUOTE 32) ADDR I)) (I (INDEX-N (QUOTE 0) I)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PC-READ-MEMP-LA2 . PC-READ-MEMP-ROM2) (IMMEDIATE-DEPENDENTS0 NEG-NAT-RANGEP . PC-READ-MEMP-ROM2) (IMMEDIATE-DEPENDENTS0 HEAD-LEMMA . PC-READ-MEMP-ROM2) (IMMEDIATE-DEPENDENTS0 ADD-0 . PC-READ-MEMP-ROM2) (IMMEDIATE-DEPENDENTS0 SUB-NEG . PC-READ-MEMP-ROM2) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . PC-READ-MEMP-ROM2) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-ADD-NEG . PC-READ-MEMP-ROM2) (IMMEDIATE-DEPENDENTS0 ADD-COMMUTATIVITY . PC-READ-MEMP-ROM2) (IMMEDIATE-DEPENDENTS0 HEAD-PC-READ-MEMP . PC-READ-MEMP-ROM2) (IMMEDIATE-DEPENDENTS0 ADD-ASSOCIATIVITY . PC-READ-MEMP-ROM2) (IMMEDIATE-DEPENDENTS0 PC-READ-MEMP-ROM1 . PC-READ-MEMP-ROM2) (IMMEDIATE-DEPENDENTS0 PC-READ-MEMP . PC-READ-MEMP-ROM2) (IMMEDIATE-DEPENDENTS0 INDEX-N . PC-READ-MEMP-ROM2) (IMMEDIATE-DEPENDENTS0 ADD . PC-READ-MEMP-ROM2) (IMMEDIATE-DEPENDENTS0 ROM-ADDRP . PC-READ-MEMP-ROM2) (LEMMAS PC-READ-MEMP . PC-READ-MEMP-ROM2))))) (PUT1-LST (QUOTE PC-READ-MEMP-ROM1) (QUOTE (IDATE 1000402215022 IMMEDIATE-DEPENDENTS0 (GCD-S-S0-MEM GCD-S-S0-RFILE GCD-S-S0 READ-MEMP-ROM1 PC-READ-MEMP-ROM3 PC-READ-MEMP-ROM2) EVENT (PROVE-LEMMA PC-READ-MEMP-ROM1 (REWRITE) (IMPLIES (AND (ROM-ADDRP ADDR MEM K) (IF (LESSP K (PLUS I J)) (QUOTE *1*FALSE) (QUOTE *1*TRUE))) (PC-READ-MEMP (ADD (QUOTE 32) ADDR I) MEM J))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PC-READ-MEMP-LA3 . PC-READ-MEMP-ROM1) (IMMEDIATE-DEPENDENTS0 ADD . PC-READ-MEMP-ROM1) (IMMEDIATE-DEPENDENTS0 PC-READ-MEMP . PC-READ-MEMP-ROM1) (IMMEDIATE-DEPENDENTS0 ROM-ADDRP . PC-READ-MEMP-ROM1) (LEMMAS PC-READ-MEMP . PC-READ-MEMP-ROM1))))) (PUT1-LST (QUOTE PC-READ-MEMP-ROM0) (QUOTE (IDATE 1000402215022 IMMEDIATE-DEPENDENTS0 (GCD-S-S0-MEM GCD-S-S0-RFILE GCD-S-S0 STEPN-PC-READ-MEM READ-MEMP-ROM1-INT READ-MEMP-ROM0) EVENT (PROVE-LEMMA PC-READ-MEMP-ROM0 (REWRITE) (IMPLIES (AND (ROM-ADDRP ADDR MEM K) (IF (LESSP K J) (QUOTE *1*FALSE) (QUOTE *1*TRUE))) (PC-READ-MEMP ADDR MEM J))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PC-READ-MEMP-LA2 . PC-READ-MEMP-ROM0) (IMMEDIATE-DEPENDENTS0 PC-READ-MEMP . PC-READ-MEMP-ROM0) (IMMEDIATE-DEPENDENTS0 ROM-ADDRP . PC-READ-MEMP-ROM0) (LEMMAS PC-READ-MEMP . PC-READ-MEMP-ROM0))))) (PUT1-LST (QUOTE PC-BYTE-READP-ROM3) (QUOTE (IDATE 1000402215022 IMMEDIATE-DEPENDENTS0 (BYTE-READP-ROM3) EVENT (PROVE-LEMMA PC-BYTE-READP-ROM3 (REWRITE) (IMPLIES (AND (ROM-ADDRP (ADD (QUOTE 32) ADDR I) MEM K) (LESSP (INDEX-N J I) K)) (PC-BYTE-READP (ADD (QUOTE 32) ADDR J) MEM)) ((USE (PC-BYTE-READP-ROM1 (ADDR (ADD (QUOTE 32) ADDR I)) (J (INDEX-N J I)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PC-READ-MEMP-LA2 . PC-BYTE-READP-ROM3) (IMMEDIATE-DEPENDENTS0 SUB-NEG . PC-BYTE-READP-ROM3) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-ADD-NEG . PC-BYTE-READP-ROM3) (IMMEDIATE-DEPENDENTS0 ADD-HEAD . PC-BYTE-READP-ROM3) (IMMEDIATE-DEPENDENTS0 ADD-ASSOCIATIVITY . PC-BYTE-READP-ROM3) (IMMEDIATE-DEPENDENTS0 PC-BYTE-READP-ROM1 . PC-BYTE-READP-ROM3) (IMMEDIATE-DEPENDENTS0 PC-BYTE-READP . PC-BYTE-READP-ROM3) (IMMEDIATE-DEPENDENTS0 INDEX-N . PC-BYTE-READP-ROM3) (IMMEDIATE-DEPENDENTS0 ADD . PC-BYTE-READP-ROM3) (IMMEDIATE-DEPENDENTS0 ROM-ADDRP . PC-BYTE-READP-ROM3) (LEMMAS PC-BYTE-READP . PC-BYTE-READP-ROM3))))) (PUT1-LST (QUOTE PC-BYTE-READP-ROM2) (QUOTE (IDATE 1000402215022 IMMEDIATE-DEPENDENTS0 (BYTE-READP-ROM2) EVENT (PROVE-LEMMA PC-BYTE-READP-ROM2 (REWRITE) (IMPLIES (AND (ROM-ADDRP (ADD (QUOTE 32) ADDR I) MEM K) (LESSP (INDEX-N (QUOTE 0) I) K)) (PC-BYTE-READP ADDR MEM))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-ADD1 . PC-BYTE-READP-ROM2) (IMMEDIATE-DEPENDENTS0 HEAD-PC-BYTE-READP . PC-BYTE-READP-ROM2) (IMMEDIATE-DEPENDENTS0 ADD-COMMUTATIVITY . PC-BYTE-READP-ROM2) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-ADD-NEG . PC-BYTE-READP-ROM2) (IMMEDIATE-DEPENDENTS0 ADD-ASSOCIATIVITY . PC-BYTE-READP-ROM2) (IMMEDIATE-DEPENDENTS0 PC-READ-MEMP . PC-BYTE-READP-ROM2) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . PC-BYTE-READP-ROM2) (IMMEDIATE-DEPENDENTS0 NEG-NAT-RANGEP . PC-BYTE-READP-ROM2) (IMMEDIATE-DEPENDENTS0 HEAD-LEMMA . PC-BYTE-READP-ROM2) (IMMEDIATE-DEPENDENTS0 ADD-0 . PC-BYTE-READP-ROM2) (IMMEDIATE-DEPENDENTS0 SUB-NEG . PC-BYTE-READP-ROM2) (IMMEDIATE-DEPENDENTS0 PC-BYTE-READP . PC-BYTE-READP-ROM2) (IMMEDIATE-DEPENDENTS0 INDEX-N . PC-BYTE-READP-ROM2) (IMMEDIATE-DEPENDENTS0 ADD . PC-BYTE-READP-ROM2) (IMMEDIATE-DEPENDENTS0 ROM-ADDRP . PC-BYTE-READP-ROM2) (LEMMAS PC-BYTE-READP . PC-BYTE-READP-ROM2))))) (PUT1-LST (QUOTE PC-BYTE-READP-ROM1) (QUOTE (IDATE 1000402215022 IMMEDIATE-DEPENDENTS0 (BYTE-READP-ROM1 PC-BYTE-READP-ROM3) EVENT (PROVE-LEMMA PC-BYTE-READP-ROM1 (REWRITE) (IMPLIES (AND (ROM-ADDRP ADDR MEM K) (LESSP J K)) (PC-BYTE-READP (ADD (QUOTE 32) ADDR J) MEM))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PC-READ-MEMP-LA1 . PC-BYTE-READP-ROM1) (IMMEDIATE-DEPENDENTS0 ADD . PC-BYTE-READP-ROM1) (IMMEDIATE-DEPENDENTS0 PC-BYTE-READP . PC-BYTE-READP-ROM1) (IMMEDIATE-DEPENDENTS0 ROM-ADDRP . PC-BYTE-READP-ROM1) (LEMMAS PC-BYTE-READP . PC-BYTE-READP-ROM1))))) (PUT1-LST (QUOTE PC-BYTE-READP-ROM0) (QUOTE (IDATE 1000402215022 IMMEDIATE-DEPENDENTS0 (BYTE-READP-ROM0) EVENT (PROVE-LEMMA PC-BYTE-READP-ROM0 (REWRITE) (IMPLIES (AND (ROM-ADDRP ADDR MEM K) (NOT (ZEROP K))) (PC-BYTE-READP ADDR MEM))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PC-READ-MEMP-LA0 . PC-BYTE-READP-ROM0) (IMMEDIATE-DEPENDENTS0 PC-BYTE-READP . PC-BYTE-READP-ROM0) (IMMEDIATE-DEPENDENTS0 ROM-ADDRP . PC-BYTE-READP-ROM0) (LEMMAS PC-BYTE-READP . PC-BYTE-READP-ROM0))))) (PUT1-LST (QUOTE *1*INDEX-N) (QUOTE (MAIN-EVENT INDEX-N))) (PUT1-LST (QUOTE INDEX-N) (QUOTE (TYPE-PRESCRIPTION-LST ((INDEX-N 4 NIL NIL)) LEMMAS ((REWRITE-RULE INDEX-N-DEDUCTION2 NIL (EQUAL (INDEX-N (ADD (QUOTE 32) Z X) (ADD (QUOTE 32) Z Y)) (INDEX-N X Y)) NIL) (REWRITE-RULE INDEX-N-DEDUCTION1 NIL (EQUAL (INDEX-N Y (ADD (QUOTE 32) Y X)) (INDEX-N (QUOTE 0) X)) NIL) (REWRITE-RULE INDEX-N-DEDUCTION1 NIL (EQUAL (INDEX-N (ADD (QUOTE 32) X Y) X) (INDEX-N Y (QUOTE 0))) NIL) (REWRITE-RULE INDEX-N-DEDUCTION0 NIL (EQUAL (INDEX-N (NEG (QUOTE 32) X) Y) (INDEX-N (QUOTE 0) (ADD (QUOTE 32) X Y))) NIL) (REWRITE-RULE INDEX-N-DEDUCTION0 NIL (EQUAL (INDEX-N X (NEG (QUOTE 32) Y)) (INDEX-N (ADD (QUOTE 32) X Y) (QUOTE 0))) NIL) (REWRITE-RULE INDEX-N-X-X NIL (EQUAL (INDEX-N X X) (QUOTE 0)) NIL) (REWRITE-RULE INDEX-N-0 NIL (EQUAL (INDEX-N (QUOTE 0) X) (NEG (QUOTE 32) X)) NIL) (REWRITE-RULE INDEX-N-0 NIL (EQUAL (INDEX-N X (QUOTE 0)) (HEAD X (QUOTE 32))) NIL)) TOTALP-LST ((INDEX-N . T)) SDEFN (LAMBDA (X Y) (SUB (QUOTE 32) Y X)) LISP-CODE *1*INDEX-N SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402215022 SATELLITES (*1*INDEX-N) IMMEDIATE-DEPENDENTS0 (GCD-CORRECTNESS GCD-S0-S0-RFILE-2 GCD-S0-S0-RFILE-1 GCD-S0-S0-2 GCD-S0-S0-1 GCD-S0-SN-BASE-RFILE-2 GCD-S0-SN-BASE-2 GCD-S0-SN-BASE-RFILE-1 GCD-S0-SN-BASE-1 GCD-S-S0-MEM GCD-S-S0-RFILE GCD-S-S0 RAM-ADDRP-3 DISJOINT-7-UINT DISJOINT-6-UINT DISJOINT-5-UINT STEPN-MCODE-ADDRP INDEX-N-OFF INDEX-N-DEDUCTION2 INDEX-N-DEDUCTION1 INDEX-N-DEDUCTION0 INDEX-N-X-X INDEX-N-0 DISJOINT-11~-ASL DISJOINT-11-ASL DISJOINT-9~-ASL DISJOINT-9-ASL DISJOINT-15~ DISJOINT-14~ DISJOINT-13~ DISJOINT-12~ DISJOINT-11~ DISJOINT-10~ DISJOINT-9~ DISJOINT-8~ DISJOINT-7~ DISJOINT-6~ DISJOINT-5~ DISJOINT-4~ DISJOINT-15 DISJOINT-14 DISJOINT-13 DISJOINT-12 DISJOINT-11 DISJOINT-10 DISJOINT-9 DISJOINT-8 DISJOINT-7 DISJOINT-6 DISJOINT-5 DISJOINT-4 READ-MEM-MCODE3 READ-MEM-MCODE2 PC-READ-MEM-MCODE3 PC-READ-MEM-MCODE2 PC-BYTE-READ-MCODE3 PC-BYTE-READ-MCODE2 READ-MEMP-RAM3 READ-MEMP-RAM2 BYTE-READP-RAM3 BYTE-READP-RAM2 RAM-ADDRP-LA2 WRITE-MEMP-RAM3 WRITE-MEMP-RAM2 BYTE-WRITEP-RAM3 BYTE-WRITEP-RAM2 READ-MEMP-ROM3 READ-MEMP-ROM2 BYTE-READP-ROM3 BYTE-READP-ROM2 ROM-ADDRP-LA2 PC-READ-MEMP-ROM3 PC-READ-MEMP-ROM2 PC-BYTE-READP-ROM3 PC-BYTE-READP-ROM2) EVENT (DEFN INDEX-N (X Y) (SUB (QUOTE 32) Y X)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUB . INDEX-N) (DCELL . *1*INDEX-N))))) (PUT1-LST (QUOTE ADD-PLUS-OFF) (QUOTE (IDATE 1000402215022 EVENT (TOGGLE ADD-PLUS-OFF ADD-PLUS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ADD-PLUS . ADD-PLUS-OFF) (DISABLED-LEMMAS NIL ADD-PLUS ADD-PLUS-OFF . T))))) (PUT1-LST (QUOTE WRITE-MEMP-LA3) (QUOTE (IDATE 1000402215022 IMMEDIATE-DEPENDENTS0 (WRITEM-MEM-H WRITE-MEMP-LA3-OFF WRITEM-MEM-MCODE-ADDRP PC-READ-MEM-WRITEM-MEM RAM-ADDRP-LA2 WRITE-MEMP-RAM1-INT WRITE-MEMP-RAM1) EVENT (PROVE-LEMMA WRITE-MEMP-LA3 (REWRITE) (IMPLIES (AND (WRITE-MEMP ADDR MEM N) (IF (LESSP N (PLUS I J)) (QUOTE *1*FALSE) (QUOTE *1*TRUE))) (WRITE-MEMP (ADD (QUOTE 32) ADDR I) MEM J)) ((INDUCT (WRITE-MEMP ADDR MEM J)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 WRITE-MEMP-LA1 . WRITE-MEMP-LA3) (IMMEDIATE-DEPENDENTS0 ADD-ASSOCIATIVITY . WRITE-MEMP-LA3) (IMMEDIATE-DEPENDENTS0 ADD-PLUS . WRITE-MEMP-LA3) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . WRITE-MEMP-LA3) (IMMEDIATE-DEPENDENTS0 ADD-NON-NUMBERP . WRITE-MEMP-LA3) (IMMEDIATE-DEPENDENTS0 WRITE-MEMP-LA2 . WRITE-MEMP-LA3) (IMMEDIATE-DEPENDENTS0 HEAD-WRITE-MEMP . WRITE-MEMP-LA3) (IMMEDIATE-DEPENDENTS0 ADD . WRITE-MEMP-LA3) (IMMEDIATE-DEPENDENTS0 WRITE-MEMP . WRITE-MEMP-LA3) (LEMMAS WRITE-MEMP . WRITE-MEMP-LA3))))) (PUT1-LST (QUOTE WRITE-MEMP-LA2) (QUOTE (IDATE 1000402215022 IMMEDIATE-DEPENDENTS0 (WRITEM-MEM-H WRITE-MEMP-LA2-OFF WRITEM-MEM-MCODE-ADDRP PC-READ-MEM-WRITEM-MEM RAM-ADDRP-LA2 RAM-ADDRP-LA1 WRITE-MEMP-RAM3 WRITE-MEMP-RAM2 WRITE-MEMP-RAM1-INT WRITE-MEMP-RAM0 BYTE-WRITEP-RAM3 WRITE-MEMP-LA3) EVENT (PROVE-LEMMA WRITE-MEMP-LA2 (REWRITE) (IMPLIES (AND (WRITE-MEMP ADDR MEM N) (IF (LESSP N M) (QUOTE *1*FALSE) (QUOTE *1*TRUE))) (WRITE-MEMP ADDR MEM M)) ((USE (WRITE-MEMP-LA1 (M (SUB1 M)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUB1-OF-1 . WRITE-MEMP-LA2) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . WRITE-MEMP-LA2) (IMMEDIATE-DEPENDENTS0 LESSP-OF-1 . WRITE-MEMP-LA2) (IMMEDIATE-DEPENDENTS0 WRITE-MEMP-LA1 . WRITE-MEMP-LA2) (IMMEDIATE-DEPENDENTS0 WRITE-MEMP . WRITE-MEMP-LA2) (LEMMAS WRITE-MEMP . WRITE-MEMP-LA2))))) (PUT1-LST (QUOTE WRITE-MEMP-LA1) (QUOTE (IDATE 1000402215022 IMMEDIATE-DEPENDENTS0 (WRITE-MEMP-LA1-OFF BYTE-WRITEP-RAM1 WRITE-MEMP-LA3 WRITE-MEMP-LA2) EVENT (PROVE-LEMMA WRITE-MEMP-LA1 (REWRITE) (IMPLIES (AND (WRITE-MEMP ADDR MEM N) (LESSP M N)) (BYTE-WRITEP (ADD (QUOTE 32) ADDR M) MEM))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-ADD1 . WRITE-MEMP-LA1) (IMMEDIATE-DEPENDENTS0 LESSP-OF-1 . WRITE-MEMP-LA1) (IMMEDIATE-DEPENDENTS0 ADD-NON-NUMBERP . WRITE-MEMP-LA1) (IMMEDIATE-DEPENDENTS0 WRITE-MEMP-LA0 . WRITE-MEMP-LA1) (IMMEDIATE-DEPENDENTS0 HEAD-BYTE-WRITEP . WRITE-MEMP-LA1) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . WRITE-MEMP-LA1) (IMMEDIATE-DEPENDENTS0 ADD . WRITE-MEMP-LA1) (IMMEDIATE-DEPENDENTS0 BYTE-WRITEP . WRITE-MEMP-LA1) (IMMEDIATE-DEPENDENTS0 WRITE-MEMP . WRITE-MEMP-LA1) (LEMMAS BYTE-WRITEP . WRITE-MEMP-LA1))))) (PUT1-LST (QUOTE WRITE-MEMP-LA0) (QUOTE (IDATE 1000402215022 IMMEDIATE-DEPENDENTS0 (WRITE-MEMP-LA0-OFF BYTE-WRITEP-RAM0 WRITE-MEMP-LA1) EVENT (PROVE-LEMMA WRITE-MEMP-LA0 (REWRITE) (IMPLIES (AND (WRITE-MEMP ADDR MEM N) (NOT (ZEROP N))) (BYTE-WRITEP ADDR MEM))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUB1-OF-1 . WRITE-MEMP-LA0) (IMMEDIATE-DEPENDENTS0 HEAD-BYTE-WRITEP . WRITE-MEMP-LA0) (IMMEDIATE-DEPENDENTS0 ADD-COMMUTATIVITY . WRITE-MEMP-LA0) (IMMEDIATE-DEPENDENTS0 ADD-0 . WRITE-MEMP-LA0) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . WRITE-MEMP-LA0) (IMMEDIATE-DEPENDENTS0 BYTE-WRITEP . WRITE-MEMP-LA0) (IMMEDIATE-DEPENDENTS0 WRITE-MEMP . WRITE-MEMP-LA0) (LEMMAS BYTE-WRITEP . WRITE-MEMP-LA0))))) (PUT1-LST (QUOTE PC-READ-MEMP-LA3) (QUOTE (IDATE 1000402215022 IMMEDIATE-DEPENDENTS0 (PC-READ-MEMP-LA3-OFF WRITE-MEM-MCODE-ADDRP BYTE-WRITE-MCODE-ADDRP ROM-ADDRP-LA2 PC-READ-MEMP-ROM1) EVENT (PROVE-LEMMA PC-READ-MEMP-LA3 (REWRITE) (IMPLIES (AND (PC-READ-MEMP ADDR MEM K) (IF (LESSP K (PLUS I J)) (QUOTE *1*FALSE) (QUOTE *1*TRUE))) (PC-READ-MEMP (ADD (QUOTE 32) ADDR I) MEM J)) ((INDUCT (PC-READ-MEMP ADDR MEM J)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PC-READ-MEMP-LA1 . PC-READ-MEMP-LA3) (IMMEDIATE-DEPENDENTS0 ADD-ASSOCIATIVITY . PC-READ-MEMP-LA3) (IMMEDIATE-DEPENDENTS0 ADD-PLUS . PC-READ-MEMP-LA3) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . PC-READ-MEMP-LA3) (IMMEDIATE-DEPENDENTS0 ADD-NON-NUMBERP . PC-READ-MEMP-LA3) (IMMEDIATE-DEPENDENTS0 PC-READ-MEMP-LA2 . PC-READ-MEMP-LA3) (IMMEDIATE-DEPENDENTS0 HEAD-PC-READ-MEMP . PC-READ-MEMP-LA3) (IMMEDIATE-DEPENDENTS0 ADD . PC-READ-MEMP-LA3) (IMMEDIATE-DEPENDENTS0 PC-READ-MEMP . PC-READ-MEMP-LA3) (LEMMAS PC-READ-MEMP . PC-READ-MEMP-LA3))))) (PUT1-LST (QUOTE PC-READ-MEMP-LA2) (QUOTE (IDATE 1000402215022 IMMEDIATE-DEPENDENTS0 (PC-READ-MEMP-LA2-OFF WRITEM-MEM-MCODE-ADDRP PC-READ-MEM-WRITEM-MEM ROM-ADDRP-LA2 ROM-ADDRP-LA1 PC-READ-MEMP-ROM3 PC-READ-MEMP-ROM2 PC-READ-MEMP-ROM0 PC-BYTE-READP-ROM3 PC-READ-MEMP-LA3) EVENT (PROVE-LEMMA PC-READ-MEMP-LA2 (REWRITE) (IMPLIES (AND (PC-READ-MEMP ADDR MEM K) (IF (LESSP K J) (QUOTE *1*FALSE) (QUOTE *1*TRUE))) (PC-READ-MEMP ADDR MEM J)) ((USE (PC-READ-MEMP-LA1 (J (SUB1 J)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUB1-OF-1 . PC-READ-MEMP-LA2) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . PC-READ-MEMP-LA2) (IMMEDIATE-DEPENDENTS0 LESSP-OF-1 . PC-READ-MEMP-LA2) (IMMEDIATE-DEPENDENTS0 PC-READ-MEMP-LA1 . PC-READ-MEMP-LA2) (IMMEDIATE-DEPENDENTS0 PC-READ-MEMP . PC-READ-MEMP-LA2) (LEMMAS PC-READ-MEMP . PC-READ-MEMP-LA2))))) (PUT1-LST (QUOTE PC-READ-MEMP-LA1) (QUOTE (IDATE 1000402215022 IMMEDIATE-DEPENDENTS0 (PC-READ-MEMP-LA1-OFF PC-BYTE-READP-ROM1 PC-READ-MEMP-LA3 PC-READ-MEMP-LA2) EVENT (PROVE-LEMMA PC-READ-MEMP-LA1 (REWRITE) (IMPLIES (AND (PC-READ-MEMP ADDR MEM K) (LESSP J K)) (PC-BYTE-READP (ADD (QUOTE 32) ADDR J) MEM))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-ADD1 . PC-READ-MEMP-LA1) (IMMEDIATE-DEPENDENTS0 LESSP-OF-1 . PC-READ-MEMP-LA1) (IMMEDIATE-DEPENDENTS0 ADD-NON-NUMBERP . PC-READ-MEMP-LA1) (IMMEDIATE-DEPENDENTS0 PC-READ-MEMP-LA0 . PC-READ-MEMP-LA1) (IMMEDIATE-DEPENDENTS0 HEAD-PC-BYTE-READP . PC-READ-MEMP-LA1) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . PC-READ-MEMP-LA1) (IMMEDIATE-DEPENDENTS0 ADD . PC-READ-MEMP-LA1) (IMMEDIATE-DEPENDENTS0 PC-BYTE-READP . PC-READ-MEMP-LA1) (IMMEDIATE-DEPENDENTS0 PC-READ-MEMP . PC-READ-MEMP-LA1) (LEMMAS PC-BYTE-READP . PC-READ-MEMP-LA1))))) (PUT1-LST (QUOTE PC-READ-MEMP-LA0) (QUOTE (IDATE 1000402215022 IMMEDIATE-DEPENDENTS0 (PC-READ-MEMP-LA0-OFF WRITE-MEM-MCODE-ADDRP BYTE-WRITE-MCODE-ADDRP PC-BYTE-READP-ROM0 PC-READ-MEMP-LA1) EVENT (PROVE-LEMMA PC-READ-MEMP-LA0 (REWRITE) (IMPLIES (AND (PC-READ-MEMP ADDR MEM K) (NOT (ZEROP K))) (PC-BYTE-READP ADDR MEM))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUB1-OF-1 . PC-READ-MEMP-LA0) (IMMEDIATE-DEPENDENTS0 HEAD-PC-BYTE-READP . PC-READ-MEMP-LA0) (IMMEDIATE-DEPENDENTS0 ADD-COMMUTATIVITY . PC-READ-MEMP-LA0) (IMMEDIATE-DEPENDENTS0 ADD-0 . PC-READ-MEMP-LA0) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . PC-READ-MEMP-LA0) (IMMEDIATE-DEPENDENTS0 PC-BYTE-READP . PC-READ-MEMP-LA0) (IMMEDIATE-DEPENDENTS0 PC-READ-MEMP . PC-READ-MEMP-LA0) (LEMMAS PC-BYTE-READP . PC-READ-MEMP-LA0))))) (PUT1-LST (QUOTE ADD-PLUS) (QUOTE (IDATE 1000402215022 IMMEDIATE-DEPENDENTS0 (READ-MEM-PLUS MEM-LST-PLUS WRITE-MEM-ILST MEM-LST-PUT-VALS MEM-LST-PUT-LST WRITE-MEM-LST-LA READ-MEM-ILST-INT READ-MEM-ILST MEM-LST-GET-VALS MEM-LST-GET-LST READ-MEM-LST-LA DISJOINT-LA3 DISJOINT-LA2 DISJOINT0-LA2 PC-READ-MEM-MCODE1 PC-BYTE-READ-MCODE1 ADD-PLUS-OFF WRITE-MEMP-LA3 PC-READ-MEMP-LA3) EVENT (PROVE-LEMMA ADD-PLUS (REWRITE) (EQUAL (ADD N X (ADD N Y Z)) (ADD N X (PLUS Y Z))) ((ENABLE ADD))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 HEAD-PLUS-CANCEL . ADD-PLUS) (IMMEDIATE-DEPENDENTS0 HEAD-PLUS-HEAD . ADD-PLUS) (IMMEDIATE-DEPENDENTS0 ADD . ADD-PLUS) (LEMMAS ADD . ADD-PLUS))))) (PUT1-LST (QUOTE ADD-NON-NUMBERP) (QUOTE (IDATE 1000402215022 IMMEDIATE-DEPENDENTS0 (ADD-NON-NUMBERP-OFF MEM-LST-MCDR-UINT-1 MEM-LST-MCDR-UINT WRITE-MEM-ILST-INT WRITE-MEM-LST-INT READ-MEM-ILST-INT READ-MEM-ILST READ-MEM-LST-INT READ-MEM-LST MEM-LST-GET-VALS MEM-LST-GET-LST READ-MEM-LST-LA MEM-LST-NON-NUMBERP DISJOINT-LA3 DISJOINT-LA2 DISJOINT-LA0 DISJOINT0-LA2 DISJOINT0-LA0 READ-MEM-MCODE1-INT PC-READ-MEM-MCODE1 PC-BYTE-READ-MCODE1 READ-MEMP-RAM1-INT WRITE-MEMP-RAM1-INT READ-MEMP-ROM1-INT WRITE-MEMP-LA3 WRITE-MEMP-LA1 PC-READ-MEMP-LA3 PC-READ-MEMP-LA1) EVENT (PROVE-LEMMA ADD-NON-NUMBERP (REWRITE) (IMPLIES (NOT (NUMBERP I)) (EQUAL (ADD N X I) (HEAD X N))) ((ENABLE ADD HEAD))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-0 . ADD-NON-NUMBERP) (IMMEDIATE-DEPENDENTS0 EXP-OF-2-0 . ADD-NON-NUMBERP) (IMMEDIATE-DEPENDENTS0 REMAINDER-EXIT . ADD-NON-NUMBERP) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . ADD-NON-NUMBERP) (IMMEDIATE-DEPENDENTS0 HEAD . ADD-NON-NUMBERP) (IMMEDIATE-DEPENDENTS0 ADD . ADD-NON-NUMBERP) (LEMMAS ADD . ADD-NON-NUMBERP))))) (PUT1-LST (QUOTE *1*MCODE-ADDRP) (QUOTE (MAIN-EVENT MCODE-ADDRP))) (PUT1-LST (QUOTE MCODE-ADDRP) (QUOTE (TYPE-PRESCRIPTION-LST ((MCODE-ADDRP 3 NIL NIL NIL)) LEMMAS ((REWRITE-RULE STEPN-MCODE-ADDRP ((ROM-ADDRP X (MC-MEM S) (LEN LST))) (EQUAL (MCODE-ADDRP X (MC-MEM (STEPN S N)) LST) (MCODE-ADDRP X (MC-MEM S) LST)) NIL) (REWRITE-RULE WRITEM-MEM-MCODE-ADDRP ((PC-READ-MEMP PC MEM (LEN LST)) (WRITE-MEMP ADDR MEM (TIMES OPSZ (LEN VLST)))) (EQUAL (MCODE-ADDRP PC (WRITEM-MEM OPSZ VLST ADDR MEM) LST) (MCODE-ADDRP PC MEM LST)) NIL) (REWRITE-RULE WRITE-MEM-MCODE-ADDRP ((PC-READ-MEMP PC MEM (LEN LST)) (WRITE-MEMP X MEM N)) (EQUAL (MCODE-ADDRP PC (WRITE-MEM VALUE X MEM N) LST) (MCODE-ADDRP PC MEM LST)) NIL) (REWRITE-RULE BYTE-WRITE-MCODE-ADDRP ((PC-READ-MEMP PC MEM (LEN LST)) (BYTE-WRITEP X MEM)) (EQUAL (MCODE-ADDRP PC (BYTE-WRITE VALUE X MEM) LST) (MCODE-ADDRP PC MEM LST)) NIL)) TOTALP-LST ((MCODE-ADDRP . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE UNCHANGING SELF-REFLEXIVE) SDEFN (LAMBDA (ADDR MEM LST) (IF (LISTP LST) (IF (EQUAL (CAR LST) (QUOTE -1)) (MCODE-ADDRP (ADD (QUOTE 32) ADDR (QUOTE 1)) MEM (CDR LST)) (IF (EQUAL (PC-BYTE-READ ADDR MEM) (CAR LST)) (IF (MCODE-ADDRP (ADD (QUOTE 32) ADDR (QUOTE 1)) MEM (CDR LST)) (QUOTE *1*TRUE) (QUOTE *1*FALSE)) (QUOTE *1*FALSE))) (QUOTE *1*TRUE))) LISP-CODE *1*MCODE-ADDRP SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((LISTP LST) (EQUAL (CAR LST) (QUOTE -1))) (((ADD (QUOTE 32) ADDR (QUOTE 1)) MEM (CDR LST)))) (TESTS-AND-CASES ((LISTP LST) (NOT (EQUAL (CAR LST) (QUOTE -1)))) (((ADD (QUOTE 32) ADDR (QUOTE 1)) MEM (CDR LST)))) (TESTS-AND-CASES ((NOT (LISTP LST))) NIL)) LEVEL-NO 5 JUSTIFICATIONS ((JUSTIFICATION (LST) (COUNT LST) LESSP (ZERO CDR-LESSP))) IDATE 1000402215022 CONTROLLER-POCKETS (4) SATELLITES (*1*MCODE-ADDRP) IMMEDIATE-DEPENDENTS0 (GCD-S0P GCD-STATEP GCD-LOAD MCODE-ADDRP-OFF STEPN-MCODE-ADDRP WRITEM-MEM-MCODE-ADDRP WRITE-MEM-MCODE-ADDRP BYTE-WRITE-MCODE-ADDRP READ-MEM-MCODE3 READ-MEM-MCODE2 READ-MEM-MCODE1-INT PC-READ-MEM-MCODE3 PC-READ-MEM-MCODE2 PC-READ-MEM-MCODE1 PC-READ-MEM-MCODE0 PC-BYTE-READ-MCODE3 PC-BYTE-READ-MCODE2 PC-BYTE-READ-MCODE1 PC-BYTE-READ-MCODE0) EVENT (DEFN MCODE-ADDRP (ADDR MEM LST) (IF (LISTP LST) (IF (EQUAL (CAR LST) (QUOTE -1)) (MCODE-ADDRP (ADD (QUOTE 32) ADDR (QUOTE 1)) MEM (CDR LST)) (AND (EQUAL (PC-BYTE-READ ADDR MEM) (CAR LST)) (MCODE-ADDRP (ADD (QUOTE 32) ADDR (QUOTE 1)) MEM (CDR LST)))) (QUOTE *1*TRUE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PC-BYTE-READ . MCODE-ADDRP) (IMMEDIATE-DEPENDENTS0 ADD . MCODE-ADDRP) (DCELL . *1*MCODE-ADDRP))))) (PUT1-LST (QUOTE WRITE-MEM-MAINTAIN-RAM-ADDRP) (QUOTE (IDATE 1000402215022 IMMEDIATE-DEPENDENTS0 (GCD-S-S0 WRITEM-MEM-MAINTAIN-RAM-ADDRP) EVENT (PROVE-LEMMA WRITE-MEM-MAINTAIN-RAM-ADDRP (REWRITE) (EQUAL (RAM-ADDRP ADDR (WRITE-MEM VALUE X MEM M) N) (RAM-ADDRP ADDR MEM N))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 WRITE-MEM-MAINTAIN-WRITE-MEMP . WRITE-MEM-MAINTAIN-RAM-ADDRP) (IMMEDIATE-DEPENDENTS0 WRITE-MEM . WRITE-MEM-MAINTAIN-RAM-ADDRP) (IMMEDIATE-DEPENDENTS0 RAM-ADDRP . WRITE-MEM-MAINTAIN-RAM-ADDRP) (LEMMAS RAM-ADDRP . WRITE-MEM-MAINTAIN-RAM-ADDRP))))) (PUT1-LST (QUOTE BYTE-WRITE-MAINTAIN-RAM-ADDRP) (QUOTE (IDATE 1000402215022 EVENT (PROVE-LEMMA BYTE-WRITE-MAINTAIN-RAM-ADDRP (REWRITE) (EQUAL (RAM-ADDRP ADDR (BYTE-WRITE VALUE X MEM) N) (RAM-ADDRP ADDR MEM N))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BYTE-WRITE-MAINTAIN-WRITE-MEMP . BYTE-WRITE-MAINTAIN-RAM-ADDRP) (IMMEDIATE-DEPENDENTS0 BYTE-WRITE . BYTE-WRITE-MAINTAIN-RAM-ADDRP) (IMMEDIATE-DEPENDENTS0 RAM-ADDRP . BYTE-WRITE-MAINTAIN-RAM-ADDRP) (LEMMAS RAM-ADDRP . BYTE-WRITE-MAINTAIN-RAM-ADDRP))))) (PUT1-LST (QUOTE WRITE-MEM-MAINTAIN-ROM-ADDRP) (QUOTE (IDATE 1000402215022 IMMEDIATE-DEPENDENTS0 (GCD-S-S0 STEPN-PC-READ-MEM H-INVARIANT WRITEM-MEM-MAINTAIN-ROM-ADDRP) EVENT (PROVE-LEMMA WRITE-MEM-MAINTAIN-ROM-ADDRP (REWRITE) (EQUAL (ROM-ADDRP ADDR (WRITE-MEM VALUE X MEM M) N) (ROM-ADDRP ADDR MEM N))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 WRITE-MEM-MAINTAIN-PC-READ-MEMP . WRITE-MEM-MAINTAIN-ROM-ADDRP) (IMMEDIATE-DEPENDENTS0 WRITE-MEM . WRITE-MEM-MAINTAIN-ROM-ADDRP) (IMMEDIATE-DEPENDENTS0 ROM-ADDRP . WRITE-MEM-MAINTAIN-ROM-ADDRP) (LEMMAS ROM-ADDRP . WRITE-MEM-MAINTAIN-ROM-ADDRP))))) (PUT1-LST (QUOTE BYTE-WRITE-MAINTAIN-ROM-ADDRP) (QUOTE (IDATE 1000402215022 EVENT (PROVE-LEMMA BYTE-WRITE-MAINTAIN-ROM-ADDRP (REWRITE) (EQUAL (ROM-ADDRP ADDR (BYTE-WRITE VALUE X MEM) N) (ROM-ADDRP ADDR MEM N))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BYTE-WRITE-MAINTAIN-PC-READ-MEMP . BYTE-WRITE-MAINTAIN-ROM-ADDRP) (IMMEDIATE-DEPENDENTS0 BYTE-WRITE . BYTE-WRITE-MAINTAIN-ROM-ADDRP) (IMMEDIATE-DEPENDENTS0 ROM-ADDRP . BYTE-WRITE-MAINTAIN-ROM-ADDRP) (LEMMAS ROM-ADDRP . BYTE-WRITE-MAINTAIN-ROM-ADDRP))))) (PUT1-LST (QUOTE STEPN-REWRITER) (QUOTE (IDATE 1000402215022 IMMEDIATE-DEPENDENTS0 (GCD-S0-S0-RFILE-2 GCD-S0-S0-RFILE-1 GCD-S0-S0-2 GCD-S0-S0-1 GCD-S0-SN-BASE-RFILE-2 GCD-S0-SN-BASE-2 GCD-S0-SN-BASE-RFILE-1 GCD-S0-SN-BASE-1 GCD-S-S0-MEM GCD-S-S0-RFILE GCD-S-S0) EVENT (PROVE-LEMMA STEPN-REWRITER (REWRITE) (IMPLIES (EQUAL (MC-STATUS S) (QUOTE RUNNING)) (EQUAL (STEPN S (ADD1 N)) (STEPN (STEPI S) N))) ((DISABLE STEPI))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 STEPN-REWRITER0 . STEPN-REWRITER) (IMMEDIATE-DEPENDENTS0 MC-HALTP . STEPN-REWRITER) (IMMEDIATE-DEPENDENTS0 STEPI . STEPN-REWRITER) (IMMEDIATE-DEPENDENTS0 STEPN . STEPN-REWRITER) (IMMEDIATE-DEPENDENTS0 MC-STATUS . STEPN-REWRITER) (LEMMAS STEPN . STEPN-REWRITER))))) (PUT1-LST (QUOTE STEPN-REWRITER0) (QUOTE (IDATE 1000402215022 IMMEDIATE-DEPENDENTS0 (GCD-S0-S0-RFILE-2 GCD-S0-S0-RFILE-1 GCD-S0-S0-2 GCD-S0-S0-1 GCD-S0-SN-BASE-RFILE-2 GCD-S0-SN-BASE-2 GCD-S0-SN-BASE-RFILE-1 GCD-S0-SN-BASE-1 GCD-S-S0-MEM GCD-S-S0-RFILE GCD-S-S0 STEPN-H STEPN-REWRITER) EVENT (PROVE-LEMMA STEPN-REWRITER0 (REWRITE) (EQUAL (STEPN S (QUOTE 0)) S)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MC-HALTP . STEPN-REWRITER0) (IMMEDIATE-DEPENDENTS0 STEPN . STEPN-REWRITER0) (LEMMAS STEPN . STEPN-REWRITER0))))) (PUT1-LST (QUOTE STEPN-LEMMA) (QUOTE (IDATE 1000402215022 IMMEDIATE-DEPENDENTS0 (GCD-CORRECTNESS GCD-S0-SN-RFILE GCD-S0-SN) EVENT (PROVE-LEMMA STEPN-LEMMA (REWRITE) (EQUAL (STEPN S (SPLUS M N)) (STEPN (STEPN S M) N)) ((DISABLE STEPI))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MC-HALTP . STEPN-LEMMA) (IMMEDIATE-DEPENDENTS0 SPLUS . STEPN-LEMMA) (IMMEDIATE-DEPENDENTS0 STEPN . STEPN-LEMMA) (LEMMAS STEPN . STEPN-LEMMA))))) (PUT1-LST (QUOTE *1*SPLUS) (QUOTE (MAIN-EVENT SPLUS))) (PUT1-LST (QUOTE SPLUS) (QUOTE (TYPE-PRESCRIPTION-LST ((SPLUS 4 NIL NIL)) TOTALP-LST ((SPLUS . T)) SDEFN (LAMBDA (X Y) (PLUS X Y)) LISP-CODE *1*SPLUS SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402215022 SATELLITES (*1*SPLUS) IMMEDIATE-DEPENDENTS0 (GCD-T-UB GCD-T1-T2 GCD-T GCD-T1 SPLUS-OFF STEPN-LEMMA) EVENT (DEFN SPLUS (X Y) (PLUS X Y)) LOCAL-UNDO-TUPLES ((DCELL . *1*SPLUS))))) (PUT1-LST (QUOTE NAT-TO-INT=-OFF) (QUOTE (IDATE 1000402215022 EVENT (TOGGLE NAT-TO-INT=-OFF NAT-TO-INT= T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NAT-TO-INT= . NAT-TO-INT=-OFF) (DISABLED-LEMMAS NIL NAT-TO-INT= NAT-TO-INT=-OFF . T))))) (PUT1-LST (QUOTE ADD-BMI-CROCK2-OFF) (QUOTE (IDATE 1000402215022 EVENT (TOGGLE ADD-BMI-CROCK2-OFF ADD-BMI-CROCK2 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ADD-BMI-CROCK2 . ADD-BMI-CROCK2-OFF) (DISABLED-LEMMAS NIL ADD-BMI-CROCK2 ADD-BMI-CROCK2-OFF . T))))) (PUT1-LST (QUOTE ADD-BMI-CROCK1-OFF) (QUOTE (IDATE 1000402215022 EVENT (TOGGLE ADD-BMI-CROCK1-OFF ADD-BMI-CROCK1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ADD-BMI-CROCK1 . ADD-BMI-CROCK1-OFF) (DISABLED-LEMMAS NIL ADD-BMI-CROCK1 ADD-BMI-CROCK1-OFF . T))))) (PUT1-LST (QUOTE ILESSP-CROCK2-OFF) (QUOTE (IDATE 1000402215022 EVENT (TOGGLE ILESSP-CROCK2-OFF ILESSP-CROCK2 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ILESSP-CROCK2 . ILESSP-CROCK2-OFF) (DISABLED-LEMMAS NIL ILESSP-CROCK2 ILESSP-CROCK2-OFF . T))))) (PUT1-LST (QUOTE ILESSP-CROCK1-OFF) (QUOTE (IDATE 1000402215022 EVENT (TOGGLE ILESSP-CROCK1-OFF ILESSP-CROCK1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ILESSP-CROCK1 . ILESSP-CROCK1-OFF) (DISABLED-LEMMAS NIL ILESSP-CROCK1 ILESSP-CROCK1-OFF . T))))) (PUT1-LST (QUOTE SUB-Z-LA1-OFF) (QUOTE (IDATE 1000402215022 EVENT (TOGGLE SUB-Z-LA1-OFF SUB-Z-LA1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUB-Z-LA1 . SUB-Z-LA1-OFF) (DISABLED-LEMMAS NIL SUB-Z-LA1 SUB-Z-LA1-OFF . T))))) (PUT1-LST (QUOTE SUB-Z-LA-OFF) (QUOTE (IDATE 1000402215022 EVENT (TOGGLE SUB-Z-LA-OFF SUB-Z-LA T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUB-Z-LA . SUB-Z-LA-OFF) (DISABLED-LEMMAS NIL SUB-Z-LA SUB-Z-LA-OFF . T))))) (PUT1-LST (QUOTE SUBX-V-LA-OFF) (QUOTE (IDATE 1000402215022 EVENT (TOGGLE SUBX-V-LA-OFF SUBX-V-LA T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUBX-V-LA . SUBX-V-LA-OFF) (DISABLED-LEMMAS NIL SUBX-V-LA SUBX-V-LA-OFF . T))))) (PUT1-LST (QUOTE ADDX-V-LA-OFF) (QUOTE (IDATE 1000402215022 EVENT (TOGGLE ADDX-V-LA-OFF ADDX-V-LA T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ADDX-V-LA . ADDX-V-LA-OFF) (DISABLED-LEMMAS NIL ADDX-V-LA ADDX-V-LA-OFF . T))))) (PUT1-LST (QUOTE SUB-SUBX-V-OFF) (QUOTE (IDATE 1000402215022 EVENT (TOGGLE SUB-SUBX-V-OFF SUB-SUBX-V T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUB-SUBX-V . SUB-SUBX-V-OFF) (DISABLED-LEMMAS NIL SUB-SUBX-V SUB-SUBX-V-OFF . T))))) (PUT1-LST (QUOTE SUBX-ADDX-V-OFF) (QUOTE (IDATE 1000402215022 EVENT (TOGGLE SUBX-ADDX-V-OFF SUBX-ADDX-V T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUBX-ADDX-V . SUBX-ADDX-V-OFF) (DISABLED-LEMMAS NIL SUBX-ADDX-V SUBX-ADDX-V-OFF . T))))) (PUT1-LST (QUOTE ADD-ADDX-V-OFF) (QUOTE (IDATE 1000402215022 EVENT (TOGGLE ADD-ADDX-V-OFF ADD-ADDX-V T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ADD-ADDX-V . ADD-ADDX-V-OFF) (DISABLED-LEMMAS NIL ADD-ADDX-V ADD-ADDX-V-OFF . T))))) (PUT1-LST (QUOTE SUBX-C-LA-OFF) (QUOTE (IDATE 1000402215022 EVENT (TOGGLE SUBX-C-LA-OFF SUBX-C-LA T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUBX-C-LA . SUBX-C-LA-OFF) (DISABLED-LEMMAS NIL SUBX-C-LA SUBX-C-LA-OFF . T))))) (PUT1-LST (QUOTE ADDX-C-LA-OFF) (QUOTE (IDATE 1000402215022 EVENT (TOGGLE ADDX-C-LA-OFF ADDX-C-LA T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ADDX-C-LA . ADDX-C-LA-OFF) (DISABLED-LEMMAS NIL ADDX-C-LA ADDX-C-LA-OFF . T))))) (PUT1-LST (QUOTE SUB-SUBX-C-OFF) (QUOTE (IDATE 1000402215022 EVENT (TOGGLE SUB-SUBX-C-OFF SUB-SUBX-C T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUB-SUBX-C . SUB-SUBX-C-OFF) (DISABLED-LEMMAS NIL SUB-SUBX-C SUB-SUBX-C-OFF . T))))) (PUT1-LST (QUOTE ADD-ADDX-C-OFF) (QUOTE (IDATE 1000402215022 EVENT (TOGGLE ADD-ADDX-C-OFF ADD-ADDX-C T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ADD-ADDX-C . ADD-ADDX-C-OFF) (DISABLED-LEMMAS NIL ADD-ADDX-C ADD-ADDX-C-OFF . T))))) (PUT1-LST (QUOTE BMI-OFF) (QUOTE (IDATE 1000402215022 EVENT (TOGGLE BMI-OFF BMI T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BMI . BMI-OFF) (DISABLED-LEMMAS NIL BMI BMI-OFF . T))))) (PUT1-LST (QUOTE MBIT-MEANS-NEGATIVEP-OFF) (QUOTE (IDATE 1000402215022 EVENT (TOGGLE MBIT-MEANS-NEGATIVEP-OFF MBIT-MEANS-NEGATIVEP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MBIT-MEANS-NEGATIVEP . MBIT-MEANS-NEGATIVEP-OFF) (DISABLED-LEMMAS NIL MBIT-MEANS-NEGATIVEP MBIT-MEANS-NEGATIVEP-OFF . T))))) (PUT1-LST (QUOTE BGT-OFF) (QUOTE (IDATE 1000402215022 EVENT (TOGGLE BGT-OFF BGT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BGT . BGT-OFF) (DISABLED-LEMMAS NIL BGT BGT-OFF . T))))) (PUT1-LST (QUOTE BLE-OFF) (QUOTE (IDATE 1000402215022 EVENT (TOGGLE BLE-OFF BLE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BLE . BLE-OFF) (DISABLED-LEMMAS NIL BLE BLE-OFF . T))))) (PUT1-LST (QUOTE BLE-BGT) (QUOTE (IDATE 1000402215022 EVENT (PROVE-LEMMA BLE-BGT (REWRITE) (EQUAL (BLE V Z N) (B-NOT (BGT V Z N)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-OR . BLE-BGT) (IMMEDIATE-DEPENDENTS0 B-AND . BLE-BGT) (IMMEDIATE-DEPENDENTS0 B0 . BLE-BGT) (IMMEDIATE-DEPENDENTS0 B0P . BLE-BGT) (IMMEDIATE-DEPENDENTS0 B1 . BLE-BGT) (IMMEDIATE-DEPENDENTS0 BGT . BLE-BGT) (IMMEDIATE-DEPENDENTS0 B-NOT . BLE-BGT) (IMMEDIATE-DEPENDENTS0 BLE . BLE-BGT) (LEMMAS BLE . BLE-BGT))))) (PUT1-LST (QUOTE MOVE-BLE) (QUOTE (IDATE 1000402215022 EVENT (PROVE-LEMMA MOVE-BLE (REWRITE) (IMPLIES (NAT-RANGEP X N) (EQUAL (BLE (QUOTE 0) (MOVE-Z N X) (MOVE-N N X)) (IF (LESSP (QUOTE 0) (NAT-TO-INT X N)) (QUOTE 0) (QUOTE 1)))) ((ENABLE NAT-TO-INT))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B0 . MOVE-BLE) (IMMEDIATE-DEPENDENTS0 B1 . MOVE-BLE) (IMMEDIATE-DEPENDENTS0 HEAD-LEMMA . MOVE-BLE) (IMMEDIATE-DEPENDENTS0 MBIT-MEANS-NEGATIVEP . MOVE-BLE) (IMMEDIATE-DEPENDENTS0 B-OR . MOVE-BLE) (IMMEDIATE-DEPENDENTS0 B-AND . MOVE-BLE) (IMMEDIATE-DEPENDENTS0 B0P . MOVE-BLE) (IMMEDIATE-DEPENDENTS0 B-NOT . MOVE-BLE) (IMMEDIATE-DEPENDENTS0 MBIT . MOVE-BLE) (IMMEDIATE-DEPENDENTS0 NAT-TO-INT . MOVE-BLE) (IMMEDIATE-DEPENDENTS0 MOVE-N . MOVE-BLE) (IMMEDIATE-DEPENDENTS0 MOVE-Z . MOVE-BLE) (IMMEDIATE-DEPENDENTS0 BLE . MOVE-BLE) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . MOVE-BLE) (LEMMAS BLE . MOVE-BLE))))) (PUT1-LST (QUOTE MOVE-BGT) (QUOTE (IDATE 1000402215022 EVENT (PROVE-LEMMA MOVE-BGT (REWRITE) (IMPLIES (NAT-RANGEP X N) (EQUAL (BGT (QUOTE 0) (MOVE-Z N X) (MOVE-N N X)) (IF (LESSP (QUOTE 0) (NAT-TO-INT X N)) (QUOTE 1) (QUOTE 0)))) ((ENABLE NAT-TO-INT))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B0 . MOVE-BGT) (IMMEDIATE-DEPENDENTS0 B1 . MOVE-BGT) (IMMEDIATE-DEPENDENTS0 HEAD-LEMMA . MOVE-BGT) (IMMEDIATE-DEPENDENTS0 MBIT-MEANS-NEGATIVEP . MOVE-BGT) (IMMEDIATE-DEPENDENTS0 B-OR . MOVE-BGT) (IMMEDIATE-DEPENDENTS0 B-NOT . MOVE-BGT) (IMMEDIATE-DEPENDENTS0 B-AND . MOVE-BGT) (IMMEDIATE-DEPENDENTS0 B0P . MOVE-BGT) (IMMEDIATE-DEPENDENTS0 MBIT . MOVE-BGT) (IMMEDIATE-DEPENDENTS0 NAT-TO-INT . MOVE-BGT) (IMMEDIATE-DEPENDENTS0 MOVE-N . MOVE-BGT) (IMMEDIATE-DEPENDENTS0 MOVE-Z . MOVE-BGT) (IMMEDIATE-DEPENDENTS0 BGT . MOVE-BGT) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . MOVE-BGT) (LEMMAS BGT . MOVE-BGT))))) (PUT1-LST (QUOTE SUB-BLE) (QUOTE (IDATE 1000402215022 EVENT (PROVE-LEMMA SUB-BLE (REWRITE) (IMPLIES (AND (NAT-RANGEP X N) (AND (NAT-RANGEP Y N) (NOT (ZEROP N)))) (EQUAL (BLE (SUB-V N X Y) (SUB-Z N X Y) (SUB-N N X Y)) (IF (ILESSP (NAT-TO-INT X N) (NAT-TO-INT Y N)) (QUOTE 0) (QUOTE 1)))) ((DISABLE IDIFFERENCE IPLUS-COMMUTATIVITY NAT-TO-INT=))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IDIFFERENCE-INT-RANGEP1 . SUB-BLE) (IMMEDIATE-DEPENDENTS0 ILESSP-CROCK1 . SUB-BLE) (IMMEDIATE-DEPENDENTS0 IDIFFERENCE-INT-RANGEP2 . SUB-BLE) (IMMEDIATE-DEPENDENTS0 NAT-TO-INT-RANGEP . SUB-BLE) (IMMEDIATE-DEPENDENTS0 NUMBERP-INTEGERP . SUB-BLE) (IMMEDIATE-DEPENDENTS0 ILESSP-CROCK2 . SUB-BLE) (IMMEDIATE-DEPENDENTS0 IDIFFERENCE-X-X . SUB-BLE) (IMMEDIATE-DEPENDENTS0 INT-RANGEP-OF-0 . SUB-BLE) (IMMEDIATE-DEPENDENTS0 ILESSP-ENTAILS-ILEQ . SUB-BLE) (IMMEDIATE-DEPENDENTS0 IDIFFERENCE-NEGATIVEP . SUB-BLE) (IMMEDIATE-DEPENDENTS0 BITP . SUB-BLE) (IMMEDIATE-DEPENDENTS0 IZEROP . SUB-BLE) (IMMEDIATE-DEPENDENTS0 NAT-TO-INT-INTEGERP . SUB-BLE) (IMMEDIATE-DEPENDENTS0 INTEGERP-FIX-INT . SUB-BLE) (IMMEDIATE-DEPENDENTS0 IPLUS-0 . SUB-BLE) (IMMEDIATE-DEPENDENTS0 SUBX-V-LA . SUB-BLE) (IMMEDIATE-DEPENDENTS0 SUB-Z-LA1 . SUB-BLE) (IMMEDIATE-DEPENDENTS0 MBIT . SUB-BLE) (IMMEDIATE-DEPENDENTS0 ADD-NAT-RANGEP . SUB-BLE) (IMMEDIATE-DEPENDENTS0 SUB-INT . SUB-BLE) (IMMEDIATE-DEPENDENTS0 MBIT-MEANS-NEGATIVEP . SUB-BLE) (IMMEDIATE-DEPENDENTS0 SUB-NEG . SUB-BLE) (IMMEDIATE-DEPENDENTS0 NEGP . SUB-BLE) (IMMEDIATE-DEPENDENTS0 NEGATIVEP-GUTS0 . SUB-BLE) (IMMEDIATE-DEPENDENTS0 SUB-SUBX-V . SUB-BLE) (IMMEDIATE-DEPENDENTS0 NAT-TO-INT . SUB-BLE) (IMMEDIATE-DEPENDENTS0 ILESSP . SUB-BLE) (IMMEDIATE-DEPENDENTS0 SUB-N . SUB-BLE) (IMMEDIATE-DEPENDENTS0 SUB-Z . SUB-BLE) (IMMEDIATE-DEPENDENTS0 SUB-V . SUB-BLE) (IMMEDIATE-DEPENDENTS0 BLE . SUB-BLE) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . SUB-BLE) (LEMMAS BLE . SUB-BLE))))) (PUT1-LST (QUOTE SUB-BGT) (QUOTE (IDATE 1000402215021 EVENT (PROVE-LEMMA SUB-BGT (REWRITE) (IMPLIES (AND (NAT-RANGEP X N) (AND (NAT-RANGEP Y N) (NOT (ZEROP N)))) (EQUAL (BGT (SUB-V N X Y) (SUB-Z N X Y) (SUB-N N X Y)) (IF (ILESSP (NAT-TO-INT X N) (NAT-TO-INT Y N)) (QUOTE 1) (QUOTE 0)))) ((DISABLE IDIFFERENCE IPLUS-COMMUTATIVITY NAT-TO-INT=))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IDIFFERENCE-INT-RANGEP1 . SUB-BGT) (IMMEDIATE-DEPENDENTS0 ILESSP-CROCK1 . SUB-BGT) (IMMEDIATE-DEPENDENTS0 IDIFFERENCE-INT-RANGEP2 . SUB-BGT) (IMMEDIATE-DEPENDENTS0 NAT-TO-INT-RANGEP . SUB-BGT) (IMMEDIATE-DEPENDENTS0 NUMBERP-INTEGERP . SUB-BGT) (IMMEDIATE-DEPENDENTS0 ILESSP-CROCK2 . SUB-BGT) (IMMEDIATE-DEPENDENTS0 IDIFFERENCE-X-X . SUB-BGT) (IMMEDIATE-DEPENDENTS0 INT-RANGEP-OF-0 . SUB-BGT) (IMMEDIATE-DEPENDENTS0 ILESSP-ENTAILS-ILEQ . SUB-BGT) (IMMEDIATE-DEPENDENTS0 IDIFFERENCE-NEGATIVEP . SUB-BGT) (IMMEDIATE-DEPENDENTS0 BITP . SUB-BGT) (IMMEDIATE-DEPENDENTS0 IZEROP . SUB-BGT) (IMMEDIATE-DEPENDENTS0 NAT-TO-INT-INTEGERP . SUB-BGT) (IMMEDIATE-DEPENDENTS0 INTEGERP-FIX-INT . SUB-BGT) (IMMEDIATE-DEPENDENTS0 IPLUS-0 . SUB-BGT) (IMMEDIATE-DEPENDENTS0 SUBX-V-LA . SUB-BGT) (IMMEDIATE-DEPENDENTS0 SUB-Z-LA1 . SUB-BGT) (IMMEDIATE-DEPENDENTS0 MBIT . SUB-BGT) (IMMEDIATE-DEPENDENTS0 ADD-NAT-RANGEP . SUB-BGT) (IMMEDIATE-DEPENDENTS0 SUB-INT . SUB-BGT) (IMMEDIATE-DEPENDENTS0 MBIT-MEANS-NEGATIVEP . SUB-BGT) (IMMEDIATE-DEPENDENTS0 SUB-NEG . SUB-BGT) (IMMEDIATE-DEPENDENTS0 NEGP . SUB-BGT) (IMMEDIATE-DEPENDENTS0 NEGATIVEP-GUTS0 . SUB-BGT) (IMMEDIATE-DEPENDENTS0 SUB-SUBX-V . SUB-BGT) (IMMEDIATE-DEPENDENTS0 NAT-TO-INT . SUB-BGT) (IMMEDIATE-DEPENDENTS0 ILESSP . SUB-BGT) (IMMEDIATE-DEPENDENTS0 SUB-N . SUB-BGT) (IMMEDIATE-DEPENDENTS0 SUB-Z . SUB-BGT) (IMMEDIATE-DEPENDENTS0 SUB-V . SUB-BGT) (IMMEDIATE-DEPENDENTS0 BGT . SUB-BGT) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . SUB-BGT) (LEMMAS BGT . SUB-BGT))))) (PUT1-LST (QUOTE SUB-Z-OFF) (QUOTE (IDATE 1000402215021 EVENT (TOGGLE SUB-Z-OFF SUB-Z T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUB-Z . SUB-Z-OFF) (DISABLED-LEMMAS NIL SUB-Z SUB-Z-OFF . T))))) (PUT1-LST (QUOTE SUB-Z-LA1) (QUOTE (IDATE 1000402215021 IMMEDIATE-DEPENDENTS0 (SUB-Z-LA1-OFF SUB-BLE SUB-BGT) EVENT (PROVE-LEMMA SUB-Z-LA1 (REWRITE) (IMPLIES (AND (NAT-RANGEP X N) (NAT-RANGEP Y N)) (EQUAL (SUB-Z N X Y) (IF (EQUAL (NAT-TO-INT X N) (NAT-TO-INT Y N)) (QUOTE 1) (QUOTE 0))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUB-Z-LA . SUB-Z-LA1) (IMMEDIATE-DEPENDENTS0 NAT-TO-INT= . SUB-Z-LA1) (IMMEDIATE-DEPENDENTS0 NAT-TO-INT . SUB-Z-LA1) (IMMEDIATE-DEPENDENTS0 SUB-Z . SUB-Z-LA1) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . SUB-Z-LA1) (LEMMAS SUB-Z . SUB-Z-LA1))))) (PUT1-LST (QUOTE BLT-OFF) (QUOTE (IDATE 1000402215021 EVENT (TOGGLE BLT-OFF BLT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BLT . BLT-OFF) (DISABLED-LEMMAS NIL BLT BLT-OFF . T))))) (PUT1-LST (QUOTE BGE-OFF) (QUOTE (IDATE 1000402215021 EVENT (TOGGLE BGE-OFF BGE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BGE . BGE-OFF) (DISABLED-LEMMAS NIL BGE BGE-OFF . T))))) (PUT1-LST (QUOTE BLT-BGE) (QUOTE (IDATE 1000402215021 EVENT (PROVE-LEMMA BLT-BGE (REWRITE) (EQUAL (BLT V N) (B-NOT (BGE V N)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-OR . BLT-BGE) (IMMEDIATE-DEPENDENTS0 B-AND . BLT-BGE) (IMMEDIATE-DEPENDENTS0 B0 . BLT-BGE) (IMMEDIATE-DEPENDENTS0 B0P . BLT-BGE) (IMMEDIATE-DEPENDENTS0 B1 . BLT-BGE) (IMMEDIATE-DEPENDENTS0 BGE . BLT-BGE) (IMMEDIATE-DEPENDENTS0 B-NOT . BLT-BGE) (IMMEDIATE-DEPENDENTS0 BLT . BLT-BGE) (LEMMAS BLT . BLT-BGE))))) (PUT1-LST (QUOTE SUB-BLT) (QUOTE (IDATE 1000402215021 EVENT (PROVE-LEMMA SUB-BLT (REWRITE) (IMPLIES (AND (NAT-RANGEP X N) (AND (NAT-RANGEP Y N) (NOT (ZEROP N)))) (EQUAL (BLT (SUB-V N X Y) (SUB-N N X Y)) (IF (ILESSP (NAT-TO-INT Y N) (NAT-TO-INT X N)) (QUOTE 1) (QUOTE 0)))) ((DISABLE ILESSP IDIFFERENCE IPLUS-COMMUTATIVITY))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ILESSP-CROCK1 . SUB-BLT) (IMMEDIATE-DEPENDENTS0 ILESSP-ENTAILS-ILEQ . SUB-BLT) (IMMEDIATE-DEPENDENTS0 IDIFFERENCE-INT-RANGEP1 . SUB-BLT) (IMMEDIATE-DEPENDENTS0 IDIFFERENCE-INT-RANGEP2 . SUB-BLT) (IMMEDIATE-DEPENDENTS0 NAT-TO-INT-RANGEP . SUB-BLT) (IMMEDIATE-DEPENDENTS0 NUMBERP-INTEGERP . SUB-BLT) (IMMEDIATE-DEPENDENTS0 ILESSP-CROCK2 . SUB-BLT) (IMMEDIATE-DEPENDENTS0 IDIFFERENCE-NEGATIVEP . SUB-BLT) (IMMEDIATE-DEPENDENTS0 BITP . SUB-BLT) (IMMEDIATE-DEPENDENTS0 IZEROP . SUB-BLT) (IMMEDIATE-DEPENDENTS0 NAT-TO-INT-INTEGERP . SUB-BLT) (IMMEDIATE-DEPENDENTS0 INTEGERP-FIX-INT . SUB-BLT) (IMMEDIATE-DEPENDENTS0 IPLUS-0 . SUB-BLT) (IMMEDIATE-DEPENDENTS0 SUBX-V-LA . SUB-BLT) (IMMEDIATE-DEPENDENTS0 MBIT . SUB-BLT) (IMMEDIATE-DEPENDENTS0 ADD-NAT-RANGEP . SUB-BLT) (IMMEDIATE-DEPENDENTS0 SUB-INT . SUB-BLT) (IMMEDIATE-DEPENDENTS0 MBIT-MEANS-NEGATIVEP . SUB-BLT) (IMMEDIATE-DEPENDENTS0 SUB-NEG . SUB-BLT) (IMMEDIATE-DEPENDENTS0 SUB-SUBX-V . SUB-BLT) (IMMEDIATE-DEPENDENTS0 NAT-TO-INT . SUB-BLT) (IMMEDIATE-DEPENDENTS0 ILESSP . SUB-BLT) (IMMEDIATE-DEPENDENTS0 SUB-N . SUB-BLT) (IMMEDIATE-DEPENDENTS0 SUB-V . SUB-BLT) (IMMEDIATE-DEPENDENTS0 BLT . SUB-BLT) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . SUB-BLT) (LEMMAS BLT . SUB-BLT))))) (PUT1-LST (QUOTE SUB-BGE) (QUOTE (IDATE 1000402215020 IMMEDIATE-DEPENDENTS0 (GCD-S0-S0-RFILE-2 GCD-S0-S0-RFILE-1 GCD-S0-S0-2 GCD-S0-S0-1) EVENT (PROVE-LEMMA SUB-BGE (REWRITE) (IMPLIES (AND (NAT-RANGEP X N) (AND (NAT-RANGEP Y N) (NOT (ZEROP N)))) (EQUAL (BGE (SUB-V N X Y) (SUB-N N X Y)) (IF (ILESSP (NAT-TO-INT Y N) (NAT-TO-INT X N)) (QUOTE 0) (QUOTE 1)))) ((DISABLE ILESSP IDIFFERENCE IPLUS-COMMUTATIVITY))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ILESSP-CROCK1 . SUB-BGE) (IMMEDIATE-DEPENDENTS0 ILESSP-ENTAILS-ILEQ . SUB-BGE) (IMMEDIATE-DEPENDENTS0 IDIFFERENCE-INT-RANGEP1 . SUB-BGE) (IMMEDIATE-DEPENDENTS0 IDIFFERENCE-INT-RANGEP2 . SUB-BGE) (IMMEDIATE-DEPENDENTS0 NAT-TO-INT-RANGEP . SUB-BGE) (IMMEDIATE-DEPENDENTS0 NUMBERP-INTEGERP . SUB-BGE) (IMMEDIATE-DEPENDENTS0 ILESSP-CROCK2 . SUB-BGE) (IMMEDIATE-DEPENDENTS0 IDIFFERENCE-NEGATIVEP . SUB-BGE) (IMMEDIATE-DEPENDENTS0 BITP . SUB-BGE) (IMMEDIATE-DEPENDENTS0 IZEROP . SUB-BGE) (IMMEDIATE-DEPENDENTS0 NAT-TO-INT-INTEGERP . SUB-BGE) (IMMEDIATE-DEPENDENTS0 INTEGERP-FIX-INT . SUB-BGE) (IMMEDIATE-DEPENDENTS0 IPLUS-0 . SUB-BGE) (IMMEDIATE-DEPENDENTS0 SUBX-V-LA . SUB-BGE) (IMMEDIATE-DEPENDENTS0 MBIT . SUB-BGE) (IMMEDIATE-DEPENDENTS0 ADD-NAT-RANGEP . SUB-BGE) (IMMEDIATE-DEPENDENTS0 SUB-INT . SUB-BGE) (IMMEDIATE-DEPENDENTS0 MBIT-MEANS-NEGATIVEP . SUB-BGE) (IMMEDIATE-DEPENDENTS0 SUB-NEG . SUB-BGE) (IMMEDIATE-DEPENDENTS0 SUB-SUBX-V . SUB-BGE) (IMMEDIATE-DEPENDENTS0 NAT-TO-INT . SUB-BGE) (IMMEDIATE-DEPENDENTS0 ILESSP . SUB-BGE) (IMMEDIATE-DEPENDENTS0 SUB-N . SUB-BGE) (IMMEDIATE-DEPENDENTS0 SUB-V . SUB-BGE) (IMMEDIATE-DEPENDENTS0 BGE . SUB-BGE) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . SUB-BGE) (LEMMAS BGE . SUB-BGE))))) (PUT1-LST (QUOTE BLT-V0) (QUOTE (IDATE 1000402215020 EVENT (PROVE-LEMMA BLT-V0 (REWRITE) (EQUAL (BLT (QUOTE 0) N) (BMI N))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-OR . BLT-V0) (IMMEDIATE-DEPENDENTS0 B-AND . BLT-V0) (IMMEDIATE-DEPENDENTS0 B0 . BLT-V0) (IMMEDIATE-DEPENDENTS0 B0P . BLT-V0) (IMMEDIATE-DEPENDENTS0 B1 . BLT-V0) (IMMEDIATE-DEPENDENTS0 B-NOT . BLT-V0) (IMMEDIATE-DEPENDENTS0 FIX-BIT . BLT-V0) (IMMEDIATE-DEPENDENTS0 BMI . BLT-V0) (IMMEDIATE-DEPENDENTS0 BLT . BLT-V0) (LEMMAS BLT . BLT-V0))))) (PUT1-LST (QUOTE BGE-V0) (QUOTE (IDATE 1000402215020 EVENT (PROVE-LEMMA BGE-V0 (REWRITE) (EQUAL (BGE (QUOTE 0) N) (B-NOT (BMI N)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-OR . BGE-V0) (IMMEDIATE-DEPENDENTS0 B1 . BGE-V0) (IMMEDIATE-DEPENDENTS0 B-AND . BGE-V0) (IMMEDIATE-DEPENDENTS0 B0 . BGE-V0) (IMMEDIATE-DEPENDENTS0 B0P . BGE-V0) (IMMEDIATE-DEPENDENTS0 FIX-BIT . BGE-V0) (IMMEDIATE-DEPENDENTS0 BMI . BGE-V0) (IMMEDIATE-DEPENDENTS0 B-NOT . BGE-V0) (IMMEDIATE-DEPENDENTS0 BGE . BGE-V0) (LEMMAS BGE . BGE-V0))))) (PUT1-LST (QUOTE EXT-BMI) (QUOTE (IDATE 1000402215020 EVENT (PROVE-LEMMA EXT-BMI (REWRITE) (IMPLIES (AND (NAT-RANGEP X N) (LESSP N SIZE)) (EQUAL (BMI (EXT-N N X SIZE)) (IF (NEGATIVEP (NAT-TO-INT X N)) (QUOTE 1) (QUOTE 0))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MBIT . EXT-BMI) (IMMEDIATE-DEPENDENTS0 EXT-NAT-RANGEP . EXT-BMI) (IMMEDIATE-DEPENDENTS0 EXT-INT . EXT-BMI) (IMMEDIATE-DEPENDENTS0 MBIT-MEANS-NEGATIVEP . EXT-BMI) (IMMEDIATE-DEPENDENTS0 B1 . EXT-BMI) (IMMEDIATE-DEPENDENTS0 B0P . EXT-BMI) (IMMEDIATE-DEPENDENTS0 B0 . EXT-BMI) (IMMEDIATE-DEPENDENTS0 FIX-BIT . EXT-BMI) (IMMEDIATE-DEPENDENTS0 NAT-TO-INT . EXT-BMI) (IMMEDIATE-DEPENDENTS0 EXT-N . EXT-BMI) (IMMEDIATE-DEPENDENTS0 BMI . EXT-BMI) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . EXT-BMI) (LEMMAS BMI . EXT-BMI))))) (PUT1-LST (QUOTE ASR-BMI) (QUOTE (IDATE 1000402215020 EVENT (PROVE-LEMMA ASR-BMI (REWRITE) (IMPLIES (NAT-RANGEP X N) (EQUAL (BMI (ASR-N N X CNT)) (IF (NEGATIVEP (NAT-TO-INT X N)) (QUOTE 1) (QUOTE 0)))) ((ENABLE IPLUS IQUOTIENT IREMAINDER) (DISABLE ASR))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-EXIT . ASR-BMI) (IMMEDIATE-DEPENDENTS0 EXP-OF-2-0 . ASR-BMI) (IMMEDIATE-DEPENDENTS0 PLUS-ADD1 . ASR-BMI) (IMMEDIATE-DEPENDENTS0 IPLUS . ASR-BMI) (IMMEDIATE-DEPENDENTS0 MBIT . ASR-BMI) (IMMEDIATE-DEPENDENTS0 ASR-NAT-RANGEP . ASR-BMI) (IMMEDIATE-DEPENDENTS0 FIX-INT . ASR-BMI) (IMMEDIATE-DEPENDENTS0 MINUS-INTEGERP . ASR-BMI) (IMMEDIATE-DEPENDENTS0 ABS . ASR-BMI) (IMMEDIATE-DEPENDENTS0 NEGP . ASR-BMI) (IMMEDIATE-DEPENDENTS0 NAT-TO-INT-INTEGERP . ASR-BMI) (IMMEDIATE-DEPENDENTS0 NEGATIVEP-GUTS0 . ASR-BMI) (IMMEDIATE-DEPENDENTS0 IREMAINDER . ASR-BMI) (IMMEDIATE-DEPENDENTS0 QUOTIENT-EQUAL-0 . ASR-BMI) (IMMEDIATE-DEPENDENTS0 IQUOTIENT . ASR-BMI) (IMMEDIATE-DEPENDENTS0 ASR-INT . ASR-BMI) (IMMEDIATE-DEPENDENTS0 MBIT-MEANS-NEGATIVEP . ASR-BMI) (IMMEDIATE-DEPENDENTS0 B1 . ASR-BMI) (IMMEDIATE-DEPENDENTS0 B0P . ASR-BMI) (IMMEDIATE-DEPENDENTS0 B0 . ASR-BMI) (IMMEDIATE-DEPENDENTS0 FIX-BIT . ASR-BMI) (IMMEDIATE-DEPENDENTS0 NAT-TO-INT . ASR-BMI) (IMMEDIATE-DEPENDENTS0 ASR-N . ASR-BMI) (IMMEDIATE-DEPENDENTS0 BMI . ASR-BMI) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . ASR-BMI) (LEMMAS BMI . ASR-BMI))))) (PUT1-LST (QUOTE ASL-BMI) (QUOTE (IDATE 1000402215020 EVENT (PROVE-LEMMA ASL-BMI (REWRITE) (IMPLIES (AND (NAT-RANGEP X N) (INT-RANGEP (NAT-TO-INT X N) (DIFFERENCE N CNT))) (EQUAL (BMI (ASL-N N X CNT)) (IF (NEGATIVEP (NAT-TO-INT X N)) (QUOTE 1) (QUOTE 0)))) ((DISABLE ASL))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EXP-OF-2-0 . ASL-BMI) (IMMEDIATE-DEPENDENTS0 MBIT . ASL-BMI) (IMMEDIATE-DEPENDENTS0 ASL-NAT-RANGEP . ASL-BMI) (IMMEDIATE-DEPENDENTS0 ITIMES-COMMUTATIVITY . ASL-BMI) (IMMEDIATE-DEPENDENTS0 ASL-INT . ASL-BMI) (IMMEDIATE-DEPENDENTS0 NAT-TO-INT-INTEGERP . ASL-BMI) (IMMEDIATE-DEPENDENTS0 NUMBERP-INTEGERP . ASL-BMI) (IMMEDIATE-DEPENDENTS0 ITIMES-SIGN . ASL-BMI) (IMMEDIATE-DEPENDENTS0 MBIT-MEANS-NEGATIVEP . ASL-BMI) (IMMEDIATE-DEPENDENTS0 B1 . ASL-BMI) (IMMEDIATE-DEPENDENTS0 B0P . ASL-BMI) (IMMEDIATE-DEPENDENTS0 B0 . ASL-BMI) (IMMEDIATE-DEPENDENTS0 FIX-BIT . ASL-BMI) (IMMEDIATE-DEPENDENTS0 ASL-N . ASL-BMI) (IMMEDIATE-DEPENDENTS0 BMI . ASL-BMI) (IMMEDIATE-DEPENDENTS0 NAT-TO-INT . ASL-BMI) (IMMEDIATE-DEPENDENTS0 INT-RANGEP . ASL-BMI) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . ASL-BMI) (LEMMAS BMI . ASL-BMI))))) (PUT1-LST (QUOTE MULS_3232-BMI) (QUOTE (IDATE 1000402215020 EVENT (PROVE-LEMMA MULS_3232-BMI (REWRITE) (IMPLIES (AND (INT-RANGEP (ITIMES (NAT-TO-INT X (QUOTE 32)) (NAT-TO-INT Y (QUOTE 32))) (QUOTE 32)) (AND (NAT-RANGEP X (QUOTE 32)) (NAT-RANGEP Y (QUOTE 32)))) (EQUAL (BMI (MULS-N (QUOTE 32) X Y (QUOTE 32))) (IF (OR (EQUAL (NAT-TO-INT X (QUOTE 32)) (QUOTE 0)) (EQUAL (NAT-TO-INT Y (QUOTE 32)) (QUOTE 0))) (QUOTE 0) (IF (NEGATIVEP (NAT-TO-INT X (QUOTE 32))) (IF (NEGATIVEP (NAT-TO-INT Y (QUOTE 32))) (QUOTE 0) (QUOTE 1)) (IF (NEGATIVEP (NAT-TO-INT Y (QUOTE 32))) (QUOTE 1) (QUOTE 0)))))) ((USE (MBIT-MEANS-NEGATIVEP (X (MULS (QUOTE 32) X Y (QUOTE 32))) (N (QUOTE 32)))) (DISABLE MULS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MULS-NAT-RANGEP . MULS_3232-BMI) (IMMEDIATE-DEPENDENTS0 MULS_3232-INT . MULS_3232-BMI) (IMMEDIATE-DEPENDENTS0 NAT-TO-INT-INTEGERP . MULS_3232-BMI) (IMMEDIATE-DEPENDENTS0 ITIMES-SIGN . MULS_3232-BMI) (IMMEDIATE-DEPENDENTS0 ITIMES-0 . MULS_3232-BMI) (IMMEDIATE-DEPENDENTS0 ITIMES-COMMUTATIVITY . MULS_3232-BMI) (IMMEDIATE-DEPENDENTS0 MBIT . MULS_3232-BMI) (IMMEDIATE-DEPENDENTS0 FIX-BIT . MULS_3232-BMI) (IMMEDIATE-DEPENDENTS0 MBIT-MEANS-NEGATIVEP . MULS_3232-BMI) (IMMEDIATE-DEPENDENTS0 MULS-N . MULS_3232-BMI) (IMMEDIATE-DEPENDENTS0 BMI . MULS_3232-BMI) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . MULS_3232-BMI) (IMMEDIATE-DEPENDENTS0 NAT-TO-INT . MULS_3232-BMI) (IMMEDIATE-DEPENDENTS0 ITIMES . MULS_3232-BMI) (IMMEDIATE-DEPENDENTS0 INT-RANGEP . MULS_3232-BMI) (LEMMAS BMI . MULS_3232-BMI))))) (PUT1-LST (QUOTE MULS_3264-BMI) (QUOTE (IDATE 1000402215020 EVENT (PROVE-LEMMA MULS_3264-BMI (REWRITE) (IMPLIES (AND (NAT-RANGEP X (QUOTE 32)) (NAT-RANGEP Y (QUOTE 32))) (EQUAL (BMI (MULS-N (QUOTE 64) X Y (QUOTE 32))) (IF (OR (EQUAL (NAT-TO-INT X (QUOTE 32)) (QUOTE 0)) (EQUAL (NAT-TO-INT Y (QUOTE 32)) (QUOTE 0))) (QUOTE 0) (IF (NEGATIVEP (NAT-TO-INT X (QUOTE 32))) (IF (NEGATIVEP (NAT-TO-INT Y (QUOTE 32))) (QUOTE 0) (QUOTE 1)) (IF (NEGATIVEP (NAT-TO-INT Y (QUOTE 32))) (QUOTE 1) (QUOTE 0)))))) ((USE (MBIT-MEANS-NEGATIVEP (X (MULS (QUOTE 64) X Y (QUOTE 32))) (N (QUOTE 64)))) (DISABLE MULS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MULS-NAT-RANGEP . MULS_3264-BMI) (IMMEDIATE-DEPENDENTS0 MULS_3264-INT . MULS_3264-BMI) (IMMEDIATE-DEPENDENTS0 NAT-TO-INT-INTEGERP . MULS_3264-BMI) (IMMEDIATE-DEPENDENTS0 ITIMES-SIGN . MULS_3264-BMI) (IMMEDIATE-DEPENDENTS0 MBIT . MULS_3264-BMI) (IMMEDIATE-DEPENDENTS0 FIX-BIT . MULS_3264-BMI) (IMMEDIATE-DEPENDENTS0 MBIT-MEANS-NEGATIVEP . MULS_3264-BMI) (IMMEDIATE-DEPENDENTS0 NAT-TO-INT . MULS_3264-BMI) (IMMEDIATE-DEPENDENTS0 MULS-N . MULS_3264-BMI) (IMMEDIATE-DEPENDENTS0 BMI . MULS_3264-BMI) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . MULS_3264-BMI) (LEMMAS BMI . MULS_3264-BMI))))) (PUT1-LST (QUOTE MULS_1632-BMI) (QUOTE (IDATE 1000402215020 EVENT (PROVE-LEMMA MULS_1632-BMI (REWRITE) (IMPLIES (AND (NAT-RANGEP X (QUOTE 16)) (NAT-RANGEP Y (QUOTE 16))) (EQUAL (BMI (MULS-N (QUOTE 32) X Y (QUOTE 16))) (IF (OR (EQUAL (NAT-TO-INT X (QUOTE 16)) (QUOTE 0)) (EQUAL (NAT-TO-INT Y (QUOTE 16)) (QUOTE 0))) (QUOTE 0) (IF (NEGATIVEP (NAT-TO-INT X (QUOTE 16))) (IF (NEGATIVEP (NAT-TO-INT Y (QUOTE 16))) (QUOTE 0) (QUOTE 1)) (IF (NEGATIVEP (NAT-TO-INT Y (QUOTE 16))) (QUOTE 1) (QUOTE 0)))))) ((USE (MBIT-MEANS-NEGATIVEP (X (MULS (QUOTE 32) X Y (QUOTE 16))) (N (QUOTE 32)))) (DISABLE MULS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MULS-NAT-RANGEP . MULS_1632-BMI) (IMMEDIATE-DEPENDENTS0 MULS_1632-INT . MULS_1632-BMI) (IMMEDIATE-DEPENDENTS0 NAT-TO-INT-INTEGERP . MULS_1632-BMI) (IMMEDIATE-DEPENDENTS0 ITIMES-SIGN . MULS_1632-BMI) (IMMEDIATE-DEPENDENTS0 MBIT . MULS_1632-BMI) (IMMEDIATE-DEPENDENTS0 FIX-BIT . MULS_1632-BMI) (IMMEDIATE-DEPENDENTS0 MBIT-MEANS-NEGATIVEP . MULS_1632-BMI) (IMMEDIATE-DEPENDENTS0 NAT-TO-INT . MULS_1632-BMI) (IMMEDIATE-DEPENDENTS0 MULS-N . MULS_1632-BMI) (IMMEDIATE-DEPENDENTS0 BMI . MULS_1632-BMI) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . MULS_1632-BMI) (LEMMAS BMI . MULS_1632-BMI))))) (PUT1-LST (QUOTE ADD-BMI) (QUOTE (IDATE 1000402215020 EVENT (PROVE-LEMMA ADD-BMI (REWRITE) (IMPLIES (AND (NAT-RANGEP X N) (AND (NAT-RANGEP Y N) (NOT (ZEROP N)))) (EQUAL (BMI (ADD-N N X Y)) (IF (INT-RANGEP (IPLUS (NAT-TO-INT X N) (NAT-TO-INT Y N)) N) (IF (NEGATIVEP (IPLUS (NAT-TO-INT X N) (NAT-TO-INT Y N))) (QUOTE 1) (QUOTE 0)) (IF (NEGATIVEP (NAT-TO-INT X N)) (QUOTE 0) (QUOTE 1))))) ((DISABLE IPLUS-COMMUTATIVITY))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NUMBERP-INTEGERP . ADD-BMI) (IMMEDIATE-DEPENDENTS0 ADD-BMI-CROCK2 . ADD-BMI) (IMMEDIATE-DEPENDENTS0 NAT-TO-INT-RANGEP . ADD-BMI) (IMMEDIATE-DEPENDENTS0 NAT-TO-INT-INTEGERP . ADD-BMI) (IMMEDIATE-DEPENDENTS0 ADD-BMI-CROCK1 . ADD-BMI) (IMMEDIATE-DEPENDENTS0 MBIT . ADD-BMI) (IMMEDIATE-DEPENDENTS0 ADD-NAT-RANGEP . ADD-BMI) (IMMEDIATE-DEPENDENTS0 ADD-INT . ADD-BMI) (IMMEDIATE-DEPENDENTS0 MBIT-MEANS-NEGATIVEP . ADD-BMI) (IMMEDIATE-DEPENDENTS0 ADD-COMMUTATIVITY . ADD-BMI) (IMMEDIATE-DEPENDENTS0 B1 . ADD-BMI) (IMMEDIATE-DEPENDENTS0 B0P . ADD-BMI) (IMMEDIATE-DEPENDENTS0 B0 . ADD-BMI) (IMMEDIATE-DEPENDENTS0 FIX-BIT . ADD-BMI) (IMMEDIATE-DEPENDENTS0 NAT-TO-INT . ADD-BMI) (IMMEDIATE-DEPENDENTS0 IPLUS . ADD-BMI) (IMMEDIATE-DEPENDENTS0 INT-RANGEP . ADD-BMI) (IMMEDIATE-DEPENDENTS0 ADD-N . ADD-BMI) (IMMEDIATE-DEPENDENTS0 BMI . ADD-BMI) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . ADD-BMI) (LEMMAS BMI . ADD-BMI))))) (PUT1-LST (QUOTE SUB-BMI) (QUOTE (IDATE 1000402215020 EVENT (PROVE-LEMMA SUB-BMI (REWRITE) (IMPLIES (AND (NAT-RANGEP X N) (AND (NAT-RANGEP Y N) (NOT (ZEROP N)))) (EQUAL (BMI (SUB-N N X Y)) (IF (INT-RANGEP (IDIFFERENCE (NAT-TO-INT Y N) (NAT-TO-INT X N)) N) (IF (ILESSP (NAT-TO-INT Y N) (NAT-TO-INT X N)) (QUOTE 1) (QUOTE 0)) (IF (ILESSP (NAT-TO-INT Y N) (NAT-TO-INT X N)) (QUOTE 0) (QUOTE 1))))) ((DISABLE IDIFFERENCE ILESSP IPLUS-COMMUTATIVITY))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NUMBERP-INTEGERP . SUB-BMI) (IMMEDIATE-DEPENDENTS0 ILESSP-CROCK2 . SUB-BMI) (IMMEDIATE-DEPENDENTS0 IDIFFERENCE-INT-RANGEP2 . SUB-BMI) (IMMEDIATE-DEPENDENTS0 ILESSP-ENTAILS-ILEQ . SUB-BMI) (IMMEDIATE-DEPENDENTS0 IDIFFERENCE-INT-RANGEP1 . SUB-BMI) (IMMEDIATE-DEPENDENTS0 NAT-TO-INT-RANGEP . SUB-BMI) (IMMEDIATE-DEPENDENTS0 NAT-TO-INT-INTEGERP . SUB-BMI) (IMMEDIATE-DEPENDENTS0 ILESSP-CROCK1 . SUB-BMI) (IMMEDIATE-DEPENDENTS0 IDIFFERENCE-NEGATIVEP . SUB-BMI) (IMMEDIATE-DEPENDENTS0 MBIT . SUB-BMI) (IMMEDIATE-DEPENDENTS0 ADD-NAT-RANGEP . SUB-BMI) (IMMEDIATE-DEPENDENTS0 SUB-INT . SUB-BMI) (IMMEDIATE-DEPENDENTS0 MBIT-MEANS-NEGATIVEP . SUB-BMI) (IMMEDIATE-DEPENDENTS0 SUB-NEG . SUB-BMI) (IMMEDIATE-DEPENDENTS0 B1 . SUB-BMI) (IMMEDIATE-DEPENDENTS0 B0P . SUB-BMI) (IMMEDIATE-DEPENDENTS0 B0 . SUB-BMI) (IMMEDIATE-DEPENDENTS0 FIX-BIT . SUB-BMI) (IMMEDIATE-DEPENDENTS0 ILESSP . SUB-BMI) (IMMEDIATE-DEPENDENTS0 NAT-TO-INT . SUB-BMI) (IMMEDIATE-DEPENDENTS0 IDIFFERENCE . SUB-BMI) (IMMEDIATE-DEPENDENTS0 INT-RANGEP . SUB-BMI) (IMMEDIATE-DEPENDENTS0 SUB-N . SUB-BMI) (IMMEDIATE-DEPENDENTS0 BMI . SUB-BMI) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . SUB-BMI) (LEMMAS BMI . SUB-BMI))))) (PUT1-LST (QUOTE MOVE-BMI) (QUOTE (IDATE 1000402215020 EVENT (PROVE-LEMMA MOVE-BMI (REWRITE) (IMPLIES (NAT-RANGEP X N) (EQUAL (BMI (MOVE-N N X)) (IF (NEGATIVEP (NAT-TO-INT X N)) (QUOTE 1) (QUOTE 0))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MBIT-MEANS-NEGATIVEP . MOVE-BMI) (IMMEDIATE-DEPENDENTS0 B1 . MOVE-BMI) (IMMEDIATE-DEPENDENTS0 B0P . MOVE-BMI) (IMMEDIATE-DEPENDENTS0 B0 . MOVE-BMI) (IMMEDIATE-DEPENDENTS0 FIX-BIT . MOVE-BMI) (IMMEDIATE-DEPENDENTS0 MBIT . MOVE-BMI) (IMMEDIATE-DEPENDENTS0 NAT-TO-INT . MOVE-BMI) (IMMEDIATE-DEPENDENTS0 MOVE-N . MOVE-BMI) (IMMEDIATE-DEPENDENTS0 BMI . MOVE-BMI) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . MOVE-BMI) (LEMMAS BMI . MOVE-BMI))))) (PUT1-LST (QUOTE BVS-OFF) (QUOTE (IDATE 1000402215020 EVENT (TOGGLE BVS-OFF BVS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BVS . BVS-OFF) (DISABLED-LEMMAS NIL BVS BVS-OFF . T))))) (PUT1-LST (QUOTE ASL-BVS) (QUOTE (IDATE 1000402215020 EVENT (PROVE-LEMMA ASL-BVS (REWRITE) (EQUAL (BVS (ASL-V N X CNT)) (IF (INT-RANGEP (NAT-TO-INT X N) (DIFFERENCE N CNT)) (QUOTE 0) (QUOTE 1)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B1 . ASL-BVS) (IMMEDIATE-DEPENDENTS0 B0 . ASL-BVS) (IMMEDIATE-DEPENDENTS0 B0P . ASL-BVS) (IMMEDIATE-DEPENDENTS0 FIX-BIT . ASL-BVS) (IMMEDIATE-DEPENDENTS0 NAT-TO-INT . ASL-BVS) (IMMEDIATE-DEPENDENTS0 INT-RANGEP . ASL-BVS) (IMMEDIATE-DEPENDENTS0 ASL-V . ASL-BVS) (IMMEDIATE-DEPENDENTS0 BVS . ASL-BVS) (LEMMAS BVS . ASL-BVS))))) (PUT1-LST (QUOTE MULS_3232-BVS) (QUOTE (IDATE 1000402215020 EVENT (PROVE-LEMMA MULS_3232-BVS (REWRITE) (EQUAL (BVS (MULS-V (QUOTE 32) X Y (QUOTE 32))) (IF (INT-RANGEP (ITIMES (NAT-TO-INT X (QUOTE 32)) (NAT-TO-INT Y (QUOTE 32))) (QUOTE 32)) (QUOTE 0) (QUOTE 1)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B1 . MULS_3232-BVS) (IMMEDIATE-DEPENDENTS0 B0 . MULS_3232-BVS) (IMMEDIATE-DEPENDENTS0 B0P . MULS_3232-BVS) (IMMEDIATE-DEPENDENTS0 FIX-BIT . MULS_3232-BVS) (IMMEDIATE-DEPENDENTS0 NAT-TO-INT . MULS_3232-BVS) (IMMEDIATE-DEPENDENTS0 ITIMES . MULS_3232-BVS) (IMMEDIATE-DEPENDENTS0 INT-RANGEP . MULS_3232-BVS) (IMMEDIATE-DEPENDENTS0 MULS-V . MULS_3232-BVS) (IMMEDIATE-DEPENDENTS0 BVS . MULS_3232-BVS) (LEMMAS BVS . MULS_3232-BVS))))) (PUT1-LST (QUOTE MULS_3264-BVS) (QUOTE (IDATE 1000402215020 EVENT (PROVE-LEMMA MULS_3264-BVS (REWRITE) (IMPLIES (AND (NAT-RANGEP X (QUOTE 32)) (NAT-RANGEP Y (QUOTE 32))) (EQUAL (MULS-V (QUOTE 64) X Y (QUOTE 32)) (QUOTE 0))) ((USE (MULS-CROCK (X (NAT-TO-INT X (QUOTE 32))) (Y (NAT-TO-INT Y (QUOTE 32))) (N (QUOTE 32)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NAT-TO-INT-RANGEP . MULS_3264-BVS) (IMMEDIATE-DEPENDENTS0 B0 . MULS_3264-BVS) (IMMEDIATE-DEPENDENTS0 PLUS-ADD1-1 . MULS_3264-BVS) (IMMEDIATE-DEPENDENTS0 MULS-CROCK . MULS_3264-BVS) (IMMEDIATE-DEPENDENTS0 MULS-V . MULS_3264-BVS) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . MULS_3264-BVS) (LEMMAS MULS-V . MULS_3264-BVS))))) (PUT1-LST (QUOTE MULS_1632-BVS) (QUOTE (IDATE 1000402215020 EVENT (PROVE-LEMMA MULS_1632-BVS (REWRITE) (IMPLIES (AND (NAT-RANGEP X (QUOTE 16)) (NAT-RANGEP Y (QUOTE 16))) (EQUAL (MULS-V (QUOTE 32) X Y (QUOTE 16)) (QUOTE 0))) ((USE (MULS-CROCK (X (NAT-TO-INT X (QUOTE 16))) (Y (NAT-TO-INT Y (QUOTE 16))) (N (QUOTE 16)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NAT-TO-INT-RANGEP . MULS_1632-BVS) (IMMEDIATE-DEPENDENTS0 B0 . MULS_1632-BVS) (IMMEDIATE-DEPENDENTS0 PLUS-ADD1-1 . MULS_1632-BVS) (IMMEDIATE-DEPENDENTS0 MULS-CROCK . MULS_1632-BVS) (IMMEDIATE-DEPENDENTS0 MULS-V . MULS_1632-BVS) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . MULS_1632-BVS) (LEMMAS MULS-V . MULS_1632-BVS))))) (PUT1-LST (QUOTE MULU_3232-BVS) (QUOTE (IDATE 1000402215020 EVENT (PROVE-LEMMA MULU_3232-BVS (REWRITE) (EQUAL (BVS (MULU-V (QUOTE 32) X Y (QUOTE 32))) (IF (LESSP (TIMES (NAT-TO-UINT X) (NAT-TO-UINT Y)) (EXP (QUOTE 2) (QUOTE 32))) (QUOTE 0) (QUOTE 1)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . MULU_3232-BVS) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . MULU_3232-BVS) (IMMEDIATE-DEPENDENTS0 B1 . MULU_3232-BVS) (IMMEDIATE-DEPENDENTS0 B0 . MULU_3232-BVS) (IMMEDIATE-DEPENDENTS0 B0P . MULU_3232-BVS) (IMMEDIATE-DEPENDENTS0 FIX-BIT . MULU_3232-BVS) (IMMEDIATE-DEPENDENTS0 EXP . MULU_3232-BVS) (IMMEDIATE-DEPENDENTS0 NAT-TO-UINT . MULU_3232-BVS) (IMMEDIATE-DEPENDENTS0 MULU-V . MULU_3232-BVS) (IMMEDIATE-DEPENDENTS0 BVS . MULU_3232-BVS) (LEMMAS BVS . MULU_3232-BVS))))) (PUT1-LST (QUOTE MULU_3264-BVS) (QUOTE (IDATE 1000402215020 EVENT (PROVE-LEMMA MULU_3264-BVS (REWRITE) (IMPLIES (AND (NAT-RANGEP X (QUOTE 32)) (NAT-RANGEP Y (QUOTE 32))) (EQUAL (MULU-V (QUOTE 64) X Y (QUOTE 32)) (QUOTE 0))) ((USE (TIMES-LESSP_1 (X1 (EXP (QUOTE 2) (QUOTE 32))) (Y1 (EXP (QUOTE 2) (QUOTE 32))))) (ENABLE NAT-RANGEP))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EXP . MULU_3264-BVS) (IMMEDIATE-DEPENDENTS0 B0 . MULU_3264-BVS) (IMMEDIATE-DEPENDENTS0 PLUS-ADD1-1 . MULU_3264-BVS) (IMMEDIATE-DEPENDENTS0 EXP-PLUS . MULU_3264-BVS) (IMMEDIATE-DEPENDENTS0 TIMES-LESSP_1 . MULU_3264-BVS) (IMMEDIATE-DEPENDENTS0 MULU-V . MULU_3264-BVS) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . MULU_3264-BVS) (LEMMAS MULU-V . MULU_3264-BVS))))) (PUT1-LST (QUOTE MULU_1632-BVS) (QUOTE (IDATE 1000402215020 EVENT (PROVE-LEMMA MULU_1632-BVS (REWRITE) (IMPLIES (AND (NAT-RANGEP X (QUOTE 16)) (NAT-RANGEP Y (QUOTE 16))) (EQUAL (MULU-V (QUOTE 32) X Y (QUOTE 16)) (QUOTE 0))) ((USE (TIMES-LESSP_1 (X1 (EXP (QUOTE 2) (QUOTE 16))) (Y1 (EXP (QUOTE 2) (QUOTE 16))))) (ENABLE NAT-RANGEP))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EXP . MULU_1632-BVS) (IMMEDIATE-DEPENDENTS0 B0 . MULU_1632-BVS) (IMMEDIATE-DEPENDENTS0 PLUS-ADD1-1 . MULU_1632-BVS) (IMMEDIATE-DEPENDENTS0 EXP-PLUS . MULU_1632-BVS) (IMMEDIATE-DEPENDENTS0 TIMES-LESSP_1 . MULU_1632-BVS) (IMMEDIATE-DEPENDENTS0 MULU-V . MULU_1632-BVS) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . MULU_1632-BVS) (LEMMAS MULU-V . MULU_1632-BVS))))) (PUT1-LST (QUOTE ADD-BVS&VC) (QUOTE (IDATE 1000402215020 EVENT (PROVE-LEMMA ADD-BVS&VC (REWRITE) (IMPLIES (AND (NAT-RANGEP X N) (AND (NAT-RANGEP Y N) (NOT (ZEROP N)))) (EQUAL (BVS (ADD-V N X Y)) (IF (INT-RANGEP (IPLUS (NAT-TO-INT X N) (NAT-TO-INT Y N)) N) (QUOTE 0) (QUOTE 1))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BITP . ADD-BVS&VC) (IMMEDIATE-DEPENDENTS0 IZEROP . ADD-BVS&VC) (IMMEDIATE-DEPENDENTS0 NAT-TO-INT-INTEGERP . ADD-BVS&VC) (IMMEDIATE-DEPENDENTS0 INTEGERP-FIX-INT . ADD-BVS&VC) (IMMEDIATE-DEPENDENTS0 IPLUS-0 . ADD-BVS&VC) (IMMEDIATE-DEPENDENTS0 ADDX-V-LA . ADD-BVS&VC) (IMMEDIATE-DEPENDENTS0 B1 . ADD-BVS&VC) (IMMEDIATE-DEPENDENTS0 B0P . ADD-BVS&VC) (IMMEDIATE-DEPENDENTS0 B0 . ADD-BVS&VC) (IMMEDIATE-DEPENDENTS0 FIX-BIT . ADD-BVS&VC) (IMMEDIATE-DEPENDENTS0 ADD-ADDX-V . ADD-BVS&VC) (IMMEDIATE-DEPENDENTS0 NAT-TO-INT . ADD-BVS&VC) (IMMEDIATE-DEPENDENTS0 IPLUS . ADD-BVS&VC) (IMMEDIATE-DEPENDENTS0 INT-RANGEP . ADD-BVS&VC) (IMMEDIATE-DEPENDENTS0 ADD-V . ADD-BVS&VC) (IMMEDIATE-DEPENDENTS0 BVS . ADD-BVS&VC) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . ADD-BVS&VC) (LEMMAS BVS . ADD-BVS&VC))))) (PUT1-LST (QUOTE SUB-BVS&VC) (QUOTE (IDATE 1000402215020 EVENT (PROVE-LEMMA SUB-BVS&VC (REWRITE) (IMPLIES (AND (NAT-RANGEP X N) (AND (NAT-RANGEP Y N) (NOT (ZEROP N)))) (EQUAL (BVS (SUB-V N X Y)) (IF (INT-RANGEP (IDIFFERENCE (NAT-TO-INT Y N) (NAT-TO-INT X N)) N) (QUOTE 0) (QUOTE 1))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BITP . SUB-BVS&VC) (IMMEDIATE-DEPENDENTS0 IZEROP . SUB-BVS&VC) (IMMEDIATE-DEPENDENTS0 NAT-TO-INT-INTEGERP . SUB-BVS&VC) (IMMEDIATE-DEPENDENTS0 INTEGERP-FIX-INT . SUB-BVS&VC) (IMMEDIATE-DEPENDENTS0 IPLUS-0 . SUB-BVS&VC) (IMMEDIATE-DEPENDENTS0 INEG . SUB-BVS&VC) (IMMEDIATE-DEPENDENTS0 NEGATIVEP-GUTS0 . SUB-BVS&VC) (IMMEDIATE-DEPENDENTS0 NEGP . SUB-BVS&VC) (IMMEDIATE-DEPENDENTS0 SUBX-V-LA . SUB-BVS&VC) (IMMEDIATE-DEPENDENTS0 B1 . SUB-BVS&VC) (IMMEDIATE-DEPENDENTS0 B0P . SUB-BVS&VC) (IMMEDIATE-DEPENDENTS0 B0 . SUB-BVS&VC) (IMMEDIATE-DEPENDENTS0 FIX-BIT . SUB-BVS&VC) (IMMEDIATE-DEPENDENTS0 SUB-SUBX-V . SUB-BVS&VC) (IMMEDIATE-DEPENDENTS0 NAT-TO-INT . SUB-BVS&VC) (IMMEDIATE-DEPENDENTS0 IDIFFERENCE . SUB-BVS&VC) (IMMEDIATE-DEPENDENTS0 INT-RANGEP . SUB-BVS&VC) (IMMEDIATE-DEPENDENTS0 SUB-V . SUB-BVS&VC) (IMMEDIATE-DEPENDENTS0 BVS . SUB-BVS&VC) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . SUB-BVS&VC) (LEMMAS BVS . SUB-BVS&VC))))) (PUT1-LST (QUOTE ADDX-V-CROCK2-OFF) (QUOTE (IDATE 1000402215020 EVENT (TOGGLE ADDX-V-CROCK2-OFF ADDX-V-CROCK2 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ADDX-V-CROCK2 . ADDX-V-CROCK2-OFF) (DISABLED-LEMMAS NIL ADDX-V-CROCK2 ADDX-V-CROCK2-OFF . T))))) (PUT1-LST (QUOTE ADDX-V-CROCK1-OFF) (QUOTE (IDATE 1000402215020 EVENT (TOGGLE ADDX-V-CROCK1-OFF ADDX-V-CROCK1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ADDX-V-CROCK1 . ADDX-V-CROCK1-OFF) (DISABLED-LEMMAS NIL ADDX-V-CROCK1 ADDX-V-CROCK1-OFF . T))))) (PUT1-LST (QUOTE SUBX-V-LA) (QUOTE (IDATE 1000402215020 IMMEDIATE-DEPENDENTS0 (SUBX-V-LA-OFF SUB-BLE SUB-BGT SUB-BLT SUB-BGE SUB-BVS&VC) EVENT (PROVE-LEMMA SUBX-V-LA (REWRITE) (IMPLIES (AND (NAT-RANGEP X N) (AND (NAT-RANGEP Y N) (AND (BITP C) (NOT (ZEROP N))))) (EQUAL (SUBX-V N C X Y) (IF (INT-RANGEP (IDIFFERENCE (NAT-TO-INT Y N) (IPLUS (NAT-TO-INT X N) C)) N) (QUOTE 0) (QUOTE 1))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-NOT . SUBX-V-LA) (IMMEDIATE-DEPENDENTS0 LOGNOT-NAT-RANGEP . SUBX-V-LA) (IMMEDIATE-DEPENDENTS0 NEGP . SUBX-V-LA) (IMMEDIATE-DEPENDENTS0 NEGATIVEP-GUTS0 . SUBX-V-LA) (IMMEDIATE-DEPENDENTS0 IZEROP . SUBX-V-LA) (IMMEDIATE-DEPENDENTS0 NAT-TO-INT-INTEGERP . SUBX-V-LA) (IMMEDIATE-DEPENDENTS0 INTEGERP-FIX-INT . SUBX-V-LA) (IMMEDIATE-DEPENDENTS0 INEG . SUBX-V-LA) (IMMEDIATE-DEPENDENTS0 LOGNOT-INT . SUBX-V-LA) (IMMEDIATE-DEPENDENTS0 IPLUS-COMMUTATIVITY . SUBX-V-LA) (IMMEDIATE-DEPENDENTS0 IPLUS-1--1 . SUBX-V-LA) (IMMEDIATE-DEPENDENTS0 IPLUS-COMMUTATIVITY1 . SUBX-V-LA) (IMMEDIATE-DEPENDENTS0 IPLUS-ASSOCIATIVITY . SUBX-V-LA) (IMMEDIATE-DEPENDENTS0 ADDX-V-LA . SUBX-V-LA) (IMMEDIATE-DEPENDENTS0 SUBX-ADDX-V . SUBX-V-LA) (IMMEDIATE-DEPENDENTS0 IPLUS-0 . SUBX-V-LA) (IMMEDIATE-DEPENDENTS0 IPLUS-INTEGERP . SUBX-V-LA) (IMMEDIATE-DEPENDENTS0 INEG-IPLUS . SUBX-V-LA) (IMMEDIATE-DEPENDENTS0 IPLUS . SUBX-V-LA) (IMMEDIATE-DEPENDENTS0 NAT-TO-INT . SUBX-V-LA) (IMMEDIATE-DEPENDENTS0 IDIFFERENCE . SUBX-V-LA) (IMMEDIATE-DEPENDENTS0 INT-RANGEP . SUBX-V-LA) (IMMEDIATE-DEPENDENTS0 SUBX-V . SUBX-V-LA) (IMMEDIATE-DEPENDENTS0 BITP . SUBX-V-LA) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . SUBX-V-LA) (LEMMAS SUBX-V . SUBX-V-LA))))) (PUT1-LST (QUOTE ADDX-V-LA) (QUOTE (IDATE 1000402215020 IMMEDIATE-DEPENDENTS0 (ADDX-V-LA-OFF ADD-BVS&VC SUBX-V-LA) EVENT (PROVE-LEMMA ADDX-V-LA (REWRITE) (IMPLIES (AND (NAT-RANGEP X N) (AND (NAT-RANGEP Y N) (AND (BITP C) (NOT (ZEROP N))))) (EQUAL (ADDX-V N C X Y) (IF (INT-RANGEP (IPLUS (NAT-TO-INT X N) (IPLUS (NAT-TO-INT Y N) C)) N) (QUOTE 0) (QUOTE 1)))) ((DISABLE BITP IPLUS-COMMUTATIVITY IPLUS-COMMUTATIVITY1))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IPLUS-WITH-CARRY-NON-NEGATIVEP . ADDX-V-LA) (IMMEDIATE-DEPENDENTS0 IPLUS-WITH-CARRY-NEGATIVEP . ADDX-V-LA) (IMMEDIATE-DEPENDENTS0 IPLUS-INT-RANGEP1 . ADDX-V-LA) (IMMEDIATE-DEPENDENTS0 IPLUS-INT-RANGEP2 . ADDX-V-LA) (IMMEDIATE-DEPENDENTS0 ADDX-V-CROCK1 . ADDX-V-LA) (IMMEDIATE-DEPENDENTS0 NAT-TO-INT-RANGEP . ADDX-V-LA) (IMMEDIATE-DEPENDENTS0 NAT-TO-INT-INTEGERP . ADDX-V-LA) (IMMEDIATE-DEPENDENTS0 NUMBERP-INTEGERP . ADDX-V-LA) (IMMEDIATE-DEPENDENTS0 ADDX-V-CROCK2 . ADDX-V-LA) (IMMEDIATE-DEPENDENTS0 B-OR . ADDX-V-LA) (IMMEDIATE-DEPENDENTS0 B-NOT . ADDX-V-LA) (IMMEDIATE-DEPENDENTS0 ADDER-NAT-RANGEP . ADDX-V-LA) (IMMEDIATE-DEPENDENTS0 ADDER-INT . ADDX-V-LA) (IMMEDIATE-DEPENDENTS0 B-AND . ADDX-V-LA) (IMMEDIATE-DEPENDENTS0 B0 . ADDX-V-LA) (IMMEDIATE-DEPENDENTS0 B0P . ADDX-V-LA) (IMMEDIATE-DEPENDENTS0 B1 . ADDX-V-LA) (IMMEDIATE-DEPENDENTS0 MBIT . ADDX-V-LA) (IMMEDIATE-DEPENDENTS0 MBIT-MEANS-NEGATIVEP . ADDX-V-LA) (IMMEDIATE-DEPENDENTS0 NAT-TO-INT . ADDX-V-LA) (IMMEDIATE-DEPENDENTS0 IPLUS . ADDX-V-LA) (IMMEDIATE-DEPENDENTS0 INT-RANGEP . ADDX-V-LA) (IMMEDIATE-DEPENDENTS0 ADDX-V . ADDX-V-LA) (IMMEDIATE-DEPENDENTS0 BITP . ADDX-V-LA) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . ADDX-V-LA) (LEMMAS ADDX-V . ADDX-V-LA))))) (PUT1-LST (QUOTE MBIT-MEANS-NEGATIVEP) (QUOTE (IDATE 1000402215020 IMMEDIATE-DEPENDENTS0 (MBIT-MEANS-NEGATIVEP-OFF MOVE-BLE MOVE-BGT SUB-BLE SUB-BGT SUB-BLT SUB-BGE EXT-BMI ASR-BMI ASL-BMI MULS_3232-BMI MULS_3264-BMI MULS_1632-BMI ADD-BMI SUB-BMI MOVE-BMI ADDX-V-LA) EVENT (PROVE-LEMMA MBIT-MEANS-NEGATIVEP (REWRITE) (IMPLIES (NAT-RANGEP X N) (EQUAL (BITN X (SUB1 N)) (IF (NEGATIVEP (NAT-TO-INT X N)) (QUOTE 1) (QUOTE 0)))) ((ENABLE NAT-TO-INT BITN BCAR TAIL NAT-RANGEP))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EXP-OF-2-0 . MBIT-MEANS-NEGATIVEP) (IMMEDIATE-DEPENDENTS0 TIMES-LESSP . MBIT-MEANS-NEGATIVEP) (IMMEDIATE-DEPENDENTS0 QUOTIENT-EXIT . MBIT-MEANS-NEGATIVEP) (IMMEDIATE-DEPENDENTS0 EXP . MBIT-MEANS-NEGATIVEP) (IMMEDIATE-DEPENDENTS0 QUOTIENT-TIMES-LESSP . MBIT-MEANS-NEGATIVEP) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . MBIT-MEANS-NEGATIVEP) (IMMEDIATE-DEPENDENTS0 REMAINDER-EXIT . MBIT-MEANS-NEGATIVEP) (IMMEDIATE-DEPENDENTS0 QUOTIENT-1 . MBIT-MEANS-NEGATIVEP) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . MBIT-MEANS-NEGATIVEP) (IMMEDIATE-DEPENDENTS0 LESSP-OF-1 . MBIT-MEANS-NEGATIVEP) (IMMEDIATE-DEPENDENTS0 TAIL . MBIT-MEANS-NEGATIVEP) (IMMEDIATE-DEPENDENTS0 BCAR . MBIT-MEANS-NEGATIVEP) (IMMEDIATE-DEPENDENTS0 NAT-TO-INT . MBIT-MEANS-NEGATIVEP) (IMMEDIATE-DEPENDENTS0 BITN . MBIT-MEANS-NEGATIVEP) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . MBIT-MEANS-NEGATIVEP) (LEMMAS BITN . MBIT-MEANS-NEGATIVEP))))) (PUT1-LST (QUOTE SUB-SUBX-V) (QUOTE (IDATE 1000402215020 IMMEDIATE-DEPENDENTS0 (SUB-SUBX-V-OFF SUB-BLE SUB-BGT SUB-BLT SUB-BGE SUB-BVS&VC) EVENT (PROVE-LEMMA SUB-SUBX-V (REWRITE) (EQUAL (SUB-V N X Y) (SUBX-V N (QUOTE 0) X Y)) ((ENABLE ADD-ADDER SUBTRACTER SUB-ADDER) (DISABLE SUB-NEG))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-OR . SUB-SUBX-V) (IMMEDIATE-DEPENDENTS0 SUB-ADDER . SUB-SUBX-V) (IMMEDIATE-DEPENDENTS0 B-AND . SUB-SUBX-V) (IMMEDIATE-DEPENDENTS0 B-NOT . SUB-SUBX-V) (IMMEDIATE-DEPENDENTS0 B0 . SUB-SUBX-V) (IMMEDIATE-DEPENDENTS0 B0P . SUB-SUBX-V) (IMMEDIATE-DEPENDENTS0 B1 . SUB-SUBX-V) (IMMEDIATE-DEPENDENTS0 MBIT . SUB-SUBX-V) (IMMEDIATE-DEPENDENTS0 SUBTRACTER . SUB-SUBX-V) (IMMEDIATE-DEPENDENTS0 SUBX-V . SUB-SUBX-V) (IMMEDIATE-DEPENDENTS0 SUB-V . SUB-SUBX-V) (LEMMAS SUB-V . SUB-SUBX-V))))) (PUT1-LST (QUOTE SUBX-ADDX-V) (QUOTE (IDATE 1000402215020 IMMEDIATE-DEPENDENTS0 (SUBX-ADDX-V-OFF SUBX-V-LA) EVENT (PROVE-LEMMA SUBX-ADDX-V (REWRITE) (IMPLIES (AND (NAT-RANGEP X N) (NOT (ZEROP N))) (EQUAL (SUBX-V N Z X Y) (ADDX-V N (B-NOT Z) Y (LOGNOT N X)))) ((ENABLE SUBTRACTER))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . SUBX-ADDX-V) (IMMEDIATE-DEPENDENTS0 BITN-LOGNOT . SUBX-ADDX-V) (IMMEDIATE-DEPENDENTS0 BITN-0-1 . SUBX-ADDX-V) (IMMEDIATE-DEPENDENTS0 B-OR . SUBX-ADDX-V) (IMMEDIATE-DEPENDENTS0 SUBTRACTER . SUBX-ADDX-V) (IMMEDIATE-DEPENDENTS0 B-AND . SUBX-ADDX-V) (IMMEDIATE-DEPENDENTS0 B0 . SUBX-ADDX-V) (IMMEDIATE-DEPENDENTS0 B0P . SUBX-ADDX-V) (IMMEDIATE-DEPENDENTS0 B1 . SUBX-ADDX-V) (IMMEDIATE-DEPENDENTS0 MBIT . SUBX-ADDX-V) (IMMEDIATE-DEPENDENTS0 LOGNOT . SUBX-ADDX-V) (IMMEDIATE-DEPENDENTS0 B-NOT . SUBX-ADDX-V) (IMMEDIATE-DEPENDENTS0 ADDX-V . SUBX-ADDX-V) (IMMEDIATE-DEPENDENTS0 SUBX-V . SUBX-ADDX-V) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . SUBX-ADDX-V) (LEMMAS SUBX-V . SUBX-ADDX-V))))) (PUT1-LST (QUOTE ADD-ADDX-V) (QUOTE (IDATE 1000402215019 IMMEDIATE-DEPENDENTS0 (ADD-ADDX-V-OFF ADD-BVS&VC) EVENT (PROVE-LEMMA ADD-ADDX-V (REWRITE) (EQUAL (ADD-V N X Y) (ADDX-V N (QUOTE 0) X Y)) ((ENABLE ADD-ADDER))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-OR . ADD-ADDX-V) (IMMEDIATE-DEPENDENTS0 B-NOT . ADD-ADDX-V) (IMMEDIATE-DEPENDENTS0 ADD-ADDER . ADD-ADDX-V) (IMMEDIATE-DEPENDENTS0 B-AND . ADD-ADDX-V) (IMMEDIATE-DEPENDENTS0 B0 . ADD-ADDX-V) (IMMEDIATE-DEPENDENTS0 B0P . ADD-ADDX-V) (IMMEDIATE-DEPENDENTS0 B1 . ADD-ADDX-V) (IMMEDIATE-DEPENDENTS0 MBIT . ADD-ADDX-V) (IMMEDIATE-DEPENDENTS0 ADDX-V . ADD-ADDX-V) (IMMEDIATE-DEPENDENTS0 ADD-V . ADD-ADDX-V) (LEMMAS ADD-V . ADD-ADDX-V))))) (PUT1-LST (QUOTE BCS-OFF) (QUOTE (IDATE 1000402215019 EVENT (TOGGLE BCS-OFF BCS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BCS . BCS-OFF) (DISABLED-LEMMAS NIL BCS BCS-OFF . T))))) (PUT1-LST (QUOTE TAIL-MBIT-OFF) (QUOTE (IDATE 1000402215019 EVENT (TOGGLE TAIL-MBIT-OFF TAIL-MBIT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TAIL-MBIT . TAIL-MBIT-OFF) (DISABLED-LEMMAS NIL TAIL-MBIT TAIL-MBIT-OFF . T))))) (PUT1-LST (QUOTE LSR-1-BCS&CC) (QUOTE (IDATE 1000402215019 EVENT (PROVE-LEMMA LSR-1-BCS&CC (REWRITE) (IMPLIES (LESSP (QUOTE 1) N) (EQUAL (BCS (LSR-C N X (QUOTE 1))) (REMAINDER (NAT-TO-UINT X) (QUOTE 2)))) ((ENABLE BITN BCAR))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-WRT-2 . LSR-1-BCS&CC) (IMMEDIATE-DEPENDENTS0 BITN . LSR-1-BCS&CC) (IMMEDIATE-DEPENDENTS0 TAIL-OF-0 . LSR-1-BCS&CC) (IMMEDIATE-DEPENDENTS0 BCAR . LSR-1-BCS&CC) (IMMEDIATE-DEPENDENTS0 B0 . LSR-1-BCS&CC) (IMMEDIATE-DEPENDENTS0 LESSP-OF-1 . LSR-1-BCS&CC) (IMMEDIATE-DEPENDENTS0 B1 . LSR-1-BCS&CC) (IMMEDIATE-DEPENDENTS0 B0P . LSR-1-BCS&CC) (IMMEDIATE-DEPENDENTS0 FIX-BIT . LSR-1-BCS&CC) (IMMEDIATE-DEPENDENTS0 NAT-TO-UINT . LSR-1-BCS&CC) (IMMEDIATE-DEPENDENTS0 LSR-C . LSR-1-BCS&CC) (IMMEDIATE-DEPENDENTS0 BCS . LSR-1-BCS&CC) (LEMMAS BCS . LSR-1-BCS&CC))))) (PUT1-LST (QUOTE LSR-C-0) (QUOTE (IDATE 1000402215019 IMMEDIATE-DEPENDENTS0 (S&R-GROUP-H) EVENT (PROVE-LEMMA LSR-C-0 (REWRITE) (EQUAL (LSR-C N X (QUOTE 0)) (QUOTE 0))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B0 . LSR-C-0) (IMMEDIATE-DEPENDENTS0 LSR-C . LSR-C-0) (LEMMAS LSR-C . LSR-C-0))))) (PUT1-LST (QUOTE LSL-1-BCS&CC) (QUOTE (IDATE 1000402215019 EVENT (PROVE-LEMMA LSL-1-BCS&CC (REWRITE) (IMPLIES (AND (NAT-RANGEP X N) (LESSP (QUOTE 1) N)) (EQUAL (BCS (LSL-C N X (QUOTE 1))) (IF (UINT-RANGEP (NAT-TO-UINT X) (SUB1 N)) (QUOTE 0) (QUOTE 1)))) ((ENABLE BITN NAT-RANGEP))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BCAR . LSL-1-BCS&CC) (IMMEDIATE-DEPENDENTS0 TIMES-LESSP . LSL-1-BCS&CC) (IMMEDIATE-DEPENDENTS0 EXP . LSL-1-BCS&CC) (IMMEDIATE-DEPENDENTS0 SUB1-OF-1 . LSL-1-BCS&CC) (IMMEDIATE-DEPENDENTS0 BITN . LSL-1-BCS&CC) (IMMEDIATE-DEPENDENTS0 TAIL-MBIT . LSL-1-BCS&CC) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-SUB1 . LSL-1-BCS&CC) (IMMEDIATE-DEPENDENTS0 LESSP-OF-1 . LSL-1-BCS&CC) (IMMEDIATE-DEPENDENTS0 B1 . LSL-1-BCS&CC) (IMMEDIATE-DEPENDENTS0 B0P . LSL-1-BCS&CC) (IMMEDIATE-DEPENDENTS0 B0 . LSL-1-BCS&CC) (IMMEDIATE-DEPENDENTS0 FIX-BIT . LSL-1-BCS&CC) (IMMEDIATE-DEPENDENTS0 NAT-TO-UINT . LSL-1-BCS&CC) (IMMEDIATE-DEPENDENTS0 UINT-RANGEP . LSL-1-BCS&CC) (IMMEDIATE-DEPENDENTS0 LSL-C . LSL-1-BCS&CC) (IMMEDIATE-DEPENDENTS0 BCS . LSL-1-BCS&CC) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . LSL-1-BCS&CC) (LEMMAS BCS . LSL-1-BCS&CC))))) (PUT1-LST (QUOTE LSL-C-0) (QUOTE (IDATE 1000402215019 IMMEDIATE-DEPENDENTS0 (S&R-GROUP-H) EVENT (PROVE-LEMMA LSL-C-0 (REWRITE) (EQUAL (LSL-C N X (QUOTE 0)) (QUOTE 0))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B0 . LSL-C-0) (IMMEDIATE-DEPENDENTS0 LSL-C . LSL-C-0) (LEMMAS LSL-C . LSL-C-0))))) (PUT1-LST (QUOTE TAIL-MBIT) (QUOTE (IDATE 1000402215019 IMMEDIATE-DEPENDENTS0 (TAIL-MBIT-OFF LSL-1-BCS&CC) EVENT (PROVE-LEMMA TAIL-MBIT (REWRITE) (IMPLIES (LESSP X (EXP (QUOTE 2) N)) (EQUAL (TAIL X (SUB1 N)) (IF (LESSP X (EXP (QUOTE 2) (SUB1 N))) (QUOTE 0) (QUOTE 1)))) ((ENABLE TAIL))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-LESSP . TAIL-MBIT) (IMMEDIATE-DEPENDENTS0 EXP-OF-2-0 . TAIL-MBIT) (IMMEDIATE-DEPENDENTS0 QUOTIENT-EXIT . TAIL-MBIT) (IMMEDIATE-DEPENDENTS0 QUOTIENT-1 . TAIL-MBIT) (IMMEDIATE-DEPENDENTS0 LESSP-OF-1 . TAIL-MBIT) (IMMEDIATE-DEPENDENTS0 TAIL . TAIL-MBIT) (IMMEDIATE-DEPENDENTS0 EXP . TAIL-MBIT) (LEMMAS TAIL . TAIL-MBIT))))) (PUT1-LST (QUOTE ADD-BCS&CC) (QUOTE (IDATE 1000402215019 EVENT (PROVE-LEMMA ADD-BCS&CC (REWRITE) (IMPLIES (AND (NAT-RANGEP X N) (AND (NAT-RANGEP Y N) (NOT (ZEROP N)))) (EQUAL (BCS (ADD-C N X Y)) (IF (LESSP (PLUS (NAT-TO-UINT X) (NAT-TO-UINT Y)) (EXP (QUOTE 2) N)) (QUOTE 0) (QUOTE 1))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . ADD-BCS&CC) (IMMEDIATE-DEPENDENTS0 EXP-LESSP . ADD-BCS&CC) (IMMEDIATE-DEPENDENTS0 SUB1-NAT-RANGEP . ADD-BCS&CC) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP-OF-0 . ADD-BCS&CC) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . ADD-BCS&CC) (IMMEDIATE-DEPENDENTS0 BITP . ADD-BCS&CC) (IMMEDIATE-DEPENDENTS0 ADDX-C-LA . ADD-BCS&CC) (IMMEDIATE-DEPENDENTS0 B1 . ADD-BCS&CC) (IMMEDIATE-DEPENDENTS0 B0P . ADD-BCS&CC) (IMMEDIATE-DEPENDENTS0 B0 . ADD-BCS&CC) (IMMEDIATE-DEPENDENTS0 FIX-BIT . ADD-BCS&CC) (IMMEDIATE-DEPENDENTS0 ADD-ADDX-C . ADD-BCS&CC) (IMMEDIATE-DEPENDENTS0 EXP . ADD-BCS&CC) (IMMEDIATE-DEPENDENTS0 NAT-TO-UINT . ADD-BCS&CC) (IMMEDIATE-DEPENDENTS0 ADD-C . ADD-BCS&CC) (IMMEDIATE-DEPENDENTS0 BCS . ADD-BCS&CC) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . ADD-BCS&CC) (LEMMAS BCS . ADD-BCS&CC))))) (PUT1-LST (QUOTE SUB-BCS&CC) (QUOTE (IDATE 1000402215019 EVENT (PROVE-LEMMA SUB-BCS&CC (REWRITE) (IMPLIES (AND (NAT-RANGEP X N) (AND (NAT-RANGEP Y N) (NOT (ZEROP N)))) (EQUAL (BCS (SUB-C N X Y)) (IF (LESSP (NAT-TO-UINT Y) (NAT-TO-UINT X)) (QUOTE 1) (QUOTE 0))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BITP . SUB-BCS&CC) (IMMEDIATE-DEPENDENTS0 SUBX-C-LA . SUB-BCS&CC) (IMMEDIATE-DEPENDENTS0 B1 . SUB-BCS&CC) (IMMEDIATE-DEPENDENTS0 B0P . SUB-BCS&CC) (IMMEDIATE-DEPENDENTS0 B0 . SUB-BCS&CC) (IMMEDIATE-DEPENDENTS0 FIX-BIT . SUB-BCS&CC) (IMMEDIATE-DEPENDENTS0 SUB-SUBX-C . SUB-BCS&CC) (IMMEDIATE-DEPENDENTS0 NAT-TO-UINT . SUB-BCS&CC) (IMMEDIATE-DEPENDENTS0 SUB-C . SUB-BCS&CC) (IMMEDIATE-DEPENDENTS0 BCS . SUB-BCS&CC) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . SUB-BCS&CC) (LEMMAS BCS . SUB-BCS&CC))))) (PUT1-LST (QUOTE BEQ-OFF) (QUOTE (IDATE 1000402215019 EVENT (TOGGLE BEQ-OFF BEQ T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BEQ . BEQ-OFF) (DISABLED-LEMMAS NIL BEQ BEQ-OFF . T))))) (PUT1-LST (QUOTE INT-TO-NAT=0-OFF) (QUOTE (IDATE 1000402215019 EVENT (TOGGLE INT-TO-NAT=0-OFF INT-TO-NAT=0 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INT-TO-NAT=0 . INT-TO-NAT=0-OFF) (DISABLED-LEMMAS NIL INT-TO-NAT=0 INT-TO-NAT=0-OFF . T))))) (PUT1-LST (QUOTE IQUOTIENT=0-OFF) (QUOTE (IDATE 1000402215019 EVENT (TOGGLE IQUOTIENT=0-OFF IQUOTIENT=0 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IQUOTIENT=0 . IQUOTIENT=0-OFF) (DISABLED-LEMMAS NIL IQUOTIENT=0 IQUOTIENT=0-OFF . T))))) (PUT1-LST (QUOTE EXT-BEQ-INT-1) (QUOTE (IDATE 1000402215019 EVENT (PROVE-LEMMA EXT-BEQ-INT-1 (REWRITE) (IMPLIES (AND (NAT-RANGEP X N) (AND (LESSP N SIZE) (EQUAL (NAT-TO-INT X N) (QUOTE 0)))) (EQUAL (BEQ (EXT-Z N X SIZE)) (QUOTE 1))) ((USE (Z-FLAG-LA (X (EXT N X SIZE)) (N SIZE))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EXT-INT . EXT-BEQ-INT-1) (IMMEDIATE-DEPENDENTS0 B1 . EXT-BEQ-INT-1) (IMMEDIATE-DEPENDENTS0 FIX-BIT . EXT-BEQ-INT-1) (IMMEDIATE-DEPENDENTS0 Z-FLAG-LA . EXT-BEQ-INT-1) (IMMEDIATE-DEPENDENTS0 EXT-Z . EXT-BEQ-INT-1) (IMMEDIATE-DEPENDENTS0 BEQ . EXT-BEQ-INT-1) (IMMEDIATE-DEPENDENTS0 NAT-TO-INT . EXT-BEQ-INT-1) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . EXT-BEQ-INT-1) (LEMMAS BEQ . EXT-BEQ-INT-1))))) (PUT1-LST (QUOTE EXT-BEQ-INT-0) (QUOTE (IDATE 1000402215019 EVENT (PROVE-LEMMA EXT-BEQ-INT-0 (REWRITE) (IMPLIES (AND (NAT-RANGEP X N) (AND (LESSP N SIZE) (NOT (EQUAL (NAT-TO-INT X N) (QUOTE 0))))) (EQUAL (BEQ (EXT-Z N X SIZE)) (QUOTE 0))) ((USE (Z-FLAG-LA (X (EXT N X SIZE)) (N SIZE))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EXT-INT . EXT-BEQ-INT-0) (IMMEDIATE-DEPENDENTS0 B0 . EXT-BEQ-INT-0) (IMMEDIATE-DEPENDENTS0 FIX-BIT . EXT-BEQ-INT-0) (IMMEDIATE-DEPENDENTS0 Z-FLAG-LA . EXT-BEQ-INT-0) (IMMEDIATE-DEPENDENTS0 EXT-Z . EXT-BEQ-INT-0) (IMMEDIATE-DEPENDENTS0 BEQ . EXT-BEQ-INT-0) (IMMEDIATE-DEPENDENTS0 NAT-TO-INT . EXT-BEQ-INT-0) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . EXT-BEQ-INT-0) (LEMMAS BEQ . EXT-BEQ-INT-0))))) (PUT1-LST (QUOTE EXT-BEQ-UINT) (QUOTE (IDATE 1000402215019 EVENT (PROVE-LEMMA EXT-BEQ-UINT (REWRITE) (IMPLIES (AND (NAT-RANGEP X N) (IF (LESSP SIZE N) (QUOTE *1*FALSE) (QUOTE *1*TRUE))) (EQUAL (BEQ (EXT-Z N X SIZE)) (IF (EQUAL (NAT-TO-UINT X) (QUOTE 0)) (QUOTE 1) (QUOTE 0)))) ((ENABLE APP EXT NAT-RANGEP MBIT-MEANS-LESSP))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUB1-OF-1 . EXT-BEQ-UINT) (IMMEDIATE-DEPENDENTS0 TIMES-EQUAL-0 . EXT-BEQ-UINT) (IMMEDIATE-DEPENDENTS0 EXP-OF-2-0 . EXT-BEQ-UINT) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP-0 . EXT-BEQ-UINT) (IMMEDIATE-DEPENDENTS0 HEAD . EXT-BEQ-UINT) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP-OF-0 . EXT-BEQ-UINT) (IMMEDIATE-DEPENDENTS0 EXP . EXT-BEQ-UINT) (IMMEDIATE-DEPENDENTS0 LESSP-OF-1 . EXT-BEQ-UINT) (IMMEDIATE-DEPENDENTS0 B1 . EXT-BEQ-UINT) (IMMEDIATE-DEPENDENTS0 EXT . EXT-BEQ-UINT) (IMMEDIATE-DEPENDENTS0 MBIT-MEANS-LESSP . EXT-BEQ-UINT) (IMMEDIATE-DEPENDENTS0 B0 . EXT-BEQ-UINT) (IMMEDIATE-DEPENDENTS0 B0P . EXT-BEQ-UINT) (IMMEDIATE-DEPENDENTS0 HEAD-LEMMA . EXT-BEQ-UINT) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . EXT-BEQ-UINT) (IMMEDIATE-DEPENDENTS0 APP . EXT-BEQ-UINT) (IMMEDIATE-DEPENDENTS0 FIX-BIT . EXT-BEQ-UINT) (IMMEDIATE-DEPENDENTS0 NAT-TO-UINT . EXT-BEQ-UINT) (IMMEDIATE-DEPENDENTS0 EXT-Z . EXT-BEQ-UINT) (IMMEDIATE-DEPENDENTS0 BEQ . EXT-BEQ-UINT) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . EXT-BEQ-UINT) (LEMMAS BEQ . EXT-BEQ-UINT))))) (PUT1-LST (QUOTE ASR-BEQ) (QUOTE (IDATE 1000402215019 EVENT (PROVE-LEMMA ASR-BEQ (REWRITE) (IMPLIES (NAT-RANGEP X N) (EQUAL (BEQ (ASR-Z N X CNT)) (IF (NEGATIVEP (NAT-TO-INT X N)) (QUOTE 0) (IF (LESSP (NAT-TO-INT X N) (EXP (QUOTE 2) CNT)) (QUOTE 1) (QUOTE 0))))) ((USE (Z-FLAG-LA (X (ASR N X CNT)))) (ENABLE IPLUS IQUOTIENT IREMAINDER) (DISABLE ASR))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-EXIT . ASR-BEQ) (IMMEDIATE-DEPENDENTS0 QUOTIENT-EXIT . ASR-BEQ) (IMMEDIATE-DEPENDENTS0 PLUS-ADD1 . ASR-BEQ) (IMMEDIATE-DEPENDENTS0 IPLUS . ASR-BEQ) (IMMEDIATE-DEPENDENTS0 EXP-OF-2-0 . ASR-BEQ) (IMMEDIATE-DEPENDENTS0 FIX-INT . ASR-BEQ) (IMMEDIATE-DEPENDENTS0 MINUS-INTEGERP . ASR-BEQ) (IMMEDIATE-DEPENDENTS0 ABS . ASR-BEQ) (IMMEDIATE-DEPENDENTS0 NEGP . ASR-BEQ) (IMMEDIATE-DEPENDENTS0 NAT-TO-INT-INTEGERP . ASR-BEQ) (IMMEDIATE-DEPENDENTS0 NEGATIVEP-GUTS0 . ASR-BEQ) (IMMEDIATE-DEPENDENTS0 IREMAINDER . ASR-BEQ) (IMMEDIATE-DEPENDENTS0 QUOTIENT-EQUAL-0 . ASR-BEQ) (IMMEDIATE-DEPENDENTS0 IQUOTIENT . ASR-BEQ) (IMMEDIATE-DEPENDENTS0 ASR-INT . ASR-BEQ) (IMMEDIATE-DEPENDENTS0 B1 . ASR-BEQ) (IMMEDIATE-DEPENDENTS0 FIX-BIT . ASR-BEQ) (IMMEDIATE-DEPENDENTS0 B0 . ASR-BEQ) (IMMEDIATE-DEPENDENTS0 Z-FLAG-LA . ASR-BEQ) (IMMEDIATE-DEPENDENTS0 EXP . ASR-BEQ) (IMMEDIATE-DEPENDENTS0 NAT-TO-INT . ASR-BEQ) (IMMEDIATE-DEPENDENTS0 ASR-Z . ASR-BEQ) (IMMEDIATE-DEPENDENTS0 BEQ . ASR-BEQ) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . ASR-BEQ) (LEMMAS BEQ . ASR-BEQ))))) (PUT1-LST (QUOTE ASL-BEQ) (QUOTE (IDATE 1000402215019 EVENT (PROVE-LEMMA ASL-BEQ (REWRITE) (IMPLIES (AND (NAT-RANGEP X N) (INT-RANGEP (NAT-TO-INT X N) (DIFFERENCE N CNT))) (EQUAL (BEQ (ASL-Z N X CNT)) (IF (EQUAL (NAT-TO-INT X N) (QUOTE 0)) (QUOTE 1) (QUOTE 0)))) ((USE (Z-FLAG-LA (X (ASL N X CNT)))) (DISABLE ASL))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EXP-OF-2-0 . ASL-BEQ) (IMMEDIATE-DEPENDENTS0 ITIMES-COMMUTATIVITY . ASL-BEQ) (IMMEDIATE-DEPENDENTS0 ASL-INT . ASL-BEQ) (IMMEDIATE-DEPENDENTS0 INTEGERP-FIX-INT . ASL-BEQ) (IMMEDIATE-DEPENDENTS0 NUMBERP-INTEGERP . ASL-BEQ) (IMMEDIATE-DEPENDENTS0 IZEROP . ASL-BEQ) (IMMEDIATE-DEPENDENTS0 NAT-TO-INT-INTEGERP . ASL-BEQ) (IMMEDIATE-DEPENDENTS0 ITIMES-EQUAL-0 . ASL-BEQ) (IMMEDIATE-DEPENDENTS0 B1 . ASL-BEQ) (IMMEDIATE-DEPENDENTS0 FIX-BIT . ASL-BEQ) (IMMEDIATE-DEPENDENTS0 B0 . ASL-BEQ) (IMMEDIATE-DEPENDENTS0 Z-FLAG-LA . ASL-BEQ) (IMMEDIATE-DEPENDENTS0 ASL-Z . ASL-BEQ) (IMMEDIATE-DEPENDENTS0 BEQ . ASL-BEQ) (IMMEDIATE-DEPENDENTS0 NAT-TO-INT . ASL-BEQ) (IMMEDIATE-DEPENDENTS0 INT-RANGEP . ASL-BEQ) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . ASL-BEQ) (LEMMAS BEQ . ASL-BEQ))))) (PUT1-LST (QUOTE Z-FLAG-LA) (QUOTE (IDATE 1000402215019 IMMEDIATE-DEPENDENTS0 (EXT-BEQ-INT-1 EXT-BEQ-INT-0 ASR-BEQ ASL-BEQ) EVENT (PROVE-LEMMA Z-FLAG-LA NIL (IMPLIES (NUMBERP X) (EQUAL (EQUAL (NAT-TO-INT X N) (QUOTE 0)) (EQUAL X (QUOTE 0)))) ((ENABLE NAT-TO-INT))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EXP-OF-2-0 . Z-FLAG-LA) (IMMEDIATE-DEPENDENTS0 NAT-TO-INT . Z-FLAG-LA))))) (PUT1-LST (QUOTE LSR-BEQ) (QUOTE (IDATE 1000402215019 EVENT (PROVE-LEMMA LSR-BEQ (REWRITE) (EQUAL (BEQ (LSR-Z N X CNT)) (IF (LESSP (NAT-TO-UINT X) (EXP (QUOTE 2) CNT)) (QUOTE 1) (QUOTE 0))) ((ENABLE NAT-RANGEP))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B0 . LSR-BEQ) (IMMEDIATE-DEPENDENTS0 B1 . LSR-BEQ) (IMMEDIATE-DEPENDENTS0 TAIL-EQUAL-0 . LSR-BEQ) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . LSR-BEQ) (IMMEDIATE-DEPENDENTS0 LSR . LSR-BEQ) (IMMEDIATE-DEPENDENTS0 B0P . LSR-BEQ) (IMMEDIATE-DEPENDENTS0 FIX-BIT . LSR-BEQ) (IMMEDIATE-DEPENDENTS0 EXP . LSR-BEQ) (IMMEDIATE-DEPENDENTS0 NAT-TO-UINT . LSR-BEQ) (IMMEDIATE-DEPENDENTS0 LSR-Z . LSR-BEQ) (IMMEDIATE-DEPENDENTS0 BEQ . LSR-BEQ) (LEMMAS BEQ . LSR-BEQ))))) (PUT1-LST (QUOTE LSL-BEQ) (QUOTE (IDATE 1000402215019 EVENT (PROVE-LEMMA LSL-BEQ (REWRITE) (IMPLIES (UINT-RANGEP (NAT-TO-UINT X) (DIFFERENCE N CNT)) (EQUAL (BEQ (LSL-Z N X CNT)) (IF (EQUAL (NAT-TO-UINT X) (QUOTE 0)) (QUOTE 1) (QUOTE 0)))) ((ENABLE NAT-RANGEP))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EXP-OF-2-0 . LSL-BEQ) (IMMEDIATE-DEPENDENTS0 B1 . LSL-BEQ) (IMMEDIATE-DEPENDENTS0 LSL . LSL-BEQ) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . LSL-BEQ) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP-OF-0 . LSL-BEQ) (IMMEDIATE-DEPENDENTS0 HEAD-LEMMA . LSL-BEQ) (IMMEDIATE-DEPENDENTS0 FIX-BIT . LSL-BEQ) (IMMEDIATE-DEPENDENTS0 B0 . LSL-BEQ) (IMMEDIATE-DEPENDENTS0 TIMES-EQUAL-0 . LSL-BEQ) (IMMEDIATE-DEPENDENTS0 TIMES-EXP2-NAT-RANGEP . LSL-BEQ) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . LSL-BEQ) (IMMEDIATE-DEPENDENTS0 B0P . LSL-BEQ) (IMMEDIATE-DEPENDENTS0 LSL-Z . LSL-BEQ) (IMMEDIATE-DEPENDENTS0 BEQ . LSL-BEQ) (IMMEDIATE-DEPENDENTS0 NAT-TO-UINT . LSL-BEQ) (IMMEDIATE-DEPENDENTS0 UINT-RANGEP . LSL-BEQ) (LEMMAS BEQ . LSL-BEQ))))) (PUT1-LST (QUOTE DIVS-BEQ) (QUOTE (IDATE 1000402215018 EVENT (PROVE-LEMMA DIVS-BEQ (REWRITE) (IMPLIES (AND (INT-RANGEP (IQUOTIENT (NAT-TO-INT Y J) (NAT-TO-INT X I)) N) (AND (NAT-RANGEP X I) (AND (NOT (EQUAL (NAT-TO-INT X I) (QUOTE 0))) (IF (LESSP J N) (QUOTE *1*FALSE) (QUOTE *1*TRUE))))) (EQUAL (BEQ (DIVS-Z N X I Y J)) (IF (LESSP (ABS (NAT-TO-INT Y J)) (ABS (NAT-TO-INT X I))) (QUOTE 1) (QUOTE 0)))) ((ENABLE HEAD-INT-CROCK))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B0 . DIVS-BEQ) (IMMEDIATE-DEPENDENTS0 B1 . DIVS-BEQ) (IMMEDIATE-DEPENDENTS0 INT-TO-NAT=0 . DIVS-BEQ) (IMMEDIATE-DEPENDENTS0 IQUOTIENT=0 . DIVS-BEQ) (IMMEDIATE-DEPENDENTS0 NEGATIVEP-GUTS0 . DIVS-BEQ) (IMMEDIATE-DEPENDENTS0 NEGP . DIVS-BEQ) (IMMEDIATE-DEPENDENTS0 NAT-TO-INT-INTEGERP . DIVS-BEQ) (IMMEDIATE-DEPENDENTS0 IQUOT . DIVS-BEQ) (IMMEDIATE-DEPENDENTS0 IQUOTIENT-INTEGERP . DIVS-BEQ) (IMMEDIATE-DEPENDENTS0 HEAD-INT-CROCK . DIVS-BEQ) (IMMEDIATE-DEPENDENTS0 B0P . DIVS-BEQ) (IMMEDIATE-DEPENDENTS0 FIX-BIT . DIVS-BEQ) (IMMEDIATE-DEPENDENTS0 ABS . DIVS-BEQ) (IMMEDIATE-DEPENDENTS0 DIVS-Z . DIVS-BEQ) (IMMEDIATE-DEPENDENTS0 BEQ . DIVS-BEQ) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . DIVS-BEQ) (IMMEDIATE-DEPENDENTS0 NAT-TO-INT . DIVS-BEQ) (IMMEDIATE-DEPENDENTS0 IQUOTIENT . DIVS-BEQ) (IMMEDIATE-DEPENDENTS0 INT-RANGEP . DIVS-BEQ) (LEMMAS BEQ . DIVS-BEQ))))) (PUT1-LST (QUOTE IQUOTIENT=0) (QUOTE (IDATE 1000402215018 IMMEDIATE-DEPENDENTS0 (IQUOTIENT=0-OFF DIVS-BEQ) EVENT (PROVE-LEMMA IQUOTIENT=0 (REWRITE) (IMPLIES (AND (INTEGERP Y) (NOT (EQUAL Y (QUOTE 0)))) (EQUAL (EQUAL (IQUOTIENT X Y) (QUOTE 0)) (LESSP (ABS X) (ABS Y)))) ((ENABLE INTEGERP IQUOTIENT))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 QUOTIENT-EXIT . IQUOTIENT=0) (IMMEDIATE-DEPENDENTS0 NEGP . IQUOTIENT=0) (IMMEDIATE-DEPENDENTS0 FIX-INT . IQUOTIENT=0) (IMMEDIATE-DEPENDENTS0 QUOTIENT-EQUAL-0 . IQUOTIENT=0) (IMMEDIATE-DEPENDENTS0 MINUS-INTEGERP . IQUOTIENT=0) (IMMEDIATE-DEPENDENTS0 NEGATIVEP-GUTS0 . IQUOTIENT=0) (IMMEDIATE-DEPENDENTS0 ABS . IQUOTIENT=0) (IMMEDIATE-DEPENDENTS0 IQUOTIENT . IQUOTIENT=0) (IMMEDIATE-DEPENDENTS0 INTEGERP . IQUOTIENT=0) (LEMMAS EQUAL . IQUOTIENT=0))))) (PUT1-LST (QUOTE DIVU-BEQ) (QUOTE (IDATE 1000402215018 EVENT (PROVE-LEMMA DIVU-BEQ (REWRITE) (IMPLIES (AND (NAT-RANGEP Y N) (NOT (EQUAL (NAT-TO-UINT X) (QUOTE 0)))) (EQUAL (BEQ (DIVU-Z N X Y)) (IF (LESSP (NAT-TO-UINT Y) (NAT-TO-UINT X)) (QUOTE 1) (QUOTE 0))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B0 . DIVU-BEQ) (IMMEDIATE-DEPENDENTS0 B1 . DIVU-BEQ) (IMMEDIATE-DEPENDENTS0 QUOTIENT-EQUAL-0 . DIVU-BEQ) (IMMEDIATE-DEPENDENTS0 QUOT . DIVU-BEQ) (IMMEDIATE-DEPENDENTS0 QUOTIENT-NAT-RANGEP . DIVU-BEQ) (IMMEDIATE-DEPENDENTS0 HEAD-LEMMA . DIVU-BEQ) (IMMEDIATE-DEPENDENTS0 B0P . DIVU-BEQ) (IMMEDIATE-DEPENDENTS0 FIX-BIT . DIVU-BEQ) (IMMEDIATE-DEPENDENTS0 DIVU-Z . DIVU-BEQ) (IMMEDIATE-DEPENDENTS0 BEQ . DIVU-BEQ) (IMMEDIATE-DEPENDENTS0 NAT-TO-UINT . DIVU-BEQ) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . DIVU-BEQ) (LEMMAS BEQ . DIVU-BEQ))))) (PUT1-LST (QUOTE MULS_3232-BEQ) (QUOTE (IDATE 1000402215018 EVENT (PROVE-LEMMA MULS_3232-BEQ (REWRITE) (IMPLIES (AND (INT-RANGEP (ITIMES (NAT-TO-INT X (QUOTE 32)) (NAT-TO-INT Y (QUOTE 32))) (QUOTE 32)) (AND (NAT-RANGEP X (QUOTE 32)) (NAT-RANGEP Y (QUOTE 32)))) (EQUAL (BEQ (MULS-Z (QUOTE 32) X Y (QUOTE 32))) (IF (OR (EQUAL (NAT-TO-INT X (QUOTE 32)) (QUOTE 0)) (EQUAL (NAT-TO-INT Y (QUOTE 32)) (QUOTE 0))) (QUOTE 1) (QUOTE 0)))) ((USE (MULS_3232-INT)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INTEGERP-FIX-INT . MULS_3232-BEQ) (IMMEDIATE-DEPENDENTS0 NAT-TO-INT-INTEGERP . MULS_3232-BEQ) (IMMEDIATE-DEPENDENTS0 IZEROP . MULS_3232-BEQ) (IMMEDIATE-DEPENDENTS0 ITIMES-EQUAL-0 . MULS_3232-BEQ) (IMMEDIATE-DEPENDENTS0 ITIMES-0 . MULS_3232-BEQ) (IMMEDIATE-DEPENDENTS0 ITIMES-COMMUTATIVITY . MULS_3232-BEQ) (IMMEDIATE-DEPENDENTS0 INT-TO-NAT . MULS_3232-BEQ) (IMMEDIATE-DEPENDENTS0 HEAD . MULS_3232-BEQ) (IMMEDIATE-DEPENDENTS0 MULS . MULS_3232-BEQ) (IMMEDIATE-DEPENDENTS0 B0 . MULS_3232-BEQ) (IMMEDIATE-DEPENDENTS0 B1 . MULS_3232-BEQ) (IMMEDIATE-DEPENDENTS0 B0P . MULS_3232-BEQ) (IMMEDIATE-DEPENDENTS0 FIX-BIT . MULS_3232-BEQ) (IMMEDIATE-DEPENDENTS0 MULS_3232-INT . MULS_3232-BEQ) (IMMEDIATE-DEPENDENTS0 MULS-Z . MULS_3232-BEQ) (IMMEDIATE-DEPENDENTS0 BEQ . MULS_3232-BEQ) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . MULS_3232-BEQ) (IMMEDIATE-DEPENDENTS0 NAT-TO-INT . MULS_3232-BEQ) (IMMEDIATE-DEPENDENTS0 ITIMES . MULS_3232-BEQ) (IMMEDIATE-DEPENDENTS0 INT-RANGEP . MULS_3232-BEQ) (LEMMAS BEQ . MULS_3232-BEQ))))) (PUT1-LST (QUOTE MULS_3264-BEQ) (QUOTE (IDATE 1000402215018 EVENT (PROVE-LEMMA MULS_3264-BEQ (REWRITE) (IMPLIES (AND (NAT-RANGEP X (QUOTE 32)) (NAT-RANGEP Y (QUOTE 32))) (EQUAL (BEQ (MULS-Z (QUOTE 64) X Y (QUOTE 32))) (IF (OR (EQUAL (NAT-TO-INT X (QUOTE 32)) (QUOTE 0)) (EQUAL (NAT-TO-INT Y (QUOTE 32)) (QUOTE 0))) (QUOTE 1) (QUOTE 0)))) ((USE (MULS_3264-INT)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INTEGERP-FIX-INT . MULS_3264-BEQ) (IMMEDIATE-DEPENDENTS0 NAT-TO-INT-INTEGERP . MULS_3264-BEQ) (IMMEDIATE-DEPENDENTS0 IZEROP . MULS_3264-BEQ) (IMMEDIATE-DEPENDENTS0 ITIMES-EQUAL-0 . MULS_3264-BEQ) (IMMEDIATE-DEPENDENTS0 ITIMES-0 . MULS_3264-BEQ) (IMMEDIATE-DEPENDENTS0 ITIMES-COMMUTATIVITY . MULS_3264-BEQ) (IMMEDIATE-DEPENDENTS0 INT-TO-NAT . MULS_3264-BEQ) (IMMEDIATE-DEPENDENTS0 HEAD . MULS_3264-BEQ) (IMMEDIATE-DEPENDENTS0 MULS . MULS_3264-BEQ) (IMMEDIATE-DEPENDENTS0 B0 . MULS_3264-BEQ) (IMMEDIATE-DEPENDENTS0 B1 . MULS_3264-BEQ) (IMMEDIATE-DEPENDENTS0 B0P . MULS_3264-BEQ) (IMMEDIATE-DEPENDENTS0 FIX-BIT . MULS_3264-BEQ) (IMMEDIATE-DEPENDENTS0 MULS_3264-INT . MULS_3264-BEQ) (IMMEDIATE-DEPENDENTS0 NAT-TO-INT . MULS_3264-BEQ) (IMMEDIATE-DEPENDENTS0 MULS-Z . MULS_3264-BEQ) (IMMEDIATE-DEPENDENTS0 BEQ . MULS_3264-BEQ) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . MULS_3264-BEQ) (LEMMAS BEQ . MULS_3264-BEQ))))) (PUT1-LST (QUOTE MULS_1632-BEQ) (QUOTE (IDATE 1000402215018 EVENT (PROVE-LEMMA MULS_1632-BEQ (REWRITE) (IMPLIES (AND (NAT-RANGEP X (QUOTE 16)) (NAT-RANGEP Y (QUOTE 16))) (EQUAL (BEQ (MULS-Z (QUOTE 32) X Y (QUOTE 16))) (IF (OR (EQUAL (NAT-TO-INT X (QUOTE 16)) (QUOTE 0)) (EQUAL (NAT-TO-INT Y (QUOTE 16)) (QUOTE 0))) (QUOTE 1) (QUOTE 0)))) ((USE (MULS_1632-INT)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INTEGERP-FIX-INT . MULS_1632-BEQ) (IMMEDIATE-DEPENDENTS0 NAT-TO-INT-INTEGERP . MULS_1632-BEQ) (IMMEDIATE-DEPENDENTS0 IZEROP . MULS_1632-BEQ) (IMMEDIATE-DEPENDENTS0 ITIMES-EQUAL-0 . MULS_1632-BEQ) (IMMEDIATE-DEPENDENTS0 ITIMES-0 . MULS_1632-BEQ) (IMMEDIATE-DEPENDENTS0 ITIMES-COMMUTATIVITY . MULS_1632-BEQ) (IMMEDIATE-DEPENDENTS0 INT-TO-NAT . MULS_1632-BEQ) (IMMEDIATE-DEPENDENTS0 HEAD . MULS_1632-BEQ) (IMMEDIATE-DEPENDENTS0 MULS . MULS_1632-BEQ) (IMMEDIATE-DEPENDENTS0 B0 . MULS_1632-BEQ) (IMMEDIATE-DEPENDENTS0 B1 . MULS_1632-BEQ) (IMMEDIATE-DEPENDENTS0 B0P . MULS_1632-BEQ) (IMMEDIATE-DEPENDENTS0 FIX-BIT . MULS_1632-BEQ) (IMMEDIATE-DEPENDENTS0 MULS_1632-INT . MULS_1632-BEQ) (IMMEDIATE-DEPENDENTS0 NAT-TO-INT . MULS_1632-BEQ) (IMMEDIATE-DEPENDENTS0 MULS-Z . MULS_1632-BEQ) (IMMEDIATE-DEPENDENTS0 BEQ . MULS_1632-BEQ) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . MULS_1632-BEQ) (LEMMAS BEQ . MULS_1632-BEQ))))) (PUT1-LST (QUOTE MULU_3232-BEQ) (QUOTE (IDATE 1000402215018 EVENT (PROVE-LEMMA MULU_3232-BEQ (REWRITE) (IMPLIES (UINT-RANGEP (TIMES (NAT-TO-UINT X) (NAT-TO-UINT Y)) (QUOTE 32)) (EQUAL (BEQ (MULU-Z (QUOTE 32) X Y (QUOTE 32))) (IF (OR (EQUAL (NAT-TO-UINT X) (QUOTE 0)) (EQUAL (NAT-TO-UINT Y) (QUOTE 0))) (QUOTE 1) (QUOTE 0)))) ((ENABLE NAT-RANGEP))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EXP . MULU_3232-BEQ) (IMMEDIATE-DEPENDENTS0 B1 . MULU_3232-BEQ) (IMMEDIATE-DEPENDENTS0 MULU . MULU_3232-BEQ) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . MULU_3232-BEQ) (IMMEDIATE-DEPENDENTS0 HEAD . MULU_3232-BEQ) (IMMEDIATE-DEPENDENTS0 FIX-BIT . MULU_3232-BEQ) (IMMEDIATE-DEPENDENTS0 B0 . MULU_3232-BEQ) (IMMEDIATE-DEPENDENTS0 TIMES-EQUAL-0 . MULU_3232-BEQ) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . MULU_3232-BEQ) (IMMEDIATE-DEPENDENTS0 HEAD-LEMMA . MULU_3232-BEQ) (IMMEDIATE-DEPENDENTS0 B0P . MULU_3232-BEQ) (IMMEDIATE-DEPENDENTS0 MULU-Z . MULU_3232-BEQ) (IMMEDIATE-DEPENDENTS0 BEQ . MULU_3232-BEQ) (IMMEDIATE-DEPENDENTS0 NAT-TO-UINT . MULU_3232-BEQ) (IMMEDIATE-DEPENDENTS0 UINT-RANGEP . MULU_3232-BEQ) (LEMMAS BEQ . MULU_3232-BEQ))))) (PUT1-LST (QUOTE MULU_3264-BEQ) (QUOTE (IDATE 1000402215018 EVENT (PROVE-LEMMA MULU_3264-BEQ (REWRITE) (IMPLIES (AND (NAT-RANGEP X (QUOTE 32)) (NAT-RANGEP Y (QUOTE 32))) (EQUAL (BEQ (MULU-Z (QUOTE 64) X Y (QUOTE 32))) (IF (OR (EQUAL (NAT-TO-UINT X) (QUOTE 0)) (EQUAL (NAT-TO-UINT Y) (QUOTE 0))) (QUOTE 1) (QUOTE 0)))) ((USE (MULU_3264-NAT)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B1 . MULU_3264-BEQ) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . MULU_3264-BEQ) (IMMEDIATE-DEPENDENTS0 HEAD . MULU_3264-BEQ) (IMMEDIATE-DEPENDENTS0 FIX-BIT . MULU_3264-BEQ) (IMMEDIATE-DEPENDENTS0 B0 . MULU_3264-BEQ) (IMMEDIATE-DEPENDENTS0 TIMES-EQUAL-0 . MULU_3264-BEQ) (IMMEDIATE-DEPENDENTS0 B0P . MULU_3264-BEQ) (IMMEDIATE-DEPENDENTS0 MULU . MULU_3264-BEQ) (IMMEDIATE-DEPENDENTS0 MULU_3264-NAT . MULU_3264-BEQ) (IMMEDIATE-DEPENDENTS0 NAT-TO-UINT . MULU_3264-BEQ) (IMMEDIATE-DEPENDENTS0 MULU-Z . MULU_3264-BEQ) (IMMEDIATE-DEPENDENTS0 BEQ . MULU_3264-BEQ) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . MULU_3264-BEQ) (LEMMAS BEQ . MULU_3264-BEQ))))) (PUT1-LST (QUOTE MULU_1632-BEQ) (QUOTE (IDATE 1000402215018 EVENT (PROVE-LEMMA MULU_1632-BEQ (REWRITE) (IMPLIES (AND (NAT-RANGEP X (QUOTE 16)) (NAT-RANGEP Y (QUOTE 16))) (EQUAL (BEQ (MULU-Z (QUOTE 32) X Y (QUOTE 16))) (IF (OR (EQUAL (NAT-TO-UINT X) (QUOTE 0)) (EQUAL (NAT-TO-UINT Y) (QUOTE 0))) (QUOTE 1) (QUOTE 0)))) ((USE (MULU_1632-NAT)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B1 . MULU_1632-BEQ) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . MULU_1632-BEQ) (IMMEDIATE-DEPENDENTS0 HEAD . MULU_1632-BEQ) (IMMEDIATE-DEPENDENTS0 FIX-BIT . MULU_1632-BEQ) (IMMEDIATE-DEPENDENTS0 B0 . MULU_1632-BEQ) (IMMEDIATE-DEPENDENTS0 TIMES-EQUAL-0 . MULU_1632-BEQ) (IMMEDIATE-DEPENDENTS0 B0P . MULU_1632-BEQ) (IMMEDIATE-DEPENDENTS0 MULU . MULU_1632-BEQ) (IMMEDIATE-DEPENDENTS0 MULU_1632-NAT . MULU_1632-BEQ) (IMMEDIATE-DEPENDENTS0 NAT-TO-UINT . MULU_1632-BEQ) (IMMEDIATE-DEPENDENTS0 MULU-Z . MULU_1632-BEQ) (IMMEDIATE-DEPENDENTS0 BEQ . MULU_1632-BEQ) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . MULU_1632-BEQ) (LEMMAS BEQ . MULU_1632-BEQ))))) (PUT1-LST (QUOTE LOGAND-EOR-BEQ-UINT) (QUOTE (IDATE 1000402215018 EVENT (PROVE-LEMMA LOGAND-EOR-BEQ-UINT (REWRITE) (IMPLIES (EQUAL (EXP (QUOTE 2) (LOG (QUOTE 2) (ADD1 X))) (ADD1 X)) (EQUAL (BEQ (AND-Z N X (LOGEOR Y Z))) (IF (EQUAL (REMAINDER (NAT-TO-UINT Y) (ADD1 X)) (REMAINDER (NAT-TO-UINT Z) (ADD1 X))) (QUOTE 1) (QUOTE 0)))) ((USE (LOGAND-UINT) (LOGAND-UINT (Y Z))) (DISABLE LOGAND-UINT))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B1 . LOGAND-EOR-BEQ-UINT) (IMMEDIATE-DEPENDENTS0 LOGAND-COMMUTATIVITY . LOGAND-EOR-BEQ-UINT) (IMMEDIATE-DEPENDENTS0 LOGAND . LOGAND-EOR-BEQ-UINT) (IMMEDIATE-DEPENDENTS0 FIX-BIT . LOGAND-EOR-BEQ-UINT) (IMMEDIATE-DEPENDENTS0 REMAINDER-0 . LOGAND-EOR-BEQ-UINT) (IMMEDIATE-DEPENDENTS0 B0 . LOGAND-EOR-BEQ-UINT) (IMMEDIATE-DEPENDENTS0 LOGEOR-EQUAL-0 . LOGAND-EOR-BEQ-UINT) (IMMEDIATE-DEPENDENTS0 LOGAND-LOGEOR . LOGAND-EOR-BEQ-UINT) (IMMEDIATE-DEPENDENTS0 B0P . LOGAND-EOR-BEQ-UINT) (IMMEDIATE-DEPENDENTS0 LOGEOR-COMMUTATIVITY . LOGAND-EOR-BEQ-UINT) (IMMEDIATE-DEPENDENTS0 LOGAND-UINT . LOGAND-EOR-BEQ-UINT) (IMMEDIATE-DEPENDENTS0 NAT-TO-UINT . LOGAND-EOR-BEQ-UINT) (IMMEDIATE-DEPENDENTS0 LOGEOR . LOGAND-EOR-BEQ-UINT) (IMMEDIATE-DEPENDENTS0 AND-Z . LOGAND-EOR-BEQ-UINT) (IMMEDIATE-DEPENDENTS0 BEQ . LOGAND-EOR-BEQ-UINT) (IMMEDIATE-DEPENDENTS0 LOG . LOGAND-EOR-BEQ-UINT) (IMMEDIATE-DEPENDENTS0 EXP . LOGAND-EOR-BEQ-UINT) (LEMMAS BEQ . LOGAND-EOR-BEQ-UINT))))) (PUT1-LST (QUOTE LOGAND-OR-BEQ-UINT) (QUOTE (IDATE 1000402215018 EVENT (PROVE-LEMMA LOGAND-OR-BEQ-UINT (REWRITE) (IMPLIES (EQUAL (EXP (QUOTE 2) (LOG (QUOTE 2) (ADD1 X))) (ADD1 X)) (EQUAL (BEQ (AND-Z N X (LOGOR Y Z))) (IF (AND (EQUAL (REMAINDER (NAT-TO-UINT Y) (ADD1 X)) (QUOTE 0)) (EQUAL (REMAINDER (NAT-TO-UINT Z) (ADD1 X)) (QUOTE 0))) (QUOTE 1) (QUOTE 0)))) ((USE (LOGAND-UINT) (LOGAND-UINT (Y Z))) (DISABLE LOGAND-UINT))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B1 . LOGAND-OR-BEQ-UINT) (IMMEDIATE-DEPENDENTS0 LOGAND-COMMUTATIVITY . LOGAND-OR-BEQ-UINT) (IMMEDIATE-DEPENDENTS0 LOGAND . LOGAND-OR-BEQ-UINT) (IMMEDIATE-DEPENDENTS0 FIX-BIT . LOGAND-OR-BEQ-UINT) (IMMEDIATE-DEPENDENTS0 REMAINDER-0 . LOGAND-OR-BEQ-UINT) (IMMEDIATE-DEPENDENTS0 B0 . LOGAND-OR-BEQ-UINT) (IMMEDIATE-DEPENDENTS0 B0P . LOGAND-OR-BEQ-UINT) (IMMEDIATE-DEPENDENTS0 LOGOR-EQUAL-0 . LOGAND-OR-BEQ-UINT) (IMMEDIATE-DEPENDENTS0 LOGAND-LOGOR . LOGAND-OR-BEQ-UINT) (IMMEDIATE-DEPENDENTS0 LOGAND-UINT . LOGAND-OR-BEQ-UINT) (IMMEDIATE-DEPENDENTS0 NAT-TO-UINT . LOGAND-OR-BEQ-UINT) (IMMEDIATE-DEPENDENTS0 LOGOR . LOGAND-OR-BEQ-UINT) (IMMEDIATE-DEPENDENTS0 AND-Z . LOGAND-OR-BEQ-UINT) (IMMEDIATE-DEPENDENTS0 BEQ . LOGAND-OR-BEQ-UINT) (IMMEDIATE-DEPENDENTS0 LOG . LOGAND-OR-BEQ-UINT) (IMMEDIATE-DEPENDENTS0 EXP . LOGAND-OR-BEQ-UINT) (LEMMAS BEQ . LOGAND-OR-BEQ-UINT))))) (PUT1-LST (QUOTE LOGAND-BEQ-UINT) (QUOTE (IDATE 1000402215017 EVENT (PROVE-LEMMA LOGAND-BEQ-UINT (REWRITE) (IMPLIES (EQUAL (EXP (QUOTE 2) (LOG (QUOTE 2) (ADD1 X))) (ADD1 X)) (EQUAL (BEQ (AND-Z N X Y)) (IF (EQUAL (REMAINDER (NAT-TO-UINT Y) (ADD1 X)) (QUOTE 0)) (QUOTE 1) (QUOTE 0)))) ((USE (LOGAND-UINT)) (DISABLE LOGAND-UINT))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B1 . LOGAND-BEQ-UINT) (IMMEDIATE-DEPENDENTS0 LOGAND . LOGAND-BEQ-UINT) (IMMEDIATE-DEPENDENTS0 FIX-BIT . LOGAND-BEQ-UINT) (IMMEDIATE-DEPENDENTS0 REMAINDER-0 . LOGAND-BEQ-UINT) (IMMEDIATE-DEPENDENTS0 B0 . LOGAND-BEQ-UINT) (IMMEDIATE-DEPENDENTS0 B0P . LOGAND-BEQ-UINT) (IMMEDIATE-DEPENDENTS0 LOGAND-UINT . LOGAND-BEQ-UINT) (IMMEDIATE-DEPENDENTS0 NAT-TO-UINT . LOGAND-BEQ-UINT) (IMMEDIATE-DEPENDENTS0 AND-Z . LOGAND-BEQ-UINT) (IMMEDIATE-DEPENDENTS0 BEQ . LOGAND-BEQ-UINT) (IMMEDIATE-DEPENDENTS0 LOG . LOGAND-BEQ-UINT) (IMMEDIATE-DEPENDENTS0 EXP . LOGAND-BEQ-UINT) (LEMMAS BEQ . LOGAND-BEQ-UINT))))) (PUT1-LST (QUOTE LOGEOR-BEQ-INT-1) (QUOTE (IDATE 1000402215017 EVENT (PROVE-LEMMA LOGEOR-BEQ-INT-1 (REWRITE) (IMPLIES (AND (NAT-RANGEP X N) (AND (NAT-RANGEP Y N) (EQUAL (NAT-TO-INT X N) (NAT-TO-INT Y N)))) (EQUAL (BEQ (EOR-Z N X Y)) (QUOTE 1))) ((ENABLE NAT-TO-INT NAT-RANGEP))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-LESSP . LOGEOR-BEQ-INT-1) (IMMEDIATE-DEPENDENTS0 EXP-OF-2-0 . LOGEOR-BEQ-INT-1) (IMMEDIATE-DEPENDENTS0 EXP . LOGEOR-BEQ-INT-1) (IMMEDIATE-DEPENDENTS0 LESSP-OF-1 . LOGEOR-BEQ-INT-1) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . LOGEOR-BEQ-INT-1) (IMMEDIATE-DEPENDENTS0 B1 . LOGEOR-BEQ-INT-1) (IMMEDIATE-DEPENDENTS0 LOGEOR . LOGEOR-BEQ-INT-1) (IMMEDIATE-DEPENDENTS0 FIX-BIT . LOGEOR-BEQ-INT-1) (IMMEDIATE-DEPENDENTS0 LOGEOR-COMMUTATIVITY . LOGEOR-BEQ-INT-1) (IMMEDIATE-DEPENDENTS0 B0P . LOGEOR-BEQ-INT-1) (IMMEDIATE-DEPENDENTS0 B0 . LOGEOR-BEQ-INT-1) (IMMEDIATE-DEPENDENTS0 B-EOR . LOGEOR-BEQ-INT-1) (IMMEDIATE-DEPENDENTS0 LOGEOR-EQUAL-0 . LOGEOR-BEQ-INT-1) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . LOGEOR-BEQ-INT-1) (IMMEDIATE-DEPENDENTS0 EOR-Z . LOGEOR-BEQ-INT-1) (IMMEDIATE-DEPENDENTS0 BEQ . LOGEOR-BEQ-INT-1) (IMMEDIATE-DEPENDENTS0 NAT-TO-INT . LOGEOR-BEQ-INT-1) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . LOGEOR-BEQ-INT-1) (LEMMAS BEQ . LOGEOR-BEQ-INT-1))))) (PUT1-LST (QUOTE LOGEOR-BEQ-INT-0) (QUOTE (IDATE 1000402215017 EVENT (PROVE-LEMMA LOGEOR-BEQ-INT-0 (REWRITE) (IMPLIES (AND (NAT-RANGEP X N) (AND (NAT-RANGEP Y N) (NOT (EQUAL (NAT-TO-INT X N) (NAT-TO-INT Y N))))) (EQUAL (BEQ (EOR-Z N X Y)) (QUOTE 0))) ((ENABLE NAT-TO-INT))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EXP . LOGEOR-BEQ-INT-0) (IMMEDIATE-DEPENDENTS0 EXP-OF-2-0 . LOGEOR-BEQ-INT-0) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP-OF-0 . LOGEOR-BEQ-INT-0) (IMMEDIATE-DEPENDENTS0 B0 . LOGEOR-BEQ-INT-0) (IMMEDIATE-DEPENDENTS0 LOGEOR-EQUAL-0 . LOGEOR-BEQ-INT-0) (IMMEDIATE-DEPENDENTS0 FIX-BIT . LOGEOR-BEQ-INT-0) (IMMEDIATE-DEPENDENTS0 B1 . LOGEOR-BEQ-INT-0) (IMMEDIATE-DEPENDENTS0 B0P . LOGEOR-BEQ-INT-0) (IMMEDIATE-DEPENDENTS0 EOR-Z . LOGEOR-BEQ-INT-0) (IMMEDIATE-DEPENDENTS0 BEQ . LOGEOR-BEQ-INT-0) (IMMEDIATE-DEPENDENTS0 NAT-TO-INT . LOGEOR-BEQ-INT-0) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . LOGEOR-BEQ-INT-0) (LEMMAS BEQ . LOGEOR-BEQ-INT-0))))) (PUT1-LST (QUOTE LOGEOR-BEQ-UINT) (QUOTE (IDATE 1000402215017 EVENT (PROVE-LEMMA LOGEOR-BEQ-UINT (REWRITE) (EQUAL (BEQ (EOR-Z N X Y)) (IF (EQUAL (NAT-TO-UINT X) (NAT-TO-UINT Y)) (QUOTE 1) (QUOTE 0)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B0 . LOGEOR-BEQ-UINT) (IMMEDIATE-DEPENDENTS0 B1 . LOGEOR-BEQ-UINT) (IMMEDIATE-DEPENDENTS0 LOGEOR-EQUAL-0 . LOGEOR-BEQ-UINT) (IMMEDIATE-DEPENDENTS0 B0P . LOGEOR-BEQ-UINT) (IMMEDIATE-DEPENDENTS0 FIX-BIT . LOGEOR-BEQ-UINT) (IMMEDIATE-DEPENDENTS0 NAT-TO-UINT . LOGEOR-BEQ-UINT) (IMMEDIATE-DEPENDENTS0 EOR-Z . LOGEOR-BEQ-UINT) (IMMEDIATE-DEPENDENTS0 BEQ . LOGEOR-BEQ-UINT) (LEMMAS BEQ . LOGEOR-BEQ-UINT))))) (PUT1-LST (QUOTE LOGOR-BEQ-INT-1) (QUOTE (IDATE 1000402215017 EVENT (PROVE-LEMMA LOGOR-BEQ-INT-1 (REWRITE) (IMPLIES (AND (NAT-RANGEP X N) (AND (NAT-RANGEP Y N) (AND (EQUAL (NAT-TO-INT X N) (QUOTE 0)) (EQUAL (NAT-TO-INT Y N) (QUOTE 0))))) (EQUAL (BEQ (OR-Z N X Y)) (QUOTE 1))) ((ENABLE NAT-TO-INT))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B1 . LOGOR-BEQ-INT-1) (IMMEDIATE-DEPENDENTS0 LOGOR . LOGOR-BEQ-INT-1) (IMMEDIATE-DEPENDENTS0 FIX-BIT . LOGOR-BEQ-INT-1) (IMMEDIATE-DEPENDENTS0 LOGOR-COMMUTATIVITY . LOGOR-BEQ-INT-1) (IMMEDIATE-DEPENDENTS0 OR-Z . LOGOR-BEQ-INT-1) (IMMEDIATE-DEPENDENTS0 BEQ . LOGOR-BEQ-INT-1) (IMMEDIATE-DEPENDENTS0 NAT-TO-INT . LOGOR-BEQ-INT-1) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . LOGOR-BEQ-INT-1) (LEMMAS BEQ . LOGOR-BEQ-INT-1))))) (PUT1-LST (QUOTE LOGOR-BEQ-INT-0) (QUOTE (IDATE 1000402215017 EVENT (PROVE-LEMMA LOGOR-BEQ-INT-0 (REWRITE) (IMPLIES (AND (NAT-RANGEP X N) (AND (NAT-RANGEP Y N) (OR (NOT (EQUAL (NAT-TO-INT X N) (QUOTE 0))) (NOT (EQUAL (NAT-TO-INT Y N) (QUOTE 0)))))) (EQUAL (BEQ (OR-Z N X Y)) (QUOTE 0))) ((ENABLE NAT-TO-INT))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NAT-RANGEP-OF-0 . LOGOR-BEQ-INT-0) (IMMEDIATE-DEPENDENTS0 EXP-OF-2-0 . LOGOR-BEQ-INT-0) (IMMEDIATE-DEPENDENTS0 B0 . LOGOR-BEQ-INT-0) (IMMEDIATE-DEPENDENTS0 LOGOR-EQUAL-0 . LOGOR-BEQ-INT-0) (IMMEDIATE-DEPENDENTS0 FIX-BIT . LOGOR-BEQ-INT-0) (IMMEDIATE-DEPENDENTS0 B1 . LOGOR-BEQ-INT-0) (IMMEDIATE-DEPENDENTS0 B0P . LOGOR-BEQ-INT-0) (IMMEDIATE-DEPENDENTS0 OR-Z . LOGOR-BEQ-INT-0) (IMMEDIATE-DEPENDENTS0 BEQ . LOGOR-BEQ-INT-0) (IMMEDIATE-DEPENDENTS0 NAT-TO-INT . LOGOR-BEQ-INT-0) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . LOGOR-BEQ-INT-0) (LEMMAS BEQ . LOGOR-BEQ-INT-0))))) (PUT1-LST (QUOTE LOGOR-BEQ-UINT) (QUOTE (IDATE 1000402215017 EVENT (PROVE-LEMMA LOGOR-BEQ-UINT (REWRITE) (EQUAL (BEQ (OR-Z N X Y)) (IF (AND (EQUAL (NAT-TO-UINT X) (QUOTE 0)) (EQUAL (NAT-TO-UINT Y) (QUOTE 0))) (QUOTE 1) (QUOTE 0)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B0 . LOGOR-BEQ-UINT) (IMMEDIATE-DEPENDENTS0 B1 . LOGOR-BEQ-UINT) (IMMEDIATE-DEPENDENTS0 LOGOR-EQUAL-0 . LOGOR-BEQ-UINT) (IMMEDIATE-DEPENDENTS0 B0P . LOGOR-BEQ-UINT) (IMMEDIATE-DEPENDENTS0 FIX-BIT . LOGOR-BEQ-UINT) (IMMEDIATE-DEPENDENTS0 NAT-TO-UINT . LOGOR-BEQ-UINT) (IMMEDIATE-DEPENDENTS0 OR-Z . LOGOR-BEQ-UINT) (IMMEDIATE-DEPENDENTS0 BEQ . LOGOR-BEQ-UINT) (LEMMAS BEQ . LOGOR-BEQ-UINT))))) (PUT1-LST (QUOTE SUB-BEQ-EXT) (QUOTE (IDATE 1000402215017 EVENT (PROVE-LEMMA SUB-BEQ-EXT (REWRITE) (IMPLIES (AND (NAT-RANGEP X N) (AND (NAT-RANGEP Y N) (AND (IF (LESSP SIZE N) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (NOT (ZEROP N))))) (EQUAL (SUB-Z SIZE (EXT N X SIZE) (EXT N Y SIZE)) (SUB-Z N X Y)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EXT-NAT-RANGEP . SUB-BEQ-EXT) (IMMEDIATE-DEPENDENTS0 HEAD-LEMMA . SUB-BEQ-EXT) (IMMEDIATE-DEPENDENTS0 EXT-EQUAL . SUB-BEQ-EXT) (IMMEDIATE-DEPENDENTS0 SUB-Z-LA . SUB-BEQ-EXT) (IMMEDIATE-DEPENDENTS0 EXT . SUB-BEQ-EXT) (IMMEDIATE-DEPENDENTS0 SUB-Z . SUB-BEQ-EXT) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . SUB-BEQ-EXT) (LEMMAS SUB-Z . SUB-BEQ-EXT))))) (PUT1-LST (QUOTE SUB-BEQ-INT-1) (QUOTE (IDATE 1000402215017 EVENT (PROVE-LEMMA SUB-BEQ-INT-1 (REWRITE) (IMPLIES (AND (NAT-RANGEP X N) (AND (NAT-RANGEP Y N) (EQUAL (NAT-TO-INT X N) (NAT-TO-INT Y N)))) (EQUAL (BEQ (SUB-Z N X Y)) (QUOTE 1)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NAT-TO-INT= . SUB-BEQ-INT-1) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP-OF-0 . SUB-BEQ-INT-1) (IMMEDIATE-DEPENDENTS0 SUB-Z-LA . SUB-BEQ-INT-1) (IMMEDIATE-DEPENDENTS0 FIX-BIT . SUB-BEQ-INT-1) (IMMEDIATE-DEPENDENTS0 SUB-Z . SUB-BEQ-INT-1) (IMMEDIATE-DEPENDENTS0 BEQ . SUB-BEQ-INT-1) (IMMEDIATE-DEPENDENTS0 NAT-TO-INT . SUB-BEQ-INT-1) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . SUB-BEQ-INT-1) (LEMMAS BEQ . SUB-BEQ-INT-1))))) (PUT1-LST (QUOTE SUB-BEQ-INT-0) (QUOTE (IDATE 1000402215017 EVENT (PROVE-LEMMA SUB-BEQ-INT-0 (REWRITE) (IMPLIES (AND (NAT-RANGEP X N) (AND (NAT-RANGEP Y N) (NOT (EQUAL (NAT-TO-INT X N) (NAT-TO-INT Y N))))) (EQUAL (BEQ (SUB-Z N X Y)) (QUOTE 0)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NAT-TO-INT= . SUB-BEQ-INT-0) (IMMEDIATE-DEPENDENTS0 SUB-Z-LA . SUB-BEQ-INT-0) (IMMEDIATE-DEPENDENTS0 FIX-BIT . SUB-BEQ-INT-0) (IMMEDIATE-DEPENDENTS0 SUB-Z . SUB-BEQ-INT-0) (IMMEDIATE-DEPENDENTS0 BEQ . SUB-BEQ-INT-0) (IMMEDIATE-DEPENDENTS0 NAT-TO-INT . SUB-BEQ-INT-0) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . SUB-BEQ-INT-0) (LEMMAS BEQ . SUB-BEQ-INT-0))))) (PUT1-LST (QUOTE SUB-BEQ-UINT) (QUOTE (IDATE 1000402215017 EVENT (PROVE-LEMMA SUB-BEQ-UINT (REWRITE) (IMPLIES (AND (NAT-RANGEP X N) (NAT-RANGEP Y N)) (EQUAL (BEQ (SUB-Z N X Y)) (IF (EQUAL (NAT-TO-UINT X) (NAT-TO-UINT Y)) (QUOTE 1) (QUOTE 0))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUB-Z-LA . SUB-BEQ-UINT) (IMMEDIATE-DEPENDENTS0 B1 . SUB-BEQ-UINT) (IMMEDIATE-DEPENDENTS0 B0P . SUB-BEQ-UINT) (IMMEDIATE-DEPENDENTS0 B0 . SUB-BEQ-UINT) (IMMEDIATE-DEPENDENTS0 FIX-BIT . SUB-BEQ-UINT) (IMMEDIATE-DEPENDENTS0 NAT-TO-UINT . SUB-BEQ-UINT) (IMMEDIATE-DEPENDENTS0 SUB-Z . SUB-BEQ-UINT) (IMMEDIATE-DEPENDENTS0 BEQ . SUB-BEQ-UINT) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . SUB-BEQ-UINT) (LEMMAS BEQ . SUB-BEQ-UINT))))) (PUT1-LST (QUOTE MOVE-BEQ-EXT) (QUOTE (IDATE 1000402215017 IMMEDIATE-DEPENDENTS0 (STEPI-H) EVENT (PROVE-LEMMA MOVE-BEQ-EXT (REWRITE) (IMPLIES (AND (NAT-RANGEP X N) (AND (IF (LESSP SIZE N) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (NOT (ZEROP N)))) (EQUAL (MOVE-Z SIZE (EXT N X SIZE)) (MOVE-Z N X)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B0 . MOVE-BEQ-EXT) (IMMEDIATE-DEPENDENTS0 B1 . MOVE-BEQ-EXT) (IMMEDIATE-DEPENDENTS0 EXT-EQUAL-0 . MOVE-BEQ-EXT) (IMMEDIATE-DEPENDENTS0 HEAD-LEMMA . MOVE-BEQ-EXT) (IMMEDIATE-DEPENDENTS0 EXT-NAT-RANGEP . MOVE-BEQ-EXT) (IMMEDIATE-DEPENDENTS0 EXT . MOVE-BEQ-EXT) (IMMEDIATE-DEPENDENTS0 MOVE-Z . MOVE-BEQ-EXT) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . MOVE-BEQ-EXT) (LEMMAS MOVE-Z . MOVE-BEQ-EXT))))) (PUT1-LST (QUOTE MOVE-BEQ-INT-1) (QUOTE (IDATE 1000402215017 IMMEDIATE-DEPENDENTS0 (GCD-S0-SN-BASE-RFILE-2 GCD-S0-SN-BASE-2 GCD-S0-SN-BASE-RFILE-1 GCD-S0-SN-BASE-1) EVENT (PROVE-LEMMA MOVE-BEQ-INT-1 (REWRITE) (IMPLIES (AND (NAT-RANGEP X N) (EQUAL (NAT-TO-INT X N) (QUOTE 0))) (EQUAL (BEQ (MOVE-Z N X)) (QUOTE 1))) ((ENABLE NAT-TO-INT))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B1 . MOVE-BEQ-INT-1) (IMMEDIATE-DEPENDENTS0 HEAD-LEMMA . MOVE-BEQ-INT-1) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP-OF-0 . MOVE-BEQ-INT-1) (IMMEDIATE-DEPENDENTS0 FIX-BIT . MOVE-BEQ-INT-1) (IMMEDIATE-DEPENDENTS0 MOVE-Z . MOVE-BEQ-INT-1) (IMMEDIATE-DEPENDENTS0 BEQ . MOVE-BEQ-INT-1) (IMMEDIATE-DEPENDENTS0 NAT-TO-INT . MOVE-BEQ-INT-1) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . MOVE-BEQ-INT-1) (LEMMAS BEQ . MOVE-BEQ-INT-1))))) (PUT1-LST (QUOTE MOVE-BEQ-INT-0) (QUOTE (IDATE 1000402215017 IMMEDIATE-DEPENDENTS0 (GCD-S0-S0-RFILE-2 GCD-S0-S0-RFILE-1 GCD-S0-S0-2 GCD-S0-S0-1 GCD-S0-SN-BASE-RFILE-2 GCD-S0-SN-BASE-2) EVENT (PROVE-LEMMA MOVE-BEQ-INT-0 (REWRITE) (IMPLIES (AND (NAT-RANGEP X N) (NOT (EQUAL (NAT-TO-INT X N) (QUOTE 0)))) (EQUAL (BEQ (MOVE-Z N X)) (QUOTE 0))) ((ENABLE NAT-TO-INT))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EXP-OF-2-0 . MOVE-BEQ-INT-0) (IMMEDIATE-DEPENDENTS0 B0 . MOVE-BEQ-INT-0) (IMMEDIATE-DEPENDENTS0 HEAD-LEMMA . MOVE-BEQ-INT-0) (IMMEDIATE-DEPENDENTS0 FIX-BIT . MOVE-BEQ-INT-0) (IMMEDIATE-DEPENDENTS0 B1 . MOVE-BEQ-INT-0) (IMMEDIATE-DEPENDENTS0 B0P . MOVE-BEQ-INT-0) (IMMEDIATE-DEPENDENTS0 MOVE-Z . MOVE-BEQ-INT-0) (IMMEDIATE-DEPENDENTS0 BEQ . MOVE-BEQ-INT-0) (IMMEDIATE-DEPENDENTS0 NAT-TO-INT . MOVE-BEQ-INT-0) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . MOVE-BEQ-INT-0) (LEMMAS BEQ . MOVE-BEQ-INT-0))))) (PUT1-LST (QUOTE MOVE-BEQ-UINT) (QUOTE (IDATE 1000402215017 EVENT (PROVE-LEMMA MOVE-BEQ-UINT (REWRITE) (IMPLIES (NAT-RANGEP X N) (EQUAL (BEQ (MOVE-Z N X)) (IF (EQUAL (NAT-TO-UINT X) (QUOTE 0)) (QUOTE 1) (QUOTE 0))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B0 . MOVE-BEQ-UINT) (IMMEDIATE-DEPENDENTS0 B1 . MOVE-BEQ-UINT) (IMMEDIATE-DEPENDENTS0 HEAD-LEMMA . MOVE-BEQ-UINT) (IMMEDIATE-DEPENDENTS0 B0P . MOVE-BEQ-UINT) (IMMEDIATE-DEPENDENTS0 FIX-BIT . MOVE-BEQ-UINT) (IMMEDIATE-DEPENDENTS0 NAT-TO-UINT . MOVE-BEQ-UINT) (IMMEDIATE-DEPENDENTS0 MOVE-Z . MOVE-BEQ-UINT) (IMMEDIATE-DEPENDENTS0 BEQ . MOVE-BEQ-UINT) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . MOVE-BEQ-UINT) (LEMMAS BEQ . MOVE-BEQ-UINT))))) (PUT1-LST (QUOTE BLS-OFF) (QUOTE (IDATE 1000402215017 EVENT (TOGGLE BLS-OFF BLS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BLS . BLS-OFF) (DISABLED-LEMMAS NIL BLS BLS-OFF . T))))) (PUT1-LST (QUOTE BHI-OFF) (QUOTE (IDATE 1000402215017 EVENT (TOGGLE BHI-OFF BHI T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BHI . BHI-OFF) (DISABLED-LEMMAS NIL BHI BHI-OFF . T))))) (PUT1-LST (QUOTE BLS-BHI) (QUOTE (IDATE 1000402215017 EVENT (PROVE-LEMMA BLS-BHI (REWRITE) (EQUAL (BLS C Z) (B-NOT (BHI C Z)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B1 . BLS-BHI) (IMMEDIATE-DEPENDENTS0 B0P . BLS-BHI) (IMMEDIATE-DEPENDENTS0 B0 . BLS-BHI) (IMMEDIATE-DEPENDENTS0 B-OR . BLS-BHI) (IMMEDIATE-DEPENDENTS0 B-AND . BLS-BHI) (IMMEDIATE-DEPENDENTS0 BHI . BLS-BHI) (IMMEDIATE-DEPENDENTS0 B-NOT . BLS-BHI) (IMMEDIATE-DEPENDENTS0 BLS . BLS-BHI) (LEMMAS BLS . BLS-BHI))))) (PUT1-LST (QUOTE SUB-BLS) (QUOTE (IDATE 1000402215017 EVENT (PROVE-LEMMA SUB-BLS (REWRITE) (IMPLIES (AND (NAT-RANGEP X N) (AND (NAT-RANGEP Y N) (NOT (ZEROP N)))) (EQUAL (BLS (SUB-C N X Y) (SUB-Z N X Y)) (IF (LESSP (NAT-TO-UINT X) (NAT-TO-UINT Y)) (QUOTE 0) (QUOTE 1))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BITP . SUB-BLS) (IMMEDIATE-DEPENDENTS0 SUBX-C-LA . SUB-BLS) (IMMEDIATE-DEPENDENTS0 SUB-Z-LA . SUB-BLS) (IMMEDIATE-DEPENDENTS0 B1 . SUB-BLS) (IMMEDIATE-DEPENDENTS0 B0P . SUB-BLS) (IMMEDIATE-DEPENDENTS0 B0 . SUB-BLS) (IMMEDIATE-DEPENDENTS0 B-OR . SUB-BLS) (IMMEDIATE-DEPENDENTS0 SUB-SUBX-C . SUB-BLS) (IMMEDIATE-DEPENDENTS0 NAT-TO-UINT . SUB-BLS) (IMMEDIATE-DEPENDENTS0 SUB-Z . SUB-BLS) (IMMEDIATE-DEPENDENTS0 SUB-C . SUB-BLS) (IMMEDIATE-DEPENDENTS0 BLS . SUB-BLS) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . SUB-BLS) (LEMMAS BLS . SUB-BLS))))) (PUT1-LST (QUOTE SUB-BHI-1) (QUOTE (IDATE 1000402215017 EVENT (PROVE-LEMMA SUB-BHI-1 (REWRITE) (IMPLIES (AND (NAT-RANGEP X N) (AND (NAT-RANGEP Y N) (AND (LESSP (NAT-TO-UINT X) (NAT-TO-UINT Y)) (NOT (ZEROP N))))) (EQUAL (BHI (SUB-C N X Y) (SUB-Z N X Y)) (QUOTE 1)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BITP . SUB-BHI-1) (IMMEDIATE-DEPENDENTS0 SUBX-C-LA . SUB-BHI-1) (IMMEDIATE-DEPENDENTS0 B-NOT . SUB-BHI-1) (IMMEDIATE-DEPENDENTS0 SUB-Z-LA . SUB-BHI-1) (IMMEDIATE-DEPENDENTS0 B-AND . SUB-BHI-1) (IMMEDIATE-DEPENDENTS0 B1 . SUB-BHI-1) (IMMEDIATE-DEPENDENTS0 B0P . SUB-BHI-1) (IMMEDIATE-DEPENDENTS0 B0 . SUB-BHI-1) (IMMEDIATE-DEPENDENTS0 SUB-SUBX-C . SUB-BHI-1) (IMMEDIATE-DEPENDENTS0 SUB-Z . SUB-BHI-1) (IMMEDIATE-DEPENDENTS0 SUB-C . SUB-BHI-1) (IMMEDIATE-DEPENDENTS0 BHI . SUB-BHI-1) (IMMEDIATE-DEPENDENTS0 NAT-TO-UINT . SUB-BHI-1) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . SUB-BHI-1) (LEMMAS BHI . SUB-BHI-1))))) (PUT1-LST (QUOTE SUB-BHI-0) (QUOTE (IDATE 1000402215017 EVENT (PROVE-LEMMA SUB-BHI-0 (REWRITE) (IMPLIES (AND (NAT-RANGEP X N) (AND (NAT-RANGEP Y N) (AND (NOT (LESSP (NAT-TO-UINT X) (NAT-TO-UINT Y))) (NOT (ZEROP N))))) (EQUAL (BHI (SUB-C N X Y) (SUB-Z N X Y)) (QUOTE 0)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BITP . SUB-BHI-0) (IMMEDIATE-DEPENDENTS0 SUBX-C-LA . SUB-BHI-0) (IMMEDIATE-DEPENDENTS0 B-NOT . SUB-BHI-0) (IMMEDIATE-DEPENDENTS0 SUB-Z-LA . SUB-BHI-0) (IMMEDIATE-DEPENDENTS0 B-AND . SUB-BHI-0) (IMMEDIATE-DEPENDENTS0 B1 . SUB-BHI-0) (IMMEDIATE-DEPENDENTS0 B0P . SUB-BHI-0) (IMMEDIATE-DEPENDENTS0 B0 . SUB-BHI-0) (IMMEDIATE-DEPENDENTS0 SUB-SUBX-C . SUB-BHI-0) (IMMEDIATE-DEPENDENTS0 SUB-Z . SUB-BHI-0) (IMMEDIATE-DEPENDENTS0 SUB-C . SUB-BHI-0) (IMMEDIATE-DEPENDENTS0 BHI . SUB-BHI-0) (IMMEDIATE-DEPENDENTS0 NAT-TO-UINT . SUB-BHI-0) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . SUB-BHI-0) (LEMMAS BHI . SUB-BHI-0))))) (PUT1-LST (QUOTE SUB-BHI-INT) (QUOTE (IDATE 1000402215017 EVENT (PROVE-LEMMA SUB-BHI-INT (REWRITE) (IMPLIES (AND (NAT-RANGEP X N) (AND (NAT-RANGEP Y N) (AND (NOT (ZEROP N)) (NOT (NEGATIVEP (NAT-TO-INT X N)))))) (EQUAL (BHI (SUB-C N X Y) (SUB-Z N X Y)) (IF (BETWEEN-ILEQ (QUOTE 0) (NAT-TO-INT Y N) (NAT-TO-INT X N)) (QUOTE 0) (QUOTE 1)))) ((ENABLE NAT-TO-INT NAT-RANGEP))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ILESSP-REFLEX . SUB-BHI-INT) (IMMEDIATE-DEPENDENTS0 ILESSP-ENTAILS-ILEQ . SUB-BHI-INT) (IMMEDIATE-DEPENDENTS0 TIMES-LESSP . SUB-BHI-INT) (IMMEDIATE-DEPENDENTS0 ILEQ . SUB-BHI-INT) (IMMEDIATE-DEPENDENTS0 NEGP . SUB-BHI-INT) (IMMEDIATE-DEPENDENTS0 DIFFERENCE=0 . SUB-BHI-INT) (IMMEDIATE-DEPENDENTS0 ILESSP . SUB-BHI-INT) (IMMEDIATE-DEPENDENTS0 BITP . SUB-BHI-INT) (IMMEDIATE-DEPENDENTS0 SUBX-C-LA . SUB-BHI-INT) (IMMEDIATE-DEPENDENTS0 B1 . SUB-BHI-INT) (IMMEDIATE-DEPENDENTS0 B0P . SUB-BHI-INT) (IMMEDIATE-DEPENDENTS0 B0 . SUB-BHI-INT) (IMMEDIATE-DEPENDENTS0 B-NOT . SUB-BHI-INT) (IMMEDIATE-DEPENDENTS0 SUB-Z-LA . SUB-BHI-INT) (IMMEDIATE-DEPENDENTS0 B-AND . SUB-BHI-INT) (IMMEDIATE-DEPENDENTS0 EXP-OF-2-0 . SUB-BHI-INT) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . SUB-BHI-INT) (IMMEDIATE-DEPENDENTS0 EXP . SUB-BHI-INT) (IMMEDIATE-DEPENDENTS0 SUB-SUBX-C . SUB-BHI-INT) (IMMEDIATE-DEPENDENTS0 BETWEEN-ILEQ . SUB-BHI-INT) (IMMEDIATE-DEPENDENTS0 SUB-Z . SUB-BHI-INT) (IMMEDIATE-DEPENDENTS0 SUB-C . SUB-BHI-INT) (IMMEDIATE-DEPENDENTS0 BHI . SUB-BHI-INT) (IMMEDIATE-DEPENDENTS0 NAT-TO-INT . SUB-BHI-INT) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . SUB-BHI-INT) (LEMMAS BHI . SUB-BHI-INT))))) (PUT1-LST (QUOTE *1*BETWEEN-ILEQ) (QUOTE (MAIN-EVENT BETWEEN-ILEQ))) (PUT1-LST (QUOTE BETWEEN-ILEQ) (QUOTE (TYPE-PRESCRIPTION-LST ((BETWEEN-ILEQ 3 NIL NIL NIL)) LEMMAS ((REWRITE-RULE BETWEEN-ILEQ-LA ((INTEGERP X) (INTEGERP Y) (INTEGERP Z)) (EQUAL (BETWEEN-ILEQ X Y Z) (IF (ILESSP Z X) (QUOTE *1*FALSE) (IF (EQUAL X Y) (QUOTE *1*TRUE) (BETWEEN-ILEQ (IPLUS X (QUOTE 1)) Y Z)))) NIL)) TOTALP-LST ((BETWEEN-ILEQ . T)) SDEFN (LAMBDA (X Y Z) (IF (ILEQ X Y) (ILEQ Y Z) (QUOTE *1*FALSE))) LISP-CODE *1*BETWEEN-ILEQ SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402215016 SATELLITES (*1*BETWEEN-ILEQ) IMMEDIATE-DEPENDENTS0 (BETWEEN-ILEQ-OFF BETWEEN-ILEQ-LA SUB-BHI-INT) EVENT (DEFN BETWEEN-ILEQ (X Y Z) (AND (ILEQ X Y) (ILEQ Y Z))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ILEQ . BETWEEN-ILEQ) (DCELL . *1*BETWEEN-ILEQ))))) (PUT1-LST (QUOTE SUB-Z-LA) (QUOTE (IDATE 1000402215016 IMMEDIATE-DEPENDENTS0 (SUB-Z-LA-OFF SUB-Z-LA1 SUB-BEQ-EXT SUB-BEQ-INT-1 SUB-BEQ-INT-0 SUB-BEQ-UINT SUB-BLS SUB-BHI-1 SUB-BHI-0 SUB-BHI-INT) EVENT (PROVE-LEMMA SUB-Z-LA (REWRITE) (IMPLIES (AND (NAT-RANGEP X N) (NAT-RANGEP Y N)) (EQUAL (SUB-Z N X Y) (IF (EQUAL (FIX X) (FIX Y)) (QUOTE 1) (QUOTE 0))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B0 . SUB-Z-LA) (IMMEDIATE-DEPENDENTS0 B1 . SUB-Z-LA) (IMMEDIATE-DEPENDENTS0 ADD-NEG-0 . SUB-Z-LA) (IMMEDIATE-DEPENDENTS0 SUB-NEG . SUB-Z-LA) (IMMEDIATE-DEPENDENTS0 SUB-Z . SUB-Z-LA) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . SUB-Z-LA) (LEMMAS SUB-Z . SUB-Z-LA))))) (PUT1-LST (QUOTE MBIT-MEANS-LESSP-OFF) (QUOTE (IDATE 1000402215016 EVENT (TOGGLE MBIT-MEANS-LESSP-OFF MBIT-MEANS-LESSP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MBIT-MEANS-LESSP . MBIT-MEANS-LESSP-OFF) (DISABLED-LEMMAS NIL MBIT-MEANS-LESSP MBIT-MEANS-LESSP-OFF . T))))) (PUT1-LST (QUOTE SUB-C-OFF) (QUOTE (IDATE 1000402215016 EVENT (TOGGLE SUB-C-OFF SUB-C T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUB-C . SUB-C-OFF) (DISABLED-LEMMAS NIL SUB-C SUB-C-OFF . T))))) (PUT1-LST (QUOTE SUBX-C-OFF) (QUOTE (IDATE 1000402215016 EVENT (TOGGLE SUBX-C-OFF SUBX-C T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUBX-C . SUBX-C-OFF) (DISABLED-LEMMAS NIL SUBX-C SUBX-C-OFF . T))))) (PUT1-LST (QUOTE ADD-C-OFF) (QUOTE (IDATE 1000402215016 EVENT (TOGGLE ADD-C-OFF ADD-C T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ADD-C . ADD-C-OFF) (DISABLED-LEMMAS NIL ADD-C ADD-C-OFF . T))))) (PUT1-LST (QUOTE ADDX-C-OFF) (QUOTE (IDATE 1000402215016 EVENT (TOGGLE ADDX-C-OFF ADDX-C T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ADDX-C . ADDX-C-OFF) (DISABLED-LEMMAS NIL ADDX-C ADDX-C-OFF . T))))) (PUT1-LST (QUOTE SUBX-C-LA) (QUOTE (IDATE 1000402215016 IMMEDIATE-DEPENDENTS0 (SUBX-C-LA-OFF SUB-BCS&CC SUB-BLS SUB-BHI-1 SUB-BHI-0 SUB-BHI-INT) EVENT (PROVE-LEMMA SUBX-C-LA (REWRITE) (IMPLIES (AND (NAT-RANGEP X N) (AND (NAT-RANGEP Y N) (AND (BITP C) (NOT (ZEROP N))))) (EQUAL (SUBX-C N C X Y) (IF (LESSP Y (PLUS C X)) (QUOTE 1) (QUOTE 0)))) ((ENABLE NAT-RANGEP SUBTRACTER-NAT-LA))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-EQUAL-0 . SUBX-C-LA) (IMMEDIATE-DEPENDENTS0 TIMES-EQUAL-1 . SUBX-C-LA) (IMMEDIATE-DEPENDENTS0 SUB1-NAT-RANGEP . SUBX-C-LA) (IMMEDIATE-DEPENDENTS0 EXP-OF-2-1 . SUBX-C-LA) (IMMEDIATE-DEPENDENTS0 SUB1-OF-1 . SUBX-C-LA) (IMMEDIATE-DEPENDENTS0 EXP-OF-2-0 . SUBX-C-LA) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-LESSP1 . SUBX-C-LA) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-NAT-RANGEP . SUBX-C-LA) (IMMEDIATE-DEPENDENTS0 BITN-0 . SUBX-C-LA) (IMMEDIATE-DEPENDENTS0 EXP . SUBX-C-LA) (IMMEDIATE-DEPENDENTS0 TIMES-LESSP . SUBX-C-LA) (IMMEDIATE-DEPENDENTS0 BITN-0-1 . SUBX-C-LA) (IMMEDIATE-DEPENDENTS0 B-OR . SUBX-C-LA) (IMMEDIATE-DEPENDENTS0 SUBTRACTER-NAT-LA . SUBX-C-LA) (IMMEDIATE-DEPENDENTS0 B-AND . SUBX-C-LA) (IMMEDIATE-DEPENDENTS0 B-NOT . SUBX-C-LA) (IMMEDIATE-DEPENDENTS0 B0 . SUBX-C-LA) (IMMEDIATE-DEPENDENTS0 B0P . SUBX-C-LA) (IMMEDIATE-DEPENDENTS0 B1 . SUBX-C-LA) (IMMEDIATE-DEPENDENTS0 MBIT . SUBX-C-LA) (IMMEDIATE-DEPENDENTS0 MBIT-MEANS-LESSP . SUBX-C-LA) (IMMEDIATE-DEPENDENTS0 PLUS-EQUAL-0 . SUBX-C-LA) (IMMEDIATE-DEPENDENTS0 PLUS-ADD1 . SUBX-C-LA) (IMMEDIATE-DEPENDENTS0 SUBX-C . SUBX-C-LA) (IMMEDIATE-DEPENDENTS0 BITP . SUBX-C-LA) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . SUBX-C-LA) (LEMMAS SUBX-C . SUBX-C-LA))))) (PUT1-LST (QUOTE ADDX-C-LA) (QUOTE (IDATE 1000402215015 IMMEDIATE-DEPENDENTS0 (ADDX-C-LA-OFF ADD-BCS&CC) EVENT (PROVE-LEMMA ADDX-C-LA (REWRITE) (IMPLIES (AND (NAT-RANGEP X N) (AND (NAT-RANGEP Y N) (AND (BITP C) (NOT (ZEROP N))))) (EQUAL (ADDX-C N C X Y) (IF (LESSP (PLUS C (PLUS X Y)) (EXP (QUOTE 2) N)) (QUOTE 0) (QUOTE 1)))) ((ENABLE NAT-RANGEP ADDER-NAT-LA))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIFFERENCE-SUB1-SUB1 . ADDX-C-LA) (IMMEDIATE-DEPENDENTS0 DIFFERENCE=0 . ADDX-C-LA) (IMMEDIATE-DEPENDENTS0 TIMES-EQUAL-0 . ADDX-C-LA) (IMMEDIATE-DEPENDENTS0 TIMES-LESSP . ADDX-C-LA) (IMMEDIATE-DEPENDENTS0 B-OR . ADDX-C-LA) (IMMEDIATE-DEPENDENTS0 B-NOT . ADDX-C-LA) (IMMEDIATE-DEPENDENTS0 ADDER-NAT-LA . ADDX-C-LA) (IMMEDIATE-DEPENDENTS0 B-AND . ADDX-C-LA) (IMMEDIATE-DEPENDENTS0 B0 . ADDX-C-LA) (IMMEDIATE-DEPENDENTS0 B0P . ADDX-C-LA) (IMMEDIATE-DEPENDENTS0 B1 . ADDX-C-LA) (IMMEDIATE-DEPENDENTS0 MBIT . ADDX-C-LA) (IMMEDIATE-DEPENDENTS0 MBIT-MEANS-LESSP . ADDX-C-LA) (IMMEDIATE-DEPENDENTS0 PLUS-ADD1 . ADDX-C-LA) (IMMEDIATE-DEPENDENTS0 EXP . ADDX-C-LA) (IMMEDIATE-DEPENDENTS0 ADDX-C . ADDX-C-LA) (IMMEDIATE-DEPENDENTS0 BITP . ADDX-C-LA) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . ADDX-C-LA) (LEMMAS ADDX-C . ADDX-C-LA))))) (PUT1-LST (QUOTE SUB-SUBX-C) (QUOTE (IDATE 1000402215013 IMMEDIATE-DEPENDENTS0 (SUB-SUBX-C-OFF SUB-BCS&CC SUB-BLS SUB-BHI-1 SUB-BHI-0 SUB-BHI-INT) EVENT (PROVE-LEMMA SUB-SUBX-C (REWRITE) (EQUAL (SUB-C N X Y) (SUBX-C N (QUOTE 0) X Y)) ((ENABLE ADD-ADDER SUBTRACTER SUB-ADDER) (DISABLE SUB-NEG))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-OR . SUB-SUBX-C) (IMMEDIATE-DEPENDENTS0 ADDER-NAT-RANGEP . SUB-SUBX-C) (IMMEDIATE-DEPENDENTS0 MBIT-MEANS-LESSP . SUB-SUBX-C) (IMMEDIATE-DEPENDENTS0 SUB-ADDER . SUB-SUBX-C) (IMMEDIATE-DEPENDENTS0 B-AND . SUB-SUBX-C) (IMMEDIATE-DEPENDENTS0 B-NOT . SUB-SUBX-C) (IMMEDIATE-DEPENDENTS0 B0 . SUB-SUBX-C) (IMMEDIATE-DEPENDENTS0 B0P . SUB-SUBX-C) (IMMEDIATE-DEPENDENTS0 B1 . SUB-SUBX-C) (IMMEDIATE-DEPENDENTS0 MBIT . SUB-SUBX-C) (IMMEDIATE-DEPENDENTS0 SUBTRACTER . SUB-SUBX-C) (IMMEDIATE-DEPENDENTS0 SUBX-C . SUB-SUBX-C) (IMMEDIATE-DEPENDENTS0 SUB-C . SUB-SUBX-C) (LEMMAS SUB-C . SUB-SUBX-C))))) (PUT1-LST (QUOTE ADD-ADDX-C) (QUOTE (IDATE 1000402215013 IMMEDIATE-DEPENDENTS0 (ADD-ADDX-C-OFF ADD-BCS&CC) EVENT (PROVE-LEMMA ADD-ADDX-C (REWRITE) (EQUAL (ADD-C N X Y) (ADDX-C N (QUOTE 0) X Y)) ((ENABLE ADD-ADDER))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-OR . ADD-ADDX-C) (IMMEDIATE-DEPENDENTS0 B-NOT . ADD-ADDX-C) (IMMEDIATE-DEPENDENTS0 ADDER-NAT-RANGEP . ADD-ADDX-C) (IMMEDIATE-DEPENDENTS0 MBIT-MEANS-LESSP . ADD-ADDX-C) (IMMEDIATE-DEPENDENTS0 ADD-ADDER . ADD-ADDX-C) (IMMEDIATE-DEPENDENTS0 B-AND . ADD-ADDX-C) (IMMEDIATE-DEPENDENTS0 B0 . ADD-ADDX-C) (IMMEDIATE-DEPENDENTS0 B0P . ADD-ADDX-C) (IMMEDIATE-DEPENDENTS0 B1 . ADD-ADDX-C) (IMMEDIATE-DEPENDENTS0 MBIT . ADD-ADDX-C) (IMMEDIATE-DEPENDENTS0 ADDX-C . ADD-ADDX-C) (IMMEDIATE-DEPENDENTS0 ADD-C . ADD-ADDX-C) (LEMMAS ADD-C . ADD-ADDX-C))))) (PUT1-LST (QUOTE CORRECTNESS-OF-CANCEL-ADD-NEG) (QUOTE (IDATE 1000402215012 IMMEDIATE-DEPENDENTS0 (INDEX-N-DEDUCTION2 INDEX-N-DEDUCTION1 DISJOINT-15 DISJOINT-14 DISJOINT-13 DISJOINT-12 DISJOINT-11 DISJOINT-10 DISJOINT-9 DISJOINT-8 DISJOINT-7 DISJOINT-6 DISJOINT-5 DISJOINT-4 PC-READ-MEM-MCODE3 PC-READ-MEM-MCODE2 PC-BYTE-READ-MCODE3 PC-BYTE-READ-MCODE2 RAM-ADDRP-LA2 WRITE-MEMP-RAM3 WRITE-MEMP-RAM2 BYTE-WRITEP-RAM3 BYTE-WRITEP-RAM2 ROM-ADDRP-LA2 PC-READ-MEMP-ROM3 PC-READ-MEMP-ROM2 PC-BYTE-READP-ROM3 PC-BYTE-READP-ROM2) EVENT (PROVE-LEMMA CORRECTNESS-OF-CANCEL-ADD-NEG ((META ADD)) (EQUAL (EVAL$ (QUOTE *1*TRUE) X A) (EVAL$ (QUOTE *1*TRUE) (CANCEL-ADD-NEG X) A))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NEG-CANCEL . CORRECTNESS-OF-CANCEL-ADD-NEG) (IMMEDIATE-DEPENDENTS0 ADD-FRINGE . CORRECTNESS-OF-CANCEL-ADD-NEG) (IMMEDIATE-DEPENDENTS0 CADR-EVAL$-LIST . CORRECTNESS-OF-CANCEL-ADD-NEG) (IMMEDIATE-DEPENDENTS0 ADD-TREE-ADD-FRINGE . CORRECTNESS-OF-CANCEL-ADD-NEG) (IMMEDIATE-DEPENDENTS0 NEG-NEG . CORRECTNESS-OF-CANCEL-ADD-NEG) (IMMEDIATE-DEPENDENTS0 ADD-COMMUTATIVITY . CORRECTNESS-OF-CANCEL-ADD-NEG) (IMMEDIATE-DEPENDENTS0 ADD-HEAD . CORRECTNESS-OF-CANCEL-ADD-NEG) (IMMEDIATE-DEPENDENTS0 SUB-NEG . CORRECTNESS-OF-CANCEL-ADD-NEG) (IMMEDIATE-DEPENDENTS0 ADD-TREE-DELETE . CORRECTNESS-OF-CANCEL-ADD-NEG) (IMMEDIATE-DEPENDENTS0 CANCEL-ADD-NEG . CORRECTNESS-OF-CANCEL-ADD-NEG) (LEMMAS ADD . CORRECTNESS-OF-CANCEL-ADD-NEG))))) (PUT1-LST (QUOTE *1*CANCEL-ADD-NEG) (QUOTE (MAIN-EVENT CANCEL-ADD-NEG))) (PUT1-LST (QUOTE CANCEL-ADD-NEG) (QUOTE (TYPE-PRESCRIPTION-LST ((CANCEL-ADD-NEG 16 T)) TOTALP-LST ((CANCEL-ADD-NEG . T)) SDEFN (LAMBDA (X) (IF (LISTP X) (IF (EQUAL (CAR X) (QUOTE ADD)) (IF (LISTP (CDR X)) (IF (LISTP (CDR (CDR X))) (IF (LISTP (CAR (CDR (CDR X)))) (IF (LISTP (CDR (CAR (CDR (CDR X))))) (IF (LISTP (CDR (CDR (CAR (CDR (CDR X)))))) (IF (EQUAL (CAR (CAR (CDR (CDR X)))) (QUOTE NEG)) (IF (EQUAL (CAR (CDR (CAR (CDR (CDR X))))) (CAR (CDR X))) (IF (MEMBER (CAR (CDR (CDR (CAR (CDR (CDR X)))))) (ADD-FRINGE (CAR (CDR X)) (CAR (CDR (CDR (CDR X)))))) (ADD-TREE (CAR (CDR X)) (DELETE (CAR (CDR (CDR (CAR (CDR (CDR X)))))) (ADD-FRINGE (CAR (CDR X)) (CAR (CDR (CDR (CDR X))))))) (IF (MEMBER (CONS (QUOTE NEG) (CONS (CAR (CDR X)) (CONS (CAR (CDR (CDR X))) (QUOTE NIL)))) (ADD-FRINGE (CAR (CDR X)) (CAR (CDR (CDR (CDR X)))))) (ADD-TREE (CAR (CDR X)) (DELETE (CONS (QUOTE NEG) (CONS (CAR (CDR X)) (CONS (CAR (CDR (CDR X))) (QUOTE NIL)))) (ADD-FRINGE (CAR (CDR X)) (CAR (CDR (CDR (CDR X))))))) X)) (IF (MEMBER (CONS (QUOTE NEG) (CONS (CAR (CDR X)) (CONS (CAR (CDR (CDR X))) (QUOTE NIL)))) (ADD-FRINGE (CAR (CDR X)) (CAR (CDR (CDR (CDR X)))))) (ADD-TREE (CAR (CDR X)) (DELETE (CONS (QUOTE NEG) (CONS (CAR (CDR X)) (CONS (CAR (CDR (CDR X))) (QUOTE NIL)))) (ADD-FRINGE (CAR (CDR X)) (CAR (CDR (CDR (CDR X))))))) X)) (IF (MEMBER (CONS (QUOTE NEG) (CONS (CAR (CDR X)) (CONS (CAR (CDR (CDR X))) (QUOTE NIL)))) (ADD-FRINGE (CAR (CDR X)) (CAR (CDR (CDR (CDR X)))))) (ADD-TREE (CAR (CDR X)) (DELETE (CONS (QUOTE NEG) (CONS (CAR (CDR X)) (CONS (CAR (CDR (CDR X))) (QUOTE NIL)))) (ADD-FRINGE (CAR (CDR X)) (CAR (CDR (CDR (CDR X))))))) X)) (IF (MEMBER (CONS (QUOTE NEG) (CONS (CAR (CDR X)) (CONS (CAR (CDR (CDR X))) (QUOTE NIL)))) (ADD-FRINGE (CAR (CDR X)) (CAR (CDR (CDR (CDR X)))))) (ADD-TREE (CAR (CDR X)) (DELETE (CONS (QUOTE NEG) (CONS (CAR (CDR X)) (CONS (CAR (CDR (CDR X))) (QUOTE NIL)))) (ADD-FRINGE (CAR (CDR X)) (CAR (CDR (CDR (CDR X))))))) X)) (IF (MEMBER (CONS (QUOTE NEG) (CONS (CAR (CDR X)) (CONS (CAR (CDR (CDR X))) (QUOTE NIL)))) (ADD-FRINGE (CAR (CDR X)) (CAR (CDR (CDR (CDR X)))))) (ADD-TREE (CAR (CDR X)) (DELETE (CONS (QUOTE NEG) (CONS (CAR (CDR X)) (CONS (CAR (CDR (CDR X))) (QUOTE NIL)))) (ADD-FRINGE (CAR (CDR X)) (CAR (CDR (CDR (CDR X))))))) X)) (IF (MEMBER (CONS (QUOTE NEG) (CONS (CAR (CDR X)) (CONS (CAR (CDR (CDR X))) (QUOTE NIL)))) (ADD-FRINGE (CAR (CDR X)) (CAR (CDR (CDR (CDR X)))))) (ADD-TREE (CAR (CDR X)) (DELETE (CONS (QUOTE NEG) (CONS (CAR (CDR X)) (CONS (CAR (CDR (CDR X))) (QUOTE NIL)))) (ADD-FRINGE (CAR (CDR X)) (CAR (CDR (CDR (CDR X))))))) X)) X) X) X) X)) LISP-CODE *1*CANCEL-ADD-NEG SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402215011 SATELLITES (*1*CANCEL-ADD-NEG) IMMEDIATE-DEPENDENTS0 (CORRECTNESS-OF-CANCEL-ADD-NEG) EVENT (DEFN CANCEL-ADD-NEG (X) (IF (AND (LISTP X) (AND (EQUAL (CAR X) (QUOTE ADD)) (AND (LISTP (CDR X)) (LISTP (CDR (CDR X)))))) (IF (AND (LISTP (CAR (CDR (CDR X)))) (AND (LISTP (CDR (CAR (CDR (CDR X))))) (AND (LISTP (CDR (CDR (CAR (CDR (CDR X)))))) (AND (EQUAL (CAR (CAR (CDR (CDR X)))) (QUOTE NEG)) (AND (EQUAL (CAR (CDR (CAR (CDR (CDR X))))) (CAR (CDR X))) (MEMBER (CAR (CDR (CDR (CAR (CDR (CDR X)))))) (ADD-FRINGE (CAR (CDR X)) (CAR (CDR (CDR (CDR X))))))))))) (ADD-TREE (CAR (CDR X)) (DELETE (CAR (CDR (CDR (CAR (CDR (CDR X)))))) (ADD-FRINGE (CAR (CDR X)) (CAR (CDR (CDR (CDR X))))))) (IF (MEMBER (CONS (QUOTE NEG) (CONS (CAR (CDR X)) (CONS (CAR (CDR (CDR X))) (QUOTE NIL)))) (ADD-FRINGE (CAR (CDR X)) (CAR (CDR (CDR (CDR X)))))) (ADD-TREE (CAR (CDR X)) (DELETE (CONS (QUOTE NEG) (CONS (CAR (CDR X)) (CONS (CAR (CDR (CDR X))) (QUOTE NIL)))) (ADD-FRINGE (CAR (CDR X)) (CAR (CDR (CDR (CDR X))))))) X)) X)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DELETE . CANCEL-ADD-NEG) (IMMEDIATE-DEPENDENTS0 ADD-TREE . CANCEL-ADD-NEG) (IMMEDIATE-DEPENDENTS0 ADD-FRINGE . CANCEL-ADD-NEG) (DCELL . *1*CANCEL-ADD-NEG))))) (PUT1-LST (QUOTE ADD-TREE-DELETE) (QUOTE (IDATE 1000402215011 IMMEDIATE-DEPENDENTS0 (CORRECTNESS-OF-CANCEL-ADD-NEG) EVENT (PROVE-LEMMA ADD-TREE-DELETE (REWRITE) (IMPLIES (MEMBER X Y) (EQUAL (EVAL$ (QUOTE *1*TRUE) (ADD-TREE N (DELETE X Y)) A) (SUB (EVAL$ (QUOTE *1*TRUE) N A) (EVAL$ (QUOTE *1*TRUE) X A) (EVAL$ (QUOTE *1*TRUE) (ADD-TREE N Y) A))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EVAL$-ADD-MEMBER . ADD-TREE-DELETE) (IMMEDIATE-DEPENDENTS0 ADD-TREE-NAT-RANGEP . ADD-TREE-DELETE) (IMMEDIATE-DEPENDENTS0 NUMBERP-EVAL$-ADD-TREE . ADD-TREE-DELETE) (IMMEDIATE-DEPENDENTS0 HEAD-LEMMA . ADD-TREE-DELETE) (IMMEDIATE-DEPENDENTS0 ADD-NEG-CANCEL . ADD-TREE-DELETE) (IMMEDIATE-DEPENDENTS0 ADD-ASSOCIATIVITY . ADD-TREE-DELETE) (IMMEDIATE-DEPENDENTS0 SUB-NEG . ADD-TREE-DELETE) (IMMEDIATE-DEPENDENTS0 SUB . ADD-TREE-DELETE) (IMMEDIATE-DEPENDENTS0 DELETE . ADD-TREE-DELETE) (IMMEDIATE-DEPENDENTS0 ADD-TREE . ADD-TREE-DELETE) (LEMMAS EVAL$ . ADD-TREE-DELETE))))) (PUT1-LST (QUOTE CORRECTNESS-OF-CANCEL-EQUAL-ADD) (QUOTE (IDATE 1000402215011 IMMEDIATE-DEPENDENTS0 (MOD32-EQ-DEDUCTION3) EVENT (PROVE-LEMMA CORRECTNESS-OF-CANCEL-EQUAL-ADD ((META EQUAL)) (EQUAL (EVAL$ (QUOTE *1*TRUE) X A) (EVAL$ (QUOTE *1*TRUE) (CANCEL-EQUAL-ADD X) A)) ((DISABLE ADD-TREE-DELETE-COND))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ADD-OF-0 . CORRECTNESS-OF-CANCEL-EQUAL-ADD) (IMMEDIATE-DEPENDENTS0 SUBBAGP-BAGINT2 . CORRECTNESS-OF-CANCEL-EQUAL-ADD) (IMMEDIATE-DEPENDENTS0 SUBBAGP-BAGINT1 . CORRECTNESS-OF-CANCEL-EQUAL-ADD) (IMMEDIATE-DEPENDENTS0 ADD-TREE-BAGDIFF . CORRECTNESS-OF-CANCEL-EQUAL-ADD) (IMMEDIATE-DEPENDENTS0 EVAL$-QUOTE . CORRECTNESS-OF-CANCEL-EQUAL-ADD) (IMMEDIATE-DEPENDENTS0 ADD-NAT-RANGEP . CORRECTNESS-OF-CANCEL-EQUAL-ADD) (IMMEDIATE-DEPENDENTS0 HEAD-LEMMA . CORRECTNESS-OF-CANCEL-EQUAL-ADD) (IMMEDIATE-DEPENDENTS0 ADD-FRINGE . CORRECTNESS-OF-CANCEL-EQUAL-ADD) (IMMEDIATE-DEPENDENTS0 ADD . CORRECTNESS-OF-CANCEL-EQUAL-ADD) (IMMEDIATE-DEPENDENTS0 HEAD . CORRECTNESS-OF-CANCEL-EQUAL-ADD) (IMMEDIATE-DEPENDENTS0 ADD-TREE-ADD-FRINGE . CORRECTNESS-OF-CANCEL-EQUAL-ADD) (IMMEDIATE-DEPENDENTS0 ADD-TREE-DELETE-EQUAL . CORRECTNESS-OF-CANCEL-EQUAL-ADD) (IMMEDIATE-DEPENDENTS0 CANCEL-EQUAL-ADD . CORRECTNESS-OF-CANCEL-EQUAL-ADD) (LEMMAS EQUAL . CORRECTNESS-OF-CANCEL-EQUAL-ADD))))) (PUT1-LST (QUOTE *1*CANCEL-EQUAL-ADD) (QUOTE (MAIN-EVENT CANCEL-EQUAL-ADD))) (PUT1-LST (QUOTE CANCEL-EQUAL-ADD) (QUOTE (TYPE-PRESCRIPTION-LST ((CANCEL-EQUAL-ADD 16 T)) TOTALP-LST ((CANCEL-EQUAL-ADD . T)) SDEFN (LAMBDA (X) (IF (LISTP X) (IF (EQUAL (CAR X) (QUOTE EQUAL)) (IF (LISTP (CAR (CDR X))) (IF (EQUAL (CAR (CAR (CDR X))) (QUOTE ADD)) (IF (LISTP (CAR (CDR (CDR X)))) (IF (EQUAL (CAR (CAR (CDR (CDR X)))) (QUOTE ADD)) (IF (EQUAL (CAR (CDR (CAR (CDR X)))) (CAR (CDR (CAR (CDR (CDR X)))))) (CONS (QUOTE EQUAL) (CONS (ADD-TREE (CAR (CDR (CAR (CDR X)))) (BAGDIFF (ADD-FRINGE (CAR (CDR (CAR (CDR X)))) (CAR (CDR X))) (BAGINT (ADD-FRINGE (CAR (CDR (CAR (CDR X)))) (CAR (CDR X))) (ADD-FRINGE (CAR (CDR (CAR (CDR X)))) (CAR (CDR (CDR X))))))) (CONS (ADD-TREE (CAR (CDR (CAR (CDR X)))) (BAGDIFF (ADD-FRINGE (CAR (CDR (CAR (CDR X)))) (CAR (CDR (CDR X)))) (BAGINT (ADD-FRINGE (CAR (CDR (CAR (CDR X)))) (CAR (CDR X))) (ADD-FRINGE (CAR (CDR (CAR (CDR X)))) (CAR (CDR (CDR X))))))) (QUOTE NIL)))) X) (IF (MEMBER (CAR (CDR (CDR X))) (ADD-FRINGE (CAR (CDR (CAR (CDR X)))) (CAR (CDR X)))) (ADD-TREE-DELETE-COND (CAR (CDR (CAR (CDR X)))) (CAR (CDR (CDR X))) (ADD-FRINGE (CAR (CDR (CAR (CDR X)))) (CAR (CDR X)))) X)) (IF (MEMBER (CAR (CDR (CDR X))) (ADD-FRINGE (CAR (CDR (CAR (CDR X)))) (CAR (CDR X)))) (ADD-TREE-DELETE-COND (CAR (CDR (CAR (CDR X)))) (CAR (CDR (CDR X))) (ADD-FRINGE (CAR (CDR (CAR (CDR X)))) (CAR (CDR X)))) X)) (IF (LISTP (CAR (CDR (CDR X)))) (IF (EQUAL (CAR (CAR (CDR (CDR X)))) (QUOTE ADD)) (IF (MEMBER (CAR (CDR X)) (ADD-FRINGE (CAR (CDR (CAR (CDR (CDR X))))) (CAR (CDR (CDR X))))) (ADD-TREE-DELETE-COND (CAR (CDR (CAR (CDR (CDR X))))) (CAR (CDR X)) (ADD-FRINGE (CAR (CDR (CAR (CDR (CDR X))))) (CAR (CDR (CDR X))))) X) X) X)) (IF (LISTP (CAR (CDR (CDR X)))) (IF (EQUAL (CAR (CAR (CDR (CDR X)))) (QUOTE ADD)) (IF (MEMBER (CAR (CDR X)) (ADD-FRINGE (CAR (CDR (CAR (CDR (CDR X))))) (CAR (CDR (CDR X))))) (ADD-TREE-DELETE-COND (CAR (CDR (CAR (CDR (CDR X))))) (CAR (CDR X)) (ADD-FRINGE (CAR (CDR (CAR (CDR (CDR X))))) (CAR (CDR (CDR X))))) X) X) X)) X) X)) LISP-CODE *1*CANCEL-EQUAL-ADD SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402215009 SATELLITES (*1*CANCEL-EQUAL-ADD) IMMEDIATE-DEPENDENTS0 (CORRECTNESS-OF-CANCEL-EQUAL-ADD) EVENT (DEFN CANCEL-EQUAL-ADD (X) (IF (AND (LISTP X) (EQUAL (CAR X) (QUOTE EQUAL))) (IF (AND (LISTP (CAR (CDR X))) (AND (EQUAL (CAR (CAR (CDR X))) (QUOTE ADD)) (AND (LISTP (CAR (CDR (CDR X)))) (EQUAL (CAR (CAR (CDR (CDR X)))) (QUOTE ADD))))) (IF (EQUAL (CAR (CDR (CAR (CDR X)))) (CAR (CDR (CAR (CDR (CDR X)))))) (CONS (QUOTE EQUAL) (CONS (ADD-TREE (CAR (CDR (CAR (CDR X)))) (BAGDIFF (ADD-FRINGE (CAR (CDR (CAR (CDR X)))) (CAR (CDR X))) (BAGINT (ADD-FRINGE (CAR (CDR (CAR (CDR X)))) (CAR (CDR X))) (ADD-FRINGE (CAR (CDR (CAR (CDR X)))) (CAR (CDR (CDR X))))))) (CONS (ADD-TREE (CAR (CDR (CAR (CDR X)))) (BAGDIFF (ADD-FRINGE (CAR (CDR (CAR (CDR X)))) (CAR (CDR (CDR X)))) (BAGINT (ADD-FRINGE (CAR (CDR (CAR (CDR X)))) (CAR (CDR X))) (ADD-FRINGE (CAR (CDR (CAR (CDR X)))) (CAR (CDR (CDR X))))))) (QUOTE NIL)))) X) (IF (AND (LISTP (CAR (CDR X))) (AND (EQUAL (CAR (CAR (CDR X))) (QUOTE ADD)) (MEMBER (CAR (CDR (CDR X))) (ADD-FRINGE (CAR (CDR (CAR (CDR X)))) (CAR (CDR X)))))) (ADD-TREE-DELETE-COND (CAR (CDR (CAR (CDR X)))) (CAR (CDR (CDR X))) (ADD-FRINGE (CAR (CDR (CAR (CDR X)))) (CAR (CDR X)))) (IF (AND (LISTP (CAR (CDR (CDR X)))) (AND (EQUAL (CAR (CAR (CDR (CDR X)))) (QUOTE ADD)) (MEMBER (CAR (CDR X)) (ADD-FRINGE (CAR (CDR (CAR (CDR (CDR X))))) (CAR (CDR (CDR X))))))) (ADD-TREE-DELETE-COND (CAR (CDR (CAR (CDR (CDR X))))) (CAR (CDR X)) (ADD-FRINGE (CAR (CDR (CAR (CDR (CDR X))))) (CAR (CDR (CDR X))))) X))) X)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ADD-TREE-DELETE-COND . CANCEL-EQUAL-ADD) (IMMEDIATE-DEPENDENTS0 BAGINT . CANCEL-EQUAL-ADD) (IMMEDIATE-DEPENDENTS0 ADD-FRINGE . CANCEL-EQUAL-ADD) (IMMEDIATE-DEPENDENTS0 BAGDIFF . CANCEL-EQUAL-ADD) (IMMEDIATE-DEPENDENTS0 ADD-TREE . CANCEL-EQUAL-ADD) (DCELL . *1*CANCEL-EQUAL-ADD))))) (PUT1-LST (QUOTE ADD-TREE-BAGDIFF) (QUOTE (IDATE 1000402215009 IMMEDIATE-DEPENDENTS0 (CORRECTNESS-OF-CANCEL-EQUAL-ADD) EVENT (PROVE-LEMMA ADD-TREE-BAGDIFF (REWRITE) (IMPLIES (AND (SUBBAGP X Y) (SUBBAGP X Z)) (EQUAL (EQUAL (EVAL$ (QUOTE *1*TRUE) (ADD-TREE N (BAGDIFF Y X)) A) (EVAL$ (QUOTE *1*TRUE) (ADD-TREE N (BAGDIFF Z X)) A)) (EQUAL (EVAL$ (QUOTE *1*TRUE) (ADD-TREE N Y) A) (EVAL$ (QUOTE *1*TRUE) (ADD-TREE N Z) A))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUBBAGP-CDR2 . ADD-TREE-BAGDIFF) (IMMEDIATE-DEPENDENTS0 EVAL$-ADD-MEMBER . ADD-TREE-BAGDIFF) (IMMEDIATE-DEPENDENTS0 ADD-TREE-NAT-RANGEP . ADD-TREE-BAGDIFF) (IMMEDIATE-DEPENDENTS0 NUMBERP-EVAL$-ADD-TREE . ADD-TREE-BAGDIFF) (IMMEDIATE-DEPENDENTS0 HEAD-LEMMA . ADD-TREE-BAGDIFF) (IMMEDIATE-DEPENDENTS0 ADD-CANCEL . ADD-TREE-BAGDIFF) (IMMEDIATE-DEPENDENTS0 BAGDIFF . ADD-TREE-BAGDIFF) (IMMEDIATE-DEPENDENTS0 ADD-TREE . ADD-TREE-BAGDIFF) (IMMEDIATE-DEPENDENTS0 SUBBAGP . ADD-TREE-BAGDIFF) (LEMMAS EQUAL . ADD-TREE-BAGDIFF))))) (PUT1-LST (QUOTE ADD-TREE-DELETE-EQUAL) (QUOTE (IDATE 1000402215009 IMMEDIATE-DEPENDENTS0 (CORRECTNESS-OF-CANCEL-EQUAL-ADD) EVENT (PROVE-LEMMA ADD-TREE-DELETE-EQUAL (REWRITE) (IMPLIES (MEMBER X Y) (EQUAL (EVAL$ (QUOTE *1*TRUE) (ADD-TREE-DELETE-COND N X Y) A) (EQUAL (EVAL$ (QUOTE *1*TRUE) (ADD-TREE N Y) A) (EVAL$ (QUOTE *1*TRUE) X A))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EVAL$-QUOTE . ADD-TREE-DELETE-EQUAL) (IMMEDIATE-DEPENDENTS0 EVAL$-ADD-MEMBER . ADD-TREE-DELETE-EQUAL) (IMMEDIATE-DEPENDENTS0 ADD-TREE-NAT-RANGEP . ADD-TREE-DELETE-EQUAL) (IMMEDIATE-DEPENDENTS0 NUMBERP-EVAL$-ADD-TREE . ADD-TREE-DELETE-EQUAL) (IMMEDIATE-DEPENDENTS0 HEAD-LEMMA . ADD-TREE-DELETE-EQUAL) (IMMEDIATE-DEPENDENTS0 ADD-CANCEL0 . ADD-TREE-DELETE-EQUAL) (IMMEDIATE-DEPENDENTS0 ADD-TREE . ADD-TREE-DELETE-EQUAL) (IMMEDIATE-DEPENDENTS0 ADD-TREE-DELETE-COND . ADD-TREE-DELETE-EQUAL) (LEMMAS EVAL$ . ADD-TREE-DELETE-EQUAL))))) (PUT1-LST (QUOTE *1*ADD-TREE-DELETE-COND) (QUOTE (MAIN-EVENT ADD-TREE-DELETE-COND))) (PUT1-LST (QUOTE ADD-TREE-DELETE-COND) (QUOTE (TYPE-PRESCRIPTION-LST ((ADD-TREE-DELETE-COND 16 NIL NIL NIL)) TOTALP-LST ((ADD-TREE-DELETE-COND . T)) SDEFN (LAMBDA (N X Y) (CONS (QUOTE AND) (CONS (CONS (QUOTE NUMBERP) (CONS X (QUOTE NIL))) (CONS (CONS (QUOTE AND) (CONS (CONS (QUOTE NAT-RANGEP) (CONS X (CONS N (QUOTE NIL)))) (CONS (CONS (QUOTE EQUAL) (CONS (ADD-TREE N (DELETE X Y)) (QUOTE ((QUOTE 0))))) (QUOTE NIL)))) (QUOTE NIL))))) LISP-CODE *1*ADD-TREE-DELETE-COND SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402215009 SATELLITES (*1*ADD-TREE-DELETE-COND) IMMEDIATE-DEPENDENTS0 (CANCEL-EQUAL-ADD ADD-TREE-DELETE-EQUAL) EVENT (DEFN ADD-TREE-DELETE-COND (N X Y) (CONS (QUOTE AND) (CONS (CONS (QUOTE NUMBERP) (CONS X (QUOTE NIL))) (CONS (CONS (QUOTE AND) (CONS (CONS (QUOTE NAT-RANGEP) (CONS X (CONS N (QUOTE NIL)))) (CONS (CONS (QUOTE EQUAL) (CONS (ADD-TREE N (DELETE X Y)) (QUOTE ((QUOTE 0))))) (QUOTE NIL)))) (QUOTE NIL))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DELETE . ADD-TREE-DELETE-COND) (IMMEDIATE-DEPENDENTS0 ADD-TREE . ADD-TREE-DELETE-COND) (DCELL . *1*ADD-TREE-DELETE-COND))))) (PUT1-LST (QUOTE ADD-TREE-ADD-FRINGE) (QUOTE (IDATE 1000402215009 IMMEDIATE-DEPENDENTS0 (CORRECTNESS-OF-CANCEL-ADD-NEG CORRECTNESS-OF-CANCEL-EQUAL-ADD) EVENT (PROVE-LEMMA ADD-TREE-ADD-FRINGE (REWRITE) (EQUAL (EVAL$ (QUOTE *1*TRUE) (ADD-TREE N (ADD-FRINGE N X)) A) (HEAD (EVAL$ (QUOTE *1*TRUE) X A) (EVAL$ (QUOTE *1*TRUE) N A))) ((INDUCT (ADD-FRINGE N X)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ADD-NAT-RANGEP . ADD-TREE-ADD-FRINGE) (IMMEDIATE-DEPENDENTS0 ADD-COMMUTATIVITY . ADD-TREE-ADD-FRINGE) (IMMEDIATE-DEPENDENTS0 ADD-TREE-NAT-RANGEP . ADD-TREE-ADD-FRINGE) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP-OF-0 . ADD-TREE-ADD-FRINGE) (IMMEDIATE-DEPENDENTS0 HEAD-LEMMA . ADD-TREE-ADD-FRINGE) (IMMEDIATE-DEPENDENTS0 ADD-0 . ADD-TREE-ADD-FRINGE) (IMMEDIATE-DEPENDENTS0 ADD . ADD-TREE-ADD-FRINGE) (IMMEDIATE-DEPENDENTS0 ADD-HEAD . ADD-TREE-ADD-FRINGE) (IMMEDIATE-DEPENDENTS0 ADD-TREE-APPEND . ADD-TREE-ADD-FRINGE) (IMMEDIATE-DEPENDENTS0 HEAD . ADD-TREE-ADD-FRINGE) (IMMEDIATE-DEPENDENTS0 ADD-FRINGE . ADD-TREE-ADD-FRINGE) (IMMEDIATE-DEPENDENTS0 ADD-TREE . ADD-TREE-ADD-FRINGE) (LEMMAS EVAL$ . ADD-TREE-ADD-FRINGE))))) (PUT1-LST (QUOTE ADD-TREE-APPEND) (QUOTE (IDATE 1000402215008 IMMEDIATE-DEPENDENTS0 (ADD-TREE-ADD-FRINGE) EVENT (PROVE-LEMMA ADD-TREE-APPEND (REWRITE) (EQUAL (EVAL$ (QUOTE *1*TRUE) (ADD-TREE N (APPEND X Y)) A) (ADD (EVAL$ (QUOTE *1*TRUE) N A) (EVAL$ (QUOTE *1*TRUE) (ADD-TREE N X) A) (EVAL$ (QUOTE *1*TRUE) (ADD-TREE N Y) A)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ADD-NAT-RANGEP . ADD-TREE-APPEND) (IMMEDIATE-DEPENDENTS0 ADD-COMMUTATIVITY1 . ADD-TREE-APPEND) (IMMEDIATE-DEPENDENTS0 ADD-CANCEL . ADD-TREE-APPEND) (IMMEDIATE-DEPENDENTS0 ADD-TREE-NAT-RANGEP . ADD-TREE-APPEND) (IMMEDIATE-DEPENDENTS0 NUMBERP-EVAL$-ADD-TREE . ADD-TREE-APPEND) (IMMEDIATE-DEPENDENTS0 HEAD-LEMMA . ADD-TREE-APPEND) (IMMEDIATE-DEPENDENTS0 ADD-0 . ADD-TREE-APPEND) (IMMEDIATE-DEPENDENTS0 EVAL$-QUOTE . ADD-TREE-APPEND) (IMMEDIATE-DEPENDENTS0 ADD-HEAD . ADD-TREE-APPEND) (IMMEDIATE-DEPENDENTS0 ADD-COMMUTATIVITY . ADD-TREE-APPEND) (IMMEDIATE-DEPENDENTS0 ADD . ADD-TREE-APPEND) (IMMEDIATE-DEPENDENTS0 ADD-TREE . ADD-TREE-APPEND) (LEMMAS EVAL$ . ADD-TREE-APPEND))))) (PUT1-LST (QUOTE ADD-TREE-NAT-RANGEP) (QUOTE (IDATE 1000402215008 IMMEDIATE-DEPENDENTS0 (ADD-TREE-DELETE ADD-TREE-BAGDIFF ADD-TREE-DELETE-EQUAL ADD-TREE-ADD-FRINGE ADD-TREE-APPEND) EVENT (PROVE-LEMMA ADD-TREE-NAT-RANGEP (REWRITE) (NAT-RANGEP (EVAL$ (QUOTE *1*TRUE) (ADD-TREE N X) A) (EVAL$ (QUOTE *1*TRUE) N A))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ADD-NAT-RANGEP . ADD-TREE-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 HEAD-NAT-RANGEP . ADD-TREE-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 EVAL$-QUOTE . ADD-TREE-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP-OF-0 . ADD-TREE-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 ADD-TREE . ADD-TREE-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . ADD-TREE-NAT-RANGEP) (LEMMAS NAT-RANGEP . ADD-TREE-NAT-RANGEP))))) (PUT1-LST (QUOTE EVAL$-ADD-MEMBER) (QUOTE (IDATE 1000402215008 IMMEDIATE-DEPENDENTS0 (ADD-TREE-DELETE ADD-TREE-BAGDIFF ADD-TREE-DELETE-EQUAL) EVENT (PROVE-LEMMA EVAL$-ADD-MEMBER (REWRITE) (IMPLIES (MEMBER E X) (EQUAL (EVAL$ (QUOTE *1*TRUE) (ADD-TREE N X) A) (ADD (EVAL$ (QUOTE *1*TRUE) N A) (EVAL$ (QUOTE *1*TRUE) E A) (EVAL$ (QUOTE *1*TRUE) (ADD-TREE N (DELETE E X)) A))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ADD-NAT-RANGEP . EVAL$-ADD-MEMBER) (IMMEDIATE-DEPENDENTS0 HEAD-LEMMA . EVAL$-ADD-MEMBER) (IMMEDIATE-DEPENDENTS0 ADD-EQUAL-CANCEL-1 . EVAL$-ADD-MEMBER) (IMMEDIATE-DEPENDENTS0 DELETE-NON-MEMBER . EVAL$-ADD-MEMBER) (IMMEDIATE-DEPENDENTS0 ADD-HEAD . EVAL$-ADD-MEMBER) (IMMEDIATE-DEPENDENTS0 HEAD-HEAD . EVAL$-ADD-MEMBER) (IMMEDIATE-DEPENDENTS0 ADD-CANCEL . EVAL$-ADD-MEMBER) (IMMEDIATE-DEPENDENTS0 EVAL$-QUOTE . EVAL$-ADD-MEMBER) (IMMEDIATE-DEPENDENTS0 ADD-0 . EVAL$-ADD-MEMBER) (IMMEDIATE-DEPENDENTS0 ADD-COMMUTATIVITY . EVAL$-ADD-MEMBER) (IMMEDIATE-DEPENDENTS0 DELETE . EVAL$-ADD-MEMBER) (IMMEDIATE-DEPENDENTS0 ADD . EVAL$-ADD-MEMBER) (IMMEDIATE-DEPENDENTS0 ADD-TREE . EVAL$-ADD-MEMBER) (LEMMAS EVAL$ . EVAL$-ADD-MEMBER))))) (PUT1-LST (QUOTE ADD-EQUAL-CANCEL-1) (QUOTE (IDATE 1000402215005 IMMEDIATE-DEPENDENTS0 (EVAL$-ADD-MEMBER) EVENT (PROVE-LEMMA ADD-EQUAL-CANCEL-1 (REWRITE) (EQUAL (EQUAL (ADD N A B) (ADD N C (ADD N A D))) (EQUAL (HEAD B N) (ADD N C D)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ADD-COMMUTATIVITY1 . ADD-EQUAL-CANCEL-1) (IMMEDIATE-DEPENDENTS0 ADD-NAT-RANGEP . ADD-EQUAL-CANCEL-1) (IMMEDIATE-DEPENDENTS0 HEAD-LEMMA . ADD-EQUAL-CANCEL-1) (IMMEDIATE-DEPENDENTS0 ADD-CANCEL . ADD-EQUAL-CANCEL-1) (IMMEDIATE-DEPENDENTS0 HEAD . ADD-EQUAL-CANCEL-1) (IMMEDIATE-DEPENDENTS0 ADD . ADD-EQUAL-CANCEL-1) (LEMMAS EQUAL . ADD-EQUAL-CANCEL-1))))) (PUT1-LST (QUOTE NUMBERP-EVAL$-ADD-TREE) (QUOTE (IDATE 1000402215005 IMMEDIATE-DEPENDENTS0 (ADD-TREE-DELETE ADD-TREE-BAGDIFF ADD-TREE-DELETE-EQUAL ADD-TREE-APPEND) EVENT (PROVE-LEMMA NUMBERP-EVAL$-ADD-TREE (REWRITE) (NUMBERP (EVAL$ (QUOTE *1*TRUE) (ADD-TREE N L) A))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EVAL$-QUOTE . NUMBERP-EVAL$-ADD-TREE) (IMMEDIATE-DEPENDENTS0 ADD-TREE . NUMBERP-EVAL$-ADD-TREE) (LEMMAS NUMBERP . NUMBERP-EVAL$-ADD-TREE))))) (PUT1-LST (QUOTE NUMBERP-EVAL$-ADD) (QUOTE (IDATE 1000402215005 EVENT (PROVE-LEMMA NUMBERP-EVAL$-ADD (REWRITE) (IMPLIES (EQUAL (CAR X) (QUOTE ADD)) (NUMBERP (EVAL$ (QUOTE *1*TRUE) X A)))) LOCAL-UNDO-TUPLES ((LEMMAS NUMBERP . NUMBERP-EVAL$-ADD))))) (PUT1-LST (QUOTE *1*ADD-TREE) (QUOTE (MAIN-EVENT ADD-TREE))) (PUT1-LST (QUOTE ADD-TREE) (QUOTE (TYPE-PRESCRIPTION-LST ((ADD-TREE 16 NIL NIL)) TOTALP-LST ((ADD-TREE . T)) QUICK-BLOCK-INFO (UNCHANGING SELF-REFLEXIVE) SDEFN (LAMBDA (N L) (IF (LISTP L) (IF (LISTP (CDR L)) (IF (LISTP (CDR (CDR L))) (CONS (QUOTE ADD) (CONS N (CONS (CAR L) (CONS (ADD-TREE N (CDR L)) (QUOTE NIL))))) (CONS (QUOTE ADD) (CONS N (CONS (CAR L) (CONS (CAR (CDR L)) (QUOTE NIL)))))) (CONS (QUOTE HEAD) (CONS (CAR L) (CONS N (QUOTE NIL))))) (QUOTE (QUOTE 0)))) LISP-CODE *1*ADD-TREE SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((NLISTP L)) NIL) (TESTS-AND-CASES ((NOT (NLISTP L)) (NLISTP (CDR L))) NIL) (TESTS-AND-CASES ((NOT (NLISTP L)) (NOT (NLISTP (CDR L))) (NLISTP (CDR (CDR L)))) NIL) (TESTS-AND-CASES ((NOT (NLISTP L)) (NOT (NLISTP (CDR L))) (NOT (NLISTP (CDR (CDR L))))) ((N (CDR L))))) LEVEL-NO 1 JUSTIFICATIONS ((JUSTIFICATION (L) (COUNT L) LESSP (CDR-LESSP NLISTP ZERO CDR-LESSEQP))) IDATE 1000402215005 CONTROLLER-POCKETS (2) SATELLITES (*1*ADD-TREE) IMMEDIATE-DEPENDENTS0 (CANCEL-ADD-NEG ADD-TREE-DELETE CANCEL-EQUAL-ADD ADD-TREE-BAGDIFF ADD-TREE-DELETE-EQUAL ADD-TREE-DELETE-COND ADD-TREE-ADD-FRINGE ADD-TREE-APPEND ADD-TREE-NAT-RANGEP EVAL$-ADD-MEMBER NUMBERP-EVAL$-ADD-TREE) EVENT (DEFN ADD-TREE (N L) (IF (NLISTP L) (QUOTE (QUOTE 0)) (IF (NLISTP (CDR L)) (CONS (QUOTE HEAD) (CONS (CAR L) (CONS N (QUOTE NIL)))) (IF (NLISTP (CDR (CDR L))) (CONS (QUOTE ADD) (CONS N (CONS (CAR L) (CONS (CAR (CDR L)) (QUOTE NIL))))) (CONS (QUOTE ADD) (CONS N (CONS (CAR L) (CONS (ADD-TREE N (CDR L)) (QUOTE NIL))))))))) LOCAL-UNDO-TUPLES ((DCELL . *1*ADD-TREE))))) (PUT1-LST (QUOTE *1*ADD-FRINGE) (QUOTE (MAIN-EVENT ADD-FRINGE))) (PUT1-LST (QUOTE ADD-FRINGE) (QUOTE (TYPE-PRESCRIPTION-LST ((ADD-FRINGE 16 NIL NIL)) TOTALP-LST ((ADD-FRINGE . T)) QUICK-BLOCK-INFO (UNCHANGING SELF-REFLEXIVE) SDEFN (LAMBDA (N X) (IF (LISTP X) (IF (EQUAL (CAR X) (QUOTE ADD)) (IF (EQUAL (CAR (CDR X)) N) (APPEND (ADD-FRINGE N (CAR (CDR (CDR X)))) (ADD-FRINGE N (CAR (CDR (CDR (CDR X)))))) (CONS X (QUOTE NIL))) (CONS X (QUOTE NIL))) (CONS X (QUOTE NIL)))) LISP-CODE *1*ADD-FRINGE SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((AND (LISTP X) (AND (EQUAL (CAR X) (QUOTE ADD)) (EQUAL (CAR (CDR X)) N)))) ((N (CAR (CDR (CDR (CDR X))))) (N (CAR (CDR (CDR X)))))) (TESTS-AND-CASES ((NOT (AND (LISTP X) (AND (EQUAL (CAR X) (QUOTE ADD)) (EQUAL (CAR (CDR X)) N))))) NIL)) LEVEL-NO 2 JUSTIFICATIONS ((JUSTIFICATION (X) (COUNT X) LESSP (CDR-LESSP AND ZERO CDR-LESSEQP CAR-LESSEQP))) IDATE 1000402215005 CONTROLLER-POCKETS (2) SATELLITES (*1*ADD-FRINGE) IMMEDIATE-DEPENDENTS0 (CORRECTNESS-OF-CANCEL-ADD-NEG CANCEL-ADD-NEG CORRECTNESS-OF-CANCEL-EQUAL-ADD CANCEL-EQUAL-ADD ADD-TREE-ADD-FRINGE) EVENT (DEFN ADD-FRINGE (N X) (IF (AND (LISTP X) (AND (EQUAL (CAR X) (QUOTE ADD)) (EQUAL (CAR (CDR X)) N))) (APPEND (ADD-FRINGE N (CAR (CDR (CDR X)))) (ADD-FRINGE N (CAR (CDR (CDR (CDR X)))))) (CONS X (QUOTE NIL)))) LOCAL-UNDO-TUPLES ((DCELL . *1*ADD-FRINGE))))) (PUT1-LST (QUOTE SUB-LEQ-2) (QUOTE (IDATE 1000402215005 EVENT (PROVE-LEMMA SUB-LEQ-2 (REWRITE) (IMPLIES (IF (LESSP Y X) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (AND (NOT (LESSP (DIFFERENCE Y X) (ADD N Y (NEG N X)))) (NOT (LESSP (DIFFERENCE Y X) (ADD N (NEG N X) Y))))) ((USE (SUB-LEQ-LA)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUB-NEG . SUB-LEQ-2) (IMMEDIATE-DEPENDENTS0 ADD-COMMUTATIVITY . SUB-LEQ-2) (IMMEDIATE-DEPENDENTS0 SUB-LEQ-LA . SUB-LEQ-2) (IMMEDIATE-DEPENDENTS0 NEG . SUB-LEQ-2) (IMMEDIATE-DEPENDENTS0 ADD . SUB-LEQ-2) (LINEAR-LEMMAS ADD . SUB-LEQ-2) (LINEAR-LEMMAS ADD . SUB-LEQ-2))))) (PUT1-LST (QUOTE SUB-LEQ-1) (QUOTE (IDATE 1000402215005 EVENT (PROVE-LEMMA SUB-LEQ-1 (REWRITE) (IMPLIES (IF (LESSP Y (NEG N X)) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (AND (NOT (LESSP (DIFFERENCE Y (NEG N X)) (ADD N Y X))) (NOT (LESSP (DIFFERENCE Y (NEG N X)) (ADD N X Y))))) ((USE (SUB-LEQ-LA (X (NEG N X)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NEG-NEG . SUB-LEQ-1) (IMMEDIATE-DEPENDENTS0 ADD-COMMUTATIVITY . SUB-LEQ-1) (IMMEDIATE-DEPENDENTS0 ADD-HEAD . SUB-LEQ-1) (IMMEDIATE-DEPENDENTS0 SUB-NEG . SUB-LEQ-1) (IMMEDIATE-DEPENDENTS0 SUB-LEQ-LA . SUB-LEQ-1) (IMMEDIATE-DEPENDENTS0 ADD . SUB-LEQ-1) (IMMEDIATE-DEPENDENTS0 NEG . SUB-LEQ-1) (LINEAR-LEMMAS NEG . SUB-LEQ-1) (LINEAR-LEMMAS ADD . SUB-LEQ-1) (LINEAR-LEMMAS NEG . SUB-LEQ-1) (LINEAR-LEMMAS ADD . SUB-LEQ-1))))) (PUT1-LST (QUOTE ADD-NEG-CANCEL) (QUOTE (IDATE 1000402215005 IMMEDIATE-DEPENDENTS0 (ADD-TREE-DELETE) EVENT (PROVE-LEMMA ADD-NEG-CANCEL (REWRITE) (AND (EQUAL (ADD N Y (ADD N X (NEG N Y))) (HEAD X N)) (EQUAL (ADD N Y (ADD N (NEG N Y) X)) (HEAD X N)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NEG-CANCEL . ADD-NEG-CANCEL) (IMMEDIATE-DEPENDENTS0 ADD-0 . ADD-NEG-CANCEL) (IMMEDIATE-DEPENDENTS0 ADD-COMMUTATIVITY . ADD-NEG-CANCEL) (IMMEDIATE-DEPENDENTS0 ADD-COMMUTATIVITY1 . ADD-NEG-CANCEL) (IMMEDIATE-DEPENDENTS0 HEAD . ADD-NEG-CANCEL) (IMMEDIATE-DEPENDENTS0 NEG . ADD-NEG-CANCEL) (IMMEDIATE-DEPENDENTS0 ADD . ADD-NEG-CANCEL) (LEMMAS ADD . ADD-NEG-CANCEL) (LEMMAS ADD . ADD-NEG-CANCEL))))) (PUT1-LST (QUOTE ADD-NEG-0) (QUOTE (IDATE 1000402215005 IMMEDIATE-DEPENDENTS0 (SUB-Z-LA) EVENT (PROVE-LEMMA ADD-NEG-0 (REWRITE) (IMPLIES (AND (NAT-RANGEP X N) (NAT-RANGEP Y N)) (EQUAL (EQUAL (ADD N Y (NEG N X)) (QUOTE 0)) (EQUAL (FIX X) (FIX Y)))) ((USE (SUB-EQUAL-0)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUB-NEG . ADD-NEG-0) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP-OF-0 . ADD-NEG-0) (IMMEDIATE-DEPENDENTS0 NEG-NAT-RANGEP . ADD-NEG-0) (IMMEDIATE-DEPENDENTS0 HEAD-LEMMA . ADD-NEG-0) (IMMEDIATE-DEPENDENTS0 ADD-0 . ADD-NEG-0) (IMMEDIATE-DEPENDENTS0 NEG-CANCEL . ADD-NEG-0) (IMMEDIATE-DEPENDENTS0 SUB-EQUAL-0 . ADD-NEG-0) (IMMEDIATE-DEPENDENTS0 NEG . ADD-NEG-0) (IMMEDIATE-DEPENDENTS0 ADD . ADD-NEG-0) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . ADD-NEG-0) (LEMMAS EQUAL . ADD-NEG-0))))) (PUT1-LST (QUOTE NEG-OFF) (QUOTE (IDATE 1000402215005 EVENT (TOGGLE NEG-OFF NEG T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NEG . NEG-OFF) (DISABLED-LEMMAS NIL NEG NEG-OFF . T))))) (PUT1-LST (QUOTE SUB-NEG) (QUOTE (IDATE 1000402215005 IMMEDIATE-DEPENDENTS0 (GCD-CORRECTNESS GCD-S0-SN-RFILE GCD-S0-S0-RFILE-2 GCD-S0-S0-RFILE-1 GCD-S0-S0-2 GCD-S0-S0-1 GCD-S0-SN-BASE-RFILE-2 GCD-S0-SN-BASE-2 GCD-S0-SN-BASE-RFILE-1 GCD-S0-SN-BASE-1 GCD-S-S0-MEM GCD-S-S0-RFILE GCD-S-S0 MISC-GROUP-H BIT-GROUP-H BCC-GROUP-H SCC-GROUP-H SUB-GROUP-H EFFEC-ADDR-MEM MOD32-EQ-DEDUCTION1 INDEX-N-DEDUCTION2 INDEX-N-DEDUCTION1 INDEX-N-DEDUCTION0 INDEX-N-0 DISJOINT-11~-ASL DISJOINT-11-ASL DISJOINT-9~-ASL DISJOINT-9-ASL DISJOINT-15~ DISJOINT-14~ DISJOINT-13~ DISJOINT-12~ DISJOINT-11~ DISJOINT-10~ DISJOINT-9~ DISJOINT-8~ DISJOINT-7~ DISJOINT-6~ DISJOINT-5~ DISJOINT-4~ DISJOINT-15 DISJOINT-14 DISJOINT-13 DISJOINT-12 DISJOINT-11 DISJOINT-10 DISJOINT-9 DISJOINT-8 DISJOINT-7 DISJOINT-6 DISJOINT-5 DISJOINT-4 READ-MEM-MCODE3 READ-MEM-MCODE2 PC-READ-MEM-MCODE3 PC-READ-MEM-MCODE2 PC-BYTE-READ-MCODE3 PC-BYTE-READ-MCODE2 READ-MEMP-RAM3 READ-MEMP-RAM2 BYTE-READP-RAM3 BYTE-READP-RAM2 RAM-ADDRP-LA2 WRITE-MEMP-RAM3 WRITE-MEMP-RAM2 BYTE-WRITEP-RAM3 BYTE-WRITEP-RAM2 READ-MEMP-ROM3 READ-MEMP-ROM2 BYTE-READP-ROM3 BYTE-READP-ROM2 ROM-ADDRP-LA2 PC-READ-MEMP-ROM3 PC-READ-MEMP-ROM2 PC-BYTE-READP-ROM3 PC-BYTE-READP-ROM2 SUB-BLE SUB-BGT SUB-BLT SUB-BGE SUB-BMI SUB-Z-LA CORRECTNESS-OF-CANCEL-ADD-NEG ADD-TREE-DELETE SUB-LEQ-2 SUB-LEQ-1 ADD-NEG-0) EVENT (PROVE-LEMMA SUB-NEG (REWRITE) (EQUAL (SUB N Y X) (ADD N X (NEG N Y)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUB-NAT-RANGEP . SUB-NEG) (IMMEDIATE-DEPENDENTS0 HEAD-LEMMA . SUB-NEG) (IMMEDIATE-DEPENDENTS0 ADD-0 . SUB-NEG) (IMMEDIATE-DEPENDENTS0 ADD-COMMUTATIVITY2 . SUB-NEG) (IMMEDIATE-DEPENDENTS0 NEG . SUB-NEG) (IMMEDIATE-DEPENDENTS0 ADD . SUB-NEG) (IMMEDIATE-DEPENDENTS0 SUB . SUB-NEG) (LEMMAS SUB . SUB-NEG))))) (PUT1-LST (QUOTE NEG-ADD) (QUOTE (IDATE 1000402215005 IMMEDIATE-DEPENDENTS0 (INDEX-N-DEDUCTION2 INDEX-N-DEDUCTION1 INDEX-N-DEDUCTION0) EVENT (PROVE-LEMMA NEG-ADD (REWRITE) (EQUAL (NEG N (ADD N X Y)) (ADD N (NEG N X) (NEG N Y)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ADD-COMMUTATIVITY . NEG-ADD) (IMMEDIATE-DEPENDENTS0 SUB-NAT-RANGEP . NEG-ADD) (IMMEDIATE-DEPENDENTS0 HEAD-LEMMA . NEG-ADD) (IMMEDIATE-DEPENDENTS0 ADD-0 . NEG-ADD) (IMMEDIATE-DEPENDENTS0 SUB-SUB . NEG-ADD) (IMMEDIATE-DEPENDENTS0 SUB-ADD . NEG-ADD) (IMMEDIATE-DEPENDENTS0 ADD . NEG-ADD) (IMMEDIATE-DEPENDENTS0 NEG . NEG-ADD) (LEMMAS NEG . NEG-ADD))))) (PUT1-LST (QUOTE NEG-CANCEL) (QUOTE (IDATE 1000402215005 IMMEDIATE-DEPENDENTS0 (CORRECTNESS-OF-CANCEL-ADD-NEG ADD-NEG-CANCEL ADD-NEG-0) EVENT (PROVE-LEMMA NEG-CANCEL (REWRITE) (EQUAL (ADD N X (NEG N X)) (QUOTE 0))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NAT-RANGEP-OF-0 . NEG-CANCEL) (IMMEDIATE-DEPENDENTS0 ADDY-Y1 . NEG-CANCEL) (IMMEDIATE-DEPENDENTS0 NEG . NEG-CANCEL) (IMMEDIATE-DEPENDENTS0 ADD . NEG-CANCEL) (LEMMAS ADD . NEG-CANCEL))))) (PUT1-LST (QUOTE NEG-NEG) (QUOTE (IDATE 1000402215005 IMMEDIATE-DEPENDENTS0 (INDEX-N-DEDUCTION0 CORRECTNESS-OF-CANCEL-ADD-NEG SUB-LEQ-1) EVENT (PROVE-LEMMA NEG-NEG (REWRITE) (EQUAL (NEG N (NEG N X)) (HEAD X N))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ADD-0 . NEG-NEG) (IMMEDIATE-DEPENDENTS0 ADD-HEAD . NEG-NEG) (IMMEDIATE-DEPENDENTS0 SUB-0 . NEG-NEG) (IMMEDIATE-DEPENDENTS0 SUB-SUB1 . NEG-NEG) (IMMEDIATE-DEPENDENTS0 HEAD . NEG-NEG) (IMMEDIATE-DEPENDENTS0 NEG . NEG-NEG) (LEMMAS NEG . NEG-NEG))))) (PUT1-LST (QUOTE NEG-HEAD) (QUOTE (IDATE 1000402215005 IMMEDIATE-DEPENDENTS0 (SUB-GROUP-H MOD32-EQ-DEDUCTION1) EVENT (PROVE-LEMMA NEG-HEAD (REWRITE) (EQUAL (NEG N (HEAD X N)) (NEG N X)) ((ENABLE SUB))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIFFERENCE-PLUS2 . NEG-HEAD) (IMMEDIATE-DEPENDENTS0 HEAD-LESSP . NEG-HEAD) (IMMEDIATE-DEPENDENTS0 HEAD-HEAD . NEG-HEAD) (IMMEDIATE-DEPENDENTS0 SUB . NEG-HEAD) (IMMEDIATE-DEPENDENTS0 HEAD . NEG-HEAD) (IMMEDIATE-DEPENDENTS0 NEG . NEG-HEAD) (LEMMAS NEG . NEG-HEAD))))) (PUT1-LST (QUOTE EOR-N-BITP) (QUOTE (IDATE 1000402215005 EVENT (PROVE-LEMMA EOR-N-BITP (REWRITE) (BITP (EOR-N N S D))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-EOR . EOR-N-BITP) (IMMEDIATE-DEPENDENTS0 B0 . EOR-N-BITP) (IMMEDIATE-DEPENDENTS0 B0P . EOR-N-BITP) (IMMEDIATE-DEPENDENTS0 B1 . EOR-N-BITP) (IMMEDIATE-DEPENDENTS0 MBIT . EOR-N-BITP) (IMMEDIATE-DEPENDENTS0 EOR-N . EOR-N-BITP) (IMMEDIATE-DEPENDENTS0 BITP . EOR-N-BITP) (LEMMAS BITP . EOR-N-BITP))))) (PUT1-LST (QUOTE EOR-Z-BITP) (QUOTE (IDATE 1000402215005 EVENT (PROVE-LEMMA EOR-Z-BITP (REWRITE) (BITP (EOR-Z N S D))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B0 . EOR-Z-BITP) (IMMEDIATE-DEPENDENTS0 B1 . EOR-Z-BITP) (IMMEDIATE-DEPENDENTS0 LOGEOR-EQUAL-0 . EOR-Z-BITP) (IMMEDIATE-DEPENDENTS0 LOGEOR-COMMUTATIVITY . EOR-Z-BITP) (IMMEDIATE-DEPENDENTS0 LOGEOR . EOR-Z-BITP) (IMMEDIATE-DEPENDENTS0 B0P . EOR-Z-BITP) (IMMEDIATE-DEPENDENTS0 B-EOR . EOR-Z-BITP) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . EOR-Z-BITP) (IMMEDIATE-DEPENDENTS0 EOR-Z . EOR-Z-BITP) (IMMEDIATE-DEPENDENTS0 BITP . EOR-Z-BITP) (LEMMAS BITP . EOR-Z-BITP))))) (PUT1-LST (QUOTE NOT-N-BITP) (QUOTE (IDATE 1000402215005 EVENT (PROVE-LEMMA NOT-N-BITP (REWRITE) (BITP (NOT-N OPLEN OPD))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MBIT . NOT-N-BITP) (IMMEDIATE-DEPENDENTS0 LOGNOT-NAT-RANGEP . NOT-N-BITP) (IMMEDIATE-DEPENDENTS0 MBIT-MEANS-LESSP . NOT-N-BITP) (IMMEDIATE-DEPENDENTS0 NOT-N . NOT-N-BITP) (IMMEDIATE-DEPENDENTS0 BITP . NOT-N-BITP) (LEMMAS BITP . NOT-N-BITP))))) (PUT1-LST (QUOTE NOT-Z-BITP) (QUOTE (IDATE 1000402215005 EVENT (PROVE-LEMMA NOT-Z-BITP (REWRITE) (BITP (NOT-Z OPLEN OPD))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B0 . NOT-Z-BITP) (IMMEDIATE-DEPENDENTS0 B1 . NOT-Z-BITP) (IMMEDIATE-DEPENDENTS0 NOT-Z . NOT-Z-BITP) (IMMEDIATE-DEPENDENTS0 BITP . NOT-Z-BITP) (LEMMAS BITP . NOT-Z-BITP))))) (PUT1-LST (QUOTE SWAP-N-BITP) (QUOTE (IDATE 1000402215005 EVENT (PROVE-LEMMA SWAP-N-BITP (REWRITE) (BITP (SWAP-N OPD))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BITN-0-1 . SWAP-N-BITP) (IMMEDIATE-DEPENDENTS0 SWAP-N . SWAP-N-BITP) (IMMEDIATE-DEPENDENTS0 BITP . SWAP-N-BITP) (LEMMAS BITP . SWAP-N-BITP))))) (PUT1-LST (QUOTE SWAP-Z-BITP) (QUOTE (IDATE 1000402215005 EVENT (PROVE-LEMMA SWAP-Z-BITP (REWRITE) (BITP (SWAP-Z OPD))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B0 . SWAP-Z-BITP) (IMMEDIATE-DEPENDENTS0 B1 . SWAP-Z-BITP) (IMMEDIATE-DEPENDENTS0 SWAP-Z . SWAP-Z-BITP) (IMMEDIATE-DEPENDENTS0 BITP . SWAP-Z-BITP) (LEMMAS BITP . SWAP-Z-BITP))))) (PUT1-LST (QUOTE EXT-N-BITP) (QUOTE (IDATE 1000402215005 EVENT (PROVE-LEMMA EXT-N-BITP (REWRITE) (BITP (EXT-N OPLEN OPD SIZE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MBIT . EXT-N-BITP) (IMMEDIATE-DEPENDENTS0 EXT-NAT-RANGEP . EXT-N-BITP) (IMMEDIATE-DEPENDENTS0 MBIT-MEANS-LESSP . EXT-N-BITP) (IMMEDIATE-DEPENDENTS0 EXT-N . EXT-N-BITP) (IMMEDIATE-DEPENDENTS0 BITP . EXT-N-BITP) (LEMMAS BITP . EXT-N-BITP))))) (PUT1-LST (QUOTE EXT-Z-BITP) (QUOTE (IDATE 1000402215005 EVENT (PROVE-LEMMA EXT-Z-BITP (REWRITE) (BITP (EXT-Z OPLEN OPD SIZE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B0 . EXT-Z-BITP) (IMMEDIATE-DEPENDENTS0 B1 . EXT-Z-BITP) (IMMEDIATE-DEPENDENTS0 EXT-Z . EXT-Z-BITP) (IMMEDIATE-DEPENDENTS0 BITP . EXT-Z-BITP) (LEMMAS BITP . EXT-Z-BITP))))) (PUT1-LST (QUOTE MOVE-N-BITP) (QUOTE (IDATE 1000402215005 EVENT (PROVE-LEMMA MOVE-N-BITP (REWRITE) (BITP (MOVE-N OPLEN SOPD))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BITN-0-1 . MOVE-N-BITP) (IMMEDIATE-DEPENDENTS0 MBIT . MOVE-N-BITP) (IMMEDIATE-DEPENDENTS0 MOVE-N . MOVE-N-BITP) (IMMEDIATE-DEPENDENTS0 BITP . MOVE-N-BITP) (LEMMAS BITP . MOVE-N-BITP))))) (PUT1-LST (QUOTE MOVE-Z-BITP) (QUOTE (IDATE 1000402215005 IMMEDIATE-DEPENDENTS0 (GCD-S0-S0-RFILE-2 GCD-S0-S0-RFILE-1 GCD-S0-S0-2 GCD-S0-S0-1 GCD-S0-SN-BASE-RFILE-2 GCD-S0-SN-BASE-2 GCD-S0-SN-BASE-RFILE-1 GCD-S0-SN-BASE-1) EVENT (PROVE-LEMMA MOVE-Z-BITP (REWRITE) (BITP (MOVE-Z OPLEN SOPD))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B0 . MOVE-Z-BITP) (IMMEDIATE-DEPENDENTS0 B1 . MOVE-Z-BITP) (IMMEDIATE-DEPENDENTS0 MOVE-Z . MOVE-Z-BITP) (IMMEDIATE-DEPENDENTS0 BITP . MOVE-Z-BITP) (LEMMAS BITP . MOVE-Z-BITP))))) (PUT1-LST (QUOTE ROXR-N-BITP) (QUOTE (IDATE 1000402215005 EVENT (PROVE-LEMMA ROXR-N-BITP (REWRITE) (BITP (ROXR-N LEN OPD CNT X)) ((DISABLE ROXR))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BITN-0-1 . ROXR-N-BITP) (IMMEDIATE-DEPENDENTS0 ROXR-N . ROXR-N-BITP) (IMMEDIATE-DEPENDENTS0 BITP . ROXR-N-BITP) (LEMMAS BITP . ROXR-N-BITP))))) (PUT1-LST (QUOTE ROXR-Z-BITP) (QUOTE (IDATE 1000402215005 EVENT (PROVE-LEMMA ROXR-Z-BITP (REWRITE) (BITP (ROXR-Z LEN OPD CNT X)) ((DISABLE ROXR))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B0 . ROXR-Z-BITP) (IMMEDIATE-DEPENDENTS0 B1 . ROXR-Z-BITP) (IMMEDIATE-DEPENDENTS0 ROXR-Z . ROXR-Z-BITP) (IMMEDIATE-DEPENDENTS0 BITP . ROXR-Z-BITP) (LEMMAS BITP . ROXR-Z-BITP))))) (PUT1-LST (QUOTE ROXR-C-BITP) (QUOTE (IDATE 1000402215005 EVENT (PROVE-LEMMA ROXR-C-BITP (REWRITE) (BITP (ROXR-C LEN OPD CNT X))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BITN-0-1 . ROXR-C-BITP) (IMMEDIATE-DEPENDENTS0 FIX-BIT . ROXR-C-BITP) (IMMEDIATE-DEPENDENTS0 B0 . ROXR-C-BITP) (IMMEDIATE-DEPENDENTS0 B0P . ROXR-C-BITP) (IMMEDIATE-DEPENDENTS0 B1 . ROXR-C-BITP) (IMMEDIATE-DEPENDENTS0 ROXR-C . ROXR-C-BITP) (IMMEDIATE-DEPENDENTS0 BITP . ROXR-C-BITP) (LEMMAS BITP . ROXR-C-BITP))))) (PUT1-LST (QUOTE ROXL-N-BITP) (QUOTE (IDATE 1000402215005 EVENT (PROVE-LEMMA ROXL-N-BITP (REWRITE) (BITP (ROXL-N LEN OPD CNT X)) ((DISABLE ROXL))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BITN-0-1 . ROXL-N-BITP) (IMMEDIATE-DEPENDENTS0 ROXL-N . ROXL-N-BITP) (IMMEDIATE-DEPENDENTS0 BITP . ROXL-N-BITP) (LEMMAS BITP . ROXL-N-BITP))))) (PUT1-LST (QUOTE ROXL-Z-BITP) (QUOTE (IDATE 1000402215005 EVENT (PROVE-LEMMA ROXL-Z-BITP (REWRITE) (BITP (ROXL-Z LEN OPD CNT X)) ((DISABLE ROXL))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B0 . ROXL-Z-BITP) (IMMEDIATE-DEPENDENTS0 B1 . ROXL-Z-BITP) (IMMEDIATE-DEPENDENTS0 ROXL-Z . ROXL-Z-BITP) (IMMEDIATE-DEPENDENTS0 BITP . ROXL-Z-BITP) (LEMMAS BITP . ROXL-Z-BITP))))) (PUT1-LST (QUOTE ROXL-C-BITP) (QUOTE (IDATE 1000402215005 EVENT (PROVE-LEMMA ROXL-C-BITP (REWRITE) (BITP (ROXL-C LEN OPD CNT X))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BITN-0-1 . ROXL-C-BITP) (IMMEDIATE-DEPENDENTS0 FIX-BIT . ROXL-C-BITP) (IMMEDIATE-DEPENDENTS0 B0 . ROXL-C-BITP) (IMMEDIATE-DEPENDENTS0 B0P . ROXL-C-BITP) (IMMEDIATE-DEPENDENTS0 B1 . ROXL-C-BITP) (IMMEDIATE-DEPENDENTS0 ROXL-C . ROXL-C-BITP) (IMMEDIATE-DEPENDENTS0 BITP . ROXL-C-BITP) (LEMMAS BITP . ROXL-C-BITP))))) (PUT1-LST (QUOTE ASR-N-BITP) (QUOTE (IDATE 1000402215005 EVENT (PROVE-LEMMA ASR-N-BITP (REWRITE) (BITP (ASR-N LEN X CNT))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BITN-0-1 . ASR-N-BITP) (IMMEDIATE-DEPENDENTS0 MBIT . ASR-N-BITP) (IMMEDIATE-DEPENDENTS0 ASR . ASR-N-BITP) (IMMEDIATE-DEPENDENTS0 BITN-TAIL . ASR-N-BITP) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . ASR-N-BITP) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-DIFFERENCE2 . ASR-N-BITP) (IMMEDIATE-DEPENDENTS0 BITN-APP . ASR-N-BITP) (IMMEDIATE-DEPENDENTS0 ASR-N . ASR-N-BITP) (IMMEDIATE-DEPENDENTS0 BITP . ASR-N-BITP) (LEMMAS BITP . ASR-N-BITP))))) (PUT1-LST (QUOTE ASR-Z-BITP) (QUOTE (IDATE 1000402215005 EVENT (PROVE-LEMMA ASR-Z-BITP (REWRITE) (BITP (ASR-Z LEN X CNT))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B0 . ASR-Z-BITP) (IMMEDIATE-DEPENDENTS0 B1 . ASR-Z-BITP) (IMMEDIATE-DEPENDENTS0 ASR . ASR-Z-BITP) (IMMEDIATE-DEPENDENTS0 ASR-Z . ASR-Z-BITP) (IMMEDIATE-DEPENDENTS0 BITP . ASR-Z-BITP) (LEMMAS BITP . ASR-Z-BITP))))) (PUT1-LST (QUOTE ASR-C-BITP) (QUOTE (IDATE 1000402215005 EVENT (PROVE-LEMMA ASR-C-BITP (REWRITE) (BITP (ASR-C LEN X CNT))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BITN-0-1 . ASR-C-BITP) (IMMEDIATE-DEPENDENTS0 B0 . ASR-C-BITP) (IMMEDIATE-DEPENDENTS0 ASR-C . ASR-C-BITP) (IMMEDIATE-DEPENDENTS0 BITP . ASR-C-BITP) (LEMMAS BITP . ASR-C-BITP))))) (PUT1-LST (QUOTE ASL-N-BITP) (QUOTE (IDATE 1000402215005 EVENT (PROVE-LEMMA ASL-N-BITP (REWRITE) (BITP (ASL-N LEN X CNT))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BITN-0-1 . ASL-N-BITP) (IMMEDIATE-DEPENDENTS0 MBIT . ASL-N-BITP) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . ASL-N-BITP) (IMMEDIATE-DEPENDENTS0 BITN-HEAD . ASL-N-BITP) (IMMEDIATE-DEPENDENTS0 ASL . ASL-N-BITP) (IMMEDIATE-DEPENDENTS0 ASL-N . ASL-N-BITP) (IMMEDIATE-DEPENDENTS0 BITP . ASL-N-BITP) (LEMMAS BITP . ASL-N-BITP))))) (PUT1-LST (QUOTE ASL-Z-BITP) (QUOTE (IDATE 1000402215005 EVENT (PROVE-LEMMA ASL-Z-BITP (REWRITE) (BITP (ASL-Z LEN X CNT))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B0 . ASL-Z-BITP) (IMMEDIATE-DEPENDENTS0 B1 . ASL-Z-BITP) (IMMEDIATE-DEPENDENTS0 ASL . ASL-Z-BITP) (IMMEDIATE-DEPENDENTS0 ASL-Z . ASL-Z-BITP) (IMMEDIATE-DEPENDENTS0 BITP . ASL-Z-BITP) (LEMMAS BITP . ASL-Z-BITP))))) (PUT1-LST (QUOTE ASL-V-BITP) (QUOTE (IDATE 1000402215005 EVENT (PROVE-LEMMA ASL-V-BITP (REWRITE) (BITP (ASL-V LEN X CNT))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B1 . ASL-V-BITP) (IMMEDIATE-DEPENDENTS0 B0 . ASL-V-BITP) (IMMEDIATE-DEPENDENTS0 ASL-V . ASL-V-BITP) (IMMEDIATE-DEPENDENTS0 BITP . ASL-V-BITP) (LEMMAS BITP . ASL-V-BITP))))) (PUT1-LST (QUOTE ASL-C-BITP) (QUOTE (IDATE 1000402215005 EVENT (PROVE-LEMMA ASL-C-BITP (REWRITE) (BITP (ASL-C LEN X CNT))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BITN-0-1 . ASL-C-BITP) (IMMEDIATE-DEPENDENTS0 B0 . ASL-C-BITP) (IMMEDIATE-DEPENDENTS0 LSL-C . ASL-C-BITP) (IMMEDIATE-DEPENDENTS0 ASL-C . ASL-C-BITP) (IMMEDIATE-DEPENDENTS0 BITP . ASL-C-BITP) (LEMMAS BITP . ASL-C-BITP))))) (PUT1-LST (QUOTE LSR-N-BITP) (QUOTE (IDATE 1000402215005 EVENT (PROVE-LEMMA LSR-N-BITP (REWRITE) (BITP (LSR-N LEN X CNT))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BITN-0-1 . LSR-N-BITP) (IMMEDIATE-DEPENDENTS0 BITN-TAIL . LSR-N-BITP) (IMMEDIATE-DEPENDENTS0 LSR . LSR-N-BITP) (IMMEDIATE-DEPENDENTS0 MBIT . LSR-N-BITP) (IMMEDIATE-DEPENDENTS0 LSR-N . LSR-N-BITP) (IMMEDIATE-DEPENDENTS0 BITP . LSR-N-BITP) (LEMMAS BITP . LSR-N-BITP))))) (PUT1-LST (QUOTE LSR-Z-BITP) (QUOTE (IDATE 1000402215005 EVENT (PROVE-LEMMA LSR-Z-BITP (REWRITE) (BITP (LSR-Z LEN X CNT))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B0 . LSR-Z-BITP) (IMMEDIATE-DEPENDENTS0 B1 . LSR-Z-BITP) (IMMEDIATE-DEPENDENTS0 TAIL-EQUAL-0 . LSR-Z-BITP) (IMMEDIATE-DEPENDENTS0 LSR . LSR-Z-BITP) (IMMEDIATE-DEPENDENTS0 TAIL-LEMMA . LSR-Z-BITP) (IMMEDIATE-DEPENDENTS0 LSR-Z . LSR-Z-BITP) (IMMEDIATE-DEPENDENTS0 BITP . LSR-Z-BITP) (LEMMAS BITP . LSR-Z-BITP))))) (PUT1-LST (QUOTE LSR-C-BITP) (QUOTE (IDATE 1000402215005 EVENT (PROVE-LEMMA LSR-C-BITP (REWRITE) (BITP (LSR-C LEN X CNT))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BITN-0-1 . LSR-C-BITP) (IMMEDIATE-DEPENDENTS0 B0 . LSR-C-BITP) (IMMEDIATE-DEPENDENTS0 LSR-C . LSR-C-BITP) (IMMEDIATE-DEPENDENTS0 BITP . LSR-C-BITP) (LEMMAS BITP . LSR-C-BITP))))) (PUT1-LST (QUOTE LSL-N-BITP) (QUOTE (IDATE 1000402215005 EVENT (PROVE-LEMMA LSL-N-BITP (REWRITE) (BITP (LSL-N LEN X CNT))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BITN-0-1 . LSL-N-BITP) (IMMEDIATE-DEPENDENTS0 MBIT . LSL-N-BITP) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . LSL-N-BITP) (IMMEDIATE-DEPENDENTS0 BITN-HEAD . LSL-N-BITP) (IMMEDIATE-DEPENDENTS0 LSL . LSL-N-BITP) (IMMEDIATE-DEPENDENTS0 LSL-N . LSL-N-BITP) (IMMEDIATE-DEPENDENTS0 BITP . LSL-N-BITP) (LEMMAS BITP . LSL-N-BITP))))) (PUT1-LST (QUOTE LSL-Z-BITP) (QUOTE (IDATE 1000402215005 EVENT (PROVE-LEMMA LSL-Z-BITP (REWRITE) (BITP (LSL-Z LEN X CNT))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B0 . LSL-Z-BITP) (IMMEDIATE-DEPENDENTS0 B1 . LSL-Z-BITP) (IMMEDIATE-DEPENDENTS0 LSL . LSL-Z-BITP) (IMMEDIATE-DEPENDENTS0 LSL-Z . LSL-Z-BITP) (IMMEDIATE-DEPENDENTS0 BITP . LSL-Z-BITP) (LEMMAS BITP . LSL-Z-BITP))))) (PUT1-LST (QUOTE LSL-C-BITP) (QUOTE (IDATE 1000402215005 EVENT (PROVE-LEMMA LSL-C-BITP (REWRITE) (BITP (LSL-C LEN X CNT))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BITN-0-1 . LSL-C-BITP) (IMMEDIATE-DEPENDENTS0 B0 . LSL-C-BITP) (IMMEDIATE-DEPENDENTS0 LSL-C . LSL-C-BITP) (IMMEDIATE-DEPENDENTS0 BITP . LSL-C-BITP) (LEMMAS BITP . LSL-C-BITP))))) (PUT1-LST (QUOTE ROR-N-BITP) (QUOTE (IDATE 1000402215004 EVENT (PROVE-LEMMA ROR-N-BITP (REWRITE) (BITP (ROR-N LEN X CNT))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BITN-0-1 . ROR-N-BITP) (IMMEDIATE-DEPENDENTS0 ROR-N . ROR-N-BITP) (IMMEDIATE-DEPENDENTS0 BITP . ROR-N-BITP) (LEMMAS BITP . ROR-N-BITP))))) (PUT1-LST (QUOTE ROR-Z-BITP) (QUOTE (IDATE 1000402215004 EVENT (PROVE-LEMMA ROR-Z-BITP (REWRITE) (BITP (ROR-Z LEN X CNT))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B0 . ROR-Z-BITP) (IMMEDIATE-DEPENDENTS0 B1 . ROR-Z-BITP) (IMMEDIATE-DEPENDENTS0 ROR-Z . ROR-Z-BITP) (IMMEDIATE-DEPENDENTS0 BITP . ROR-Z-BITP) (LEMMAS BITP . ROR-Z-BITP))))) (PUT1-LST (QUOTE ROR-C-BITP) (QUOTE (IDATE 1000402215004 EVENT (PROVE-LEMMA ROR-C-BITP (REWRITE) (BITP (ROR-C LEN X CNT))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BITN-0-1 . ROR-C-BITP) (IMMEDIATE-DEPENDENTS0 B0 . ROR-C-BITP) (IMMEDIATE-DEPENDENTS0 ROR-C . ROR-C-BITP) (IMMEDIATE-DEPENDENTS0 BITP . ROR-C-BITP) (LEMMAS BITP . ROR-C-BITP))))) (PUT1-LST (QUOTE ROL-N-BITP) (QUOTE (IDATE 1000402215004 EVENT (PROVE-LEMMA ROL-N-BITP (REWRITE) (BITP (ROL-N LEN X CNT))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BITN-0-1 . ROL-N-BITP) (IMMEDIATE-DEPENDENTS0 ROL-N . ROL-N-BITP) (IMMEDIATE-DEPENDENTS0 BITP . ROL-N-BITP) (LEMMAS BITP . ROL-N-BITP))))) (PUT1-LST (QUOTE ROL-Z-BITP) (QUOTE (IDATE 1000402215004 EVENT (PROVE-LEMMA ROL-Z-BITP (REWRITE) (BITP (ROL-Z LEN X CNT))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B0 . ROL-Z-BITP) (IMMEDIATE-DEPENDENTS0 B1 . ROL-Z-BITP) (IMMEDIATE-DEPENDENTS0 ROL-Z . ROL-Z-BITP) (IMMEDIATE-DEPENDENTS0 BITP . ROL-Z-BITP) (LEMMAS BITP . ROL-Z-BITP))))) (PUT1-LST (QUOTE ROL-C-BITP) (QUOTE (IDATE 1000402215004 EVENT (PROVE-LEMMA ROL-C-BITP (REWRITE) (BITP (ROL-C LEN X CNT))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BITN-0-1 . ROL-C-BITP) (IMMEDIATE-DEPENDENTS0 BCAR-LESSP . ROL-C-BITP) (IMMEDIATE-DEPENDENTS0 B0 . ROL-C-BITP) (IMMEDIATE-DEPENDENTS0 ROL-C . ROL-C-BITP) (IMMEDIATE-DEPENDENTS0 BITP . ROL-C-BITP) (LEMMAS BITP . ROL-C-BITP))))) (PUT1-LST (QUOTE DIVU-N-BITP) (QUOTE (IDATE 1000402215004 EVENT (PROVE-LEMMA DIVU-N-BITP (REWRITE) (BITP (DIVU-N N S D))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BITN-0-1 . DIVU-N-BITP) (IMMEDIATE-DEPENDENTS0 MBIT . DIVU-N-BITP) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . DIVU-N-BITP) (IMMEDIATE-DEPENDENTS0 BITN-HEAD . DIVU-N-BITP) (IMMEDIATE-DEPENDENTS0 QUOT . DIVU-N-BITP) (IMMEDIATE-DEPENDENTS0 DIVU-N . DIVU-N-BITP) (IMMEDIATE-DEPENDENTS0 BITP . DIVU-N-BITP) (LEMMAS BITP . DIVU-N-BITP))))) (PUT1-LST (QUOTE DIVU-Z-BITP) (QUOTE (IDATE 1000402215004 EVENT (PROVE-LEMMA DIVU-Z-BITP (REWRITE) (BITP (DIVU-Z N S D))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B0 . DIVU-Z-BITP) (IMMEDIATE-DEPENDENTS0 B1 . DIVU-Z-BITP) (IMMEDIATE-DEPENDENTS0 QUOT . DIVU-Z-BITP) (IMMEDIATE-DEPENDENTS0 DIVU-Z . DIVU-Z-BITP) (IMMEDIATE-DEPENDENTS0 BITP . DIVU-Z-BITP) (LEMMAS BITP . DIVU-Z-BITP))))) (PUT1-LST (QUOTE DIVS-N-BITP) (QUOTE (IDATE 1000402215004 EVENT (PROVE-LEMMA DIVS-N-BITP (REWRITE) (BITP (DIVS-N N S I D J))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BITN-0-1 . DIVS-N-BITP) (IMMEDIATE-DEPENDENTS0 MBIT . DIVS-N-BITP) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . DIVS-N-BITP) (IMMEDIATE-DEPENDENTS0 BITN-HEAD . DIVS-N-BITP) (IMMEDIATE-DEPENDENTS0 IQUOT . DIVS-N-BITP) (IMMEDIATE-DEPENDENTS0 DIVS-N . DIVS-N-BITP) (IMMEDIATE-DEPENDENTS0 BITP . DIVS-N-BITP) (LEMMAS BITP . DIVS-N-BITP))))) (PUT1-LST (QUOTE DIVS-Z-BITP) (QUOTE (IDATE 1000402215004 EVENT (PROVE-LEMMA DIVS-Z-BITP (REWRITE) (BITP (DIVS-Z N S I D J))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B0 . DIVS-Z-BITP) (IMMEDIATE-DEPENDENTS0 B1 . DIVS-Z-BITP) (IMMEDIATE-DEPENDENTS0 IQUOT . DIVS-Z-BITP) (IMMEDIATE-DEPENDENTS0 DIVS-Z . DIVS-Z-BITP) (IMMEDIATE-DEPENDENTS0 BITP . DIVS-Z-BITP) (LEMMAS BITP . DIVS-Z-BITP))))) (PUT1-LST (QUOTE OR-N-BITP) (QUOTE (IDATE 1000402215004 EVENT (PROVE-LEMMA OR-N-BITP (REWRITE) (BITP (OR-N N S D))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-OR . OR-N-BITP) (IMMEDIATE-DEPENDENTS0 B0 . OR-N-BITP) (IMMEDIATE-DEPENDENTS0 B0P . OR-N-BITP) (IMMEDIATE-DEPENDENTS0 B1 . OR-N-BITP) (IMMEDIATE-DEPENDENTS0 MBIT . OR-N-BITP) (IMMEDIATE-DEPENDENTS0 OR-N . OR-N-BITP) (IMMEDIATE-DEPENDENTS0 BITP . OR-N-BITP) (LEMMAS BITP . OR-N-BITP))))) (PUT1-LST (QUOTE OR-Z-BITP) (QUOTE (IDATE 1000402215004 EVENT (PROVE-LEMMA OR-Z-BITP (REWRITE) (BITP (OR-Z N S D))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B0 . OR-Z-BITP) (IMMEDIATE-DEPENDENTS0 B1 . OR-Z-BITP) (IMMEDIATE-DEPENDENTS0 LOGOR-EQUAL-0 . OR-Z-BITP) (IMMEDIATE-DEPENDENTS0 LOGOR-COMMUTATIVITY . OR-Z-BITP) (IMMEDIATE-DEPENDENTS0 LOGOR . OR-Z-BITP) (IMMEDIATE-DEPENDENTS0 OR-Z . OR-Z-BITP) (IMMEDIATE-DEPENDENTS0 BITP . OR-Z-BITP) (LEMMAS BITP . OR-Z-BITP))))) (PUT1-LST (QUOTE MULS-N-BITP) (QUOTE (IDATE 1000402215004 EVENT (PROVE-LEMMA MULS-N-BITP (REWRITE) (BITP (MULS-N N S D I))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BITN-0-1 . MULS-N-BITP) (IMMEDIATE-DEPENDENTS0 MBIT . MULS-N-BITP) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . MULS-N-BITP) (IMMEDIATE-DEPENDENTS0 BITN-HEAD . MULS-N-BITP) (IMMEDIATE-DEPENDENTS0 MULS . MULS-N-BITP) (IMMEDIATE-DEPENDENTS0 ITIMES-COMMUTATIVITY . MULS-N-BITP) (IMMEDIATE-DEPENDENTS0 MULS-N . MULS-N-BITP) (IMMEDIATE-DEPENDENTS0 BITP . MULS-N-BITP) (LEMMAS BITP . MULS-N-BITP))))) (PUT1-LST (QUOTE MULS-Z-BITP) (QUOTE (IDATE 1000402215004 EVENT (PROVE-LEMMA MULS-Z-BITP (REWRITE) (BITP (MULS-Z N S D I))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B0 . MULS-Z-BITP) (IMMEDIATE-DEPENDENTS0 B1 . MULS-Z-BITP) (IMMEDIATE-DEPENDENTS0 MULS . MULS-Z-BITP) (IMMEDIATE-DEPENDENTS0 ITIMES-COMMUTATIVITY . MULS-Z-BITP) (IMMEDIATE-DEPENDENTS0 MULS-Z . MULS-Z-BITP) (IMMEDIATE-DEPENDENTS0 BITP . MULS-Z-BITP) (LEMMAS BITP . MULS-Z-BITP))))) (PUT1-LST (QUOTE MULS-V-BITP) (QUOTE (IDATE 1000402215004 EVENT (PROVE-LEMMA MULS-V-BITP (REWRITE) (BITP (MULS-V N S D I))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B1 . MULS-V-BITP) (IMMEDIATE-DEPENDENTS0 B0 . MULS-V-BITP) (IMMEDIATE-DEPENDENTS0 ITIMES-COMMUTATIVITY . MULS-V-BITP) (IMMEDIATE-DEPENDENTS0 MULS-V . MULS-V-BITP) (IMMEDIATE-DEPENDENTS0 BITP . MULS-V-BITP) (LEMMAS BITP . MULS-V-BITP))))) (PUT1-LST (QUOTE MULU-N-BITP) (QUOTE (IDATE 1000402215004 EVENT (PROVE-LEMMA MULU-N-BITP (REWRITE) (BITP (MULU-N N S D I))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BITN-0-1 . MULU-N-BITP) (IMMEDIATE-DEPENDENTS0 MBIT . MULU-N-BITP) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . MULU-N-BITP) (IMMEDIATE-DEPENDENTS0 BITN-HEAD . MULU-N-BITP) (IMMEDIATE-DEPENDENTS0 MULU . MULU-N-BITP) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . MULU-N-BITP) (IMMEDIATE-DEPENDENTS0 MULU-N . MULU-N-BITP) (IMMEDIATE-DEPENDENTS0 BITP . MULU-N-BITP) (LEMMAS BITP . MULU-N-BITP))))) (PUT1-LST (QUOTE MULU-Z-BITP) (QUOTE (IDATE 1000402215004 EVENT (PROVE-LEMMA MULU-Z-BITP (REWRITE) (BITP (MULU-Z N S D I))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B0 . MULU-Z-BITP) (IMMEDIATE-DEPENDENTS0 B1 . MULU-Z-BITP) (IMMEDIATE-DEPENDENTS0 MULU . MULU-Z-BITP) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . MULU-Z-BITP) (IMMEDIATE-DEPENDENTS0 MULU-Z . MULU-Z-BITP) (IMMEDIATE-DEPENDENTS0 BITP . MULU-Z-BITP) (LEMMAS BITP . MULU-Z-BITP))))) (PUT1-LST (QUOTE MULU-V-BITP) (QUOTE (IDATE 1000402215004 EVENT (PROVE-LEMMA MULU-V-BITP (REWRITE) (BITP (MULU-V N S D I))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B1 . MULU-V-BITP) (IMMEDIATE-DEPENDENTS0 B0 . MULU-V-BITP) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . MULU-V-BITP) (IMMEDIATE-DEPENDENTS0 MULU-V . MULU-V-BITP) (IMMEDIATE-DEPENDENTS0 BITP . MULU-V-BITP) (LEMMAS BITP . MULU-V-BITP))))) (PUT1-LST (QUOTE AND-N-BITP) (QUOTE (IDATE 1000402215004 EVENT (PROVE-LEMMA AND-N-BITP (REWRITE) (BITP (AND-N N S D))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BITN-0-1 . AND-N-BITP) (IMMEDIATE-DEPENDENTS0 MBIT . AND-N-BITP) (IMMEDIATE-DEPENDENTS0 AND-N . AND-N-BITP) (IMMEDIATE-DEPENDENTS0 BITP . AND-N-BITP) (LEMMAS BITP . AND-N-BITP))))) (PUT1-LST (QUOTE AND-Z-BITP) (QUOTE (IDATE 1000402215004 EVENT (PROVE-LEMMA AND-Z-BITP (REWRITE) (BITP (AND-Z N S D))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B0 . AND-Z-BITP) (IMMEDIATE-DEPENDENTS0 B1 . AND-Z-BITP) (IMMEDIATE-DEPENDENTS0 LOGAND-COMMUTATIVITY . AND-Z-BITP) (IMMEDIATE-DEPENDENTS0 AND-Z . AND-Z-BITP) (IMMEDIATE-DEPENDENTS0 BITP . AND-Z-BITP) (LEMMAS BITP . AND-Z-BITP))))) (PUT1-LST (QUOTE SUBX-N-BITP) (QUOTE (IDATE 1000402215004 EVENT (PROVE-LEMMA SUBX-N-BITP (REWRITE) (BITP (SUBX-N N X S D))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MBIT . SUBX-N-BITP) (IMMEDIATE-DEPENDENTS0 SUBTRACTER-NAT-RANGEP . SUBX-N-BITP) (IMMEDIATE-DEPENDENTS0 MBIT-MEANS-LESSP . SUBX-N-BITP) (IMMEDIATE-DEPENDENTS0 SUBX-N . SUBX-N-BITP) (IMMEDIATE-DEPENDENTS0 BITP . SUBX-N-BITP) (LEMMAS BITP . SUBX-N-BITP))))) (PUT1-LST (QUOTE SUBX-Z-BITP) (QUOTE (IDATE 1000402215004 EVENT (PROVE-LEMMA SUBX-Z-BITP (REWRITE) (BITP (SUBX-Z N Z X S D))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-AND . SUBX-Z-BITP) (IMMEDIATE-DEPENDENTS0 B0 . SUBX-Z-BITP) (IMMEDIATE-DEPENDENTS0 B0P . SUBX-Z-BITP) (IMMEDIATE-DEPENDENTS0 B1 . SUBX-Z-BITP) (IMMEDIATE-DEPENDENTS0 SUBX-Z . SUBX-Z-BITP) (IMMEDIATE-DEPENDENTS0 BITP . SUBX-Z-BITP) (LEMMAS BITP . SUBX-Z-BITP))))) (PUT1-LST (QUOTE SUBX-V-BITP) (QUOTE (IDATE 1000402215004 EVENT (PROVE-LEMMA SUBX-V-BITP (REWRITE) (BITP (SUBX-V N X S D))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-OR . SUBX-V-BITP) (IMMEDIATE-DEPENDENTS0 SUBTRACTER-NAT-RANGEP . SUBX-V-BITP) (IMMEDIATE-DEPENDENTS0 MBIT-MEANS-LESSP . SUBX-V-BITP) (IMMEDIATE-DEPENDENTS0 B-AND . SUBX-V-BITP) (IMMEDIATE-DEPENDENTS0 B-NOT . SUBX-V-BITP) (IMMEDIATE-DEPENDENTS0 B0 . SUBX-V-BITP) (IMMEDIATE-DEPENDENTS0 B0P . SUBX-V-BITP) (IMMEDIATE-DEPENDENTS0 B1 . SUBX-V-BITP) (IMMEDIATE-DEPENDENTS0 MBIT . SUBX-V-BITP) (IMMEDIATE-DEPENDENTS0 SUBX-V . SUBX-V-BITP) (IMMEDIATE-DEPENDENTS0 BITP . SUBX-V-BITP) (LEMMAS BITP . SUBX-V-BITP))))) (PUT1-LST (QUOTE SUBX-C-BITP) (QUOTE (IDATE 1000402215004 EVENT (PROVE-LEMMA SUBX-C-BITP (REWRITE) (BITP (SUBX-C N X S D))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-OR . SUBX-C-BITP) (IMMEDIATE-DEPENDENTS0 SUBTRACTER-NAT-RANGEP . SUBX-C-BITP) (IMMEDIATE-DEPENDENTS0 MBIT-MEANS-LESSP . SUBX-C-BITP) (IMMEDIATE-DEPENDENTS0 B-AND . SUBX-C-BITP) (IMMEDIATE-DEPENDENTS0 B-NOT . SUBX-C-BITP) (IMMEDIATE-DEPENDENTS0 B0 . SUBX-C-BITP) (IMMEDIATE-DEPENDENTS0 B0P . SUBX-C-BITP) (IMMEDIATE-DEPENDENTS0 B1 . SUBX-C-BITP) (IMMEDIATE-DEPENDENTS0 MBIT . SUBX-C-BITP) (IMMEDIATE-DEPENDENTS0 SUBX-C . SUBX-C-BITP) (IMMEDIATE-DEPENDENTS0 BITP . SUBX-C-BITP) (LEMMAS BITP . SUBX-C-BITP))))) (PUT1-LST (QUOTE SUB-N-BITP) (QUOTE (IDATE 1000402215004 IMMEDIATE-DEPENDENTS0 (GCD-S0-S0-RFILE-2 GCD-S0-S0-RFILE-1 GCD-S0-S0-2 GCD-S0-S0-1) EVENT (PROVE-LEMMA SUB-N-BITP (REWRITE) (BITP (SUB-N N X Y))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MBIT . SUB-N-BITP) (IMMEDIATE-DEPENDENTS0 SUB-NAT-RANGEP . SUB-N-BITP) (IMMEDIATE-DEPENDENTS0 MBIT-MEANS-LESSP . SUB-N-BITP) (IMMEDIATE-DEPENDENTS0 SUB-N . SUB-N-BITP) (IMMEDIATE-DEPENDENTS0 BITP . SUB-N-BITP) (LEMMAS BITP . SUB-N-BITP))))) (PUT1-LST (QUOTE SUB-Z-BITP) (QUOTE (IDATE 1000402215004 EVENT (PROVE-LEMMA SUB-Z-BITP (REWRITE) (BITP (SUB-Z N X Y))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B0 . SUB-Z-BITP) (IMMEDIATE-DEPENDENTS0 B1 . SUB-Z-BITP) (IMMEDIATE-DEPENDENTS0 SUB-Z . SUB-Z-BITP) (IMMEDIATE-DEPENDENTS0 BITP . SUB-Z-BITP) (LEMMAS BITP . SUB-Z-BITP))))) (PUT1-LST (QUOTE SUB-V-BITP) (QUOTE (IDATE 1000402215004 IMMEDIATE-DEPENDENTS0 (GCD-S0-S0-RFILE-2 GCD-S0-S0-RFILE-1 GCD-S0-S0-2 GCD-S0-S0-1) EVENT (PROVE-LEMMA SUB-V-BITP (REWRITE) (BITP (SUB-V N X Y))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-OR . SUB-V-BITP) (IMMEDIATE-DEPENDENTS0 SUB-NAT-RANGEP . SUB-V-BITP) (IMMEDIATE-DEPENDENTS0 MBIT-MEANS-LESSP . SUB-V-BITP) (IMMEDIATE-DEPENDENTS0 B-AND . SUB-V-BITP) (IMMEDIATE-DEPENDENTS0 B-NOT . SUB-V-BITP) (IMMEDIATE-DEPENDENTS0 B0 . SUB-V-BITP) (IMMEDIATE-DEPENDENTS0 B0P . SUB-V-BITP) (IMMEDIATE-DEPENDENTS0 B1 . SUB-V-BITP) (IMMEDIATE-DEPENDENTS0 MBIT . SUB-V-BITP) (IMMEDIATE-DEPENDENTS0 SUB-V . SUB-V-BITP) (IMMEDIATE-DEPENDENTS0 BITP . SUB-V-BITP) (LEMMAS BITP . SUB-V-BITP))))) (PUT1-LST (QUOTE SUB-C-BITP) (QUOTE (IDATE 1000402215004 EVENT (PROVE-LEMMA SUB-C-BITP (REWRITE) (BITP (SUB-C N X Y))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-OR . SUB-C-BITP) (IMMEDIATE-DEPENDENTS0 SUB-NAT-RANGEP . SUB-C-BITP) (IMMEDIATE-DEPENDENTS0 MBIT-MEANS-LESSP . SUB-C-BITP) (IMMEDIATE-DEPENDENTS0 B-AND . SUB-C-BITP) (IMMEDIATE-DEPENDENTS0 B-NOT . SUB-C-BITP) (IMMEDIATE-DEPENDENTS0 B0 . SUB-C-BITP) (IMMEDIATE-DEPENDENTS0 B0P . SUB-C-BITP) (IMMEDIATE-DEPENDENTS0 B1 . SUB-C-BITP) (IMMEDIATE-DEPENDENTS0 MBIT . SUB-C-BITP) (IMMEDIATE-DEPENDENTS0 SUB-C . SUB-C-BITP) (IMMEDIATE-DEPENDENTS0 BITP . SUB-C-BITP) (LEMMAS BITP . SUB-C-BITP))))) (PUT1-LST (QUOTE ADDX-N-BITP) (QUOTE (IDATE 1000402215004 EVENT (PROVE-LEMMA ADDX-N-BITP (REWRITE) (BITP (ADDX-N N X S D))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MBIT . ADDX-N-BITP) (IMMEDIATE-DEPENDENTS0 ADDER-NAT-RANGEP . ADDX-N-BITP) (IMMEDIATE-DEPENDENTS0 MBIT-MEANS-LESSP . ADDX-N-BITP) (IMMEDIATE-DEPENDENTS0 ADDX-N . ADDX-N-BITP) (IMMEDIATE-DEPENDENTS0 BITP . ADDX-N-BITP) (LEMMAS BITP . ADDX-N-BITP))))) (PUT1-LST (QUOTE ADDX-Z-BITP) (QUOTE (IDATE 1000402215004 EVENT (PROVE-LEMMA ADDX-Z-BITP (REWRITE) (BITP (ADDX-Z N Z X S D))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-AND . ADDX-Z-BITP) (IMMEDIATE-DEPENDENTS0 B0 . ADDX-Z-BITP) (IMMEDIATE-DEPENDENTS0 B0P . ADDX-Z-BITP) (IMMEDIATE-DEPENDENTS0 B1 . ADDX-Z-BITP) (IMMEDIATE-DEPENDENTS0 ADDX-Z . ADDX-Z-BITP) (IMMEDIATE-DEPENDENTS0 BITP . ADDX-Z-BITP) (LEMMAS BITP . ADDX-Z-BITP))))) (PUT1-LST (QUOTE ADDX-V-BITP) (QUOTE (IDATE 1000402215004 EVENT (PROVE-LEMMA ADDX-V-BITP (REWRITE) (BITP (ADDX-V N X S D))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-OR . ADDX-V-BITP) (IMMEDIATE-DEPENDENTS0 B-NOT . ADDX-V-BITP) (IMMEDIATE-DEPENDENTS0 ADDER-NAT-RANGEP . ADDX-V-BITP) (IMMEDIATE-DEPENDENTS0 MBIT-MEANS-LESSP . ADDX-V-BITP) (IMMEDIATE-DEPENDENTS0 ADDER-COMMUTATIVITY . ADDX-V-BITP) (IMMEDIATE-DEPENDENTS0 B-AND . ADDX-V-BITP) (IMMEDIATE-DEPENDENTS0 B0 . ADDX-V-BITP) (IMMEDIATE-DEPENDENTS0 B0P . ADDX-V-BITP) (IMMEDIATE-DEPENDENTS0 B1 . ADDX-V-BITP) (IMMEDIATE-DEPENDENTS0 MBIT . ADDX-V-BITP) (IMMEDIATE-DEPENDENTS0 ADDX-V . ADDX-V-BITP) (IMMEDIATE-DEPENDENTS0 BITP . ADDX-V-BITP) (LEMMAS BITP . ADDX-V-BITP))))) (PUT1-LST (QUOTE ADDX-C-BITP) (QUOTE (IDATE 1000402215004 EVENT (PROVE-LEMMA ADDX-C-BITP (REWRITE) (BITP (ADDX-C N X S D))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-OR . ADDX-C-BITP) (IMMEDIATE-DEPENDENTS0 B-NOT . ADDX-C-BITP) (IMMEDIATE-DEPENDENTS0 ADDER-NAT-RANGEP . ADDX-C-BITP) (IMMEDIATE-DEPENDENTS0 MBIT-MEANS-LESSP . ADDX-C-BITP) (IMMEDIATE-DEPENDENTS0 ADDER-COMMUTATIVITY . ADDX-C-BITP) (IMMEDIATE-DEPENDENTS0 B-AND . ADDX-C-BITP) (IMMEDIATE-DEPENDENTS0 B0 . ADDX-C-BITP) (IMMEDIATE-DEPENDENTS0 B0P . ADDX-C-BITP) (IMMEDIATE-DEPENDENTS0 B1 . ADDX-C-BITP) (IMMEDIATE-DEPENDENTS0 MBIT . ADDX-C-BITP) (IMMEDIATE-DEPENDENTS0 ADDX-C . ADDX-C-BITP) (IMMEDIATE-DEPENDENTS0 BITP . ADDX-C-BITP) (LEMMAS BITP . ADDX-C-BITP))))) (PUT1-LST (QUOTE ADD-N-BITP) (QUOTE (IDATE 1000402215004 EVENT (PROVE-LEMMA ADD-N-BITP (REWRITE) (BITP (ADD-N N X Y))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MBIT . ADD-N-BITP) (IMMEDIATE-DEPENDENTS0 ADD-NAT-RANGEP . ADD-N-BITP) (IMMEDIATE-DEPENDENTS0 MBIT-MEANS-LESSP . ADD-N-BITP) (IMMEDIATE-DEPENDENTS0 ADD-COMMUTATIVITY . ADD-N-BITP) (IMMEDIATE-DEPENDENTS0 ADD-N . ADD-N-BITP) (IMMEDIATE-DEPENDENTS0 BITP . ADD-N-BITP) (LEMMAS BITP . ADD-N-BITP))))) (PUT1-LST (QUOTE ADD-Z-BITP) (QUOTE (IDATE 1000402215004 EVENT (PROVE-LEMMA ADD-Z-BITP (REWRITE) (BITP (ADD-Z N X Y))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B0 . ADD-Z-BITP) (IMMEDIATE-DEPENDENTS0 B1 . ADD-Z-BITP) (IMMEDIATE-DEPENDENTS0 ADD-COMMUTATIVITY . ADD-Z-BITP) (IMMEDIATE-DEPENDENTS0 ADD-Z . ADD-Z-BITP) (IMMEDIATE-DEPENDENTS0 BITP . ADD-Z-BITP) (LEMMAS BITP . ADD-Z-BITP))))) (PUT1-LST (QUOTE ADD-V-BITP) (QUOTE (IDATE 1000402215004 EVENT (PROVE-LEMMA ADD-V-BITP (REWRITE) (BITP (ADD-V N X Y))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-OR . ADD-V-BITP) (IMMEDIATE-DEPENDENTS0 B-NOT . ADD-V-BITP) (IMMEDIATE-DEPENDENTS0 ADD-NAT-RANGEP . ADD-V-BITP) (IMMEDIATE-DEPENDENTS0 MBIT-MEANS-LESSP . ADD-V-BITP) (IMMEDIATE-DEPENDENTS0 B-AND . ADD-V-BITP) (IMMEDIATE-DEPENDENTS0 B0 . ADD-V-BITP) (IMMEDIATE-DEPENDENTS0 B0P . ADD-V-BITP) (IMMEDIATE-DEPENDENTS0 B1 . ADD-V-BITP) (IMMEDIATE-DEPENDENTS0 MBIT . ADD-V-BITP) (IMMEDIATE-DEPENDENTS0 ADD-V . ADD-V-BITP) (IMMEDIATE-DEPENDENTS0 BITP . ADD-V-BITP) (LEMMAS BITP . ADD-V-BITP))))) (PUT1-LST (QUOTE ADD-C-BITP) (QUOTE (IDATE 1000402215004 EVENT (PROVE-LEMMA ADD-C-BITP (REWRITE) (BITP (ADD-C N X Y))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-OR . ADD-C-BITP) (IMMEDIATE-DEPENDENTS0 B-NOT . ADD-C-BITP) (IMMEDIATE-DEPENDENTS0 ADD-NAT-RANGEP . ADD-C-BITP) (IMMEDIATE-DEPENDENTS0 MBIT-MEANS-LESSP . ADD-C-BITP) (IMMEDIATE-DEPENDENTS0 B-AND . ADD-C-BITP) (IMMEDIATE-DEPENDENTS0 B0 . ADD-C-BITP) (IMMEDIATE-DEPENDENTS0 B0P . ADD-C-BITP) (IMMEDIATE-DEPENDENTS0 B1 . ADD-C-BITP) (IMMEDIATE-DEPENDENTS0 MBIT . ADD-C-BITP) (IMMEDIATE-DEPENDENTS0 ADD-C . ADD-C-BITP) (IMMEDIATE-DEPENDENTS0 BITP . ADD-C-BITP) (LEMMAS BITP . ADD-C-BITP))))) (PUT1-LST (QUOTE BITN-BITP) (QUOTE (IDATE 1000402215004 EVENT (PROVE-LEMMA BITN-BITP (REWRITE) (BITP (BITN X N))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BITN-0-1 . BITN-BITP) (IMMEDIATE-DEPENDENTS0 BITN . BITN-BITP) (IMMEDIATE-DEPENDENTS0 BITP . BITN-BITP) (LEMMAS BITP . BITN-BITP))))) (PUT1-LST (QUOTE FIX-BIT-BITP) (QUOTE (IDATE 1000402215004 IMMEDIATE-DEPENDENTS0 (GCD-S0-S0-RFILE-2 GCD-S0-S0-RFILE-1 GCD-S0-S0-2 GCD-S0-S0-1 GCD-S0-SN-BASE-RFILE-2 GCD-S0-SN-BASE-2) EVENT (PROVE-LEMMA FIX-BIT-BITP (REWRITE) (BITP (FIX-BIT B))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B1 . FIX-BIT-BITP) (IMMEDIATE-DEPENDENTS0 B0P . FIX-BIT-BITP) (IMMEDIATE-DEPENDENTS0 B0 . FIX-BIT-BITP) (IMMEDIATE-DEPENDENTS0 FIX-BIT . FIX-BIT-BITP) (IMMEDIATE-DEPENDENTS0 BITP . FIX-BIT-BITP) (LEMMAS BITP . FIX-BIT-BITP))))) (PUT1-LST (QUOTE BITP-FIX-BIT) (QUOTE (IDATE 1000402215004 IMMEDIATE-DEPENDENTS0 (GCD-S0-S0-RFILE-2 GCD-S0-S0-RFILE-1 GCD-S0-S0-2 GCD-S0-S0-1 GCD-S0-SN-BASE-RFILE-2 GCD-S0-SN-BASE-2 GCD-S0-SN-BASE-RFILE-1 GCD-S0-SN-BASE-1) EVENT (PROVE-LEMMA BITP-FIX-BIT (REWRITE) (IMPLIES (BITP X) (EQUAL (FIX-BIT X) X))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FIX-BIT . BITP-FIX-BIT) (IMMEDIATE-DEPENDENTS0 BITP . BITP-FIX-BIT) (LEMMAS FIX-BIT . BITP-FIX-BIT))))) (PUT1-LST (QUOTE WRITE-WRITE-MEM) (QUOTE (IDATE 1000402215004 EVENT (PROVE-LEMMA WRITE-WRITE-MEM (REWRITE) (EQUAL (WRITE-MEM V2 X (WRITE-MEM V1 X MEM N) N) (WRITE-MEM V2 X MEM N)) ((INDUCT (WRITE-WRITE-INDUCT V1 V2 N)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BYTE-WRITE-WRITE . WRITE-WRITE-MEM) (IMMEDIATE-DEPENDENTS0 WRITE-MEM-BYTE-WRITE . WRITE-WRITE-MEM) (IMMEDIATE-DEPENDENTS0 B . WRITE-WRITE-MEM) (IMMEDIATE-DEPENDENTS0 WRITE-WRITE-INDUCT . WRITE-WRITE-MEM) (IMMEDIATE-DEPENDENTS0 WRITE-MEM . WRITE-WRITE-MEM) (LEMMAS WRITE-MEM . WRITE-WRITE-MEM))))) (PUT1-LST (QUOTE *1*WRITE-WRITE-INDUCT) (QUOTE (MAIN-EVENT WRITE-WRITE-INDUCT))) (PUT1-LST (QUOTE WRITE-WRITE-INDUCT) (QUOTE (TYPE-PRESCRIPTION-LST ((WRITE-WRITE-INDUCT 2 NIL NIL NIL)) TOTALP-LST ((WRITE-WRITE-INDUCT . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE SELF-REFLEXIVE) SDEFN (LAMBDA (V1 V2 N) (IF (EQUAL N (QUOTE 0)) (QUOTE *1*TRUE) (IF (NUMBERP N) (WRITE-WRITE-INDUCT (TAIL V1 (B)) (TAIL V2 (B)) (SUB1 N)) (QUOTE *1*TRUE)))) LISP-CODE *1*WRITE-WRITE-INDUCT SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((ZEROP N)) NIL) (TESTS-AND-CASES ((NOT (ZEROP N))) (((TAIL V1 (B)) (TAIL V2 (B)) (SUB1 N))))) LEVEL-NO 4 JUSTIFICATIONS ((JUSTIFICATION (N) (COUNT N) LESSP (ZEROP COUNT-NUMBERP LESSP-SUB1))) IDATE 1000402215004 CONTROLLER-POCKETS (4) SATELLITES (*1*WRITE-WRITE-INDUCT) IMMEDIATE-DEPENDENTS0 (WRITE-WRITE-MEM) EVENT (DEFN WRITE-WRITE-INDUCT (V1 V2 N) (IF (ZEROP N) (QUOTE *1*TRUE) (WRITE-WRITE-INDUCT (TAIL V1 (B)) (TAIL V2 (B)) (SUB1 N)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B . WRITE-WRITE-INDUCT) (IMMEDIATE-DEPENDENTS0 TAIL . WRITE-WRITE-INDUCT) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . WRITE-WRITE-INDUCT) (DCELL . *1*WRITE-WRITE-INDUCT))))) (PUT1-LST (QUOTE WRITE-MEM-BYTE-WRITE) (QUOTE (IDATE 1000402215004 IMMEDIATE-DEPENDENTS0 (BYTE-WRITE=WRITE-MEM-1 WRITE-WRITE-MEM) EVENT (PROVE-LEMMA WRITE-MEM-BYTE-WRITE (REWRITE) (EQUAL (WRITE-MEM V2 Y (BYTE-WRITE V1 X MEM) N) (IF (DISJOINT0 Y N X) (BYTE-WRITE V1 X (WRITE-MEM V2 Y MEM N)) (WRITE-MEM V2 Y MEM N))) ((INDUCT (WRITE-MEM V2 Y MEM N)) (USE (BYTE-WRITE-WRITE-LA (Y (ADD (QUOTE 32) Y (SUB1 N))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ADD-0 . WRITE-MEM-BYTE-WRITE) (IMMEDIATE-DEPENDENTS0 ADD-COMMUTATIVITY . WRITE-MEM-BYTE-WRITE) (IMMEDIATE-DEPENDENTS0 ADD-NAT-RANGEP . WRITE-MEM-BYTE-WRITE) (IMMEDIATE-DEPENDENTS0 HEAD-LEMMA . WRITE-MEM-BYTE-WRITE) (IMMEDIATE-DEPENDENTS0 HEAD-BYTE-WRITE . WRITE-MEM-BYTE-WRITE) (IMMEDIATE-DEPENDENTS0 HEAD-HEAD . WRITE-MEM-BYTE-WRITE) (IMMEDIATE-DEPENDENTS0 BYTE-WRITE-WRITE . WRITE-MEM-BYTE-WRITE) (IMMEDIATE-DEPENDENTS0 B . WRITE-MEM-BYTE-WRITE) (IMMEDIATE-DEPENDENTS0 MOD32-EQ . WRITE-MEM-BYTE-WRITE) (IMMEDIATE-DEPENDENTS0 BYTE-WRITE-WRITE-LA . WRITE-MEM-BYTE-WRITE) (IMMEDIATE-DEPENDENTS0 DISJOINT0 . WRITE-MEM-BYTE-WRITE) (IMMEDIATE-DEPENDENTS0 BYTE-WRITE . WRITE-MEM-BYTE-WRITE) (IMMEDIATE-DEPENDENTS0 WRITE-MEM . WRITE-MEM-BYTE-WRITE) (LEMMAS WRITE-MEM . WRITE-MEM-BYTE-WRITE))))) (PUT1-LST (QUOTE BYTE-READ-WRITE-MEM-END-OFF) (QUOTE (IDATE 1000402215004 EVENT (TOGGLE BYTE-READ-WRITE-MEM-END-OFF BYTE-READ-WRITE-MEM-END T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BYTE-READ-WRITE-MEM-END . BYTE-READ-WRITE-MEM-END-OFF) (DISABLED-LEMMAS NIL BYTE-READ-WRITE-MEM-END BYTE-READ-WRITE-MEM-END-OFF . T))))) (PUT1-LST (QUOTE READ-MEM-BYTE-WRITE-END-OFF) (QUOTE (IDATE 1000402215004 EVENT (TOGGLE READ-MEM-BYTE-WRITE-END-OFF READ-MEM-BYTE-WRITE-END T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 READ-MEM-BYTE-WRITE-END . READ-MEM-BYTE-WRITE-END-OFF) (DISABLED-LEMMAS NIL READ-MEM-BYTE-WRITE-END READ-MEM-BYTE-WRITE-END-OFF . T))))) (PUT1-LST (QUOTE READ-WRITE-MEM-END-OFF) (QUOTE (IDATE 1000402215004 EVENT (TOGGLE READ-WRITE-MEM-END-OFF READ-WRITE-MEM-END T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 READ-WRITE-MEM-END . READ-WRITE-MEM-END-OFF) (DISABLED-LEMMAS NIL READ-WRITE-MEM-END READ-WRITE-MEM-END-OFF . T))))) (PUT1-LST (QUOTE READ-WRITE-MEM2) (QUOTE (IDATE 1000402215004 IMMEDIATE-DEPENDENTS0 (GCD-S-S0 READM-WRITEM-MEM WRITE-MEM-ILST WRITE-MEM-LST-LA) EVENT (PROVE-LEMMA READ-WRITE-MEM2 (REWRITE) (IMPLIES (UINT-RANGEP N (QUOTE 32)) (EQUAL (READ-MEM X (WRITE-MEM VALUE X MEM N) N) (HEAD VALUE (TIMES (QUOTE 8) N)))) ((INDUCT (WRITE-MEM VALUE X MEM N)) (ENABLE NAT-RANGEP) (DISABLE READ-WRITE-MEM1))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 APP . READ-WRITE-MEM2) (IMMEDIATE-DEPENDENTS0 EXP-OF-2-0 . READ-WRITE-MEM2) (IMMEDIATE-DEPENDENTS0 NAT-PLUS-RANGEP . READ-WRITE-MEM2) (IMMEDIATE-DEPENDENTS0 TAIL-LEMMA . READ-WRITE-MEM2) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP-OF-0 . READ-WRITE-MEM2) (IMMEDIATE-DEPENDENTS0 APP-0 . READ-WRITE-MEM2) (IMMEDIATE-DEPENDENTS0 TIMES-ADD1 . READ-WRITE-MEM2) (IMMEDIATE-DEPENDENTS0 HEAD-APP-HEAD-TAIL . READ-WRITE-MEM2) (IMMEDIATE-DEPENDENTS0 BYTE-READ-WRITE-MEM-LEMMA . READ-WRITE-MEM2) (IMMEDIATE-DEPENDENTS0 BYTE-READ-WRITE . READ-WRITE-MEM2) (IMMEDIATE-DEPENDENTS0 MOD32-EQ . READ-WRITE-MEM2) (IMMEDIATE-DEPENDENTS0 ADD-NAT-RANGEP . READ-WRITE-MEM2) (IMMEDIATE-DEPENDENTS0 HEAD-LEMMA . READ-WRITE-MEM2) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . READ-WRITE-MEM2) (IMMEDIATE-DEPENDENTS0 SUB1-NAT-RANGEP . READ-WRITE-MEM2) (IMMEDIATE-DEPENDENTS0 EXP . READ-WRITE-MEM2) (IMMEDIATE-DEPENDENTS0 HEAD-OF-0 . READ-WRITE-MEM2) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . READ-WRITE-MEM2) (IMMEDIATE-DEPENDENTS0 B . READ-WRITE-MEM2) (IMMEDIATE-DEPENDENTS0 HEAD . READ-WRITE-MEM2) (IMMEDIATE-DEPENDENTS0 WRITE-MEM . READ-WRITE-MEM2) (IMMEDIATE-DEPENDENTS0 READ-MEM . READ-WRITE-MEM2) (IMMEDIATE-DEPENDENTS0 UINT-RANGEP . READ-WRITE-MEM2) (LEMMAS READ-MEM . READ-WRITE-MEM2))))) (PUT1-LST (QUOTE BYTE-READ-WRITE-MEM-LEMMA) (QUOTE (IDATE 1000402215003 IMMEDIATE-DEPENDENTS0 (READ-WRITE-MEM2) EVENT (PROVE-LEMMA BYTE-READ-WRITE-MEM-LEMMA (REWRITE) (IMPLIES (AND (NAT-RANGEP Y (QUOTE 32)) (IF (LESSP Y N) (QUOTE *1*FALSE) (QUOTE *1*TRUE))) (EQUAL (BYTE-READ (ADD (QUOTE 32) X Y) (WRITE-MEM VALUE X MEM N)) (BYTE-READ (ADD (QUOTE 32) X Y) MEM))) ((INDUCT (WRITE-MEM VALUE X MEM N)) (ENABLE NAT-RANGEP))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DISJOINT . BYTE-READ-WRITE-MEM-LEMMA) (IMMEDIATE-DEPENDENTS0 HEAD-SUB1-LESSP . BYTE-READ-WRITE-MEM-LEMMA) (IMMEDIATE-DEPENDENTS0 SUB1-OF-1 . BYTE-READ-WRITE-MEM-LEMMA) (IMMEDIATE-DEPENDENTS0 HEAD . BYTE-READ-WRITE-MEM-LEMMA) (IMMEDIATE-DEPENDENTS0 HEAD-BYTE-READ . BYTE-READ-WRITE-MEM-LEMMA) (IMMEDIATE-DEPENDENTS0 SUB1-NAT-RANGEP . BYTE-READ-WRITE-MEM-LEMMA) (IMMEDIATE-DEPENDENTS0 ADD-0 . BYTE-READ-WRITE-MEM-LEMMA) (IMMEDIATE-DEPENDENTS0 ADD-COMMUTATIVITY . BYTE-READ-WRITE-MEM-LEMMA) (IMMEDIATE-DEPENDENTS0 HEAD-BYTE-WRITE . BYTE-READ-WRITE-MEM-LEMMA) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . BYTE-READ-WRITE-MEM-LEMMA) (IMMEDIATE-DEPENDENTS0 ADD-CANCEL . BYTE-READ-WRITE-MEM-LEMMA) (IMMEDIATE-DEPENDENTS0 HEAD-LEMMA . BYTE-READ-WRITE-MEM-LEMMA) (IMMEDIATE-DEPENDENTS0 ADD-NAT-RANGEP . BYTE-READ-WRITE-MEM-LEMMA) (IMMEDIATE-DEPENDENTS0 MOD32-EQ . BYTE-READ-WRITE-MEM-LEMMA) (IMMEDIATE-DEPENDENTS0 BYTE-READ-WRITE . BYTE-READ-WRITE-MEM-LEMMA) (IMMEDIATE-DEPENDENTS0 BYTE-READ-WRITE-MEM . BYTE-READ-WRITE-MEM-LEMMA) (IMMEDIATE-DEPENDENTS0 BYTE-READ-WRITE-MEM-END . BYTE-READ-WRITE-MEM-LEMMA) (IMMEDIATE-DEPENDENTS0 TAIL-LEMMA . BYTE-READ-WRITE-MEM-LEMMA) (IMMEDIATE-DEPENDENTS0 EXP . BYTE-READ-WRITE-MEM-LEMMA) (IMMEDIATE-DEPENDENTS0 B . BYTE-READ-WRITE-MEM-LEMMA) (IMMEDIATE-DEPENDENTS0 WRITE-MEM . BYTE-READ-WRITE-MEM-LEMMA) (IMMEDIATE-DEPENDENTS0 ADD . BYTE-READ-WRITE-MEM-LEMMA) (IMMEDIATE-DEPENDENTS0 BYTE-READ . BYTE-READ-WRITE-MEM-LEMMA) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . BYTE-READ-WRITE-MEM-LEMMA) (LEMMAS BYTE-READ . BYTE-READ-WRITE-MEM-LEMMA))))) (PUT1-LST (QUOTE HEAD-SUB1-LESSP) (QUOTE (IDATE 1000402215003 IMMEDIATE-DEPENDENTS0 (BYTE-READ-WRITE-MEM-LEMMA) EVENT (PROVE-LEMMA HEAD-SUB1-LESSP (REWRITE) (EQUAL (LESSP (SUB1 (HEAD X N)) X) (NOT (ZEROP X)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 HEAD-LEQ . HEAD-SUB1-LESSP) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP-OF-0 . HEAD-SUB1-LESSP) (IMMEDIATE-DEPENDENTS0 HEAD-LEMMA . HEAD-SUB1-LESSP) (IMMEDIATE-DEPENDENTS0 HEAD . HEAD-SUB1-LESSP) (LEMMAS LESSP . HEAD-SUB1-LESSP))))) (PUT1-LST (QUOTE READ-WRITE-MEM1) (QUOTE (IDATE 1000402215003 IMMEDIATE-DEPENDENTS0 (GCD-S-S0-MEM GCD-S-S0-RFILE GCD-S-S0 READM-WRITE-MEM READ-WRITEM-MEM WRITE-MEM-ILST WRITE-MEM-LST-LA WRITE-ELSE-MEM-ILST WRITE-ELSE-MEM-LST) EVENT (PROVE-LEMMA READ-WRITE-MEM1 (REWRITE) (EQUAL (READ-MEM X (WRITE-MEM VALUE Y MEM K) N) (IF (DISJOINT X N Y K) (READ-MEM X MEM N) (READ-WRITE-MEM-END X VALUE Y MEM K N)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 READ-MEM-BYTE-WRITE . READ-WRITE-MEM1) (IMMEDIATE-DEPENDENTS0 READ-MEM-BYTE-WRITE-END . READ-WRITE-MEM1) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . READ-WRITE-MEM1) (IMMEDIATE-DEPENDENTS0 READ-WRITE-MEM-END . READ-WRITE-MEM1) (IMMEDIATE-DEPENDENTS0 DISJOINT . READ-WRITE-MEM1) (IMMEDIATE-DEPENDENTS0 WRITE-MEM . READ-WRITE-MEM1) (IMMEDIATE-DEPENDENTS0 READ-MEM . READ-WRITE-MEM1) (LEMMAS READ-MEM . READ-WRITE-MEM1))))) (PUT1-LST (QUOTE *1*READ-WRITE-MEM-END) (QUOTE (MAIN-EVENT READ-WRITE-MEM-END))) (PUT1-LST (QUOTE READ-WRITE-MEM-END) (QUOTE (TYPE-PRESCRIPTION-LST ((READ-WRITE-MEM-END 4 NIL NIL NIL NIL NIL NIL)) TOTALP-LST ((READ-WRITE-MEM-END . T)) SDEFN (LAMBDA (X VALUE Y MEM M N) (READ-MEM X (WRITE-MEM VALUE Y MEM M) N)) LISP-CODE *1*READ-WRITE-MEM-END SUBRP *1*FALSE LEVEL-NO 5 IDATE 1000402215003 SATELLITES (*1*READ-WRITE-MEM-END) IMMEDIATE-DEPENDENTS0 (READ-WRITE-MEM-END-OFF READ-WRITE-MEM1) EVENT (DEFN READ-WRITE-MEM-END (X VALUE Y MEM M N) (READ-MEM X (WRITE-MEM VALUE Y MEM M) N)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 WRITE-MEM . READ-WRITE-MEM-END) (IMMEDIATE-DEPENDENTS0 READ-MEM . READ-WRITE-MEM-END) (DCELL . *1*READ-WRITE-MEM-END))))) (PUT1-LST (QUOTE READ-MEM-BYTE-WRITE) (QUOTE (IDATE 1000402215003 IMMEDIATE-DEPENDENTS0 (READ-WRITE-MEM1) EVENT (PROVE-LEMMA READ-MEM-BYTE-WRITE (REWRITE) (EQUAL (READ-MEM X (BYTE-WRITE VALUE Y MEM) N) (IF (DISJOINT0 X N Y) (READ-MEM X MEM N) (READ-MEM-BYTE-WRITE-END X N VALUE Y MEM)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B . READ-MEM-BYTE-WRITE) (IMMEDIATE-DEPENDENTS0 BYTE-READ-WRITE . READ-MEM-BYTE-WRITE) (IMMEDIATE-DEPENDENTS0 HEAD-LEMMA . READ-MEM-BYTE-WRITE) (IMMEDIATE-DEPENDENTS0 ADD-NAT-RANGEP . READ-MEM-BYTE-WRITE) (IMMEDIATE-DEPENDENTS0 MOD32-EQ . READ-MEM-BYTE-WRITE) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . READ-MEM-BYTE-WRITE) (IMMEDIATE-DEPENDENTS0 READ-MEM-BYTE-WRITE-END . READ-MEM-BYTE-WRITE) (IMMEDIATE-DEPENDENTS0 DISJOINT0 . READ-MEM-BYTE-WRITE) (IMMEDIATE-DEPENDENTS0 BYTE-WRITE . READ-MEM-BYTE-WRITE) (IMMEDIATE-DEPENDENTS0 READ-MEM . READ-MEM-BYTE-WRITE) (LEMMAS READ-MEM . READ-MEM-BYTE-WRITE))))) (PUT1-LST (QUOTE *1*READ-MEM-BYTE-WRITE-END) (QUOTE (MAIN-EVENT READ-MEM-BYTE-WRITE-END))) (PUT1-LST (QUOTE READ-MEM-BYTE-WRITE-END) (QUOTE (TYPE-PRESCRIPTION-LST ((READ-MEM-BYTE-WRITE-END 4 NIL NIL NIL NIL NIL)) TOTALP-LST ((READ-MEM-BYTE-WRITE-END . T)) SDEFN (LAMBDA (X N VALUE Y MEM) (READ-MEM X (BYTE-WRITE VALUE Y MEM) N)) LISP-CODE *1*READ-MEM-BYTE-WRITE-END SUBRP *1*FALSE LEVEL-NO 5 IDATE 1000402215002 SATELLITES (*1*READ-MEM-BYTE-WRITE-END) IMMEDIATE-DEPENDENTS0 (READ-MEM-BYTE-WRITE-END-OFF READ-WRITE-MEM1 READ-MEM-BYTE-WRITE) EVENT (DEFN READ-MEM-BYTE-WRITE-END (X N VALUE Y MEM) (READ-MEM X (BYTE-WRITE VALUE Y MEM) N)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BYTE-WRITE . READ-MEM-BYTE-WRITE-END) (IMMEDIATE-DEPENDENTS0 READ-MEM . READ-MEM-BYTE-WRITE-END) (DCELL . *1*READ-MEM-BYTE-WRITE-END))))) (PUT1-LST (QUOTE BYTE-READ-WRITE-MEM) (QUOTE (IDATE 1000402215002 IMMEDIATE-DEPENDENTS0 (BYTE-READ-WRITE-MEM-LEMMA) EVENT (PROVE-LEMMA BYTE-READ-WRITE-MEM (REWRITE) (EQUAL (BYTE-READ X (WRITE-MEM VALUE Y MEM K)) (IF (DISJOINT X (QUOTE 1) Y K) (BYTE-READ X MEM) (BYTE-READ-WRITE-MEM-END X VALUE Y MEM K))) ((INDUCT (WRITE-MEM VALUE Y MEM K)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 HEAD-LEMMA . BYTE-READ-WRITE-MEM) (IMMEDIATE-DEPENDENTS0 ADD-NAT-RANGEP . BYTE-READ-WRITE-MEM) (IMMEDIATE-DEPENDENTS0 MOD32-EQ . BYTE-READ-WRITE-MEM) (IMMEDIATE-DEPENDENTS0 BYTE-READ-WRITE . BYTE-READ-WRITE-MEM) (IMMEDIATE-DEPENDENTS0 DISJOINT0 . BYTE-READ-WRITE-MEM) (IMMEDIATE-DEPENDENTS0 ADD-0 . BYTE-READ-WRITE-MEM) (IMMEDIATE-DEPENDENTS0 ADD-COMMUTATIVITY . BYTE-READ-WRITE-MEM) (IMMEDIATE-DEPENDENTS0 HEAD-HEAD . BYTE-READ-WRITE-MEM) (IMMEDIATE-DEPENDENTS0 B . BYTE-READ-WRITE-MEM) (IMMEDIATE-DEPENDENTS0 BYTE-READ-WRITE-MEM-END . BYTE-READ-WRITE-MEM) (IMMEDIATE-DEPENDENTS0 DISJOINT . BYTE-READ-WRITE-MEM) (IMMEDIATE-DEPENDENTS0 WRITE-MEM . BYTE-READ-WRITE-MEM) (IMMEDIATE-DEPENDENTS0 BYTE-READ . BYTE-READ-WRITE-MEM) (LEMMAS BYTE-READ . BYTE-READ-WRITE-MEM))))) (PUT1-LST (QUOTE *1*BYTE-READ-WRITE-MEM-END) (QUOTE (MAIN-EVENT BYTE-READ-WRITE-MEM-END))) (PUT1-LST (QUOTE BYTE-READ-WRITE-MEM-END) (QUOTE (TYPE-PRESCRIPTION-LST ((BYTE-READ-WRITE-MEM-END 4 NIL NIL NIL NIL NIL)) TOTALP-LST ((BYTE-READ-WRITE-MEM-END . T)) SDEFN (LAMBDA (X VALUE Y MEM K) (BYTE-READ X (WRITE-MEM VALUE Y MEM K))) LISP-CODE *1*BYTE-READ-WRITE-MEM-END SUBRP *1*FALSE LEVEL-NO 5 IDATE 1000402215002 SATELLITES (*1*BYTE-READ-WRITE-MEM-END) IMMEDIATE-DEPENDENTS0 (BYTE-READ-WRITE-MEM-END-OFF BYTE-READ-WRITE-MEM-LEMMA BYTE-READ-WRITE-MEM) EVENT (DEFN BYTE-READ-WRITE-MEM-END (X VALUE Y MEM K) (BYTE-READ X (WRITE-MEM VALUE Y MEM K))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 WRITE-MEM . BYTE-READ-WRITE-MEM-END) (IMMEDIATE-DEPENDENTS0 BYTE-READ . BYTE-READ-WRITE-MEM-END) (DCELL . *1*BYTE-READ-WRITE-MEM-END))))) (PUT1-LST (QUOTE PC-READ-MEM-WRITE-MEM) (QUOTE (IDATE 1000402215002 IMMEDIATE-DEPENDENTS0 (GCD-S-S0-MEM GCD-S-S0-RFILE GCD-S-S0 STEPN-PC-READ-MEM PC-READ-MEM-WRITEM-MEM) EVENT (PROVE-LEMMA PC-READ-MEM-WRITE-MEM (REWRITE) (IMPLIES (AND (WRITE-MEMP X MEM M) (PC-READ-MEMP Y MEM N)) (EQUAL (PC-READ-MEM Y (WRITE-MEM VALUE X MEM M) N) (PC-READ-MEM Y MEM N)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B . PC-READ-MEM-WRITE-MEM) (IMMEDIATE-DEPENDENTS0 PC-BYTE-READ-WRITE-MEM . PC-READ-MEM-WRITE-MEM) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . PC-READ-MEM-WRITE-MEM) (IMMEDIATE-DEPENDENTS0 WRITE-MEM . PC-READ-MEM-WRITE-MEM) (IMMEDIATE-DEPENDENTS0 PC-READ-MEM . PC-READ-MEM-WRITE-MEM) (IMMEDIATE-DEPENDENTS0 PC-READ-MEMP . PC-READ-MEM-WRITE-MEM) (IMMEDIATE-DEPENDENTS0 WRITE-MEMP . PC-READ-MEM-WRITE-MEM) (LEMMAS PC-READ-MEM . PC-READ-MEM-WRITE-MEM))))) (PUT1-LST (QUOTE PC-READ-MEM-BYTE-WRITE) (QUOTE (IDATE 1000402215002 EVENT (PROVE-LEMMA PC-READ-MEM-BYTE-WRITE (REWRITE) (IMPLIES (AND (BYTE-WRITEP X MEM) (PC-READ-MEMP Y MEM N)) (EQUAL (PC-READ-MEM Y (BYTE-WRITE VALUE X MEM) N) (PC-READ-MEM Y MEM N)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B . PC-READ-MEM-BYTE-WRITE) (IMMEDIATE-DEPENDENTS0 PC-BYTE-READ-WRITE . PC-READ-MEM-BYTE-WRITE) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . PC-READ-MEM-BYTE-WRITE) (IMMEDIATE-DEPENDENTS0 BYTE-WRITE . PC-READ-MEM-BYTE-WRITE) (IMMEDIATE-DEPENDENTS0 PC-READ-MEM . PC-READ-MEM-BYTE-WRITE) (IMMEDIATE-DEPENDENTS0 PC-READ-MEMP . PC-READ-MEM-BYTE-WRITE) (IMMEDIATE-DEPENDENTS0 BYTE-WRITEP . PC-READ-MEM-BYTE-WRITE) (LEMMAS PC-READ-MEM . PC-READ-MEM-BYTE-WRITE))))) (PUT1-LST (QUOTE PC-BYTE-READ-WRITE-MEM) (QUOTE (IDATE 1000402215002 IMMEDIATE-DEPENDENTS0 (WRITE-MEM-MCODE-ADDRP PC-READ-MEM-WRITE-MEM) EVENT (PROVE-LEMMA PC-BYTE-READ-WRITE-MEM (REWRITE) (IMPLIES (AND (WRITE-MEMP X MEM N) (PC-BYTE-READP Y MEM)) (EQUAL (PC-BYTE-READ Y (WRITE-MEM VALUE X MEM N)) (PC-BYTE-READ Y MEM))) ((INDUCT (WRITE-MEM VALUE X MEM N)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PC-BYTE-READ-WRITE . PC-BYTE-READ-WRITE-MEM) (IMMEDIATE-DEPENDENTS0 B . PC-BYTE-READ-WRITE-MEM) (IMMEDIATE-DEPENDENTS0 BYTE-WRITE-MAINTAIN-PC-BYTE-READP . PC-BYTE-READ-WRITE-MEM) (IMMEDIATE-DEPENDENTS0 BYTE-WRITE-MAINTAIN-WRITE-MEMP . PC-BYTE-READ-WRITE-MEM) (IMMEDIATE-DEPENDENTS0 WRITE-MEM . PC-BYTE-READ-WRITE-MEM) (IMMEDIATE-DEPENDENTS0 PC-BYTE-READ . PC-BYTE-READ-WRITE-MEM) (IMMEDIATE-DEPENDENTS0 PC-BYTE-READP . PC-BYTE-READ-WRITE-MEM) (IMMEDIATE-DEPENDENTS0 WRITE-MEMP . PC-BYTE-READ-WRITE-MEM) (LEMMAS PC-BYTE-READ . PC-BYTE-READ-WRITE-MEM))))) (PUT1-LST (QUOTE WRITE-MEMP->READ-MEMP) (QUOTE (IDATE 1000402215002 IMMEDIATE-DEPENDENTS0 (GCD-S-S0-MEM GCD-S-S0-RFILE GCD-S-S0 READ-MEMP-RAM3 READ-MEMP-RAM2 READ-MEMP-RAM1-INT READ-MEMP-RAM1 READ-MEMP-RAM0) EVENT (PROVE-LEMMA WRITE-MEMP->READ-MEMP (REWRITE) (IMPLIES (WRITE-MEMP X MEM N) (READ-MEMP X MEM N))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BYTE-WRITEP->READP . WRITE-MEMP->READ-MEMP) (IMMEDIATE-DEPENDENTS0 PC-READ-MEMP . WRITE-MEMP->READ-MEMP) (IMMEDIATE-DEPENDENTS0 PC-READ-MEMP->READ-MEMP . WRITE-MEMP->READ-MEMP) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . WRITE-MEMP->READ-MEMP) (IMMEDIATE-DEPENDENTS0 READ-MEMP . WRITE-MEMP->READ-MEMP) (IMMEDIATE-DEPENDENTS0 WRITE-MEMP . WRITE-MEMP->READ-MEMP) (LEMMAS READ-MEMP . WRITE-MEMP->READ-MEMP))))) (PUT1-LST (QUOTE PC-READ-MEMP->READ-MEMP) (QUOTE (IDATE 1000402215002 IMMEDIATE-DEPENDENTS0 (READ-MEMP-ROM1-INT READ-MEMP-ROM3 READ-MEMP-ROM2 READ-MEMP-ROM1 READ-MEMP-ROM0 WRITE-MEMP->READ-MEMP) EVENT (PROVE-LEMMA PC-READ-MEMP->READ-MEMP (REWRITE) (IMPLIES (PC-READ-MEMP X MEM N) (READ-MEMP X MEM N))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PC-BYTE-READP->BYTE-READP . PC-READ-MEMP->READ-MEMP) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . PC-READ-MEMP->READ-MEMP) (IMMEDIATE-DEPENDENTS0 READ-MEMP . PC-READ-MEMP->READ-MEMP) (IMMEDIATE-DEPENDENTS0 PC-READ-MEMP . PC-READ-MEMP->READ-MEMP) (LEMMAS READ-MEMP . PC-READ-MEMP->READ-MEMP))))) (PUT1-LST (QUOTE WRITE-MEM-MAINTAIN-WRITE-MEMP) (QUOTE (IDATE 1000402215002 IMMEDIATE-DEPENDENTS0 (GCD-S-S0-MEM GCD-S-S0-RFILE GCD-S-S0 STEPN-WRITE-MEMP WRITEM-MEM-H WRITE-MEM-MAINTAIN-MOVEP-WRITEP WRITEM-MEM-MCODE-ADDRP PC-READ-MEM-WRITEM-MEM WRITEM-MEM-MAINTAIN-WRITE-MEMP WRITEM-MEM-MAINTAIN-BYTE-WRITEP WRITE-MEM-MAINTAIN-RAM-ADDRP) EVENT (PROVE-LEMMA WRITE-MEM-MAINTAIN-WRITE-MEMP (REWRITE) (EQUAL (WRITE-MEMP ADDR (WRITE-MEM VALUE X MEM M) N) (WRITE-MEMP ADDR MEM N))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BYTE-WRITE-MAINTAIN-WRITE-MEMP . WRITE-MEM-MAINTAIN-WRITE-MEMP) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . WRITE-MEM-MAINTAIN-WRITE-MEMP) (IMMEDIATE-DEPENDENTS0 WRITE-MEM . WRITE-MEM-MAINTAIN-WRITE-MEMP) (IMMEDIATE-DEPENDENTS0 WRITE-MEMP . WRITE-MEM-MAINTAIN-WRITE-MEMP) (LEMMAS WRITE-MEMP . WRITE-MEM-MAINTAIN-WRITE-MEMP))))) (PUT1-LST (QUOTE WRITE-MEM-MAINTAIN-READ-MEMP) (QUOTE (IDATE 1000402215002 IMMEDIATE-DEPENDENTS0 (STEPN-READ-MEMP WRITEM-MEM-MAINTAIN-READ-MEMP) EVENT (PROVE-LEMMA WRITE-MEM-MAINTAIN-READ-MEMP (REWRITE) (EQUAL (READ-MEMP ADDR (WRITE-MEM VALUE X MEM M) N) (READ-MEMP ADDR MEM N))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BYTE-WRITE-MAINTAIN-READ-MEMP . WRITE-MEM-MAINTAIN-READ-MEMP) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . WRITE-MEM-MAINTAIN-READ-MEMP) (IMMEDIATE-DEPENDENTS0 WRITE-MEM . WRITE-MEM-MAINTAIN-READ-MEMP) (IMMEDIATE-DEPENDENTS0 READ-MEMP . WRITE-MEM-MAINTAIN-READ-MEMP) (LEMMAS READ-MEMP . WRITE-MEM-MAINTAIN-READ-MEMP))))) (PUT1-LST (QUOTE WRITE-MEM-MAINTAIN-PC-READ-MEMP) (QUOTE (IDATE 1000402215002 IMMEDIATE-DEPENDENTS0 (GCD-S-S0-MEM GCD-S-S0-RFILE GCD-S-S0 STEPN-PC-READ-MEMP WRITEM-MEM-MCODE-ADDRP PC-READ-MEM-WRITEM-MEM WRITEM-MEM-MAINTAIN-PC-READ-MEMP WRITE-MEM-MAINTAIN-ROM-ADDRP) EVENT (PROVE-LEMMA WRITE-MEM-MAINTAIN-PC-READ-MEMP (REWRITE) (EQUAL (PC-READ-MEMP ADDR (WRITE-MEM VALUE X MEM M) N) (PC-READ-MEMP ADDR MEM N))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BYTE-WRITE-MAINTAIN-PC-READ-MEMP . WRITE-MEM-MAINTAIN-PC-READ-MEMP) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . WRITE-MEM-MAINTAIN-PC-READ-MEMP) (IMMEDIATE-DEPENDENTS0 WRITE-MEM . WRITE-MEM-MAINTAIN-PC-READ-MEMP) (IMMEDIATE-DEPENDENTS0 PC-READ-MEMP . WRITE-MEM-MAINTAIN-PC-READ-MEMP) (LEMMAS PC-READ-MEMP . WRITE-MEM-MAINTAIN-PC-READ-MEMP))))) (PUT1-LST (QUOTE BYTE-WRITE-MAINTAIN-WRITE-MEMP) (QUOTE (IDATE 1000402215002 IMMEDIATE-DEPENDENTS0 (BYTE-WRITE-MAINTAIN-RAM-ADDRP PC-BYTE-READ-WRITE-MEM WRITE-MEM-MAINTAIN-WRITE-MEMP) EVENT (PROVE-LEMMA BYTE-WRITE-MAINTAIN-WRITE-MEMP (REWRITE) (EQUAL (WRITE-MEMP ADDR (BYTE-WRITE VALUE X MEM) N) (WRITE-MEMP ADDR MEM N))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BYTE-WRITE-MAINTAIN-BYTE-WRITEP . BYTE-WRITE-MAINTAIN-WRITE-MEMP) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . BYTE-WRITE-MAINTAIN-WRITE-MEMP) (IMMEDIATE-DEPENDENTS0 BYTE-WRITE . BYTE-WRITE-MAINTAIN-WRITE-MEMP) (IMMEDIATE-DEPENDENTS0 WRITE-MEMP . BYTE-WRITE-MAINTAIN-WRITE-MEMP) (LEMMAS WRITE-MEMP . BYTE-WRITE-MAINTAIN-WRITE-MEMP))))) (PUT1-LST (QUOTE BYTE-WRITE-MAINTAIN-READ-MEMP) (QUOTE (IDATE 1000402215002 IMMEDIATE-DEPENDENTS0 (WRITE-MEM-MAINTAIN-READ-MEMP) EVENT (PROVE-LEMMA BYTE-WRITE-MAINTAIN-READ-MEMP (REWRITE) (EQUAL (READ-MEMP ADDR (BYTE-WRITE VALUE X MEM) N) (READ-MEMP ADDR MEM N))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BYTE-WRITE-MAINTAIN-BYTE-READP . BYTE-WRITE-MAINTAIN-READ-MEMP) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . BYTE-WRITE-MAINTAIN-READ-MEMP) (IMMEDIATE-DEPENDENTS0 BYTE-WRITE . BYTE-WRITE-MAINTAIN-READ-MEMP) (IMMEDIATE-DEPENDENTS0 READ-MEMP . BYTE-WRITE-MAINTAIN-READ-MEMP) (LEMMAS READ-MEMP . BYTE-WRITE-MAINTAIN-READ-MEMP))))) (PUT1-LST (QUOTE BYTE-WRITE-MAINTAIN-PC-READ-MEMP) (QUOTE (IDATE 1000402215002 IMMEDIATE-DEPENDENTS0 (BYTE-WRITE-MAINTAIN-ROM-ADDRP WRITE-MEM-MAINTAIN-PC-READ-MEMP) EVENT (PROVE-LEMMA BYTE-WRITE-MAINTAIN-PC-READ-MEMP (REWRITE) (EQUAL (PC-READ-MEMP ADDR (BYTE-WRITE VALUE X MEM) N) (PC-READ-MEMP ADDR MEM N))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BYTE-WRITE-MAINTAIN-PC-BYTE-READP . BYTE-WRITE-MAINTAIN-PC-READ-MEMP) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . BYTE-WRITE-MAINTAIN-PC-READ-MEMP) (IMMEDIATE-DEPENDENTS0 BYTE-WRITE . BYTE-WRITE-MAINTAIN-PC-READ-MEMP) (IMMEDIATE-DEPENDENTS0 PC-READ-MEMP . BYTE-WRITE-MAINTAIN-PC-READ-MEMP) (LEMMAS PC-READ-MEMP . BYTE-WRITE-MAINTAIN-PC-READ-MEMP))))) (PUT1-LST (QUOTE WRITE-MEM-MAINTAIN-BYTE-WRITEP) (QUOTE (IDATE 1000402215002 EVENT (PROVE-LEMMA WRITE-MEM-MAINTAIN-BYTE-WRITEP (REWRITE) (EQUAL (BYTE-WRITEP ADDR (WRITE-MEM VALUE X MEM K)) (BYTE-WRITEP ADDR MEM))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BYTE-WRITE-MAINTAIN-BYTE-WRITEP . WRITE-MEM-MAINTAIN-BYTE-WRITEP) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . WRITE-MEM-MAINTAIN-BYTE-WRITEP) (IMMEDIATE-DEPENDENTS0 WRITE-MEM . WRITE-MEM-MAINTAIN-BYTE-WRITEP) (IMMEDIATE-DEPENDENTS0 BYTE-WRITEP . WRITE-MEM-MAINTAIN-BYTE-WRITEP) (LEMMAS BYTE-WRITEP . WRITE-MEM-MAINTAIN-BYTE-WRITEP))))) (PUT1-LST (QUOTE WRITE-MEM-MAINTAIN-BYTE-READP) (QUOTE (IDATE 1000402215002 IMMEDIATE-DEPENDENTS0 (WRITEM-MEM-MAINTAIN-BYTE-READP) EVENT (PROVE-LEMMA WRITE-MEM-MAINTAIN-BYTE-READP (REWRITE) (EQUAL (BYTE-READP ADDR (WRITE-MEM VALUE X MEM K)) (BYTE-READP ADDR MEM))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BYTE-WRITE-MAINTAIN-BYTE-READP . WRITE-MEM-MAINTAIN-BYTE-READP) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . WRITE-MEM-MAINTAIN-BYTE-READP) (IMMEDIATE-DEPENDENTS0 WRITE-MEM . WRITE-MEM-MAINTAIN-BYTE-READP) (IMMEDIATE-DEPENDENTS0 BYTE-READP . WRITE-MEM-MAINTAIN-BYTE-READP) (LEMMAS BYTE-READP . WRITE-MEM-MAINTAIN-BYTE-READP))))) (PUT1-LST (QUOTE WRITE-MEM-MAINTAIN-PC-BYTE-READP) (QUOTE (IDATE 1000402215002 IMMEDIATE-DEPENDENTS0 (WRITEM-MEM-MAINTAIN-PC-BYTE-READP) EVENT (PROVE-LEMMA WRITE-MEM-MAINTAIN-PC-BYTE-READP (REWRITE) (EQUAL (PC-BYTE-READP ADDR (WRITE-MEM VALUE X MEM K)) (PC-BYTE-READP ADDR MEM))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BYTE-WRITE-MAINTAIN-PC-BYTE-READP . WRITE-MEM-MAINTAIN-PC-BYTE-READP) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . WRITE-MEM-MAINTAIN-PC-BYTE-READP) (IMMEDIATE-DEPENDENTS0 WRITE-MEM . WRITE-MEM-MAINTAIN-PC-BYTE-READP) (IMMEDIATE-DEPENDENTS0 PC-BYTE-READP . WRITE-MEM-MAINTAIN-PC-BYTE-READP) (LEMMAS PC-BYTE-READP . WRITE-MEM-MAINTAIN-PC-BYTE-READP))))) (PUT1-LST (QUOTE READ-MEM-NAT-RANGEP) (QUOTE (IDATE 1000402215002 IMMEDIATE-DEPENDENTS0 (GCD-S0-SN-BASE-2 GCD-S0-SN-BASE-1 GCD-S-S0 READ-MEM-INT-8_16 READ-MEM-INT-16_32 READ-MEM-INT-8_32 MEM-ILST-LST-INTEGERP MEM-LST-INTEGERP STEPN-READM-MEM MEM-ILST-INTEGERP MEM-LST-NAT-RANGEP) EVENT (PROVE-LEMMA READ-MEM-NAT-RANGEP (REWRITE) (IMPLIES (IF (LESSP N (TIMES (QUOTE 8) K)) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (NAT-RANGEP (READ-MEM X MEM K) N)) ((INDUCT (MEM-INDUCT0 K N)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-ADD1 . READ-MEM-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 B . READ-MEM-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 APP-NAT-RANGEP . READ-MEM-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP-OF-0 . READ-MEM-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . READ-MEM-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 MEM-INDUCT0 . READ-MEM-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 READ-MEM . READ-MEM-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . READ-MEM-NAT-RANGEP) (LEMMAS NAT-RANGEP . READ-MEM-NAT-RANGEP))))) (PUT1-LST (QUOTE PC-READ-MEM-NAT-RANGEP) (QUOTE (IDATE 1000402215002 IMMEDIATE-DEPENDENTS0 (STEPI-H ADDR-INDEX2-MEM) EVENT (PROVE-LEMMA PC-READ-MEM-NAT-RANGEP (REWRITE) (IMPLIES (EQUAL N (TIMES (QUOTE 8) K)) (NAT-RANGEP (PC-READ-MEM X MEM K) N))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-ADD1 . PC-READ-MEM-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS . PC-READ-MEM-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 B . PC-READ-MEM-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-LESSP-TIMES . PC-READ-MEM-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 APP-NAT-RANGEP . PC-READ-MEM-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . PC-READ-MEM-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . PC-READ-MEM-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 PC-READ-MEM . PC-READ-MEM-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . PC-READ-MEM-NAT-RANGEP) (LEMMAS NAT-RANGEP . PC-READ-MEM-NAT-RANGEP))))) (PUT1-LST (QUOTE *1*MEM-INDUCT0) (QUOTE (MAIN-EVENT MEM-INDUCT0))) (PUT1-LST (QUOTE MEM-INDUCT0) (QUOTE (TYPE-PRESCRIPTION-LST ((MEM-INDUCT0 4 NIL NIL)) TOTALP-LST ((MEM-INDUCT0 . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE) SDEFN (LAMBDA (K N) (IF (EQUAL K (QUOTE 0)) (QUOTE 0) (IF (NUMBERP K) (MEM-INDUCT0 (SUB1 K) (DIFFERENCE N (QUOTE 8))) (QUOTE 0)))) LISP-CODE *1*MEM-INDUCT0 SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((ZEROP K)) NIL) (TESTS-AND-CASES ((NOT (ZEROP K))) (((SUB1 K) (DIFFERENCE N (QUOTE 8)))))) LEVEL-NO 2 JUSTIFICATIONS ((JUSTIFICATION (K) (COUNT K) LESSP (ZEROP COUNT-NUMBERP LESSP-SUB1))) IDATE 1000402215002 CONTROLLER-POCKETS (1) SATELLITES (*1*MEM-INDUCT0) IMMEDIATE-DEPENDENTS0 (READ-MEM-NAT-RANGEP) EVENT (DEFN MEM-INDUCT0 (K N) (IF (ZEROP K) (QUOTE 0) (MEM-INDUCT0 (SUB1 K) (DIFFERENCE N (QUOTE 8))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . MEM-INDUCT0) (DCELL . *1*MEM-INDUCT0))))) (PUT1-LST (QUOTE BYTE-WRITE-OFF) (QUOTE (IDATE 1000402215002 EVENT (TOGGLE BYTE-WRITE-OFF BYTE-WRITE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BYTE-WRITE . BYTE-WRITE-OFF) (DISABLED-LEMMAS NIL BYTE-WRITE BYTE-WRITE-OFF . T))))) (PUT1-LST (QUOTE BYTE-READ-OFF) (QUOTE (IDATE 1000402215002 EVENT (TOGGLE BYTE-READ-OFF BYTE-READ T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BYTE-READ . BYTE-READ-OFF) (DISABLED-LEMMAS NIL BYTE-READ BYTE-READ-OFF . T))))) (PUT1-LST (QUOTE PC-BYTE-READ-OFF) (QUOTE (IDATE 1000402215002 EVENT (TOGGLE PC-BYTE-READ-OFF PC-BYTE-READ T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PC-BYTE-READ . PC-BYTE-READ-OFF) (DISABLED-LEMMAS NIL PC-BYTE-READ PC-BYTE-READ-OFF . T))))) (PUT1-LST (QUOTE BYTE-WRITEP-OFF) (QUOTE (IDATE 1000402215002 EVENT (TOGGLE BYTE-WRITEP-OFF BYTE-WRITEP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BYTE-WRITEP . BYTE-WRITEP-OFF) (DISABLED-LEMMAS NIL BYTE-WRITEP BYTE-WRITEP-OFF . T))))) (PUT1-LST (QUOTE BYTE-READP-OFF) (QUOTE (IDATE 1000402215002 EVENT (TOGGLE BYTE-READP-OFF BYTE-READP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BYTE-READP . BYTE-READP-OFF) (DISABLED-LEMMAS NIL BYTE-READP BYTE-READP-OFF . T))))) (PUT1-LST (QUOTE PC-BYTE-READP-OFF) (QUOTE (IDATE 1000402215002 EVENT (TOGGLE PC-BYTE-READP-OFF PC-BYTE-READP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PC-BYTE-READP . PC-BYTE-READP-OFF) (DISABLED-LEMMAS NIL PC-BYTE-READP PC-BYTE-READP-OFF . T))))) (PUT1-LST (QUOTE BYTE-WRITE-APP) (QUOTE (IDATE 1000402215002 EVENT (PROVE-LEMMA BYTE-WRITE-APP (REWRITE) (IMPLIES (IF (LESSP N (QUOTE 8)) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (EQUAL (BYTE-WRITE (APP N X Y) ADDR MEM) (BYTE-WRITE X ADDR MEM)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 HEAD-APP . BYTE-WRITE-APP) (IMMEDIATE-DEPENDENTS0 B . BYTE-WRITE-APP) (IMMEDIATE-DEPENDENTS0 APP . BYTE-WRITE-APP) (IMMEDIATE-DEPENDENTS0 BYTE-WRITE . BYTE-WRITE-APP) (LEMMAS BYTE-WRITE . BYTE-WRITE-APP))))) (PUT1-LST (QUOTE BYTE-WRITE-MAINTAIN-BYTE-WRITEP) (QUOTE (IDATE 1000402215002 IMMEDIATE-DEPENDENTS0 (BYTE-WRITE-MAINTAIN-WRITE-MEMP WRITE-MEM-MAINTAIN-BYTE-WRITEP) EVENT (PROVE-LEMMA BYTE-WRITE-MAINTAIN-BYTE-WRITEP (REWRITE) (EQUAL (BYTE-WRITEP X (BYTE-WRITE VALUE Y MEM)) (BYTE-WRITEP X MEM))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B . BYTE-WRITE-MAINTAIN-BYTE-WRITEP) (IMMEDIATE-DEPENDENTS0 BYTE-WRITE . BYTE-WRITE-MAINTAIN-BYTE-WRITEP) (IMMEDIATE-DEPENDENTS0 BYTE-WRITEP . BYTE-WRITE-MAINTAIN-BYTE-WRITEP) (LEMMAS BYTE-WRITEP . BYTE-WRITE-MAINTAIN-BYTE-WRITEP))))) (PUT1-LST (QUOTE BYTE-WRITE-MAINTAIN-BYTE-READP) (QUOTE (IDATE 1000402215002 IMMEDIATE-DEPENDENTS0 (BYTE-WRITE-MAINTAIN-READ-MEMP WRITE-MEM-MAINTAIN-BYTE-READP) EVENT (PROVE-LEMMA BYTE-WRITE-MAINTAIN-BYTE-READP (REWRITE) (EQUAL (BYTE-READP X (BYTE-WRITE VALUE Y MEM)) (BYTE-READP X MEM))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B . BYTE-WRITE-MAINTAIN-BYTE-READP) (IMMEDIATE-DEPENDENTS0 BYTE-WRITE . BYTE-WRITE-MAINTAIN-BYTE-READP) (IMMEDIATE-DEPENDENTS0 BYTE-READP . BYTE-WRITE-MAINTAIN-BYTE-READP) (LEMMAS BYTE-READP . BYTE-WRITE-MAINTAIN-BYTE-READP))))) (PUT1-LST (QUOTE BYTE-WRITE-MAINTAIN-PC-BYTE-READP) (QUOTE (IDATE 1000402215002 IMMEDIATE-DEPENDENTS0 (PC-BYTE-READ-WRITE-MEM BYTE-WRITE-MAINTAIN-PC-READ-MEMP WRITE-MEM-MAINTAIN-PC-BYTE-READP) EVENT (PROVE-LEMMA BYTE-WRITE-MAINTAIN-PC-BYTE-READP (REWRITE) (EQUAL (PC-BYTE-READP X (BYTE-WRITE VALUE Y MEM)) (PC-BYTE-READP X MEM))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B . BYTE-WRITE-MAINTAIN-PC-BYTE-READP) (IMMEDIATE-DEPENDENTS0 BYTE-WRITE . BYTE-WRITE-MAINTAIN-PC-BYTE-READP) (IMMEDIATE-DEPENDENTS0 PC-BYTE-READP . BYTE-WRITE-MAINTAIN-PC-BYTE-READP) (LEMMAS PC-BYTE-READP . BYTE-WRITE-MAINTAIN-PC-BYTE-READP))))) (PUT1-LST (QUOTE PC-BYTE-READ-WRITE) (QUOTE (IDATE 1000402215002 IMMEDIATE-DEPENDENTS0 (BYTE-WRITE-MCODE-ADDRP PC-READ-MEM-BYTE-WRITE PC-BYTE-READ-WRITE-MEM) EVENT (PROVE-LEMMA PC-BYTE-READ-WRITE (REWRITE) (IMPLIES (AND (BYTE-WRITEP X MEM) (PC-BYTE-READP Y MEM)) (EQUAL (PC-BYTE-READ Y (BYTE-WRITE VALUE X MEM)) (PC-BYTE-READ Y MEM)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PC-READ-WRITE . PC-BYTE-READ-WRITE) (IMMEDIATE-DEPENDENTS0 B . PC-BYTE-READ-WRITE) (IMMEDIATE-DEPENDENTS0 BYTE-WRITE . PC-BYTE-READ-WRITE) (IMMEDIATE-DEPENDENTS0 PC-BYTE-READ . PC-BYTE-READ-WRITE) (IMMEDIATE-DEPENDENTS0 PC-BYTE-READP . PC-BYTE-READ-WRITE) (IMMEDIATE-DEPENDENTS0 BYTE-WRITEP . PC-BYTE-READ-WRITE) (LEMMAS PC-BYTE-READ . PC-BYTE-READ-WRITE))))) (PUT1-LST (QUOTE BYTE-WRITE-WRITE) (QUOTE (IDATE 1000402215002 IMMEDIATE-DEPENDENTS0 (WRITE-WRITE-MEM WRITE-MEM-BYTE-WRITE) EVENT (PROVE-LEMMA BYTE-WRITE-WRITE (REWRITE) (EQUAL (BYTE-WRITE V2 X (BYTE-WRITE V1 X MEM)) (BYTE-WRITE V2 X MEM))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B . BYTE-WRITE-WRITE) (IMMEDIATE-DEPENDENTS0 WRITE-WRITE . BYTE-WRITE-WRITE) (IMMEDIATE-DEPENDENTS0 BYTE-WRITE . BYTE-WRITE-WRITE) (LEMMAS BYTE-WRITE . BYTE-WRITE-WRITE))))) (PUT1-LST (QUOTE BYTE-WRITE-WRITE-LA) (QUOTE (IDATE 1000402215002 IMMEDIATE-DEPENDENTS0 (WRITE-MEM-BYTE-WRITE) EVENT (PROVE-LEMMA BYTE-WRITE-WRITE-LA NIL (EQUAL (BYTE-WRITE V2 Y (BYTE-WRITE V1 X MEM)) (IF (NOT (MOD32-EQ X Y)) (BYTE-WRITE V1 X (BYTE-WRITE V2 Y MEM)) (BYTE-WRITE V2 Y MEM))) ((USE (WRITE-WRITE-LA (V1 (HEAD V1 (QUOTE 8))) (V2 (HEAD V2 (QUOTE 8))) (N (QUOTE 32)) (BT (CDR MEM)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MODN-EQ-EQUAL . BYTE-WRITE-WRITE-LA) (IMMEDIATE-DEPENDENTS0 B . BYTE-WRITE-WRITE-LA) (IMMEDIATE-DEPENDENTS0 WRITE-WRITE-LA . BYTE-WRITE-WRITE-LA) (IMMEDIATE-DEPENDENTS0 MOD32-EQ . BYTE-WRITE-WRITE-LA) (IMMEDIATE-DEPENDENTS0 BYTE-WRITE . BYTE-WRITE-WRITE-LA))))) (PUT1-LST (QUOTE BYTE-READ-WRITE) (QUOTE (IDATE 1000402215002 IMMEDIATE-DEPENDENTS0 (READ-WRITE-MEM2 BYTE-READ-WRITE-MEM-LEMMA READ-MEM-BYTE-WRITE BYTE-READ-WRITE-MEM) EVENT (PROVE-LEMMA BYTE-READ-WRITE (REWRITE) (EQUAL (BYTE-READ X (BYTE-WRITE V Y MEM)) (IF (MOD32-EQ X Y) (IF (NAT-RANGEP V (QUOTE 8)) (FIX V) (HEAD V (QUOTE 8))) (BYTE-READ X MEM)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 HEAD-HEAD . BYTE-READ-WRITE) (IMMEDIATE-DEPENDENTS0 HEAD-LEMMA . BYTE-READ-WRITE) (IMMEDIATE-DEPENDENTS0 MODN-EQ-EQUAL . BYTE-READ-WRITE) (IMMEDIATE-DEPENDENTS0 READ-WRITE . BYTE-READ-WRITE) (IMMEDIATE-DEPENDENTS0 B . BYTE-READ-WRITE) (IMMEDIATE-DEPENDENTS0 HEAD . BYTE-READ-WRITE) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . BYTE-READ-WRITE) (IMMEDIATE-DEPENDENTS0 MOD32-EQ . BYTE-READ-WRITE) (IMMEDIATE-DEPENDENTS0 BYTE-WRITE . BYTE-READ-WRITE) (IMMEDIATE-DEPENDENTS0 BYTE-READ . BYTE-READ-WRITE) (LEMMAS BYTE-READ . BYTE-READ-WRITE))))) (PUT1-LST (QUOTE BYTE-WRITEP->READP) (QUOTE (IDATE 1000402215002 IMMEDIATE-DEPENDENTS0 (BYTE-READP-RAM3 BYTE-READP-RAM2 BYTE-READP-RAM1 BYTE-READP-RAM0 WRITE-MEMP->READ-MEMP) EVENT (PROVE-LEMMA BYTE-WRITEP->READP (REWRITE) (IMPLIES (BYTE-WRITEP X MEM) (BYTE-READP X MEM))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 WRITEP->READP . BYTE-WRITEP->READP) (IMMEDIATE-DEPENDENTS0 BYTE-READP . BYTE-WRITEP->READP) (IMMEDIATE-DEPENDENTS0 BYTE-WRITEP . BYTE-WRITEP->READP) (LEMMAS BYTE-READP . BYTE-WRITEP->READP))))) (PUT1-LST (QUOTE PC-BYTE-READP->BYTE-READP) (QUOTE (IDATE 1000402215002 IMMEDIATE-DEPENDENTS0 (BYTE-READP-ROM3 BYTE-READP-ROM2 BYTE-READP-ROM1 BYTE-READP-ROM0 PC-READ-MEMP->READ-MEMP) EVENT (PROVE-LEMMA PC-BYTE-READP->BYTE-READP (REWRITE) (IMPLIES (PC-BYTE-READP X MEM) (BYTE-READP X MEM))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PC-READP->READP . PC-BYTE-READP->BYTE-READP) (IMMEDIATE-DEPENDENTS0 BYTE-READP . PC-BYTE-READP->BYTE-READP) (IMMEDIATE-DEPENDENTS0 PC-BYTE-READP . PC-BYTE-READP->BYTE-READP) (LEMMAS BYTE-READP . PC-BYTE-READP->BYTE-READP))))) (PUT1-LST (QUOTE HEAD-RECURSION-OFF) (QUOTE (IDATE 1000402215002 EVENT (TOGGLE HEAD-RECURSION-OFF HEAD-RECURSION T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 HEAD-RECURSION . HEAD-RECURSION-OFF) (DISABLED-LEMMAS NIL HEAD-RECURSION HEAD-RECURSION-OFF . T))))) (PUT1-LST (QUOTE EXT-EQUAL-0) (QUOTE (IDATE 1000402215002 IMMEDIATE-DEPENDENTS0 (MOVE-BEQ-EXT) EVENT (PROVE-LEMMA EXT-EQUAL-0 (REWRITE) (IMPLIES (AND (IF (LESSP SIZE N) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (NOT (ZEROP N))) (EQUAL (EQUAL (EXT N X SIZE) (QUOTE 0)) (EQUAL (HEAD X N) (QUOTE 0)))) ((USE (EXT-EQUAL (Y (QUOTE 0)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 HEAD-0 . EXT-EQUAL-0) (IMMEDIATE-DEPENDENTS0 EXT-0 . EXT-EQUAL-0) (IMMEDIATE-DEPENDENTS0 EXT-EQUAL . EXT-EQUAL-0) (IMMEDIATE-DEPENDENTS0 HEAD . EXT-EQUAL-0) (IMMEDIATE-DEPENDENTS0 EXT . EXT-EQUAL-0) (LEMMAS EQUAL . EXT-EQUAL-0))))) (PUT1-LST (QUOTE EXT-EQUAL) (QUOTE (IDATE 1000402215002 IMMEDIATE-DEPENDENTS0 (SUB-BEQ-EXT EXT-EQUAL-0) EVENT (PROVE-LEMMA EXT-EQUAL (REWRITE) (IMPLIES (AND (IF (LESSP SIZE N) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (NOT (ZEROP N))) (EQUAL (EQUAL (EXT N X SIZE) (EXT N Y SIZE)) (EQUAL (HEAD X N) (HEAD Y N)))) ((ENABLE EXT))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 HEAD-HEAD . EXT-EQUAL) (IMMEDIATE-DEPENDENTS0 APP-0 . EXT-EQUAL) (IMMEDIATE-DEPENDENTS0 HEAD-RECURSION . EXT-EQUAL) (IMMEDIATE-DEPENDENTS0 SUB1-OF-1 . EXT-EQUAL) (IMMEDIATE-DEPENDENTS0 HEAD-APP-CANCEL . EXT-EQUAL) (IMMEDIATE-DEPENDENTS0 APP-CANCEL . EXT-EQUAL) (IMMEDIATE-DEPENDENTS0 BITN-0-1 . EXT-EQUAL) (IMMEDIATE-DEPENDENTS0 B0P . EXT-EQUAL) (IMMEDIATE-DEPENDENTS0 B0 . EXT-EQUAL) (IMMEDIATE-DEPENDENTS0 HEAD . EXT-EQUAL) (IMMEDIATE-DEPENDENTS0 EXT . EXT-EQUAL) (LEMMAS EQUAL . EXT-EQUAL))))) (PUT1-LST (QUOTE MODN-EQ-EQUAL) (QUOTE (IDATE 1000402215002 IMMEDIATE-DEPENDENTS0 (BYTE-WRITE-WRITE-LA BYTE-READ-WRITE) EVENT (PROVE-LEMMA MODN-EQ-EQUAL (REWRITE) (EQUAL (MODN-EQ N X Y) (EQUAL (HEAD X N) (HEAD Y N)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 HEAD-RECURSION . MODN-EQ-EQUAL) (IMMEDIATE-DEPENDENTS0 HEAD-HEAD . MODN-EQ-EQUAL) (IMMEDIATE-DEPENDENTS0 APP-CANCEL . MODN-EQ-EQUAL) (IMMEDIATE-DEPENDENTS0 HEAD-LESSP . MODN-EQ-EQUAL) (IMMEDIATE-DEPENDENTS0 EXP . MODN-EQ-EQUAL) (IMMEDIATE-DEPENDENTS0 HEAD-OF-0 . MODN-EQ-EQUAL) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . MODN-EQ-EQUAL) (IMMEDIATE-DEPENDENTS0 HEAD . MODN-EQ-EQUAL) (IMMEDIATE-DEPENDENTS0 MODN-EQ . MODN-EQ-EQUAL) (LEMMAS MODN-EQ . MODN-EQ-EQUAL))))) (PUT1-LST (QUOTE HEAD-RECURSION) (QUOTE (IDATE 1000402215002 IMMEDIATE-DEPENDENTS0 (HEAD-RECURSION-OFF EXT-EQUAL MODN-EQ-EQUAL) EVENT (PROVE-LEMMA HEAD-RECURSION (REWRITE) (EQUAL (HEAD X (ADD1 N)) (APP N (HEAD X N) (BITN X N))) ((ENABLE HEAD BITN APP TAIL BCAR))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-OF-1 . HEAD-RECURSION) (IMMEDIATE-DEPENDENTS0 SUB1-OF-1 . HEAD-RECURSION) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY1 . HEAD-RECURSION) (IMMEDIATE-DEPENDENTS0 TIMES-DISTRIBUTES-REMAINDER . HEAD-RECURSION) (IMMEDIATE-DEPENDENTS0 REMAINDER-TIMES-EXP2-1 . HEAD-RECURSION) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-X-X . HEAD-RECURSION) (IMMEDIATE-DEPENDENTS0 REMAINDER-PLUS1 . HEAD-RECURSION) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . HEAD-RECURSION) (IMMEDIATE-DEPENDENTS0 PLUS-ADD1 . HEAD-RECURSION) (IMMEDIATE-DEPENDENTS0 TIMES-ADD1 . HEAD-RECURSION) (IMMEDIATE-DEPENDENTS0 REMAINDER-PLUS-PLUS . HEAD-RECURSION) (IMMEDIATE-DEPENDENTS0 EXP-OF-2-0 . HEAD-RECURSION) (IMMEDIATE-DEPENDENTS0 QUOTIENT-EXIT . HEAD-RECURSION) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . HEAD-RECURSION) (IMMEDIATE-DEPENDENTS0 REMAINDER-LESSP . HEAD-RECURSION) (IMMEDIATE-DEPENDENTS0 REMAINDER-QUOTIENT-ELIM . HEAD-RECURSION) (IMMEDIATE-DEPENDENTS0 REMAINDER-EXIT . HEAD-RECURSION) (IMMEDIATE-DEPENDENTS0 REMAINDER-1 . HEAD-RECURSION) (IMMEDIATE-DEPENDENTS0 QUOTIENT-1 . HEAD-RECURSION) (IMMEDIATE-DEPENDENTS0 TIMES-1 . HEAD-RECURSION) (IMMEDIATE-DEPENDENTS0 EXP . HEAD-RECURSION) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . HEAD-RECURSION) (IMMEDIATE-DEPENDENTS0 REMAINDER-REMAINDER-EXP2 . HEAD-RECURSION) (IMMEDIATE-DEPENDENTS0 TAIL . HEAD-RECURSION) (IMMEDIATE-DEPENDENTS0 BCAR . HEAD-RECURSION) (IMMEDIATE-DEPENDENTS0 BITN . HEAD-RECURSION) (IMMEDIATE-DEPENDENTS0 APP . HEAD-RECURSION) (IMMEDIATE-DEPENDENTS0 HEAD . HEAD-RECURSION) (LEMMAS HEAD . HEAD-RECURSION))))) (PUT1-LST (QUOTE HEAD-APP-CANCEL) (QUOTE (IDATE 1000402215001 IMMEDIATE-DEPENDENTS0 (EXT-EQUAL) EVENT (PROVE-LEMMA HEAD-APP-CANCEL (REWRITE) (EQUAL (EQUAL (HEAD X N) (APP N X1 Y1)) (AND (EQUAL (HEAD X N) (HEAD X1 N)) (ZEROP Y1))) ((USE (APP-CANCEL (Y (QUOTE 0)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 APP-0 . HEAD-APP-CANCEL) (IMMEDIATE-DEPENDENTS0 APP-CANCEL . HEAD-APP-CANCEL) (IMMEDIATE-DEPENDENTS0 APP . HEAD-APP-CANCEL) (IMMEDIATE-DEPENDENTS0 HEAD . HEAD-APP-CANCEL) (LEMMAS EQUAL . HEAD-APP-CANCEL))))) (PUT1-LST (QUOTE PLUS-TIMES-EQUAL-OFF) (QUOTE (IDATE 1000402215001 EVENT (TOGGLE PLUS-TIMES-EQUAL-OFF PLUS-TIMES-EQUAL T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-TIMES-EQUAL . PLUS-TIMES-EQUAL-OFF) (DISABLED-LEMMAS NIL PLUS-TIMES-EQUAL PLUS-TIMES-EQUAL-OFF . T))))) (PUT1-LST (QUOTE APP-CANCEL) (QUOTE (IDATE 1000402215001 IMMEDIATE-DEPENDENTS0 (STEPN-READM-MEM MEM-LST-GET-LST MEM-LST-GET-LST0 GET-LST-MCAR GET-LST-CDR EXT-EQUAL MODN-EQ-EQUAL HEAD-APP-CANCEL) EVENT (PROVE-LEMMA APP-CANCEL (REWRITE) (EQUAL (EQUAL (APP N X Y) (APP N X1 Y1)) (AND (EQUAL (HEAD X N) (HEAD X1 N)) (EQUAL (FIX Y) (FIX Y1)))) ((ENABLE APP))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 HEAD-LESSP . APP-CANCEL) (IMMEDIATE-DEPENDENTS0 PLUS-TIMES-EQUAL . APP-CANCEL) (IMMEDIATE-DEPENDENTS0 HEAD . APP-CANCEL) (IMMEDIATE-DEPENDENTS0 APP . APP-CANCEL) (LEMMAS EQUAL . APP-CANCEL))))) (PUT1-LST (QUOTE PLUS-TIMES-EQUAL) (QUOTE (IDATE 1000402215001 IMMEDIATE-DEPENDENTS0 (PLUS-TIMES-EQUAL-OFF APP-CANCEL) EVENT (PROVE-LEMMA PLUS-TIMES-EQUAL (REWRITE) (IMPLIES (AND (LESSP A K) (LESSP B K)) (EQUAL (EQUAL (PLUS A (TIMES I K)) (PLUS B (TIMES J K))) (AND (EQUAL (FIX A) (FIX B)) (EQUAL (FIX I) (FIX J))))) ((INDUCT (DIFFERENCE I J)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-OF-1 . PLUS-TIMES-EQUAL) (IMMEDIATE-DEPENDENTS0 SUB1-OF-1 . PLUS-TIMES-EQUAL) (IMMEDIATE-DEPENDENTS0 TIMES-ADD1 . PLUS-TIMES-EQUAL) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . PLUS-TIMES-EQUAL) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-EQUAL-TIMES . PLUS-TIMES-EQUAL) (IMMEDIATE-DEPENDENTS0 PLUS-EQUAL-0 . PLUS-TIMES-EQUAL) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-EQUAL-PLUS . PLUS-TIMES-EQUAL) (IMMEDIATE-DEPENDENTS0 TIMES-EQUAL-0 . PLUS-TIMES-EQUAL) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-LESSP-TIMES . PLUS-TIMES-EQUAL) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . PLUS-TIMES-EQUAL) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . PLUS-TIMES-EQUAL) (LEMMAS EQUAL . PLUS-TIMES-EQUAL))))) (PUT1-LST (QUOTE PC-READ-OFF) (QUOTE (IDATE 1000402215000 EVENT (TOGGLE PC-READ-OFF PC-READ T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PC-READ . PC-READ-OFF) (DISABLED-LEMMAS NIL PC-READ PC-READ-OFF . T))))) (PUT1-LST (QUOTE WRITE-WRITE) (QUOTE (IDATE 1000402215000 IMMEDIATE-DEPENDENTS0 (BYTE-WRITE-WRITE) EVENT (PROVE-LEMMA WRITE-WRITE (REWRITE) (EQUAL (WRITE V2 X N (WRITE V1 X N BT)) (WRITE V2 X N BT))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 VALUE-FIELD . WRITE-WRITE) (IMMEDIATE-DEPENDENTS0 MAKE-BT . WRITE-WRITE) (IMMEDIATE-DEPENDENTS0 BRANCH1 . WRITE-WRITE) (IMMEDIATE-DEPENDENTS0 BRANCH0 . WRITE-WRITE) (IMMEDIATE-DEPENDENTS0 BCAR . WRITE-WRITE) (IMMEDIATE-DEPENDENTS0 TAIL . WRITE-WRITE) (IMMEDIATE-DEPENDENTS0 BITN . WRITE-WRITE) (IMMEDIATE-DEPENDENTS0 B0 . WRITE-WRITE) (IMMEDIATE-DEPENDENTS0 B0P . WRITE-WRITE) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . WRITE-WRITE) (IMMEDIATE-DEPENDENTS0 WRITE . WRITE-WRITE) (LEMMAS WRITE . WRITE-WRITE))))) (PUT1-LST (QUOTE WRITE-WRITE-LA) (QUOTE (IDATE 1000402215000 IMMEDIATE-DEPENDENTS0 (BYTE-WRITE-WRITE-LA) EVENT (PROVE-LEMMA WRITE-WRITE-LA NIL (EQUAL (WRITE V2 Y N (WRITE V1 X N BT)) (IF (NOT (MODN-EQ N X Y)) (WRITE V1 X N (WRITE V2 Y N BT)) (WRITE V2 Y N BT)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BITN-0-1 . WRITE-WRITE-LA) (IMMEDIATE-DEPENDENTS0 VALUE-FIELD . WRITE-WRITE-LA) (IMMEDIATE-DEPENDENTS0 MAKE-BT . WRITE-WRITE-LA) (IMMEDIATE-DEPENDENTS0 BRANCH1 . WRITE-WRITE-LA) (IMMEDIATE-DEPENDENTS0 BRANCH0 . WRITE-WRITE-LA) (IMMEDIATE-DEPENDENTS0 BCAR . WRITE-WRITE-LA) (IMMEDIATE-DEPENDENTS0 TAIL . WRITE-WRITE-LA) (IMMEDIATE-DEPENDENTS0 BITN . WRITE-WRITE-LA) (IMMEDIATE-DEPENDENTS0 B0 . WRITE-WRITE-LA) (IMMEDIATE-DEPENDENTS0 B0P . WRITE-WRITE-LA) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . WRITE-WRITE-LA) (IMMEDIATE-DEPENDENTS0 MODN-EQ . WRITE-WRITE-LA) (IMMEDIATE-DEPENDENTS0 WRITE . WRITE-WRITE-LA))))) (PUT1-LST (QUOTE PC-READ-WRITE) (QUOTE (IDATE 1000402214959 IMMEDIATE-DEPENDENTS0 (PC-BYTE-READ-WRITE) EVENT (PROVE-LEMMA PC-READ-WRITE (REWRITE) (IMPLIES (AND (WRITEP X N MAP) (PC-READP Y N MAP)) (EQUAL (PC-READ Y N (WRITE VALUE X N BT)) (PC-READ Y N BT)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 READ . PC-READ-WRITE) (IMMEDIATE-DEPENDENTS0 MODN-EQ . PC-READ-WRITE) (IMMEDIATE-DEPENDENTS0 VALUE-FIELD . PC-READ-WRITE) (IMMEDIATE-DEPENDENTS0 BCAR . PC-READ-WRITE) (IMMEDIATE-DEPENDENTS0 TAIL . PC-READ-WRITE) (IMMEDIATE-DEPENDENTS0 BITN . PC-READ-WRITE) (IMMEDIATE-DEPENDENTS0 B0 . PC-READ-WRITE) (IMMEDIATE-DEPENDENTS0 B0P . PC-READ-WRITE) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . PC-READ-WRITE) (IMMEDIATE-DEPENDENTS0 READ-WRITE . PC-READ-WRITE) (IMMEDIATE-DEPENDENTS0 WRITE . PC-READ-WRITE) (IMMEDIATE-DEPENDENTS0 PC-READ . PC-READ-WRITE) (IMMEDIATE-DEPENDENTS0 PC-READP . PC-READ-WRITE) (IMMEDIATE-DEPENDENTS0 WRITEP . PC-READ-WRITE) (LEMMAS PC-READ . PC-READ-WRITE))))) (PUT1-LST (QUOTE READ-WRITE) (QUOTE (IDATE 1000402214959 IMMEDIATE-DEPENDENTS0 (BYTE-READ-WRITE PC-READ-WRITE) EVENT (PROVE-LEMMA READ-WRITE (REWRITE) (EQUAL (READ Y N (WRITE VALUE X N BT)) (IF (MODN-EQ N X Y) VALUE (READ Y N BT)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BITN-0-1 . READ-WRITE) (IMMEDIATE-DEPENDENTS0 MAKE-BT . READ-WRITE) (IMMEDIATE-DEPENDENTS0 BRANCH1 . READ-WRITE) (IMMEDIATE-DEPENDENTS0 BRANCH0 . READ-WRITE) (IMMEDIATE-DEPENDENTS0 VALUE-FIELD . READ-WRITE) (IMMEDIATE-DEPENDENTS0 BCAR . READ-WRITE) (IMMEDIATE-DEPENDENTS0 TAIL . READ-WRITE) (IMMEDIATE-DEPENDENTS0 BITN . READ-WRITE) (IMMEDIATE-DEPENDENTS0 B0 . READ-WRITE) (IMMEDIATE-DEPENDENTS0 B0P . READ-WRITE) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . READ-WRITE) (IMMEDIATE-DEPENDENTS0 MODN-EQ . READ-WRITE) (IMMEDIATE-DEPENDENTS0 WRITE . READ-WRITE) (IMMEDIATE-DEPENDENTS0 READ . READ-WRITE) (LEMMAS READ . READ-WRITE))))) (PUT1-LST (QUOTE *1*MODN-EQ) (QUOTE (MAIN-EVENT MODN-EQ))) (PUT1-LST (QUOTE MODN-EQ) (QUOTE (TYPE-PRESCRIPTION-LST ((MODN-EQ 3 NIL NIL NIL)) LEMMAS ((REWRITE-RULE MODN-EQ-EQUAL NIL (EQUAL (MODN-EQ N X Y) (EQUAL (HEAD X N) (HEAD Y N))) NIL)) TOTALP-LST ((MODN-EQ . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE UNCHANGING UNCHANGING) SDEFN (LAMBDA (N X Y) (IF (EQUAL N (QUOTE 0)) (QUOTE *1*TRUE) (IF (NUMBERP N) (IF (EQUAL (BITN X (SUB1 N)) (BITN Y (SUB1 N))) (IF (MODN-EQ (SUB1 N) X Y) (QUOTE *1*TRUE) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*TRUE)))) LISP-CODE *1*MODN-EQ SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((ZEROP N)) NIL) (TESTS-AND-CASES ((NOT (ZEROP N))) (((SUB1 N) X Y)))) LEVEL-NO 4 JUSTIFICATIONS ((JUSTIFICATION (N) (COUNT N) LESSP (ZEROP COUNT-NUMBERP LESSP-SUB1))) IDATE 1000402214958 CONTROLLER-POCKETS (1) SATELLITES (*1*MODN-EQ) IMMEDIATE-DEPENDENTS0 (MODN-EQ-EQUAL WRITE-WRITE-LA PC-READ-WRITE READ-WRITE) EVENT (DEFN MODN-EQ (N X Y) (IF (ZEROP N) (QUOTE *1*TRUE) (AND (EQUAL (BITN X (SUB1 N)) (BITN Y (SUB1 N))) (MODN-EQ (SUB1 N) X Y)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BITN . MODN-EQ) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . MODN-EQ) (DCELL . *1*MODN-EQ))))) (PUT1-LST (QUOTE WRITEP->READP) (QUOTE (IDATE 1000402214958 IMMEDIATE-DEPENDENTS0 (BYTE-WRITEP->READP) EVENT (PROVE-LEMMA WRITEP->READP (REWRITE) (IMPLIES (WRITEP X N MAP) (READP X N MAP))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 VALUE-FIELD . WRITEP->READP) (IMMEDIATE-DEPENDENTS0 BCAR . WRITEP->READP) (IMMEDIATE-DEPENDENTS0 TAIL . WRITEP->READP) (IMMEDIATE-DEPENDENTS0 BITN . WRITEP->READP) (IMMEDIATE-DEPENDENTS0 B0 . WRITEP->READP) (IMMEDIATE-DEPENDENTS0 B0P . WRITEP->READP) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . WRITEP->READP) (IMMEDIATE-DEPENDENTS0 READP . WRITEP->READP) (IMMEDIATE-DEPENDENTS0 WRITEP . WRITEP->READP) (LEMMAS READP . WRITEP->READP))))) (PUT1-LST (QUOTE PC-READP->READP) (QUOTE (IDATE 1000402214958 IMMEDIATE-DEPENDENTS0 (PC-BYTE-READP->BYTE-READP) EVENT (PROVE-LEMMA PC-READP->READP (REWRITE) (IMPLIES (PC-READP X N MAP) (READP X N MAP))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 VALUE-FIELD . PC-READP->READP) (IMMEDIATE-DEPENDENTS0 BCAR . PC-READP->READP) (IMMEDIATE-DEPENDENTS0 TAIL . PC-READP->READP) (IMMEDIATE-DEPENDENTS0 BITN . PC-READP->READP) (IMMEDIATE-DEPENDENTS0 B0 . PC-READP->READP) (IMMEDIATE-DEPENDENTS0 B0P . PC-READP->READP) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . PC-READP->READP) (IMMEDIATE-DEPENDENTS0 READP . PC-READP->READP) (IMMEDIATE-DEPENDENTS0 PC-READP . PC-READP->READP) (LEMMAS READP . PC-READP->READP))))) (PUT1-LST (QUOTE GET-VLST-OFF) (QUOTE (IDATE 1000402214958 EVENT (TOGGLE GET-VLST-OFF GET-VLST T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 GET-VLST . GET-VLST-OFF) (DISABLED-LEMMAS NIL GET-VLST GET-VLST-OFF . T))))) (PUT1-LST (QUOTE GET-VLST-MEMBER-OFF) (QUOTE (IDATE 1000402214958 EVENT (TOGGLE GET-VLST-MEMBER-OFF GET-VLST-MEMBER T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 GET-VLST-MEMBER . GET-VLST-MEMBER-OFF) (DISABLED-LEMMAS NIL GET-VLST-MEMBER GET-VLST-MEMBER-OFF . T))))) (PUT1-LST (QUOTE READ-RN-0-OFF) (QUOTE (IDATE 1000402214958 EVENT (TOGGLE READ-RN-0-OFF READ-RN-0 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 READ-RN-0 . READ-RN-0-OFF) (DISABLED-LEMMAS NIL READ-RN-0 READ-RN-0-OFF . T))))) (PUT1-LST (QUOTE GET-VLST-READM-RN) (QUOTE (IDATE 1000402214958 IMMEDIATE-DEPENDENTS0 (GCD-CORRECTNESS) EVENT (PROVE-LEMMA GET-VLST-READM-RN (REWRITE) (IMPLIES (IF (LESSP N2 N1) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (EQUAL (GET-VLST N1 (QUOTE 0) RN RNLST (READM-RN N2 RNLST RFILE)) (IF (N-MEMBER RN RNLST) (READ-RN N1 RN RFILE) (QUOTE 0))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 HEAD-READ-RN . GET-VLST-READM-RN) (IMMEDIATE-DEPENDENTS0 READ-RN-0 . GET-VLST-READM-RN) (IMMEDIATE-DEPENDENTS0 GET-VLST-MEMBER . GET-VLST-READM-RN) (IMMEDIATE-DEPENDENTS0 READ-RN . GET-VLST-READM-RN) (IMMEDIATE-DEPENDENTS0 N-MEMBER . GET-VLST-READM-RN) (IMMEDIATE-DEPENDENTS0 READM-RN . GET-VLST-READM-RN) (IMMEDIATE-DEPENDENTS0 GET-VLST . GET-VLST-READM-RN) (LEMMAS GET-VLST . GET-VLST-READM-RN))))) (PUT1-LST (QUOTE READ-RN-0) (QUOTE (IDATE 1000402214958 IMMEDIATE-DEPENDENTS0 (READ-RN-0-OFF GET-VLST-READM-RN) EVENT (PROVE-LEMMA READ-RN-0 (REWRITE) (IMPLIES (NOT (NUMBERP RN)) (EQUAL (READ-RN OPLEN RN RFILE) (READ-RN OPLEN (QUOTE 0) RFILE))) ((ENABLE READ-RN))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 GET-NTH . READ-RN-0) (IMMEDIATE-DEPENDENTS0 READ-RN . READ-RN-0) (LEMMAS READ-RN . READ-RN-0))))) (PUT1-LST (QUOTE READM-WRITE-RN) (QUOTE (IDATE 1000402214958 IMMEDIATE-DEPENDENTS0 (GCD-S-S0-MEM GCD-S-S0-RFILE GCD-S-S0) EVENT (PROVE-LEMMA READM-WRITE-RN (REWRITE) (IMPLIES (NOT (N-MEMBER RN RNLST)) (EQUAL (READM-RN N1 RNLST (WRITE-RN N2 VALUE RN RFILE)) (READM-RN N1 RNLST RFILE)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 READ-WRITE-RN . READM-WRITE-RN) (IMMEDIATE-DEPENDENTS0 WRITE-RN . READM-WRITE-RN) (IMMEDIATE-DEPENDENTS0 READM-RN . READM-WRITE-RN) (IMMEDIATE-DEPENDENTS0 N-MEMBER . READM-WRITE-RN) (LEMMAS READM-RN . READM-WRITE-RN))))) (PUT1-LST (QUOTE READ-WRITEM-RN-END-OFF) (QUOTE (IDATE 1000402214958 EVENT (TOGGLE READ-WRITEM-RN-END-OFF READ-WRITEM-RN-END T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 READ-WRITEM-RN-END . READ-WRITEM-RN-END-OFF) (DISABLED-LEMMAS NIL READ-WRITEM-RN-END READ-WRITEM-RN-END-OFF . T))))) (PUT1-LST (QUOTE READ-WRITEM-RN) (QUOTE (IDATE 1000402214958 IMMEDIATE-DEPENDENTS0 (GCD-S0-SN-BASE-RFILE-2 GCD-S0-SN-BASE-2 GCD-S0-SN-BASE-RFILE-1 GCD-S0-SN-BASE-1) EVENT (PROVE-LEMMA READ-WRITEM-RN (REWRITE) (EQUAL (READ-RN N1 RN (WRITEM-RN N2 VLST RNLST RFILE)) (IF (N-MEMBER RN RNLST) (IF (AND (IF (LESSP N2 N1) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (IF (LESSP (QUOTE 32) N2) (QUOTE *1*FALSE) (QUOTE *1*TRUE))) (GET-VLST N1 (QUOTE 0) RN RNLST VLST) (READ-WRITEM-RN-END N1 RN N2 VLST RNLST RFILE)) (READ-RN N1 RN RFILE))) ((INDUCT (WRITEM-RN N2 VLST RNLST RFILE)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 HEAD-EXT . READ-WRITEM-RN) (IMMEDIATE-DEPENDENTS0 GET-VLST-MEMBER . READ-WRITEM-RN) (IMMEDIATE-DEPENDENTS0 READ-WRITE-RN . READ-WRITEM-RN) (IMMEDIATE-DEPENDENTS0 L . READ-WRITEM-RN) (IMMEDIATE-DEPENDENTS0 READ-WRITEM-RN-END . READ-WRITEM-RN) (IMMEDIATE-DEPENDENTS0 GET-VLST . READ-WRITEM-RN) (IMMEDIATE-DEPENDENTS0 N-MEMBER . READ-WRITEM-RN) (IMMEDIATE-DEPENDENTS0 WRITEM-RN . READ-WRITEM-RN) (IMMEDIATE-DEPENDENTS0 READ-RN . READ-WRITEM-RN) (LEMMAS READ-RN . READ-WRITEM-RN))))) (PUT1-LST (QUOTE *1*READ-WRITEM-RN-END) (QUOTE (MAIN-EVENT READ-WRITEM-RN-END))) (PUT1-LST (QUOTE READ-WRITEM-RN-END) (QUOTE (TYPE-PRESCRIPTION-LST ((READ-WRITEM-RN-END 4 NIL NIL NIL NIL NIL NIL)) TOTALP-LST ((READ-WRITEM-RN-END . T)) SDEFN (LAMBDA (N1 RN N2 VLST RNLST RFILE) (READ-RN N1 RN (WRITEM-RN N2 VLST RNLST RFILE))) LISP-CODE *1*READ-WRITEM-RN-END SUBRP *1*FALSE LEVEL-NO 4 IDATE 1000402214957 SATELLITES (*1*READ-WRITEM-RN-END) IMMEDIATE-DEPENDENTS0 (READ-WRITEM-RN-END-OFF READ-WRITEM-RN) EVENT (DEFN READ-WRITEM-RN-END (N1 RN N2 VLST RNLST RFILE) (READ-RN N1 RN (WRITEM-RN N2 VLST RNLST RFILE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 WRITEM-RN . READ-WRITEM-RN-END) (IMMEDIATE-DEPENDENTS0 READ-RN . READ-WRITEM-RN-END) (DCELL . *1*READ-WRITEM-RN-END))))) (PUT1-LST (QUOTE GET-VLST-MEMBER) (QUOTE (IDATE 1000402214957 IMMEDIATE-DEPENDENTS0 (GET-VLST-MEMBER-OFF GET-VLST-READM-RN READ-WRITEM-RN) EVENT (PROVE-LEMMA GET-VLST-MEMBER (REWRITE) (IMPLIES (NUMBERP VALUE) (EQUAL (GET-VLST OPLEN VALUE RN RNLST VLST) (IF (N-MEMBER RN RNLST) (GET-VLST OPLEN (QUOTE NIL) RN RNLST VLST) VALUE)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 N-MEMBER . GET-VLST-MEMBER) (IMMEDIATE-DEPENDENTS0 GET-VLST . GET-VLST-MEMBER) (LEMMAS GET-VLST . GET-VLST-MEMBER))))) (PUT1-LST (QUOTE *1*GET-VLST) (QUOTE (MAIN-EVENT GET-VLST))) (PUT1-LST (QUOTE GET-VLST) (QUOTE (TYPE-PRESCRIPTION-LST ((GET-VLST 4 NIL T NIL NIL NIL)) LEMMAS ((REWRITE-RULE GET-VLST-READM-RN ((NOT (LESSP N2 N1))) (EQUAL (GET-VLST N1 (QUOTE 0) RN RNLST (READM-RN N2 RNLST RFILE)) (IF (N-MEMBER RN RNLST) (READ-RN N1 RN RFILE) (QUOTE 0))) NIL) (REWRITE-RULE GET-VLST-MEMBER ((NUMBERP VALUE)) (EQUAL (GET-VLST OPLEN VALUE RN RNLST VLST) (IF (N-MEMBER RN RNLST) (GET-VLST OPLEN (QUOTE NIL) RN RNLST VLST) VALUE)) NIL)) TOTALP-LST ((GET-VLST . T)) QUICK-BLOCK-INFO (UNCHANGING QUESTIONABLE UNCHANGING SELF-REFLEXIVE SELF-REFLEXIVE) SDEFN (LAMBDA (OPLEN VALUE RN RNLST VLST) (IF (LISTP RNLST) (IF (NUMBERP RN) (IF (NUMBERP (CAR RNLST)) (IF (EQUAL RN (CAR RNLST)) (GET-VLST OPLEN (HEAD (CAR VLST) OPLEN) RN (CDR RNLST) (CDR VLST)) (GET-VLST OPLEN VALUE RN (CDR RNLST) (CDR VLST))) (IF (EQUAL RN (QUOTE 0)) (GET-VLST OPLEN (HEAD (CAR VLST) OPLEN) RN (CDR RNLST) (CDR VLST)) (GET-VLST OPLEN VALUE RN (CDR RNLST) (CDR VLST)))) (IF (NUMBERP (CAR RNLST)) (IF (EQUAL (QUOTE 0) (CAR RNLST)) (GET-VLST OPLEN (HEAD (CAR VLST) OPLEN) RN (CDR RNLST) (CDR VLST)) (GET-VLST OPLEN VALUE RN (CDR RNLST) (CDR VLST))) (GET-VLST OPLEN (HEAD (CAR VLST) OPLEN) RN (CDR RNLST) (CDR VLST)))) VALUE)) LISP-CODE *1*GET-VLST SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((NLISTP RNLST)) NIL) (TESTS-AND-CASES ((NOT (NLISTP RNLST)) (EQUAL (FIX RN) (FIX (CAR RNLST)))) ((OPLEN (HEAD (CAR VLST) OPLEN) RN (CDR RNLST) (CDR VLST)))) (TESTS-AND-CASES ((NOT (NLISTP RNLST)) (NOT (EQUAL (FIX RN) (FIX (CAR RNLST))))) ((OPLEN VALUE RN (CDR RNLST) (CDR VLST))))) LEVEL-NO 4 JUSTIFICATIONS ((JUSTIFICATION (RNLST) (COUNT RNLST) LESSP (CDR-LESSP NLISTP FIX ZERO CDR-LESSEQP))) IDATE 1000402214957 CONTROLLER-POCKETS (8) SATELLITES (*1*GET-VLST) IMMEDIATE-DEPENDENTS0 (GCD-S0-SN-RFILE GCD-S0-SN-BASE-RFILE-2 GCD-S0-SN-BASE-RFILE-1 GET-VLST-OFF GET-VLST-READM-RN READ-WRITEM-RN GET-VLST-MEMBER) EVENT (DEFN GET-VLST (OPLEN VALUE RN RNLST VLST) (IF (NLISTP RNLST) VALUE (IF (EQUAL (FIX RN) (FIX (CAR RNLST))) (GET-VLST OPLEN (HEAD (CAR VLST) OPLEN) RN (CDR RNLST) (CDR VLST)) (GET-VLST OPLEN VALUE RN (CDR RNLST) (CDR VLST))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 HEAD . GET-VLST) (DCELL . *1*GET-VLST))))) (PUT1-LST (QUOTE READM-RN-LEN) (QUOTE (IDATE 1000402214957 IMMEDIATE-DEPENDENTS0 (GCD-S-S0-MEM GCD-S-S0-RFILE GCD-S-S0 MISC-GROUP-H) EVENT (PROVE-LEMMA READM-RN-LEN (REWRITE) (EQUAL (LEN (READM-RN OPLEN RNLST RFILE)) (LEN RNLST))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 READM-RN . READM-RN-LEN) (IMMEDIATE-DEPENDENTS0 LEN . READM-RN-LEN) (LEMMAS LEN . READM-RN-LEN))))) (PUT1-LST (QUOTE WRITE-RN-OFF) (QUOTE (IDATE 1000402214957 EVENT (TOGGLE WRITE-RN-OFF WRITE-RN T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 WRITE-RN . WRITE-RN-OFF) (DISABLED-LEMMAS NIL WRITE-RN WRITE-RN-OFF . T))))) (PUT1-LST (QUOTE READ-RN-OFF) (QUOTE (IDATE 1000402214957 EVENT (TOGGLE READ-RN-OFF READ-RN T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 READ-RN . READ-RN-OFF) (DISABLED-LEMMAS NIL READ-RN READ-RN-OFF . T))))) (PUT1-LST (QUOTE WRITE-RN-LEN) (QUOTE (IDATE 1000402214957 EVENT (PROVE-LEMMA WRITE-RN-LEN (REWRITE) (EQUAL (LEN (WRITE-RN OPLEN VALUE RN RFILE)) (IF (LESSP RN (LEN RFILE)) (LEN RFILE) (ADD1 RN)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PUT-NTH-LEN . WRITE-RN-LEN) (IMMEDIATE-DEPENDENTS0 WRITE-RN . WRITE-RN-LEN) (IMMEDIATE-DEPENDENTS0 LEN . WRITE-RN-LEN) (LEMMAS LEN . WRITE-RN-LEN))))) (PUT1-LST (QUOTE WRITE-WRITE-RN) (QUOTE (IDATE 1000402214957 IMMEDIATE-DEPENDENTS0 (GCD-S0-S0-RFILE-2 GCD-S0-S0-RFILE-1 GCD-S0-S0-2 GCD-S0-S0-1 GCD-S-S0-MEM GCD-S-S0-RFILE GCD-S-S0 MISC-GROUP-H CMP-GROUP-H SUB-GROUP-H ADD-GROUP-H) EVENT (PROVE-LEMMA WRITE-WRITE-RN (REWRITE) (IMPLIES (IF (LESSP N2 N1) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (EQUAL (WRITE-RN N2 V2 RN (WRITE-RN N1 V1 RN RFILE)) (WRITE-RN N2 V2 RN RFILE)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PUT-PUT . WRITE-WRITE-RN) (IMMEDIATE-DEPENDENTS0 REPLACE-LEQ1 . WRITE-WRITE-RN) (IMMEDIATE-DEPENDENTS0 GET-PUT . WRITE-WRITE-RN) (IMMEDIATE-DEPENDENTS0 WRITE-RN . WRITE-WRITE-RN) (LEMMAS WRITE-RN . WRITE-WRITE-RN))))) (PUT1-LST (QUOTE READ-WRITE-RN) (QUOTE (IDATE 1000402214957 IMMEDIATE-DEPENDENTS0 (GCD-S0-S0-RFILE-2 GCD-S0-S0-RFILE-1 GCD-S0-S0-2 GCD-S0-S0-1 GCD-S0-SN-BASE-RFILE-2 GCD-S0-SN-BASE-2 GCD-S0-SN-BASE-RFILE-1 GCD-S0-SN-BASE-1 GCD-S-S0-MEM GCD-S-S0-RFILE GCD-S-S0 CMP-GROUP-H SUB-GROUP-H ADD-GROUP-H READM-WRITE-RN READ-WRITEM-RN) EVENT (PROVE-LEMMA READ-WRITE-RN (REWRITE) (EQUAL (READ-RN N2 RN (WRITE-RN N1 VALUE RM RFILE)) (IF (EQUAL (FIX RM) (FIX RN)) (IF (IF (LESSP N1 N2) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (HEAD VALUE N2) (REPLACE N1 VALUE (READ-RN N2 RN RFILE))) (READ-RN N2 RN RFILE)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 HEAD-REPLACE . READ-WRITE-RN) (IMMEDIATE-DEPENDENTS0 GET-NTH . READ-WRITE-RN) (IMMEDIATE-DEPENDENTS0 GET-PUT . READ-WRITE-RN) (IMMEDIATE-DEPENDENTS0 REPLACE . READ-WRITE-RN) (IMMEDIATE-DEPENDENTS0 HEAD . READ-WRITE-RN) (IMMEDIATE-DEPENDENTS0 WRITE-RN . READ-WRITE-RN) (IMMEDIATE-DEPENDENTS0 READ-RN . READ-WRITE-RN) (LEMMAS READ-RN . READ-WRITE-RN))))) (PUT1-LST (QUOTE *1*READ-WRITE-RN-END) (QUOTE (MAIN-EVENT READ-WRITE-RN-END))) (PUT1-LST (QUOTE READ-WRITE-RN-END) (QUOTE (TYPE-PRESCRIPTION-LST ((READ-WRITE-RN-END 4 NIL NIL NIL NIL NIL NIL)) TOTALP-LST ((READ-WRITE-RN-END . T)) SDEFN (LAMBDA (N2 RN N1 VALUE RM RFILE) (READ-RN N2 RN (WRITE-RN N1 VALUE RM RFILE))) LISP-CODE *1*READ-WRITE-RN-END SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214957 SATELLITES (*1*READ-WRITE-RN-END) EVENT (DEFN READ-WRITE-RN-END (N2 RN N1 VALUE RM RFILE) (READ-RN N2 RN (WRITE-RN N1 VALUE RM RFILE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 WRITE-RN . READ-WRITE-RN-END) (IMMEDIATE-DEPENDENTS0 READ-RN . READ-WRITE-RN-END) (DCELL . *1*READ-WRITE-RN-END))))) (PUT1-LST (QUOTE HEAD-READ-RN) (QUOTE (IDATE 1000402214957 IMMEDIATE-DEPENDENTS0 (GCD-S0-SN-BASE-2 GCD-S0-SN-BASE-1 GCD-S-S0 MISC-GROUP-H S&R-GROUP-H BIT-GROUP-H MODN-READM-RN GET-VLST-READM-RN) EVENT (PROVE-LEMMA HEAD-READ-RN (REWRITE) (IMPLIES (IF (LESSP N2 N1) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (EQUAL (HEAD (READ-RN N2 RN RFILE) N1) (READ-RN N1 RN RFILE)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 HEAD-LESSP . HEAD-READ-RN) (IMMEDIATE-DEPENDENTS0 EXP . HEAD-READ-RN) (IMMEDIATE-DEPENDENTS0 HEAD-OF-0 . HEAD-READ-RN) (IMMEDIATE-DEPENDENTS0 HEAD-HEAD . HEAD-READ-RN) (IMMEDIATE-DEPENDENTS0 READ-RN . HEAD-READ-RN) (IMMEDIATE-DEPENDENTS0 HEAD . HEAD-READ-RN) (LEMMAS HEAD . HEAD-READ-RN))))) (PUT1-LST (QUOTE PUT-NTH-LEN) (QUOTE (IDATE 1000402214957 IMMEDIATE-DEPENDENTS0 (WRITE-RN-LEN) EVENT (PROVE-LEMMA PUT-NTH-LEN (REWRITE) (EQUAL (LEN (PUT-NTH VALUE N LST)) (IF (LESSP N (LEN LST)) (LEN LST) (ADD1 N)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . PUT-NTH-LEN) (IMMEDIATE-DEPENDENTS0 PUT-NTH . PUT-NTH-LEN) (IMMEDIATE-DEPENDENTS0 LEN . PUT-NTH-LEN) (LEMMAS LEN . PUT-NTH-LEN))))) (PUT1-LST (QUOTE PUT-GET) (QUOTE (IDATE 1000402214957 EVENT (PROVE-LEMMA PUT-GET (REWRITE) (IMPLIES (LESSP N (LEN LST)) (EQUAL (PUT-NTH (GET-NTH N LST) N LST) LST))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 GET-NTH . PUT-GET) (IMMEDIATE-DEPENDENTS0 PUT-NTH . PUT-GET) (IMMEDIATE-DEPENDENTS0 LEN . PUT-GET) (LEMMAS PUT-NTH . PUT-GET))))) (PUT1-LST (QUOTE PUT-PUT) (QUOTE (IDATE 1000402214957 IMMEDIATE-DEPENDENTS0 (WRITE-WRITE-RN) EVENT (PROVE-LEMMA PUT-PUT (REWRITE) (EQUAL (PUT-NTH VALUE1 N (PUT-NTH VALUE N LST)) (PUT-NTH VALUE1 N LST))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . PUT-PUT) (IMMEDIATE-DEPENDENTS0 PUT-NTH . PUT-PUT) (LEMMAS PUT-NTH . PUT-PUT))))) (PUT1-LST (QUOTE GET-PUT) (QUOTE (IDATE 1000402214957 IMMEDIATE-DEPENDENTS0 (SLEN-PUT SLEN-PUT0 GET-SWAP WRITE-WRITE-RN READ-WRITE-RN) EVENT (PROVE-LEMMA GET-PUT (REWRITE) (EQUAL (GET-NTH N (PUT-NTH VALUE M LST)) (IF (EQUAL (FIX M) (FIX N)) VALUE (GET-NTH N LST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUB1-OF-1 . GET-PUT) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . GET-PUT) (IMMEDIATE-DEPENDENTS0 GET-NTH-NIL . GET-PUT) (IMMEDIATE-DEPENDENTS0 PUT-NTH . GET-PUT) (IMMEDIATE-DEPENDENTS0 GET-NTH . GET-PUT) (LEMMAS GET-NTH . GET-PUT))))) (PUT1-LST (QUOTE GET-NTH-NIL) (QUOTE (IDATE 1000402214957 IMMEDIATE-DEPENDENTS0 (GET-LST-OF-CHRP GET-LST-INTEGERP GET-LST-INT MCAR-NTH MEM-ILST-INTEGERP MEM-LST-NUMBERP MEM-ILST-INT-RANGEP MEM-LST-NAT-RANGEP PC-BYTE-READ-MCODE1 GET-PUT) EVENT (PROVE-LEMMA GET-NTH-NIL (REWRITE) (AND (EQUAL (GET-NTH N (QUOTE NIL)) (QUOTE 0)) (EQUAL (GET-NTH N (QUOTE 0)) (QUOTE 0)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . GET-NTH-NIL) (IMMEDIATE-DEPENDENTS0 GET-NTH . GET-NTH-NIL) (LEMMAS GET-NTH . GET-NTH-NIL) (LEMMAS GET-NTH . GET-NTH-NIL))))) (PUT1-LST (QUOTE PUT-NTH-0-OFF) (QUOTE (IDATE 1000402214957 EVENT (TOGGLE PUT-NTH-0-OFF PUT-NTH-0 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PUT-NTH-0 . PUT-NTH-0-OFF) (DISABLED-LEMMAS NIL PUT-NTH-0 PUT-NTH-0-OFF . T))))) (PUT1-LST (QUOTE GET-NTH-0-OFF) (QUOTE (IDATE 1000402214957 EVENT (TOGGLE GET-NTH-0-OFF GET-NTH-0 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 GET-NTH-0 . GET-NTH-0-OFF) (DISABLED-LEMMAS NIL GET-NTH-0 GET-NTH-0-OFF . T))))) (PUT1-LST (QUOTE PUT-NTH-0) (QUOTE (IDATE 1000402214957 IMMEDIATE-DEPENDENTS0 (LSTCPY-ADD1 LSTCPY-LSTCPY WRITE-MEM-ILST-INT WRITE-MEM-LST-INT PUT-NTH-0-OFF) EVENT (PROVE-LEMMA PUT-NTH-0 (REWRITE) (IMPLIES (NOT (NUMBERP I)) (EQUAL (PUT-NTH V I LST) (PUT-NTH V (QUOTE 0) LST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PUT-NTH . PUT-NTH-0) (LEMMAS PUT-NTH . PUT-NTH-0))))) (PUT1-LST (QUOTE GET-NTH-0) (QUOTE (IDATE 1000402214957 IMMEDIATE-DEPENDENTS0 (SLEN-01 LSTCPY-ADD1 LSTCPY-LSTCPY GET-NTH-0-OFF) EVENT (PROVE-LEMMA GET-NTH-0 (REWRITE) (IMPLIES (NOT (NUMBERP I)) (EQUAL (GET-NTH I LST) (GET-NTH (QUOTE 0) LST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 GET-NTH . GET-NTH-0) (LEMMAS GET-NTH . GET-NTH-0))))) (PUT1-LST (QUOTE MC-STATE-OFF) (QUOTE (IDATE 1000402214957 EVENT (TOGGLE MC-STATE-OFF MC-STATE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MC-STATE . MC-STATE-OFF) (DISABLED-LEMMAS NIL MC-STATE MC-STATE-OFF . T))))) (PUT1-LST (QUOTE MC-MEM-OFF) (QUOTE (IDATE 1000402214957 EVENT (TOGGLE MC-MEM-OFF MC-MEM T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MC-MEM . MC-MEM-OFF) (DISABLED-LEMMAS NIL MC-MEM MC-MEM-OFF . T))))) (PUT1-LST (QUOTE MC-CCR-OFF) (QUOTE (IDATE 1000402214957 EVENT (TOGGLE MC-CCR-OFF MC-CCR T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MC-CCR . MC-CCR-OFF) (DISABLED-LEMMAS NIL MC-CCR MC-CCR-OFF . T))))) (PUT1-LST (QUOTE MC-PC-OFF) (QUOTE (IDATE 1000402214957 EVENT (TOGGLE MC-PC-OFF MC-PC T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MC-PC . MC-PC-OFF) (DISABLED-LEMMAS NIL MC-PC MC-PC-OFF . T))))) (PUT1-LST (QUOTE MC-RFILE-OFF) (QUOTE (IDATE 1000402214957 EVENT (TOGGLE MC-RFILE-OFF MC-RFILE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MC-RFILE . MC-RFILE-OFF) (DISABLED-LEMMAS NIL MC-RFILE MC-RFILE-OFF . T))))) (PUT1-LST (QUOTE MC-STATUS-OFF) (QUOTE (IDATE 1000402214957 EVENT (TOGGLE MC-STATUS-OFF MC-STATUS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MC-STATUS . MC-STATUS-OFF) (DISABLED-LEMMAS NIL MC-STATUS MC-STATUS-OFF . T))))) (PUT1-LST (QUOTE MC-CCR-RANGEP) (QUOTE (IDATE 1000402214957 IMMEDIATE-DEPENDENTS0 (GCD-S0-S0-RFILE-2 GCD-S0-S0-RFILE-1 GCD-S0-S0-2 GCD-S0-S0-1 GCD-S0-SN-BASE-RFILE-2 GCD-S0-SN-BASE-2 GCD-S0-SN-BASE-RFILE-1 GCD-S0-SN-BASE-1 GCD-S-S0-MEM GCD-S-S0-RFILE GCD-S-S0 STEPI-H MISC-GROUP-H BIT-GROUP-H BCC-GROUP-H CMP-GROUP-H SCC-GROUP-H OR-GROUP-H AND-GROUP-H SUB-GROUP-H ADD-GROUP-H) EVENT (PROVE-LEMMA MC-CCR-RANGEP (REWRITE) (NAT-RANGEP (MC-CCR S) (QUOTE 8))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 HEAD-NAT-RANGEP . MC-CCR-RANGEP) (IMMEDIATE-DEPENDENTS0 B . MC-CCR-RANGEP) (IMMEDIATE-DEPENDENTS0 MC-CCR . MC-CCR-RANGEP) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . MC-CCR-RANGEP) (LEMMAS NAT-RANGEP . MC-CCR-RANGEP))))) (PUT1-LST (QUOTE MC-PC-RANGEP) (QUOTE (IDATE 1000402214957 IMMEDIATE-DEPENDENTS0 (GCD-S0-S0-RFILE-2 GCD-S0-S0-RFILE-1 GCD-S0-S0-2 GCD-S0-S0-1 GCD-S-S0 MISC-GROUP-H CMP-GROUP-H OR-GROUP-H AND-GROUP-H SUB-GROUP-H ADD-GROUP-H) EVENT (PROVE-LEMMA MC-PC-RANGEP (REWRITE) (NAT-RANGEP (MC-PC S) (QUOTE 32))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 HEAD-NAT-RANGEP . MC-PC-RANGEP) (IMMEDIATE-DEPENDENTS0 L . MC-PC-RANGEP) (IMMEDIATE-DEPENDENTS0 MC-PC . MC-PC-RANGEP) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . MC-PC-RANGEP) (LEMMAS NAT-RANGEP . MC-PC-RANGEP))))) (PUT1-LST (QUOTE MC-MEM-REWRITE) (QUOTE (IDATE 1000402214957 IMMEDIATE-DEPENDENTS0 (GCD-S0-S0-RFILE-2 GCD-S0-S0-RFILE-1 GCD-S0-S0-2 GCD-S0-S0-1 GCD-S0-SN-BASE-RFILE-2 GCD-S0-SN-BASE-2 GCD-S0-SN-BASE-RFILE-1 GCD-S0-SN-BASE-1 GCD-S-S0-MEM GCD-S-S0-RFILE GCD-S-S0 STEPI-H MISC-GROUP-H S&R-GROUP-H MOVE-GROUP-H MOVE-H BIT-GROUP-H BCC-GROUP-H CMP-GROUP-H SCC-GROUP-H OR-GROUP-H AND-GROUP-H SUB-GROUP-H ADD-GROUP-H MAPPING-H MC-INSTATE-MEM EFFEC-ADDR-MEM IMMEDIATE-MEM ADDR-INDEX2-MEM) EVENT (PROVE-LEMMA MC-MEM-REWRITE (REWRITE) (EQUAL (MC-MEM (MC-STATE STATUS RFILE PC CCR MEM)) MEM)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MC-STATE . MC-MEM-REWRITE) (IMMEDIATE-DEPENDENTS0 MC-MEM . MC-MEM-REWRITE) (LEMMAS MC-MEM . MC-MEM-REWRITE))))) (PUT1-LST (QUOTE MC-CCR-REWRITE) (QUOTE (IDATE 1000402214957 IMMEDIATE-DEPENDENTS0 (GCD-S0-S0-RFILE-2 GCD-S0-S0-RFILE-1 GCD-S0-S0-2 GCD-S0-S0-1 GCD-S0-SN-BASE-RFILE-2 GCD-S0-SN-BASE-2 GCD-S0-SN-BASE-RFILE-1 GCD-S0-SN-BASE-1 GCD-S-S0-MEM GCD-S-S0-RFILE GCD-S-S0 STEPI-H MISC-GROUP-H BIT-GROUP-H BCC-GROUP-H CMP-GROUP-H SCC-GROUP-H OR-GROUP-H AND-GROUP-H SUB-GROUP-H ADD-GROUP-H) EVENT (PROVE-LEMMA MC-CCR-REWRITE (REWRITE) (IMPLIES (NAT-RANGEP CCR (QUOTE 8)) (EQUAL (MC-CCR (MC-STATE STATUS RFILE PC CCR MEM)) (FIX CCR)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 HEAD-LEMMA . MC-CCR-REWRITE) (IMMEDIATE-DEPENDENTS0 B . MC-CCR-REWRITE) (IMMEDIATE-DEPENDENTS0 MC-STATE . MC-CCR-REWRITE) (IMMEDIATE-DEPENDENTS0 MC-CCR . MC-CCR-REWRITE) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . MC-CCR-REWRITE) (LEMMAS MC-CCR . MC-CCR-REWRITE))))) (PUT1-LST (QUOTE MC-PC-REWRITE) (QUOTE (IDATE 1000402214957 IMMEDIATE-DEPENDENTS0 (GCD-S0-S0-RFILE-2 GCD-S0-S0-RFILE-1 GCD-S0-S0-2 GCD-S0-S0-1 GCD-S0-SN-BASE-RFILE-2 GCD-S0-SN-BASE-2 GCD-S0-SN-BASE-RFILE-1 GCD-S0-SN-BASE-1 GCD-S-S0-MEM GCD-S-S0-RFILE GCD-S-S0 STEPI-H MISC-GROUP-H BIT-GROUP-H BCC-GROUP-H CMP-GROUP-H OR-GROUP-H AND-GROUP-H SUB-GROUP-H ADD-GROUP-H) EVENT (PROVE-LEMMA MC-PC-REWRITE (REWRITE) (IMPLIES (NAT-RANGEP PC (QUOTE 32)) (EQUAL (MC-PC (MC-STATE STATUS RFILE PC CCR MEM)) (FIX PC)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 HEAD-LEMMA . MC-PC-REWRITE) (IMMEDIATE-DEPENDENTS0 L . MC-PC-REWRITE) (IMMEDIATE-DEPENDENTS0 MC-STATE . MC-PC-REWRITE) (IMMEDIATE-DEPENDENTS0 MC-PC . MC-PC-REWRITE) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . MC-PC-REWRITE) (LEMMAS MC-PC . MC-PC-REWRITE))))) (PUT1-LST (QUOTE MC-RFILE-REWRITE) (QUOTE (IDATE 1000402214957 IMMEDIATE-DEPENDENTS0 (GCD-S0-S0-RFILE-2 GCD-S0-S0-RFILE-1 GCD-S0-S0-2 GCD-S0-S0-1 GCD-S0-SN-BASE-RFILE-2 GCD-S0-SN-BASE-2 GCD-S0-SN-BASE-RFILE-1 GCD-S0-SN-BASE-1 GCD-S-S0-MEM GCD-S-S0-RFILE GCD-S-S0 STEPI-H MISC-GROUP-H BIT-GROUP-H BCC-GROUP-H CMP-GROUP-H SCC-GROUP-H OR-GROUP-H AND-GROUP-H SUB-GROUP-H ADD-GROUP-H) EVENT (PROVE-LEMMA MC-RFILE-REWRITE (REWRITE) (EQUAL (MC-RFILE (MC-STATE STATUS RFILE PC CCR MEM)) RFILE)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MC-STATE . MC-RFILE-REWRITE) (IMMEDIATE-DEPENDENTS0 MC-RFILE . MC-RFILE-REWRITE) (LEMMAS MC-RFILE . MC-RFILE-REWRITE))))) (PUT1-LST (QUOTE MC-STATUS-REWRITE) (QUOTE (IDATE 1000402214957 IMMEDIATE-DEPENDENTS0 (GCD-S0-S0-RFILE-2 GCD-S0-S0-RFILE-1 GCD-S0-S0-2 GCD-S0-S0-1 GCD-S0-SN-BASE-RFILE-2 GCD-S0-SN-BASE-2 GCD-S0-SN-BASE-RFILE-1 GCD-S0-SN-BASE-1 GCD-S-S0-MEM GCD-S-S0-RFILE GCD-S-S0 STEPI-H MISC-GROUP-H BIT-GROUP-H BCC-GROUP-H CMP-GROUP-H SCC-GROUP-H OR-GROUP-H AND-GROUP-H SUB-GROUP-H ADD-GROUP-H) EVENT (PROVE-LEMMA MC-STATUS-REWRITE (REWRITE) (EQUAL (MC-STATUS (MC-STATE STATUS RFILE PC CCR MEM)) STATUS)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MC-STATE . MC-STATUS-REWRITE) (IMMEDIATE-DEPENDENTS0 MC-STATUS . MC-STATUS-REWRITE) (LEMMAS MC-STATUS . MC-STATUS-REWRITE))))) (PUT1-LST (QUOTE SET-CVZNX-OFF) (QUOTE (IDATE 1000402214957 EVENT (TOGGLE SET-CVZNX-OFF SET-CVZNX T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SET-CVZNX . SET-CVZNX-OFF) (DISABLED-LEMMAS NIL SET-CVZNX SET-CVZNX-OFF . T))))) (PUT1-LST (QUOTE CVZNX-OFF) (QUOTE (IDATE 1000402214957 EVENT (TOGGLE CVZNX-OFF CVZNX T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CVZNX . CVZNX-OFF) (DISABLED-LEMMAS NIL CVZNX CVZNX-OFF . T))))) (PUT1-LST (QUOTE CCR-X-OFF) (QUOTE (IDATE 1000402214957 EVENT (TOGGLE CCR-X-OFF CCR-X T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CCR-X . CCR-X-OFF) (DISABLED-LEMMAS NIL CCR-X CCR-X-OFF . T))))) (PUT1-LST (QUOTE CCR-N-OFF) (QUOTE (IDATE 1000402214957 EVENT (TOGGLE CCR-N-OFF CCR-N T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CCR-N . CCR-N-OFF) (DISABLED-LEMMAS NIL CCR-N CCR-N-OFF . T))))) (PUT1-LST (QUOTE CCR-Z-OFF) (QUOTE (IDATE 1000402214957 EVENT (TOGGLE CCR-Z-OFF CCR-Z T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CCR-Z . CCR-Z-OFF) (DISABLED-LEMMAS NIL CCR-Z CCR-Z-OFF . T))))) (PUT1-LST (QUOTE CCR-V-OFF) (QUOTE (IDATE 1000402214957 EVENT (TOGGLE CCR-V-OFF CCR-V T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CCR-V . CCR-V-OFF) (DISABLED-LEMMAS NIL CCR-V CCR-V-OFF . T))))) (PUT1-LST (QUOTE CCR-C-OFF) (QUOTE (IDATE 1000402214957 EVENT (TOGGLE CCR-C-OFF CCR-C T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CCR-C . CCR-C-OFF) (DISABLED-LEMMAS NIL CCR-C CCR-C-OFF . T))))) (PUT1-LST (QUOTE SET-CVZNX-NAT-RANGEP) (QUOTE (IDATE 1000402214957 IMMEDIATE-DEPENDENTS0 (GCD-S0-S0-RFILE-2 GCD-S0-S0-RFILE-1 GCD-S0-S0-2 GCD-S0-S0-1 GCD-S0-SN-BASE-RFILE-2 GCD-S0-SN-BASE-2 GCD-S0-SN-BASE-RFILE-1 GCD-S0-SN-BASE-1 GCD-S-S0-MEM GCD-S-S0-RFILE GCD-S-S0 MISC-GROUP-H OR-GROUP-H) EVENT (PROVE-LEMMA SET-CVZNX-NAT-RANGEP (REWRITE) (EQUAL (NAT-RANGEP (SET-CVZNX X CCR) (QUOTE 8)) (NAT-RANGEP CCR (QUOTE 8)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REPLACE-NAT-RANGEP . SET-CVZNX-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 SET-CVZNX . SET-CVZNX-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . SET-CVZNX-NAT-RANGEP) (LEMMAS NAT-RANGEP . SET-CVZNX-NAT-RANGEP))))) (PUT1-LST (QUOTE SET-SET-CVZNX2) (QUOTE (IDATE 1000402214957 IMMEDIATE-DEPENDENTS0 (MISC-GROUP-H OR-GROUP-H) EVENT (PROVE-LEMMA SET-SET-CVZNX2 (REWRITE) (EQUAL (SET-CVZNX (SET-CVZNX X CCR) CCR) (SET-CVZNX X CCR))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REPLACE-LEQ . SET-SET-CVZNX2) (IMMEDIATE-DEPENDENTS0 SET-CVZNX . SET-SET-CVZNX2) (LEMMAS SET-CVZNX . SET-SET-CVZNX2))))) (PUT1-LST (QUOTE SET-CVZNX-CCR) (QUOTE (IDATE 1000402214957 EVENT (PROVE-LEMMA SET-CVZNX-CCR (REWRITE) (EQUAL (SET-CVZNX CCR CCR) (FIX CCR))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REPLACE-REFLEX . SET-CVZNX-CCR) (IMMEDIATE-DEPENDENTS0 SET-CVZNX . SET-CVZNX-CCR) (LEMMAS SET-CVZNX . SET-CVZNX-CCR))))) (PUT1-LST (QUOTE SET-SET-CVZNX1) (QUOTE (IDATE 1000402214957 IMMEDIATE-DEPENDENTS0 (GCD-S0-S0-RFILE-2 GCD-S0-S0-RFILE-1 GCD-S0-S0-2 GCD-S0-S0-1 GCD-S0-SN-BASE-RFILE-2 GCD-S0-SN-BASE-2 GCD-S0-SN-BASE-RFILE-1 GCD-S0-SN-BASE-1 GCD-S-S0-MEM GCD-S-S0-RFILE GCD-S-S0) EVENT (PROVE-LEMMA SET-SET-CVZNX1 (REWRITE) (EQUAL (SET-CVZNX X (SET-CVZNX Y CCR)) (SET-CVZNX X CCR))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REPLACE-LEQ . SET-SET-CVZNX1) (IMMEDIATE-DEPENDENTS0 REPLACE-ASSOCIATIVITY . SET-SET-CVZNX1) (IMMEDIATE-DEPENDENTS0 SET-CVZNX . SET-SET-CVZNX1) (LEMMAS SET-CVZNX . SET-SET-CVZNX1))))) (PUT1-LST (QUOTE SET-CVZNX-X) (QUOTE (IDATE 1000402214957 IMMEDIATE-DEPENDENTS0 (GCD-S0-S0-RFILE-2 GCD-S0-S0-RFILE-1 GCD-S0-S0-2 GCD-S0-S0-1 GCD-S0-SN-BASE-RFILE-2 GCD-S0-SN-BASE-2 GCD-S0-SN-BASE-RFILE-1 GCD-S0-SN-BASE-1 GCD-S-S0-MEM GCD-S-S0-RFILE GCD-S-S0) EVENT (PROVE-LEMMA SET-CVZNX-X (REWRITE) (EQUAL (CCR-X (SET-CVZNX (CVZNX C V Z N X) CCR)) (FIX-BIT X))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BITN-0-1 . SET-CVZNX-X) (IMMEDIATE-DEPENDENTS0 BITN . SET-CVZNX-X) (IMMEDIATE-DEPENDENTS0 B1 . SET-CVZNX-X) (IMMEDIATE-DEPENDENTS0 B0P . SET-CVZNX-X) (IMMEDIATE-DEPENDENTS0 B0 . SET-CVZNX-X) (IMMEDIATE-DEPENDENTS0 BITN-REPLACE . SET-CVZNX-X) (IMMEDIATE-DEPENDENTS0 FIX-BIT . SET-CVZNX-X) (IMMEDIATE-DEPENDENTS0 CVZNX . SET-CVZNX-X) (IMMEDIATE-DEPENDENTS0 SET-CVZNX . SET-CVZNX-X) (IMMEDIATE-DEPENDENTS0 CCR-X . SET-CVZNX-X) (LEMMAS CCR-X . SET-CVZNX-X))))) (PUT1-LST (QUOTE SET-CVZNX-N) (QUOTE (IDATE 1000402214957 IMMEDIATE-DEPENDENTS0 (GCD-S0-S0-RFILE-2 GCD-S0-S0-RFILE-1 GCD-S0-S0-2 GCD-S0-S0-1) EVENT (PROVE-LEMMA SET-CVZNX-N (REWRITE) (EQUAL (CCR-N (SET-CVZNX (CVZNX C V Z N X) CCR)) (FIX-BIT N))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BITN-0-1 . SET-CVZNX-N) (IMMEDIATE-DEPENDENTS0 BITN . SET-CVZNX-N) (IMMEDIATE-DEPENDENTS0 B1 . SET-CVZNX-N) (IMMEDIATE-DEPENDENTS0 B0P . SET-CVZNX-N) (IMMEDIATE-DEPENDENTS0 B0 . SET-CVZNX-N) (IMMEDIATE-DEPENDENTS0 BITN-REPLACE . SET-CVZNX-N) (IMMEDIATE-DEPENDENTS0 FIX-BIT . SET-CVZNX-N) (IMMEDIATE-DEPENDENTS0 CVZNX . SET-CVZNX-N) (IMMEDIATE-DEPENDENTS0 SET-CVZNX . SET-CVZNX-N) (IMMEDIATE-DEPENDENTS0 CCR-N . SET-CVZNX-N) (LEMMAS CCR-N . SET-CVZNX-N))))) (PUT1-LST (QUOTE SET-CVZNX-Z) (QUOTE (IDATE 1000402214957 IMMEDIATE-DEPENDENTS0 (GCD-S0-S0-RFILE-2 GCD-S0-S0-RFILE-1 GCD-S0-S0-2 GCD-S0-S0-1 GCD-S0-SN-BASE-RFILE-2 GCD-S0-SN-BASE-2 GCD-S0-SN-BASE-RFILE-1 GCD-S0-SN-BASE-1) EVENT (PROVE-LEMMA SET-CVZNX-Z (REWRITE) (EQUAL (CCR-Z (SET-CVZNX (CVZNX C V Z N X) CCR)) (FIX-BIT Z))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BITN-0-1 . SET-CVZNX-Z) (IMMEDIATE-DEPENDENTS0 BITN . SET-CVZNX-Z) (IMMEDIATE-DEPENDENTS0 B1 . SET-CVZNX-Z) (IMMEDIATE-DEPENDENTS0 B0P . SET-CVZNX-Z) (IMMEDIATE-DEPENDENTS0 B0 . SET-CVZNX-Z) (IMMEDIATE-DEPENDENTS0 BITN-REPLACE . SET-CVZNX-Z) (IMMEDIATE-DEPENDENTS0 FIX-BIT . SET-CVZNX-Z) (IMMEDIATE-DEPENDENTS0 CVZNX . SET-CVZNX-Z) (IMMEDIATE-DEPENDENTS0 SET-CVZNX . SET-CVZNX-Z) (IMMEDIATE-DEPENDENTS0 CCR-Z . SET-CVZNX-Z) (LEMMAS CCR-Z . SET-CVZNX-Z))))) (PUT1-LST (QUOTE SET-CVZNX-V) (QUOTE (IDATE 1000402214957 IMMEDIATE-DEPENDENTS0 (GCD-S0-S0-RFILE-2 GCD-S0-S0-RFILE-1 GCD-S0-S0-2 GCD-S0-S0-1) EVENT (PROVE-LEMMA SET-CVZNX-V (REWRITE) (EQUAL (CCR-V (SET-CVZNX (CVZNX C V Z N X) CCR)) (FIX-BIT V))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BITN-0-1 . SET-CVZNX-V) (IMMEDIATE-DEPENDENTS0 BITN . SET-CVZNX-V) (IMMEDIATE-DEPENDENTS0 B1 . SET-CVZNX-V) (IMMEDIATE-DEPENDENTS0 B0P . SET-CVZNX-V) (IMMEDIATE-DEPENDENTS0 B0 . SET-CVZNX-V) (IMMEDIATE-DEPENDENTS0 BITN-REPLACE . SET-CVZNX-V) (IMMEDIATE-DEPENDENTS0 FIX-BIT . SET-CVZNX-V) (IMMEDIATE-DEPENDENTS0 CVZNX . SET-CVZNX-V) (IMMEDIATE-DEPENDENTS0 SET-CVZNX . SET-CVZNX-V) (IMMEDIATE-DEPENDENTS0 CCR-V . SET-CVZNX-V) (LEMMAS CCR-V . SET-CVZNX-V))))) (PUT1-LST (QUOTE SET-CVZNX-C) (QUOTE (IDATE 1000402214956 EVENT (PROVE-LEMMA SET-CVZNX-C (REWRITE) (EQUAL (CCR-C (SET-CVZNX (CVZNX C V Z N X) CCR)) (FIX-BIT C))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BITN-0-1 . SET-CVZNX-C) (IMMEDIATE-DEPENDENTS0 BITN . SET-CVZNX-C) (IMMEDIATE-DEPENDENTS0 B1 . SET-CVZNX-C) (IMMEDIATE-DEPENDENTS0 B0P . SET-CVZNX-C) (IMMEDIATE-DEPENDENTS0 B0 . SET-CVZNX-C) (IMMEDIATE-DEPENDENTS0 BITN-REPLACE . SET-CVZNX-C) (IMMEDIATE-DEPENDENTS0 FIX-BIT . SET-CVZNX-C) (IMMEDIATE-DEPENDENTS0 CVZNX . SET-CVZNX-C) (IMMEDIATE-DEPENDENTS0 SET-CVZNX . SET-CVZNX-C) (IMMEDIATE-DEPENDENTS0 CCR-C . SET-CVZNX-C) (LEMMAS CCR-C . SET-CVZNX-C))))) (PUT1-LST (QUOTE EXT-OFF) (QUOTE (IDATE 1000402214956 EVENT (TOGGLE EXT-OFF EXT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EXT . EXT-OFF) (DISABLED-LEMMAS NIL EXT EXT-OFF . T))))) (PUT1-LST (QUOTE EXT-NAT-RANGEP) (QUOTE (IDATE 1000402214956 IMMEDIATE-DEPENDENTS0 (EXT-BMI SUB-BEQ-EXT MOVE-BEQ-EXT EXT-N-BITP) EVENT (PROVE-LEMMA EXT-NAT-RANGEP (REWRITE) (NAT-RANGEP (EXT N X SIZE) SIZE) ((USE (EXP2-LEQ (I N) (J SIZE))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIFFERENCE-LESSP-CANCEL . EXT-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP-UB . EXT-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 APP-NAT-RANGEP . EXT-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 BITN-0-1 . EXT-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 HEAD-NAT-RANGEP . EXT-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 EXP-LESSP . EXT-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 B0P . EXT-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 B0 . EXT-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 EXP2-LEQ . EXT-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 EXT . EXT-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . EXT-NAT-RANGEP) (LEMMAS NAT-RANGEP . EXT-NAT-RANGEP))))) (PUT1-LST (QUOTE HEAD-EXT) (QUOTE (IDATE 1000402214956 IMMEDIATE-DEPENDENTS0 (READ-WRITEM-RN) EVENT (PROVE-LEMMA HEAD-EXT (REWRITE) (IMPLIES (AND (IF (LESSP J I) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (IF (LESSP K J) (QUOTE *1*FALSE) (QUOTE *1*TRUE))) (EQUAL (HEAD (EXT J X K) I) (HEAD X I)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 HEAD-APP . HEAD-EXT) (IMMEDIATE-DEPENDENTS0 BITN-0-1 . HEAD-EXT) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP-OF-0 . HEAD-EXT) (IMMEDIATE-DEPENDENTS0 HEAD-LEMMA . HEAD-EXT) (IMMEDIATE-DEPENDENTS0 HEAD-LESSP . HEAD-EXT) (IMMEDIATE-DEPENDENTS0 EXP . HEAD-EXT) (IMMEDIATE-DEPENDENTS0 HEAD-OF-0 . HEAD-EXT) (IMMEDIATE-DEPENDENTS0 HEAD-HEAD . HEAD-EXT) (IMMEDIATE-DEPENDENTS0 B0P . HEAD-EXT) (IMMEDIATE-DEPENDENTS0 B0 . HEAD-EXT) (IMMEDIATE-DEPENDENTS0 EXT . HEAD-EXT) (IMMEDIATE-DEPENDENTS0 HEAD . HEAD-EXT) (LEMMAS HEAD . HEAD-EXT))))) (PUT1-LST (QUOTE EXT-LEMMA) (QUOTE (IDATE 1000402214956 IMMEDIATE-DEPENDENTS0 (CMP-GROUP-H SUB-GROUP-H ADD-GROUP-H ADDR-INDEX2-MEM) EVENT (PROVE-LEMMA EXT-LEMMA (REWRITE) (IMPLIES (IF (LESSP N SIZE) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (EQUAL (EXT N X SIZE) (HEAD X SIZE)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 HEAD . EXT-LEMMA) (IMMEDIATE-DEPENDENTS0 EXT . EXT-LEMMA) (LEMMAS EXT . EXT-LEMMA))))) (PUT1-LST (QUOTE EXT-0) (QUOTE (IDATE 1000402214956 IMMEDIATE-DEPENDENTS0 (EXT-EQUAL-0) EVENT (PROVE-LEMMA EXT-0 (REWRITE) (EQUAL (EXT N (QUOTE 0) SIZE) (QUOTE 0))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 HEAD-LEMMA . EXT-0) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP-OF-0 . EXT-0) (IMMEDIATE-DEPENDENTS0 B0P . EXT-0) (IMMEDIATE-DEPENDENTS0 BITN-0 . EXT-0) (IMMEDIATE-DEPENDENTS0 EXT . EXT-0) (LEMMAS EXT . EXT-0))))) (PUT1-LST (QUOTE NEG-NAT-RANGEP) (QUOTE (IDATE 1000402214956 IMMEDIATE-DEPENDENTS0 (MISC-GROUP-H MOD32-EQ-DEDUCTION1 INDEX-N-DEDUCTION1 INDEX-N-0 DISJOINT-9~-ASL DISJOINT-9-ASL DISJOINT-14~ DISJOINT-13~ DISJOINT-12~ DISJOINT-9~ DISJOINT-8~ DISJOINT-5~ DISJOINT-4~ DISJOINT-14 DISJOINT-13 DISJOINT-12 DISJOINT-9 DISJOINT-8 DISJOINT-5 DISJOINT-4 READ-MEM-MCODE2 PC-READ-MEM-MCODE2 PC-BYTE-READ-MCODE2 READ-MEMP-RAM2 BYTE-READP-RAM2 WRITE-MEMP-RAM2 BYTE-WRITEP-RAM2 READ-MEMP-ROM2 BYTE-READP-ROM2 PC-READ-MEMP-ROM2 PC-BYTE-READP-ROM2 ADD-NEG-0) EVENT (PROVE-LEMMA NEG-NAT-RANGEP (REWRITE) (NAT-RANGEP (NEG N X) N)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUB-NAT-RANGEP . NEG-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 NEG . NEG-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . NEG-NAT-RANGEP) (LEMMAS NAT-RANGEP . NEG-NAT-RANGEP))))) (PUT1-LST (QUOTE IREM-NAT-RANGEP) (QUOTE (IDATE 1000402214956 IMMEDIATE-DEPENDENTS0 (GCD-S0-S0-RFILE-2 GCD-S0-S0-RFILE-1 GCD-S0-S0-2 GCD-S0-S0-1) EVENT (PROVE-LEMMA IREM-NAT-RANGEP (REWRITE) (NAT-RANGEP (IREM N X I Y J) N)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 HEAD-NAT-RANGEP . IREM-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 IREM . IREM-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . IREM-NAT-RANGEP) (LEMMAS NAT-RANGEP . IREM-NAT-RANGEP))))) (PUT1-LST (QUOTE IQUOT-NAT-RANGEP) (QUOTE (IDATE 1000402214956 EVENT (PROVE-LEMMA IQUOT-NAT-RANGEP (REWRITE) (NAT-RANGEP (IQUOT N X I Y J) N)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 HEAD-NAT-RANGEP . IQUOT-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 IQUOT . IQUOT-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . IQUOT-NAT-RANGEP) (LEMMAS NAT-RANGEP . IQUOT-NAT-RANGEP))))) (PUT1-LST (QUOTE REM-NAT-RANGEP) (QUOTE (IDATE 1000402214956 EVENT (PROVE-LEMMA REM-NAT-RANGEP (REWRITE) (NAT-RANGEP (REM N X Y) N)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 HEAD-NAT-RANGEP . REM-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 REM . REM-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . REM-NAT-RANGEP) (LEMMAS NAT-RANGEP . REM-NAT-RANGEP))))) (PUT1-LST (QUOTE QUOT-NAT-RANGEP) (QUOTE (IDATE 1000402214956 EVENT (PROVE-LEMMA QUOT-NAT-RANGEP (REWRITE) (NAT-RANGEP (QUOT N X Y) N)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 HEAD-NAT-RANGEP . QUOT-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 QUOT . QUOT-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . QUOT-NAT-RANGEP) (LEMMAS NAT-RANGEP . QUOT-NAT-RANGEP))))) (PUT1-LST (QUOTE MULS-NAT-RANGEP) (QUOTE (IDATE 1000402214956 IMMEDIATE-DEPENDENTS0 (MULS_3232-BMI MULS_3264-BMI MULS_1632-BMI) EVENT (PROVE-LEMMA MULS-NAT-RANGEP (REWRITE) (NAT-RANGEP (MULS N X Y I) N)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 HEAD-NAT-RANGEP . MULS-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 MULS . MULS-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . MULS-NAT-RANGEP) (LEMMAS NAT-RANGEP . MULS-NAT-RANGEP))))) (PUT1-LST (QUOTE MULU-NAT-RANGEP) (QUOTE (IDATE 1000402214956 EVENT (PROVE-LEMMA MULU-NAT-RANGEP (REWRITE) (NAT-RANGEP (MULU N X Y I) N)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 HEAD-NAT-RANGEP . MULU-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 MULU . MULU-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . MULU-NAT-RANGEP) (LEMMAS NAT-RANGEP . MULU-NAT-RANGEP))))) (PUT1-LST (QUOTE NAT-RANGEP-OFF) (QUOTE (IDATE 1000402214956 EVENT (TOGGLE NAT-RANGEP-OFF NAT-RANGEP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NAT-RANGEP . NAT-RANGEP-OFF) (DISABLED-LEMMAS NIL NAT-RANGEP NAT-RANGEP-OFF . T))))) (PUT1-LST (QUOTE PC-BYTE-READ-NAT-RANGEP) (QUOTE (IDATE 1000402214956 IMMEDIATE-DEPENDENTS0 (PC-BYTE-READ=PC-READ-MEM-1) EVENT (PROVE-LEMMA PC-BYTE-READ-NAT-RANGEP (REWRITE) (NAT-RANGEP (PC-BYTE-READ X MEM) (QUOTE 8))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 HEAD-LESSP . PC-BYTE-READ-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 EXP . PC-BYTE-READ-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 B . PC-BYTE-READ-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 PC-READ . PC-BYTE-READ-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 PC-BYTE-READ . PC-BYTE-READ-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . PC-BYTE-READ-NAT-RANGEP) (LEMMAS NAT-RANGEP . PC-BYTE-READ-NAT-RANGEP))))) (PUT1-LST (QUOTE BYTE-READ-NAT-RANGEP) (QUOTE (IDATE 1000402214956 IMMEDIATE-DEPENDENTS0 (BYTE-READ=READ-MEM-1) EVENT (PROVE-LEMMA BYTE-READ-NAT-RANGEP (REWRITE) (IMPLIES (IF (LESSP N (QUOTE 8)) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (NAT-RANGEP (BYTE-READ X MEM) N))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 HEAD-NAT-RANGEP . BYTE-READ-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 B . BYTE-READ-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 BYTE-READ . BYTE-READ-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . BYTE-READ-NAT-RANGEP) (LEMMAS NAT-RANGEP . BYTE-READ-NAT-RANGEP))))) (PUT1-LST (QUOTE READ-RN-NAT-RANGEP) (QUOTE (IDATE 1000402214956 IMMEDIATE-DEPENDENTS0 (GCD-S0-S0-RFILE-2 GCD-S0-S0-RFILE-1 GCD-S0-S0-2 GCD-S0-S0-1 GCD-S0-SN-BASE-RFILE-2 GCD-S0-SN-BASE-2 GCD-S0-SN-BASE-RFILE-1 GCD-S0-SN-BASE-1 S&R-GROUP-H SCC-GROUP-H) EVENT (PROVE-LEMMA READ-RN-NAT-RANGEP (REWRITE) (NAT-RANGEP (READ-RN N RN RFILE) N)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 HEAD-LESSP . READ-RN-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 READ-RN . READ-RN-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . READ-RN-NAT-RANGEP) (LEMMAS NAT-RANGEP . READ-RN-NAT-RANGEP))))) (PUT1-LST (QUOTE TAIL-NAT-RANGEP) (QUOTE (IDATE 1000402214956 IMMEDIATE-DEPENDENTS0 (STEPI-H MEM-LST-PUT-VALS MEM-LST-PUT-LST) EVENT (PROVE-LEMMA TAIL-NAT-RANGEP (REWRITE) (EQUAL (NAT-RANGEP (TAIL X M) N) (NAT-RANGEP X (PLUS M N)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EXP-PLUS . TAIL-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 TAIL-LESSP . TAIL-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 TAIL . TAIL-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . TAIL-NAT-RANGEP) (LEMMAS NAT-RANGEP . TAIL-NAT-RANGEP))))) (PUT1-LST (QUOTE HEAD-NAT-RANGEP) (QUOTE (IDATE 1000402214956 IMMEDIATE-DEPENDENTS0 (STEPI-H MOD32-EQ-DEDUCTION2 MOD32-EQ-DEDUCTION1 ADD-TREE-NAT-RANGEP MC-CCR-RANGEP MC-PC-RANGEP EXT-NAT-RANGEP IREM-NAT-RANGEP IQUOT-NAT-RANGEP REM-NAT-RANGEP QUOT-NAT-RANGEP MULS-NAT-RANGEP MULU-NAT-RANGEP BYTE-READ-NAT-RANGEP) EVENT (PROVE-LEMMA HEAD-NAT-RANGEP (REWRITE) (IMPLIES (IF (LESSP N M) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (NAT-RANGEP (HEAD X M) N))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-LESSP . HEAD-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 HEAD-LESSP . HEAD-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 HEAD-OF-0 . HEAD-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 EXP . HEAD-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 LESSP-OF-1 . HEAD-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . HEAD-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 HEAD . HEAD-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . HEAD-NAT-RANGEP) (LEMMAS NAT-RANGEP . HEAD-NAT-RANGEP))))) (PUT1-LST (QUOTE LOGEOR-NAT-RANGEP) (QUOTE (IDATE 1000402214956 EVENT (PROVE-LEMMA LOGEOR-NAT-RANGEP (REWRITE) (IMPLIES (AND (NAT-RANGEP X N) (NAT-RANGEP Y N)) (NAT-RANGEP (LOGEOR X Y) N)) ((INDUCT (MOD-EQ N X Y)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-LESSP-TIMES . LOGEOR-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 TIMES-LESSP . LOGEOR-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 PLUS-ADD1 . LOGEOR-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 TIMES2-ADD1-LESSP-CANCEL . LOGEOR-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 BCAR-LESSP . LOGEOR-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 BCDR-NONNUMBERP . LOGEOR-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 BCAR-NONNUMBERP . LOGEOR-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . LOGEOR-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 BCDR . LOGEOR-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 B-EOR . LOGEOR-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 B0P . LOGEOR-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 B0 . LOGEOR-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 B1 . LOGEOR-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 BCAR . LOGEOR-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 EXP . LOGEOR-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 LESSP-OF-1 . LOGEOR-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 LOGEOR-COMMUTATIVITY . LOGEOR-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 BCDR-LESSP . LOGEOR-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 MOD-EQ . LOGEOR-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 LOGEOR . LOGEOR-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . LOGEOR-NAT-RANGEP) (LEMMAS NAT-RANGEP . LOGEOR-NAT-RANGEP))))) (PUT1-LST (QUOTE LOGOR-NAT-RANGEP) (QUOTE (IDATE 1000402214955 EVENT (PROVE-LEMMA LOGOR-NAT-RANGEP (REWRITE) (EQUAL (NAT-RANGEP (LOGOR X Y) N) (AND (NAT-RANGEP X N) (NAT-RANGEP Y N))) ((INDUCT (MOD-EQ N X Y)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BCDR . LOGOR-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 LOGOR-COMMUTATIVITY . LOGOR-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 TIMES-LESSP . LOGOR-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 BCDR-NONNUMBERP . LOGOR-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-LESSP-TIMES . LOGOR-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 PLUS-ADD1 . LOGOR-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 TIMES2-ADD1-LESSP-CANCEL . LOGOR-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 BCAR-LESSP . LOGOR-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . LOGOR-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 B-OR . LOGOR-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 B0 . LOGOR-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 B0P . LOGOR-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 B1 . LOGOR-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 EXP . LOGOR-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 LOGOR-EQUAL-0 . LOGOR-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 LESSP-OF-1 . LOGOR-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 BCDR-LESSP . LOGOR-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 MOD-EQ . LOGOR-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 LOGOR . LOGOR-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . LOGOR-NAT-RANGEP) (LEMMAS NAT-RANGEP . LOGOR-NAT-RANGEP))))) (PUT1-LST (QUOTE LOGAND-NAT-RANGEP) (QUOTE (IDATE 1000402214955 EVENT (PROVE-LEMMA LOGAND-NAT-RANGEP (REWRITE) (IMPLIES (OR (NAT-RANGEP X N) (NAT-RANGEP Y N)) (NAT-RANGEP (LOGAND X Y) N)) ((INDUCT (MOD-EQ N X Y)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . LOGAND-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 B-AND . LOGAND-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 B0 . LOGAND-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 B0P . LOGAND-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 B1 . LOGAND-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 EXP . LOGAND-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 LESSP-OF-1 . LOGAND-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 LOGAND-COMMUTATIVITY . LOGAND-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 BCDR-LESSP . LOGAND-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 MOD-EQ . LOGAND-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 LOGAND . LOGAND-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . LOGAND-NAT-RANGEP) (LEMMAS NAT-RANGEP . LOGAND-NAT-RANGEP))))) (PUT1-LST (QUOTE TIMES-EXP2-NAT-RANGEP) (QUOTE (IDATE 1000402214955 IMMEDIATE-DEPENDENTS0 (LSL-BEQ) EVENT (PROVE-LEMMA TIMES-EXP2-NAT-RANGEP (REWRITE) (EQUAL (NAT-RANGEP (TIMES X (EXP (QUOTE 2) I)) N) (NAT-RANGEP X (DIFFERENCE N I)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-EXP2-LESSP . TIMES-EXP2-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 EXP . TIMES-EXP2-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . TIMES-EXP2-NAT-RANGEP) (LEMMAS NAT-RANGEP . TIMES-EXP2-NAT-RANGEP))))) (PUT1-LST (QUOTE QUOTIENT-NAT-RANGEP) (QUOTE (IDATE 1000402214955 IMMEDIATE-DEPENDENTS0 (DIVU-BEQ) EVENT (PROVE-LEMMA QUOTIENT-NAT-RANGEP (REWRITE) (IMPLIES (NAT-RANGEP X N) (NAT-RANGEP (QUOTIENT X Y) N))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 QUOTIENT-LEQ . QUOTIENT-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . QUOTIENT-NAT-RANGEP) (LEMMAS NAT-RANGEP . QUOTIENT-NAT-RANGEP))))) (PUT1-LST (QUOTE DIFFERENCE-NAT-RANGEP) (QUOTE (IDATE 1000402214955 IMMEDIATE-DEPENDENTS0 (SUBX-C-LA) EVENT (PROVE-LEMMA DIFFERENCE-NAT-RANGEP (REWRITE) (IMPLIES (NAT-RANGEP X N) (NAT-RANGEP (DIFFERENCE X Y) N))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . DIFFERENCE-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . DIFFERENCE-NAT-RANGEP) (LEMMAS NAT-RANGEP . DIFFERENCE-NAT-RANGEP))))) (PUT1-LST (QUOTE SUB1-TIMES2-NAT-RANGEP) (QUOTE (IDATE 1000402214955 EVENT (PROVE-LEMMA SUB1-TIMES2-NAT-RANGEP (REWRITE) (EQUAL (NAT-RANGEP (SUB1 (TIMES (QUOTE 2) X)) (ADD1 N)) (NAT-RANGEP (SUB1 X) N))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-ADD1 . SUB1-TIMES2-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 TIMES-ADD1 . SUB1-TIMES2-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 TIMES2-ADD1-LESSP-CANCEL . SUB1-TIMES2-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . SUB1-TIMES2-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 TIMES-LESSP . SUB1-TIMES2-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 LESSP-OF-1 . SUB1-TIMES2-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 SUB1-OF-1 . SUB1-TIMES2-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 TIMES-EQUAL-1 . SUB1-TIMES2-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 TIMES-EQUAL-0 . SUB1-TIMES2-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 EXP . SUB1-TIMES2-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . SUB1-TIMES2-NAT-RANGEP) (LEMMAS NAT-RANGEP . SUB1-TIMES2-NAT-RANGEP))))) (PUT1-LST (QUOTE SUB1-NAT-RANGEP) (QUOTE (IDATE 1000402214955 IMMEDIATE-DEPENDENTS0 (ADD-BCS&CC SUBX-C-LA READ-WRITE-MEM2 BYTE-READ-WRITE-MEM-LEMMA) EVENT (PROVE-LEMMA SUB1-NAT-RANGEP (REWRITE) (IMPLIES (NAT-RANGEP X N) (NAT-RANGEP (SUB1 X) N))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-OF-1 . SUB1-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . SUB1-NAT-RANGEP) (LEMMAS NAT-RANGEP . SUB1-NAT-RANGEP))))) (PUT1-LST (QUOTE NAT-PLUS-RANGEP) (QUOTE (IDATE 1000402214955 IMMEDIATE-DEPENDENTS0 (READ-WRITE-MEM2) EVENT (PROVE-LEMMA NAT-PLUS-RANGEP (REWRITE) (IMPLIES (NAT-RANGEP X K) (AND (NAT-RANGEP X (PLUS K J)) (NAT-RANGEP X (PLUS J K))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . NAT-PLUS-RANGEP) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-LESSP-PLUS . NAT-PLUS-RANGEP) (IMMEDIATE-DEPENDENTS0 EXP-LESSP . NAT-PLUS-RANGEP) (IMMEDIATE-DEPENDENTS0 EXP-OF-2-0 . NAT-PLUS-RANGEP) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . NAT-PLUS-RANGEP) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . NAT-PLUS-RANGEP) (LEMMAS NAT-RANGEP . NAT-PLUS-RANGEP) (LEMMAS NAT-RANGEP . NAT-PLUS-RANGEP))))) (PUT1-LST (QUOTE NAT-RANGEP-0) (QUOTE (IDATE 1000402214955 IMMEDIATE-DEPENDENTS0 (WRITE-MEM-ILST-ASL MEM-LST-PUT-VALS MEM-LST-PUT-LST EXT-BEQ-UINT) EVENT (PROVE-LEMMA NAT-RANGEP-0 (REWRITE) (EQUAL (NAT-RANGEP X (QUOTE 0)) (ZEROP X))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EXP . NAT-RANGEP-0) (IMMEDIATE-DEPENDENTS0 LESSP-OF-1 . NAT-RANGEP-0) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . NAT-RANGEP-0) (LEMMAS NAT-RANGEP . NAT-RANGEP-0))))) (PUT1-LST (QUOTE NAT-RANGEP-UB) (QUOTE (IDATE 1000402214955 IMMEDIATE-DEPENDENTS0 (EXT-NAT-RANGEP) EVENT (PROVE-LEMMA NAT-RANGEP-UB (REWRITE) (EQUAL (NAT-RANGEP (SUB1 (EXP (QUOTE 2) K)) N) (NOT (LESSP N K)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EXP-OF-2-0 . NAT-RANGEP-UB) (IMMEDIATE-DEPENDENTS0 SUB1-OF-1 . NAT-RANGEP-UB) (IMMEDIATE-DEPENDENTS0 LESSP-OF-1 . NAT-RANGEP-UB) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP-OF-0 . NAT-RANGEP-UB) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . NAT-RANGEP-UB) (IMMEDIATE-DEPENDENTS0 EXP . NAT-RANGEP-UB) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . NAT-RANGEP-UB) (LEMMAS NAT-RANGEP . NAT-RANGEP-UB))))) (PUT1-LST (QUOTE NAT-RANGEP-OF-0) (QUOTE (IDATE 1000402214955 IMMEDIATE-DEPENDENTS0 (MEM-LST-NAT-RANGEP ADD-BCS&CC EXT-BEQ-UINT LSL-BEQ LOGEOR-BEQ-INT-0 LOGOR-BEQ-INT-0 SUB-BEQ-INT-1 MOVE-BEQ-INT-1 ADD-TREE-ADD-FRINGE ADD-TREE-NAT-RANGEP ADD-NEG-0 NEG-CANCEL READ-WRITE-MEM2 HEAD-SUB1-LESSP READ-MEM-NAT-RANGEP HEAD-EXT EXT-0 NAT-RANGEP-UB) EVENT (PROVE-LEMMA NAT-RANGEP-OF-0 (REWRITE) (NAT-RANGEP (QUOTE 0) N)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EXP-OF-2-0 . NAT-RANGEP-OF-0) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . NAT-RANGEP-OF-0) (LEMMAS NAT-RANGEP . NAT-RANGEP-OF-0))))) (PUT1-LST (QUOTE HEAD-READM-MEM) (QUOTE (IDATE 1000402214955 EVENT (PROVE-LEMMA HEAD-READM-MEM (REWRITE) (EQUAL (READM-MEM OPSZ (HEAD X (QUOTE 32)) MEM N) (READM-MEM OPSZ X MEM N))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 HEAD-READ-MEM . HEAD-READM-MEM) (IMMEDIATE-DEPENDENTS0 L . HEAD-READM-MEM) (IMMEDIATE-DEPENDENTS0 ADD-COMMUTATIVITY . HEAD-READM-MEM) (IMMEDIATE-DEPENDENTS0 ADD-HEAD . HEAD-READM-MEM) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . HEAD-READM-MEM) (IMMEDIATE-DEPENDENTS0 HEAD . HEAD-READM-MEM) (IMMEDIATE-DEPENDENTS0 READM-MEM . HEAD-READM-MEM) (LEMMAS READM-MEM . HEAD-READM-MEM))))) (PUT1-LST (QUOTE HEAD-WRITE-MEM) (QUOTE (IDATE 1000402214955 IMMEDIATE-DEPENDENTS0 (WRITE-MEM-ILST-ASL WRITE-MEM-LST-ASL WRITE-MEM-ILST-INT WRITE-MEM-LST-INT WRITE-MEM-ILST0 WRITE-MEM-LST0 WRITE-MEM-ILST WRITE-MEM-LST-LA) EVENT (PROVE-LEMMA HEAD-WRITE-MEM (REWRITE) (EQUAL (WRITE-MEM VALUE (HEAD X (QUOTE 32)) MEM K) (WRITE-MEM VALUE X MEM K))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ADD-HEAD . HEAD-WRITE-MEM) (IMMEDIATE-DEPENDENTS0 B . HEAD-WRITE-MEM) (IMMEDIATE-DEPENDENTS0 BYTE-WRITE . HEAD-WRITE-MEM) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . HEAD-WRITE-MEM) (IMMEDIATE-DEPENDENTS0 HEAD . HEAD-WRITE-MEM) (IMMEDIATE-DEPENDENTS0 WRITE-MEM . HEAD-WRITE-MEM) (LEMMAS WRITE-MEM . HEAD-WRITE-MEM))))) (PUT1-LST (QUOTE HEAD-PC-READ-MEM) (QUOTE (IDATE 1000402214955 IMMEDIATE-DEPENDENTS0 (READ-MEM-MCODE1-INT PC-READ-MEM-MCODE2 PC-READ-MEM-MCODE1) EVENT (PROVE-LEMMA HEAD-PC-READ-MEM (REWRITE) (EQUAL (PC-READ-MEM (HEAD X (QUOTE 32)) MEM K) (PC-READ-MEM X MEM K))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B . HEAD-PC-READ-MEM) (IMMEDIATE-DEPENDENTS0 ADD-HEAD . HEAD-PC-READ-MEM) (IMMEDIATE-DEPENDENTS0 PC-READ . HEAD-PC-READ-MEM) (IMMEDIATE-DEPENDENTS0 PC-BYTE-READ . HEAD-PC-READ-MEM) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . HEAD-PC-READ-MEM) (IMMEDIATE-DEPENDENTS0 HEAD . HEAD-PC-READ-MEM) (IMMEDIATE-DEPENDENTS0 PC-READ-MEM . HEAD-PC-READ-MEM) (LEMMAS PC-READ-MEM . HEAD-PC-READ-MEM))))) (PUT1-LST (QUOTE HEAD-READ-MEM) (QUOTE (IDATE 1000402214955 IMMEDIATE-DEPENDENTS0 (READ-MEM-ILST-ASL READ-MEM-LST-ASL READ-MEM-ILST-INT READ-MEM-ILST READ-MEM-LST-INT READ-MEM-LST MEM-LST-GET-VALS MEM-LST-GET-LST READ-MEM-LST-LA HEAD-MEM-ILST HEAD-MEM-LST HEAD-READM-MEM) EVENT (PROVE-LEMMA HEAD-READ-MEM (REWRITE) (EQUAL (READ-MEM (HEAD X (QUOTE 32)) MEM K) (READ-MEM X MEM K))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B . HEAD-READ-MEM) (IMMEDIATE-DEPENDENTS0 ADD-HEAD . HEAD-READ-MEM) (IMMEDIATE-DEPENDENTS0 BYTE-READ . HEAD-READ-MEM) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . HEAD-READ-MEM) (IMMEDIATE-DEPENDENTS0 HEAD . HEAD-READ-MEM) (IMMEDIATE-DEPENDENTS0 READ-MEM . HEAD-READ-MEM) (LEMMAS READ-MEM . HEAD-READ-MEM))))) (PUT1-LST (QUOTE HEAD-WRITE-MEMP) (QUOTE (IDATE 1000402214955 IMMEDIATE-DEPENDENTS0 (WRITE-MEMP-RAM1-ASL READ-MEMP-RAM1-INT RAM-ADDRP-LA2 WRITE-MEMP-RAM2 WRITE-MEMP-RAM1-INT WRITE-MEMP-LA3) EVENT (PROVE-LEMMA HEAD-WRITE-MEMP (REWRITE) (EQUAL (WRITE-MEMP (HEAD X (QUOTE 32)) MEM K) (WRITE-MEMP X MEM K))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ADD-HEAD . HEAD-WRITE-MEMP) (IMMEDIATE-DEPENDENTS0 BYTE-WRITEP . HEAD-WRITE-MEMP) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . HEAD-WRITE-MEMP) (IMMEDIATE-DEPENDENTS0 HEAD . HEAD-WRITE-MEMP) (IMMEDIATE-DEPENDENTS0 WRITE-MEMP . HEAD-WRITE-MEMP) (LEMMAS WRITE-MEMP . HEAD-WRITE-MEMP))))) (PUT1-LST (QUOTE HEAD-PC-READ-MEMP) (QUOTE (IDATE 1000402214955 IMMEDIATE-DEPENDENTS0 (READ-MEMP-ROM1-INT ROM-ADDRP-LA2 PC-READ-MEMP-ROM2 PC-READ-MEMP-LA3) EVENT (PROVE-LEMMA HEAD-PC-READ-MEMP (REWRITE) (EQUAL (PC-READ-MEMP (HEAD X (QUOTE 32)) MEM K) (PC-READ-MEMP X MEM K))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ADD-HEAD . HEAD-PC-READ-MEMP) (IMMEDIATE-DEPENDENTS0 PC-BYTE-READP . HEAD-PC-READ-MEMP) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . HEAD-PC-READ-MEMP) (IMMEDIATE-DEPENDENTS0 HEAD . HEAD-PC-READ-MEMP) (IMMEDIATE-DEPENDENTS0 PC-READ-MEMP . HEAD-PC-READ-MEMP) (LEMMAS PC-READ-MEMP . HEAD-PC-READ-MEMP))))) (PUT1-LST (QUOTE HEAD-READ-MEMP) (QUOTE (IDATE 1000402214955 IMMEDIATE-DEPENDENTS0 (CMP-GROUP-H READ-MEMP-ROM1-ASL READ-MEMP-RAM1-ASL) EVENT (PROVE-LEMMA HEAD-READ-MEMP (REWRITE) (EQUAL (READ-MEMP (HEAD X (QUOTE 32)) MEM K) (READ-MEMP X MEM K))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ADD-HEAD . HEAD-READ-MEMP) (IMMEDIATE-DEPENDENTS0 BYTE-READP . HEAD-READ-MEMP) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . HEAD-READ-MEMP) (IMMEDIATE-DEPENDENTS0 HEAD . HEAD-READ-MEMP) (IMMEDIATE-DEPENDENTS0 READ-MEMP . HEAD-READ-MEMP) (LEMMAS READ-MEMP . HEAD-READ-MEMP))))) (PUT1-LST (QUOTE HEAD-BYTE-WRITE) (QUOTE (IDATE 1000402214955 IMMEDIATE-DEPENDENTS0 (BYTE-WRITE=WRITE-MEM-1 WRITE-MEM-BYTE-WRITE BYTE-READ-WRITE-MEM-LEMMA) EVENT (PROVE-LEMMA HEAD-BYTE-WRITE (REWRITE) (EQUAL (BYTE-WRITE VALUE (HEAD X (QUOTE 32)) MEM) (BYTE-WRITE VALUE X MEM))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 HEAD-WRITE . HEAD-BYTE-WRITE) (IMMEDIATE-DEPENDENTS0 B . HEAD-BYTE-WRITE) (IMMEDIATE-DEPENDENTS0 HEAD . HEAD-BYTE-WRITE) (IMMEDIATE-DEPENDENTS0 BYTE-WRITE . HEAD-BYTE-WRITE) (LEMMAS BYTE-WRITE . HEAD-BYTE-WRITE))))) (PUT1-LST (QUOTE HEAD-BYTE-PC-READ) (QUOTE (IDATE 1000402214955 IMMEDIATE-DEPENDENTS0 (PC-BYTE-READ=PC-READ-MEM-1 PC-BYTE-READ-MCODE2 PC-BYTE-READ-MCODE1) EVENT (PROVE-LEMMA HEAD-BYTE-PC-READ (REWRITE) (EQUAL (PC-BYTE-READ (HEAD X (QUOTE 32)) MEM) (PC-BYTE-READ X MEM))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 HEAD-READ . HEAD-BYTE-PC-READ) (IMMEDIATE-DEPENDENTS0 B . HEAD-BYTE-PC-READ) (IMMEDIATE-DEPENDENTS0 PC-READ . HEAD-BYTE-PC-READ) (IMMEDIATE-DEPENDENTS0 HEAD . HEAD-BYTE-PC-READ) (IMMEDIATE-DEPENDENTS0 PC-BYTE-READ . HEAD-BYTE-PC-READ) (LEMMAS PC-BYTE-READ . HEAD-BYTE-PC-READ))))) (PUT1-LST (QUOTE HEAD-BYTE-READ) (QUOTE (IDATE 1000402214955 IMMEDIATE-DEPENDENTS0 (BYTE-READ=READ-MEM-1 READ-MEM-NON-NUMBERP BYTE-READ-WRITE-MEM-LEMMA) EVENT (PROVE-LEMMA HEAD-BYTE-READ (REWRITE) (EQUAL (BYTE-READ (HEAD X (QUOTE 32)) MEM) (BYTE-READ X MEM))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 HEAD-READ . HEAD-BYTE-READ) (IMMEDIATE-DEPENDENTS0 B . HEAD-BYTE-READ) (IMMEDIATE-DEPENDENTS0 HEAD . HEAD-BYTE-READ) (IMMEDIATE-DEPENDENTS0 BYTE-READ . HEAD-BYTE-READ) (LEMMAS BYTE-READ . HEAD-BYTE-READ))))) (PUT1-LST (QUOTE HEAD-BYTE-WRITEP) (QUOTE (IDATE 1000402214955 IMMEDIATE-DEPENDENTS0 (BYTE-WRITEP=WRITE-MEMP-1 BYTE-WRITEP-RAM2 WRITE-MEMP-LA1 WRITE-MEMP-LA0) EVENT (PROVE-LEMMA HEAD-BYTE-WRITEP (REWRITE) (EQUAL (BYTE-WRITEP (HEAD X (QUOTE 32)) MEM) (BYTE-WRITEP X MEM)) ((ENABLE BYTE-WRITEP))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 HEAD-WRITEP . HEAD-BYTE-WRITEP) (IMMEDIATE-DEPENDENTS0 HEAD . HEAD-BYTE-WRITEP) (IMMEDIATE-DEPENDENTS0 BYTE-WRITEP . HEAD-BYTE-WRITEP) (LEMMAS BYTE-WRITEP . HEAD-BYTE-WRITEP))))) (PUT1-LST (QUOTE HEAD-PC-BYTE-READP) (QUOTE (IDATE 1000402214955 IMMEDIATE-DEPENDENTS0 (PC-BYTE-READP-ROM2 PC-READ-MEMP-LA1 PC-READ-MEMP-LA0) EVENT (PROVE-LEMMA HEAD-PC-BYTE-READP (REWRITE) (EQUAL (PC-BYTE-READP (HEAD X (QUOTE 32)) MEM) (PC-BYTE-READP X MEM)) ((ENABLE PC-BYTE-READP))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 HEAD-PC-READP . HEAD-PC-BYTE-READP) (IMMEDIATE-DEPENDENTS0 HEAD . HEAD-PC-BYTE-READP) (IMMEDIATE-DEPENDENTS0 PC-BYTE-READP . HEAD-PC-BYTE-READP) (LEMMAS PC-BYTE-READP . HEAD-PC-BYTE-READP))))) (PUT1-LST (QUOTE HEAD-BYTE-READP) (QUOTE (IDATE 1000402214955 EVENT (PROVE-LEMMA HEAD-BYTE-READP (REWRITE) (EQUAL (BYTE-READP (HEAD X (QUOTE 32)) MEM) (BYTE-READP X MEM)) ((ENABLE BYTE-READP))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 HEAD-READP . HEAD-BYTE-READP) (IMMEDIATE-DEPENDENTS0 HEAD . HEAD-BYTE-READP) (IMMEDIATE-DEPENDENTS0 BYTE-READP . HEAD-BYTE-READP) (LEMMAS BYTE-READP . HEAD-BYTE-READP))))) (PUT1-LST (QUOTE HEAD-WRITE) (QUOTE (IDATE 1000402214955 IMMEDIATE-DEPENDENTS0 (HEAD-BYTE-WRITE) EVENT (PROVE-LEMMA HEAD-WRITE (REWRITE) (IMPLIES (IF (LESSP K N) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (EQUAL (WRITE VALUE (HEAD X K) N BT) (WRITE VALUE X N BT)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BITN-HEAD . HEAD-WRITE) (IMMEDIATE-DEPENDENTS0 VALUE-FIELD . HEAD-WRITE) (IMMEDIATE-DEPENDENTS0 LESSP-OF-1 . HEAD-WRITE) (IMMEDIATE-DEPENDENTS0 MAKE-BT . HEAD-WRITE) (IMMEDIATE-DEPENDENTS0 BRANCH1 . HEAD-WRITE) (IMMEDIATE-DEPENDENTS0 BRANCH0 . HEAD-WRITE) (IMMEDIATE-DEPENDENTS0 BCAR . HEAD-WRITE) (IMMEDIATE-DEPENDENTS0 TAIL . HEAD-WRITE) (IMMEDIATE-DEPENDENTS0 BITN . HEAD-WRITE) (IMMEDIATE-DEPENDENTS0 B0 . HEAD-WRITE) (IMMEDIATE-DEPENDENTS0 B0P . HEAD-WRITE) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . HEAD-WRITE) (IMMEDIATE-DEPENDENTS0 HEAD . HEAD-WRITE) (IMMEDIATE-DEPENDENTS0 WRITE . HEAD-WRITE) (LEMMAS WRITE . HEAD-WRITE))))) (PUT1-LST (QUOTE HEAD-PC-READ) (QUOTE (IDATE 1000402214954 EVENT (PROVE-LEMMA HEAD-PC-READ (REWRITE) (IMPLIES (IF (LESSP K N) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (EQUAL (PC-READ (HEAD X K) N BT) (PC-READ X N BT)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 HEAD-READ . HEAD-PC-READ) (IMMEDIATE-DEPENDENTS0 HEAD . HEAD-PC-READ) (IMMEDIATE-DEPENDENTS0 PC-READ . HEAD-PC-READ) (LEMMAS PC-READ . HEAD-PC-READ))))) (PUT1-LST (QUOTE HEAD-READ) (QUOTE (IDATE 1000402214954 IMMEDIATE-DEPENDENTS0 (HEAD-BYTE-PC-READ HEAD-BYTE-READ HEAD-PC-READ) EVENT (PROVE-LEMMA HEAD-READ (REWRITE) (IMPLIES (IF (LESSP K N) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (EQUAL (READ (HEAD X K) N BT) (READ X N BT)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BITN-HEAD . HEAD-READ) (IMMEDIATE-DEPENDENTS0 LESSP-OF-1 . HEAD-READ) (IMMEDIATE-DEPENDENTS0 VALUE-FIELD . HEAD-READ) (IMMEDIATE-DEPENDENTS0 BCAR . HEAD-READ) (IMMEDIATE-DEPENDENTS0 TAIL . HEAD-READ) (IMMEDIATE-DEPENDENTS0 BITN . HEAD-READ) (IMMEDIATE-DEPENDENTS0 B0 . HEAD-READ) (IMMEDIATE-DEPENDENTS0 B0P . HEAD-READ) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . HEAD-READ) (IMMEDIATE-DEPENDENTS0 HEAD . HEAD-READ) (IMMEDIATE-DEPENDENTS0 READ . HEAD-READ) (LEMMAS READ . HEAD-READ))))) (PUT1-LST (QUOTE HEAD-WRITEP) (QUOTE (IDATE 1000402214954 IMMEDIATE-DEPENDENTS0 (HEAD-BYTE-WRITEP) EVENT (PROVE-LEMMA HEAD-WRITEP (REWRITE) (IMPLIES (IF (LESSP K N) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (EQUAL (WRITEP (HEAD X K) N MAP) (WRITEP X N MAP)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BITN-HEAD . HEAD-WRITEP) (IMMEDIATE-DEPENDENTS0 LESSP-OF-1 . HEAD-WRITEP) (IMMEDIATE-DEPENDENTS0 VALUE-FIELD . HEAD-WRITEP) (IMMEDIATE-DEPENDENTS0 BCAR . HEAD-WRITEP) (IMMEDIATE-DEPENDENTS0 TAIL . HEAD-WRITEP) (IMMEDIATE-DEPENDENTS0 BITN . HEAD-WRITEP) (IMMEDIATE-DEPENDENTS0 B0 . HEAD-WRITEP) (IMMEDIATE-DEPENDENTS0 B0P . HEAD-WRITEP) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . HEAD-WRITEP) (IMMEDIATE-DEPENDENTS0 HEAD . HEAD-WRITEP) (IMMEDIATE-DEPENDENTS0 WRITEP . HEAD-WRITEP) (LEMMAS WRITEP . HEAD-WRITEP))))) (PUT1-LST (QUOTE HEAD-PC-READP) (QUOTE (IDATE 1000402214954 IMMEDIATE-DEPENDENTS0 (HEAD-PC-BYTE-READP) EVENT (PROVE-LEMMA HEAD-PC-READP (REWRITE) (IMPLIES (IF (LESSP K N) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (EQUAL (PC-READP (HEAD X K) N MAP) (PC-READP X N MAP)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BITN-HEAD . HEAD-PC-READP) (IMMEDIATE-DEPENDENTS0 LESSP-OF-1 . HEAD-PC-READP) (IMMEDIATE-DEPENDENTS0 HEAD-READP . HEAD-PC-READP) (IMMEDIATE-DEPENDENTS0 VALUE-FIELD . HEAD-PC-READP) (IMMEDIATE-DEPENDENTS0 BCAR . HEAD-PC-READP) (IMMEDIATE-DEPENDENTS0 TAIL . HEAD-PC-READP) (IMMEDIATE-DEPENDENTS0 BITN . HEAD-PC-READP) (IMMEDIATE-DEPENDENTS0 B0 . HEAD-PC-READP) (IMMEDIATE-DEPENDENTS0 B0P . HEAD-PC-READP) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . HEAD-PC-READP) (IMMEDIATE-DEPENDENTS0 HEAD . HEAD-PC-READP) (IMMEDIATE-DEPENDENTS0 PC-READP . HEAD-PC-READP) (LEMMAS PC-READP . HEAD-PC-READP))))) (PUT1-LST (QUOTE HEAD-READP) (QUOTE (IDATE 1000402214954 IMMEDIATE-DEPENDENTS0 (HEAD-BYTE-READP HEAD-PC-READP) EVENT (PROVE-LEMMA HEAD-READP (REWRITE) (IMPLIES (IF (LESSP K N) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (EQUAL (READP (HEAD X K) N MAP) (READP X N MAP)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BITN-HEAD . HEAD-READP) (IMMEDIATE-DEPENDENTS0 LESSP-OF-1 . HEAD-READP) (IMMEDIATE-DEPENDENTS0 VALUE-FIELD . HEAD-READP) (IMMEDIATE-DEPENDENTS0 BCAR . HEAD-READP) (IMMEDIATE-DEPENDENTS0 TAIL . HEAD-READP) (IMMEDIATE-DEPENDENTS0 BITN . HEAD-READP) (IMMEDIATE-DEPENDENTS0 B0 . HEAD-READP) (IMMEDIATE-DEPENDENTS0 B0P . HEAD-READP) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . HEAD-READP) (IMMEDIATE-DEPENDENTS0 HEAD . HEAD-READP) (IMMEDIATE-DEPENDENTS0 READP . HEAD-READP) (LEMMAS READP . HEAD-READP))))) (PUT1-LST (QUOTE LOGAND-UINT) (QUOTE (IDATE 1000402214954 IMMEDIATE-DEPENDENTS0 (LOGAND-EOR-BEQ-UINT LOGAND-OR-BEQ-UINT LOGAND-BEQ-UINT) EVENT (PROVE-LEMMA LOGAND-UINT (REWRITE) (IMPLIES (EQUAL (EXP (QUOTE 2) (LOG (QUOTE 2) (ADD1 X))) (ADD1 X)) (EQUAL (NAT-TO-UINT (LOGAND X Y)) (REMAINDER (NAT-TO-UINT Y) (ADD1 X)))) ((USE (LOGAND-UINT-LA (I (LOG (QUOTE 2) (ADD1 X))))) (DISABLE LOGAND-UINT-LA))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LOGAND-COMMUTATIVITY . LOGAND-UINT) (IMMEDIATE-DEPENDENTS0 REMAINDER-0 . LOGAND-UINT) (IMMEDIATE-DEPENDENTS0 REMAINDER-1 . LOGAND-UINT) (IMMEDIATE-DEPENDENTS0 LOGAND-UINT-LA . LOGAND-UINT) (IMMEDIATE-DEPENDENTS0 LOGAND . LOGAND-UINT) (IMMEDIATE-DEPENDENTS0 NAT-TO-UINT . LOGAND-UINT) (IMMEDIATE-DEPENDENTS0 LOG . LOGAND-UINT) (IMMEDIATE-DEPENDENTS0 EXP . LOGAND-UINT) (LEMMAS NAT-TO-UINT . LOGAND-UINT))))) (PUT1-LST (QUOTE LOGAND-UINT-LA) (QUOTE (IDATE 1000402214954 IMMEDIATE-DEPENDENTS0 (LOGAND-UINT) EVENT (PROVE-LEMMA LOGAND-UINT-LA (REWRITE) (EQUAL (NAT-TO-UINT (LOGAND (SUB1 (EXP (QUOTE 2) I)) Y)) (REMAINDER (NAT-TO-UINT Y) (EXP (QUOTE 2) I))) ((INDUCT (MOD-EQ I X Y)) (ENABLE BCAR BCDR) (DISABLE REMAINDER QUOTIENT))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY1 . LOGAND-UINT-LA) (IMMEDIATE-DEPENDENTS0 TIMES-1 . LOGAND-UINT-LA) (IMMEDIATE-DEPENDENTS0 LESSP-OF-1 . LOGAND-UINT-LA) (IMMEDIATE-DEPENDENTS0 SUB1-OF-1 . LOGAND-UINT-LA) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . LOGAND-UINT-LA) (IMMEDIATE-DEPENDENTS0 BCDR-2 . LOGAND-UINT-LA) (IMMEDIATE-DEPENDENTS0 QUOTIENT-TIMES-EXP2-3 . LOGAND-UINT-LA) (IMMEDIATE-DEPENDENTS0 QUOTIENT-SUB1 . LOGAND-UINT-LA) (IMMEDIATE-DEPENDENTS0 B-AND . LOGAND-UINT-LA) (IMMEDIATE-DEPENDENTS0 BCAR-2 . LOGAND-UINT-LA) (IMMEDIATE-DEPENDENTS0 BCAR . LOGAND-UINT-LA) (IMMEDIATE-DEPENDENTS0 REMAINDER-TIMES-EXP2-3 . LOGAND-UINT-LA) (IMMEDIATE-DEPENDENTS0 REMAINDER-SUB1 . LOGAND-UINT-LA) (IMMEDIATE-DEPENDENTS0 PLUS-EQUAL-0 . LOGAND-UINT-LA) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-EQUAL-PLUS . LOGAND-UINT-LA) (IMMEDIATE-DEPENDENTS0 TIMES-EQUAL-1 . LOGAND-UINT-LA) (IMMEDIATE-DEPENDENTS0 TIMES-EQUAL-0 . LOGAND-UINT-LA) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-X-X . LOGAND-UINT-LA) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . LOGAND-UINT-LA) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . LOGAND-UINT-LA) (IMMEDIATE-DEPENDENTS0 REMAINDER-PLUS-TIMES-EXP2-2 . LOGAND-UINT-LA) (IMMEDIATE-DEPENDENTS0 TIMES-DISTRIBUTES-REMAINDER . LOGAND-UINT-LA) (IMMEDIATE-DEPENDENTS0 REMAINDER-PLUS2 . LOGAND-UINT-LA) (IMMEDIATE-DEPENDENTS0 PLUS-ADD1 . LOGAND-UINT-LA) (IMMEDIATE-DEPENDENTS0 BCDR-1 . LOGAND-UINT-LA) (IMMEDIATE-DEPENDENTS0 BCAR-1 . LOGAND-UINT-LA) (IMMEDIATE-DEPENDENTS0 REMAINDER-DISTRIBUTES-TIMES2-ADD1 . LOGAND-UINT-LA) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-EQUAL-TIMES . LOGAND-UINT-LA) (IMMEDIATE-DEPENDENTS0 EXP-OF-2-0 . LOGAND-UINT-LA) (IMMEDIATE-DEPENDENTS0 REMAINDER-LESSP . LOGAND-UINT-LA) (IMMEDIATE-DEPENDENTS0 REMAINDER-QUOTIENT-ELIM . LOGAND-UINT-LA) (IMMEDIATE-DEPENDENTS0 QUOTIENT-EXIT . LOGAND-UINT-LA) (IMMEDIATE-DEPENDENTS0 REMAINDER-0 . LOGAND-UINT-LA) (IMMEDIATE-DEPENDENTS0 LOGAND-COMMUTATIVITY . LOGAND-UINT-LA) (IMMEDIATE-DEPENDENTS0 REMAINDER-1 . LOGAND-UINT-LA) (IMMEDIATE-DEPENDENTS0 BCDR . LOGAND-UINT-LA) (IMMEDIATE-DEPENDENTS0 MOD-EQ . LOGAND-UINT-LA) (IMMEDIATE-DEPENDENTS0 EXP . LOGAND-UINT-LA) (IMMEDIATE-DEPENDENTS0 LOGAND . LOGAND-UINT-LA) (IMMEDIATE-DEPENDENTS0 NAT-TO-UINT . LOGAND-UINT-LA) (LEMMAS NAT-TO-UINT . LOGAND-UINT-LA))))) (PUT1-LST (QUOTE LOGAND-LOGEOR) (QUOTE (IDATE 1000402214953 IMMEDIATE-DEPENDENTS0 (LOGAND-EOR-BEQ-UINT) EVENT (PROVE-LEMMA LOGAND-LOGEOR (REWRITE) (EQUAL (LOGAND X (LOGEOR Y Z)) (LOGEOR (LOGAND X Y) (LOGAND X Z)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-EQUAL-TIMES . LOGAND-LOGEOR) (IMMEDIATE-DEPENDENTS0 BCDR-NONNUMBERP . LOGAND-LOGEOR) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . LOGAND-LOGEOR) (IMMEDIATE-DEPENDENTS0 BCAR-LESSP . LOGAND-LOGEOR) (IMMEDIATE-DEPENDENTS0 BCAR . LOGAND-LOGEOR) (IMMEDIATE-DEPENDENTS0 B1 . LOGAND-LOGEOR) (IMMEDIATE-DEPENDENTS0 B0 . LOGAND-LOGEOR) (IMMEDIATE-DEPENDENTS0 B0P . LOGAND-LOGEOR) (IMMEDIATE-DEPENDENTS0 B-EOR . LOGAND-LOGEOR) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . LOGAND-LOGEOR) (IMMEDIATE-DEPENDENTS0 BCAR-NONNUMBERP . LOGAND-LOGEOR) (IMMEDIATE-DEPENDENTS0 LOGAND-COMMUTATIVITY . LOGAND-LOGEOR) (IMMEDIATE-DEPENDENTS0 LOGEOR-COMMUTATIVITY . LOGAND-LOGEOR) (IMMEDIATE-DEPENDENTS0 PLUS-ADD1 . LOGAND-LOGEOR) (IMMEDIATE-DEPENDENTS0 BCDR-1 . LOGAND-LOGEOR) (IMMEDIATE-DEPENDENTS0 B-AND . LOGAND-LOGEOR) (IMMEDIATE-DEPENDENTS0 BCAR-1 . LOGAND-LOGEOR) (IMMEDIATE-DEPENDENTS0 TIMES-EQUAL-0 . LOGAND-LOGEOR) (IMMEDIATE-DEPENDENTS0 LOGEOR-EQUAL-0 . LOGAND-LOGEOR) (IMMEDIATE-DEPENDENTS0 BCDR . LOGAND-LOGEOR) (IMMEDIATE-DEPENDENTS0 TIMES-LESSP . LOGAND-LOGEOR) (IMMEDIATE-DEPENDENTS0 QUOTIENT-TIMES-LESSP . LOGAND-LOGEOR) (IMMEDIATE-DEPENDENTS0 LOGEOR . LOGAND-LOGEOR) (IMMEDIATE-DEPENDENTS0 LOGAND . LOGAND-LOGEOR) (LEMMAS LOGAND . LOGAND-LOGEOR))))) (PUT1-LST (QUOTE LOGAND-LOGOR) (QUOTE (IDATE 1000402214951 IMMEDIATE-DEPENDENTS0 (LOGAND-OR-BEQ-UINT) EVENT (PROVE-LEMMA LOGAND-LOGOR (REWRITE) (EQUAL (LOGAND X (LOGOR Y Z)) (LOGOR (LOGAND X Y) (LOGAND X Z)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-EQUAL-TIMES . LOGAND-LOGOR) (IMMEDIATE-DEPENDENTS0 BCAR-NONNUMBERP . LOGAND-LOGOR) (IMMEDIATE-DEPENDENTS0 BCAR . LOGAND-LOGOR) (IMMEDIATE-DEPENDENTS0 BCAR-LESSP . LOGAND-LOGOR) (IMMEDIATE-DEPENDENTS0 B1 . LOGAND-LOGOR) (IMMEDIATE-DEPENDENTS0 B0P . LOGAND-LOGOR) (IMMEDIATE-DEPENDENTS0 B0 . LOGAND-LOGOR) (IMMEDIATE-DEPENDENTS0 B-OR . LOGAND-LOGOR) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . LOGAND-LOGOR) (IMMEDIATE-DEPENDENTS0 LOGAND-COMMUTATIVITY . LOGAND-LOGOR) (IMMEDIATE-DEPENDENTS0 LOGOR-COMMUTATIVITY . LOGAND-LOGOR) (IMMEDIATE-DEPENDENTS0 PLUS-ADD1 . LOGAND-LOGOR) (IMMEDIATE-DEPENDENTS0 BCDR-1 . LOGAND-LOGOR) (IMMEDIATE-DEPENDENTS0 B-AND . LOGAND-LOGOR) (IMMEDIATE-DEPENDENTS0 BCAR-1 . LOGAND-LOGOR) (IMMEDIATE-DEPENDENTS0 TIMES-EQUAL-0 . LOGAND-LOGOR) (IMMEDIATE-DEPENDENTS0 LOGOR-EQUAL-0 . LOGAND-LOGOR) (IMMEDIATE-DEPENDENTS0 BCDR . LOGAND-LOGOR) (IMMEDIATE-DEPENDENTS0 TIMES-LESSP . LOGAND-LOGOR) (IMMEDIATE-DEPENDENTS0 QUOTIENT-TIMES-LESSP . LOGAND-LOGOR) (IMMEDIATE-DEPENDENTS0 LOGOR . LOGAND-LOGOR) (IMMEDIATE-DEPENDENTS0 LOGAND . LOGAND-LOGOR) (LEMMAS LOGAND . LOGAND-LOGOR))))) (PUT1-LST (QUOTE LOGEOR-COMMUTATIVITY) (QUOTE (IDATE 1000402214951 IMMEDIATE-DEPENDENTS0 (BIT-GROUP-H LOGAND-EOR-BEQ-UINT LOGEOR-BEQ-INT-1 EOR-Z-BITP LOGEOR-NAT-RANGEP LOGAND-LOGEOR) EVENT (PROVE-LEMMA LOGEOR-COMMUTATIVITY (REWRITE) (EQUAL (LOGEOR X Y) (LOGEOR Y X))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BCAR-LESSP . LOGEOR-COMMUTATIVITY) (IMMEDIATE-DEPENDENTS0 B1 . LOGEOR-COMMUTATIVITY) (IMMEDIATE-DEPENDENTS0 B0P . LOGEOR-COMMUTATIVITY) (IMMEDIATE-DEPENDENTS0 B0 . LOGEOR-COMMUTATIVITY) (IMMEDIATE-DEPENDENTS0 B-EOR . LOGEOR-COMMUTATIVITY) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . LOGEOR-COMMUTATIVITY) (IMMEDIATE-DEPENDENTS0 BCAR . LOGEOR-COMMUTATIVITY) (IMMEDIATE-DEPENDENTS0 BCAR-NONNUMBERP . LOGEOR-COMMUTATIVITY) (IMMEDIATE-DEPENDENTS0 QUOTIENT-LESSP-LINEAR . LOGEOR-COMMUTATIVITY) (IMMEDIATE-DEPENDENTS0 QUOTIENT-LEQ . LOGEOR-COMMUTATIVITY) (IMMEDIATE-DEPENDENTS0 BCDR . LOGEOR-COMMUTATIVITY) (IMMEDIATE-DEPENDENTS0 LOGEOR . LOGEOR-COMMUTATIVITY) (LEMMAS LOGEOR . LOGEOR-COMMUTATIVITY))))) (PUT1-LST (QUOTE LOGOR-COMMUTATIVITY) (QUOTE (IDATE 1000402214951 IMMEDIATE-DEPENDENTS0 (BIT-GROUP-H OR-GROUP-H LOGOR-BEQ-INT-1 OR-Z-BITP LOGOR-NAT-RANGEP LOGAND-LOGOR) EVENT (PROVE-LEMMA LOGOR-COMMUTATIVITY (REWRITE) (EQUAL (LOGOR X Y) (LOGOR Y X))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B1 . LOGOR-COMMUTATIVITY) (IMMEDIATE-DEPENDENTS0 B0P . LOGOR-COMMUTATIVITY) (IMMEDIATE-DEPENDENTS0 B0 . LOGOR-COMMUTATIVITY) (IMMEDIATE-DEPENDENTS0 B-OR . LOGOR-COMMUTATIVITY) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . LOGOR-COMMUTATIVITY) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-EQUAL-PLUS . LOGOR-COMMUTATIVITY) (IMMEDIATE-DEPENDENTS0 BCDR . LOGOR-COMMUTATIVITY) (IMMEDIATE-DEPENDENTS0 TIMES-LESSP . LOGOR-COMMUTATIVITY) (IMMEDIATE-DEPENDENTS0 QUOTIENT-TIMES-LESSP . LOGOR-COMMUTATIVITY) (IMMEDIATE-DEPENDENTS0 LOGOR . LOGOR-COMMUTATIVITY) (LEMMAS LOGOR . LOGOR-COMMUTATIVITY))))) (PUT1-LST (QUOTE LOGAND-COMMUTATIVITY) (QUOTE (IDATE 1000402214951 IMMEDIATE-DEPENDENTS0 (AND-Z-COMMUTATIVITY BIT-GROUP-H AND-GROUP-H LOGAND-EOR-BEQ-UINT LOGAND-OR-BEQ-UINT AND-Z-BITP LOGAND-NAT-RANGEP LOGAND-UINT LOGAND-UINT-LA LOGAND-LOGEOR LOGAND-LOGOR) EVENT (PROVE-LEMMA LOGAND-COMMUTATIVITY (REWRITE) (EQUAL (LOGAND X Y) (LOGAND Y X))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B1 . LOGAND-COMMUTATIVITY) (IMMEDIATE-DEPENDENTS0 B0P . LOGAND-COMMUTATIVITY) (IMMEDIATE-DEPENDENTS0 B0 . LOGAND-COMMUTATIVITY) (IMMEDIATE-DEPENDENTS0 B-AND . LOGAND-COMMUTATIVITY) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . LOGAND-COMMUTATIVITY) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-EQUAL-PLUS . LOGAND-COMMUTATIVITY) (IMMEDIATE-DEPENDENTS0 BCDR . LOGAND-COMMUTATIVITY) (IMMEDIATE-DEPENDENTS0 TIMES-LESSP . LOGAND-COMMUTATIVITY) (IMMEDIATE-DEPENDENTS0 QUOTIENT-TIMES-LESSP . LOGAND-COMMUTATIVITY) (IMMEDIATE-DEPENDENTS0 LOGAND . LOGAND-COMMUTATIVITY) (LEMMAS LOGAND . LOGAND-COMMUTATIVITY))))) (PUT1-LST (QUOTE LOGEOR-EQUAL-0) (QUOTE (IDATE 1000402214951 IMMEDIATE-DEPENDENTS0 (LOGAND-EOR-BEQ-UINT LOGEOR-BEQ-INT-1 LOGEOR-BEQ-INT-0 LOGEOR-BEQ-UINT EOR-Z-BITP LOGAND-LOGEOR) EVENT (PROVE-LEMMA LOGEOR-EQUAL-0 (REWRITE) (EQUAL (EQUAL (LOGEOR X Y) (QUOTE 0)) (EQUAL (FIX X) (FIX Y))) ((ENABLE BCAR BCDR) (DISABLE REMAINDER QUOTIENT))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-ADD1 . LOGEOR-EQUAL-0) (IMMEDIATE-DEPENDENTS0 REMAINDER-LESSP . LOGEOR-EQUAL-0) (IMMEDIATE-DEPENDENTS0 REMAINDER-QUOTIENT-ELIM . LOGEOR-EQUAL-0) (IMMEDIATE-DEPENDENTS0 QUOTIENT-EXIT . LOGEOR-EQUAL-0) (IMMEDIATE-DEPENDENTS0 LESSP-OF-1 . LOGEOR-EQUAL-0) (IMMEDIATE-DEPENDENTS0 SUB1-OF-1 . LOGEOR-EQUAL-0) (IMMEDIATE-DEPENDENTS0 QUOTIENT-EQUAL-0 . LOGEOR-EQUAL-0) (IMMEDIATE-DEPENDENTS0 REMAINDER-EXIT . LOGEOR-EQUAL-0) (IMMEDIATE-DEPENDENTS0 REMAINDER-WRT-2 . LOGEOR-EQUAL-0) (IMMEDIATE-DEPENDENTS0 BCAR . LOGEOR-EQUAL-0) (IMMEDIATE-DEPENDENTS0 B1 . LOGEOR-EQUAL-0) (IMMEDIATE-DEPENDENTS0 B0P . LOGEOR-EQUAL-0) (IMMEDIATE-DEPENDENTS0 B0 . LOGEOR-EQUAL-0) (IMMEDIATE-DEPENDENTS0 B-EOR . LOGEOR-EQUAL-0) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . LOGEOR-EQUAL-0) (IMMEDIATE-DEPENDENTS0 TIMES-EQUAL-0 . LOGEOR-EQUAL-0) (IMMEDIATE-DEPENDENTS0 PLUS-EQUAL-0 . LOGEOR-EQUAL-0) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . LOGEOR-EQUAL-0) (IMMEDIATE-DEPENDENTS0 BCAR-NONNUMBERP . LOGEOR-EQUAL-0) (IMMEDIATE-DEPENDENTS0 QUOTIENT-LESSP-LINEAR . LOGEOR-EQUAL-0) (IMMEDIATE-DEPENDENTS0 QUOTIENT-LEQ . LOGEOR-EQUAL-0) (IMMEDIATE-DEPENDENTS0 BCDR . LOGEOR-EQUAL-0) (IMMEDIATE-DEPENDENTS0 LOGEOR . LOGEOR-EQUAL-0) (LEMMAS EQUAL . LOGEOR-EQUAL-0))))) (PUT1-LST (QUOTE LOGOR-EQUAL-0) (QUOTE (IDATE 1000402214949 IMMEDIATE-DEPENDENTS0 (LOGAND-OR-BEQ-UINT LOGOR-BEQ-INT-0 LOGOR-BEQ-UINT OR-Z-BITP LOGOR-NAT-RANGEP LOGAND-LOGOR) EVENT (PROVE-LEMMA LOGOR-EQUAL-0 (REWRITE) (EQUAL (EQUAL (LOGOR X Y) (QUOTE 0)) (AND (ZEROP X) (ZEROP Y))) ((ENABLE BCAR BCDR))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 QUOTIENT-EQUAL-0 . LOGOR-EQUAL-0) (IMMEDIATE-DEPENDENTS0 SUB1-OF-1 . LOGOR-EQUAL-0) (IMMEDIATE-DEPENDENTS0 LESSP-OF-1 . LOGOR-EQUAL-0) (IMMEDIATE-DEPENDENTS0 BCAR . LOGOR-EQUAL-0) (IMMEDIATE-DEPENDENTS0 B1 . LOGOR-EQUAL-0) (IMMEDIATE-DEPENDENTS0 B0P . LOGOR-EQUAL-0) (IMMEDIATE-DEPENDENTS0 B0 . LOGOR-EQUAL-0) (IMMEDIATE-DEPENDENTS0 B-OR . LOGOR-EQUAL-0) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . LOGOR-EQUAL-0) (IMMEDIATE-DEPENDENTS0 TIMES-EQUAL-0 . LOGOR-EQUAL-0) (IMMEDIATE-DEPENDENTS0 PLUS-EQUAL-0 . LOGOR-EQUAL-0) (IMMEDIATE-DEPENDENTS0 QUOTIENT-EXIT . LOGOR-EQUAL-0) (IMMEDIATE-DEPENDENTS0 REMAINDER-EXIT . LOGOR-EQUAL-0) (IMMEDIATE-DEPENDENTS0 BCDR . LOGOR-EQUAL-0) (IMMEDIATE-DEPENDENTS0 TIMES-LESSP . LOGOR-EQUAL-0) (IMMEDIATE-DEPENDENTS0 QUOTIENT-TIMES-LESSP . LOGOR-EQUAL-0) (IMMEDIATE-DEPENDENTS0 LOGOR . LOGOR-EQUAL-0) (LEMMAS EQUAL . LOGOR-EQUAL-0))))) (PUT1-LST (QUOTE BITN-LOGNOT) (QUOTE (IDATE 1000402214949 IMMEDIATE-DEPENDENTS0 (SUBX-ADDX-V) EVENT (PROVE-LEMMA BITN-LOGNOT (REWRITE) (IMPLIES (NAT-RANGEP X N) (EQUAL (BITN (LOGNOT N X) I) (IF (LESSP I N) (B-NOT (BITN X I)) (QUOTE 0)))) ((USE (BV-BITN-NOT (X (NAT-TO-BV-SIZED X N)) (N I))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NAT-TO-BV-SIZED-LEN . BITN-LOGNOT) (IMMEDIATE-DEPENDENTS0 NAT-TO-BV-SIZED-TO-NAT . BITN-LOGNOT) (IMMEDIATE-DEPENDENTS0 BV-NOT-LOGNOT . BITN-LOGNOT) (IMMEDIATE-DEPENDENTS0 B1 . BITN-LOGNOT) (IMMEDIATE-DEPENDENTS0 B0P . BITN-LOGNOT) (IMMEDIATE-DEPENDENTS0 LOGNOT-0 . BITN-LOGNOT) (IMMEDIATE-DEPENDENTS0 BITN-0 . BITN-LOGNOT) (IMMEDIATE-DEPENDENTS0 EXP . BITN-LOGNOT) (IMMEDIATE-DEPENDENTS0 LESSP-OF-1 . BITN-LOGNOT) (IMMEDIATE-DEPENDENTS0 B0 . BITN-LOGNOT) (IMMEDIATE-DEPENDENTS0 BV-BITN-BITN . BITN-LOGNOT) (IMMEDIATE-DEPENDENTS0 BV-BITN-NOT . BITN-LOGNOT) (IMMEDIATE-DEPENDENTS0 B-NOT . BITN-LOGNOT) (IMMEDIATE-DEPENDENTS0 LOGNOT . BITN-LOGNOT) (IMMEDIATE-DEPENDENTS0 BITN . BITN-LOGNOT) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . BITN-LOGNOT) (LEMMAS BITN . BITN-LOGNOT))))) (PUT1-LST (QUOTE BITN-OFF) (QUOTE (IDATE 1000402214949 EVENT (TOGGLE BITN-OFF BITN T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BITN . BITN-OFF) (DISABLED-LEMMAS NIL BITN BITN-OFF . T))))) (PUT1-LST (QUOTE BITN-REPLACE) (QUOTE (IDATE 1000402214949 IMMEDIATE-DEPENDENTS0 (SET-CVZNX-X SET-CVZNX-N SET-CVZNX-Z SET-CVZNX-V SET-CVZNX-C) EVENT (PROVE-LEMMA BITN-REPLACE (REWRITE) (EQUAL (BITN (REPLACE N X Y) K) (IF (LESSP K N) (BITN X K) (BITN Y K))) ((DISABLE TIMES-COMMUTATIVITY))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIFFERENCE=0 . BITN-REPLACE) (IMMEDIATE-DEPENDENTS0 BCAR-REPLACE . BITN-REPLACE) (IMMEDIATE-DEPENDENTS0 TAIL-REPLACE . BITN-REPLACE) (IMMEDIATE-DEPENDENTS0 REPLACE . BITN-REPLACE) (IMMEDIATE-DEPENDENTS0 BITN . BITN-REPLACE) (LEMMAS BITN . BITN-REPLACE))))) (PUT1-LST (QUOTE BITN-APP) (QUOTE (IDATE 1000402214949 IMMEDIATE-DEPENDENTS0 (ASR-N-BITP) EVENT (PROVE-LEMMA BITN-APP (REWRITE) (EQUAL (BITN (APP N X Y) K) (IF (LESSP K N) (BITN X K) (BITN Y (DIFFERENCE K N)))) ((DISABLE TIMES-COMMUTATIVITY))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIFFERENCE=0 . BITN-APP) (IMMEDIATE-DEPENDENTS0 BCAR-APP . BITN-APP) (IMMEDIATE-DEPENDENTS0 TAIL-APP . BITN-APP) (IMMEDIATE-DEPENDENTS0 APP . BITN-APP) (IMMEDIATE-DEPENDENTS0 BITN . BITN-APP) (LEMMAS BITN . BITN-APP))))) (PUT1-LST (QUOTE BITN-TAIL) (QUOTE (IDATE 1000402214949 IMMEDIATE-DEPENDENTS0 (ASR-N-BITP LSR-N-BITP) EVENT (PROVE-LEMMA BITN-TAIL (REWRITE) (EQUAL (BITN (TAIL X I) J) (BITN X (PLUS I J)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TAIL-TAIL . BITN-TAIL) (IMMEDIATE-DEPENDENTS0 TAIL . BITN-TAIL) (IMMEDIATE-DEPENDENTS0 BITN . BITN-TAIL) (LEMMAS BITN . BITN-TAIL))))) (PUT1-LST (QUOTE BITN-HEAD) (QUOTE (IDATE 1000402214949 IMMEDIATE-DEPENDENTS0 (ASL-N-BITP LSL-N-BITP DIVU-N-BITP DIVS-N-BITP MULS-N-BITP MULU-N-BITP HEAD-WRITE HEAD-READ HEAD-WRITEP HEAD-PC-READP HEAD-READP) EVENT (PROVE-LEMMA BITN-HEAD (REWRITE) (EQUAL (BITN (HEAD X I) J) (IF (LESSP J I) (BITN X J) (QUOTE 0)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TAIL-HEAD . BITN-HEAD) (IMMEDIATE-DEPENDENTS0 DIFFERENCE=0 . BITN-HEAD) (IMMEDIATE-DEPENDENTS0 BCAR-HEAD . BITN-HEAD) (IMMEDIATE-DEPENDENTS0 HEAD . BITN-HEAD) (IMMEDIATE-DEPENDENTS0 BITN . BITN-HEAD) (LEMMAS BITN . BITN-HEAD))))) (PUT1-LST (QUOTE BITN-0-1) (QUOTE (IDATE 1000402214949 IMMEDIATE-DEPENDENTS0 (STEPI-H MISC-GROUP-H S&R-GROUP-H BIT-GROUP-H CMP-GROUP-H SCC-GROUP-H OR-GROUP-H AND-GROUP-H EFFEC-ADDR-MEM ADDR-INDEX2-MEM SUBX-ADDX-V SUBX-C-LA SWAP-N-BITP MOVE-N-BITP ROXR-N-BITP ROXR-C-BITP ROXL-N-BITP ROXL-C-BITP ASR-N-BITP ASR-C-BITP ASL-N-BITP ASL-C-BITP LSR-N-BITP LSR-C-BITP LSL-N-BITP LSL-C-BITP ROR-N-BITP ROR-C-BITP ROL-N-BITP ROL-C-BITP DIVU-N-BITP DIVS-N-BITP MULS-N-BITP MULU-N-BITP AND-N-BITP BITN-BITP EXT-EQUAL WRITE-WRITE-LA READ-WRITE SET-CVZNX-X SET-CVZNX-N SET-CVZNX-Z SET-CVZNX-V SET-CVZNX-C EXT-NAT-RANGEP HEAD-EXT) EVENT (PROVE-LEMMA BITN-0-1 (REWRITE) (LESSP (BITN X N) (QUOTE 2))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BCAR-LESSP . BITN-0-1) (IMMEDIATE-DEPENDENTS0 BITN . BITN-0-1) (LINEAR-LEMMAS BITN . BITN-0-1))))) (PUT1-LST (QUOTE BITN-0) (QUOTE (IDATE 1000402214949 IMMEDIATE-DEPENDENTS0 (AND-GROUP-H SUBX-C-LA EXT-0 BITN-LOGNOT) EVENT (PROVE-LEMMA BITN-0 (REWRITE) (AND (EQUAL (BITN (QUOTE 0) N) (QUOTE 0)) (IMPLIES (NOT (NUMBERP X)) (EQUAL (BITN X I) (QUOTE 0))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NAT-RANGEP . BITN-0) (IMMEDIATE-DEPENDENTS0 EXP-OF-2-0 . BITN-0) (IMMEDIATE-DEPENDENTS0 TAIL-LEMMA . BITN-0) (IMMEDIATE-DEPENDENTS0 BCAR-LESSP . BITN-0) (IMMEDIATE-DEPENDENTS0 BCAR . BITN-0) (IMMEDIATE-DEPENDENTS0 TAIL-0 . BITN-0) (IMMEDIATE-DEPENDENTS0 BITN . BITN-0) (LEMMAS BITN . BITN-0) (LEMMAS BITN . BITN-0))))) (PUT1-LST (QUOTE REPLACE-OFF) (QUOTE (IDATE 1000402214949 EVENT (TOGGLE REPLACE-OFF REPLACE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REPLACE . REPLACE-OFF) (DISABLED-LEMMAS NIL REPLACE REPLACE-OFF . T))))) (PUT1-LST (QUOTE APP-OFF) (QUOTE (IDATE 1000402214949 EVENT (TOGGLE APP-OFF APP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 APP . APP-OFF) (DISABLED-LEMMAS NIL APP APP-OFF . T))))) (PUT1-LST (QUOTE REPLACE-NAT-RANGEP) (QUOTE (IDATE 1000402214949 IMMEDIATE-DEPENDENTS0 (SET-CVZNX-NAT-RANGEP) EVENT (PROVE-LEMMA REPLACE-NAT-RANGEP (REWRITE) (IMPLIES (IF (LESSP N M) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (EQUAL (NAT-RANGEP (REPLACE M X Y) N) (NAT-RANGEP Y N))) ((ENABLE EQUAL-IFF EXP2-LEQ) (DISABLE TIMES-COMMUTATIVITY))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-OF-1 . REPLACE-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 EXP . REPLACE-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 EXP-OF-2-0 . REPLACE-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 EXP2-LEQ . REPLACE-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 APP . REPLACE-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 HEAD-LESSP . REPLACE-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 TAIL-EQUAL-0 . REPLACE-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS . REPLACE-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-PLUS2 . REPLACE-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 EXP-PLUS . REPLACE-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 TAIL-LESSP . REPLACE-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 LESSP-PLUS-TIMES-EXP2 . REPLACE-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 BOOLEAN . REPLACE-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 EQUAL-IFF . REPLACE-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 REPLACE . REPLACE-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . REPLACE-NAT-RANGEP) (LEMMAS NAT-RANGEP . REPLACE-NAT-RANGEP))))) (PUT1-LST (QUOTE APP-NAT-RANGEP) (QUOTE (IDATE 1000402214949 IMMEDIATE-DEPENDENTS0 (READ-MEM-NAT-RANGEP PC-READ-MEM-NAT-RANGEP EXT-NAT-RANGEP) EVENT (PROVE-LEMMA APP-NAT-RANGEP (REWRITE) (IMPLIES (IF (LESSP N M) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (EQUAL (NAT-RANGEP (APP M X Y) N) (NAT-RANGEP Y (DIFFERENCE N M)))) ((ENABLE EXP2-LEQ))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EXP-OF-2-0 . APP-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 EXP2-LEQ . APP-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 HEAD-LESSP . APP-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 LESSP-PLUS-TIMES-EXP2 . APP-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 APP . APP-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . APP-NAT-RANGEP) (LEMMAS NAT-RANGEP . APP-NAT-RANGEP))))) (PUT1-LST (QUOTE BCDR-OFF) (QUOTE (IDATE 1000402214949 EVENT (TOGGLE BCDR-OFF BCDR T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BCDR . BCDR-OFF) (DISABLED-LEMMAS NIL BCDR BCDR-OFF . T))))) (PUT1-LST (QUOTE BCAR-OFF) (QUOTE (IDATE 1000402214949 EVENT (TOGGLE BCAR-OFF BCAR T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BCAR . BCAR-OFF) (DISABLED-LEMMAS NIL BCAR BCAR-OFF . T))))) (PUT1-LST (QUOTE TAIL-OFF) (QUOTE (IDATE 1000402214949 EVENT (TOGGLE TAIL-OFF TAIL T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TAIL . TAIL-OFF) (DISABLED-LEMMAS NIL TAIL TAIL-OFF . T))))) (PUT1-LST (QUOTE HEAD-OFF) (QUOTE (IDATE 1000402214949 EVENT (TOGGLE HEAD-OFF HEAD T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 HEAD . HEAD-OFF) (DISABLED-LEMMAS NIL HEAD HEAD-OFF . T))))) (PUT1-LST (QUOTE HEAD-APP-HEAD-TAIL) (QUOTE (IDATE 1000402214949 IMMEDIATE-DEPENDENTS0 (READ-WRITE-MEM2) EVENT (PROVE-LEMMA HEAD-APP-HEAD-TAIL (REWRITE) (EQUAL (APP M (HEAD X M) (HEAD (TAIL X M) N)) (HEAD X (PLUS M N))) ((USE (APP-HEAD-TAIL (N M) (X (HEAD X (PLUS M N))))) (DISABLE REMAINDER QUOTIENT))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-ZERO . HEAD-APP-HEAD-TAIL) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-LESSP-PLUS . HEAD-APP-HEAD-TAIL) (IMMEDIATE-DEPENDENTS0 REMAINDER-REMAINDER-EXP2 . HEAD-APP-HEAD-TAIL) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS . HEAD-APP-HEAD-TAIL) (IMMEDIATE-DEPENDENTS0 REMAINDER-QUOTIENT-EXP2 . HEAD-APP-HEAD-TAIL) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . HEAD-APP-HEAD-TAIL) (IMMEDIATE-DEPENDENTS0 HEAD-LEMMA . HEAD-APP-HEAD-TAIL) (IMMEDIATE-DEPENDENTS0 EXP-OF-2-0 . HEAD-APP-HEAD-TAIL) (IMMEDIATE-DEPENDENTS0 REMAINDER-LESSP-LINEAR . HEAD-APP-HEAD-TAIL) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . HEAD-APP-HEAD-TAIL) (IMMEDIATE-DEPENDENTS0 EXP . HEAD-APP-HEAD-TAIL) (IMMEDIATE-DEPENDENTS0 REMAINDER-1 . HEAD-APP-HEAD-TAIL) (IMMEDIATE-DEPENDENTS0 APP-0 . HEAD-APP-HEAD-TAIL) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . HEAD-APP-HEAD-TAIL) (IMMEDIATE-DEPENDENTS0 APP-HEAD-TAIL . HEAD-APP-HEAD-TAIL) (IMMEDIATE-DEPENDENTS0 TAIL . HEAD-APP-HEAD-TAIL) (IMMEDIATE-DEPENDENTS0 HEAD . HEAD-APP-HEAD-TAIL) (IMMEDIATE-DEPENDENTS0 APP . HEAD-APP-HEAD-TAIL) (LEMMAS APP . HEAD-APP-HEAD-TAIL))))) (PUT1-LST (QUOTE APP-HEAD-TAIL) (QUOTE (IDATE 1000402214949 IMMEDIATE-DEPENDENTS0 (HEAD-APP-HEAD-TAIL) EVENT (PROVE-LEMMA APP-HEAD-TAIL (REWRITE) (EQUAL (APP N (HEAD X N) (TAIL X N)) (FIX X))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-LESSP . APP-HEAD-TAIL) (IMMEDIATE-DEPENDENTS0 REMAINDER-QUOTIENT-ELIM . APP-HEAD-TAIL) (IMMEDIATE-DEPENDENTS0 REMAINDER-EXIT . APP-HEAD-TAIL) (IMMEDIATE-DEPENDENTS0 QUOTIENT-EXIT . APP-HEAD-TAIL) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . APP-HEAD-TAIL) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . APP-HEAD-TAIL) (IMMEDIATE-DEPENDENTS0 HEAD-LEMMA . APP-HEAD-TAIL) (IMMEDIATE-DEPENDENTS0 EXP-OF-2-0 . APP-HEAD-TAIL) (IMMEDIATE-DEPENDENTS0 REMAINDER-LESSP-LINEAR . APP-HEAD-TAIL) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . APP-HEAD-TAIL) (IMMEDIATE-DEPENDENTS0 TAIL . APP-HEAD-TAIL) (IMMEDIATE-DEPENDENTS0 HEAD . APP-HEAD-TAIL) (IMMEDIATE-DEPENDENTS0 APP . APP-HEAD-TAIL) (LEMMAS APP . APP-HEAD-TAIL))))) (PUT1-LST (QUOTE APP-ASSOCIATIVITY) (QUOTE (IDATE 1000402214949 IMMEDIATE-DEPENDENTS0 (READ-MEM-PLUS) EVENT (PROVE-LEMMA APP-ASSOCIATIVITY (REWRITE) (EQUAL (APP N1 X (APP N2 Y Z)) (APP (PLUS N1 N2) (APP N1 X Y) Z)) ((ENABLE TIMES-DISTRIBUTES-PLUS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EXP . APP-ASSOCIATIVITY) (IMMEDIATE-DEPENDENTS0 REMAINDER-1 . APP-ASSOCIATIVITY) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . APP-ASSOCIATIVITY) (IMMEDIATE-DEPENDENTS0 HEAD . APP-ASSOCIATIVITY) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . APP-ASSOCIATIVITY) (IMMEDIATE-DEPENDENTS0 TIMES-DISTRIBUTES-PLUS . APP-ASSOCIATIVITY) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . APP-ASSOCIATIVITY) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY1 . APP-ASSOCIATIVITY) (IMMEDIATE-DEPENDENTS0 EXP-PLUS . APP-ASSOCIATIVITY) (IMMEDIATE-DEPENDENTS0 EXP-OF-2-0 . APP-ASSOCIATIVITY) (IMMEDIATE-DEPENDENTS0 REMAINDER-LESSP-LINEAR . APP-ASSOCIATIVITY) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-LESSP-PLUS . APP-ASSOCIATIVITY) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS . APP-ASSOCIATIVITY) (IMMEDIATE-DEPENDENTS0 REMAINDER-PLUS-TIMES-EXP2-2 . APP-ASSOCIATIVITY) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-EQUAL-PLUS . APP-ASSOCIATIVITY) (IMMEDIATE-DEPENDENTS0 APP . APP-ASSOCIATIVITY) (LEMMAS APP . APP-ASSOCIATIVITY))))) (PUT1-LST (QUOTE BCDR-LESSP) (QUOTE (IDATE 1000402214949 IMMEDIATE-DEPENDENTS0 (LOGEOR-NAT-RANGEP LOGOR-NAT-RANGEP LOGAND-NAT-RANGEP) EVENT (PROVE-LEMMA BCDR-LESSP (REWRITE) (EQUAL (LESSP (BCDR X) Y) (LESSP X (TIMES (QUOTE 2) Y)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 QUOTIENT-TIMES-LESSP . BCDR-LESSP) (IMMEDIATE-DEPENDENTS0 BCDR . BCDR-LESSP) (LEMMAS LESSP . BCDR-LESSP))))) (PUT1-LST (QUOTE BCAR-LESSP) (QUOTE (IDATE 1000402214949 IMMEDIATE-DEPENDENTS0 (ROL-C-BITP LOGEOR-NAT-RANGEP LOGOR-NAT-RANGEP LOGAND-LOGEOR LOGAND-LOGOR LOGEOR-COMMUTATIVITY BITN-0-1 BITN-0) EVENT (PROVE-LEMMA BCAR-LESSP (REWRITE) (LESSP (BCAR X) (QUOTE 2))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-LESSP . BCAR-LESSP) (IMMEDIATE-DEPENDENTS0 BCAR . BCAR-LESSP) (LINEAR-LEMMAS BCAR . BCAR-LESSP))))) (PUT1-LST (QUOTE BCAR-REPLACE) (QUOTE (IDATE 1000402214949 IMMEDIATE-DEPENDENTS0 (BITN-REPLACE) EVENT (PROVE-LEMMA BCAR-REPLACE (REWRITE) (EQUAL (BCAR (REPLACE N X Y)) (IF (ZEROP N) (BCAR Y) (BCAR X))) ((DISABLE TIMES-COMMUTATIVITY REMAINDER QUOTIENT))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-REMAINDER-2 . BCAR-REPLACE) (IMMEDIATE-DEPENDENTS0 REMAINDER2-PLUS-TIMES-EXP2 . BCAR-REPLACE) (IMMEDIATE-DEPENDENTS0 REMAINDER-EXIT . BCAR-REPLACE) (IMMEDIATE-DEPENDENTS0 EXP . BCAR-REPLACE) (IMMEDIATE-DEPENDENTS0 REMAINDER-1 . BCAR-REPLACE) (IMMEDIATE-DEPENDENTS0 QUOTIENT-1 . BCAR-REPLACE) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . BCAR-REPLACE) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . BCAR-REPLACE) (IMMEDIATE-DEPENDENTS0 TIMES-ADD1 . BCAR-REPLACE) (IMMEDIATE-DEPENDENTS0 APP . BCAR-REPLACE) (IMMEDIATE-DEPENDENTS0 HEAD . BCAR-REPLACE) (IMMEDIATE-DEPENDENTS0 TAIL . BCAR-REPLACE) (IMMEDIATE-DEPENDENTS0 REPLACE . BCAR-REPLACE) (IMMEDIATE-DEPENDENTS0 BCAR . BCAR-REPLACE) (LEMMAS BCAR . BCAR-REPLACE))))) (PUT1-LST (QUOTE BCAR-APP) (QUOTE (IDATE 1000402214948 IMMEDIATE-DEPENDENTS0 (BITN-APP) EVENT (PROVE-LEMMA BCAR-APP (REWRITE) (EQUAL (BCAR (APP N X Y)) (IF (ZEROP N) (BCAR Y) (BCAR X))) ((DISABLE TIMES-COMMUTATIVITY))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-REMAINDER-2 . BCAR-APP) (IMMEDIATE-DEPENDENTS0 REMAINDER2-PLUS-TIMES-EXP2 . BCAR-APP) (IMMEDIATE-DEPENDENTS0 REMAINDER-EXIT . BCAR-APP) (IMMEDIATE-DEPENDENTS0 EXP . BCAR-APP) (IMMEDIATE-DEPENDENTS0 REMAINDER-1 . BCAR-APP) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . BCAR-APP) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . BCAR-APP) (IMMEDIATE-DEPENDENTS0 TIMES-ADD1 . BCAR-APP) (IMMEDIATE-DEPENDENTS0 HEAD . BCAR-APP) (IMMEDIATE-DEPENDENTS0 APP . BCAR-APP) (IMMEDIATE-DEPENDENTS0 BCAR . BCAR-APP) (LEMMAS BCAR . BCAR-APP))))) (PUT1-LST (QUOTE BCAR-HEAD) (QUOTE (IDATE 1000402214948 IMMEDIATE-DEPENDENTS0 (BITN-HEAD) EVENT (PROVE-LEMMA BCAR-HEAD (REWRITE) (EQUAL (BCAR (HEAD X N)) (IF (ZEROP N) (QUOTE 0) (BCAR X)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-REMAINDER-2 . BCAR-HEAD) (IMMEDIATE-DEPENDENTS0 HEAD . BCAR-HEAD) (IMMEDIATE-DEPENDENTS0 BCAR . BCAR-HEAD) (LEMMAS BCAR . BCAR-HEAD))))) (PUT1-LST (QUOTE BCDR-2) (QUOTE (IDATE 1000402214948 IMMEDIATE-DEPENDENTS0 (LOGAND-UINT-LA) EVENT (PROVE-LEMMA BCDR-2 (REWRITE) (EQUAL (BCDR (PLUS X (TIMES (QUOTE 2) Y))) (PLUS (BCDR X) Y))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . BCDR-2) (IMMEDIATE-DEPENDENTS0 QUOTIENT-PLUS-TIMES1 . BCDR-2) (IMMEDIATE-DEPENDENTS0 BCDR . BCDR-2) (LEMMAS BCDR . BCDR-2))))) (PUT1-LST (QUOTE BCAR-2) (QUOTE (IDATE 1000402214948 IMMEDIATE-DEPENDENTS0 (LOGAND-UINT-LA) EVENT (PROVE-LEMMA BCAR-2 (REWRITE) (EQUAL (BCAR (PLUS X (TIMES (QUOTE 2) Y))) (BCAR X))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-PLUS-TIMES1 . BCAR-2) (IMMEDIATE-DEPENDENTS0 BCAR . BCAR-2) (LEMMAS BCAR . BCAR-2))))) (PUT1-LST (QUOTE BCDR-1) (QUOTE (IDATE 1000402214948 IMMEDIATE-DEPENDENTS0 (LOGAND-UINT-LA LOGAND-LOGEOR LOGAND-LOGOR) EVENT (PROVE-LEMMA BCDR-1 (REWRITE) (AND (EQUAL (BCDR (TIMES (QUOTE 2) X)) (FIX X)) (EQUAL (BCDR (ADD1 (TIMES (QUOTE 2) X))) (FIX X)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-TIMES . BCDR-1) (IMMEDIATE-DEPENDENTS0 QUOTIENT-ADD1 . BCDR-1) (IMMEDIATE-DEPENDENTS0 QUOTIENT-TIMES . BCDR-1) (IMMEDIATE-DEPENDENTS0 BCDR . BCDR-1) (LEMMAS BCDR . BCDR-1) (LEMMAS BCDR . BCDR-1))))) (PUT1-LST (QUOTE BCAR-1) (QUOTE (IDATE 1000402214948 IMMEDIATE-DEPENDENTS0 (LOGAND-UINT-LA LOGAND-LOGEOR LOGAND-LOGOR) EVENT (PROVE-LEMMA BCAR-1 (REWRITE) (AND (EQUAL (BCAR (TIMES (QUOTE 2) X)) (QUOTE 0)) (EQUAL (BCAR (ADD1 (TIMES (QUOTE 2) X))) (QUOTE 1)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-ADD1 . BCAR-1) (IMMEDIATE-DEPENDENTS0 REMAINDER-TIMES . BCAR-1) (IMMEDIATE-DEPENDENTS0 BCAR . BCAR-1) (LEMMAS BCAR . BCAR-1) (LEMMAS BCAR . BCAR-1))))) (PUT1-LST (QUOTE BCDR-NONNUMBERP) (QUOTE (IDATE 1000402214948 IMMEDIATE-DEPENDENTS0 (LOGEOR-NAT-RANGEP LOGOR-NAT-RANGEP LOGAND-LOGEOR) EVENT (PROVE-LEMMA BCDR-NONNUMBERP (REWRITE) (IMPLIES (NOT (NUMBERP X)) (EQUAL (BCDR X) (QUOTE 0)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 QUOTIENT-EQUAL-0 . BCDR-NONNUMBERP) (IMMEDIATE-DEPENDENTS0 BCDR . BCDR-NONNUMBERP) (LEMMAS BCDR . BCDR-NONNUMBERP))))) (PUT1-LST (QUOTE BCAR-NONNUMBERP) (QUOTE (IDATE 1000402214948 IMMEDIATE-DEPENDENTS0 (LOGEOR-NAT-RANGEP LOGAND-LOGEOR LOGAND-LOGOR LOGEOR-COMMUTATIVITY LOGEOR-EQUAL-0) EVENT (PROVE-LEMMA BCAR-NONNUMBERP (REWRITE) (IMPLIES (NOT (NUMBERP X)) (EQUAL (BCAR X) (QUOTE 0)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-EXIT . BCAR-NONNUMBERP) (IMMEDIATE-DEPENDENTS0 BCAR . BCAR-NONNUMBERP) (LEMMAS BCAR . BCAR-NONNUMBERP))))) (PUT1-LST (QUOTE HEAD-APP) (QUOTE (IDATE 1000402214948 IMMEDIATE-DEPENDENTS0 (S&R-GROUP-H PUT-GET-LST-IS-CPY MEM-LST-GET-VALS MEM-LST-GET-VALS0 BYTE-WRITE-APP HEAD-EXT) EVENT (PROVE-LEMMA HEAD-APP (REWRITE) (IMPLIES (IF (LESSP J I) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (EQUAL (HEAD (APP J X Y) I) (HEAD X I)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-REMAINDER-EXP2 . HEAD-APP) (IMMEDIATE-DEPENDENTS0 REMAINDER-PLUS-TIMES-EXP2-1 . HEAD-APP) (IMMEDIATE-DEPENDENTS0 APP . HEAD-APP) (IMMEDIATE-DEPENDENTS0 HEAD . HEAD-APP) (LEMMAS HEAD . HEAD-APP))))) (PUT1-LST (QUOTE REPLACE-LEQ) (QUOTE (IDATE 1000402214948 IMMEDIATE-DEPENDENTS0 (SET-SET-CVZNX2 SET-SET-CVZNX1) EVENT (PROVE-LEMMA REPLACE-LEQ (REWRITE) (IMPLIES (IF (LESSP J I) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (EQUAL (REPLACE I (REPLACE J X Y) Z) (REPLACE I X Z))) ((DISABLE TIMES-COMMUTATIVITY))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 APP . REPLACE-LEQ) (IMMEDIATE-DEPENDENTS0 HEAD . REPLACE-LEQ) (IMMEDIATE-DEPENDENTS0 TAIL . REPLACE-LEQ) (IMMEDIATE-DEPENDENTS0 REMAINDER-PLUS-TIMES-EXP2-1 . REPLACE-LEQ) (IMMEDIATE-DEPENDENTS0 REMAINDER-REMAINDER-EXP2 . REPLACE-LEQ) (IMMEDIATE-DEPENDENTS0 REPLACE . REPLACE-LEQ) (LEMMAS REPLACE . REPLACE-LEQ))))) (PUT1-LST (QUOTE REPLACE-LEQ1) (QUOTE (IDATE 1000402214948 IMMEDIATE-DEPENDENTS0 (WRITE-WRITE-RN) EVENT (PROVE-LEMMA REPLACE-LEQ1 (REWRITE) (IMPLIES (IF (LESSP I J) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (EQUAL (REPLACE I X (REPLACE J Y Z)) (REPLACE I X Z))) ((DISABLE TIMES-COMMUTATIVITY))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EXP . REPLACE-LEQ1) (IMMEDIATE-DEPENDENTS0 QUOTIENT-1 . REPLACE-LEQ1) (IMMEDIATE-DEPENDENTS0 APP . REPLACE-LEQ1) (IMMEDIATE-DEPENDENTS0 HEAD . REPLACE-LEQ1) (IMMEDIATE-DEPENDENTS0 TAIL . REPLACE-LEQ1) (IMMEDIATE-DEPENDENTS0 EXP-OF-2-0 . REPLACE-LEQ1) (IMMEDIATE-DEPENDENTS0 REMAINDER-LESSP-LINEAR . REPLACE-LEQ1) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . REPLACE-LEQ1) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS . REPLACE-LEQ1) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-PLUS2 . REPLACE-LEQ1) (IMMEDIATE-DEPENDENTS0 EXP-PLUS . REPLACE-LEQ1) (IMMEDIATE-DEPENDENTS0 QUOTIENT-QUOTIENT . REPLACE-LEQ1) (IMMEDIATE-DEPENDENTS0 QUOTIENT-PLUS-TIMES-EXP2-2 . REPLACE-LEQ1) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-EQUAL-PLUS . REPLACE-LEQ1) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-EQUAL-TIMES . REPLACE-LEQ1) (IMMEDIATE-DEPENDENTS0 REPLACE . REPLACE-LEQ1) (LEMMAS REPLACE . REPLACE-LEQ1))))) (PUT1-LST (QUOTE REPLACE-ASSOCIATIVITY) (QUOTE (IDATE 1000402214948 IMMEDIATE-DEPENDENTS0 (SET-SET-CVZNX1) EVENT (PROVE-LEMMA REPLACE-ASSOCIATIVITY (REWRITE) (EQUAL (REPLACE N X (REPLACE N Y Z)) (REPLACE N (REPLACE N X Y) Z))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 APP . REPLACE-ASSOCIATIVITY) (IMMEDIATE-DEPENDENTS0 HEAD . REPLACE-ASSOCIATIVITY) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . REPLACE-ASSOCIATIVITY) (IMMEDIATE-DEPENDENTS0 TAIL . REPLACE-ASSOCIATIVITY) (IMMEDIATE-DEPENDENTS0 QUOTIENT-0 . REPLACE-ASSOCIATIVITY) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-X-X . REPLACE-ASSOCIATIVITY) (IMMEDIATE-DEPENDENTS0 EXP . REPLACE-ASSOCIATIVITY) (IMMEDIATE-DEPENDENTS0 REMAINDER-1 . REPLACE-ASSOCIATIVITY) (IMMEDIATE-DEPENDENTS0 REMAINDER-QUOTIENT-EXP2 . REPLACE-ASSOCIATIVITY) (IMMEDIATE-DEPENDENTS0 QUOTIENT-PLUS-TIMES1 . REPLACE-ASSOCIATIVITY) (IMMEDIATE-DEPENDENTS0 REMAINDER-PLUS-TIMES1 . REPLACE-ASSOCIATIVITY) (IMMEDIATE-DEPENDENTS0 REMAINDER-REMAINDER-EXP2 . REPLACE-ASSOCIATIVITY) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-EQUAL-PLUS . REPLACE-ASSOCIATIVITY) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-EQUAL-TIMES . REPLACE-ASSOCIATIVITY) (IMMEDIATE-DEPENDENTS0 REPLACE . REPLACE-ASSOCIATIVITY) (LEMMAS REPLACE . REPLACE-ASSOCIATIVITY))))) (PUT1-LST (QUOTE REPLACE-HEAD) (QUOTE (IDATE 1000402214948 EVENT (PROVE-LEMMA REPLACE-HEAD (REWRITE) (IMPLIES (IF (LESSP M N) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (EQUAL (REPLACE N (HEAD X M) X) (FIX X)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-LESSP . REPLACE-HEAD) (IMMEDIATE-DEPENDENTS0 REMAINDER-QUOTIENT-ELIM . REPLACE-HEAD) (IMMEDIATE-DEPENDENTS0 EXP-OF-2-0 . REPLACE-HEAD) (IMMEDIATE-DEPENDENTS0 REMAINDER-EXIT . REPLACE-HEAD) (IMMEDIATE-DEPENDENTS0 QUOTIENT-EXIT . REPLACE-HEAD) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . REPLACE-HEAD) (IMMEDIATE-DEPENDENTS0 APP . REPLACE-HEAD) (IMMEDIATE-DEPENDENTS0 REMAINDER-REMAINDER-EXP2 . REPLACE-HEAD) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . REPLACE-HEAD) (IMMEDIATE-DEPENDENTS0 TAIL . REPLACE-HEAD) (IMMEDIATE-DEPENDENTS0 HEAD . REPLACE-HEAD) (IMMEDIATE-DEPENDENTS0 REPLACE . REPLACE-HEAD) (LEMMAS REPLACE . REPLACE-HEAD))))) (PUT1-LST (QUOTE REPLACE-REFLEX) (QUOTE (IDATE 1000402214947 IMMEDIATE-DEPENDENTS0 (SET-CVZNX-CCR) EVENT (PROVE-LEMMA REPLACE-REFLEX (REWRITE) (EQUAL (REPLACE N X X) (FIX X))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-LESSP . REPLACE-REFLEX) (IMMEDIATE-DEPENDENTS0 REMAINDER-QUOTIENT-ELIM . REPLACE-REFLEX) (IMMEDIATE-DEPENDENTS0 EXP-OF-2-0 . REPLACE-REFLEX) (IMMEDIATE-DEPENDENTS0 REMAINDER-EXIT . REPLACE-REFLEX) (IMMEDIATE-DEPENDENTS0 QUOTIENT-EXIT . REPLACE-REFLEX) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . REPLACE-REFLEX) (IMMEDIATE-DEPENDENTS0 APP . REPLACE-REFLEX) (IMMEDIATE-DEPENDENTS0 HEAD . REPLACE-REFLEX) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . REPLACE-REFLEX) (IMMEDIATE-DEPENDENTS0 TAIL . REPLACE-REFLEX) (IMMEDIATE-DEPENDENTS0 REPLACE . REPLACE-REFLEX) (LEMMAS REPLACE . REPLACE-REFLEX))))) (PUT1-LST (QUOTE TAIL-REPLACE) (QUOTE (IDATE 1000402214947 IMMEDIATE-DEPENDENTS0 (BITN-REPLACE) EVENT (PROVE-LEMMA TAIL-REPLACE (REWRITE) (EQUAL (TAIL (REPLACE I X Y) J) (IF (LESSP J I) (REPLACE (DIFFERENCE I J) (TAIL X J) (TAIL Y J)) (TAIL Y J))) ((DISABLE TIMES-COMMUTATIVITY REMAINDER QUOTIENT))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-QUOTIENT-EXP2 . TAIL-REPLACE) (IMMEDIATE-DEPENDENTS0 QUOTIENT-PLUS-TIMES-EXP2-1 . TAIL-REPLACE) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . TAIL-REPLACE) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-EQUAL-PLUS . TAIL-REPLACE) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-EQUAL-TIMES . TAIL-REPLACE) (IMMEDIATE-DEPENDENTS0 EXP . TAIL-REPLACE) (IMMEDIATE-DEPENDENTS0 QUOTIENT-1 . TAIL-REPLACE) (IMMEDIATE-DEPENDENTS0 EXP-OF-2-0 . TAIL-REPLACE) (IMMEDIATE-DEPENDENTS0 REMAINDER-LESSP-LINEAR . TAIL-REPLACE) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS . TAIL-REPLACE) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-PLUS2 . TAIL-REPLACE) (IMMEDIATE-DEPENDENTS0 QUOTIENT-PLUS-TIMES-EXP2-2 . TAIL-REPLACE) (IMMEDIATE-DEPENDENTS0 APP . TAIL-REPLACE) (IMMEDIATE-DEPENDENTS0 HEAD . TAIL-REPLACE) (IMMEDIATE-DEPENDENTS0 EXP-PLUS . TAIL-REPLACE) (IMMEDIATE-DEPENDENTS0 QUOTIENT-QUOTIENT . TAIL-REPLACE) (IMMEDIATE-DEPENDENTS0 REPLACE . TAIL-REPLACE) (IMMEDIATE-DEPENDENTS0 TAIL . TAIL-REPLACE) (LEMMAS TAIL . TAIL-REPLACE))))) (PUT1-LST (QUOTE TAIL-APP) (QUOTE (IDATE 1000402214947 IMMEDIATE-DEPENDENTS0 (PUT-GET-LST-IS-CPY MEM-LST-GET-VALS MEM-LST-GET-VALS0 BITN-APP) EVENT (PROVE-LEMMA TAIL-APP (REWRITE) (EQUAL (TAIL (APP I X Y) J) (IF (LESSP J I) (APP (DIFFERENCE I J) (TAIL X J) Y) (TAIL Y (DIFFERENCE J I)))) ((DISABLE REMAINDER QUOTIENT))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-QUOTIENT-EXP2 . TAIL-APP) (IMMEDIATE-DEPENDENTS0 QUOTIENT-PLUS-TIMES-EXP2-1 . TAIL-APP) (IMMEDIATE-DEPENDENTS0 EXP-OF-2-0 . TAIL-APP) (IMMEDIATE-DEPENDENTS0 REMAINDER-LESSP-LINEAR . TAIL-APP) (IMMEDIATE-DEPENDENTS0 QUOTIENT-PLUS-TIMES-EXP2-2 . TAIL-APP) (IMMEDIATE-DEPENDENTS0 HEAD . TAIL-APP) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . TAIL-APP) (IMMEDIATE-DEPENDENTS0 APP . TAIL-APP) (IMMEDIATE-DEPENDENTS0 TAIL . TAIL-APP) (LEMMAS TAIL . TAIL-APP))))) (PUT1-LST (QUOTE TAIL-HEAD) (QUOTE (IDATE 1000402214947 IMMEDIATE-DEPENDENTS0 (BITN-HEAD) EVENT (PROVE-LEMMA TAIL-HEAD (REWRITE) (EQUAL (TAIL (HEAD X M) N) (HEAD (TAIL X N) (DIFFERENCE M N))) ((DISABLE REMAINDER QUOTIENT))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . TAIL-HEAD) (IMMEDIATE-DEPENDENTS0 EXP . TAIL-HEAD) (IMMEDIATE-DEPENDENTS0 REMAINDER-1 . TAIL-HEAD) (IMMEDIATE-DEPENDENTS0 REMAINDER-QUOTIENT-EXP2 . TAIL-HEAD) (IMMEDIATE-DEPENDENTS0 HEAD . TAIL-HEAD) (IMMEDIATE-DEPENDENTS0 TAIL . TAIL-HEAD) (LEMMAS TAIL . TAIL-HEAD))))) (PUT1-LST (QUOTE HEAD-REPLACE) (QUOTE (IDATE 1000402214947 IMMEDIATE-DEPENDENTS0 (READ-WRITE-RN) EVENT (PROVE-LEMMA HEAD-REPLACE (REWRITE) (EQUAL (HEAD (REPLACE M X Y) N) (IF (LESSP M N) (REPLACE M X (HEAD Y N)) (HEAD X N))) ((DISABLE TIMES-COMMUTATIVITY REMAINDER QUOTIENT))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EXP-OF-2-0 . HEAD-REPLACE) (IMMEDIATE-DEPENDENTS0 REMAINDER-LESSP-LINEAR . HEAD-REPLACE) (IMMEDIATE-DEPENDENTS0 REMAINDER-PLUS-TIMES-EXP2-2 . HEAD-REPLACE) (IMMEDIATE-DEPENDENTS0 REMAINDER-REMAINDER-EXP2 . HEAD-REPLACE) (IMMEDIATE-DEPENDENTS0 REMAINDER-PLUS-TIMES-EXP2-1 . HEAD-REPLACE) (IMMEDIATE-DEPENDENTS0 APP . HEAD-REPLACE) (IMMEDIATE-DEPENDENTS0 TAIL . HEAD-REPLACE) (IMMEDIATE-DEPENDENTS0 REMAINDER-QUOTIENT-EXP2 . HEAD-REPLACE) (IMMEDIATE-DEPENDENTS0 REPLACE . HEAD-REPLACE) (IMMEDIATE-DEPENDENTS0 HEAD . HEAD-REPLACE) (LEMMAS HEAD . HEAD-REPLACE))))) (PUT1-LST (QUOTE EXP2-LEQ-OFF) (QUOTE (IDATE 1000402214946 EVENT (TOGGLE EXP2-LEQ-OFF EXP2-LEQ T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EXP2-LEQ . EXP2-LEQ-OFF) (DISABLED-LEMMAS NIL EXP2-LEQ EXP2-LEQ-OFF . T))))) (PUT1-LST (QUOTE REMAINDER-QUOTIENT-EXP2) (QUOTE (IDATE 1000402214946 IMMEDIATE-DEPENDENTS0 (HEAD-APP-HEAD-TAIL REPLACE-ASSOCIATIVITY TAIL-REPLACE TAIL-APP TAIL-HEAD HEAD-REPLACE) EVENT (PROVE-LEMMA REMAINDER-QUOTIENT-EXP2 (REWRITE) (EQUAL (QUOTIENT (REMAINDER X (EXP (QUOTE 2) I)) (EXP (QUOTE 2) J)) (IF (LESSP J I) (REMAINDER (QUOTIENT X (EXP (QUOTE 2) J)) (EXP (QUOTE 2) (DIFFERENCE I J))) (QUOTE 0)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-OF-1 . REMAINDER-QUOTIENT-EXP2) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . REMAINDER-QUOTIENT-EXP2) (IMMEDIATE-DEPENDENTS0 LESSP-PLUS-TIMES-EXP2 . REMAINDER-QUOTIENT-EXP2) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . REMAINDER-QUOTIENT-EXP2) (IMMEDIATE-DEPENDENTS0 PLUS-ASSOCIATIVITY . REMAINDER-QUOTIENT-EXP2) (IMMEDIATE-DEPENDENTS0 REMAINDER-TIMES-EXP2-1 . REMAINDER-QUOTIENT-EXP2) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . REMAINDER-QUOTIENT-EXP2) (IMMEDIATE-DEPENDENTS0 REMAINDER-1 . REMAINDER-QUOTIENT-EXP2) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-X-X . REMAINDER-QUOTIENT-EXP2) (IMMEDIATE-DEPENDENTS0 QUOTIENT-PLUS-TIMES-EXP2-1 . REMAINDER-QUOTIENT-EXP2) (IMMEDIATE-DEPENDENTS0 QUOTIENT-1 . REMAINDER-QUOTIENT-EXP2) (IMMEDIATE-DEPENDENTS0 TIMES-1 . REMAINDER-QUOTIENT-EXP2) (IMMEDIATE-DEPENDENTS0 QUOTIENT-TIMES-EXP2-1 . REMAINDER-QUOTIENT-EXP2) (IMMEDIATE-DEPENDENTS0 QUOTIENT-PLUS-PLUS . REMAINDER-QUOTIENT-EXP2) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-LESSP-CANCEL . REMAINDER-QUOTIENT-EXP2) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS . REMAINDER-QUOTIENT-EXP2) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-PLUS1 . REMAINDER-QUOTIENT-EXP2) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-DIFFERENCE2 . REMAINDER-QUOTIENT-EXP2) (IMMEDIATE-DEPENDENTS0 REMAINDER-PLUS-TIMES-EXP2-2 . REMAINDER-QUOTIENT-EXP2) (IMMEDIATE-DEPENDENTS0 TIMES-EQUAL-0 . REMAINDER-QUOTIENT-EXP2) (IMMEDIATE-DEPENDENTS0 REMAINDER-EXIT . REMAINDER-QUOTIENT-EXP2) (IMMEDIATE-DEPENDENTS0 QUOTIENT-0 . REMAINDER-QUOTIENT-EXP2) (IMMEDIATE-DEPENDENTS0 REMAINDER-0 . REMAINDER-QUOTIENT-EXP2) (IMMEDIATE-DEPENDENTS0 REMAINDER-LESSP . REMAINDER-QUOTIENT-EXP2) (IMMEDIATE-DEPENDENTS0 REMAINDER-QUOTIENT-ELIM . REMAINDER-QUOTIENT-EXP2) (IMMEDIATE-DEPENDENTS0 EXP-OF-2-0 . REMAINDER-QUOTIENT-EXP2) (IMMEDIATE-DEPENDENTS0 REMAINDER-LESSP-LINEAR . REMAINDER-QUOTIENT-EXP2) (IMMEDIATE-DEPENDENTS0 EXP2-LEQ . REMAINDER-QUOTIENT-EXP2) (IMMEDIATE-DEPENDENTS0 QUOTIENT-EXIT . REMAINDER-QUOTIENT-EXP2) (IMMEDIATE-DEPENDENTS0 EXP . REMAINDER-QUOTIENT-EXP2) (LEMMAS QUOTIENT . REMAINDER-QUOTIENT-EXP2))))) (PUT1-LST (QUOTE QUOTIENT-PLUS-TIMES-EXP2-2) (QUOTE (IDATE 1000402214945 IMMEDIATE-DEPENDENTS0 (REPLACE-LEQ1 TAIL-REPLACE TAIL-APP) EVENT (PROVE-LEMMA QUOTIENT-PLUS-TIMES-EXP2-2 (REWRITE) (IMPLIES (AND (IF (LESSP J I) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (LESSP X (EXP (QUOTE 2) I))) (EQUAL (QUOTIENT (PLUS X (TIMES Y (EXP (QUOTE 2) I))) (EXP (QUOTE 2) J)) (QUOTIENT Y (EXP (QUOTE 2) (DIFFERENCE J I))))) ((ENABLE TIMES-DISTRIBUTES-PLUS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-TIMES-EXP2-1 . QUOTIENT-PLUS-TIMES-EXP2-2) (IMMEDIATE-DEPENDENTS0 REMAINDER-1 . QUOTIENT-PLUS-TIMES-EXP2-2) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-X-X . QUOTIENT-PLUS-TIMES-EXP2-2) (IMMEDIATE-DEPENDENTS0 LESSP-PLUS-TIMES-EXP2 . QUOTIENT-PLUS-TIMES-EXP2-2) (IMMEDIATE-DEPENDENTS0 QUOTIENT-TIMES-EXP2-1 . QUOTIENT-PLUS-TIMES-EXP2-2) (IMMEDIATE-DEPENDENTS0 QUOTIENT-PLUS-PLUS . QUOTIENT-PLUS-TIMES-EXP2-2) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . QUOTIENT-PLUS-TIMES-EXP2-2) (IMMEDIATE-DEPENDENTS0 LESSP-OF-1 . QUOTIENT-PLUS-TIMES-EXP2-2) (IMMEDIATE-DEPENDENTS0 TIMES-1 . QUOTIENT-PLUS-TIMES-EXP2-2) (IMMEDIATE-DEPENDENTS0 QUOTIENT-1 . QUOTIENT-PLUS-TIMES-EXP2-2) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . QUOTIENT-PLUS-TIMES-EXP2-2) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS . QUOTIENT-PLUS-TIMES-EXP2-2) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-PLUS2 . QUOTIENT-PLUS-TIMES-EXP2-2) (IMMEDIATE-DEPENDENTS0 EXP-PLUS . QUOTIENT-PLUS-TIMES-EXP2-2) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY1 . QUOTIENT-PLUS-TIMES-EXP2-2) (IMMEDIATE-DEPENDENTS0 TIMES-DISTRIBUTES-PLUS . QUOTIENT-PLUS-TIMES-EXP2-2) (IMMEDIATE-DEPENDENTS0 EXP2-LEQ . QUOTIENT-PLUS-TIMES-EXP2-2) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . QUOTIENT-PLUS-TIMES-EXP2-2) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . QUOTIENT-PLUS-TIMES-EXP2-2) (IMMEDIATE-DEPENDENTS0 EXP-OF-2-0 . QUOTIENT-PLUS-TIMES-EXP2-2) (IMMEDIATE-DEPENDENTS0 QUOTIENT-EXIT . QUOTIENT-PLUS-TIMES-EXP2-2) (IMMEDIATE-DEPENDENTS0 QUOTIENT-EQUAL-0 . QUOTIENT-PLUS-TIMES-EXP2-2) (IMMEDIATE-DEPENDENTS0 REMAINDER-LESSP . QUOTIENT-PLUS-TIMES-EXP2-2) (IMMEDIATE-DEPENDENTS0 REMAINDER-QUOTIENT-ELIM . QUOTIENT-PLUS-TIMES-EXP2-2) (IMMEDIATE-DEPENDENTS0 EXP . QUOTIENT-PLUS-TIMES-EXP2-2) (LEMMAS QUOTIENT . QUOTIENT-PLUS-TIMES-EXP2-2))))) (PUT1-LST (QUOTE EXP2-LEQ) (QUOTE (IDATE 1000402214944 IMMEDIATE-DEPENDENTS0 (EXT-NAT-RANGEP REPLACE-NAT-RANGEP APP-NAT-RANGEP EXP2-LEQ-OFF REMAINDER-QUOTIENT-EXP2 QUOTIENT-PLUS-TIMES-EXP2-2) EVENT (PROVE-LEMMA EXP2-LEQ (REWRITE) (IMPLIES (IF (LESSP J I) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (NOT (LESSP (EXP (QUOTE 2) J) (EXP (QUOTE 2) I))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EXP-LESSP . EXP2-LEQ) (IMMEDIATE-DEPENDENTS0 EXP . EXP2-LEQ) (LINEAR-LEMMAS EXP . EXP2-LEQ) (LINEAR-LEMMAS EXP . EXP2-LEQ))))) (PUT1-LST (QUOTE QUOTIENT-PLUS-TIMES-EXP2-1) (QUOTE (IDATE 1000402214944 IMMEDIATE-DEPENDENTS0 (TAIL-REPLACE TAIL-APP REMAINDER-QUOTIENT-EXP2) EVENT (PROVE-LEMMA QUOTIENT-PLUS-TIMES-EXP2-1 (REWRITE) (IMPLIES (LESSP J I) (EQUAL (QUOTIENT (PLUS X (TIMES Y (EXP (QUOTE 2) I))) (EXP (QUOTE 2) J)) (PLUS (QUOTIENT X (EXP (QUOTE 2) J)) (TIMES Y (EXP (QUOTE 2) (DIFFERENCE I J)))))) ((USE (QUOTIENT-PLUS1 (I (TIMES Y (EXP (QUOTE 2) I))) (J (EXP (QUOTE 2) J)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . QUOTIENT-PLUS-TIMES-EXP2-1) (IMMEDIATE-DEPENDENTS0 REMAINDER-1 . QUOTIENT-PLUS-TIMES-EXP2-1) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . QUOTIENT-PLUS-TIMES-EXP2-1) (IMMEDIATE-DEPENDENTS0 REMAINDER-TIMES-EXP2-1 . QUOTIENT-PLUS-TIMES-EXP2-1) (IMMEDIATE-DEPENDENTS0 QUOTIENT-TIMES-EXP2-1 . QUOTIENT-PLUS-TIMES-EXP2-1) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-EQUAL-PLUS . QUOTIENT-PLUS-TIMES-EXP2-1) (IMMEDIATE-DEPENDENTS0 QUOTIENT-PLUS1 . QUOTIENT-PLUS-TIMES-EXP2-1) (IMMEDIATE-DEPENDENTS0 EXP . QUOTIENT-PLUS-TIMES-EXP2-1) (LEMMAS QUOTIENT . QUOTIENT-PLUS-TIMES-EXP2-1))))) (PUT1-LST (QUOTE REMAINDER-PLUS-TIMES-EXP2-2) (QUOTE (IDATE 1000402214944 IMMEDIATE-DEPENDENTS0 (LOGAND-UINT-LA APP-ASSOCIATIVITY HEAD-REPLACE REMAINDER-QUOTIENT-EXP2) EVENT (PROVE-LEMMA REMAINDER-PLUS-TIMES-EXP2-2 (REWRITE) (IMPLIES (AND (LESSP X (EXP (QUOTE 2) I)) (IF (LESSP J I) (QUOTE *1*FALSE) (QUOTE *1*TRUE))) (EQUAL (REMAINDER (PLUS X (TIMES Y (EXP (QUOTE 2) I))) (EXP (QUOTE 2) J)) (IF (LESSP I J) (PLUS X (TIMES (REMAINDER Y (EXP (QUOTE 2) (DIFFERENCE J I))) (EXP (QUOTE 2) I))) (FIX X)))) ((ENABLE TIMES-DISTRIBUTES-PLUS EXP2-LESSP) (DISABLE PLUS-COMMUTATIVITY))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-PLUS-TIMES-EXP2 . REMAINDER-PLUS-TIMES-EXP2-2) (IMMEDIATE-DEPENDENTS0 REMAINDER-PLUS-PLUS-TIMES2 . REMAINDER-PLUS-TIMES-EXP2-2) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS . REMAINDER-PLUS-TIMES-EXP2-2) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-PLUS2 . REMAINDER-PLUS-TIMES-EXP2-2) (IMMEDIATE-DEPENDENTS0 EXP-PLUS . REMAINDER-PLUS-TIMES-EXP2-2) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY1 . REMAINDER-PLUS-TIMES-EXP2-2) (IMMEDIATE-DEPENDENTS0 TIMES-DISTRIBUTES-PLUS . REMAINDER-PLUS-TIMES-EXP2-2) (IMMEDIATE-DEPENDENTS0 REMAINDER-0 . REMAINDER-PLUS-TIMES-EXP2-2) (IMMEDIATE-DEPENDENTS0 EXP2-LESSP . REMAINDER-PLUS-TIMES-EXP2-2) (IMMEDIATE-DEPENDENTS0 REMAINDER-PLUS1 . REMAINDER-PLUS-TIMES-EXP2-2) (IMMEDIATE-DEPENDENTS0 EXP-OF-2-0 . REMAINDER-PLUS-TIMES-EXP2-2) (IMMEDIATE-DEPENDENTS0 REMAINDER-LESSP . REMAINDER-PLUS-TIMES-EXP2-2) (IMMEDIATE-DEPENDENTS0 REMAINDER-QUOTIENT-ELIM . REMAINDER-PLUS-TIMES-EXP2-2) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-X-X . REMAINDER-PLUS-TIMES-EXP2-2) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . REMAINDER-PLUS-TIMES-EXP2-2) (IMMEDIATE-DEPENDENTS0 REMAINDER-TIMES-EXP2-1 . REMAINDER-PLUS-TIMES-EXP2-2) (IMMEDIATE-DEPENDENTS0 REMAINDER-EXIT . REMAINDER-PLUS-TIMES-EXP2-2) (IMMEDIATE-DEPENDENTS0 REMAINDER-PLUS-TIMES-EXP2-1 . REMAINDER-PLUS-TIMES-EXP2-2) (IMMEDIATE-DEPENDENTS0 LESSP-OF-1 . REMAINDER-PLUS-TIMES-EXP2-2) (IMMEDIATE-DEPENDENTS0 TIMES-1 . REMAINDER-PLUS-TIMES-EXP2-2) (IMMEDIATE-DEPENDENTS0 REMAINDER-1 . REMAINDER-PLUS-TIMES-EXP2-2) (IMMEDIATE-DEPENDENTS0 REMAINDER-PLUS2 . REMAINDER-PLUS-TIMES-EXP2-2) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . REMAINDER-PLUS-TIMES-EXP2-2) (IMMEDIATE-DEPENDENTS0 EXP . REMAINDER-PLUS-TIMES-EXP2-2) (LEMMAS REMAINDER . REMAINDER-PLUS-TIMES-EXP2-2))))) (PUT1-LST (QUOTE REMAINDER2-PLUS-TIMES-EXP2) (QUOTE (IDATE 1000402214943 IMMEDIATE-DEPENDENTS0 (BCAR-REPLACE BCAR-APP) EVENT (PROVE-LEMMA REMAINDER2-PLUS-TIMES-EXP2 (REWRITE) (IMPLIES (NOT (ZEROP I)) (EQUAL (REMAINDER (PLUS X (TIMES Y (EXP (QUOTE 2) I))) (QUOTE 2)) (REMAINDER X (QUOTE 2)))) ((USE (REMAINDER-PLUS-TIMES-EXP2-1 (J (QUOTE 1)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-OF-1 . REMAINDER2-PLUS-TIMES-EXP2) (IMMEDIATE-DEPENDENTS0 REMAINDER-TIMES-EXP2-3 . REMAINDER2-PLUS-TIMES-EXP2) (IMMEDIATE-DEPENDENTS0 REMAINDER-PLUS1 . REMAINDER2-PLUS-TIMES-EXP2) (IMMEDIATE-DEPENDENTS0 REMAINDER-PLUS-TIMES-EXP2-1 . REMAINDER2-PLUS-TIMES-EXP2) (IMMEDIATE-DEPENDENTS0 EXP . REMAINDER2-PLUS-TIMES-EXP2) (LEMMAS REMAINDER . REMAINDER2-PLUS-TIMES-EXP2))))) (PUT1-LST (QUOTE REMAINDER-PLUS-TIMES-EXP2-1) (QUOTE (IDATE 1000402214943 IMMEDIATE-DEPENDENTS0 (HEAD-APP REPLACE-LEQ HEAD-REPLACE REMAINDER-PLUS-TIMES-EXP2-2 REMAINDER2-PLUS-TIMES-EXP2) EVENT (PROVE-LEMMA REMAINDER-PLUS-TIMES-EXP2-1 (REWRITE) (IMPLIES (IF (LESSP I J) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (EQUAL (REMAINDER (PLUS X (TIMES Y (EXP (QUOTE 2) I))) (EXP (QUOTE 2) J)) (REMAINDER X (EXP (QUOTE 2) J)))) ((USE (REMAINDER-PLUS1 (I (TIMES Y (EXP (QUOTE 2) I))) (J (EXP (QUOTE 2) J)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . REMAINDER-PLUS-TIMES-EXP2-1) (IMMEDIATE-DEPENDENTS0 REMAINDER-1 . REMAINDER-PLUS-TIMES-EXP2-1) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . REMAINDER-PLUS-TIMES-EXP2-1) (IMMEDIATE-DEPENDENTS0 REMAINDER-TIMES-EXP2-1 . REMAINDER-PLUS-TIMES-EXP2-1) (IMMEDIATE-DEPENDENTS0 REMAINDER-PLUS1 . REMAINDER-PLUS-TIMES-EXP2-1) (IMMEDIATE-DEPENDENTS0 EXP . REMAINDER-PLUS-TIMES-EXP2-1) (LEMMAS REMAINDER . REMAINDER-PLUS-TIMES-EXP2-1))))) (PUT1-LST (QUOTE HEAD-PLUS-HEAD) (QUOTE (IDATE 1000402214943 IMMEDIATE-DEPENDENTS0 (ADD-PLUS) EVENT (PROVE-LEMMA HEAD-PLUS-HEAD (REWRITE) (EQUAL (HEAD (PLUS X (HEAD Y N)) N) (HEAD (PLUS X Y) N))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-PLUS-CANCEL . HEAD-PLUS-HEAD) (IMMEDIATE-DEPENDENTS0 REMAINDER-PLUS-REMAINDER1 . HEAD-PLUS-HEAD) (IMMEDIATE-DEPENDENTS0 HEAD . HEAD-PLUS-HEAD) (LEMMAS HEAD . HEAD-PLUS-HEAD))))) (PUT1-LST (QUOTE HEAD-PLUS-CANCEL) (QUOTE (IDATE 1000402214943 IMMEDIATE-DEPENDENTS0 (DISJOINT0-DEDUCTION2 DISJOINT0-DEDUCTION1 ADD-PLUS) EVENT (PROVE-LEMMA HEAD-PLUS-CANCEL (REWRITE) (EQUAL (EQUAL (HEAD (PLUS X Y) N) (HEAD (PLUS X Z) N)) (EQUAL (HEAD Y N) (HEAD Z N)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-PLUS-CANCEL . HEAD-PLUS-CANCEL) (IMMEDIATE-DEPENDENTS0 HEAD . HEAD-PLUS-CANCEL) (LEMMAS EQUAL . HEAD-PLUS-CANCEL))))) (PUT1-LST (QUOTE HEAD-PLUS-CANCEL0) (QUOTE (IDATE 1000402214943 IMMEDIATE-DEPENDENTS0 (DISJOINT0-DEDUCTION1) EVENT (PROVE-LEMMA HEAD-PLUS-CANCEL0 (REWRITE) (EQUAL (EQUAL (HEAD (PLUS I J) N) (HEAD I N)) (EQUAL (HEAD J N) (QUOTE 0))) ((USE (REMAINDER-PLUS-CANCEL (K (QUOTE 0)) (N (EXP (QUOTE 2) N)))) (DISABLE REMAINDER-PLUS-CANCEL))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-LESSP-LINEAR . HEAD-PLUS-CANCEL0) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . HEAD-PLUS-CANCEL0) (IMMEDIATE-DEPENDENTS0 EXP-OF-2-0 . HEAD-PLUS-CANCEL0) (IMMEDIATE-DEPENDENTS0 REMAINDER-EXIT . HEAD-PLUS-CANCEL0) (IMMEDIATE-DEPENDENTS0 REMAINDER-PLUS1 . HEAD-PLUS-CANCEL0) (IMMEDIATE-DEPENDENTS0 REMAINDER-0 . HEAD-PLUS-CANCEL0) (IMMEDIATE-DEPENDENTS0 REMAINDER-PLUS-CANCEL . HEAD-PLUS-CANCEL0) (IMMEDIATE-DEPENDENTS0 HEAD . HEAD-PLUS-CANCEL0) (LEMMAS EQUAL . HEAD-PLUS-CANCEL0))))) (PUT1-LST (QUOTE TAIL-TAIL) (QUOTE (IDATE 1000402214943 IMMEDIATE-DEPENDENTS0 (BITN-TAIL) EVENT (PROVE-LEMMA TAIL-TAIL (REWRITE) (EQUAL (TAIL (TAIL X M) N) (TAIL X (PLUS M N)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EXP-PLUS . TAIL-TAIL) (IMMEDIATE-DEPENDENTS0 QUOTIENT-QUOTIENT . TAIL-TAIL) (IMMEDIATE-DEPENDENTS0 TAIL . TAIL-TAIL) (LEMMAS TAIL . TAIL-TAIL))))) (PUT1-LST (QUOTE HEAD-HEAD) (QUOTE (IDATE 1000402214943 IMMEDIATE-DEPENDENTS0 (S&R-GROUP-H MOD32-EQ-DEDUCTION3 MOD32-EQ-DEDUCTION2 DISJOINT0-DEDUCTION2 DISJOINT0-DEDUCTION1 DISJOINT0-X-X DISJOINT0-LA0 DISJOINT0-HEAD EVAL$-ADD-MEMBER NEG-HEAD WRITE-MEM-BYTE-WRITE BYTE-READ-WRITE-MEM BYTE-READ-WRITE EXT-EQUAL MODN-EQ-EQUAL HEAD-READ-RN HEAD-EXT) EVENT (PROVE-LEMMA HEAD-HEAD (REWRITE) (EQUAL (HEAD (HEAD X M) N) (IF (LESSP N M) (HEAD X N) (HEAD X M)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EXP . HEAD-HEAD) (IMMEDIATE-DEPENDENTS0 REMAINDER-1 . HEAD-HEAD) (IMMEDIATE-DEPENDENTS0 REMAINDER-REMAINDER-EXP2 . HEAD-HEAD) (IMMEDIATE-DEPENDENTS0 HEAD . HEAD-HEAD) (LEMMAS HEAD . HEAD-HEAD))))) (PUT1-LST (QUOTE ADD-NEG-ADDER-OFF) (QUOTE (IDATE 1000402214943 EVENT (TOGGLE ADD-NEG-ADDER-OFF ADD-NEG-ADDER T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ADD-NEG-ADDER . ADD-NEG-ADDER-OFF) (DISABLED-LEMMAS NIL ADD-NEG-ADDER ADD-NEG-ADDER-OFF . T))))) (PUT1-LST (QUOTE SUB-INT) (QUOTE (IDATE 1000402214943 IMMEDIATE-DEPENDENTS0 (SUB-BLE SUB-BGT SUB-BLT SUB-BGE SUB-BMI) EVENT (PROVE-LEMMA SUB-INT (REWRITE) (IMPLIES (AND (NAT-RANGEP X N) (AND (NAT-RANGEP Y N) (NOT (ZEROP N)))) (EQUAL (NAT-TO-INT (ADD N X (NEG N Y)) N) (IF (INT-RANGEP (IDIFFERENCE (NAT-TO-INT X N) (NAT-TO-INT Y N)) N) (IDIFFERENCE (NAT-TO-INT X N) (NAT-TO-INT Y N)) (IF (NEGATIVEP (NAT-TO-INT X N)) (IDIFFERENCE (IPLUS (NAT-TO-INT X N) (EXP (QUOTE 2) N)) (NAT-TO-INT Y N)) (IDIFFERENCE (IPLUS (NAT-TO-INT X N) (MINUS (EXP (QUOTE 2) N))) (NAT-TO-INT Y N)))))) ((DISABLE NEG))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MINUS-INTEGERP . SUB-INT) (IMMEDIATE-DEPENDENTS0 FIX-INT . SUB-INT) (IMMEDIATE-DEPENDENTS0 NUMBERP-INTEGERP . SUB-INT) (IMMEDIATE-DEPENDENTS0 IPLUS-0 . SUB-INT) (IMMEDIATE-DEPENDENTS0 NAT-TO-INT-RANGEP . SUB-INT) (IMMEDIATE-DEPENDENTS0 BITP . SUB-INT) (IMMEDIATE-DEPENDENTS0 LOGNOT-NAT-RANGEP . SUB-INT) (IMMEDIATE-DEPENDENTS0 NEGP . SUB-INT) (IMMEDIATE-DEPENDENTS0 NEGATIVEP-GUTS0 . SUB-INT) (IMMEDIATE-DEPENDENTS0 IZEROP . SUB-INT) (IMMEDIATE-DEPENDENTS0 NAT-TO-INT-INTEGERP . SUB-INT) (IMMEDIATE-DEPENDENTS0 INTEGERP-FIX-INT . SUB-INT) (IMMEDIATE-DEPENDENTS0 INEG . SUB-INT) (IMMEDIATE-DEPENDENTS0 LOGNOT-INT . SUB-INT) (IMMEDIATE-DEPENDENTS0 IPLUS-COMMUTATIVITY . SUB-INT) (IMMEDIATE-DEPENDENTS0 IPLUS-1--1 . SUB-INT) (IMMEDIATE-DEPENDENTS0 IPLUS-COMMUTATIVITY1 . SUB-INT) (IMMEDIATE-DEPENDENTS0 IPLUS-INTEGERP . SUB-INT) (IMMEDIATE-DEPENDENTS0 ADDER-INT . SUB-INT) (IMMEDIATE-DEPENDENTS0 IPLUS-ASSOCIATIVITY . SUB-INT) (IMMEDIATE-DEPENDENTS0 ADD-NEG-ADDER . SUB-INT) (IMMEDIATE-DEPENDENTS0 EXP . SUB-INT) (IMMEDIATE-DEPENDENTS0 IPLUS . SUB-INT) (IMMEDIATE-DEPENDENTS0 IDIFFERENCE . SUB-INT) (IMMEDIATE-DEPENDENTS0 INT-RANGEP . SUB-INT) (IMMEDIATE-DEPENDENTS0 NEG . SUB-INT) (IMMEDIATE-DEPENDENTS0 ADD . SUB-INT) (IMMEDIATE-DEPENDENTS0 NAT-TO-INT . SUB-INT) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . SUB-INT) (LEMMAS NAT-TO-INT . SUB-INT))))) (PUT1-LST (QUOTE ADD-INT) (QUOTE (IDATE 1000402214942 IMMEDIATE-DEPENDENTS0 (SCC-GROUP-H ADD-BMI) EVENT (PROVE-LEMMA ADD-INT (REWRITE) (IMPLIES (AND (NAT-RANGEP X N) (NAT-RANGEP Y N)) (EQUAL (NAT-TO-INT (ADD N X Y) N) (IF (INT-RANGEP (IPLUS (NAT-TO-INT X N) (NAT-TO-INT Y N)) N) (IPLUS (NAT-TO-INT X N) (NAT-TO-INT Y N)) (IF (NEGATIVEP (NAT-TO-INT X N)) (IPLUS (NAT-TO-INT X N) (IPLUS (NAT-TO-INT Y N) (EXP (QUOTE 2) N))) (IPLUS (NAT-TO-INT X N) (IPLUS (NAT-TO-INT Y N) (MINUS (EXP (QUOTE 2) N)))))))) ((ENABLE ADD-ADDER))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BITP . ADD-INT) (IMMEDIATE-DEPENDENTS0 IZEROP . ADD-INT) (IMMEDIATE-DEPENDENTS0 NAT-TO-INT-INTEGERP . ADD-INT) (IMMEDIATE-DEPENDENTS0 INTEGERP-FIX-INT . ADD-INT) (IMMEDIATE-DEPENDENTS0 IPLUS-0 . ADD-INT) (IMMEDIATE-DEPENDENTS0 NUMBERP-INTEGERP . ADD-INT) (IMMEDIATE-DEPENDENTS0 IPLUS-COMMUTATIVITY . ADD-INT) (IMMEDIATE-DEPENDENTS0 IPLUS-COMMUTATIVITY1 . ADD-INT) (IMMEDIATE-DEPENDENTS0 MINUS-INTEGERP . ADD-INT) (IMMEDIATE-DEPENDENTS0 FIX-INT . ADD-INT) (IMMEDIATE-DEPENDENTS0 ADDER-INT . ADD-INT) (IMMEDIATE-DEPENDENTS0 ADD-ADDER . ADD-INT) (IMMEDIATE-DEPENDENTS0 EXP . ADD-INT) (IMMEDIATE-DEPENDENTS0 IPLUS . ADD-INT) (IMMEDIATE-DEPENDENTS0 INT-RANGEP . ADD-INT) (IMMEDIATE-DEPENDENTS0 ADD . ADD-INT) (IMMEDIATE-DEPENDENTS0 NAT-TO-INT . ADD-INT) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . ADD-INT) (LEMMAS NAT-TO-INT . ADD-INT))))) (PUT1-LST (QUOTE SUBTRACTER-OFF) (QUOTE (IDATE 1000402214942 EVENT (TOGGLE SUBTRACTER-OFF SUBTRACTER T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUBTRACTER . SUBTRACTER-OFF) (DISABLED-LEMMAS NIL SUBTRACTER SUBTRACTER-OFF . T))))) (PUT1-LST (QUOTE SUBTRACTER-INT) (QUOTE (IDATE 1000402214942 EVENT (PROVE-LEMMA SUBTRACTER-INT (REWRITE) (IMPLIES (AND (NAT-RANGEP X N) (AND (NAT-RANGEP Y N) (AND (BITP C) (NOT (ZEROP N))))) (EQUAL (NAT-TO-INT (SUBTRACTER N C X Y) N) (IF (INT-RANGEP (IDIFFERENCE (NAT-TO-INT Y N) (IPLUS (NAT-TO-INT X N) C)) N) (IDIFFERENCE (NAT-TO-INT Y N) (IPLUS (NAT-TO-INT X N) C)) (IF (NEGATIVEP (NAT-TO-INT Y N)) (IDIFFERENCE (IPLUS (NAT-TO-INT Y N) (EXP (QUOTE 2) N)) (IPLUS (NAT-TO-INT X N) C)) (IDIFFERENCE (IPLUS (NAT-TO-INT Y N) (MINUS (EXP (QUOTE 2) N))) (IPLUS (NAT-TO-INT X N) C))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NAT-TO-INT-RANGEP . SUBTRACTER-INT) (IMMEDIATE-DEPENDENTS0 B-NOT . SUBTRACTER-INT) (IMMEDIATE-DEPENDENTS0 LOGNOT-NAT-RANGEP . SUBTRACTER-INT) (IMMEDIATE-DEPENDENTS0 NEGP . SUBTRACTER-INT) (IMMEDIATE-DEPENDENTS0 NEGATIVEP-GUTS0 . SUBTRACTER-INT) (IMMEDIATE-DEPENDENTS0 IZEROP . SUBTRACTER-INT) (IMMEDIATE-DEPENDENTS0 NAT-TO-INT-INTEGERP . SUBTRACTER-INT) (IMMEDIATE-DEPENDENTS0 INTEGERP-FIX-INT . SUBTRACTER-INT) (IMMEDIATE-DEPENDENTS0 INEG . SUBTRACTER-INT) (IMMEDIATE-DEPENDENTS0 LOGNOT-INT . SUBTRACTER-INT) (IMMEDIATE-DEPENDENTS0 IPLUS-COMMUTATIVITY . SUBTRACTER-INT) (IMMEDIATE-DEPENDENTS0 IPLUS-1--1 . SUBTRACTER-INT) (IMMEDIATE-DEPENDENTS0 IPLUS-COMMUTATIVITY1 . SUBTRACTER-INT) (IMMEDIATE-DEPENDENTS0 IPLUS-INTEGERP . SUBTRACTER-INT) (IMMEDIATE-DEPENDENTS0 ADDER-INT . SUBTRACTER-INT) (IMMEDIATE-DEPENDENTS0 IPLUS-0 . SUBTRACTER-INT) (IMMEDIATE-DEPENDENTS0 NUMBERP-INTEGERP . SUBTRACTER-INT) (IMMEDIATE-DEPENDENTS0 MINUS-INTEGERP . SUBTRACTER-INT) (IMMEDIATE-DEPENDENTS0 FIX-INT . SUBTRACTER-INT) (IMMEDIATE-DEPENDENTS0 IPLUS-ASSOCIATIVITY . SUBTRACTER-INT) (IMMEDIATE-DEPENDENTS0 INEG-IPLUS . SUBTRACTER-INT) (IMMEDIATE-DEPENDENTS0 EXP . SUBTRACTER-INT) (IMMEDIATE-DEPENDENTS0 IPLUS . SUBTRACTER-INT) (IMMEDIATE-DEPENDENTS0 IDIFFERENCE . SUBTRACTER-INT) (IMMEDIATE-DEPENDENTS0 INT-RANGEP . SUBTRACTER-INT) (IMMEDIATE-DEPENDENTS0 SUBTRACTER . SUBTRACTER-INT) (IMMEDIATE-DEPENDENTS0 NAT-TO-INT . SUBTRACTER-INT) (IMMEDIATE-DEPENDENTS0 BITP . SUBTRACTER-INT) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . SUBTRACTER-INT) (LEMMAS NAT-TO-INT . SUBTRACTER-INT))))) (PUT1-LST (QUOTE ADDER-INT) (QUOTE (IDATE 1000402214942 IMMEDIATE-DEPENDENTS0 (ADDX-V-LA SUB-INT ADD-INT SUBTRACTER-INT) EVENT (PROVE-LEMMA ADDER-INT (REWRITE) (IMPLIES (AND (NAT-RANGEP X N) (AND (NAT-RANGEP Y N) (BITP C))) (EQUAL (NAT-TO-INT (ADDER N C X Y) N) (IF (INT-RANGEP (IPLUS (NAT-TO-INT X N) (IPLUS (NAT-TO-INT Y N) C)) N) (IPLUS (NAT-TO-INT X N) (IPLUS (NAT-TO-INT Y N) C)) (IF (NEGATIVEP (NAT-TO-INT X N)) (IPLUS (NAT-TO-INT X N) (IPLUS (NAT-TO-INT Y N) (IPLUS C (EXP (QUOTE 2) N)))) (IPLUS (NAT-TO-INT X N) (IPLUS (NAT-TO-INT Y N) (IPLUS C (MINUS (EXP (QUOTE 2) N))))))))) ((ENABLE PLUS-TO-IPLUS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NAT-TO-INT-RANGEP . ADDER-INT) (IMMEDIATE-DEPENDENTS0 NAT-TO-INT-INTEGERP . ADDER-INT) (IMMEDIATE-DEPENDENTS0 FIX-BIT . ADDER-INT) (IMMEDIATE-DEPENDENTS0 IZEROP . ADDER-INT) (IMMEDIATE-DEPENDENTS0 INTEGERP-FIX-INT . ADDER-INT) (IMMEDIATE-DEPENDENTS0 IPLUS-0 . ADDER-INT) (IMMEDIATE-DEPENDENTS0 NUMBERP-INTEGERP . ADDER-INT) (IMMEDIATE-DEPENDENTS0 IPLUS-COMMUTATIVITY . ADDER-INT) (IMMEDIATE-DEPENDENTS0 IPLUS-COMMUTATIVITY1 . ADDER-INT) (IMMEDIATE-DEPENDENTS0 MINUS-INTEGERP . ADDER-INT) (IMMEDIATE-DEPENDENTS0 FIX-INT . ADDER-INT) (IMMEDIATE-DEPENDENTS0 PLUS-TO-IPLUS . ADDER-INT) (IMMEDIATE-DEPENDENTS0 ADDER-INT-BRIDGE . ADDER-INT) (IMMEDIATE-DEPENDENTS0 EXP . ADDER-INT) (IMMEDIATE-DEPENDENTS0 IPLUS . ADDER-INT) (IMMEDIATE-DEPENDENTS0 INT-RANGEP . ADDER-INT) (IMMEDIATE-DEPENDENTS0 ADDER . ADDER-INT) (IMMEDIATE-DEPENDENTS0 NAT-TO-INT . ADDER-INT) (IMMEDIATE-DEPENDENTS0 BITP . ADDER-INT) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . ADDER-INT) (LEMMAS NAT-TO-INT . ADDER-INT))))) (PUT1-LST (QUOTE ADDER-OFF) (QUOTE (IDATE 1000402214942 EVENT (TOGGLE ADDER-OFF ADDER T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ADDER . ADDER-OFF) (DISABLED-LEMMAS NIL ADDER ADDER-OFF . T))))) (PUT1-LST (QUOTE ADDER-INT-END-OFF) (QUOTE (IDATE 1000402214942 EVENT (TOGGLE ADDER-INT-END-OFF ADDER-INT-END T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ADDER-INT-END . ADDER-INT-END-OFF) (DISABLED-LEMMAS NIL ADDER-INT-END ADDER-INT-END-OFF . T))))) (PUT1-LST (QUOTE ADDER-INT-BRIDGE) (QUOTE (IDATE 1000402214942 IMMEDIATE-DEPENDENTS0 (ADDER-INT) EVENT (PROVE-LEMMA ADDER-INT-BRIDGE (REWRITE) (IMPLIES (AND (NAT-RANGEP X N) (AND (NAT-RANGEP Y N) (BITP C))) (EQUAL (NAT-TO-INT (ADDER N C X Y) N) (ADDER-INT-END N C (NAT-TO-INT X N) (NAT-TO-INT Y N)))) ((DISABLE REMAINDER REMAINDER-ADD1))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-PLUS-ADD1 . ADDER-INT-BRIDGE) (IMMEDIATE-DEPENDENTS0 REMAINDER-1 . ADDER-INT-BRIDGE) (IMMEDIATE-DEPENDENTS0 REMAINDER-EXIT . ADDER-INT-BRIDGE) (IMMEDIATE-DEPENDENTS0 REMAINDER-PLUS1 . ADDER-INT-BRIDGE) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . ADDER-INT-BRIDGE) (IMMEDIATE-DEPENDENTS0 REMAINDER-PLUS2 . ADDER-INT-BRIDGE) (IMMEDIATE-DEPENDENTS0 REMAINDER-0 . ADDER-INT-BRIDGE) (IMMEDIATE-DEPENDENTS0 NAT-TO-INT-TO-NAT . ADDER-INT-BRIDGE) (IMMEDIATE-DEPENDENTS0 FIX-BIT . ADDER-INT-BRIDGE) (IMMEDIATE-DEPENDENTS0 REMAINDER-LESSP-LINEAR . ADDER-INT-BRIDGE) (IMMEDIATE-DEPENDENTS0 EXP-OF-2-0 . ADDER-INT-BRIDGE) (IMMEDIATE-DEPENDENTS0 NAT-TO-INT= . ADDER-INT-BRIDGE) (IMMEDIATE-DEPENDENTS0 PLUS-ADD1 . ADDER-INT-BRIDGE) (IMMEDIATE-DEPENDENTS0 HEAD . ADDER-INT-BRIDGE) (IMMEDIATE-DEPENDENTS0 ADDER-INT-END . ADDER-INT-BRIDGE) (IMMEDIATE-DEPENDENTS0 ADDER . ADDER-INT-BRIDGE) (IMMEDIATE-DEPENDENTS0 NAT-TO-INT . ADDER-INT-BRIDGE) (IMMEDIATE-DEPENDENTS0 BITP . ADDER-INT-BRIDGE) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . ADDER-INT-BRIDGE) (LEMMAS NAT-TO-INT . ADDER-INT-BRIDGE))))) (PUT1-LST (QUOTE ADDY-Y1) (QUOTE (IDATE 1000402214942 IMMEDIATE-DEPENDENTS0 (NEG-CANCEL) EVENT (PROVE-LEMMA ADDY-Y1 (REWRITE) (IMPLIES (NAT-RANGEP X N) (EQUAL (ADD N Y (SUB N Y X)) (FIX X)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUB-X-X . ADDY-Y1) (IMMEDIATE-DEPENDENTS0 HEAD-LEMMA . ADDY-Y1) (IMMEDIATE-DEPENDENTS0 ADD-0 . ADDY-Y1) (IMMEDIATE-DEPENDENTS0 ADD-COMMUTATIVITY . ADDY-Y1) (IMMEDIATE-DEPENDENTS0 ADD-COMMUTATIVITY2 . ADDY-Y1) (IMMEDIATE-DEPENDENTS0 SUB . ADDY-Y1) (IMMEDIATE-DEPENDENTS0 ADD . ADDY-Y1) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . ADDY-Y1) (LEMMAS ADD . ADDY-Y1))))) (PUT1-LST (QUOTE ADDY-Y) (QUOTE (IDATE 1000402214942 EVENT (PROVE-LEMMA ADDY-Y (REWRITE) (IMPLIES (NAT-RANGEP X N) (EQUAL (ADD N X (SUB N Y Y)) (FIX X)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-EXIT . ADDY-Y) (IMMEDIATE-DEPENDENTS0 HEAD . ADDY-Y) (IMMEDIATE-DEPENDENTS0 ADD-0 . ADDY-Y) (IMMEDIATE-DEPENDENTS0 SUB-X-X . ADDY-Y) (IMMEDIATE-DEPENDENTS0 SUB . ADDY-Y) (IMMEDIATE-DEPENDENTS0 ADD . ADDY-Y) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . ADDY-Y) (LEMMAS ADD . ADDY-Y))))) (PUT1-LST (QUOTE SUB-ADDER-OFF) (QUOTE (IDATE 1000402214942 EVENT (TOGGLE SUB-ADDER-OFF SUB-ADDER T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUB-ADDER . SUB-ADDER-OFF) (DISABLED-LEMMAS NIL SUB-ADDER SUB-ADDER-OFF . T))))) (PUT1-LST (QUOTE ADD-ADDER-OFF) (QUOTE (IDATE 1000402214942 EVENT (TOGGLE ADD-ADDER-OFF ADD-ADDER T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ADD-ADDER . ADD-ADDER-OFF) (DISABLED-LEMMAS NIL ADD-ADDER ADD-ADDER-OFF . T))))) (PUT1-LST (QUOTE SUB-CANCEL) (QUOTE (IDATE 1000402214942 EVENT (PROVE-LEMMA SUB-CANCEL (REWRITE) (IMPLIES (AND (NAT-RANGEP Y N) (NAT-RANGEP Z N)) (EQUAL (EQUAL (SUB N Y X) (SUB N Z X)) (EQUAL (FIX Y) (FIX Z)))) ((DISABLE ADDER))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUB-ADDER . SUB-CANCEL) (IMMEDIATE-DEPENDENTS0 LOGNOT-NAT-RANGEP . SUB-CANCEL) (IMMEDIATE-DEPENDENTS0 HEAD-LEMMA . SUB-CANCEL) (IMMEDIATE-DEPENDENTS0 LOGNOT-CANCEL . SUB-CANCEL) (IMMEDIATE-DEPENDENTS0 ADDER-CANCEL . SUB-CANCEL) (IMMEDIATE-DEPENDENTS0 SUB . SUB-CANCEL) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . SUB-CANCEL) (LEMMAS EQUAL . SUB-CANCEL))))) (PUT1-LST (QUOTE ADD-CANCEL) (QUOTE (IDATE 1000402214942 IMMEDIATE-DEPENDENTS0 (MOD32-EQ-DEDUCTION3 ADD-TREE-BAGDIFF ADD-TREE-APPEND EVAL$-ADD-MEMBER ADD-EQUAL-CANCEL-1 BYTE-READ-WRITE-MEM-LEMMA) EVENT (PROVE-LEMMA ADD-CANCEL (REWRITE) (EQUAL (EQUAL (ADD N X Y) (ADD N X Z)) (EQUAL (HEAD Y N) (HEAD Z N)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-PLUS-CANCEL . ADD-CANCEL) (IMMEDIATE-DEPENDENTS0 ADDER . ADD-CANCEL) (IMMEDIATE-DEPENDENTS0 ADD-ADDER . ADD-CANCEL) (IMMEDIATE-DEPENDENTS0 HEAD . ADD-CANCEL) (IMMEDIATE-DEPENDENTS0 ADD . ADD-CANCEL) (LEMMAS EQUAL . ADD-CANCEL))))) (PUT1-LST (QUOTE ADDER-CANCEL) (QUOTE (IDATE 1000402214942 IMMEDIATE-DEPENDENTS0 (SUB-CANCEL) EVENT (PROVE-LEMMA ADDER-CANCEL (REWRITE) (EQUAL (EQUAL (ADDER N C X Y) (ADDER N C X Z)) (EQUAL (HEAD Y N) (HEAD Z N)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-PLUS-CANCEL . ADDER-CANCEL) (IMMEDIATE-DEPENDENTS0 HEAD . ADDER-CANCEL) (IMMEDIATE-DEPENDENTS0 ADDER . ADDER-CANCEL) (LEMMAS EQUAL . ADDER-CANCEL))))) (PUT1-LST (QUOTE SUB-CANCEL0) (QUOTE (IDATE 1000402214942 IMMEDIATE-DEPENDENTS0 (MOD32-EQ-DEDUCTION1) EVENT (PROVE-LEMMA SUB-CANCEL0 (REWRITE) (IMPLIES (AND (NAT-RANGEP X N) (NAT-RANGEP Y N)) (EQUAL (EQUAL (SUB N Y X) X) (AND (NUMBERP X) (ZEROP Y)))) ((ENABLE LOGNOT))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 HEAD . SUB-CANCEL0) (IMMEDIATE-DEPENDENTS0 REMAINDER-EXIT . SUB-CANCEL0) (IMMEDIATE-DEPENDENTS0 REMAINDER-ADD1 . SUB-CANCEL0) (IMMEDIATE-DEPENDENTS0 PLUS-ADD1 . SUB-CANCEL0) (IMMEDIATE-DEPENDENTS0 ADDER . SUB-CANCEL0) (IMMEDIATE-DEPENDENTS0 HEAD-LEMMA . SUB-CANCEL0) (IMMEDIATE-DEPENDENTS0 LOGNOT . SUB-CANCEL0) (IMMEDIATE-DEPENDENTS0 SUB-ADDER . SUB-CANCEL0) (IMMEDIATE-DEPENDENTS0 SUB . SUB-CANCEL0) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . SUB-CANCEL0) (LEMMAS EQUAL . SUB-CANCEL0))))) (PUT1-LST (QUOTE ADD-CANCEL0) (QUOTE (IDATE 1000402214941 IMMEDIATE-DEPENDENTS0 (MOD32-EQ-DEDUCTION2 ADD-TREE-DELETE-EQUAL) EVENT (PROVE-LEMMA ADD-CANCEL0 (REWRITE) (EQUAL (EQUAL (ADD N X Y) X) (AND (NUMBERP X) (AND (NAT-RANGEP X N) (EQUAL (HEAD Y N) (QUOTE 0)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EXP-OF-2-0 . ADD-CANCEL0) (IMMEDIATE-DEPENDENTS0 REMAINDER-PLUS-CANCEL0 . ADD-CANCEL0) (IMMEDIATE-DEPENDENTS0 ADDER . ADD-CANCEL0) (IMMEDIATE-DEPENDENTS0 ADD-ADDER . ADD-CANCEL0) (IMMEDIATE-DEPENDENTS0 HEAD . ADD-CANCEL0) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . ADD-CANCEL0) (IMMEDIATE-DEPENDENTS0 ADD . ADD-CANCEL0) (LEMMAS EQUAL . ADD-CANCEL0))))) (PUT1-LST (QUOTE ADD-COMMUTATIVITY2) (QUOTE (IDATE 1000402214941 IMMEDIATE-DEPENDENTS0 (SUB-NEG ADDY-Y1) EVENT (PROVE-LEMMA ADD-COMMUTATIVITY2 (REWRITE) (EQUAL (ADD N X (SUB N Z Y)) (ADD N Y (SUB N Z X))) ((DISABLE ADDER))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUB-ADDER . ADD-COMMUTATIVITY2) (IMMEDIATE-DEPENDENTS0 ADDER-COMMUTATIVITY1 . ADD-COMMUTATIVITY2) (IMMEDIATE-DEPENDENTS0 ADD-ADDER . ADD-COMMUTATIVITY2) (IMMEDIATE-DEPENDENTS0 SUB . ADD-COMMUTATIVITY2) (IMMEDIATE-DEPENDENTS0 ADD . ADD-COMMUTATIVITY2) (LEMMAS ADD . ADD-COMMUTATIVITY2))))) (PUT1-LST (QUOTE SUB-SUB1) (QUOTE (IDATE 1000402214941 IMMEDIATE-DEPENDENTS0 (NEG-NEG) EVENT (PROVE-LEMMA SUB-SUB1 (REWRITE) (EQUAL (SUB N (SUB N Z Y) X) (ADD N X (SUB N Y Z))) ((DISABLE ADDER HEAD))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUB-ADDER . SUB-SUB1) (IMMEDIATE-DEPENDENTS0 BITP . SUB-SUB1) (IMMEDIATE-DEPENDENTS0 B-NOT . SUB-SUB1) (IMMEDIATE-DEPENDENTS0 LOGNOT-LOGNOT . SUB-SUB1) (IMMEDIATE-DEPENDENTS0 ADDER-COMMUTATIVITY . SUB-SUB1) (IMMEDIATE-DEPENDENTS0 ADDER-HEAD . SUB-SUB1) (IMMEDIATE-DEPENDENTS0 ADDER-LOGNOT . SUB-SUB1) (IMMEDIATE-DEPENDENTS0 ADDER-SHIFT-CARRY . SUB-SUB1) (IMMEDIATE-DEPENDENTS0 ADD-ADDER . SUB-SUB1) (IMMEDIATE-DEPENDENTS0 ADD . SUB-SUB1) (IMMEDIATE-DEPENDENTS0 SUB . SUB-SUB1) (LEMMAS SUB . SUB-SUB1))))) (PUT1-LST (QUOTE SUB-SUB) (QUOTE (IDATE 1000402214941 IMMEDIATE-DEPENDENTS0 (NEG-ADD) EVENT (PROVE-LEMMA SUB-SUB (REWRITE) (EQUAL (SUB N Z (SUB N Y X)) (SUB N (ADD N Y Z) X)) ((DISABLE ADDER))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUB-ADDER . SUB-SUB) (IMMEDIATE-DEPENDENTS0 ADDER-ASSOCIATIVITY . SUB-SUB) (IMMEDIATE-DEPENDENTS0 BITP . SUB-SUB) (IMMEDIATE-DEPENDENTS0 B-NOT . SUB-SUB) (IMMEDIATE-DEPENDENTS0 ADDER-LOGNOT . SUB-SUB) (IMMEDIATE-DEPENDENTS0 ADD-ADDER . SUB-SUB) (IMMEDIATE-DEPENDENTS0 ADD . SUB-SUB) (IMMEDIATE-DEPENDENTS0 SUB . SUB-SUB) (LEMMAS SUB . SUB-SUB))))) (PUT1-LST (QUOTE SUB-ADD) (QUOTE (IDATE 1000402214941 IMMEDIATE-DEPENDENTS0 (NEG-ADD) EVENT (PROVE-LEMMA SUB-ADD (REWRITE) (EQUAL (ADD N (SUB N Y X) Z) (ADD N X (SUB N Y Z))) ((DISABLE ADDER))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUB-ADDER . SUB-ADD) (IMMEDIATE-DEPENDENTS0 ADDER-COMMUTATIVITY . SUB-ADD) (IMMEDIATE-DEPENDENTS0 ADDER-SHIFT-CARRY . SUB-ADD) (IMMEDIATE-DEPENDENTS0 ADDER-ASSOCIATIVITY . SUB-ADD) (IMMEDIATE-DEPENDENTS0 ADD-ADDER . SUB-ADD) (IMMEDIATE-DEPENDENTS0 SUB . SUB-ADD) (IMMEDIATE-DEPENDENTS0 ADD . SUB-ADD) (LEMMAS ADD . SUB-ADD))))) (PUT1-LST (QUOTE ADD-SUB) (QUOTE (IDATE 1000402214941 IMMEDIATE-DEPENDENTS0 (INDEX-N-DEDUCTION2 INDEX-N-DEDUCTION1 INDEX-N-DEDUCTION0) EVENT (PROVE-LEMMA ADD-SUB (REWRITE) (EQUAL (SUB N Z (ADD N X Y)) (ADD N X (SUB N Z Y))) ((DISABLE ADDER))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ADDER-ASSOCIATIVITY . ADD-SUB) (IMMEDIATE-DEPENDENTS0 SUB-ADDER . ADD-SUB) (IMMEDIATE-DEPENDENTS0 ADD-ADDER . ADD-SUB) (IMMEDIATE-DEPENDENTS0 ADD . ADD-SUB) (IMMEDIATE-DEPENDENTS0 SUB . ADD-SUB) (LEMMAS SUB . ADD-SUB))))) (PUT1-LST (QUOTE SUB-OFF) (QUOTE (IDATE 1000402214941 EVENT (TOGGLE SUB-OFF SUB T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUB . SUB-OFF) (DISABLED-LEMMAS NIL SUB SUB-OFF . T))))) (PUT1-LST (QUOTE ADD-OFF) (QUOTE (IDATE 1000402214941 EVENT (TOGGLE ADD-OFF ADD T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ADD . ADD-OFF) (DISABLED-LEMMAS NIL ADD ADD-OFF . T))))) (PUT1-LST (QUOTE PLUS-ADD1-SUB1-OFF) (QUOTE (IDATE 1000402214941 EVENT (TOGGLE PLUS-ADD1-SUB1-OFF PLUS-ADD1-SUB1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-ADD1-SUB1 . PLUS-ADD1-SUB1-OFF) (DISABLED-LEMMAS NIL PLUS-ADD1-SUB1 PLUS-ADD1-SUB1-OFF . T))))) (PUT1-LST (QUOTE ADD-NEG-ADDER) (QUOTE (IDATE 1000402214941 IMMEDIATE-DEPENDENTS0 (ADD-NEG-ADDER-OFF SUB-INT) EVENT (PROVE-LEMMA ADD-NEG-ADDER (REWRITE) (EQUAL (ADD N X (NEG N Y)) (ADDER N (QUOTE 1) X (LOGNOT N Y))) ((ENABLE LOGNOT))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIFFERENCE-LESSP . ADD-NEG-ADDER) (IMMEDIATE-DEPENDENTS0 REMAINDER-EXP . ADD-NEG-ADDER) (IMMEDIATE-DEPENDENTS0 REMAINDER-EXIT . ADD-NEG-ADDER) (IMMEDIATE-DEPENDENTS0 DIFFERENCE=0 . ADD-NEG-ADDER) (IMMEDIATE-DEPENDENTS0 REMAINDER-LESSP . ADD-NEG-ADDER) (IMMEDIATE-DEPENDENTS0 SUB-ADDER . ADD-NEG-ADDER) (IMMEDIATE-DEPENDENTS0 REMAINDER-PLUS-REMAINDER1 . ADD-NEG-ADDER) (IMMEDIATE-DEPENDENTS0 EXP-OF-2-0 . ADD-NEG-ADDER) (IMMEDIATE-DEPENDENTS0 REMAINDER-LESSP-LINEAR . ADD-NEG-ADDER) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-PLUS2 . ADD-NEG-ADDER) (IMMEDIATE-DEPENDENTS0 PLUS-ADD1-SUB1 . ADD-NEG-ADDER) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-DIFFERENCE1 . ADD-NEG-ADDER) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS . ADD-NEG-ADDER) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . ADD-NEG-ADDER) (IMMEDIATE-DEPENDENTS0 REMAINDER-0 . ADD-NEG-ADDER) (IMMEDIATE-DEPENDENTS0 PLUS-ADD1 . ADD-NEG-ADDER) (IMMEDIATE-DEPENDENTS0 HEAD . ADD-NEG-ADDER) (IMMEDIATE-DEPENDENTS0 LOGNOT . ADD-NEG-ADDER) (IMMEDIATE-DEPENDENTS0 ADDER . ADD-NEG-ADDER) (IMMEDIATE-DEPENDENTS0 NEG . ADD-NEG-ADDER) (IMMEDIATE-DEPENDENTS0 ADD . ADD-NEG-ADDER) (LEMMAS ADD . ADD-NEG-ADDER))))) (PUT1-LST (QUOTE SUB-ADDER) (QUOTE (IDATE 1000402214941 IMMEDIATE-DEPENDENTS0 (SUB-SUBX-V SUB-SUBX-C SUB-ADDER-OFF SUB-CANCEL SUB-CANCEL0 ADD-COMMUTATIVITY2 SUB-SUB1 SUB-SUB SUB-ADD ADD-SUB ADD-NEG-ADDER) EVENT (PROVE-LEMMA SUB-ADDER (REWRITE) (EQUAL (SUB N Y X) (ADDER N (QUOTE 1) X (LOGNOT N Y))) ((ENABLE LOGNOT))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIFFERENCE-DIFFERENCE1 . SUB-ADDER) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS . SUB-ADDER) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . SUB-ADDER) (IMMEDIATE-DEPENDENTS0 REMAINDER-0 . SUB-ADDER) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-PLUS2 . SUB-ADDER) (IMMEDIATE-DEPENDENTS0 REMAINDER-LESSP-LINEAR . SUB-ADDER) (IMMEDIATE-DEPENDENTS0 EXP-OF-2-0 . SUB-ADDER) (IMMEDIATE-DEPENDENTS0 PLUS-ADD1-SUB1 . SUB-ADDER) (IMMEDIATE-DEPENDENTS0 PLUS-ADD1 . SUB-ADDER) (IMMEDIATE-DEPENDENTS0 HEAD . SUB-ADDER) (IMMEDIATE-DEPENDENTS0 LOGNOT . SUB-ADDER) (IMMEDIATE-DEPENDENTS0 ADDER . SUB-ADDER) (IMMEDIATE-DEPENDENTS0 SUB . SUB-ADDER) (LEMMAS SUB . SUB-ADDER))))) (PUT1-LST (QUOTE PLUS-ADD1-SUB1) (QUOTE (IDATE 1000402214940 IMMEDIATE-DEPENDENTS0 (PLUS-ADD1-SUB1-OFF ADD-NEG-ADDER SUB-ADDER) EVENT (PROVE-LEMMA PLUS-ADD1-SUB1 (REWRITE) (IMPLIES (NOT (ZEROP Y)) (EQUAL (ADD1 (PLUS X (SUB1 Y))) (PLUS X Y)))) LOCAL-UNDO-TUPLES ((LEMMAS ADD1 . PLUS-ADD1-SUB1))))) (PUT1-LST (QUOTE ADD-ADDER) (QUOTE (IDATE 1000402214940 IMMEDIATE-DEPENDENTS0 (ADD-ADDX-V ADD-ADDX-C ADD-INT ADD-ADDER-OFF ADD-CANCEL ADD-CANCEL0 ADD-COMMUTATIVITY2 SUB-SUB1 SUB-SUB SUB-ADD ADD-SUB) EVENT (PROVE-LEMMA ADD-ADDER (REWRITE) (EQUAL (ADD N X Y) (ADDER N (QUOTE 0) X Y))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 HEAD . ADD-ADDER) (IMMEDIATE-DEPENDENTS0 ADDER . ADD-ADDER) (IMMEDIATE-DEPENDENTS0 ADD . ADD-ADDER) (LEMMAS ADD . ADD-ADDER))))) (PUT1-LST (QUOTE SUB-EQUAL-0) (QUOTE (IDATE 1000402214940 IMMEDIATE-DEPENDENTS0 (ADD-NEG-0) EVENT (PROVE-LEMMA SUB-EQUAL-0 (REWRITE) (IMPLIES (AND (NAT-RANGEP X N) (NAT-RANGEP Y N)) (EQUAL (EQUAL (SUB N X Y) (QUOTE 0)) (EQUAL (FIX X) (FIX Y)))) ((ENABLE LOGNOT))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-PLUS-EXP2 . SUB-EQUAL-0) (IMMEDIATE-DEPENDENTS0 REMAINDER-EXP . SUB-EQUAL-0) (IMMEDIATE-DEPENDENTS0 DIFFERENCE=0 . SUB-EQUAL-0) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-PLUS2 . SUB-EQUAL-0) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS . SUB-EQUAL-0) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-DIFFERENCE1 . SUB-EQUAL-0) (IMMEDIATE-DEPENDENTS0 REMAINDER-EXIT . SUB-EQUAL-0) (IMMEDIATE-DEPENDENTS0 HEAD . SUB-EQUAL-0) (IMMEDIATE-DEPENDENTS0 HEAD-LEMMA . SUB-EQUAL-0) (IMMEDIATE-DEPENDENTS0 SUB . SUB-EQUAL-0) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . SUB-EQUAL-0) (LEMMAS EQUAL . SUB-EQUAL-0))))) (PUT1-LST (QUOTE ADD-SUB-CANCEL) (QUOTE (IDATE 1000402214939 EVENT (PROVE-LEMMA ADD-SUB-CANCEL (REWRITE) (IMPLIES (AND (NAT-RANGEP Y N) (NAT-RANGEP Z N)) (EQUAL (EQUAL (ADD N X Y) (SUB N Z X)) (EQUAL (ADD N Y Z) (QUOTE 0)))) ((ENABLE LOGNOT))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUB1-OF-1 . ADD-SUB-CANCEL) (IMMEDIATE-DEPENDENTS0 EXP-OF-2-1 . ADD-SUB-CANCEL) (IMMEDIATE-DEPENDENTS0 PLUS-ADD1 . ADD-SUB-CANCEL) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . ADD-SUB-CANCEL) (IMMEDIATE-DEPENDENTS0 EXP-LESSP . ADD-SUB-CANCEL) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . ADD-SUB-CANCEL) (IMMEDIATE-DEPENDENTS0 PLUS-EQUAL-0 . ADD-SUB-CANCEL) (IMMEDIATE-DEPENDENTS0 DIFFERENCE=0 . ADD-SUB-CANCEL) (IMMEDIATE-DEPENDENTS0 HEAD-LEMMA . ADD-SUB-CANCEL) (IMMEDIATE-DEPENDENTS0 REMAINDER-EXIT . ADD-SUB-CANCEL) (IMMEDIATE-DEPENDENTS0 REMAINDER-0 . ADD-SUB-CANCEL) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-DIFFERENCE1 . ADD-SUB-CANCEL) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS . ADD-SUB-CANCEL) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . ADD-SUB-CANCEL) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-LESSP . ADD-SUB-CANCEL) (IMMEDIATE-DEPENDENTS0 REMAINDER-PLUS-CANCEL . ADD-SUB-CANCEL) (IMMEDIATE-DEPENDENTS0 HEAD . ADD-SUB-CANCEL) (IMMEDIATE-DEPENDENTS0 SUB . ADD-SUB-CANCEL) (IMMEDIATE-DEPENDENTS0 ADD . ADD-SUB-CANCEL) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . ADD-SUB-CANCEL) (LEMMAS EQUAL . ADD-SUB-CANCEL))))) (PUT1-LST (QUOTE ADD-HEAD) (QUOTE (IDATE 1000402214939 IMMEDIATE-DEPENDENTS0 (ADD-GROUP-H MOD32-EQ-DEDUCTION3 MOD32-EQ-DEDUCTION2 MEM-LST-MCDR-UINT-1 WRITE-MEMP-RAM1-ASL READ-MEMP-ROM1-ASL READ-MEMP-RAM1-ASL WRITE-MEM-ILST-ASL WRITE-MEM-LST-ASL READ-MEM-ILST-ASL READ-MEM-LST-ASL HEAD-MEM-ILST HEAD-MEM-LST INDEX-N-DEDUCTION0 DISJOINT-11~-ASL DISJOINT-11-ASL DISJOINT-9~-ASL DISJOINT-9-ASL DISJOINT-3~-ASL DISJOINT-3-ASL DISJOINT-2~-ASL DISJOINT-2-ASL DISJOINT-15 DISJOINT-13 DISJOINT-11 DISJOINT-10 DISJOINT-7 DISJOINT-6 DISJOINT-HEAD DISJOINT0-HEAD PC-READ-MEM-MCODE3 PC-BYTE-READ-MCODE3 WRITE-MEMP-RAM3 BYTE-WRITEP-RAM3 PC-READ-MEMP-ROM3 PC-BYTE-READP-ROM3 CORRECTNESS-OF-CANCEL-ADD-NEG ADD-TREE-ADD-FRINGE ADD-TREE-APPEND EVAL$-ADD-MEMBER SUB-LEQ-1 NEG-NEG HEAD-READM-MEM HEAD-WRITE-MEM HEAD-PC-READ-MEM HEAD-READ-MEM HEAD-WRITE-MEMP HEAD-PC-READ-MEMP HEAD-READ-MEMP) EVENT (PROVE-LEMMA ADD-HEAD (REWRITE) (AND (EQUAL (ADD N (HEAD X N) Y) (ADD N X Y)) (EQUAL (ADD N X (HEAD Y N)) (ADD N X Y)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . ADD-HEAD) (IMMEDIATE-DEPENDENTS0 REMAINDER-PLUS-CANCEL . ADD-HEAD) (IMMEDIATE-DEPENDENTS0 REMAINDER-PLUS-REMAINDER1 . ADD-HEAD) (IMMEDIATE-DEPENDENTS0 HEAD . ADD-HEAD) (IMMEDIATE-DEPENDENTS0 ADD . ADD-HEAD) (LEMMAS ADD . ADD-HEAD) (LEMMAS ADD . ADD-HEAD))))) (PUT1-LST (QUOTE ADDER-HEAD) (QUOTE (IDATE 1000402214939 IMMEDIATE-DEPENDENTS0 (SUB-SUB1) EVENT (PROVE-LEMMA ADDER-HEAD (REWRITE) (AND (EQUAL (ADDER N C (HEAD X N) Y) (ADDER N C X Y)) (EQUAL (ADDER N C X (HEAD Y N)) (ADDER N C X Y)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . ADDER-HEAD) (IMMEDIATE-DEPENDENTS0 REMAINDER-PLUS-REMAINDER1 . ADDER-HEAD) (IMMEDIATE-DEPENDENTS0 REMAINDER-PLUS-REMAINDER2 . ADDER-HEAD) (IMMEDIATE-DEPENDENTS0 REMAINDER-PLUS-CANCEL . ADDER-HEAD) (IMMEDIATE-DEPENDENTS0 HEAD . ADDER-HEAD) (IMMEDIATE-DEPENDENTS0 ADDER . ADDER-HEAD) (LEMMAS ADDER . ADDER-HEAD) (LEMMAS ADDER . ADDER-HEAD))))) (PUT1-LST (QUOTE SUB-NAT-RANGEP) (QUOTE (IDATE 1000402214939 IMMEDIATE-DEPENDENTS0 (SUB-NEG NEG-ADD SUB-N-BITP SUB-V-BITP SUB-C-BITP NEG-NAT-RANGEP) EVENT (PROVE-LEMMA SUB-NAT-RANGEP (REWRITE) (NAT-RANGEP (SUB N X Y) N)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIFFERENCE-LESSP . SUB-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-DIFFERENCE1 . SUB-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS . SUB-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . SUB-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 REMAINDER-0 . SUB-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-PLUS2 . SUB-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 REMAINDER-LESSP-LINEAR . SUB-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 EXP-OF-2-0 . SUB-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 HEAD . SUB-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 SUB . SUB-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . SUB-NAT-RANGEP) (LEMMAS NAT-RANGEP . SUB-NAT-RANGEP))))) (PUT1-LST (QUOTE ADD-NAT-RANGEP) (QUOTE (IDATE 1000402214938 IMMEDIATE-DEPENDENTS0 (GCD-S0-S0-RFILE-2 GCD-S0-S0-RFILE-1 GCD-S0-S0-2 GCD-S0-S0-1 GCD-S0-SN-BASE-RFILE-2 GCD-S0-SN-BASE-2 GCD-S0-SN-BASE-RFILE-1 GCD-S0-SN-BASE-1 GCD-S-S0-MEM GCD-S-S0-RFILE GCD-S-S0 STEPI-H MISC-GROUP-H BIT-GROUP-H BCC-GROUP-H MOD32-EQ-DEDUCTION3 MOD32-EQ-DEDUCTION2 INDEX-N-DEDUCTION0 DISJOINT0-X-X DISJOINT-COMMUTATIVITY DISJOINT-LA1 DISJOINT0-LA1 DISJOINT0-LA0 DISJOINT0-HEAD SUB-BLE SUB-BGT SUB-BLT SUB-BGE ADD-BMI SUB-BMI CORRECTNESS-OF-CANCEL-EQUAL-ADD ADD-TREE-ADD-FRINGE ADD-TREE-APPEND ADD-TREE-NAT-RANGEP EVAL$-ADD-MEMBER ADD-EQUAL-CANCEL-1 ADD-N-BITP ADD-V-BITP ADD-C-BITP WRITE-MEM-BYTE-WRITE READ-WRITE-MEM2 BYTE-READ-WRITE-MEM-LEMMA READ-MEM-BYTE-WRITE BYTE-READ-WRITE-MEM) EVENT (PROVE-LEMMA ADD-NAT-RANGEP (REWRITE) (NAT-RANGEP (ADD N X Y) N)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EXP-OF-2-0 . ADD-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 REMAINDER-LESSP . ADD-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 HEAD . ADD-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 ADD . ADD-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . ADD-NAT-RANGEP) (LEMMAS NAT-RANGEP . ADD-NAT-RANGEP))))) (PUT1-LST (QUOTE SUBTRACTER-NAT-RANGEP) (QUOTE (IDATE 1000402214938 IMMEDIATE-DEPENDENTS0 (SUBX-N-BITP SUBX-V-BITP SUBX-C-BITP) EVENT (PROVE-LEMMA SUBTRACTER-NAT-RANGEP (REWRITE) (NAT-RANGEP (SUBTRACTER N C Y X) N) ((DISABLE ADDER NAT-RANGEP))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-NOT . SUBTRACTER-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 B0 . SUBTRACTER-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 B0P . SUBTRACTER-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 B1 . SUBTRACTER-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 ADDER-NAT-RANGEP . SUBTRACTER-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 SUBTRACTER . SUBTRACTER-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . SUBTRACTER-NAT-RANGEP) (LEMMAS NAT-RANGEP . SUBTRACTER-NAT-RANGEP))))) (PUT1-LST (QUOTE ADDER-NAT-RANGEP) (QUOTE (IDATE 1000402214938 IMMEDIATE-DEPENDENTS0 (ADDX-V-LA SUB-SUBX-C ADD-ADDX-C ADDX-N-BITP ADDX-V-BITP ADDX-C-BITP SUBTRACTER-NAT-RANGEP) EVENT (PROVE-LEMMA ADDER-NAT-RANGEP (REWRITE) (NAT-RANGEP (ADDER N C X Y) N)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EXP-OF-2-0 . ADDER-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 REMAINDER-LESSP . ADDER-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 HEAD . ADDER-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 ADDER . ADDER-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . ADDER-NAT-RANGEP) (LEMMAS NAT-RANGEP . ADDER-NAT-RANGEP))))) (PUT1-LST (QUOTE REMAINDER-LEQ-OFF) (QUOTE (IDATE 1000402214938 EVENT (TOGGLE REMAINDER-LEQ-OFF REMAINDER-LEQ T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-LEQ . REMAINDER-LEQ-OFF) (DISABLED-LEMMAS NIL REMAINDER-LEQ REMAINDER-LEQ-OFF . T))))) (PUT1-LST (QUOTE SUB-LEQ-LA) (QUOTE (IDATE 1000402214938 IMMEDIATE-DEPENDENTS0 (SUB-LEQ-2 SUB-LEQ-1) EVENT (PROVE-LEMMA SUB-LEQ-LA NIL (IMPLIES (IF (LESSP Y X) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (NOT (LESSP (DIFFERENCE Y X) (SUB N X Y)))) ((USE (REMAINDER-PLUS2 (I (EXP (QUOTE 2) N)) (J (EXP (QUOTE 2) N)) (X (DIFFERENCE Y X)))) (DISABLE REMAINDER-EXIT))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-LEQ . SUB-LEQ-LA) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . SUB-LEQ-LA) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-PLUS2 . SUB-LEQ-LA) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-DIFFERENCE1 . SUB-LEQ-LA) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS . SUB-LEQ-LA) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . SUB-LEQ-LA) (IMMEDIATE-DEPENDENTS0 REMAINDER-0 . SUB-LEQ-LA) (IMMEDIATE-DEPENDENTS0 HEAD . SUB-LEQ-LA) (IMMEDIATE-DEPENDENTS0 SUB-0 . SUB-LEQ-LA) (IMMEDIATE-DEPENDENTS0 HEAD-0 . SUB-LEQ-LA) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-LESSP . SUB-LEQ-LA) (IMMEDIATE-DEPENDENTS0 REMAINDER-DIFFERENCE-REMAINDER1 . SUB-LEQ-LA) (IMMEDIATE-DEPENDENTS0 REMAINDER-LESSP-LINEAR . SUB-LEQ-LA) (IMMEDIATE-DEPENDENTS0 REMAINDER-EXP . SUB-LEQ-LA) (IMMEDIATE-DEPENDENTS0 HEAD-LEMMA . SUB-LEQ-LA) (IMMEDIATE-DEPENDENTS0 EXP-OF-2-0 . SUB-LEQ-LA) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . SUB-LEQ-LA) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-LESSP-PLUS . SUB-LEQ-LA) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-LESSP-CANCEL . SUB-LEQ-LA) (IMMEDIATE-DEPENDENTS0 REMAINDER-X-X . SUB-LEQ-LA) (IMMEDIATE-DEPENDENTS0 REMAINDER-PLUS2 . SUB-LEQ-LA) (IMMEDIATE-DEPENDENTS0 SUB . SUB-LEQ-LA))))) (PUT1-LST (QUOTE ADD-LEQ) (QUOTE (IDATE 1000402214938 EVENT (PROVE-LEMMA ADD-LEQ (REWRITE) (NOT (LESSP (PLUS X Y) (ADD N X Y))) ((ENABLE ADD))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-LEQ . ADD-LEQ) (IMMEDIATE-DEPENDENTS0 HEAD . ADD-LEQ) (IMMEDIATE-DEPENDENTS0 ADD . ADD-LEQ) (LINEAR-LEMMAS ADD . ADD-LEQ))))) (PUT1-LST (QUOTE REMAINDER-LEQ) (QUOTE (IDATE 1000402214937 IMMEDIATE-DEPENDENTS0 (REMAINDER-LEQ-OFF SUB-LEQ-LA ADD-LEQ) EVENT (PROVE-LEMMA REMAINDER-LEQ (REWRITE) (NOT (LESSP X (REMAINDER X Y)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-0 . REMAINDER-LEQ) (IMMEDIATE-DEPENDENTS0 REMAINDER-LESSP . REMAINDER-LEQ) (IMMEDIATE-DEPENDENTS0 REMAINDER-QUOTIENT-ELIM . REMAINDER-LEQ) (LINEAR-LEMMAS REMAINDER . REMAINDER-LEQ))))) (PUT1-LST (QUOTE ADD-COMMUTATIVITY1) (QUOTE (IDATE 1000402214937 IMMEDIATE-DEPENDENTS0 (ADD-COMMUTATIVITY1-OFF MEM-LST-MCDR-1 ADD-TREE-APPEND ADD-EQUAL-CANCEL-1 ADD-NEG-CANCEL) EVENT (PROVE-LEMMA ADD-COMMUTATIVITY1 (REWRITE) (EQUAL (ADD N X (ADD N Y Z)) (ADD N Y (ADD N X Z))) ((DISABLE REMAINDER PLUS REMAINDER-EXIT))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY1 . ADD-COMMUTATIVITY1) (IMMEDIATE-DEPENDENTS0 REMAINDER-PLUS-REMAINDER1 . ADD-COMMUTATIVITY1) (IMMEDIATE-DEPENDENTS0 HEAD . ADD-COMMUTATIVITY1) (IMMEDIATE-DEPENDENTS0 ADD . ADD-COMMUTATIVITY1) (LEMMAS ADD . ADD-COMMUTATIVITY1))))) (PUT1-LST (QUOTE ADD-ASSOCIATIVITY) (QUOTE (IDATE 1000402214937 IMMEDIATE-DEPENDENTS0 (GCD-CORRECTNESS GCD-S0-S0-RFILE-2 GCD-S0-S0-RFILE-1 GCD-S0-S0-2 GCD-S0-S0-1 GCD-S0-SN-BASE-RFILE-2 GCD-S0-SN-BASE-2 GCD-S0-SN-BASE-RFILE-1 GCD-S0-SN-BASE-1 GCD-S-S0-MEM GCD-S-S0-RFILE GCD-S-S0 MISC-GROUP-H BIT-GROUP-H EFFEC-ADDR-MEM ADDR-INDEX2-MEM READ-MEM-PLUS MEM-LST-MCDR-UINT-1 MEM-LST-MCDR-1 MEM-LST-MCAR-1 MEM-LST-PLUS WRITE-MEM-ILST MEM-LST-PUT-VALS MEM-LST-PUT-LST WRITE-MEM-LST-LA READ-MEM-ILST-INT READ-MEM-ILST MEM-LST-GET-VALS MEM-LST-GET-LST READ-MEM-LST-LA DISJOINT-DEDUCTION2 DISJOINT-DEDUCTION1 DISJOINT-15 DISJOINT-14 DISJOINT-13 DISJOINT-12 DISJOINT-11 DISJOINT-10 DISJOINT-9 DISJOINT-8 DISJOINT-7 DISJOINT-6 DISJOINT-5 DISJOINT-4 DISJOINT-LA3 DISJOINT-LA2 DISJOINT0-LA2 PC-READ-MEM-MCODE3 PC-READ-MEM-MCODE2 PC-READ-MEM-MCODE1 PC-BYTE-READ-MCODE3 PC-BYTE-READ-MCODE2 PC-BYTE-READ-MCODE1 WRITE-MEMP-RAM3 WRITE-MEMP-RAM2 BYTE-WRITEP-RAM3 BYTE-WRITEP-RAM2 PC-READ-MEMP-ROM3 PC-READ-MEMP-ROM2 PC-BYTE-READP-ROM3 PC-BYTE-READP-ROM2 WRITE-MEMP-LA3 PC-READ-MEMP-LA3 ADD-TREE-DELETE) EVENT (PROVE-LEMMA ADD-ASSOCIATIVITY (REWRITE) (EQUAL (ADD N (ADD N X Y) Z) (ADD N X (ADD N Y Z))) ((DISABLE REMAINDER PLUS REMAINDER-EXIT))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . ADD-ASSOCIATIVITY) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY1 . ADD-ASSOCIATIVITY) (IMMEDIATE-DEPENDENTS0 REMAINDER-PLUS-REMAINDER1 . ADD-ASSOCIATIVITY) (IMMEDIATE-DEPENDENTS0 HEAD . ADD-ASSOCIATIVITY) (IMMEDIATE-DEPENDENTS0 ADD . ADD-ASSOCIATIVITY) (LEMMAS ADD . ADD-ASSOCIATIVITY))))) (PUT1-LST (QUOTE ADD-COMMUTATIVITY) (QUOTE (IDATE 1000402214937 IMMEDIATE-DEPENDENTS0 (ADD-COMMUTATIVITY-OFF STEPN-READM-MEM MEM-LST-MCDR-1 MEM-LST-MCDR MEM-LST-MCAR-1 MEM-LST-PLUS WRITE-MEMP-RAM1-ASL READ-MEMP-ROM1-ASL READ-MEMP-RAM1-ASL WRITE-MEM-ILST-ASL WRITE-MEM-LST-ASL READ-MEM-ILST-ASL READ-MEM-LST-ASL WRITE-MEM-ILST WRITE-MEM-LST-LA READ-MEM-ILST-INT READ-MEM-ILST READ-MEM-LST-LA BYTE-WRITEP=WRITE-MEMP-1 BYTE-WRITE=WRITE-MEM-1 BYTE-READ=READ-MEM-1 PC-BYTE-READ=PC-READ-MEM-1 MEM-LST-NON-NUMBERP HEAD-MEM-ILST HEAD-MEM-LST DISJOINT-DEDUCTION3 INDEX-N-DEDUCTION2 INDEX-N-DEDUCTION1 DISJOINT0-DEDUCTION2 DISJOINT0-DEDUCTION1 DISJOINT0-X-X DISJOINT-11~-ASL DISJOINT-11-ASL DISJOINT-9~-ASL DISJOINT-9-ASL DISJOINT-3~-ASL DISJOINT-3-ASL DISJOINT-2~-ASL DISJOINT-2-ASL DISJOINT-14 DISJOINT-12 DISJOINT-9 DISJOINT-8 DISJOINT-5 DISJOINT-4 DISJOINT-LA0 DISJOINT0-LA0 PC-READ-MEM-MCODE2 PC-BYTE-READ-MCODE2 PC-BYTE-READ-MCODE1 WRITE-MEMP-RAM2 BYTE-WRITEP-RAM2 PC-READ-MEMP-ROM2 PC-BYTE-READP-ROM2 WRITE-MEMP-LA0 PC-READ-MEMP-LA0 ADD-BMI CORRECTNESS-OF-CANCEL-ADD-NEG ADD-TREE-ADD-FRINGE ADD-TREE-APPEND EVAL$-ADD-MEMBER SUB-LEQ-2 SUB-LEQ-1 ADD-NEG-CANCEL NEG-ADD ADD-N-BITP ADD-Z-BITP WRITE-MEM-BYTE-WRITE BYTE-READ-WRITE-MEM-LEMMA BYTE-READ-WRITE-MEM HEAD-READM-MEM ADDY-Y1) EVENT (PROVE-LEMMA ADD-COMMUTATIVITY (REWRITE) (EQUAL (ADD N X Y) (ADD N Y X))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . ADD-COMMUTATIVITY) (IMMEDIATE-DEPENDENTS0 HEAD . ADD-COMMUTATIVITY) (IMMEDIATE-DEPENDENTS0 ADD . ADD-COMMUTATIVITY) (LEMMAS ADD . ADD-COMMUTATIVITY))))) (PUT1-LST (QUOTE SUB-X-X) (QUOTE (IDATE 1000402214937 IMMEDIATE-DEPENDENTS0 (INDEX-N-X-X ADDY-Y1 ADDY-Y) EVENT (PROVE-LEMMA SUB-X-X (REWRITE) (EQUAL (SUB N X X) (QUOTE 0))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS . SUB-X-X) (IMMEDIATE-DEPENDENTS0 REMAINDER-EXP . SUB-X-X) (IMMEDIATE-DEPENDENTS0 REMAINDER-DIFFERENCE-REMAINDER1 . SUB-X-X) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-PLUS2 . SUB-X-X) (IMMEDIATE-DEPENDENTS0 REMAINDER-LESSP-LINEAR . SUB-X-X) (IMMEDIATE-DEPENDENTS0 EXP-OF-2-0 . SUB-X-X) (IMMEDIATE-DEPENDENTS0 HEAD . SUB-X-X) (IMMEDIATE-DEPENDENTS0 SUB . SUB-X-X) (LEMMAS SUB . SUB-X-X))))) (PUT1-LST (QUOTE SUB-0) (QUOTE (IDATE 1000402214937 IMMEDIATE-DEPENDENTS0 (INDEX-N-DEDUCTION1 INDEX-N-DEDUCTION0 INDEX-N-0 NEG-NEG SUB-LEQ-LA) EVENT (PROVE-LEMMA SUB-0 (REWRITE) (EQUAL (SUB N (QUOTE 0) X) (HEAD X N))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-0 . SUB-0) (IMMEDIATE-DEPENDENTS0 REMAINDER-EXIT . SUB-0) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS . SUB-0) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-LESSP-PLUS . SUB-0) (IMMEDIATE-DEPENDENTS0 HEAD-LEMMA . SUB-0) (IMMEDIATE-DEPENDENTS0 EXP-OF-2-0 . SUB-0) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . SUB-0) (IMMEDIATE-DEPENDENTS0 HEAD . SUB-0) (IMMEDIATE-DEPENDENTS0 SUB . SUB-0) (LEMMAS SUB . SUB-0))))) (PUT1-LST (QUOTE ADD-0) (QUOTE (IDATE 1000402214937 IMMEDIATE-DEPENDENTS0 (GCD-S0-S0-RFILE-2 GCD-S0-S0-RFILE-1 GCD-S0-S0-2 GCD-S0-S0-1 GCD-S-S0 MISC-GROUP-H ADDR-INDEX2-MEM MOD32-EQ-DEDUCTION1 MEM-LST-MCDR MEM-LST-MCAR-1 MEM-LST-PLUS WRITE-MEMP-RAM1-ASL READ-MEMP-ROM1-ASL READ-MEMP-RAM1-ASL WRITE-MEM-ILST-ASL WRITE-MEM-LST-ASL READ-MEM-ILST-ASL READ-MEM-LST-ASL WRITE-MEM-ILST0 WRITE-MEM-LST0 WRITE-MEM-ILST WRITE-MEM-LST-LA READ-MEM-ILST-INT READ-MEM-ILST READ-MEM-LST-LA BYTE-WRITEP=WRITE-MEMP-1 BYTE-WRITE=WRITE-MEM-1 BYTE-READ=READ-MEM-1 PC-BYTE-READ=PC-READ-MEM-1 MEM-LST-NON-NUMBERP READ-MEM-NON-NUMBERP INDEX-N-DEDUCTION1 INDEX-N-DEDUCTION0 INDEX-N-0 DISJOINT-DEDUCTION1 DISJOINT0-DEDUCTION1 DISJOINT0-X-X DISJOINT-11~-ASL DISJOINT-11-ASL DISJOINT-9~-ASL DISJOINT-9-ASL DISJOINT-3~-ASL DISJOINT-3-ASL DISJOINT-2~-ASL DISJOINT-2-ASL DISJOINT-14~ DISJOINT-13~ DISJOINT-12~ DISJOINT-9~ DISJOINT-8~ DISJOINT-5~ DISJOINT-4~ DISJOINT-14 DISJOINT-13 DISJOINT-12 DISJOINT-9 DISJOINT-8 DISJOINT-5 DISJOINT-4 DISJOINT-2 DISJOINT-1 DISJOINT-0 DISJOINT-LA0 DISJOINT0-LA0 READ-MEM-MCODE2 PC-READ-MEM-MCODE2 PC-BYTE-READ-MCODE2 PC-BYTE-READ-MCODE1 READ-MEMP-RAM2 BYTE-READP-RAM2 WRITE-MEMP-RAM2 BYTE-WRITEP-RAM2 READ-MEMP-ROM2 BYTE-READP-ROM2 PC-READ-MEMP-ROM2 PC-BYTE-READP-ROM2 WRITE-MEMP-LA0 PC-READ-MEMP-LA0 ADD-TREE-ADD-FRINGE ADD-TREE-APPEND EVAL$-ADD-MEMBER ADD-NEG-CANCEL ADD-NEG-0 SUB-NEG NEG-ADD NEG-NEG WRITE-MEM-BYTE-WRITE BYTE-READ-WRITE-MEM-LEMMA BYTE-READ-WRITE-MEM ADDY-Y1 ADDY-Y) EVENT (PROVE-LEMMA ADD-0 (REWRITE) (AND (EQUAL (ADD N X (QUOTE 0)) (HEAD X N)) (EQUAL (ADD N (QUOTE 0) X) (HEAD X N)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-0 . ADD-0) (IMMEDIATE-DEPENDENTS0 EXP-OF-2-0 . ADD-0) (IMMEDIATE-DEPENDENTS0 REMAINDER-EXIT . ADD-0) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . ADD-0) (IMMEDIATE-DEPENDENTS0 HEAD . ADD-0) (IMMEDIATE-DEPENDENTS0 ADD . ADD-0) (LEMMAS ADD . ADD-0) (LEMMAS ADD . ADD-0))))) (PUT1-LST (QUOTE ADD-OF-0) (QUOTE (IDATE 1000402214937 IMMEDIATE-DEPENDENTS0 (CORRECTNESS-OF-CANCEL-EQUAL-ADD) EVENT (PROVE-LEMMA ADD-OF-0 (REWRITE) (EQUAL (ADD (QUOTE 0) X Y) (QUOTE 0))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EXP . ADD-OF-0) (IMMEDIATE-DEPENDENTS0 REMAINDER-1 . ADD-OF-0) (IMMEDIATE-DEPENDENTS0 REMAINDER-PLUS2 . ADD-OF-0) (IMMEDIATE-DEPENDENTS0 HEAD . ADD-OF-0) (IMMEDIATE-DEPENDENTS0 ADD . ADD-OF-0) (LEMMAS ADD . ADD-OF-0))))) (PUT1-LST (QUOTE ADDER-COMMUTATIVITY1) (QUOTE (IDATE 1000402214937 IMMEDIATE-DEPENDENTS0 (ADD-COMMUTATIVITY2) EVENT (PROVE-LEMMA ADDER-COMMUTATIVITY1 (REWRITE) (EQUAL (ADDER N C X (ADDER N D Y Z)) (ADDER N C Y (ADDER N D X Z))) ((DISABLE REMAINDER PLUS REMAINDER-EXIT))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY1 . ADDER-COMMUTATIVITY1) (IMMEDIATE-DEPENDENTS0 REMAINDER-PLUS-CANCEL . ADDER-COMMUTATIVITY1) (IMMEDIATE-DEPENDENTS0 REMAINDER-PLUS-REMAINDER2 . ADDER-COMMUTATIVITY1) (IMMEDIATE-DEPENDENTS0 HEAD . ADDER-COMMUTATIVITY1) (IMMEDIATE-DEPENDENTS0 ADDER . ADDER-COMMUTATIVITY1) (LEMMAS ADDER . ADDER-COMMUTATIVITY1))))) (PUT1-LST (QUOTE ADDER-ASSOCIATIVITY) (QUOTE (IDATE 1000402214937 IMMEDIATE-DEPENDENTS0 (SUB-SUB SUB-ADD ADD-SUB) EVENT (PROVE-LEMMA ADDER-ASSOCIATIVITY (REWRITE) (EQUAL (ADDER N D (ADDER N C X Y) Z) (ADDER N C X (ADDER N D Y Z))) ((DISABLE REMAINDER PLUS REMAINDER-EXIT))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . ADDER-ASSOCIATIVITY) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY1 . ADDER-ASSOCIATIVITY) (IMMEDIATE-DEPENDENTS0 REMAINDER-PLUS-REMAINDER2 . ADDER-ASSOCIATIVITY) (IMMEDIATE-DEPENDENTS0 HEAD . ADDER-ASSOCIATIVITY) (IMMEDIATE-DEPENDENTS0 ADDER . ADDER-ASSOCIATIVITY) (LEMMAS ADDER . ADDER-ASSOCIATIVITY))))) (PUT1-LST (QUOTE ADDER-COMMUTATIVITY) (QUOTE (IDATE 1000402214936 IMMEDIATE-DEPENDENTS0 (ADD-GROUP-H ADDX-V-BITP ADDX-C-BITP SUB-SUB1 SUB-ADD) EVENT (PROVE-LEMMA ADDER-COMMUTATIVITY (REWRITE) (EQUAL (ADDER N C X Y) (ADDER N C Y X))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . ADDER-COMMUTATIVITY) (IMMEDIATE-DEPENDENTS0 REMAINDER-PLUS-CANCEL . ADDER-COMMUTATIVITY) (IMMEDIATE-DEPENDENTS0 HEAD . ADDER-COMMUTATIVITY) (IMMEDIATE-DEPENDENTS0 ADDER . ADDER-COMMUTATIVITY) (LEMMAS ADDER . ADDER-COMMUTATIVITY))))) (PUT1-LST (QUOTE ADDER-SHIFT-CARRY) (QUOTE (IDATE 1000402214936 IMMEDIATE-DEPENDENTS0 (SUB-SUB1 SUB-ADD) EVENT (PROVE-LEMMA ADDER-SHIFT-CARRY (REWRITE) (EQUAL (ADDER N C X (ADDER N D Y Z)) (ADDER N D X (ADDER N C Y Z))) ((DISABLE REMAINDER PLUS REMAINDER-EXIT))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY1 . ADDER-SHIFT-CARRY) (IMMEDIATE-DEPENDENTS0 REMAINDER-PLUS-REMAINDER2 . ADDER-SHIFT-CARRY) (IMMEDIATE-DEPENDENTS0 HEAD . ADDER-SHIFT-CARRY) (IMMEDIATE-DEPENDENTS0 ADDER . ADDER-SHIFT-CARRY) (LEMMAS ADDER . ADDER-SHIFT-CARRY))))) (PUT1-LST (QUOTE SUBTRACTER-NAT-LA-OFF) (QUOTE (IDATE 1000402214935 EVENT (TOGGLE SUBTRACTER-NAT-LA-OFF SUBTRACTER-NAT-LA T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUBTRACTER-NAT-LA . SUBTRACTER-NAT-LA-OFF) (DISABLED-LEMMAS NIL SUBTRACTER-NAT-LA SUBTRACTER-NAT-LA-OFF . T))))) (PUT1-LST (QUOTE ADDER-NAT-LA-OFF) (QUOTE (IDATE 1000402214935 EVENT (TOGGLE ADDER-NAT-LA-OFF ADDER-NAT-LA T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ADDER-NAT-LA . ADDER-NAT-LA-OFF) (DISABLED-LEMMAS NIL ADDER-NAT-LA ADDER-NAT-LA-OFF . T))))) (PUT1-LST (QUOTE SUB-NAT-LA-OFF) (QUOTE (IDATE 1000402214935 EVENT (TOGGLE SUB-NAT-LA-OFF SUB-NAT-LA T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUB-NAT-LA . SUB-NAT-LA-OFF) (DISABLED-LEMMAS NIL SUB-NAT-LA SUB-NAT-LA-OFF . T))))) (PUT1-LST (QUOTE ADD-NAT-LA-OFF) (QUOTE (IDATE 1000402214935 EVENT (TOGGLE ADD-NAT-LA-OFF ADD-NAT-LA T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ADD-NAT-LA . ADD-NAT-LA-OFF) (DISABLED-LEMMAS NIL ADD-NAT-LA ADD-NAT-LA-OFF . T))))) (PUT1-LST (QUOTE PLUS-NUMBERP-OFF) (QUOTE (IDATE 1000402214935 EVENT (TOGGLE PLUS-NUMBERP-OFF PLUS-NUMBERP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-NUMBERP . PLUS-NUMBERP-OFF) (DISABLED-LEMMAS NIL PLUS-NUMBERP PLUS-NUMBERP-OFF . T))))) (PUT1-LST (QUOTE SUB-UINT) (QUOTE (IDATE 1000402214935 EVENT (PROVE-LEMMA SUB-UINT (REWRITE) (IMPLIES (AND (NAT-RANGEP X N) (NAT-RANGEP Y N)) (EQUAL (NAT-TO-UINT (ADD N X (NEG N Y))) (IF (LESSP (NAT-TO-UINT X) (NAT-TO-UINT Y)) (DIFFERENCE (PLUS (NAT-TO-UINT X) (EXP (QUOTE 2) N)) (NAT-TO-UINT Y)) (DIFFERENCE (NAT-TO-UINT X) (NAT-TO-UINT Y))))) ((DISABLE ADD))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIFFERENCE-LESSP . SUB-UINT) (IMMEDIATE-DEPENDENTS0 PLUS-NUMBERP . SUB-UINT) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-PLUS2 . SUB-UINT) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS . SUB-UINT) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-DIFFERENCE1 . SUB-UINT) (IMMEDIATE-DEPENDENTS0 ADD-NAT-LA . SUB-UINT) (IMMEDIATE-DEPENDENTS0 EXP-OF-2-0 . SUB-UINT) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . SUB-UINT) (IMMEDIATE-DEPENDENTS0 SUB-NAT-LA . SUB-UINT) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . SUB-UINT) (IMMEDIATE-DEPENDENTS0 EXP . SUB-UINT) (IMMEDIATE-DEPENDENTS0 NEG . SUB-UINT) (IMMEDIATE-DEPENDENTS0 ADD . SUB-UINT) (IMMEDIATE-DEPENDENTS0 NAT-TO-UINT . SUB-UINT) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . SUB-UINT) (LEMMAS NAT-TO-UINT . SUB-UINT))))) (PUT1-LST (QUOTE ADD-UINT) (QUOTE (IDATE 1000402214935 IMMEDIATE-DEPENDENTS0 (ADD-UINTXXX ADD-UINTXX) EVENT (PROVE-LEMMA ADD-UINT (REWRITE) (IMPLIES (AND (NAT-RANGEP X N) (NAT-RANGEP Y N)) (EQUAL (NAT-TO-UINT (ADD N X Y)) (IF (LESSP (PLUS (NAT-TO-UINT X) (NAT-TO-UINT Y)) (EXP (QUOTE 2) N)) (PLUS (NAT-TO-UINT X) (NAT-TO-UINT Y)) (DIFFERENCE (PLUS (NAT-TO-UINT X) (NAT-TO-UINT Y)) (EXP (QUOTE 2) N)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . ADD-UINT) (IMMEDIATE-DEPENDENTS0 PLUS-NUMBERP . ADD-UINT) (IMMEDIATE-DEPENDENTS0 REMAINDER-EXIT . ADD-UINT) (IMMEDIATE-DEPENDENTS0 HEAD . ADD-UINT) (IMMEDIATE-DEPENDENTS0 EXP . ADD-UINT) (IMMEDIATE-DEPENDENTS0 ADD . ADD-UINT) (IMMEDIATE-DEPENDENTS0 NAT-TO-UINT . ADD-UINT) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . ADD-UINT) (LEMMAS NAT-TO-UINT . ADD-UINT))))) (PUT1-LST (QUOTE SUBTRACTER-UINT) (QUOTE (IDATE 1000402214935 EVENT (PROVE-LEMMA SUBTRACTER-UINT (REWRITE) (IMPLIES (AND (NAT-RANGEP X N) (AND (NAT-RANGEP Y N) (BITP C))) (EQUAL (NAT-TO-UINT (SUBTRACTER N C X Y)) (IF (LESSP (NAT-TO-UINT Y) (PLUS C (NAT-TO-UINT X))) (DIFFERENCE (PLUS (NAT-TO-UINT Y) (EXP (QUOTE 2) N)) (PLUS C (NAT-TO-UINT X))) (DIFFERENCE (NAT-TO-UINT Y) (PLUS C (NAT-TO-UINT X)))))) ((DISABLE SUBTRACTER))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUB1-OF-1 . SUBTRACTER-UINT) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . SUBTRACTER-UINT) (IMMEDIATE-DEPENDENTS0 SUBTRACTER-NAT-LA . SUBTRACTER-UINT) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . SUBTRACTER-UINT) (IMMEDIATE-DEPENDENTS0 PLUS-ADD1 . SUBTRACTER-UINT) (IMMEDIATE-DEPENDENTS0 PLUS-EQUAL-0 . SUBTRACTER-UINT) (IMMEDIATE-DEPENDENTS0 EXP . SUBTRACTER-UINT) (IMMEDIATE-DEPENDENTS0 SUBTRACTER . SUBTRACTER-UINT) (IMMEDIATE-DEPENDENTS0 NAT-TO-UINT . SUBTRACTER-UINT) (IMMEDIATE-DEPENDENTS0 BITP . SUBTRACTER-UINT) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . SUBTRACTER-UINT) (LEMMAS NAT-TO-UINT . SUBTRACTER-UINT))))) (PUT1-LST (QUOTE ADDER-UINT) (QUOTE (IDATE 1000402214935 EVENT (PROVE-LEMMA ADDER-UINT (REWRITE) (IMPLIES (AND (NAT-RANGEP X N) (AND (NAT-RANGEP Y N) (BITP C))) (EQUAL (NAT-TO-UINT (ADDER N C X Y)) (IF (LESSP (PLUS C (PLUS (NAT-TO-UINT X) (NAT-TO-UINT Y))) (EXP (QUOTE 2) N)) (PLUS C (PLUS (NAT-TO-UINT X) (NAT-TO-UINT Y))) (DIFFERENCE (PLUS C (PLUS (NAT-TO-UINT X) (NAT-TO-UINT Y))) (EXP (QUOTE 2) N))))) ((DISABLE ADDER))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . ADDER-UINT) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-X-X . ADDER-UINT) (IMMEDIATE-DEPENDENTS0 SUB1-OF-1 . ADDER-UINT) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . ADDER-UINT) (IMMEDIATE-DEPENDENTS0 PLUS-NUMBERP . ADDER-UINT) (IMMEDIATE-DEPENDENTS0 ADDER-NAT-LA . ADDER-UINT) (IMMEDIATE-DEPENDENTS0 PLUS-ADD1 . ADDER-UINT) (IMMEDIATE-DEPENDENTS0 EXP . ADDER-UINT) (IMMEDIATE-DEPENDENTS0 ADDER . ADDER-UINT) (IMMEDIATE-DEPENDENTS0 NAT-TO-UINT . ADDER-UINT) (IMMEDIATE-DEPENDENTS0 BITP . ADDER-UINT) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . ADDER-UINT) (LEMMAS NAT-TO-UINT . ADDER-UINT))))) (PUT1-LST (QUOTE PLUS-NUMBERP) (QUOTE (IDATE 1000402214935 IMMEDIATE-DEPENDENTS0 (PLUS-NUMBERP-OFF SUB-UINT ADD-UINT ADDER-UINT) EVENT (PROVE-LEMMA PLUS-NUMBERP (REWRITE) (IMPLIES (NOT (NUMBERP Y)) (EQUAL (PLUS X Y) (FIX X)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-EQUAL-PLUS . PLUS-NUMBERP) (LEMMAS PLUS . PLUS-NUMBERP))))) (PUT1-LST (QUOTE SUBTRACTER-NAT-LA) (QUOTE (IDATE 1000402214935 IMMEDIATE-DEPENDENTS0 (SUBX-C-LA SUBTRACTER-NAT-LA-OFF SUBTRACTER-UINT) EVENT (PROVE-LEMMA SUBTRACTER-NAT-LA (REWRITE) (IMPLIES (AND (NAT-RANGEP X N) (AND (NAT-RANGEP Y N) (BITP C))) (EQUAL (SUBTRACTER N C X Y) (IF (LESSP Y (PLUS C X)) (DIFFERENCE (PLUS Y (EXP (QUOTE 2) N)) (PLUS C X)) (DIFFERENCE Y (PLUS C X))))) ((ENABLE LOGNOT))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIFFERENCE=0 . SUBTRACTER-NAT-LA) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . SUBTRACTER-NAT-LA) (IMMEDIATE-DEPENDENTS0 REMAINDER-PLUS2 . SUBTRACTER-NAT-LA) (IMMEDIATE-DEPENDENTS0 REMAINDER-0 . SUBTRACTER-NAT-LA) (IMMEDIATE-DEPENDENTS0 LESSP-OF-1 . SUBTRACTER-NAT-LA) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-SUB1 . SUBTRACTER-NAT-LA) (IMMEDIATE-DEPENDENTS0 ADDER . SUBTRACTER-NAT-LA) (IMMEDIATE-DEPENDENTS0 REMAINDER-ADD1 . SUBTRACTER-NAT-LA) (IMMEDIATE-DEPENDENTS0 HEAD . SUBTRACTER-NAT-LA) (IMMEDIATE-DEPENDENTS0 LOGNOT-0 . SUBTRACTER-NAT-LA) (IMMEDIATE-DEPENDENTS0 EXP-OF-2-0 . SUBTRACTER-NAT-LA) (IMMEDIATE-DEPENDENTS0 ADDER-NAT-LA . SUBTRACTER-NAT-LA) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . SUBTRACTER-NAT-LA) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . SUBTRACTER-NAT-LA) (IMMEDIATE-DEPENDENTS0 PLUS-ADD1 . SUBTRACTER-NAT-LA) (IMMEDIATE-DEPENDENTS0 LOGNOT . SUBTRACTER-NAT-LA) (IMMEDIATE-DEPENDENTS0 HEAD-LEMMA . SUBTRACTER-NAT-LA) (IMMEDIATE-DEPENDENTS0 B-NOT . SUBTRACTER-NAT-LA) (IMMEDIATE-DEPENDENTS0 PLUS-EQUAL-0 . SUBTRACTER-NAT-LA) (IMMEDIATE-DEPENDENTS0 EXP . SUBTRACTER-NAT-LA) (IMMEDIATE-DEPENDENTS0 SUBTRACTER . SUBTRACTER-NAT-LA) (IMMEDIATE-DEPENDENTS0 BITP . SUBTRACTER-NAT-LA) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . SUBTRACTER-NAT-LA) (LEMMAS SUBTRACTER . SUBTRACTER-NAT-LA))))) (PUT1-LST (QUOTE ADDER-NAT-LA) (QUOTE (IDATE 1000402214934 IMMEDIATE-DEPENDENTS0 (ADDX-C-LA ADDER-NAT-LA-OFF ADDER-UINT SUBTRACTER-NAT-LA) EVENT (PROVE-LEMMA ADDER-NAT-LA (REWRITE) (IMPLIES (AND (NAT-RANGEP X N) (AND (NAT-RANGEP Y N) (BITP C))) (EQUAL (ADDER N C X Y) (IF (LESSP (PLUS C (PLUS X Y)) (EXP (QUOTE 2) N)) (PLUS C (PLUS X Y)) (DIFFERENCE (PLUS C (PLUS X Y)) (EXP (QUOTE 2) N)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-EXIT . ADDER-NAT-LA) (IMMEDIATE-DEPENDENTS0 PLUS-ADD1 . ADDER-NAT-LA) (IMMEDIATE-DEPENDENTS0 REMAINDER-ADD1 . ADDER-NAT-LA) (IMMEDIATE-DEPENDENTS0 HEAD . ADDER-NAT-LA) (IMMEDIATE-DEPENDENTS0 EXP . ADDER-NAT-LA) (IMMEDIATE-DEPENDENTS0 ADDER . ADDER-NAT-LA) (IMMEDIATE-DEPENDENTS0 BITP . ADDER-NAT-LA) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . ADDER-NAT-LA) (LEMMAS ADDER . ADDER-NAT-LA))))) (PUT1-LST (QUOTE SUB-NAT-LA) (QUOTE (IDATE 1000402214934 IMMEDIATE-DEPENDENTS0 (SUB-NAT-LA-OFF SUB-UINT) EVENT (PROVE-LEMMA SUB-NAT-LA (REWRITE) (IMPLIES (AND (NAT-RANGEP X N) (NAT-RANGEP Y N)) (EQUAL (SUB N X Y) (IF (LESSP Y X) (DIFFERENCE (PLUS Y (EXP (QUOTE 2) N)) X) (DIFFERENCE Y X))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EXP-LESSP . SUB-NAT-LA) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . SUB-NAT-LA) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-PLUS2 . SUB-NAT-LA) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . SUB-NAT-LA) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-DIFFERENCE1 . SUB-NAT-LA) (IMMEDIATE-DEPENDENTS0 REMAINDER-0 . SUB-NAT-LA) (IMMEDIATE-DEPENDENTS0 REMAINDER-EXIT . SUB-NAT-LA) (IMMEDIATE-DEPENDENTS0 LESSP-PLUS-EXP2 . SUB-NAT-LA) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS . SUB-NAT-LA) (IMMEDIATE-DEPENDENTS0 HEAD . SUB-NAT-LA) (IMMEDIATE-DEPENDENTS0 HEAD-LEMMA . SUB-NAT-LA) (IMMEDIATE-DEPENDENTS0 EXP . SUB-NAT-LA) (IMMEDIATE-DEPENDENTS0 SUB . SUB-NAT-LA) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . SUB-NAT-LA) (LEMMAS SUB . SUB-NAT-LA))))) (PUT1-LST (QUOTE ADD-NAT-LA) (QUOTE (IDATE 1000402214934 IMMEDIATE-DEPENDENTS0 (ADD-NAT-LA-OFF SUB-UINT) EVENT (PROVE-LEMMA ADD-NAT-LA (REWRITE) (IMPLIES (AND (NAT-RANGEP X N) (NAT-RANGEP Y N)) (EQUAL (ADD N X Y) (IF (LESSP (PLUS X Y) (EXP (QUOTE 2) N)) (PLUS X Y) (DIFFERENCE (PLUS X Y) (EXP (QUOTE 2) N)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-EXIT . ADD-NAT-LA) (IMMEDIATE-DEPENDENTS0 HEAD . ADD-NAT-LA) (IMMEDIATE-DEPENDENTS0 EXP . ADD-NAT-LA) (IMMEDIATE-DEPENDENTS0 ADD . ADD-NAT-LA) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . ADD-NAT-LA) (LEMMAS ADD . ADD-NAT-LA))))) (PUT1-LST (QUOTE DIVS-V-OFF) (QUOTE (IDATE 1000402214934 EVENT (TOGGLE DIVS-V-OFF DIVS-V T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIVS-V . DIVS-V-OFF) (DISABLED-LEMMAS NIL DIVS-V DIVS-V-OFF . T))))) (PUT1-LST (QUOTE DIVU-V-OFF) (QUOTE (IDATE 1000402214934 EVENT (TOGGLE DIVU-V-OFF DIVU-V T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIVU-V . DIVU-V-OFF) (DISABLED-LEMMAS NIL DIVU-V DIVU-V-OFF . T))))) (PUT1-LST (QUOTE DIVS_3232-OVERFLOW) (QUOTE (IDATE 1000402214934 IMMEDIATE-DEPENDENTS0 (GCD-S0-S0-RFILE-2 GCD-S0-S0-RFILE-1 GCD-S0-S0-2 GCD-S0-S0-1 MISC-GROUP-H) EVENT (PROVE-LEMMA DIVS_3232-OVERFLOW (REWRITE) (EQUAL (DIVS-V (QUOTE 32) X (QUOTE 32) Y (QUOTE 32)) (IF (AND (EQUAL (NAT-TO-INT Y (QUOTE 32)) (QUOTE -2147483648)) (EQUAL (NAT-TO-INT X (QUOTE 32)) (QUOTE -1))) (QUOTE 1) (QUOTE 0)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NAT-TO-INT-RANGEP . DIVS_3232-OVERFLOW) (IMMEDIATE-DEPENDENTS0 EXP . DIVS_3232-OVERFLOW) (IMMEDIATE-DEPENDENTS0 IQUOTIENT-INT-RANGEP . DIVS_3232-OVERFLOW) (IMMEDIATE-DEPENDENTS0 DIVS-OVERFLOW . DIVS_3232-OVERFLOW) (IMMEDIATE-DEPENDENTS0 NAT-TO-INT . DIVS_3232-OVERFLOW) (IMMEDIATE-DEPENDENTS0 DIVS-V . DIVS_3232-OVERFLOW) (LEMMAS DIVS-V . DIVS_3232-OVERFLOW))))) (PUT1-LST (QUOTE DIVS-OVERFLOW) (QUOTE (IDATE 1000402214934 IMMEDIATE-DEPENDENTS0 (MISC-GROUP-H OR-GROUP-H DIVS_3232-OVERFLOW) EVENT (PROVE-LEMMA DIVS-OVERFLOW (REWRITE) (EQUAL (DIVS-V N X I Y J) (IF (INT-RANGEP (IQUOTIENT (NAT-TO-INT Y J) (NAT-TO-INT X I)) N) (QUOTE 0) (QUOTE 1)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B1 . DIVS-OVERFLOW) (IMMEDIATE-DEPENDENTS0 B0 . DIVS-OVERFLOW) (IMMEDIATE-DEPENDENTS0 NAT-TO-INT . DIVS-OVERFLOW) (IMMEDIATE-DEPENDENTS0 IQUOTIENT . DIVS-OVERFLOW) (IMMEDIATE-DEPENDENTS0 INT-RANGEP . DIVS-OVERFLOW) (IMMEDIATE-DEPENDENTS0 DIVS-V . DIVS-OVERFLOW) (LEMMAS DIVS-V . DIVS-OVERFLOW))))) (PUT1-LST (QUOTE DIVU-OVERFLOW) (QUOTE (IDATE 1000402214934 IMMEDIATE-DEPENDENTS0 (MISC-GROUP-H OR-GROUP-H) EVENT (PROVE-LEMMA DIVU-OVERFLOW (REWRITE) (EQUAL (DIVU-V N X Y) (IF (UINT-RANGEP (QUOTIENT (NAT-TO-UINT Y) (NAT-TO-UINT X)) N) (QUOTE 0) (QUOTE 1)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-LESSP . DIVU-OVERFLOW) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . DIVU-OVERFLOW) (IMMEDIATE-DEPENDENTS0 B1 . DIVU-OVERFLOW) (IMMEDIATE-DEPENDENTS0 B0 . DIVU-OVERFLOW) (IMMEDIATE-DEPENDENTS0 QUOTIENT-TIMES-LESSP . DIVU-OVERFLOW) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . DIVU-OVERFLOW) (IMMEDIATE-DEPENDENTS0 NAT-TO-UINT . DIVU-OVERFLOW) (IMMEDIATE-DEPENDENTS0 UINT-RANGEP . DIVU-OVERFLOW) (IMMEDIATE-DEPENDENTS0 DIVU-V . DIVU-OVERFLOW) (LEMMAS DIVU-V . DIVU-OVERFLOW))))) (PUT1-LST (QUOTE INT-RANGEP-OFF) (QUOTE (IDATE 1000402214934 EVENT (TOGGLE INT-RANGEP-OFF INT-RANGEP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INT-RANGEP . INT-RANGEP-OFF) (DISABLED-LEMMAS NIL INT-RANGEP INT-RANGEP-OFF . T))))) (PUT1-LST (QUOTE QUOT-NAT) (QUOTE (IDATE 1000402214934 EVENT (PROVE-LEMMA QUOT-NAT (REWRITE) (IMPLIES (NAT-RANGEP Y N) (EQUAL (NAT-TO-UINT (QUOT N X Y)) (QUOTIENT (NAT-TO-UINT Y) (NAT-TO-UINT X))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 QUOTIENT-0 . QUOT-NAT) (IMMEDIATE-DEPENDENTS0 QUOTIENT-LEQ . QUOT-NAT) (IMMEDIATE-DEPENDENTS0 REMAINDER-EXIT . QUOT-NAT) (IMMEDIATE-DEPENDENTS0 HEAD . QUOT-NAT) (IMMEDIATE-DEPENDENTS0 QUOT . QUOT-NAT) (IMMEDIATE-DEPENDENTS0 NAT-TO-UINT . QUOT-NAT) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . QUOT-NAT) (LEMMAS NAT-TO-UINT . QUOT-NAT))))) (PUT1-LST (QUOTE REM-NAT) (QUOTE (IDATE 1000402214933 EVENT (PROVE-LEMMA REM-NAT (REWRITE) (IMPLIES (NAT-RANGEP X N) (EQUAL (NAT-TO-UINT (REM N X Y)) (IF (EQUAL (NAT-TO-UINT X) (QUOTE 0)) (REMAINDER (NAT-TO-UINT Y) (EXP (QUOTE 2) N)) (REMAINDER (NAT-TO-UINT Y) (NAT-TO-UINT X)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-0 . REM-NAT) (IMMEDIATE-DEPENDENTS0 REMAINDER-LESSP-LINEAR . REM-NAT) (IMMEDIATE-DEPENDENTS0 REMAINDER-EXIT . REM-NAT) (IMMEDIATE-DEPENDENTS0 HEAD . REM-NAT) (IMMEDIATE-DEPENDENTS0 EXP . REM-NAT) (IMMEDIATE-DEPENDENTS0 REM . REM-NAT) (IMMEDIATE-DEPENDENTS0 NAT-TO-UINT . REM-NAT) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . REM-NAT) (LEMMAS NAT-TO-UINT . REM-NAT))))) (PUT1-LST (QUOTE HEAD-INT-CROCK-OFF) (QUOTE (IDATE 1000402214933 EVENT (TOGGLE HEAD-INT-CROCK-OFF HEAD-INT-CROCK T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 HEAD-INT-CROCK . HEAD-INT-CROCK-OFF) (DISABLED-LEMMAS NIL HEAD-INT-CROCK HEAD-INT-CROCK-OFF . T))))) (PUT1-LST (QUOTE IQUOT-INT) (QUOTE (IDATE 1000402214933 EVENT (PROVE-LEMMA IQUOT-INT (REWRITE) (IMPLIES (AND (INT-RANGEP (IQUOTIENT (NAT-TO-INT Y J) (NAT-TO-INT X I)) N) (IF (LESSP J N) (QUOTE *1*FALSE) (QUOTE *1*TRUE))) (EQUAL (NAT-TO-INT (IQUOT N X I Y J) N) (IQUOTIENT (NAT-TO-INT Y J) (NAT-TO-INT X I))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INTEGERP-FIX-INT . IQUOT-INT) (IMMEDIATE-DEPENDENTS0 IQUOTIENT-INTEGERP . IQUOT-INT) (IMMEDIATE-DEPENDENTS0 HEAD-INT-CROCK . IQUOT-INT) (IMMEDIATE-DEPENDENTS0 INT-RANGEP-LA . IQUOT-INT) (IMMEDIATE-DEPENDENTS0 INT-TO-NAT-TO-INT . IQUOT-INT) (IMMEDIATE-DEPENDENTS0 HEAD . IQUOT-INT) (IMMEDIATE-DEPENDENTS0 INT-TO-NAT-0 . IQUOT-INT) (IMMEDIATE-DEPENDENTS0 HEAD-LEMMA . IQUOT-INT) (IMMEDIATE-DEPENDENTS0 EXP . IQUOT-INT) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . IQUOT-INT) (IMMEDIATE-DEPENDENTS0 NAT-TO-INT-0 . IQUOT-INT) (IMMEDIATE-DEPENDENTS0 IQUOT . IQUOT-INT) (IMMEDIATE-DEPENDENTS0 NAT-TO-INT . IQUOT-INT) (IMMEDIATE-DEPENDENTS0 IQUOTIENT . IQUOT-INT) (IMMEDIATE-DEPENDENTS0 INT-RANGEP . IQUOT-INT) (LEMMAS NAT-TO-INT . IQUOT-INT))))) (PUT1-LST (QUOTE IREM-INT) (QUOTE (IDATE 1000402214933 IMMEDIATE-DEPENDENTS0 (GCD-S0-S0-2 GCD-S0-S0-1) EVENT (PROVE-LEMMA IREM-INT (REWRITE) (IMPLIES (AND (NAT-RANGEP X N) (NOT (EQUAL (NAT-TO-INT X N) (QUOTE 0)))) (EQUAL (NAT-TO-INT (IREM N X N Y J) N) (IREMAINDER (NAT-TO-INT Y J) (NAT-TO-INT X N))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 HEAD-INT-CROCK . IREM-INT) (IMMEDIATE-DEPENDENTS0 IREMAINDER-INTEGERP . IREM-INT) (IMMEDIATE-DEPENDENTS0 NAT-TO-INT-INTEGERP . IREM-INT) (IMMEDIATE-DEPENDENTS0 NAT-TO-INT-RANGEP . IREM-INT) (IMMEDIATE-DEPENDENTS0 IREMAINDER-INT-RANGEP . IREM-INT) (IMMEDIATE-DEPENDENTS0 INTEGERP-FIX-INT . IREM-INT) (IMMEDIATE-DEPENDENTS0 INT-TO-NAT-TO-INT . IREM-INT) (IMMEDIATE-DEPENDENTS0 IREMAINDER . IREM-INT) (IMMEDIATE-DEPENDENTS0 IREM . IREM-INT) (IMMEDIATE-DEPENDENTS0 NAT-TO-INT . IREM-INT) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . IREM-INT) (LEMMAS NAT-TO-INT . IREM-INT))))) (PUT1-LST (QUOTE MULS-CROCK-OFF) (QUOTE (IDATE 1000402214933 EVENT (TOGGLE MULS-CROCK-OFF MULS-CROCK T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MULS-CROCK . MULS-CROCK-OFF) (DISABLED-LEMMAS NIL MULS-CROCK MULS-CROCK-OFF . T))))) (PUT1-LST (QUOTE TIMES-LESSP_4-OFF) (QUOTE (IDATE 1000402214933 EVENT (TOGGLE TIMES-LESSP_4-OFF TIMES-LESSP_4 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-LESSP_4 . TIMES-LESSP_4-OFF) (DISABLED-LEMMAS NIL TIMES-LESSP_4 TIMES-LESSP_4-OFF . T))))) (PUT1-LST (QUOTE TIMES-LESSP_3-OFF) (QUOTE (IDATE 1000402214933 EVENT (TOGGLE TIMES-LESSP_3-OFF TIMES-LESSP_3 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-LESSP_3 . TIMES-LESSP_3-OFF) (DISABLED-LEMMAS NIL TIMES-LESSP_3 TIMES-LESSP_3-OFF . T))))) (PUT1-LST (QUOTE TIMES-LESSP_2-OFF) (QUOTE (IDATE 1000402214933 EVENT (TOGGLE TIMES-LESSP_2-OFF TIMES-LESSP_2 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-LESSP_2 . TIMES-LESSP_2-OFF) (DISABLED-LEMMAS NIL TIMES-LESSP_2 TIMES-LESSP_2-OFF . T))))) (PUT1-LST (QUOTE TIMES-LESSP_1-OFF) (QUOTE (IDATE 1000402214933 EVENT (TOGGLE TIMES-LESSP_1-OFF TIMES-LESSP_1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-LESSP_1 . TIMES-LESSP_1-OFF) (DISABLED-LEMMAS NIL TIMES-LESSP_1 TIMES-LESSP_1-OFF . T))))) (PUT1-LST (QUOTE MULS_3232-INT) (QUOTE (IDATE 1000402214933 IMMEDIATE-DEPENDENTS0 (MULS_3232-BMI MULS_3232-BEQ) EVENT (PROVE-LEMMA MULS_3232-INT (REWRITE) (IMPLIES (INT-RANGEP (ITIMES (NAT-TO-INT X (QUOTE 32)) (NAT-TO-INT Y (QUOTE 32))) (QUOTE 32)) (EQUAL (NAT-TO-INT (MULS (QUOTE 32) X Y (QUOTE 32)) (QUOTE 32)) (ITIMES (NAT-TO-INT X (QUOTE 32)) (NAT-TO-INT Y (QUOTE 32)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EXP . MULS_3232-INT) (IMMEDIATE-DEPENDENTS0 HEAD-INT-CROCK . MULS_3232-INT) (IMMEDIATE-DEPENDENTS0 ITIMES-INTEGERP . MULS_3232-INT) (IMMEDIATE-DEPENDENTS0 INT-RANGEP-LA . MULS_3232-INT) (IMMEDIATE-DEPENDENTS0 INTEGERP-FIX-INT . MULS_3232-INT) (IMMEDIATE-DEPENDENTS0 INT-TO-NAT-TO-INT . MULS_3232-INT) (IMMEDIATE-DEPENDENTS0 MULS . MULS_3232-INT) (IMMEDIATE-DEPENDENTS0 NAT-TO-INT . MULS_3232-INT) (IMMEDIATE-DEPENDENTS0 ITIMES . MULS_3232-INT) (IMMEDIATE-DEPENDENTS0 INT-RANGEP . MULS_3232-INT) (LEMMAS NAT-TO-INT . MULS_3232-INT))))) (PUT1-LST (QUOTE MULS_3264-INT) (QUOTE (IDATE 1000402214933 IMMEDIATE-DEPENDENTS0 (MULS_3264-BMI MULS_3264-BEQ) EVENT (PROVE-LEMMA MULS_3264-INT (REWRITE) (IMPLIES (AND (NAT-RANGEP X (QUOTE 32)) (NAT-RANGEP Y (QUOTE 32))) (EQUAL (NAT-TO-INT (MULS (QUOTE 64) X Y (QUOTE 32)) (QUOTE 64)) (ITIMES (NAT-TO-INT X (QUOTE 32)) (NAT-TO-INT Y (QUOTE 32))))) ((USE (MULS-CROCK (X (NAT-TO-INT X (QUOTE 32))) (Y (NAT-TO-INT Y (QUOTE 32))) (N (QUOTE 32)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NAT-TO-INT-RANGEP . MULS_3264-INT) (IMMEDIATE-DEPENDENTS0 EXP . MULS_3264-INT) (IMMEDIATE-DEPENDENTS0 INT-RANGEP . MULS_3264-INT) (IMMEDIATE-DEPENDENTS0 HEAD-INT-CROCK . MULS_3264-INT) (IMMEDIATE-DEPENDENTS0 ITIMES-INTEGERP . MULS_3264-INT) (IMMEDIATE-DEPENDENTS0 INT-RANGEP-LA . MULS_3264-INT) (IMMEDIATE-DEPENDENTS0 INTEGERP-FIX-INT . MULS_3264-INT) (IMMEDIATE-DEPENDENTS0 INT-TO-NAT-TO-INT . MULS_3264-INT) (IMMEDIATE-DEPENDENTS0 PLUS-ADD1-1 . MULS_3264-INT) (IMMEDIATE-DEPENDENTS0 MULS-CROCK . MULS_3264-INT) (IMMEDIATE-DEPENDENTS0 ITIMES . MULS_3264-INT) (IMMEDIATE-DEPENDENTS0 MULS . MULS_3264-INT) (IMMEDIATE-DEPENDENTS0 NAT-TO-INT . MULS_3264-INT) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . MULS_3264-INT) (LEMMAS NAT-TO-INT . MULS_3264-INT))))) (PUT1-LST (QUOTE MULS_1632-INT) (QUOTE (IDATE 1000402214933 IMMEDIATE-DEPENDENTS0 (MULS_1632-BMI MULS_1632-BEQ) EVENT (PROVE-LEMMA MULS_1632-INT (REWRITE) (IMPLIES (AND (NAT-RANGEP X (QUOTE 16)) (NAT-RANGEP Y (QUOTE 16))) (EQUAL (NAT-TO-INT (MULS (QUOTE 32) X Y (QUOTE 16)) (QUOTE 32)) (ITIMES (NAT-TO-INT X (QUOTE 16)) (NAT-TO-INT Y (QUOTE 16))))) ((USE (MULS-CROCK (X (NAT-TO-INT X (QUOTE 16))) (Y (NAT-TO-INT Y (QUOTE 16))) (N (QUOTE 16)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NAT-TO-INT-RANGEP . MULS_1632-INT) (IMMEDIATE-DEPENDENTS0 EXP . MULS_1632-INT) (IMMEDIATE-DEPENDENTS0 INT-RANGEP . MULS_1632-INT) (IMMEDIATE-DEPENDENTS0 HEAD-INT-CROCK . MULS_1632-INT) (IMMEDIATE-DEPENDENTS0 ITIMES-INTEGERP . MULS_1632-INT) (IMMEDIATE-DEPENDENTS0 INT-RANGEP-LA . MULS_1632-INT) (IMMEDIATE-DEPENDENTS0 INTEGERP-FIX-INT . MULS_1632-INT) (IMMEDIATE-DEPENDENTS0 INT-TO-NAT-TO-INT . MULS_1632-INT) (IMMEDIATE-DEPENDENTS0 PLUS-ADD1-1 . MULS_1632-INT) (IMMEDIATE-DEPENDENTS0 MULS-CROCK . MULS_1632-INT) (IMMEDIATE-DEPENDENTS0 ITIMES . MULS_1632-INT) (IMMEDIATE-DEPENDENTS0 MULS . MULS_1632-INT) (IMMEDIATE-DEPENDENTS0 NAT-TO-INT . MULS_1632-INT) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . MULS_1632-INT) (LEMMAS NAT-TO-INT . MULS_1632-INT))))) (PUT1-LST (QUOTE MULS-CROCK) (QUOTE (IDATE 1000402214933 IMMEDIATE-DEPENDENTS0 (MULS_3264-BVS MULS_1632-BVS MULS-CROCK-OFF MULS_3264-INT MULS_1632-INT) EVENT (PROVE-LEMMA MULS-CROCK (REWRITE) (IMPLIES (AND (INT-RANGEP X N) (AND (INT-RANGEP Y N) (NOT (ZEROP N)))) (INT-RANGEP (ITIMES X Y) (PLUS N N))) ((ENABLE ITIMES INTEGERP))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EXP-OF-2-0 . MULS-CROCK) (IMMEDIATE-DEPENDENTS0 INT-RANGEP-OF-0 . MULS-CROCK) (IMMEDIATE-DEPENDENTS0 TIMES-LESSP_4 . MULS-CROCK) (IMMEDIATE-DEPENDENTS0 TIMES-LESSP_3 . MULS-CROCK) (IMMEDIATE-DEPENDENTS0 NEGP . MULS-CROCK) (IMMEDIATE-DEPENDENTS0 PLUS-EQUAL-0 . MULS-CROCK) (IMMEDIATE-DEPENDENTS0 FIX-INT . MULS-CROCK) (IMMEDIATE-DEPENDENTS0 INTEGERP . MULS-CROCK) (IMMEDIATE-DEPENDENTS0 NEGATIVEP-GUTS0 . MULS-CROCK) (IMMEDIATE-DEPENDENTS0 TIMES-EQUAL-0 . MULS-CROCK) (IMMEDIATE-DEPENDENTS0 MINUS-INTEGERP . MULS-CROCK) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . MULS-CROCK) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . MULS-CROCK) (IMMEDIATE-DEPENDENTS0 ITIMES . MULS-CROCK) (IMMEDIATE-DEPENDENTS0 INT-RANGEP . MULS-CROCK) (LEMMAS INT-RANGEP . MULS-CROCK))))) (PUT1-LST (QUOTE TIMES-LESSP_4) (QUOTE (IDATE 1000402214933 IMMEDIATE-DEPENDENTS0 (TIMES-LESSP_4-OFF MULS-CROCK) EVENT (PROVE-LEMMA TIMES-LESSP_4 (REWRITE) (IMPLIES (AND (IF (LESSP (EXP (QUOTE 2) (SUB1 N)) X) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (AND (IF (LESSP (EXP (QUOTE 2) (SUB1 N)) Y) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (NOT (ZEROP N)))) (EQUAL (LESSP (EXP (QUOTE 2) (SUB1 (PLUS N N))) (TIMES X Y)) (QUOTE *1*FALSE))) ((USE (TIMES-LESSP_2 (X1 (EXP (QUOTE 2) (SUB1 N))) (Y1 (EXP (QUOTE 2) (SUB1 N))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . TIMES-LESSP_4) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . TIMES-LESSP_4) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . TIMES-LESSP_4) (IMMEDIATE-DEPENDENTS0 EXP-PLUS . TIMES-LESSP_4) (IMMEDIATE-DEPENDENTS0 TIMES-LESSP_2 . TIMES-LESSP_4) (IMMEDIATE-DEPENDENTS0 EXP . TIMES-LESSP_4) (LEMMAS LESSP . TIMES-LESSP_4))))) (PUT1-LST (QUOTE TIMES-LESSP_3) (QUOTE (IDATE 1000402214933 IMMEDIATE-DEPENDENTS0 (TIMES-LESSP_3-OFF MULS-CROCK) EVENT (PROVE-LEMMA TIMES-LESSP_3 (REWRITE) (IMPLIES (AND (IF (LESSP (EXP (QUOTE 2) (SUB1 N)) X) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (AND (IF (LESSP (EXP (QUOTE 2) (SUB1 N)) Y) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (NOT (ZEROP N)))) (EQUAL (LESSP (TIMES X Y) (EXP (QUOTE 2) (SUB1 (PLUS N N)))) (QUOTE *1*TRUE))) ((USE (TIMES-LESSP_2 (X1 (EXP (QUOTE 2) (SUB1 N))) (Y1 (EXP (QUOTE 2) (SUB1 N))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EXP-OF-2-0 . TIMES-LESSP_3) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . TIMES-LESSP_3) (IMMEDIATE-DEPENDENTS0 TIMES-LESSP . TIMES-LESSP_3) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . TIMES-LESSP_3) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . TIMES-LESSP_3) (IMMEDIATE-DEPENDENTS0 EXP-PLUS . TIMES-LESSP_3) (IMMEDIATE-DEPENDENTS0 TIMES-LESSP_2 . TIMES-LESSP_3) (IMMEDIATE-DEPENDENTS0 EXP . TIMES-LESSP_3) (LEMMAS LESSP . TIMES-LESSP_3))))) (PUT1-LST (QUOTE TIMES-LESSP_2) (QUOTE (IDATE 1000402214933 IMMEDIATE-DEPENDENTS0 (TIMES-LESSP_2-OFF TIMES-LESSP_4 TIMES-LESSP_3) EVENT (PROVE-LEMMA TIMES-LESSP_2 (REWRITE) (IMPLIES (AND (IF (LESSP X1 X) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (AND (IF (LESSP Y1 Y) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (AND (NOT (ZEROP X1)) (NOT (ZEROP Y1))))) (LESSP (TIMES X Y) (TIMES (QUOTE 2) (TIMES X1 Y1))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-LESSP-LINEAR . TIMES-LESSP_2) (IMMEDIATE-DEPENDENTS0 PLUS-EQUAL-0 . TIMES-LESSP_2) (IMMEDIATE-DEPENDENTS0 TIMES-ADD1 . TIMES-LESSP_2) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . TIMES-LESSP_2) (IMMEDIATE-DEPENDENTS0 SUB1-OF-1 . TIMES-LESSP_2) (IMMEDIATE-DEPENDENTS0 TIMES-1 . TIMES-LESSP_2) (IMMEDIATE-DEPENDENTS0 LESSP-OF-1 . TIMES-LESSP_2) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . TIMES-LESSP_2) (IMMEDIATE-DEPENDENTS0 TIMES-EQUAL-0 . TIMES-LESSP_2) (IMMEDIATE-DEPENDENTS0 TIMES-LESSP . TIMES-LESSP_2) (LINEAR-LEMMAS TIMES . TIMES-LESSP_2) (LINEAR-LEMMAS TIMES . TIMES-LESSP_2))))) (PUT1-LST (QUOTE EXP2-LESSP-CROCK-OFF) (QUOTE (IDATE 1000402214933 EVENT (TOGGLE EXP2-LESSP-CROCK-OFF EXP2-LESSP-CROCK T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EXP2-LESSP-CROCK . EXP2-LESSP-CROCK-OFF) (DISABLED-LEMMAS NIL EXP2-LESSP-CROCK EXP2-LESSP-CROCK-OFF . T))))) (PUT1-LST (QUOTE HEAD-INT-CROCK) (QUOTE (IDATE 1000402214933 IMMEDIATE-DEPENDENTS0 (DIVS-BEQ HEAD-INT-CROCK-OFF IQUOT-INT IREM-INT MULS_3232-INT MULS_3264-INT MULS_1632-INT) EVENT (PROVE-LEMMA HEAD-INT-CROCK (REWRITE) (IMPLIES (AND (INTEGERP X) (AND (INT-RANGEP X N) (IF (LESSP J N) (QUOTE *1*FALSE) (QUOTE *1*TRUE)))) (EQUAL (HEAD (INT-TO-NAT X J) N) (INT-TO-NAT X N))) ((ENABLE REMAINDER-DIFF INTEGERP INT-TO-NAT))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EXP2-LESSP-CROCK . HEAD-INT-CROCK) (IMMEDIATE-DEPENDENTS0 EXP-OF-2-0 . HEAD-INT-CROCK) (IMMEDIATE-DEPENDENTS0 NEGATIVEP-GUTS0 . HEAD-INT-CROCK) (IMMEDIATE-DEPENDENTS0 REMAINDER-EXIT . HEAD-INT-CROCK) (IMMEDIATE-DEPENDENTS0 NEGP . HEAD-INT-CROCK) (IMMEDIATE-DEPENDENTS0 INTEGERP-FIX-INT . HEAD-INT-CROCK) (IMMEDIATE-DEPENDENTS0 NUMBERP-INTEGERP . HEAD-INT-CROCK) (IMMEDIATE-DEPENDENTS0 INT-TO-NAT-0 . HEAD-INT-CROCK) (IMMEDIATE-DEPENDENTS0 EXP . HEAD-INT-CROCK) (IMMEDIATE-DEPENDENTS0 REMAINDER-EXP . HEAD-INT-CROCK) (IMMEDIATE-DEPENDENTS0 REMAINDER-DIFF . HEAD-INT-CROCK) (IMMEDIATE-DEPENDENTS0 INT-TO-NAT . HEAD-INT-CROCK) (IMMEDIATE-DEPENDENTS0 HEAD . HEAD-INT-CROCK) (IMMEDIATE-DEPENDENTS0 INT-RANGEP . HEAD-INT-CROCK) (IMMEDIATE-DEPENDENTS0 INTEGERP . HEAD-INT-CROCK) (LEMMAS HEAD . HEAD-INT-CROCK))))) (PUT1-LST (QUOTE EXP2-LESSP-CROCK) (QUOTE (IDATE 1000402214932 IMMEDIATE-DEPENDENTS0 (EXP2-LESSP-CROCK-OFF HEAD-INT-CROCK) EVENT (PROVE-LEMMA EXP2-LESSP-CROCK (REWRITE) (IMPLIES (AND (NOT (ZEROP I)) (IF (LESSP K I) (QUOTE *1*FALSE) (QUOTE *1*TRUE))) (LESSP (EXP (QUOTE 2) (SUB1 I)) (EXP (QUOTE 2) K)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EXP-LESSP . EXP2-LESSP-CROCK) (IMMEDIATE-DEPENDENTS0 EXP . EXP2-LESSP-CROCK) (LINEAR-LEMMAS EXP . EXP2-LESSP-CROCK) (LINEAR-LEMMAS EXP . EXP2-LESSP-CROCK))))) (PUT1-LST (QUOTE MULU_3232-NAT) (QUOTE (IDATE 1000402214932 EVENT (PROVE-LEMMA MULU_3232-NAT (REWRITE) (IMPLIES (UINT-RANGEP (TIMES (NAT-TO-UINT X) (NAT-TO-UINT Y)) (QUOTE 32)) (EQUAL (NAT-TO-UINT (MULU (QUOTE 32) X Y (QUOTE 32))) (TIMES (NAT-TO-UINT X) (NAT-TO-UINT Y))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EXP . MULU_3232-NAT) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . MULU_3232-NAT) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . MULU_3232-NAT) (IMMEDIATE-DEPENDENTS0 REMAINDER-EXIT . MULU_3232-NAT) (IMMEDIATE-DEPENDENTS0 HEAD . MULU_3232-NAT) (IMMEDIATE-DEPENDENTS0 MULU . MULU_3232-NAT) (IMMEDIATE-DEPENDENTS0 NAT-TO-UINT . MULU_3232-NAT) (IMMEDIATE-DEPENDENTS0 UINT-RANGEP . MULU_3232-NAT) (LEMMAS NAT-TO-UINT . MULU_3232-NAT))))) (PUT1-LST (QUOTE MULU_3264-NAT) (QUOTE (IDATE 1000402214932 IMMEDIATE-DEPENDENTS0 (MULU_3264-BEQ) EVENT (PROVE-LEMMA MULU_3264-NAT (REWRITE) (IMPLIES (AND (NAT-RANGEP X (QUOTE 32)) (NAT-RANGEP Y (QUOTE 32))) (EQUAL (NAT-TO-UINT (MULU (QUOTE 64) X Y (QUOTE 32))) (TIMES (NAT-TO-UINT X) (NAT-TO-UINT Y)))) ((USE (TIMES-LESSP_1 (X1 (EXP (QUOTE 2) (QUOTE 32))) (Y1 (EXP (QUOTE 2) (QUOTE 32))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . MULU_3264-NAT) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . MULU_3264-NAT) (IMMEDIATE-DEPENDENTS0 EXP . MULU_3264-NAT) (IMMEDIATE-DEPENDENTS0 REMAINDER-EXIT . MULU_3264-NAT) (IMMEDIATE-DEPENDENTS0 HEAD . MULU_3264-NAT) (IMMEDIATE-DEPENDENTS0 PLUS-ADD1-1 . MULU_3264-NAT) (IMMEDIATE-DEPENDENTS0 EXP-PLUS . MULU_3264-NAT) (IMMEDIATE-DEPENDENTS0 TIMES-LESSP_1 . MULU_3264-NAT) (IMMEDIATE-DEPENDENTS0 MULU . MULU_3264-NAT) (IMMEDIATE-DEPENDENTS0 NAT-TO-UINT . MULU_3264-NAT) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . MULU_3264-NAT) (LEMMAS NAT-TO-UINT . MULU_3264-NAT))))) (PUT1-LST (QUOTE MULU_1632-NAT) (QUOTE (IDATE 1000402214932 IMMEDIATE-DEPENDENTS0 (MULU_1632-BEQ) EVENT (PROVE-LEMMA MULU_1632-NAT (REWRITE) (IMPLIES (AND (NAT-RANGEP X (QUOTE 16)) (NAT-RANGEP Y (QUOTE 16))) (EQUAL (NAT-TO-UINT (MULU (QUOTE 32) X Y (QUOTE 16))) (TIMES (NAT-TO-UINT X) (NAT-TO-UINT Y)))) ((USE (TIMES-LESSP_1 (X1 (EXP (QUOTE 2) (QUOTE 16))) (Y1 (EXP (QUOTE 2) (QUOTE 16))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . MULU_1632-NAT) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . MULU_1632-NAT) (IMMEDIATE-DEPENDENTS0 EXP . MULU_1632-NAT) (IMMEDIATE-DEPENDENTS0 REMAINDER-EXIT . MULU_1632-NAT) (IMMEDIATE-DEPENDENTS0 HEAD . MULU_1632-NAT) (IMMEDIATE-DEPENDENTS0 PLUS-ADD1-1 . MULU_1632-NAT) (IMMEDIATE-DEPENDENTS0 EXP-PLUS . MULU_1632-NAT) (IMMEDIATE-DEPENDENTS0 TIMES-LESSP_1 . MULU_1632-NAT) (IMMEDIATE-DEPENDENTS0 MULU . MULU_1632-NAT) (IMMEDIATE-DEPENDENTS0 NAT-TO-UINT . MULU_1632-NAT) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . MULU_1632-NAT) (LEMMAS NAT-TO-UINT . MULU_1632-NAT))))) (PUT1-LST (QUOTE TIMES-LESSP_1) (QUOTE (IDATE 1000402214932 IMMEDIATE-DEPENDENTS0 (MULU_3264-BVS MULU_1632-BVS TIMES-LESSP_1-OFF MULU_3264-NAT MULU_1632-NAT) EVENT (PROVE-LEMMA TIMES-LESSP_1 (REWRITE) (IMPLIES (AND (LESSP X X1) (LESSP Y Y1)) (LESSP (TIMES X Y) (TIMES X1 Y1)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-ADD1 . TIMES-LESSP_1) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . TIMES-LESSP_1) (IMMEDIATE-DEPENDENTS0 LESSP-OF-1 . TIMES-LESSP_1) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . TIMES-LESSP_1) (IMMEDIATE-DEPENDENTS0 TIMES-LESSP . TIMES-LESSP_1) (LINEAR-LEMMAS TIMES . TIMES-LESSP_1) (LINEAR-LEMMAS TIMES . TIMES-LESSP_1))))) (PUT1-LST (QUOTE INTEGERP-OFF) (QUOTE (IDATE 1000402214932 EVENT (TOGGLE INTEGERP-OFF INTEGERP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INTEGERP . INTEGERP-OFF) (DISABLED-LEMMAS NIL INTEGERP INTEGERP-OFF . T))))) (PUT1-LST (QUOTE IQUOTIENT-OFF) (QUOTE (IDATE 1000402214932 EVENT (TOGGLE IQUOTIENT-OFF IQUOTIENT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IQUOTIENT . IQUOTIENT-OFF) (DISABLED-LEMMAS NIL IQUOTIENT IQUOTIENT-OFF . T))))) (PUT1-LST (QUOTE IREMAINDER-OFF) (QUOTE (IDATE 1000402214932 EVENT (TOGGLE IREMAINDER-OFF IREMAINDER T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IREMAINDER . IREMAINDER-OFF) (DISABLED-LEMMAS NIL IREMAINDER IREMAINDER-OFF . T))))) (PUT1-LST (QUOTE ITIMES-OFF) (QUOTE (IDATE 1000402214932 EVENT (TOGGLE ITIMES-OFF ITIMES T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ITIMES . ITIMES-OFF) (DISABLED-LEMMAS NIL ITIMES ITIMES-OFF . T))))) (PUT1-LST (QUOTE IPLUS-OFF) (QUOTE (IDATE 1000402214932 EVENT (TOGGLE IPLUS-OFF IPLUS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IPLUS . IPLUS-OFF) (DISABLED-LEMMAS NIL IPLUS IPLUS-OFF . T))))) (PUT1-LST (QUOTE IQUOTIENT-WRT--1) (QUOTE (IDATE 1000402214932 EVENT (PROVE-LEMMA IQUOTIENT-WRT--1 (REWRITE) (EQUAL (IQUOTIENT X (QUOTE -1)) (INEG X))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FIX-INT . IQUOTIENT-WRT--1) (IMMEDIATE-DEPENDENTS0 MINUS-INTEGERP . IQUOTIENT-WRT--1) (IMMEDIATE-DEPENDENTS0 QUOTIENT-1 . IQUOTIENT-WRT--1) (IMMEDIATE-DEPENDENTS0 NEGP . IQUOTIENT-WRT--1) (IMMEDIATE-DEPENDENTS0 IZEROP . IQUOTIENT-WRT--1) (IMMEDIATE-DEPENDENTS0 INTEGERP . IQUOTIENT-WRT--1) (IMMEDIATE-DEPENDENTS0 INEG . IQUOTIENT-WRT--1) (IMMEDIATE-DEPENDENTS0 IQUOTIENT . IQUOTIENT-WRT--1) (LEMMAS IQUOTIENT . IQUOTIENT-WRT--1))))) (PUT1-LST (QUOTE IREMAINDER-WRT--1) (QUOTE (IDATE 1000402214932 EVENT (PROVE-LEMMA IREMAINDER-WRT--1 (REWRITE) (EQUAL (IREMAINDER X (QUOTE -1)) (QUOTE 0))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FIX-INT . IREMAINDER-WRT--1) (IMMEDIATE-DEPENDENTS0 REMAINDER-1 . IREMAINDER-WRT--1) (IMMEDIATE-DEPENDENTS0 ABS . IREMAINDER-WRT--1) (IMMEDIATE-DEPENDENTS0 NEGP . IREMAINDER-WRT--1) (IMMEDIATE-DEPENDENTS0 IREMAINDER . IREMAINDER-WRT--1) (LEMMAS IREMAINDER . IREMAINDER-WRT--1))))) (PUT1-LST (QUOTE IQUOTIENT-WRT-1) (QUOTE (IDATE 1000402214932 EVENT (PROVE-LEMMA IQUOTIENT-WRT-1 (REWRITE) (EQUAL (IQUOTIENT X (QUOTE 1)) (FIX-INT X))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INTEGERP-FIX-INT . IQUOTIENT-WRT-1) (IMMEDIATE-DEPENDENTS0 QUOTIENT-1 . IQUOTIENT-WRT-1) (IMMEDIATE-DEPENDENTS0 NEGP . IQUOTIENT-WRT-1) (IMMEDIATE-DEPENDENTS0 INTEGERP . IQUOTIENT-WRT-1) (IMMEDIATE-DEPENDENTS0 FIX-INT . IQUOTIENT-WRT-1) (IMMEDIATE-DEPENDENTS0 IQUOTIENT . IQUOTIENT-WRT-1) (LEMMAS IQUOTIENT . IQUOTIENT-WRT-1))))) (PUT1-LST (QUOTE IREMAINDER-WRT-1) (QUOTE (IDATE 1000402214932 EVENT (PROVE-LEMMA IREMAINDER-WRT-1 (REWRITE) (EQUAL (IREMAINDER X (QUOTE 1)) (QUOTE 0))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FIX-INT . IREMAINDER-WRT-1) (IMMEDIATE-DEPENDENTS0 REMAINDER-1 . IREMAINDER-WRT-1) (IMMEDIATE-DEPENDENTS0 ABS . IREMAINDER-WRT-1) (IMMEDIATE-DEPENDENTS0 NEGP . IREMAINDER-WRT-1) (IMMEDIATE-DEPENDENTS0 IREMAINDER . IREMAINDER-WRT-1) (LEMMAS IREMAINDER . IREMAINDER-WRT-1))))) (PUT1-LST (QUOTE ITIMES-SIGN) (QUOTE (IDATE 1000402214932 IMMEDIATE-DEPENDENTS0 (ASL-BMI MULS_3232-BMI MULS_3264-BMI MULS_1632-BMI) EVENT (PROVE-LEMMA ITIMES-SIGN (REWRITE) (IMPLIES (AND (INTEGERP X) (INTEGERP Y)) (EQUAL (NEGATIVEP (ITIMES X Y)) (OR (AND (NUMBERP X) (AND (NOT (EQUAL X (QUOTE 0))) (NEGATIVEP Y))) (AND (NEGATIVEP X) (AND (NUMBERP Y) (NOT (EQUAL Y (QUOTE 0))))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NEGP . ITIMES-SIGN) (IMMEDIATE-DEPENDENTS0 FIX-INT . ITIMES-SIGN) (IMMEDIATE-DEPENDENTS0 NEGATIVEP-GUTS0 . ITIMES-SIGN) (IMMEDIATE-DEPENDENTS0 TIMES-EQUAL-0 . ITIMES-SIGN) (IMMEDIATE-DEPENDENTS0 MINUS-INTEGERP . ITIMES-SIGN) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . ITIMES-SIGN) (IMMEDIATE-DEPENDENTS0 ITIMES . ITIMES-SIGN) (IMMEDIATE-DEPENDENTS0 INTEGERP . ITIMES-SIGN) (LEMMAS NEGATIVEP . ITIMES-SIGN))))) (PUT1-LST (QUOTE ITIMES-EQUAL-CANCELLATION) (QUOTE (IDATE 1000402214932 EVENT (PROVE-LEMMA ITIMES-EQUAL-CANCELLATION (REWRITE) (IMPLIES (NOT (IZEROP X)) (EQUAL (EQUAL (ITIMES X Y) (ITIMES X Z)) (EQUAL (FIX-INT Y) (FIX-INT Z))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-ZERO . ITIMES-EQUAL-CANCELLATION) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-EQUAL-TIMES . ITIMES-EQUAL-CANCELLATION) (IMMEDIATE-DEPENDENTS0 INTEGERP . ITIMES-EQUAL-CANCELLATION) (IMMEDIATE-DEPENDENTS0 NEGP . ITIMES-EQUAL-CANCELLATION) (IMMEDIATE-DEPENDENTS0 NEGATIVEP-GUTS0 . ITIMES-EQUAL-CANCELLATION) (IMMEDIATE-DEPENDENTS0 TIMES-EQUAL-0 . ITIMES-EQUAL-CANCELLATION) (IMMEDIATE-DEPENDENTS0 MINUS-INTEGERP . ITIMES-EQUAL-CANCELLATION) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . ITIMES-EQUAL-CANCELLATION) (IMMEDIATE-DEPENDENTS0 FIX-INT . ITIMES-EQUAL-CANCELLATION) (IMMEDIATE-DEPENDENTS0 ITIMES . ITIMES-EQUAL-CANCELLATION) (IMMEDIATE-DEPENDENTS0 IZEROP . ITIMES-EQUAL-CANCELLATION) (LEMMAS EQUAL . ITIMES-EQUAL-CANCELLATION))))) (PUT1-LST (QUOTE ITIMES-ASSOCIATIVITY) (QUOTE (IDATE 1000402214932 EVENT (PROVE-LEMMA ITIMES-ASSOCIATIVITY (REWRITE) (EQUAL (ITIMES (ITIMES X Y) Z) (ITIMES X (ITIMES Y Z)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INTEGERP-FIX-INT . ITIMES-ASSOCIATIVITY) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY1 . ITIMES-ASSOCIATIVITY) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . ITIMES-ASSOCIATIVITY) (IMMEDIATE-DEPENDENTS0 NEGATIVEP-GUTS0 . ITIMES-ASSOCIATIVITY) (IMMEDIATE-DEPENDENTS0 INTEGERP . ITIMES-ASSOCIATIVITY) (IMMEDIATE-DEPENDENTS0 ITIMES-0 . ITIMES-ASSOCIATIVITY) (IMMEDIATE-DEPENDENTS0 FIX-INT . ITIMES-ASSOCIATIVITY) (IMMEDIATE-DEPENDENTS0 TIMES-EQUAL-0 . ITIMES-ASSOCIATIVITY) (IMMEDIATE-DEPENDENTS0 MINUS-INTEGERP . ITIMES-ASSOCIATIVITY) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . ITIMES-ASSOCIATIVITY) (IMMEDIATE-DEPENDENTS0 NEGP . ITIMES-ASSOCIATIVITY) (IMMEDIATE-DEPENDENTS0 ITIMES-COMMUTATIVITY . ITIMES-ASSOCIATIVITY) (IMMEDIATE-DEPENDENTS0 ITIMES . ITIMES-ASSOCIATIVITY) (LEMMAS ITIMES . ITIMES-ASSOCIATIVITY))))) (PUT1-LST (QUOTE ITIMES-COMMUTATIVITY) (QUOTE (IDATE 1000402214931 IMMEDIATE-DEPENDENTS0 (ASL-BMI MULS_3232-BMI ASL-BEQ MULS_3232-BEQ MULS_3264-BEQ MULS_1632-BEQ MULS-N-BITP MULS-Z-BITP MULS-V-BITP ITIMES-ASSOCIATIVITY) EVENT (PROVE-LEMMA ITIMES-COMMUTATIVITY (REWRITE) (EQUAL (ITIMES X Y) (ITIMES Y X))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FIX-INT . ITIMES-COMMUTATIVITY) (IMMEDIATE-DEPENDENTS0 TIMES-EQUAL-0 . ITIMES-COMMUTATIVITY) (IMMEDIATE-DEPENDENTS0 MINUS-INTEGERP . ITIMES-COMMUTATIVITY) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . ITIMES-COMMUTATIVITY) (IMMEDIATE-DEPENDENTS0 NEGP . ITIMES-COMMUTATIVITY) (IMMEDIATE-DEPENDENTS0 ITIMES . ITIMES-COMMUTATIVITY) (LEMMAS ITIMES . ITIMES-COMMUTATIVITY))))) (PUT1-LST (QUOTE ITIMES-EQUAL-0) (QUOTE (IDATE 1000402214931 IMMEDIATE-DEPENDENTS0 (ASL-BEQ MULS_3232-BEQ MULS_3264-BEQ MULS_1632-BEQ) EVENT (PROVE-LEMMA ITIMES-EQUAL-0 (REWRITE) (EQUAL (EQUAL (ITIMES X Y) (QUOTE 0)) (OR (IZEROP X) (IZEROP Y)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NEGATIVEP-GUTS0 . ITIMES-EQUAL-0) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . ITIMES-EQUAL-0) (IMMEDIATE-DEPENDENTS0 FIX-INT . ITIMES-EQUAL-0) (IMMEDIATE-DEPENDENTS0 TIMES-EQUAL-0 . ITIMES-EQUAL-0) (IMMEDIATE-DEPENDENTS0 MINUS-INTEGERP . ITIMES-EQUAL-0) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . ITIMES-EQUAL-0) (IMMEDIATE-DEPENDENTS0 NEGP . ITIMES-EQUAL-0) (IMMEDIATE-DEPENDENTS0 INTEGERP . ITIMES-EQUAL-0) (IMMEDIATE-DEPENDENTS0 IZEROP . ITIMES-EQUAL-0) (IMMEDIATE-DEPENDENTS0 ITIMES . ITIMES-EQUAL-0) (LEMMAS EQUAL . ITIMES-EQUAL-0))))) (PUT1-LST (QUOTE ITIMES-0) (QUOTE (IDATE 1000402214931 IMMEDIATE-DEPENDENTS0 (MULS_3232-BMI MULS_3232-BEQ MULS_3264-BEQ MULS_1632-BEQ ITIMES-ASSOCIATIVITY) EVENT (PROVE-LEMMA ITIMES-0 (REWRITE) (EQUAL (ITIMES (QUOTE 0) X) (QUOTE 0))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FIX-INT . ITIMES-0) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . ITIMES-0) (IMMEDIATE-DEPENDENTS0 NEGP . ITIMES-0) (IMMEDIATE-DEPENDENTS0 ITIMES . ITIMES-0) (LEMMAS ITIMES . ITIMES-0))))) (PUT1-LST (QUOTE ILESSP-ENTAILS-ILEQ) (QUOTE (IDATE 1000402214931 IMMEDIATE-DEPENDENTS0 (BETWEEN-ILEQ-LA SUB-BLE SUB-BGT SUB-BLT SUB-BGE SUB-BMI SUB-BHI-INT) EVENT (PROVE-LEMMA ILESSP-ENTAILS-ILEQ (REWRITE) (IMPLIES (ILESSP X Y) (NOT (ILESSP Y X)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NEGP . ILESSP-ENTAILS-ILEQ) (IMMEDIATE-DEPENDENTS0 ILESSP . ILESSP-ENTAILS-ILEQ) (LEMMAS ILESSP . ILESSP-ENTAILS-ILEQ))))) (PUT1-LST (QUOTE ILESSP-REFLEX) (QUOTE (IDATE 1000402214931 IMMEDIATE-DEPENDENTS0 (SUB-BHI-INT) EVENT (PROVE-LEMMA ILESSP-REFLEX (REWRITE) (NOT (ILESSP X X))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NEGP . ILESSP-REFLEX) (IMMEDIATE-DEPENDENTS0 ILESSP . ILESSP-REFLEX) (LEMMAS ILESSP . ILESSP-REFLEX))))) (PUT1-LST (QUOTE IDIFFERENCE-NEGATIVEP) (QUOTE (IDATE 1000402214931 IMMEDIATE-DEPENDENTS0 (SUB-BLE SUB-BGT SUB-BLT SUB-BGE SUB-BMI) EVENT (PROVE-LEMMA IDIFFERENCE-NEGATIVEP (REWRITE) (EQUAL (NEGATIVEP (IDIFFERENCE X Y)) (ILESSP X Y))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NUMBERP-INTEGERP . IDIFFERENCE-NEGATIVEP) (IMMEDIATE-DEPENDENTS0 MINUS-INTEGERP . IDIFFERENCE-NEGATIVEP) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . IDIFFERENCE-NEGATIVEP) (IMMEDIATE-DEPENDENTS0 IPLUS . IDIFFERENCE-NEGATIVEP) (IMMEDIATE-DEPENDENTS0 INTEGERP-FIX-INT . IDIFFERENCE-NEGATIVEP) (IMMEDIATE-DEPENDENTS0 IPLUS-0 . IDIFFERENCE-NEGATIVEP) (IMMEDIATE-DEPENDENTS0 IZEROP . IDIFFERENCE-NEGATIVEP) (IMMEDIATE-DEPENDENTS0 INTEGERP . IDIFFERENCE-NEGATIVEP) (IMMEDIATE-DEPENDENTS0 NEGP . IDIFFERENCE-NEGATIVEP) (IMMEDIATE-DEPENDENTS0 FIX-INT . IDIFFERENCE-NEGATIVEP) (IMMEDIATE-DEPENDENTS0 INEG . IDIFFERENCE-NEGATIVEP) (IMMEDIATE-DEPENDENTS0 ILESSP . IDIFFERENCE-NEGATIVEP) (IMMEDIATE-DEPENDENTS0 IDIFFERENCE . IDIFFERENCE-NEGATIVEP) (LEMMAS NEGATIVEP . IDIFFERENCE-NEGATIVEP))))) (PUT1-LST (QUOTE IDIFFERENCE-X-X) (QUOTE (IDATE 1000402214931 IMMEDIATE-DEPENDENTS0 (SUB-BLE SUB-BGT) EVENT (PROVE-LEMMA IDIFFERENCE-X-X (REWRITE) (EQUAL (IDIFFERENCE X X) (QUOTE 0))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IPLUS-0 . IDIFFERENCE-X-X) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-X-X . IDIFFERENCE-X-X) (IMMEDIATE-DEPENDENTS0 IPLUS . IDIFFERENCE-X-X) (IMMEDIATE-DEPENDENTS0 IZEROP . IDIFFERENCE-X-X) (IMMEDIATE-DEPENDENTS0 INTEGERP . IDIFFERENCE-X-X) (IMMEDIATE-DEPENDENTS0 NEGP . IDIFFERENCE-X-X) (IMMEDIATE-DEPENDENTS0 FIX-INT . IDIFFERENCE-X-X) (IMMEDIATE-DEPENDENTS0 INEG . IDIFFERENCE-X-X) (IMMEDIATE-DEPENDENTS0 IDIFFERENCE . IDIFFERENCE-X-X) (LEMMAS IDIFFERENCE . IDIFFERENCE-X-X))))) (PUT1-LST (QUOTE IPLUS-1--1) (QUOTE (IDATE 1000402214931 IMMEDIATE-DEPENDENTS0 (SUBX-V-LA SUB-INT SUBTRACTER-INT) EVENT (PROVE-LEMMA IPLUS-1--1 (REWRITE) (EQUAL (IPLUS (QUOTE 1) (IPLUS (QUOTE -1) X)) (FIX-INT X))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NEGATIVEP-GUTS0 . IPLUS-1--1) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-SUB1 . IPLUS-1--1) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . IPLUS-1--1) (IMMEDIATE-DEPENDENTS0 LESSP-OF-1 . IPLUS-1--1) (IMMEDIATE-DEPENDENTS0 PLUS-ADD1 . IPLUS-1--1) (IMMEDIATE-DEPENDENTS0 NEGP . IPLUS-1--1) (IMMEDIATE-DEPENDENTS0 INTEGERP . IPLUS-1--1) (IMMEDIATE-DEPENDENTS0 FIX-INT . IPLUS-1--1) (IMMEDIATE-DEPENDENTS0 IPLUS . IPLUS-1--1) (LEMMAS IPLUS . IPLUS-1--1))))) (PUT1-LST (QUOTE IPLUS-0) (QUOTE (IDATE 1000402214931 IMMEDIATE-DEPENDENTS0 (IDIFFERENCE-INT-RANGEP SUB-BLE SUB-BGT SUB-BLT SUB-BGE ADD-BVS&VC SUB-BVS&VC SUBX-V-LA SUB-INT ADD-INT SUBTRACTER-INT ADDER-INT IDIFFERENCE-NEGATIVEP IDIFFERENCE-X-X) EVENT (PROVE-LEMMA IPLUS-0 (REWRITE) (IMPLIES (IZEROP X) (AND (EQUAL (IPLUS X Y) (FIX-INT Y)) (EQUAL (IPLUS Y X) (FIX-INT Y))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INTEGERP . IPLUS-0) (IMMEDIATE-DEPENDENTS0 NEGP . IPLUS-0) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . IPLUS-0) (IMMEDIATE-DEPENDENTS0 IPLUS-COMMUTATIVITY . IPLUS-0) (IMMEDIATE-DEPENDENTS0 FIX-INT . IPLUS-0) (IMMEDIATE-DEPENDENTS0 IPLUS . IPLUS-0) (IMMEDIATE-DEPENDENTS0 IZEROP . IPLUS-0) (LEMMAS IPLUS . IPLUS-0) (LEMMAS IPLUS . IPLUS-0))))) (PUT1-LST (QUOTE INEG-IPLUS) (QUOTE (IDATE 1000402214931 IMMEDIATE-DEPENDENTS0 (SUBX-V-LA SUBTRACTER-INT) EVENT (PROVE-LEMMA INEG-IPLUS (REWRITE) (EQUAL (INEG (IPLUS X Y)) (IPLUS (INEG X) (INEG Y)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-EQUAL-PLUS . INEG-IPLUS) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . INEG-IPLUS) (IMMEDIATE-DEPENDENTS0 IPLUS-COMMUTATIVITY . INEG-IPLUS) (IMMEDIATE-DEPENDENTS0 NUMBERP-INTEGERP . INEG-IPLUS) (IMMEDIATE-DEPENDENTS0 DIFFERENCE=0 . INEG-IPLUS) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . INEG-IPLUS) (IMMEDIATE-DEPENDENTS0 MINUS-INTEGERP . INEG-IPLUS) (IMMEDIATE-DEPENDENTS0 PLUS-EQUAL-0 . INEG-IPLUS) (IMMEDIATE-DEPENDENTS0 NEGATIVEP-GUTS0 . INEG-IPLUS) (IMMEDIATE-DEPENDENTS0 INTEGERP-FIX-INT . INEG-IPLUS) (IMMEDIATE-DEPENDENTS0 NEGP . INEG-IPLUS) (IMMEDIATE-DEPENDENTS0 IZEROP . INEG-IPLUS) (IMMEDIATE-DEPENDENTS0 INTEGERP . INEG-IPLUS) (IMMEDIATE-DEPENDENTS0 FIX-INT . INEG-IPLUS) (IMMEDIATE-DEPENDENTS0 IPLUS . INEG-IPLUS) (IMMEDIATE-DEPENDENTS0 INEG . INEG-IPLUS) (LEMMAS INEG . INEG-IPLUS))))) (PUT1-LST (QUOTE IPLUS-ASSOCIATIVITY) (QUOTE (IDATE 1000402214930 IMMEDIATE-DEPENDENTS0 (SUBX-V-LA SUB-INT SUBTRACTER-INT) EVENT (PROVE-LEMMA IPLUS-ASSOCIATIVITY (REWRITE) (EQUAL (IPLUS (IPLUS X Y) Z) (IPLUS X (IPLUS Y Z))) ((DISABLE IPLUS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IPLUS-COMMUTATIVITY . IPLUS-ASSOCIATIVITY) (IMMEDIATE-DEPENDENTS0 IPLUS-COMMUTATIVITY1 . IPLUS-ASSOCIATIVITY) (IMMEDIATE-DEPENDENTS0 IPLUS . IPLUS-ASSOCIATIVITY) (LEMMAS IPLUS . IPLUS-ASSOCIATIVITY))))) (PUT1-LST (QUOTE IPLUS-COMMUTATIVITY1) (QUOTE (IDATE 1000402214930 IMMEDIATE-DEPENDENTS0 (SUBX-V-LA SUB-INT ADD-INT SUBTRACTER-INT ADDER-INT IPLUS-ASSOCIATIVITY) EVENT (PROVE-LEMMA IPLUS-COMMUTATIVITY1 (REWRITE) (EQUAL (IPLUS X (IPLUS Y Z)) (IPLUS Y (IPLUS X Z)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIFFERENCE-EQUAL-CANCEL-1 . IPLUS-COMMUTATIVITY1) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-EQUAL-PLUS . IPLUS-COMMUTATIVITY1) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY1 . IPLUS-COMMUTATIVITY1) (IMMEDIATE-DEPENDENTS0 IPLUS-COMMUTATIVITY . IPLUS-COMMUTATIVITY1) (IMMEDIATE-DEPENDENTS0 PLUS-EQUAL-0 . IPLUS-COMMUTATIVITY1) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . IPLUS-COMMUTATIVITY1) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-PLUS2 . IPLUS-COMMUTATIVITY1) (IMMEDIATE-DEPENDENTS0 DIFFERENCE=0 . IPLUS-COMMUTATIVITY1) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-LESSP1 . IPLUS-COMMUTATIVITY1) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-DIFFERENCE1 . IPLUS-COMMUTATIVITY1) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . IPLUS-COMMUTATIVITY1) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-DIFFERENCE2 . IPLUS-COMMUTATIVITY1) (IMMEDIATE-DEPENDENTS0 NEGATIVEP-GUTS0 . IPLUS-COMMUTATIVITY1) (IMMEDIATE-DEPENDENTS0 INTEGERP . IPLUS-COMMUTATIVITY1) (IMMEDIATE-DEPENDENTS0 NEGP . IPLUS-COMMUTATIVITY1) (IMMEDIATE-DEPENDENTS0 IPLUS . IPLUS-COMMUTATIVITY1) (LEMMAS IPLUS . IPLUS-COMMUTATIVITY1))))) (PUT1-LST (QUOTE IPLUS-COMMUTATIVITY) (QUOTE (IDATE 1000402214929 IMMEDIATE-DEPENDENTS0 (SCC-GROUP-H BETWEEN-ILEQ-LA SUBX-V-LA SUB-INT ADD-INT SUBTRACTER-INT ADDER-INT IPLUS-0 INEG-IPLUS IPLUS-ASSOCIATIVITY IPLUS-COMMUTATIVITY1) EVENT (PROVE-LEMMA IPLUS-COMMUTATIVITY (REWRITE) (EQUAL (IPLUS X Y) (IPLUS Y X))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NEGP . IPLUS-COMMUTATIVITY) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . IPLUS-COMMUTATIVITY) (IMMEDIATE-DEPENDENTS0 IPLUS . IPLUS-COMMUTATIVITY) (LEMMAS IPLUS . IPLUS-COMMUTATIVITY))))) (PUT1-LST (QUOTE IQUOTIENT-INTEGERP) (QUOTE (IDATE 1000402214929 IMMEDIATE-DEPENDENTS0 (DIVS-BEQ IQUOT-INT) EVENT (PROVE-LEMMA IQUOTIENT-INTEGERP (REWRITE) (INTEGERP (IQUOTIENT X Y))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FIX-INT . IQUOTIENT-INTEGERP) (IMMEDIATE-DEPENDENTS0 QUOTIENT-EQUAL-0 . IQUOTIENT-INTEGERP) (IMMEDIATE-DEPENDENTS0 MINUS-INTEGERP . IQUOTIENT-INTEGERP) (IMMEDIATE-DEPENDENTS0 NEGP . IQUOTIENT-INTEGERP) (IMMEDIATE-DEPENDENTS0 INTEGERP-FIX-INT . IQUOTIENT-INTEGERP) (IMMEDIATE-DEPENDENTS0 NEGATIVEP-GUTS0 . IQUOTIENT-INTEGERP) (IMMEDIATE-DEPENDENTS0 QUOTIENT-EXIT . IQUOTIENT-INTEGERP) (IMMEDIATE-DEPENDENTS0 IQUOTIENT . IQUOTIENT-INTEGERP) (IMMEDIATE-DEPENDENTS0 INTEGERP . IQUOTIENT-INTEGERP) (LEMMAS INTEGERP . IQUOTIENT-INTEGERP))))) (PUT1-LST (QUOTE IREMAINDER-INTEGERP) (QUOTE (IDATE 1000402214929 IMMEDIATE-DEPENDENTS0 (IREM-INT) EVENT (PROVE-LEMMA IREMAINDER-INTEGERP (REWRITE) (INTEGERP (IREMAINDER X Y))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FIX-INT . IREMAINDER-INTEGERP) (IMMEDIATE-DEPENDENTS0 MINUS-INTEGERP . IREMAINDER-INTEGERP) (IMMEDIATE-DEPENDENTS0 ABS . IREMAINDER-INTEGERP) (IMMEDIATE-DEPENDENTS0 NEGP . IREMAINDER-INTEGERP) (IMMEDIATE-DEPENDENTS0 INTEGERP-FIX-INT . IREMAINDER-INTEGERP) (IMMEDIATE-DEPENDENTS0 REMAINDER-0 . IREMAINDER-INTEGERP) (IMMEDIATE-DEPENDENTS0 IREMAINDER . IREMAINDER-INTEGERP) (IMMEDIATE-DEPENDENTS0 INTEGERP . IREMAINDER-INTEGERP) (LEMMAS INTEGERP . IREMAINDER-INTEGERP))))) (PUT1-LST (QUOTE ITIMES-INTEGERP) (QUOTE (IDATE 1000402214929 IMMEDIATE-DEPENDENTS0 (MULS_3232-INT MULS_3264-INT MULS_1632-INT) EVENT (PROVE-LEMMA ITIMES-INTEGERP (REWRITE) (INTEGERP (ITIMES X Y))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FIX-INT . ITIMES-INTEGERP) (IMMEDIATE-DEPENDENTS0 TIMES-EQUAL-0 . ITIMES-INTEGERP) (IMMEDIATE-DEPENDENTS0 MINUS-INTEGERP . ITIMES-INTEGERP) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . ITIMES-INTEGERP) (IMMEDIATE-DEPENDENTS0 NEGP . ITIMES-INTEGERP) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . ITIMES-INTEGERP) (IMMEDIATE-DEPENDENTS0 NEGATIVEP-GUTS0 . ITIMES-INTEGERP) (IMMEDIATE-DEPENDENTS0 INTEGERP-FIX-INT . ITIMES-INTEGERP) (IMMEDIATE-DEPENDENTS0 ITIMES . ITIMES-INTEGERP) (IMMEDIATE-DEPENDENTS0 INTEGERP . ITIMES-INTEGERP) (LEMMAS INTEGERP . ITIMES-INTEGERP))))) (PUT1-LST (QUOTE IDIFFERENCE-INTEGERP) (QUOTE (IDATE 1000402214929 EVENT (PROVE-LEMMA IDIFFERENCE-INTEGERP (REWRITE) (INTEGERP (IDIFFERENCE X Y))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-EQUAL-0 . IDIFFERENCE-INTEGERP) (IMMEDIATE-DEPENDENTS0 NEGATIVEP-GUTS0 . IDIFFERENCE-INTEGERP) (IMMEDIATE-DEPENDENTS0 DIFFERENCE=0 . IDIFFERENCE-INTEGERP) (IMMEDIATE-DEPENDENTS0 IZEROP . IDIFFERENCE-INTEGERP) (IMMEDIATE-DEPENDENTS0 NEGP . IDIFFERENCE-INTEGERP) (IMMEDIATE-DEPENDENTS0 FIX-INT . IDIFFERENCE-INTEGERP) (IMMEDIATE-DEPENDENTS0 INEG . IDIFFERENCE-INTEGERP) (IMMEDIATE-DEPENDENTS0 INTEGERP-FIX-INT . IDIFFERENCE-INTEGERP) (IMMEDIATE-DEPENDENTS0 IPLUS . IDIFFERENCE-INTEGERP) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . IDIFFERENCE-INTEGERP) (IMMEDIATE-DEPENDENTS0 NUMBERP-INTEGERP . IDIFFERENCE-INTEGERP) (IMMEDIATE-DEPENDENTS0 IDIFFERENCE . IDIFFERENCE-INTEGERP) (IMMEDIATE-DEPENDENTS0 INTEGERP . IDIFFERENCE-INTEGERP) (LEMMAS INTEGERP . IDIFFERENCE-INTEGERP))))) (PUT1-LST (QUOTE INEG-INTEGERP) (QUOTE (IDATE 1000402214929 EVENT (PROVE-LEMMA INEG-INTEGERP (REWRITE) (INTEGERP (INEG X))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IZEROP . INEG-INTEGERP) (IMMEDIATE-DEPENDENTS0 NEGP . INEG-INTEGERP) (IMMEDIATE-DEPENDENTS0 FIX-INT . INEG-INTEGERP) (IMMEDIATE-DEPENDENTS0 NUMBERP-INTEGERP . INEG-INTEGERP) (IMMEDIATE-DEPENDENTS0 INTEGERP-FIX-INT . INEG-INTEGERP) (IMMEDIATE-DEPENDENTS0 INEG . INEG-INTEGERP) (IMMEDIATE-DEPENDENTS0 INTEGERP . INEG-INTEGERP) (LEMMAS INTEGERP . INEG-INTEGERP))))) (PUT1-LST (QUOTE IPLUS-INTEGERP) (QUOTE (IDATE 1000402214929 IMMEDIATE-DEPENDENTS0 (SUBX-V-LA SUB-INT SUBTRACTER-INT) EVENT (PROVE-LEMMA IPLUS-INTEGERP (REWRITE) (INTEGERP (IPLUS X Y))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NEGP . IPLUS-INTEGERP) (IMMEDIATE-DEPENDENTS0 PLUS-EQUAL-0 . IPLUS-INTEGERP) (IMMEDIATE-DEPENDENTS0 NEGATIVEP-GUTS0 . IPLUS-INTEGERP) (IMMEDIATE-DEPENDENTS0 DIFFERENCE=0 . IPLUS-INTEGERP) (IMMEDIATE-DEPENDENTS0 IPLUS . IPLUS-INTEGERP) (IMMEDIATE-DEPENDENTS0 INTEGERP . IPLUS-INTEGERP) (LEMMAS INTEGERP . IPLUS-INTEGERP))))) (PUT1-LST (QUOTE NUMBERP-INTEGERP) (QUOTE (IDATE 1000402214929 IMMEDIATE-DEPENDENTS0 (IDIFFERENCE-INT-RANGEP STRINGP-LA SUB-BLE SUB-BGT SUB-BLT SUB-BGE ASL-BMI ADD-BMI SUB-BMI ADDX-V-LA ASL-BEQ SUB-INT ADD-INT SUBTRACTER-INT ADDER-INT HEAD-INT-CROCK IDIFFERENCE-NEGATIVEP INEG-IPLUS IDIFFERENCE-INTEGERP INEG-INTEGERP) EVENT (PROVE-LEMMA NUMBERP-INTEGERP (REWRITE) (IMPLIES (NUMBERP X) (INTEGERP X))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INTEGERP . NUMBERP-INTEGERP) (LEMMAS INTEGERP . NUMBERP-INTEGERP))))) (PUT1-LST (QUOTE NEGATIVEP-GUTS0) (QUOTE (IDATE 1000402214929 IMMEDIATE-DEPENDENTS0 (BETWEEN-ILEQ-LA SUB-BLE SUB-BGT ASR-BMI SUB-BVS&VC SUBX-V-LA ASR-BEQ DIVS-BEQ IQUOTIENT=0 SUB-INT SUBTRACTER-INT MULS-CROCK HEAD-INT-CROCK ITIMES-SIGN ITIMES-EQUAL-CANCELLATION ITIMES-ASSOCIATIVITY ITIMES-EQUAL-0 IPLUS-1--1 INEG-IPLUS IPLUS-COMMUTATIVITY1 IQUOTIENT-INTEGERP ITIMES-INTEGERP IDIFFERENCE-INTEGERP IPLUS-INTEGERP) EVENT (PROVE-LEMMA NEGATIVEP-GUTS0 (REWRITE) (IMPLIES (AND (INTEGERP X) (NEGATIVEP X)) (NOT (EQUAL (NEGATIVE-GUTS X) (QUOTE 0))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NEGP . NEGATIVEP-GUTS0) (IMMEDIATE-DEPENDENTS0 INTEGERP . NEGATIVEP-GUTS0) (LEMMAS EQUAL . NEGATIVEP-GUTS0))))) (PUT1-LST (QUOTE INTEGERP-MINUS0) (QUOTE (IDATE 1000402214929 EVENT (PROVE-LEMMA INTEGERP-MINUS0 (REWRITE) (IMPLIES (INTEGERP X) (NOT (EQUAL X (QUOTE (*1*QUOTE MINUS 0)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INTEGERP . INTEGERP-MINUS0) (LEMMAS EQUAL . INTEGERP-MINUS0))))) (PUT1-LST (QUOTE MINUS-INTEGERP) (QUOTE (IDATE 1000402214929 IMMEDIATE-DEPENDENTS0 (ASR-BMI ASR-BEQ IQUOTIENT=0 SUB-INT ADD-INT SUBTRACTER-INT ADDER-INT MULS-CROCK IQUOTIENT-WRT--1 ITIMES-SIGN ITIMES-EQUAL-CANCELLATION ITIMES-ASSOCIATIVITY ITIMES-COMMUTATIVITY ITIMES-EQUAL-0 IDIFFERENCE-NEGATIVEP INEG-IPLUS IQUOTIENT-INTEGERP IREMAINDER-INTEGERP ITIMES-INTEGERP) EVENT (PROVE-LEMMA MINUS-INTEGERP (REWRITE) (EQUAL (INTEGERP (MINUS X)) (NOT (ZEROP X)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NEGP . MINUS-INTEGERP) (IMMEDIATE-DEPENDENTS0 INTEGERP . MINUS-INTEGERP) (LEMMAS INTEGERP . MINUS-INTEGERP))))) (PUT1-LST (QUOTE FIX-INT-INTEGERP) (QUOTE (IDATE 1000402214929 EVENT (PROVE-LEMMA FIX-INT-INTEGERP (REWRITE) (INTEGERP (FIX-INT X))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NEGP . FIX-INT-INTEGERP) (IMMEDIATE-DEPENDENTS0 INTEGERP-FIX-INT . FIX-INT-INTEGERP) (IMMEDIATE-DEPENDENTS0 FIX-INT . FIX-INT-INTEGERP) (IMMEDIATE-DEPENDENTS0 INTEGERP . FIX-INT-INTEGERP) (LEMMAS INTEGERP . FIX-INT-INTEGERP))))) (PUT1-LST (QUOTE INTEGERP-FIX-INT) (QUOTE (IDATE 1000402214929 IMMEDIATE-DEPENDENTS0 (IDIFFERENCE-INT-RANGEP STRINGP-LA SUB-BLE SUB-BGT SUB-BLT SUB-BGE ADD-BVS&VC SUB-BVS&VC SUBX-V-LA ASL-BEQ MULS_3232-BEQ MULS_3264-BEQ MULS_1632-BEQ SUB-INT ADD-INT SUBTRACTER-INT ADDER-INT IQUOT-INT IREM-INT MULS_3232-INT MULS_3264-INT MULS_1632-INT HEAD-INT-CROCK IQUOTIENT-WRT-1 ITIMES-ASSOCIATIVITY IDIFFERENCE-NEGATIVEP INEG-IPLUS IQUOTIENT-INTEGERP IREMAINDER-INTEGERP ITIMES-INTEGERP IDIFFERENCE-INTEGERP INEG-INTEGERP FIX-INT-INTEGERP) EVENT (PROVE-LEMMA INTEGERP-FIX-INT (REWRITE) (IMPLIES (INTEGERP X) (EQUAL (FIX-INT X) X))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NEGP . INTEGERP-FIX-INT) (IMMEDIATE-DEPENDENTS0 FIX-INT . INTEGERP-FIX-INT) (IMMEDIATE-DEPENDENTS0 INTEGERP . INTEGERP-FIX-INT) (LEMMAS FIX-INT . INTEGERP-FIX-INT))))) (PUT1-LST (QUOTE IREMAINDER-INT-RANGEP) (QUOTE (IDATE 1000402214929 IMMEDIATE-DEPENDENTS0 (IREM-INT) EVENT (PROVE-LEMMA IREMAINDER-INT-RANGEP (REWRITE) (IMPLIES (AND (INT-RANGEP Y N) (AND (INTEGERP Y) (NOT (EQUAL Y (QUOTE 0))))) (INT-RANGEP (IREMAINDER X Y) N))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-EXIT . IREMAINDER-INT-RANGEP) (IMMEDIATE-DEPENDENTS0 INT-RANGEP-LA . IREMAINDER-INT-RANGEP) (IMMEDIATE-DEPENDENTS0 REMAINDER-INT-RANGEP . IREMAINDER-INT-RANGEP) (IMMEDIATE-DEPENDENTS0 REMAINDER-LESSP-LINEAR . IREMAINDER-INT-RANGEP) (IMMEDIATE-DEPENDENTS0 EXP-OF-2-0 . IREMAINDER-INT-RANGEP) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . IREMAINDER-INT-RANGEP) (IMMEDIATE-DEPENDENTS0 PLUS-EQUAL-0 . IREMAINDER-INT-RANGEP) (IMMEDIATE-DEPENDENTS0 REMAINDER-LESSP . IREMAINDER-INT-RANGEP) (IMMEDIATE-DEPENDENTS0 REMAINDER-QUOTIENT-ELIM . IREMAINDER-INT-RANGEP) (IMMEDIATE-DEPENDENTS0 INT-RANGEP-OF-0 . IREMAINDER-INT-RANGEP) (IMMEDIATE-DEPENDENTS0 FIX-INT . IREMAINDER-INT-RANGEP) (IMMEDIATE-DEPENDENTS0 NEGP . IREMAINDER-INT-RANGEP) (IMMEDIATE-DEPENDENTS0 ABS . IREMAINDER-INT-RANGEP) (IMMEDIATE-DEPENDENTS0 IREMAINDER . IREMAINDER-INT-RANGEP) (IMMEDIATE-DEPENDENTS0 INTEGERP . IREMAINDER-INT-RANGEP) (IMMEDIATE-DEPENDENTS0 INT-RANGEP . IREMAINDER-INT-RANGEP) (LEMMAS INT-RANGEP . IREMAINDER-INT-RANGEP))))) (PUT1-LST (QUOTE IQUOTIENT-INT-RANGEP) (QUOTE (IDATE 1000402214928 IMMEDIATE-DEPENDENTS0 (DIVS_3232-OVERFLOW) EVENT (PROVE-LEMMA IQUOTIENT-INT-RANGEP (REWRITE) (IMPLIES (INT-RANGEP X N) (EQUAL (INT-RANGEP (IQUOTIENT X Y) N) (IF (EQUAL Y (QUOTE -1)) (NOT (EQUAL X (MINUS (EXP (QUOTE 2) (SUB1 N))))) (QUOTE *1*TRUE))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 QUOTIENT-1 . IQUOTIENT-INT-RANGEP) (IMMEDIATE-DEPENDENTS0 EXP-LESSP . IQUOTIENT-INT-RANGEP) (IMMEDIATE-DEPENDENTS0 EXP-OF-2-0 . IQUOTIENT-INT-RANGEP) (IMMEDIATE-DEPENDENTS0 QUOTIENT-TIMES-LESSP . IQUOTIENT-INT-RANGEP) (IMMEDIATE-DEPENDENTS0 TIMES-LESSP . IQUOTIENT-INT-RANGEP) (IMMEDIATE-DEPENDENTS0 QUOTIENT-INT-RANGEP . IQUOTIENT-INT-RANGEP) (IMMEDIATE-DEPENDENTS0 QUOTIENT-LEQ . IQUOTIENT-INT-RANGEP) (IMMEDIATE-DEPENDENTS0 FIX-INT . IQUOTIENT-INT-RANGEP) (IMMEDIATE-DEPENDENTS0 NEGP . IQUOTIENT-INT-RANGEP) (IMMEDIATE-DEPENDENTS0 INTEGERP . IQUOTIENT-INT-RANGEP) (IMMEDIATE-DEPENDENTS0 INT-RANGEP-OF-0 . IQUOTIENT-INT-RANGEP) (IMMEDIATE-DEPENDENTS0 QUOTIENT-EQUAL-0 . IQUOTIENT-INT-RANGEP) (IMMEDIATE-DEPENDENTS0 QUOTIENT-0 . IQUOTIENT-INT-RANGEP) (IMMEDIATE-DEPENDENTS0 EXP . IQUOTIENT-INT-RANGEP) (IMMEDIATE-DEPENDENTS0 IQUOTIENT . IQUOTIENT-INT-RANGEP) (IMMEDIATE-DEPENDENTS0 INT-RANGEP . IQUOTIENT-INT-RANGEP) (LEMMAS INT-RANGEP . IQUOTIENT-INT-RANGEP))))) (PUT1-LST (QUOTE REMAINDER-INT-RANGEP) (QUOTE (IDATE 1000402214928 IMMEDIATE-DEPENDENTS0 (IREMAINDER-INT-RANGEP) EVENT (PROVE-LEMMA REMAINDER-INT-RANGEP (REWRITE) (IMPLIES (AND (INT-RANGEP Y N) (NOT (ZEROP Y))) (INT-RANGEP (REMAINDER X Y) N))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-LESSP-LINEAR . REMAINDER-INT-RANGEP) (IMMEDIATE-DEPENDENTS0 FIX-INT . REMAINDER-INT-RANGEP) (IMMEDIATE-DEPENDENTS0 INTEGERP . REMAINDER-INT-RANGEP) (IMMEDIATE-DEPENDENTS0 INT-RANGEP . REMAINDER-INT-RANGEP) (LEMMAS INT-RANGEP . REMAINDER-INT-RANGEP))))) (PUT1-LST (QUOTE QUOTIENT-INT-RANGEP) (QUOTE (IDATE 1000402214928 IMMEDIATE-DEPENDENTS0 (IQUOTIENT-INT-RANGEP) EVENT (PROVE-LEMMA QUOTIENT-INT-RANGEP (REWRITE) (IMPLIES (INT-RANGEP X N) (INT-RANGEP (QUOTIENT X Y) N))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-LESSP . QUOTIENT-INT-RANGEP) (IMMEDIATE-DEPENDENTS0 FIX-INT . QUOTIENT-INT-RANGEP) (IMMEDIATE-DEPENDENTS0 NEGP . QUOTIENT-INT-RANGEP) (IMMEDIATE-DEPENDENTS0 INTEGERP . QUOTIENT-INT-RANGEP) (IMMEDIATE-DEPENDENTS0 INT-RANGEP-OF-0 . QUOTIENT-INT-RANGEP) (IMMEDIATE-DEPENDENTS0 QUOTIENT-TIMES-LESSP . QUOTIENT-INT-RANGEP) (IMMEDIATE-DEPENDENTS0 QUOTIENT-0 . QUOTIENT-INT-RANGEP) (IMMEDIATE-DEPENDENTS0 INT-RANGEP . QUOTIENT-INT-RANGEP) (LEMMAS INT-RANGEP . QUOTIENT-INT-RANGEP))))) (PUT1-LST (QUOTE DIFFERENCE-INT-RANGEP) (QUOTE (IDATE 1000402214928 IMMEDIATE-DEPENDENTS0 (IDIFFERENCE-INT-RANGEP) EVENT (PROVE-LEMMA DIFFERENCE-INT-RANGEP (REWRITE) (IMPLIES (INT-RANGEP X N) (INT-RANGEP (DIFFERENCE X Y) N))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FIX-INT . DIFFERENCE-INT-RANGEP) (IMMEDIATE-DEPENDENTS0 NEGP . DIFFERENCE-INT-RANGEP) (IMMEDIATE-DEPENDENTS0 INTEGERP . DIFFERENCE-INT-RANGEP) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . DIFFERENCE-INT-RANGEP) (IMMEDIATE-DEPENDENTS0 INT-RANGEP-OF-0 . DIFFERENCE-INT-RANGEP) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-LESSP1 . DIFFERENCE-INT-RANGEP) (IMMEDIATE-DEPENDENTS0 INT-RANGEP-LA . DIFFERENCE-INT-RANGEP) (IMMEDIATE-DEPENDENTS0 INT-RANGEP . DIFFERENCE-INT-RANGEP) (LEMMAS INT-RANGEP . DIFFERENCE-INT-RANGEP))))) (PUT1-LST (QUOTE SUB1-INT-RANGEP) (QUOTE (IDATE 1000402214928 EVENT (PROVE-LEMMA SUB1-INT-RANGEP (REWRITE) (IMPLIES (INT-RANGEP X N) (INT-RANGEP (SUB1 X) N))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-OF-1 . SUB1-INT-RANGEP) (IMMEDIATE-DEPENDENTS0 FIX-INT . SUB1-INT-RANGEP) (IMMEDIATE-DEPENDENTS0 NEGP . SUB1-INT-RANGEP) (IMMEDIATE-DEPENDENTS0 INTEGERP . SUB1-INT-RANGEP) (IMMEDIATE-DEPENDENTS0 INT-RANGEP-OF-0 . SUB1-INT-RANGEP) (IMMEDIATE-DEPENDENTS0 INT-RANGEP . SUB1-INT-RANGEP) (LEMMAS INT-RANGEP . SUB1-INT-RANGEP))))) (PUT1-LST (QUOTE INT-RANGEP-OF-0) (QUOTE (IDATE 1000402214928 IMMEDIATE-DEPENDENTS0 (IDIFFERENCE-INT-RANGEP MEM-ILST-INT-RANGEP SUB-BLE SUB-BGT MULS-CROCK IREMAINDER-INT-RANGEP IQUOTIENT-INT-RANGEP QUOTIENT-INT-RANGEP DIFFERENCE-INT-RANGEP SUB1-INT-RANGEP) EVENT (PROVE-LEMMA INT-RANGEP-OF-0 (REWRITE) (INT-RANGEP (QUOTE 0) N)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EXP-OF-2-0 . INT-RANGEP-OF-0) (IMMEDIATE-DEPENDENTS0 INT-RANGEP-LA . INT-RANGEP-OF-0) (IMMEDIATE-DEPENDENTS0 INT-RANGEP . INT-RANGEP-OF-0) (LEMMAS INT-RANGEP . INT-RANGEP-OF-0))))) (PUT1-LST (QUOTE ABS-LESSP-INT-RANGEP) (QUOTE (IDATE 1000402214928 EVENT (PROVE-LEMMA ABS-LESSP-INT-RANGEP (REWRITE) (IMPLIES (AND (INT-RANGEP X N) (LESSP (ABS Y) (ABS X))) (INT-RANGEP Y N))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FIX-INT . ABS-LESSP-INT-RANGEP) (IMMEDIATE-DEPENDENTS0 NEGP . ABS-LESSP-INT-RANGEP) (IMMEDIATE-DEPENDENTS0 INTEGERP . ABS-LESSP-INT-RANGEP) (IMMEDIATE-DEPENDENTS0 ABS . ABS-LESSP-INT-RANGEP) (IMMEDIATE-DEPENDENTS0 INT-RANGEP . ABS-LESSP-INT-RANGEP) (LEMMAS INT-RANGEP . ABS-LESSP-INT-RANGEP))))) (PUT1-LST (QUOTE INT-TO-NAT-OFF) (QUOTE (IDATE 1000402214928 EVENT (TOGGLE INT-TO-NAT-OFF INT-TO-NAT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INT-TO-NAT . INT-TO-NAT-OFF) (DISABLED-LEMMAS NIL INT-TO-NAT INT-TO-NAT-OFF . T))))) (PUT1-LST (QUOTE NAT-TO-INT-OFF) (QUOTE (IDATE 1000402214928 EVENT (TOGGLE NAT-TO-INT-OFF NAT-TO-INT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NAT-TO-INT . NAT-TO-INT-OFF) (DISABLED-LEMMAS NIL NAT-TO-INT NAT-TO-INT-OFF . T))))) (PUT1-LST (QUOTE NAT-TO-INT=) (QUOTE (IDATE 1000402214928 IMMEDIATE-DEPENDENTS0 (NAT-TO-INT=-OFF SUB-Z-LA1 SUB-BEQ-INT-1 SUB-BEQ-INT-0 ADDER-INT-BRIDGE) EVENT (PROVE-LEMMA NAT-TO-INT= (REWRITE) (IMPLIES (AND (NAT-RANGEP X N) (NAT-RANGEP Y N)) (EQUAL (EQUAL (NAT-TO-INT X N) (NAT-TO-INT Y N)) (EQUAL (FIX X) (FIX Y))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . NAT-TO-INT=) (IMMEDIATE-DEPENDENTS0 TIMES-LESSP . NAT-TO-INT=) (IMMEDIATE-DEPENDENTS0 EXP-OF-2-0 . NAT-TO-INT=) (IMMEDIATE-DEPENDENTS0 EXP . NAT-TO-INT=) (IMMEDIATE-DEPENDENTS0 LESSP-OF-1 . NAT-TO-INT=) (IMMEDIATE-DEPENDENTS0 NAT-TO-INT . NAT-TO-INT=) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . NAT-TO-INT=) (LEMMAS EQUAL . NAT-TO-INT=))))) (PUT1-LST (QUOTE INT-TO-NAT=0) (QUOTE (IDATE 1000402214928 IMMEDIATE-DEPENDENTS0 (INT-TO-NAT=0-OFF DIVS-BEQ) EVENT (PROVE-LEMMA INT-TO-NAT=0 (REWRITE) (IMPLIES (AND (INT-RANGEP X N) (INTEGERP X)) (EQUAL (EQUAL (INT-TO-NAT X N) (QUOTE 0)) (EQUAL X (QUOTE 0))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EXP-OF-2-0 . INT-TO-NAT=0) (IMMEDIATE-DEPENDENTS0 EXP . INT-TO-NAT=0) (IMMEDIATE-DEPENDENTS0 TIMES-LESSP . INT-TO-NAT=0) (IMMEDIATE-DEPENDENTS0 FIX-INT . INT-TO-NAT=0) (IMMEDIATE-DEPENDENTS0 NEGP . INT-TO-NAT=0) (IMMEDIATE-DEPENDENTS0 DIFFERENCE=0 . INT-TO-NAT=0) (IMMEDIATE-DEPENDENTS0 INT-TO-NAT-0 . INT-TO-NAT=0) (IMMEDIATE-DEPENDENTS0 INT-TO-NAT . INT-TO-NAT=0) (IMMEDIATE-DEPENDENTS0 INTEGERP . INT-TO-NAT=0) (IMMEDIATE-DEPENDENTS0 INT-RANGEP . INT-TO-NAT=0) (LEMMAS EQUAL . INT-TO-NAT=0))))) (PUT1-LST (QUOTE INT-TO-NAT-TO-INT) (QUOTE (IDATE 1000402214928 IMMEDIATE-DEPENDENTS0 (IQUOT-INT IREM-INT MULS_3232-INT MULS_3264-INT MULS_1632-INT) EVENT (PROVE-LEMMA INT-TO-NAT-TO-INT (REWRITE) (IMPLIES (AND (INTEGERP X) (INT-RANGEP X N)) (EQUAL (NAT-TO-INT (INT-TO-NAT X N) N) (FIX-INT X)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EXP . INT-TO-NAT-TO-INT) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . INT-TO-NAT-TO-INT) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS . INT-TO-NAT-TO-INT) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-DIFFERENCE2 . INT-TO-NAT-TO-INT) (IMMEDIATE-DEPENDENTS0 NEGP . INT-TO-NAT-TO-INT) (IMMEDIATE-DEPENDENTS0 INT-TO-NAT-0 . INT-TO-NAT-TO-INT) (IMMEDIATE-DEPENDENTS0 NAT-TO-INT-0 . INT-TO-NAT-TO-INT) (IMMEDIATE-DEPENDENTS0 FIX-INT . INT-TO-NAT-TO-INT) (IMMEDIATE-DEPENDENTS0 INT-TO-NAT . INT-TO-NAT-TO-INT) (IMMEDIATE-DEPENDENTS0 NAT-TO-INT . INT-TO-NAT-TO-INT) (IMMEDIATE-DEPENDENTS0 INT-RANGEP . INT-TO-NAT-TO-INT) (IMMEDIATE-DEPENDENTS0 INTEGERP . INT-TO-NAT-TO-INT) (LEMMAS NAT-TO-INT . INT-TO-NAT-TO-INT))))) (PUT1-LST (QUOTE NAT-TO-INT-TO-NAT) (QUOTE (IDATE 1000402214928 IMMEDIATE-DEPENDENTS0 (ADDER-INT-BRIDGE) EVENT (PROVE-LEMMA NAT-TO-INT-TO-NAT (REWRITE) (IMPLIES (NAT-RANGEP X N) (EQUAL (INT-TO-NAT (NAT-TO-INT X N) N) (FIX X)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . NAT-TO-INT-TO-NAT) (IMMEDIATE-DEPENDENTS0 EXP-OF-2-0 . NAT-TO-INT-TO-NAT) (IMMEDIATE-DEPENDENTS0 INT-TO-NAT-0 . NAT-TO-INT-TO-NAT) (IMMEDIATE-DEPENDENTS0 EXP . NAT-TO-INT-TO-NAT) (IMMEDIATE-DEPENDENTS0 LESSP-OF-1 . NAT-TO-INT-TO-NAT) (IMMEDIATE-DEPENDENTS0 DIFFERENCE=0 . NAT-TO-INT-TO-NAT) (IMMEDIATE-DEPENDENTS0 NAT-TO-INT . NAT-TO-INT-TO-NAT) (IMMEDIATE-DEPENDENTS0 INT-TO-NAT . NAT-TO-INT-TO-NAT) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . NAT-TO-INT-TO-NAT) (LEMMAS INT-TO-NAT . NAT-TO-INT-TO-NAT))))) (PUT1-LST (QUOTE INT-TO-NAT-RANGEP) (QUOTE (IDATE 1000402214927 EVENT (PROVE-LEMMA INT-TO-NAT-RANGEP (REWRITE) (IMPLIES (AND (INTEGERP X) (INT-RANGEP X N)) (NAT-RANGEP (INT-TO-NAT X N) N))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EXP-OF-2-0 . INT-TO-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 TIMES-EQUAL-0 . INT-TO-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 TIMES-LESSP . INT-TO-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 NEGP . INT-TO-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 FIX-INT . INT-TO-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 EXP . INT-TO-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 INT-TO-NAT-0 . INT-TO-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-LESSP . INT-TO-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 INT-TO-NAT . INT-TO-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . INT-TO-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 INT-RANGEP . INT-TO-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 INTEGERP . INT-TO-NAT-RANGEP) (LEMMAS NAT-RANGEP . INT-TO-NAT-RANGEP))))) (PUT1-LST (QUOTE NAT-TO-INT-RANGEP) (QUOTE (IDATE 1000402214927 IMMEDIATE-DEPENDENTS0 (MEM-ILST-INT-RANGEP SUB-BLE SUB-BGT SUB-BLT SUB-BGE ADD-BMI SUB-BMI MULS_3264-BVS MULS_1632-BVS ADDX-V-LA SUB-INT SUBTRACTER-INT ADDER-INT DIVS_3232-OVERFLOW IREM-INT MULS_3264-INT MULS_1632-INT) EVENT (PROVE-LEMMA NAT-TO-INT-RANGEP (REWRITE) (INT-RANGEP (NAT-TO-INT X N) N)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EXP-OF-2-0 . NAT-TO-INT-RANGEP) (IMMEDIATE-DEPENDENTS0 INT-RANGEP-LA . NAT-TO-INT-RANGEP) (IMMEDIATE-DEPENDENTS0 FIX-INT . NAT-TO-INT-RANGEP) (IMMEDIATE-DEPENDENTS0 LESSP-OF-1 . NAT-TO-INT-RANGEP) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . NAT-TO-INT-RANGEP) (IMMEDIATE-DEPENDENTS0 EXP . NAT-TO-INT-RANGEP) (IMMEDIATE-DEPENDENTS0 NAT-TO-INT . NAT-TO-INT-RANGEP) (IMMEDIATE-DEPENDENTS0 INT-RANGEP . NAT-TO-INT-RANGEP) (LEMMAS INT-RANGEP . NAT-TO-INT-RANGEP))))) (PUT1-LST (QUOTE NAT-TO-INT-INTEGERP) (QUOTE (IDATE 1000402214927 IMMEDIATE-DEPENDENTS0 (MEM-ILST-LST-INTEGERP MEM-LST-INTEGERP MEM-ILST-INTEGERP SUB-BLE SUB-BGT SUB-BLT SUB-BGE ASR-BMI ASL-BMI MULS_3232-BMI MULS_3264-BMI MULS_1632-BMI ADD-BMI SUB-BMI ADD-BVS&VC SUB-BVS&VC SUBX-V-LA ADDX-V-LA ASR-BEQ ASL-BEQ DIVS-BEQ MULS_3232-BEQ MULS_3264-BEQ MULS_1632-BEQ SUB-INT ADD-INT SUBTRACTER-INT ADDER-INT IREM-INT) EVENT (PROVE-LEMMA NAT-TO-INT-INTEGERP (REWRITE) (EQUAL (INTEGERP (NAT-TO-INT X N)) (NAT-RANGEP X N))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-OF-1 . NAT-TO-INT-INTEGERP) (IMMEDIATE-DEPENDENTS0 EXP . NAT-TO-INT-INTEGERP) (IMMEDIATE-DEPENDENTS0 NEGP . NAT-TO-INT-INTEGERP) (IMMEDIATE-DEPENDENTS0 DIFFERENCE=0 . NAT-TO-INT-INTEGERP) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . NAT-TO-INT-INTEGERP) (IMMEDIATE-DEPENDENTS0 NAT-TO-INT . NAT-TO-INT-INTEGERP) (IMMEDIATE-DEPENDENTS0 INTEGERP . NAT-TO-INT-INTEGERP) (LEMMAS INTEGERP . NAT-TO-INT-INTEGERP))))) (PUT1-LST (QUOTE INT-TO-NAT-0) (QUOTE (IDATE 1000402214927 IMMEDIATE-DEPENDENTS0 (IQUOT-INT HEAD-INT-CROCK INT-TO-NAT=0 INT-TO-NAT-TO-INT NAT-TO-INT-TO-NAT INT-TO-NAT-RANGEP) EVENT (PROVE-LEMMA INT-TO-NAT-0 (REWRITE) (EQUAL (INT-TO-NAT (QUOTE 0) N) (QUOTE 0))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INT-TO-NAT . INT-TO-NAT-0) (LEMMAS INT-TO-NAT . INT-TO-NAT-0))))) (PUT1-LST (QUOTE NAT-TO-INT-0) (QUOTE (IDATE 1000402214927 IMMEDIATE-DEPENDENTS0 (PUT-LST-INT GET-LST-INT IQUOT-INT INT-TO-NAT-TO-INT) EVENT (PROVE-LEMMA NAT-TO-INT-0 (REWRITE) (EQUAL (NAT-TO-INT (QUOTE 0) N) (QUOTE 0))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EXP-OF-2-0 . NAT-TO-INT-0) (IMMEDIATE-DEPENDENTS0 EXP . NAT-TO-INT-0) (IMMEDIATE-DEPENDENTS0 NAT-TO-INT . NAT-TO-INT-0) (LEMMAS NAT-TO-INT . NAT-TO-INT-0))))) (PUT1-LST (QUOTE NAT-TO-UINT-RANGEP) (QUOTE (IDATE 1000402214927 EVENT (PROVE-LEMMA NAT-TO-UINT-RANGEP (REWRITE) (IMPLIES (NAT-RANGEP X N) (UINT-RANGEP (NAT-TO-UINT X) N))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NAT-TO-UINT . NAT-TO-UINT-RANGEP) (IMMEDIATE-DEPENDENTS0 UINT-RANGEP . NAT-TO-UINT-RANGEP) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . NAT-TO-UINT-RANGEP) (LEMMAS UINT-RANGEP . NAT-TO-UINT-RANGEP))))) (PUT1-LST (QUOTE UINT-TO-NAT-RANGEP) (QUOTE (IDATE 1000402214927 EVENT (PROVE-LEMMA UINT-TO-NAT-RANGEP (REWRITE) (IMPLIES (LESSP X (EXP (QUOTE 2) N)) (NAT-RANGEP (UINT-TO-NAT X) N)) ((ENABLE NAT-RANGEP UINT-TO-NAT))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 UINT-TO-NAT . UINT-TO-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . UINT-TO-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 EXP . UINT-TO-NAT-RANGEP) (LEMMAS NAT-RANGEP . UINT-TO-NAT-RANGEP))))) (PUT1-LST (QUOTE UINT-TO-NAT-TO-UINT) (QUOTE (IDATE 1000402214927 EVENT (PROVE-LEMMA UINT-TO-NAT-TO-UINT (REWRITE) (EQUAL (NAT-TO-UINT (UINT-TO-NAT X)) (FIX X))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 UINT-TO-NAT . UINT-TO-NAT-TO-UINT) (IMMEDIATE-DEPENDENTS0 NAT-TO-UINT . UINT-TO-NAT-TO-UINT) (LEMMAS NAT-TO-UINT . UINT-TO-NAT-TO-UINT))))) (PUT1-LST (QUOTE NAT-TO-UINT-TO-NAT) (QUOTE (IDATE 1000402214927 EVENT (PROVE-LEMMA NAT-TO-UINT-TO-NAT (REWRITE) (EQUAL (UINT-TO-NAT (NAT-TO-UINT X)) (FIX X))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NAT-TO-UINT . NAT-TO-UINT-TO-NAT) (IMMEDIATE-DEPENDENTS0 UINT-TO-NAT . NAT-TO-UINT-TO-NAT) (LEMMAS UINT-TO-NAT . NAT-TO-UINT-TO-NAT))))) (PUT1-LST (QUOTE INT-RANGEP-LA) (QUOTE (IDATE 1000402214927 IMMEDIATE-DEPENDENTS0 (IDIFFERENCE-INT-RANGEP IQUOT-INT MULS_3232-INT MULS_3264-INT MULS_1632-INT IREMAINDER-INT-RANGEP DIFFERENCE-INT-RANGEP INT-RANGEP-OF-0 NAT-TO-INT-RANGEP) EVENT (PROVE-LEMMA INT-RANGEP-LA (REWRITE) (IMPLIES (AND (NUMBERP X) (LESSP X (EXP (QUOTE 2) (SUB1 N)))) (INT-RANGEP X N))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-OF-1 . INT-RANGEP-LA) (IMMEDIATE-DEPENDENTS0 FIX-INT . INT-RANGEP-LA) (IMMEDIATE-DEPENDENTS0 INTEGERP . INT-RANGEP-LA) (IMMEDIATE-DEPENDENTS0 INT-RANGEP . INT-RANGEP-LA) (IMMEDIATE-DEPENDENTS0 EXP . INT-RANGEP-LA) (LEMMAS INT-RANGEP . INT-RANGEP-LA))))) (PUT1-LST (QUOTE UINT-RANGEP-LA) (QUOTE (IDATE 1000402214927 IMMEDIATE-DEPENDENTS0 (READM-WRITEM-MEM WRITE-MEM-ILST-ASL WRITE-MEM-LST-ASL WRITE-MEM-ILST-INT WRITE-MEM-LST-INT WRITE-MEM-ILST WRITE-MEM-LST MEM-LST-PUT-VALS MEM-LST-PUT-LST WRITE-MEM-LST-LA) EVENT (PROVE-LEMMA UINT-RANGEP-LA (REWRITE) (IMPLIES (LESSP X (EXP (QUOTE 2) N)) (UINT-RANGEP X N))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 UINT-RANGEP . UINT-RANGEP-LA) (IMMEDIATE-DEPENDENTS0 EXP . UINT-RANGEP-LA) (LEMMAS UINT-RANGEP . UINT-RANGEP-LA))))) (PUT1-LST (QUOTE IDIFFERENCE-INT-RANGEP2) (QUOTE (IDATE 1000402214927 IMMEDIATE-DEPENDENTS0 (SUB-BLE SUB-BGT SUB-BLT SUB-BGE SUB-BMI) EVENT (PROVE-LEMMA IDIFFERENCE-INT-RANGEP2 (REWRITE) (IMPLIES (AND (INTEGERP X) (AND (INTEGERP Y) (AND (INT-RANGEP X N) (AND (INT-RANGEP Y N) (AND (NOT (ILESSP Y X)) (NEGATIVEP Y)))))) (INT-RANGEP (IDIFFERENCE Y X) N))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NEGP . IDIFFERENCE-INT-RANGEP2) (IMMEDIATE-DEPENDENTS0 FIX-INT . IDIFFERENCE-INT-RANGEP2) (IMMEDIATE-DEPENDENTS0 IZEROP . IDIFFERENCE-INT-RANGEP2) (IMMEDIATE-DEPENDENTS0 INEG . IDIFFERENCE-INT-RANGEP2) (IMMEDIATE-DEPENDENTS0 IPLUS . IDIFFERENCE-INT-RANGEP2) (IMMEDIATE-DEPENDENTS0 IDIFFERENCE . IDIFFERENCE-INT-RANGEP2) (IMMEDIATE-DEPENDENTS0 ILESSP . IDIFFERENCE-INT-RANGEP2) (IMMEDIATE-DEPENDENTS0 INT-RANGEP . IDIFFERENCE-INT-RANGEP2) (IMMEDIATE-DEPENDENTS0 INTEGERP . IDIFFERENCE-INT-RANGEP2) (LEMMAS INT-RANGEP . IDIFFERENCE-INT-RANGEP2))))) (PUT1-LST (QUOTE IDIFFERENCE-INT-RANGEP1) (QUOTE (IDATE 1000402214927 IMMEDIATE-DEPENDENTS0 (SUB-BLE SUB-BGT SUB-BLT SUB-BGE SUB-BMI) EVENT (PROVE-LEMMA IDIFFERENCE-INT-RANGEP1 (REWRITE) (IMPLIES (AND (INT-RANGEP X N) (AND (INT-RANGEP Y N) (AND (NOT (ILESSP X Y)) (NOT (NEGATIVEP Y))))) (INT-RANGEP (IDIFFERENCE Y X) N))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . IDIFFERENCE-INT-RANGEP1) (IMMEDIATE-DEPENDENTS0 FIX-INT . IDIFFERENCE-INT-RANGEP1) (IMMEDIATE-DEPENDENTS0 NEGP . IDIFFERENCE-INT-RANGEP1) (IMMEDIATE-DEPENDENTS0 INTEGERP . IDIFFERENCE-INT-RANGEP1) (IMMEDIATE-DEPENDENTS0 IZEROP . IDIFFERENCE-INT-RANGEP1) (IMMEDIATE-DEPENDENTS0 INEG . IDIFFERENCE-INT-RANGEP1) (IMMEDIATE-DEPENDENTS0 IPLUS . IDIFFERENCE-INT-RANGEP1) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . IDIFFERENCE-INT-RANGEP1) (IMMEDIATE-DEPENDENTS0 IDIFFERENCE . IDIFFERENCE-INT-RANGEP1) (IMMEDIATE-DEPENDENTS0 ILESSP . IDIFFERENCE-INT-RANGEP1) (IMMEDIATE-DEPENDENTS0 INT-RANGEP . IDIFFERENCE-INT-RANGEP1) (LEMMAS INT-RANGEP . IDIFFERENCE-INT-RANGEP1))))) (PUT1-LST (QUOTE IPLUS-INT-RANGEP2) (QUOTE (IDATE 1000402214927 IMMEDIATE-DEPENDENTS0 (ADDX-V-LA) EVENT (PROVE-LEMMA IPLUS-INT-RANGEP2 (REWRITE) (IMPLIES (AND (INTEGERP X) (AND (INTEGERP Y) (AND (BITP Z) (AND (INT-RANGEP X N) (AND (INT-RANGEP Y N) (AND (NEGATIVEP X) (NOT (NEGATIVEP Y)))))))) (INT-RANGEP (IPLUS X (IPLUS Y Z)) N))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIFFERENCE-LESSP1 . IPLUS-INT-RANGEP2) (IMMEDIATE-DEPENDENTS0 NEGP . IPLUS-INT-RANGEP2) (IMMEDIATE-DEPENDENTS0 FIX-INT . IPLUS-INT-RANGEP2) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . IPLUS-INT-RANGEP2) (IMMEDIATE-DEPENDENTS0 PLUS-ADD1 . IPLUS-INT-RANGEP2) (IMMEDIATE-DEPENDENTS0 IPLUS . IPLUS-INT-RANGEP2) (IMMEDIATE-DEPENDENTS0 INT-RANGEP . IPLUS-INT-RANGEP2) (IMMEDIATE-DEPENDENTS0 BITP . IPLUS-INT-RANGEP2) (IMMEDIATE-DEPENDENTS0 INTEGERP . IPLUS-INT-RANGEP2) (LEMMAS INT-RANGEP . IPLUS-INT-RANGEP2))))) (PUT1-LST (QUOTE IPLUS-INT-RANGEP1) (QUOTE (IDATE 1000402214927 IMMEDIATE-DEPENDENTS0 (ADDX-V-LA) EVENT (PROVE-LEMMA IPLUS-INT-RANGEP1 (REWRITE) (IMPLIES (AND (INTEGERP X) (AND (INTEGERP Y) (AND (BITP Z) (AND (INT-RANGEP X N) (AND (INT-RANGEP Y N) (AND (NOT (NEGATIVEP X)) (NEGATIVEP Y))))))) (INT-RANGEP (IPLUS X (IPLUS Y Z)) N))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUB1-OF-1 . IPLUS-INT-RANGEP1) (IMMEDIATE-DEPENDENTS0 LESSP-OF-1 . IPLUS-INT-RANGEP1) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . IPLUS-INT-RANGEP1) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-LESSP1 . IPLUS-INT-RANGEP1) (IMMEDIATE-DEPENDENTS0 NEGP . IPLUS-INT-RANGEP1) (IMMEDIATE-DEPENDENTS0 FIX-INT . IPLUS-INT-RANGEP1) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . IPLUS-INT-RANGEP1) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-SUB1 . IPLUS-INT-RANGEP1) (IMMEDIATE-DEPENDENTS0 IPLUS . IPLUS-INT-RANGEP1) (IMMEDIATE-DEPENDENTS0 INT-RANGEP . IPLUS-INT-RANGEP1) (IMMEDIATE-DEPENDENTS0 BITP . IPLUS-INT-RANGEP1) (IMMEDIATE-DEPENDENTS0 INTEGERP . IPLUS-INT-RANGEP1) (LEMMAS INT-RANGEP . IPLUS-INT-RANGEP1))))) (PUT1-LST (QUOTE ILESSP-CROCK2) (QUOTE (IDATE 1000402214927 IMMEDIATE-DEPENDENTS0 (ILESSP-CROCK2-OFF SUB-BLE SUB-BGT SUB-BLT SUB-BGE SUB-BMI) EVENT (PROVE-LEMMA ILESSP-CROCK2 (REWRITE) (IMPLIES (AND (INTEGERP X) (AND (INTEGERP Y) (AND (INT-RANGEP X N) (INT-RANGEP Y N)))) (ILESSP (IPLUS Y (MINUS (EXP (QUOTE 2) N))) X))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-EQUAL-0 . ILESSP-CROCK2) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . ILESSP-CROCK2) (IMMEDIATE-DEPENDENTS0 TIMES-EQUAL-0 . ILESSP-CROCK2) (IMMEDIATE-DEPENDENTS0 TIMES-LESSP . ILESSP-CROCK2) (IMMEDIATE-DEPENDENTS0 DIFFERENCE=0 . ILESSP-CROCK2) (IMMEDIATE-DEPENDENTS0 NEGP . ILESSP-CROCK2) (IMMEDIATE-DEPENDENTS0 FIX-INT . ILESSP-CROCK2) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . ILESSP-CROCK2) (IMMEDIATE-DEPENDENTS0 EXP . ILESSP-CROCK2) (IMMEDIATE-DEPENDENTS0 IPLUS . ILESSP-CROCK2) (IMMEDIATE-DEPENDENTS0 ILESSP . ILESSP-CROCK2) (IMMEDIATE-DEPENDENTS0 INT-RANGEP . ILESSP-CROCK2) (IMMEDIATE-DEPENDENTS0 INTEGERP . ILESSP-CROCK2) (LEMMAS ILESSP . ILESSP-CROCK2))))) (PUT1-LST (QUOTE ILESSP-CROCK1) (QUOTE (IDATE 1000402214927 IMMEDIATE-DEPENDENTS0 (ILESSP-CROCK1-OFF SUB-BLE SUB-BGT SUB-BLT SUB-BGE SUB-BMI) EVENT (PROVE-LEMMA ILESSP-CROCK1 (REWRITE) (IMPLIES (AND (INTEGERP X) (AND (INTEGERP Y) (AND (INT-RANGEP X N) (INT-RANGEP Y N)))) (NOT (ILESSP (IPLUS Y (EXP (QUOTE 2) N)) X)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . ILESSP-CROCK1) (IMMEDIATE-DEPENDENTS0 TIMES-EQUAL-0 . ILESSP-CROCK1) (IMMEDIATE-DEPENDENTS0 NEGP . ILESSP-CROCK1) (IMMEDIATE-DEPENDENTS0 FIX-INT . ILESSP-CROCK1) (IMMEDIATE-DEPENDENTS0 EXP . ILESSP-CROCK1) (IMMEDIATE-DEPENDENTS0 IPLUS . ILESSP-CROCK1) (IMMEDIATE-DEPENDENTS0 ILESSP . ILESSP-CROCK1) (IMMEDIATE-DEPENDENTS0 INT-RANGEP . ILESSP-CROCK1) (IMMEDIATE-DEPENDENTS0 INTEGERP . ILESSP-CROCK1) (LEMMAS ILESSP . ILESSP-CROCK1))))) (PUT1-LST (QUOTE ADD-BMI-CROCK2) (QUOTE (IDATE 1000402214927 IMMEDIATE-DEPENDENTS0 (ADD-BMI-CROCK2-OFF ADD-BMI) EVENT (PROVE-LEMMA ADD-BMI-CROCK2 (REWRITE) (IMPLIES (AND (INTEGERP X) (AND (INTEGERP Y) (AND (INT-RANGEP X N) (INT-RANGEP Y N)))) (NEGATIVEP (IPLUS X (IPLUS Y (MINUS (EXP (QUOTE 2) N))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIFFERENCE-PLUS2 . ADD-BMI-CROCK2) (IMMEDIATE-DEPENDENTS0 PLUS-EQUAL-0 . ADD-BMI-CROCK2) (IMMEDIATE-DEPENDENTS0 TIMES-EQUAL-0 . ADD-BMI-CROCK2) (IMMEDIATE-DEPENDENTS0 TIMES-LESSP . ADD-BMI-CROCK2) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-DIFFERENCE2 . ADD-BMI-CROCK2) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-DIFFERENCE1 . ADD-BMI-CROCK2) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . ADD-BMI-CROCK2) (IMMEDIATE-DEPENDENTS0 DIFFERENCE=0 . ADD-BMI-CROCK2) (IMMEDIATE-DEPENDENTS0 NEGP . ADD-BMI-CROCK2) (IMMEDIATE-DEPENDENTS0 FIX-INT . ADD-BMI-CROCK2) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . ADD-BMI-CROCK2) (IMMEDIATE-DEPENDENTS0 EXP . ADD-BMI-CROCK2) (IMMEDIATE-DEPENDENTS0 IPLUS . ADD-BMI-CROCK2) (IMMEDIATE-DEPENDENTS0 INT-RANGEP . ADD-BMI-CROCK2) (IMMEDIATE-DEPENDENTS0 INTEGERP . ADD-BMI-CROCK2) (LEMMAS NEGATIVEP . ADD-BMI-CROCK2))))) (PUT1-LST (QUOTE ADD-BMI-CROCK1) (QUOTE (IDATE 1000402214926 IMMEDIATE-DEPENDENTS0 (ADD-BMI-CROCK1-OFF ADD-BMI) EVENT (PROVE-LEMMA ADD-BMI-CROCK1 (REWRITE) (IMPLIES (AND (INTEGERP X) (AND (INTEGERP Y) (AND (INT-RANGEP X N) (INT-RANGEP Y N)))) (NOT (NEGATIVEP (IPLUS X (IPLUS Y (EXP (QUOTE 2) N))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIFFERENCE-DIFFERENCE1 . ADD-BMI-CROCK1) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . ADD-BMI-CROCK1) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-DIFFERENCE2 . ADD-BMI-CROCK1) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . ADD-BMI-CROCK1) (IMMEDIATE-DEPENDENTS0 TIMES-EQUAL-0 . ADD-BMI-CROCK1) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-PLUS2 . ADD-BMI-CROCK1) (IMMEDIATE-DEPENDENTS0 NEGP . ADD-BMI-CROCK1) (IMMEDIATE-DEPENDENTS0 FIX-INT . ADD-BMI-CROCK1) (IMMEDIATE-DEPENDENTS0 EXP . ADD-BMI-CROCK1) (IMMEDIATE-DEPENDENTS0 IPLUS . ADD-BMI-CROCK1) (IMMEDIATE-DEPENDENTS0 INT-RANGEP . ADD-BMI-CROCK1) (IMMEDIATE-DEPENDENTS0 INTEGERP . ADD-BMI-CROCK1) (LEMMAS NEGATIVEP . ADD-BMI-CROCK1))))) (PUT1-LST (QUOTE ADDX-V-CROCK2) (QUOTE (IDATE 1000402214926 IMMEDIATE-DEPENDENTS0 (ADDX-V-CROCK2-OFF ADDX-V-LA) EVENT (PROVE-LEMMA ADDX-V-CROCK2 (REWRITE) (IMPLIES (AND (INTEGERP X) (AND (INTEGERP Y) (AND (BITP Z) (AND (NOT (ZEROP N)) (AND (INT-RANGEP X N) (INT-RANGEP Y N)))))) (NEGATIVEP (IPLUS X (IPLUS Y (IPLUS Z (MINUS (EXP (QUOTE 2) N)))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EXP-OF-2-0 . ADDX-V-CROCK2) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-PLUS2 . ADDX-V-CROCK2) (IMMEDIATE-DEPENDENTS0 PLUS-EQUAL-0 . ADDX-V-CROCK2) (IMMEDIATE-DEPENDENTS0 PLUS-ADD1-1 . ADDX-V-CROCK2) (IMMEDIATE-DEPENDENTS0 TIMES-EQUAL-1 . ADDX-V-CROCK2) (IMMEDIATE-DEPENDENTS0 SUB1-OF-1 . ADDX-V-CROCK2) (IMMEDIATE-DEPENDENTS0 TIMES-EQUAL-0 . ADDX-V-CROCK2) (IMMEDIATE-DEPENDENTS0 TIMES-LESSP . ADDX-V-CROCK2) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-DIFFERENCE2 . ADDX-V-CROCK2) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . ADDX-V-CROCK2) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-DIFFERENCE1 . ADDX-V-CROCK2) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . ADDX-V-CROCK2) (IMMEDIATE-DEPENDENTS0 DIFFERENCE=0 . ADDX-V-CROCK2) (IMMEDIATE-DEPENDENTS0 NEGP . ADDX-V-CROCK2) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-SUB1 . ADDX-V-CROCK2) (IMMEDIATE-DEPENDENTS0 EXP-OF-2-1 . ADDX-V-CROCK2) (IMMEDIATE-DEPENDENTS0 PLUS-ADD1 . ADDX-V-CROCK2) (IMMEDIATE-DEPENDENTS0 EXP . ADDX-V-CROCK2) (IMMEDIATE-DEPENDENTS0 IPLUS . ADDX-V-CROCK2) (IMMEDIATE-DEPENDENTS0 INT-RANGEP . ADDX-V-CROCK2) (IMMEDIATE-DEPENDENTS0 BITP . ADDX-V-CROCK2) (IMMEDIATE-DEPENDENTS0 INTEGERP . ADDX-V-CROCK2) (LEMMAS NEGATIVEP . ADDX-V-CROCK2))))) (PUT1-LST (QUOTE ADDX-V-CROCK1) (QUOTE (IDATE 1000402214925 IMMEDIATE-DEPENDENTS0 (ADDX-V-CROCK1-OFF ADDX-V-LA) EVENT (PROVE-LEMMA ADDX-V-CROCK1 (REWRITE) (IMPLIES (AND (INTEGERP X) (AND (INTEGERP Y) (AND (BITP Z) (AND (INT-RANGEP X N) (INT-RANGEP Y N))))) (NOT (NEGATIVEP (IPLUS X (IPLUS Y (IPLUS Z (EXP (QUOTE 2) N)))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-LESSP . ADDX-V-CROCK1) (IMMEDIATE-DEPENDENTS0 DIFFERENCE=0 . ADDX-V-CROCK1) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-SUB1-SUB1 . ADDX-V-CROCK1) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-DIFFERENCE1 . ADDX-V-CROCK1) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . ADDX-V-CROCK1) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-DIFFERENCE2 . ADDX-V-CROCK1) (IMMEDIATE-DEPENDENTS0 SUB1-OF-1 . ADDX-V-CROCK1) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . ADDX-V-CROCK1) (IMMEDIATE-DEPENDENTS0 TIMES-EQUAL-0 . ADDX-V-CROCK1) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-PLUS2 . ADDX-V-CROCK1) (IMMEDIATE-DEPENDENTS0 NEGP . ADDX-V-CROCK1) (IMMEDIATE-DEPENDENTS0 FIX-INT . ADDX-V-CROCK1) (IMMEDIATE-DEPENDENTS0 PLUS-ADD1 . ADDX-V-CROCK1) (IMMEDIATE-DEPENDENTS0 PLUS-ADD1-1 . ADDX-V-CROCK1) (IMMEDIATE-DEPENDENTS0 EXP . ADDX-V-CROCK1) (IMMEDIATE-DEPENDENTS0 IPLUS . ADDX-V-CROCK1) (IMMEDIATE-DEPENDENTS0 INT-RANGEP . ADDX-V-CROCK1) (IMMEDIATE-DEPENDENTS0 BITP . ADDX-V-CROCK1) (IMMEDIATE-DEPENDENTS0 INTEGERP . ADDX-V-CROCK1) (LEMMAS NEGATIVEP . ADDX-V-CROCK1))))) (PUT1-LST (QUOTE IPLUS-WITH-CARRY-NON-NEGATIVEP) (QUOTE (IDATE 1000402214925 IMMEDIATE-DEPENDENTS0 (ADDX-V-LA) EVENT (PROVE-LEMMA IPLUS-WITH-CARRY-NON-NEGATIVEP (REWRITE) (IMPLIES (AND (INTEGERP X) (AND (INTEGERP Y) (AND (BITP Z) (AND (NOT (NEGATIVEP X)) (NOT (NEGATIVEP Y)))))) (NOT (NEGATIVEP (IPLUS X (IPLUS Y Z)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NEGP . IPLUS-WITH-CARRY-NON-NEGATIVEP) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . IPLUS-WITH-CARRY-NON-NEGATIVEP) (IMMEDIATE-DEPENDENTS0 PLUS-ADD1 . IPLUS-WITH-CARRY-NON-NEGATIVEP) (IMMEDIATE-DEPENDENTS0 PLUS-ADD1-1 . IPLUS-WITH-CARRY-NON-NEGATIVEP) (IMMEDIATE-DEPENDENTS0 IPLUS . IPLUS-WITH-CARRY-NON-NEGATIVEP) (IMMEDIATE-DEPENDENTS0 BITP . IPLUS-WITH-CARRY-NON-NEGATIVEP) (IMMEDIATE-DEPENDENTS0 INTEGERP . IPLUS-WITH-CARRY-NON-NEGATIVEP) (LEMMAS NEGATIVEP . IPLUS-WITH-CARRY-NON-NEGATIVEP))))) (PUT1-LST (QUOTE IPLUS-WITH-CARRY-NEGATIVEP) (QUOTE (IDATE 1000402214925 IMMEDIATE-DEPENDENTS0 (ADDX-V-LA) EVENT (PROVE-LEMMA IPLUS-WITH-CARRY-NEGATIVEP (REWRITE) (IMPLIES (AND (INTEGERP X) (AND (INTEGERP Y) (AND (BITP Z) (AND (NEGATIVEP X) (NEGATIVEP Y))))) (NEGATIVEP (IPLUS X (IPLUS Y Z))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUB1-OF-1 . IPLUS-WITH-CARRY-NEGATIVEP) (IMMEDIATE-DEPENDENTS0 NEGP . IPLUS-WITH-CARRY-NEGATIVEP) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . IPLUS-WITH-CARRY-NEGATIVEP) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-SUB1 . IPLUS-WITH-CARRY-NEGATIVEP) (IMMEDIATE-DEPENDENTS0 IPLUS . IPLUS-WITH-CARRY-NEGATIVEP) (IMMEDIATE-DEPENDENTS0 BITP . IPLUS-WITH-CARRY-NEGATIVEP) (IMMEDIATE-DEPENDENTS0 INTEGERP . IPLUS-WITH-CARRY-NEGATIVEP) (LEMMAS NEGATIVEP . IPLUS-WITH-CARRY-NEGATIVEP))))) (PUT1-LST (QUOTE PLUS-TO-IPLUS-OFF) (QUOTE (IDATE 1000402214925 EVENT (TOGGLE PLUS-TO-IPLUS-OFF PLUS-TO-IPLUS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-TO-IPLUS . PLUS-TO-IPLUS-OFF) (DISABLED-LEMMAS NIL PLUS-TO-IPLUS PLUS-TO-IPLUS-OFF . T))))) (PUT1-LST (QUOTE PLUS-TO-IPLUS) (QUOTE (IDATE 1000402214925 IMMEDIATE-DEPENDENTS0 (ADDER-INT PLUS-TO-IPLUS-OFF) EVENT (PROVE-LEMMA PLUS-TO-IPLUS (REWRITE) (IMPLIES (AND (INTEGERP X) (AND (INTEGERP Y) (AND (INT-RANGEP X N) (INT-RANGEP Y N)))) (EQUAL (ADDER-INT-END N C X Y) (IF (INT-RANGEP (IPLUS X (IPLUS Y (FIX-BIT C))) N) (IPLUS X (IPLUS Y (FIX-BIT C))) (IF (NEGATIVEP X) (IPLUS X (IPLUS Y (IPLUS (FIX-BIT C) (EXP (QUOTE 2) N)))) (IPLUS X (IPLUS Y (IPLUS (FIX-BIT C) (MINUS (EXP (QUOTE 2) N))))))))) ((DISABLE TIMES-DISTRIBUTES-PLUS-NEW CORRECTNESS-OF-CANCEL-LESSP-PLUS) (ENABLE TIMES-DISTRIBUTES-PLUS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIFFERENCE-PLUS1 . PLUS-TO-IPLUS) (IMMEDIATE-DEPENDENTS0 REMAINDER-0 . PLUS-TO-IPLUS) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-LESSP . PLUS-TO-IPLUS) (IMMEDIATE-DEPENDENTS0 PLUS-ASSOCIATIVITY . PLUS-TO-IPLUS) (IMMEDIATE-DEPENDENTS0 REMAINDER-PLUS-DIFFERENCE2 . PLUS-TO-IPLUS) (IMMEDIATE-DEPENDENTS0 TIMES-DISTRIBUTES-DIFFERENCE1 . PLUS-TO-IPLUS) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . PLUS-TO-IPLUS) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . PLUS-TO-IPLUS) (IMMEDIATE-DEPENDENTS0 PLUS-EQUAL-0 . PLUS-TO-IPLUS) (IMMEDIATE-DEPENDENTS0 TIMES-PLUS-LESSP . PLUS-TO-IPLUS) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-SUB1-SUB1 . PLUS-TO-IPLUS) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-LESSP1 . PLUS-TO-IPLUS) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-PLUS2 . PLUS-TO-IPLUS) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS . PLUS-TO-IPLUS) (IMMEDIATE-DEPENDENTS0 TIMES-EQUAL-1 . PLUS-TO-IPLUS) (IMMEDIATE-DEPENDENTS0 SUB1-OF-1 . PLUS-TO-IPLUS) (IMMEDIATE-DEPENDENTS0 PLUS-ADD1 . PLUS-TO-IPLUS) (IMMEDIATE-DEPENDENTS0 PLUS-ADD1-1 . PLUS-TO-IPLUS) (IMMEDIATE-DEPENDENTS0 REMAINDER-ADD1 . PLUS-TO-IPLUS) (IMMEDIATE-DEPENDENTS0 EXP-OF-2-0 . PLUS-TO-IPLUS) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-DIFFERENCE2 . PLUS-TO-IPLUS) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . PLUS-TO-IPLUS) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-DIFFERENCE1 . PLUS-TO-IPLUS) (IMMEDIATE-DEPENDENTS0 DIFFERENCE=0 . PLUS-TO-IPLUS) (IMMEDIATE-DEPENDENTS0 REMAINDER-EXIT . PLUS-TO-IPLUS) (IMMEDIATE-DEPENDENTS0 TIMES-LESSP . PLUS-TO-IPLUS) (IMMEDIATE-DEPENDENTS0 TIMES-EQUAL-0 . PLUS-TO-IPLUS) (IMMEDIATE-DEPENDENTS0 NEGP . PLUS-TO-IPLUS) (IMMEDIATE-DEPENDENTS0 FIX-INT . PLUS-TO-IPLUS) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY1 . PLUS-TO-IPLUS) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . PLUS-TO-IPLUS) (IMMEDIATE-DEPENDENTS0 INT-TO-NAT . PLUS-TO-IPLUS) (IMMEDIATE-DEPENDENTS0 B0 . PLUS-TO-IPLUS) (IMMEDIATE-DEPENDENTS0 B0P . PLUS-TO-IPLUS) (IMMEDIATE-DEPENDENTS0 B1 . PLUS-TO-IPLUS) (IMMEDIATE-DEPENDENTS0 NAT-TO-INT . PLUS-TO-IPLUS) (IMMEDIATE-DEPENDENTS0 REMAINDER-1 . PLUS-TO-IPLUS) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-SUB1 . PLUS-TO-IPLUS) (IMMEDIATE-DEPENDENTS0 LESSP-OF-1 . PLUS-TO-IPLUS) (IMMEDIATE-DEPENDENTS0 EXP . PLUS-TO-IPLUS) (IMMEDIATE-DEPENDENTS0 FIX-BIT . PLUS-TO-IPLUS) (IMMEDIATE-DEPENDENTS0 IPLUS . PLUS-TO-IPLUS) (IMMEDIATE-DEPENDENTS0 ADDER-INT-END . PLUS-TO-IPLUS) (IMMEDIATE-DEPENDENTS0 INT-RANGEP . PLUS-TO-IPLUS) (IMMEDIATE-DEPENDENTS0 INTEGERP . PLUS-TO-IPLUS) (LEMMAS ADDER-INT-END . PLUS-TO-IPLUS))))) (PUT1-LST (QUOTE *1*ADDER-INT-END) (QUOTE (MAIN-EVENT ADDER-INT-END))) (PUT1-LST (QUOTE ADDER-INT-END) (QUOTE (TYPE-PRESCRIPTION-LST ((ADDER-INT-END 36 NIL NIL NIL NIL)) LEMMAS ((REWRITE-RULE PLUS-TO-IPLUS ((INTEGERP X) (INTEGERP Y) (INT-RANGEP X N) (INT-RANGEP Y N)) (EQUAL (ADDER-INT-END N C X Y) (IF (INT-RANGEP (IPLUS X (IPLUS Y (FIX-BIT C))) N) (IPLUS X (IPLUS Y (FIX-BIT C))) (IF (NEGATIVEP X) (IPLUS X (IPLUS Y (IPLUS (FIX-BIT C) (EXP (QUOTE 2) N)))) (IPLUS X (IPLUS Y (IPLUS (FIX-BIT C) (MINUS (EXP (QUOTE 2) N)))))))) NIL)) TOTALP-LST ((ADDER-INT-END . T)) SDEFN (LAMBDA (N C X Y) (NAT-TO-INT (REMAINDER (PLUS (FIX-BIT C) (PLUS (INT-TO-NAT X N) (INT-TO-NAT Y N))) (EXP (QUOTE 2) N)) N)) LISP-CODE *1*ADDER-INT-END SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214917 SATELLITES (*1*ADDER-INT-END) IMMEDIATE-DEPENDENTS0 (ADDER-INT-END-OFF ADDER-INT-BRIDGE PLUS-TO-IPLUS) EVENT (DEFN ADDER-INT-END (N C X Y) (NAT-TO-INT (REMAINDER (PLUS (FIX-BIT C) (PLUS (INT-TO-NAT X N) (INT-TO-NAT Y N))) (EXP (QUOTE 2) N)) N)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EXP . ADDER-INT-END) (IMMEDIATE-DEPENDENTS0 INT-TO-NAT . ADDER-INT-END) (IMMEDIATE-DEPENDENTS0 FIX-BIT . ADDER-INT-END) (IMMEDIATE-DEPENDENTS0 NAT-TO-INT . ADDER-INT-END) (DCELL . *1*ADDER-INT-END))))) (PUT1-LST (QUOTE EXP2-LESSP-OFF) (QUOTE (IDATE 1000402214917 EVENT (TOGGLE EXP2-LESSP-OFF EXP2-LESSP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EXP2-LESSP . EXP2-LESSP-OFF) (DISABLED-LEMMAS NIL EXP2-LESSP EXP2-LESSP-OFF . T))))) (PUT1-LST (QUOTE EXT-INT) (QUOTE (IDATE 1000402214917 IMMEDIATE-DEPENDENTS0 (EXT-BMI EXT-BEQ-INT-1 EXT-BEQ-INT-0) EVENT (PROVE-LEMMA EXT-INT (REWRITE) (IMPLIES (AND (NAT-RANGEP X N) (LESSP N SIZE)) (EQUAL (NAT-TO-INT (EXT N X SIZE) SIZE) (NAT-TO-INT X N))) ((DISABLE APP EXP PLUS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EXP2-LESSP . EXT-INT) (IMMEDIATE-DEPENDENTS0 EXP-OF-2-0 . EXT-INT) (IMMEDIATE-DEPENDENTS0 EXP . EXT-INT) (IMMEDIATE-DEPENDENTS0 LESSP-OF-1 . EXT-INT) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-APP-1S . EXT-INT) (IMMEDIATE-DEPENDENTS0 LESSP-APP-1S . EXT-INT) (IMMEDIATE-DEPENDENTS0 DIFFERENCE=0 . EXT-INT) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS . EXT-INT) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-PLUS2 . EXT-INT) (IMMEDIATE-DEPENDENTS0 HEAD-LEMMA . EXT-INT) (IMMEDIATE-DEPENDENTS0 B0P . EXT-INT) (IMMEDIATE-DEPENDENTS0 B0 . EXT-INT) (IMMEDIATE-DEPENDENTS0 MBIT-MEANS-LESSP . EXT-INT) (IMMEDIATE-DEPENDENTS0 EXT . EXT-INT) (IMMEDIATE-DEPENDENTS0 NAT-TO-INT . EXT-INT) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . EXT-INT) (LEMMAS NAT-TO-INT . EXT-INT))))) (PUT1-LST (QUOTE EXP2-LESSP) (QUOTE (IDATE 1000402214917 IMMEDIATE-DEPENDENTS0 (REMAINDER-PLUS-TIMES-EXP2-2 EXP2-LESSP-OFF EXT-INT) EVENT (PROVE-LEMMA EXP2-LESSP (REWRITE) (IMPLIES (LESSP I J) (LESSP (EXP (QUOTE 2) I) (EXP (QUOTE 2) J)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EXP-LESSP . EXP2-LESSP) (IMMEDIATE-DEPENDENTS0 EXP . EXP2-LESSP) (LINEAR-LEMMAS EXP . EXP2-LESSP) (LINEAR-LEMMAS EXP . EXP2-LESSP))))) (PUT1-LST (QUOTE MBIT-MEANS-LESSP) (QUOTE (IDATE 1000402214917 IMMEDIATE-DEPENDENTS0 (EXT-BEQ-UINT MBIT-MEANS-LESSP-OFF SUBX-C-LA ADDX-C-LA SUB-SUBX-C ADD-ADDX-C NOT-N-BITP EXT-N-BITP SUBX-N-BITP SUBX-V-BITP SUBX-C-BITP SUB-N-BITP SUB-V-BITP SUB-C-BITP ADDX-N-BITP ADDX-V-BITP ADDX-C-BITP ADD-N-BITP ADD-V-BITP ADD-C-BITP EXT-INT) EVENT (PROVE-LEMMA MBIT-MEANS-LESSP (REWRITE) (IMPLIES (NAT-RANGEP X N) (EQUAL (BITN X (SUB1 N)) (IF (LESSP X (EXP (QUOTE 2) (SUB1 N))) (QUOTE 0) (QUOTE 1))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-LESSP . MBIT-MEANS-LESSP) (IMMEDIATE-DEPENDENTS0 EXP-OF-2-0 . MBIT-MEANS-LESSP) (IMMEDIATE-DEPENDENTS0 QUOTIENT-EXIT . MBIT-MEANS-LESSP) (IMMEDIATE-DEPENDENTS0 QUOTIENT-TIMES-LESSP . MBIT-MEANS-LESSP) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . MBIT-MEANS-LESSP) (IMMEDIATE-DEPENDENTS0 REMAINDER-EXIT . MBIT-MEANS-LESSP) (IMMEDIATE-DEPENDENTS0 QUOTIENT-1 . MBIT-MEANS-LESSP) (IMMEDIATE-DEPENDENTS0 LESSP-OF-1 . MBIT-MEANS-LESSP) (IMMEDIATE-DEPENDENTS0 TAIL . MBIT-MEANS-LESSP) (IMMEDIATE-DEPENDENTS0 BCAR . MBIT-MEANS-LESSP) (IMMEDIATE-DEPENDENTS0 EXP . MBIT-MEANS-LESSP) (IMMEDIATE-DEPENDENTS0 BITN . MBIT-MEANS-LESSP) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . MBIT-MEANS-LESSP) (LEMMAS BITN . MBIT-MEANS-LESSP))))) (PUT1-LST (QUOTE ASR-NAT-RANGEP) (QUOTE (IDATE 1000402214917 IMMEDIATE-DEPENDENTS0 (ASR-BMI) EVENT (PROVE-LEMMA ASR-NAT-RANGEP (REWRITE) (IMPLIES (NAT-RANGEP X N) (NAT-RANGEP (ASR N X CNT) N)) ((USE (LESSP-PLUS-TIMES-EXP2 (X (QUOTIENT X (EXP (QUOTE 2) CNT))) (Y (SUB1 (EXP (QUOTE 2) CNT))) (I (DIFFERENCE N CNT)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-QUOTIENT-ELIM . ASR-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 REMAINDER-0 . ASR-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 EXP-OF-2-0 . ASR-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-DIFFERENCE2 . ASR-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 TIMES-EQUAL-0 . ASR-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 REMAINDER-LESSP . ASR-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 REMAINDER-EXIT . ASR-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . ASR-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 QUOTIENT-LEQ . ASR-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS . ASR-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-PLUS2 . ASR-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 EXP . ASR-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 LESSP-OF-1 . ASR-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 EXP-PLUS . ASR-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 QUOTIENT-TIMES-LESSP . ASR-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 SUB1-OF-1 . ASR-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 APP . ASR-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 HEAD . ASR-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . ASR-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 TAIL . ASR-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 APP-0 . ASR-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 QUOTIENT-0 . ASR-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . ASR-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 QUOTIENT-1 . ASR-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 LESSP-PLUS-TIMES-EXP2 . ASR-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 ASR . ASR-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . ASR-NAT-RANGEP) (LEMMAS NAT-RANGEP . ASR-NAT-RANGEP))))) (PUT1-LST (QUOTE ASR-0) (QUOTE (IDATE 1000402214916 IMMEDIATE-DEPENDENTS0 (S&R-GROUP-H) EVENT (PROVE-LEMMA ASR-0 (REWRITE) (IMPLIES (NAT-RANGEP X N) (EQUAL (ASR N X (QUOTE 0)) (FIX X)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-EXIT . ASR-0) (IMMEDIATE-DEPENDENTS0 TIMES-LESSP . ASR-0) (IMMEDIATE-DEPENDENTS0 LESSP-OF-1 . ASR-0) (IMMEDIATE-DEPENDENTS0 APP-0 . ASR-0) (IMMEDIATE-DEPENDENTS0 HEAD . ASR-0) (IMMEDIATE-DEPENDENTS0 EXP . ASR-0) (IMMEDIATE-DEPENDENTS0 TAIL-OF-0 . ASR-0) (IMMEDIATE-DEPENDENTS0 ASR . ASR-0) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . ASR-0) (LEMMAS ASR . ASR-0))))) (PUT1-LST (QUOTE ASL-ASL) (QUOTE (IDATE 1000402214916 EVENT (PROVE-LEMMA ASL-ASL (REWRITE) (EQUAL (ASL N (ASL N X CNT1) CNT2) (ASL N X (PLUS CNT1 CNT2)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . ASL-ASL) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-EQUAL-TIMES . ASL-ASL) (IMMEDIATE-DEPENDENTS0 EXP-PLUS . ASL-ASL) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . ASL-ASL) (IMMEDIATE-DEPENDENTS0 REMAINDER-TIMES-EXP2-1 . ASL-ASL) (IMMEDIATE-DEPENDENTS0 TIMES-ASSOCIATIVITY . ASL-ASL) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-DIFFERENCE1 . ASL-ASL) (IMMEDIATE-DEPENDENTS0 REMAINDER-REMAINDER-EXP2 . ASL-ASL) (IMMEDIATE-DEPENDENTS0 REMAINDER-TIMES-EXP2-2 . ASL-ASL) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY1 . ASL-ASL) (IMMEDIATE-DEPENDENTS0 HEAD . ASL-ASL) (IMMEDIATE-DEPENDENTS0 ASL . ASL-ASL) (LEMMAS ASL . ASL-ASL))))) (PUT1-LST (QUOTE ASL-NAT-RANGEP) (QUOTE (IDATE 1000402214915 IMMEDIATE-DEPENDENTS0 (ASL-BMI) EVENT (PROVE-LEMMA ASL-NAT-RANGEP (REWRITE) (NAT-RANGEP (ASL N X CNT) N)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EXP-OF-2-0 . ASL-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 REMAINDER-LESSP . ASL-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 HEAD . ASL-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 ASL . ASL-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . ASL-NAT-RANGEP) (LEMMAS NAT-RANGEP . ASL-NAT-RANGEP))))) (PUT1-LST (QUOTE ASL-0) (QUOTE (IDATE 1000402214915 IMMEDIATE-DEPENDENTS0 (S&R-GROUP-H) EVENT (PROVE-LEMMA ASL-0 (REWRITE) (EQUAL (ASL N X (QUOTE 0)) (HEAD X N))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-0 . ASL-0) (IMMEDIATE-DEPENDENTS0 EXP-OF-2-0 . ASL-0) (IMMEDIATE-DEPENDENTS0 REMAINDER-EXIT . ASL-0) (IMMEDIATE-DEPENDENTS0 EXP . ASL-0) (IMMEDIATE-DEPENDENTS0 TIMES-1 . ASL-0) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . ASL-0) (IMMEDIATE-DEPENDENTS0 HEAD . ASL-0) (IMMEDIATE-DEPENDENTS0 ASL . ASL-0) (LEMMAS ASL . ASL-0))))) (PUT1-LST (QUOTE LSR-LSR) (QUOTE (IDATE 1000402214915 EVENT (PROVE-LEMMA LSR-LSR (REWRITE) (EQUAL (LSR (LSR X CNT1) CNT2) (LSR X (PLUS CNT1 CNT2)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EXP-PLUS . LSR-LSR) (IMMEDIATE-DEPENDENTS0 QUOTIENT-QUOTIENT . LSR-LSR) (IMMEDIATE-DEPENDENTS0 TAIL . LSR-LSR) (IMMEDIATE-DEPENDENTS0 LSR . LSR-LSR) (LEMMAS LSR . LSR-LSR))))) (PUT1-LST (QUOTE LSR-NAT-RANGEP) (QUOTE (IDATE 1000402214915 EVENT (PROVE-LEMMA LSR-NAT-RANGEP (REWRITE) (IMPLIES (NAT-RANGEP X N) (NAT-RANGEP (LSR X CNT) N))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 QUOTIENT-LEQ . LSR-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 TAIL . LSR-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 LSR . LSR-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . LSR-NAT-RANGEP) (LEMMAS NAT-RANGEP . LSR-NAT-RANGEP))))) (PUT1-LST (QUOTE LSR-0) (QUOTE (IDATE 1000402214915 IMMEDIATE-DEPENDENTS0 (S&R-GROUP-H) EVENT (PROVE-LEMMA LSR-0 (REWRITE) (EQUAL (LSR X (QUOTE 0)) (FIX X))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EXP . LSR-0) (IMMEDIATE-DEPENDENTS0 QUOTIENT-1 . LSR-0) (IMMEDIATE-DEPENDENTS0 TAIL . LSR-0) (IMMEDIATE-DEPENDENTS0 LSR . LSR-0) (LEMMAS LSR . LSR-0))))) (PUT1-LST (QUOTE LSL-LSL) (QUOTE (IDATE 1000402214915 EVENT (PROVE-LEMMA LSL-LSL (REWRITE) (EQUAL (LSL N (LSL N X CNT1) CNT2) (LSL N X (PLUS CNT1 CNT2)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . LSL-LSL) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-EQUAL-TIMES . LSL-LSL) (IMMEDIATE-DEPENDENTS0 EXP-PLUS . LSL-LSL) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . LSL-LSL) (IMMEDIATE-DEPENDENTS0 REMAINDER-TIMES-EXP2-1 . LSL-LSL) (IMMEDIATE-DEPENDENTS0 TIMES-ASSOCIATIVITY . LSL-LSL) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-DIFFERENCE1 . LSL-LSL) (IMMEDIATE-DEPENDENTS0 REMAINDER-REMAINDER-EXP2 . LSL-LSL) (IMMEDIATE-DEPENDENTS0 REMAINDER-TIMES-EXP2-2 . LSL-LSL) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY1 . LSL-LSL) (IMMEDIATE-DEPENDENTS0 HEAD . LSL-LSL) (IMMEDIATE-DEPENDENTS0 LSL . LSL-LSL) (LEMMAS LSL . LSL-LSL))))) (PUT1-LST (QUOTE LSL-NAT-RANGEP) (QUOTE (IDATE 1000402214915 EVENT (PROVE-LEMMA LSL-NAT-RANGEP (REWRITE) (NAT-RANGEP (LSL N X CNT) N)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EXP-OF-2-0 . LSL-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 REMAINDER-LESSP . LSL-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 HEAD . LSL-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 LSL . LSL-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . LSL-NAT-RANGEP) (LEMMAS NAT-RANGEP . LSL-NAT-RANGEP))))) (PUT1-LST (QUOTE LSL-0) (QUOTE (IDATE 1000402214915 IMMEDIATE-DEPENDENTS0 (S&R-GROUP-H) EVENT (PROVE-LEMMA LSL-0 (REWRITE) (EQUAL (LSL N X (QUOTE 0)) (HEAD X N))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-0 . LSL-0) (IMMEDIATE-DEPENDENTS0 EXP-OF-2-0 . LSL-0) (IMMEDIATE-DEPENDENTS0 REMAINDER-EXIT . LSL-0) (IMMEDIATE-DEPENDENTS0 EXP . LSL-0) (IMMEDIATE-DEPENDENTS0 TIMES-1 . LSL-0) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . LSL-0) (IMMEDIATE-DEPENDENTS0 HEAD . LSL-0) (IMMEDIATE-DEPENDENTS0 LSL . LSL-0) (LEMMAS LSL . LSL-0))))) (PUT1-LST (QUOTE QUOTIENT-DIFF-OFF) (QUOTE (IDATE 1000402214915 EVENT (TOGGLE QUOTIENT-DIFF-OFF QUOTIENT-DIFF T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 QUOTIENT-DIFF . QUOTIENT-DIFF-OFF) (DISABLED-LEMMAS NIL QUOTIENT-DIFF QUOTIENT-DIFF-OFF . T))))) (PUT1-LST (QUOTE REMAINDER-DIFF-OFF) (QUOTE (IDATE 1000402214915 EVENT (TOGGLE REMAINDER-DIFF-OFF REMAINDER-DIFF T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-DIFF . REMAINDER-DIFF-OFF) (DISABLED-LEMMAS NIL REMAINDER-DIFF REMAINDER-DIFF-OFF . T))))) (PUT1-LST (QUOTE QUOTIENT-EXP-LESSP-OFF) (QUOTE (IDATE 1000402214915 EVENT (TOGGLE QUOTIENT-EXP-LESSP-OFF QUOTIENT-EXP-LESSP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 QUOTIENT-EXP-LESSP . QUOTIENT-EXP-LESSP-OFF) (DISABLED-LEMMAS NIL QUOTIENT-EXP-LESSP QUOTIENT-EXP-LESSP-OFF . T))))) (PUT1-LST (QUOTE ASR-INT-CROCK-OFF) (QUOTE (IDATE 1000402214915 EVENT (TOGGLE ASR-INT-CROCK-OFF ASR-INT-CROCK T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ASR-INT-CROCK . ASR-INT-CROCK-OFF) (DISABLED-LEMMAS NIL ASR-INT-CROCK ASR-INT-CROCK-OFF . T))))) (PUT1-LST (QUOTE ASR-INT) (QUOTE (IDATE 1000402214915 IMMEDIATE-DEPENDENTS0 (ASR-BMI ASR-BEQ) EVENT (PROVE-LEMMA ASR-INT (REWRITE) (IMPLIES (NAT-RANGEP X N) (EQUAL (NAT-TO-INT (ASR N X I) N) (IF (NEGATIVEP (NAT-TO-INT X N)) (IF (EQUAL (IREMAINDER (NAT-TO-INT X N) (EXP (QUOTE 2) I)) (QUOTE 0)) (IQUOTIENT (NAT-TO-INT X N) (EXP (QUOTE 2) I)) (IPLUS (QUOTE -1) (IQUOTIENT (NAT-TO-INT X N) (EXP (QUOTE 2) I)))) (IQUOTIENT (NAT-TO-INT X N) (EXP (QUOTE 2) I))))) ((DISABLE APP EXP QUOTIENT-TIMES-LESSP))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-LESSP . ASR-INT) (IMMEDIATE-DEPENDENTS0 PLUS-ADD1 . ASR-INT) (IMMEDIATE-DEPENDENTS0 SUB1-OF-1 . ASR-INT) (IMMEDIATE-DEPENDENTS0 REMAINDER-LESSP-LINEAR . ASR-INT) (IMMEDIATE-DEPENDENTS0 REMAINDER-DIFF . ASR-INT) (IMMEDIATE-DEPENDENTS0 REMAINDER-EXP . ASR-INT) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-APP-1S . ASR-INT) (IMMEDIATE-DEPENDENTS0 HEAD-LEMMA . ASR-INT) (IMMEDIATE-DEPENDENTS0 QUOTIENT-EXP-LESSP . ASR-INT) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . ASR-INT) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS . ASR-INT) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-PLUS1 . ASR-INT) (IMMEDIATE-DEPENDENTS0 ASR-INT-CROCK . ASR-INT) (IMMEDIATE-DEPENDENTS0 QUOTIENT-DIFF . ASR-INT) (IMMEDIATE-DEPENDENTS0 QUOTIENT-EXP . ASR-INT) (IMMEDIATE-DEPENDENTS0 FIX-INT . ASR-INT) (IMMEDIATE-DEPENDENTS0 INTEGERP . ASR-INT) (IMMEDIATE-DEPENDENTS0 REMAINDER-EXIT . ASR-INT) (IMMEDIATE-DEPENDENTS0 EXP-LESSP . ASR-INT) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-LESSP1 . ASR-INT) (IMMEDIATE-DEPENDENTS0 ABS . ASR-INT) (IMMEDIATE-DEPENDENTS0 DIFFERENCE=0 . ASR-INT) (IMMEDIATE-DEPENDENTS0 QUOTIENT-LEQ . ASR-INT) (IMMEDIATE-DEPENDENTS0 EXP-OF-2-0 . ASR-INT) (IMMEDIATE-DEPENDENTS0 QUOTIENT-EXIT . ASR-INT) (IMMEDIATE-DEPENDENTS0 QUOTIENT-0 . ASR-INT) (IMMEDIATE-DEPENDENTS0 TAIL . ASR-INT) (IMMEDIATE-DEPENDENTS0 NEGP . ASR-INT) (IMMEDIATE-DEPENDENTS0 IPLUS . ASR-INT) (IMMEDIATE-DEPENDENTS0 IQUOTIENT . ASR-INT) (IMMEDIATE-DEPENDENTS0 EXP . ASR-INT) (IMMEDIATE-DEPENDENTS0 IREMAINDER . ASR-INT) (IMMEDIATE-DEPENDENTS0 ASR . ASR-INT) (IMMEDIATE-DEPENDENTS0 NAT-TO-INT . ASR-INT) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . ASR-INT) (LEMMAS NAT-TO-INT . ASR-INT))))) (PUT1-LST (QUOTE ASR-INT-CROCK) (QUOTE (IDATE 1000402214914 IMMEDIATE-DEPENDENTS0 (ASR-INT-CROCK-OFF ASR-INT) EVENT (PROVE-LEMMA ASR-INT-CROCK (REWRITE) (IMPLIES (AND (LESSP X (EXP (QUOTE 2) N)) (AND (NOT (LESSP X (EXP (QUOTE 2) (SUB1 N)))) (IF (LESSP N CNT) (QUOTE *1*FALSE) (QUOTE *1*TRUE)))) (EQUAL (LESSP (APP (DIFFERENCE N CNT) (QUOTIENT X (EXP (QUOTE 2) CNT)) (SUB1 (EXP (QUOTE 2) CNT))) (EXP (QUOTE 2) (SUB1 N))) (QUOTE *1*FALSE))) ((DISABLE APP))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIFFERENCE-PLUS1 . ASR-INT-CROCK) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS . ASR-INT-CROCK) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . ASR-INT-CROCK) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . ASR-INT-CROCK) (IMMEDIATE-DEPENDENTS0 QUOTIENT-EXP-LESSP . ASR-INT-CROCK) (IMMEDIATE-DEPENDENTS0 HEAD-LEMMA . ASR-INT-CROCK) (IMMEDIATE-DEPENDENTS0 EXP-PLUS . ASR-INT-CROCK) (IMMEDIATE-DEPENDENTS0 QUOTIENT-TIMES-LESSP . ASR-INT-CROCK) (IMMEDIATE-DEPENDENTS0 LESSP-APP-1S . ASR-INT-CROCK) (IMMEDIATE-DEPENDENTS0 LESSP-OF-1 . ASR-INT-CROCK) (IMMEDIATE-DEPENDENTS0 QUOTIENT-1 . ASR-INT-CROCK) (IMMEDIATE-DEPENDENTS0 APP-0 . ASR-INT-CROCK) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . ASR-INT-CROCK) (IMMEDIATE-DEPENDENTS0 APP . ASR-INT-CROCK) (IMMEDIATE-DEPENDENTS0 EXP . ASR-INT-CROCK) (LEMMAS LESSP . ASR-INT-CROCK))))) (PUT1-LST (QUOTE TIMES-SUB1-OFF) (QUOTE (IDATE 1000402214914 EVENT (TOGGLE TIMES-SUB1-OFF TIMES-SUB1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-SUB1 . TIMES-SUB1-OFF) (DISABLED-LEMMAS NIL TIMES-SUB1 TIMES-SUB1-OFF . T))))) (PUT1-LST (QUOTE DIFFERENCE-APP-1S) (QUOTE (IDATE 1000402214914 IMMEDIATE-DEPENDENTS0 (EXT-INT ASR-INT) EVENT (PROVE-LEMMA DIFFERENCE-APP-1S (REWRITE) (IMPLIES (EQUAL (PLUS M N) (FIX K)) (EQUAL (DIFFERENCE (EXP (QUOTE 2) K) (APP M X (SUB1 (EXP (QUOTE 2) N)))) (DIFFERENCE (EXP (QUOTE 2) M) (HEAD X M))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-LESSP-PLUS . DIFFERENCE-APP-1S) (IMMEDIATE-DEPENDENTS0 EXP-LESSP . DIFFERENCE-APP-1S) (IMMEDIATE-DEPENDENTS0 REMAINDER-LESSP-LINEAR . DIFFERENCE-APP-1S) (IMMEDIATE-DEPENDENTS0 PLUS-EQUAL-0 . DIFFERENCE-APP-1S) (IMMEDIATE-DEPENDENTS0 REMAINDER-1 . DIFFERENCE-APP-1S) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . DIFFERENCE-APP-1S) (IMMEDIATE-DEPENDENTS0 TIMES-SUB1 . DIFFERENCE-APP-1S) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . DIFFERENCE-APP-1S) (IMMEDIATE-DEPENDENTS0 EXP-OF-2-0 . DIFFERENCE-APP-1S) (IMMEDIATE-DEPENDENTS0 EXP-PLUS . DIFFERENCE-APP-1S) (IMMEDIATE-DEPENDENTS0 HEAD . DIFFERENCE-APP-1S) (IMMEDIATE-DEPENDENTS0 APP . DIFFERENCE-APP-1S) (IMMEDIATE-DEPENDENTS0 EXP . DIFFERENCE-APP-1S) (LEMMAS DIFFERENCE . DIFFERENCE-APP-1S))))) (PUT1-LST (QUOTE TIMES-SUB1) (QUOTE (IDATE 1000402214914 IMMEDIATE-DEPENDENTS0 (TIMES-SUB1-OFF DIFFERENCE-APP-1S) EVENT (PROVE-LEMMA TIMES-SUB1 (REWRITE) (EQUAL (TIMES (SUB1 Y) X) (DIFFERENCE (TIMES X Y) X)) ((USE (TIMES-DISTRIBUTES-DIFFERENCE (Z (QUOTE 1)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-ADD1 . TIMES-SUB1) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS . TIMES-SUB1) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . TIMES-SUB1) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . TIMES-SUB1) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . TIMES-SUB1) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-SUB1 . TIMES-SUB1) (IMMEDIATE-DEPENDENTS0 TIMES-DISTRIBUTES-DIFFERENCE . TIMES-SUB1) (LEMMAS TIMES . TIMES-SUB1))))) (PUT1-LST (QUOTE LESSP-APP-1S) (QUOTE (IDATE 1000402214914 IMMEDIATE-DEPENDENTS0 (EXT-INT ASR-INT-CROCK) EVENT (PROVE-LEMMA LESSP-APP-1S (REWRITE) (IMPLIES (EQUAL (PLUS M N) (FIX K)) (EQUAL (LESSP (APP M X (SUB1 (EXP (QUOTE 2) N))) (EXP (QUOTE 2) (SUB1 K))) (IF (ZEROP N) (LESSP (HEAD X M) (EXP (QUOTE 2) (SUB1 (PLUS M N)))) (QUOTE *1*FALSE))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-1 . LESSP-APP-1S) (IMMEDIATE-DEPENDENTS0 EXP-OF-2-0 . LESSP-APP-1S) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . LESSP-APP-1S) (IMMEDIATE-DEPENDENTS0 SUB1-OF-1 . LESSP-APP-1S) (IMMEDIATE-DEPENDENTS0 TIMES-EQUAL-0 . LESSP-APP-1S) (IMMEDIATE-DEPENDENTS0 PLUS-EQUAL-0 . LESSP-APP-1S) (IMMEDIATE-DEPENDENTS0 LESSP-OF-1 . LESSP-APP-1S) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . LESSP-APP-1S) (IMMEDIATE-DEPENDENTS0 LESSP-TIMES-EXP-1S . LESSP-APP-1S) (IMMEDIATE-DEPENDENTS0 HEAD . LESSP-APP-1S) (IMMEDIATE-DEPENDENTS0 EXP . LESSP-APP-1S) (IMMEDIATE-DEPENDENTS0 APP . LESSP-APP-1S) (LEMMAS LESSP . LESSP-APP-1S))))) (PUT1-LST (QUOTE LESSP-TIMES-EXP-1S) (QUOTE (IDATE 1000402214914 IMMEDIATE-DEPENDENTS0 (LESSP-APP-1S) EVENT (PROVE-LEMMA LESSP-TIMES-EXP-1S (REWRITE) (IMPLIES (EQUAL (PLUS M N) (FIX K)) (EQUAL (LESSP (PLUS X (TIMES (EXP (QUOTE 2) M) (SUB1 (EXP (QUOTE 2) N)))) (EXP (QUOTE 2) (SUB1 K))) (IF (ZEROP N) (LESSP X (EXP (QUOTE 2) (SUB1 (PLUS M N)))) (QUOTE *1*FALSE)))) ((INDUCT (PLUS X Y)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-ASSOCIATIVITY . LESSP-TIMES-EXP-1S) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-LESSP-TIMES . LESSP-TIMES-EXP-1S) (IMMEDIATE-DEPENDENTS0 TIMES-1 . LESSP-TIMES-EXP-1S) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . LESSP-TIMES-EXP-1S) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . LESSP-TIMES-EXP-1S) (IMMEDIATE-DEPENDENTS0 EXP-OF-2-0 . LESSP-TIMES-EXP-1S) (IMMEDIATE-DEPENDENTS0 PLUS-EQUAL-0 . LESSP-TIMES-EXP-1S) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . LESSP-TIMES-EXP-1S) (IMMEDIATE-DEPENDENTS0 SUB1-OF-1 . LESSP-TIMES-EXP-1S) (IMMEDIATE-DEPENDENTS0 TIMES-EQUAL-0 . LESSP-TIMES-EXP-1S) (IMMEDIATE-DEPENDENTS0 LESSP-OF-1 . LESSP-TIMES-EXP-1S) (IMMEDIATE-DEPENDENTS0 EXP . LESSP-TIMES-EXP-1S) (LEMMAS LESSP . LESSP-TIMES-EXP-1S))))) (PUT1-LST (QUOTE QUOTIENT-EXP-LESSP) (QUOTE (IDATE 1000402214914 IMMEDIATE-DEPENDENTS0 (QUOTIENT-EXP-LESSP-OFF ASR-INT ASR-INT-CROCK) EVENT (PROVE-LEMMA QUOTIENT-EXP-LESSP (REWRITE) (IMPLIES (IF (LESSP N CNT) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (EQUAL (LESSP (QUOTIENT X (EXP (QUOTE 2) CNT)) (EXP (QUOTE 2) (DIFFERENCE N CNT))) (LESSP X (EXP (QUOTE 2) N))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EXP-OF-2-0 . QUOTIENT-EXP-LESSP) (IMMEDIATE-DEPENDENTS0 LESSP-OF-1 . QUOTIENT-EXP-LESSP) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS . QUOTIENT-EXP-LESSP) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-PLUS2 . QUOTIENT-EXP-LESSP) (IMMEDIATE-DEPENDENTS0 EXP-PLUS . QUOTIENT-EXP-LESSP) (IMMEDIATE-DEPENDENTS0 QUOTIENT-TIMES-LESSP . QUOTIENT-EXP-LESSP) (IMMEDIATE-DEPENDENTS0 EXP . QUOTIENT-EXP-LESSP) (LEMMAS LESSP . QUOTIENT-EXP-LESSP))))) (PUT1-LST (QUOTE QUOTIENT-DIFF) (QUOTE (IDATE 1000402214914 IMMEDIATE-DEPENDENTS0 (MEAN-DIFFERENCE-2 QUOTIENT-DIFF-OFF ASR-INT) EVENT (PROVE-LEMMA QUOTIENT-DIFF (REWRITE) (IMPLIES (EQUAL (REMAINDER X Z) (QUOTE 0)) (EQUAL (QUOTIENT (DIFFERENCE X Y) Z) (IF (EQUAL (REMAINDER Y Z) (QUOTE 0)) (DIFFERENCE (QUOTIENT X Z) (QUOTIENT Y Z)) (SUB1 (DIFFERENCE (QUOTIENT X Z) (QUOTIENT Y Z)))))) ((USE (QUOTIENT-DIFF-LA (X (DIFFERENCE X (TIMES Z (QUOTIENT Y Z)))) (Y (REMAINDER Y Z)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 QUOTIENT-EXIT . QUOTIENT-DIFF) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . QUOTIENT-DIFF) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . QUOTIENT-DIFF) (IMMEDIATE-DEPENDENTS0 QUOTIENT-SHRINK-FAST . QUOTIENT-DIFF) (IMMEDIATE-DEPENDENTS0 REMAINDER-EXIT . QUOTIENT-DIFF) (IMMEDIATE-DEPENDENTS0 REMAINDER-TIMES . QUOTIENT-DIFF) (IMMEDIATE-DEPENDENTS0 REMAINDER-DIFF . QUOTIENT-DIFF) (IMMEDIATE-DEPENDENTS0 REMAINDER-LESSP . QUOTIENT-DIFF) (IMMEDIATE-DEPENDENTS0 REMAINDER-QUOTIENT . QUOTIENT-DIFF) (IMMEDIATE-DEPENDENTS0 QUOTIENT-DIFFERENCE-TIMES2 . QUOTIENT-DIFF) (IMMEDIATE-DEPENDENTS0 REMAINDER-0 . QUOTIENT-DIFF) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . QUOTIENT-DIFF) (IMMEDIATE-DEPENDENTS0 QUOTIENT-0 . QUOTIENT-DIFF) (IMMEDIATE-DEPENDENTS0 QUOTIENT-EQUAL-0 . QUOTIENT-DIFF) (IMMEDIATE-DEPENDENTS0 QUOTIENT-TIMES-LESSP . QUOTIENT-DIFF) (IMMEDIATE-DEPENDENTS0 DIFFERENCE=0 . QUOTIENT-DIFF) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-DIFFERENCE1 . QUOTIENT-DIFF) (IMMEDIATE-DEPENDENTS0 QUOTIENT-DIFF-LA . QUOTIENT-DIFF) (LEMMAS QUOTIENT . QUOTIENT-DIFF))))) (PUT1-LST (QUOTE REMAINDER-DIFF) (QUOTE (IDATE 1000402214913 IMMEDIATE-DEPENDENTS0 (HEAD-INT-CROCK REMAINDER-DIFF-OFF ASR-INT QUOTIENT-DIFF) EVENT (PROVE-LEMMA REMAINDER-DIFF (REWRITE) (IMPLIES (EQUAL (REMAINDER X Z) (QUOTE 0)) (EQUAL (REMAINDER (DIFFERENCE X Y) Z) (IF (OR (IF (LESSP Y X) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (EQUAL (REMAINDER Y Z) (QUOTE 0))) (QUOTE 0) (DIFFERENCE Z (REMAINDER Y Z))))) ((USE (REMAINDER-DIFF-LA (X (DIFFERENCE X (TIMES Z (QUOTIENT Y Z)))) (Y (REMAINDER Y Z)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 QUOTIENT-EXIT . REMAINDER-DIFF) (IMMEDIATE-DEPENDENTS0 REMAINDER-LESSP-LINEAR . REMAINDER-DIFF) (IMMEDIATE-DEPENDENTS0 QUOTIENT-SHRINK-FAST . REMAINDER-DIFF) (IMMEDIATE-DEPENDENTS0 REMAINDER-EXIT . REMAINDER-DIFF) (IMMEDIATE-DEPENDENTS0 DIFFERENCE=0 . REMAINDER-DIFF) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . REMAINDER-DIFF) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . REMAINDER-DIFF) (IMMEDIATE-DEPENDENTS0 REMAINDER-DIFFERENCE-TIMES2 . REMAINDER-DIFF) (IMMEDIATE-DEPENDENTS0 REMAINDER-LESSP . REMAINDER-DIFF) (IMMEDIATE-DEPENDENTS0 REMAINDER-QUOTIENT . REMAINDER-DIFF) (IMMEDIATE-DEPENDENTS0 REMAINDER-0 . REMAINDER-DIFF) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . REMAINDER-DIFF) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-DIFFERENCE1 . REMAINDER-DIFF) (IMMEDIATE-DEPENDENTS0 REMAINDER-DIFF-LA . REMAINDER-DIFF) (LEMMAS REMAINDER . REMAINDER-DIFF))))) (PUT1-LST (QUOTE QUOTIENT-DIFF-LA) (QUOTE (IDATE 1000402214912 IMMEDIATE-DEPENDENTS0 (QUOTIENT-DIFF) EVENT (PROVE-LEMMA QUOTIENT-DIFF-LA NIL (IMPLIES (AND (EQUAL (REMAINDER X Z) (QUOTE 0)) (LESSP Y Z)) (EQUAL (QUOTIENT (DIFFERENCE X Y) Z) (IF (ZEROP Y) (QUOTIENT X Z) (SUB1 (QUOTIENT X Z))))) ((USE (QUOTIENT-PLUS2 (I (DIFFERENCE X Z)) (X (DIFFERENCE Z Y)) (J Z))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIFFERENCE=0 . QUOTIENT-DIFF-LA) (IMMEDIATE-DEPENDENTS0 QUOTIENT-LEQ . QUOTIENT-DIFF-LA) (IMMEDIATE-DEPENDENTS0 REMAINDER-LESSP-LINEAR . QUOTIENT-DIFF-LA) (IMMEDIATE-DEPENDENTS0 REMAINDER-EXIT . QUOTIENT-DIFF-LA) (IMMEDIATE-DEPENDENTS0 PLUS-ADD1 . QUOTIENT-DIFF-LA) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . QUOTIENT-DIFF-LA) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-PLUS2 . QUOTIENT-DIFF-LA) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-DIFFERENCE1 . QUOTIENT-DIFF-LA) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS . QUOTIENT-DIFF-LA) (IMMEDIATE-DEPENDENTS0 QUOTIENT-0 . QUOTIENT-DIFF-LA) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-LESSP . QUOTIENT-DIFF-LA) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . QUOTIENT-DIFF-LA) (IMMEDIATE-DEPENDENTS0 QUOTIENT-EXIT . QUOTIENT-DIFF-LA) (IMMEDIATE-DEPENDENTS0 REMAINDER-0 . QUOTIENT-DIFF-LA) (IMMEDIATE-DEPENDENTS0 QUOTIENT-PLUS2 . QUOTIENT-DIFF-LA))))) (PUT1-LST (QUOTE ASL-INT-CROCK2-OFF) (QUOTE (IDATE 1000402214912 EVENT (TOGGLE ASL-INT-CROCK2-OFF ASL-INT-CROCK2 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ASL-INT-CROCK2 . ASL-INT-CROCK2-OFF) (DISABLED-LEMMAS NIL ASL-INT-CROCK2 ASL-INT-CROCK2-OFF . T))))) (PUT1-LST (QUOTE ASL-INT-CROCK1-OFF) (QUOTE (IDATE 1000402214912 EVENT (TOGGLE ASL-INT-CROCK1-OFF ASL-INT-CROCK1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ASL-INT-CROCK1 . ASL-INT-CROCK1-OFF) (DISABLED-LEMMAS NIL ASL-INT-CROCK1 ASL-INT-CROCK1-OFF . T))))) (PUT1-LST (QUOTE ASL-INT) (QUOTE (IDATE 1000402214912 IMMEDIATE-DEPENDENTS0 (ASL-BMI ASL-BEQ) EVENT (PROVE-LEMMA ASL-INT (REWRITE) (IMPLIES (AND (NAT-RANGEP X N) (INT-RANGEP (NAT-TO-INT X N) (DIFFERENCE N S))) (EQUAL (NAT-TO-INT (ASL N X S) N) (ITIMES (NAT-TO-INT X N) (EXP (QUOTE 2) S)))) ((DISABLE HEAD))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-EXP2-LESSP . ASL-INT) (IMMEDIATE-DEPENDENTS0 ASL-INT-CROCK1 . ASL-INT) (IMMEDIATE-DEPENDENTS0 HEAD . ASL-INT) (IMMEDIATE-DEPENDENTS0 TIMES-LESSP . ASL-INT) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-SUB1-SUB1 . ASL-INT) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS . ASL-INT) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-PLUS2 . ASL-INT) (IMMEDIATE-DEPENDENTS0 EXP-PLUS . ASL-INT) (IMMEDIATE-DEPENDENTS0 TIMES-LESSP-LINEAR . ASL-INT) (IMMEDIATE-DEPENDENTS0 ASL-INT-CROCK2 . ASL-INT) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-DIFFERENCE2 . ASL-INT) (IMMEDIATE-DEPENDENTS0 TIMES-1 . ASL-INT) (IMMEDIATE-DEPENDENTS0 HEAD-LESSP . ASL-INT) (IMMEDIATE-DEPENDENTS0 LESSP-OF-1 . ASL-INT) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . ASL-INT) (IMMEDIATE-DEPENDENTS0 HEAD-OF-0 . ASL-INT) (IMMEDIATE-DEPENDENTS0 FIX-INT . ASL-INT) (IMMEDIATE-DEPENDENTS0 TIMES-EQUAL-0 . ASL-INT) (IMMEDIATE-DEPENDENTS0 INTEGERP . ASL-INT) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . ASL-INT) (IMMEDIATE-DEPENDENTS0 NEGP . ASL-INT) (IMMEDIATE-DEPENDENTS0 DIFFERENCE=0 . ASL-INT) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . ASL-INT) (IMMEDIATE-DEPENDENTS0 EXP-OF-2-0 . ASL-INT) (IMMEDIATE-DEPENDENTS0 HEAD-LEMMA . ASL-INT) (IMMEDIATE-DEPENDENTS0 EXP . ASL-INT) (IMMEDIATE-DEPENDENTS0 ITIMES . ASL-INT) (IMMEDIATE-DEPENDENTS0 ASL . ASL-INT) (IMMEDIATE-DEPENDENTS0 NAT-TO-INT . ASL-INT) (IMMEDIATE-DEPENDENTS0 INT-RANGEP . ASL-INT) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . ASL-INT) (LEMMAS NAT-TO-INT . ASL-INT))))) (PUT1-LST (QUOTE ASL-INT-CROCK2) (QUOTE (IDATE 1000402214909 IMMEDIATE-DEPENDENTS0 (ASL-INT-CROCK2-OFF ASL-INT) EVENT (PROVE-LEMMA ASL-INT-CROCK2 (REWRITE) (IMPLIES (AND (IF (LESSP (EXP (QUOTE 2) (SUB1 N)) (TIMES (EXP (QUOTE 2) S) (DIFFERENCE (EXP (QUOTE 2) N) X))) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (LESSP X (EXP (QUOTE 2) N))) (EQUAL (HEAD (TIMES X (EXP (QUOTE 2) S)) N) (DIFFERENCE (EXP (QUOTE 2) N) (TIMES (EXP (QUOTE 2) S) (DIFFERENCE (EXP (QUOTE 2) N) X))))) ((USE (REMAINDER-DIFF-LA (X (TIMES (EXP (QUOTE 2) N) (EXP (QUOTE 2) S))) (Y (DIFFERENCE (TIMES (EXP (QUOTE 2) N) (EXP (QUOTE 2) S)) (TIMES X (EXP (QUOTE 2) S)))) (Z (EXP (QUOTE 2) N)))) (DISABLE EXP-PLUS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . ASL-INT-CROCK2) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS . ASL-INT-CROCK2) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-DIFFERENCE2 . ASL-INT-CROCK2) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . ASL-INT-CROCK2) (IMMEDIATE-DEPENDENTS0 TIMES-DISTRIBUTES-DIFFERENCE . ASL-INT-CROCK2) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-LESSP-TIMES . ASL-INT-CROCK2) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-LESSP . ASL-INT-CROCK2) (IMMEDIATE-DEPENDENTS0 TIMES-EQUAL-0 . ASL-INT-CROCK2) (IMMEDIATE-DEPENDENTS0 DIFFERENCE=0 . ASL-INT-CROCK2) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . ASL-INT-CROCK2) (IMMEDIATE-DEPENDENTS0 TIMES-LESSP-1 . ASL-INT-CROCK2) (IMMEDIATE-DEPENDENTS0 LESSP-OF-1 . ASL-INT-CROCK2) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . ASL-INT-CROCK2) (IMMEDIATE-DEPENDENTS0 TIMES-1 . ASL-INT-CROCK2) (IMMEDIATE-DEPENDENTS0 REMAINDER-0 . ASL-INT-CROCK2) (IMMEDIATE-DEPENDENTS0 TIMES-LESSP . ASL-INT-CROCK2) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY1 . ASL-INT-CROCK2) (IMMEDIATE-DEPENDENTS0 TIMES-EXP2-LESSP . ASL-INT-CROCK2) (IMMEDIATE-DEPENDENTS0 EXP-OF-2-0 . ASL-INT-CROCK2) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-X-X . ASL-INT-CROCK2) (IMMEDIATE-DEPENDENTS0 EXP-OF-2-1 . ASL-INT-CROCK2) (IMMEDIATE-DEPENDENTS0 TIMES-DISTRIBUTES-DIFFERENCE1 . ASL-INT-CROCK2) (IMMEDIATE-DEPENDENTS0 REMAINDER-TIMES . ASL-INT-CROCK2) (IMMEDIATE-DEPENDENTS0 REMAINDER-DIFF-LA . ASL-INT-CROCK2) (IMMEDIATE-DEPENDENTS0 HEAD . ASL-INT-CROCK2) (IMMEDIATE-DEPENDENTS0 EXP . ASL-INT-CROCK2) (LEMMAS HEAD . ASL-INT-CROCK2))))) (PUT1-LST (QUOTE ASL-INT-CROCK1) (QUOTE (IDATE 1000402214909 IMMEDIATE-DEPENDENTS0 (ASL-INT-CROCK1-OFF ASL-INT) EVENT (PROVE-LEMMA ASL-INT-CROCK1 (REWRITE) (IMPLIES (LESSP X (EXP (QUOTE 2) (SUB1 (DIFFERENCE N S)))) (EQUAL (HEAD (TIMES X (EXP (QUOTE 2) S)) N) (TIMES X (EXP (QUOTE 2) S))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-1 . ASL-INT-CROCK1) (IMMEDIATE-DEPENDENTS0 EXP-OF-2-0 . ASL-INT-CROCK1) (IMMEDIATE-DEPENDENTS0 REMAINDER-LESSP-LINEAR . ASL-INT-CROCK1) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . ASL-INT-CROCK1) (IMMEDIATE-DEPENDENTS0 LESSP-OF-1 . ASL-INT-CROCK1) (IMMEDIATE-DEPENDENTS0 REMAINDER-EXIT . ASL-INT-CROCK1) (IMMEDIATE-DEPENDENTS0 DIFFERENCE=0 . ASL-INT-CROCK1) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . ASL-INT-CROCK1) (IMMEDIATE-DEPENDENTS0 REMAINDER-TIMES-EXP2-1 . ASL-INT-CROCK1) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-EQUAL-TIMES . ASL-INT-CROCK1) (IMMEDIATE-DEPENDENTS0 HEAD . ASL-INT-CROCK1) (IMMEDIATE-DEPENDENTS0 EXP . ASL-INT-CROCK1) (LEMMAS HEAD . ASL-INT-CROCK1))))) (PUT1-LST (QUOTE REMAINDER-DIFF-LA) (QUOTE (IDATE 1000402214909 IMMEDIATE-DEPENDENTS0 (REMAINDER-DIFF ASL-INT-CROCK2) EVENT (PROVE-LEMMA REMAINDER-DIFF-LA NIL (IMPLIES (AND (EQUAL (REMAINDER X Z) (QUOTE 0)) (LESSP Y Z)) (EQUAL (REMAINDER (DIFFERENCE X Y) Z) (IF (IF (LESSP Y X) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (QUOTE 0) (IF (ZEROP Y) (QUOTE 0) (DIFFERENCE Z Y))))) ((USE (REMAINDER-PLUS2 (I (DIFFERENCE X Z)) (X (DIFFERENCE Z Y)) (J Z))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIFFERENCE-X-X . REMAINDER-DIFF-LA) (IMMEDIATE-DEPENDENTS0 REMAINDER-EXIT . REMAINDER-DIFF-LA) (IMMEDIATE-DEPENDENTS0 DIFFERENCE=0 . REMAINDER-DIFF-LA) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . REMAINDER-DIFF-LA) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-PLUS2 . REMAINDER-DIFF-LA) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-DIFFERENCE1 . REMAINDER-DIFF-LA) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS . REMAINDER-DIFF-LA) (IMMEDIATE-DEPENDENTS0 REMAINDER-0 . REMAINDER-DIFF-LA) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-LESSP . REMAINDER-DIFF-LA) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . REMAINDER-DIFF-LA) (IMMEDIATE-DEPENDENTS0 REMAINDER-PLUS2 . REMAINDER-DIFF-LA))))) (PUT1-LST (QUOTE LSR-UINT) (QUOTE (IDATE 1000402214908 EVENT (PROVE-LEMMA LSR-UINT (REWRITE) (EQUAL (NAT-TO-UINT (LSR X CNT)) (QUOTIENT (NAT-TO-UINT X) (EXP (QUOTE 2) CNT)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EXP-OF-2-0 . LSR-UINT) (IMMEDIATE-DEPENDENTS0 QUOTIENT-EXIT . LSR-UINT) (IMMEDIATE-DEPENDENTS0 QUOTIENT-0 . LSR-UINT) (IMMEDIATE-DEPENDENTS0 TAIL . LSR-UINT) (IMMEDIATE-DEPENDENTS0 EXP . LSR-UINT) (IMMEDIATE-DEPENDENTS0 LSR . LSR-UINT) (IMMEDIATE-DEPENDENTS0 NAT-TO-UINT . LSR-UINT) (LEMMAS NAT-TO-UINT . LSR-UINT))))) (PUT1-LST (QUOTE LSL-UINT) (QUOTE (IDATE 1000402214908 EVENT (PROVE-LEMMA LSL-UINT (REWRITE) (IMPLIES (UINT-RANGEP X (DIFFERENCE N CNT)) (EQUAL (NAT-TO-UINT (LSL N X CNT)) (TIMES (NAT-TO-UINT X) (EXP (QUOTE 2) CNT))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-EXIT . LSL-UINT) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . LSL-UINT) (IMMEDIATE-DEPENDENTS0 REMAINDER-TIMES-EXP2-1 . LSL-UINT) (IMMEDIATE-DEPENDENTS0 HEAD . LSL-UINT) (IMMEDIATE-DEPENDENTS0 EXP . LSL-UINT) (IMMEDIATE-DEPENDENTS0 LSL . LSL-UINT) (IMMEDIATE-DEPENDENTS0 NAT-TO-UINT . LSL-UINT) (IMMEDIATE-DEPENDENTS0 UINT-RANGEP . LSL-UINT) (LEMMAS NAT-TO-UINT . LSL-UINT))))) (PUT1-LST (QUOTE APP-0) (QUOTE (IDATE 1000402214908 IMMEDIATE-DEPENDENTS0 (S&R-GROUP-H READ-MEM-PLUS BYTE-READ=READ-MEM-1 PC-BYTE-READ=PC-READ-MEM-1 READ-WRITE-MEM2 EXT-EQUAL HEAD-APP-CANCEL HEAD-APP-HEAD-TAIL ASR-NAT-RANGEP ASR-0 ASR-INT-CROCK) EVENT (PROVE-LEMMA APP-0 (REWRITE) (AND (EQUAL (APP N X (QUOTE 0)) (HEAD X N)) (AND (EQUAL (APP N (QUOTE 0) Y) (TIMES Y (EXP (QUOTE 2) N))) (EQUAL (APP (QUOTE 0) X Y) (FIX Y))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . APP-0) (IMMEDIATE-DEPENDENTS0 TIMES-1 . APP-0) (IMMEDIATE-DEPENDENTS0 HEAD-OF-0 . APP-0) (IMMEDIATE-DEPENDENTS0 HEAD-LEMMA . APP-0) (IMMEDIATE-DEPENDENTS0 EXP-OF-2-0 . APP-0) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . APP-0) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . APP-0) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . APP-0) (IMMEDIATE-DEPENDENTS0 EXP . APP-0) (IMMEDIATE-DEPENDENTS0 HEAD . APP-0) (IMMEDIATE-DEPENDENTS0 APP . APP-0) (LEMMAS APP . APP-0) (LEMMAS APP . APP-0) (LEMMAS APP . APP-0))))) (PUT1-LST (QUOTE REPLACE-0) (QUOTE (IDATE 1000402214908 EVENT (PROVE-LEMMA REPLACE-0 (REWRITE) (AND (EQUAL (REPLACE (QUOTE 0) X Y) (FIX Y)) (AND (EQUAL (REPLACE N X (QUOTE 0)) (HEAD X N)) (IMPLIES (AND (NAT-RANGEP X N) (NAT-RANGEP Y N)) (EQUAL (REPLACE N X Y) (FIX X)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 HEAD-LEMMA . REPLACE-0) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . REPLACE-0) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . REPLACE-0) (IMMEDIATE-DEPENDENTS0 TAIL-LEMMA . REPLACE-0) (IMMEDIATE-DEPENDENTS0 EXP-OF-2-0 . REPLACE-0) (IMMEDIATE-DEPENDENTS0 APP . REPLACE-0) (IMMEDIATE-DEPENDENTS0 HEAD-OF-0 . REPLACE-0) (IMMEDIATE-DEPENDENTS0 EXP . REPLACE-0) (IMMEDIATE-DEPENDENTS0 TIMES-1 . REPLACE-0) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . REPLACE-0) (IMMEDIATE-DEPENDENTS0 TAIL-OF-0 . REPLACE-0) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . REPLACE-0) (IMMEDIATE-DEPENDENTS0 HEAD . REPLACE-0) (IMMEDIATE-DEPENDENTS0 REPLACE . REPLACE-0) (LEMMAS REPLACE . REPLACE-0) (LEMMAS REPLACE . REPLACE-0) (LEMMAS REPLACE . REPLACE-0))))) (PUT1-LST (QUOTE TAIL-LEMMA) (QUOTE (IDATE 1000402214908 IMMEDIATE-DEPENDENTS0 (LSR-Z-BITP READ-WRITE-MEM2 BYTE-READ-WRITE-MEM-LEMMA BITN-0 REPLACE-0) EVENT (PROVE-LEMMA TAIL-LEMMA (REWRITE) (IMPLIES (NAT-RANGEP X N) (EQUAL (TAIL X N) (QUOTE 0)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 QUOTIENT-EQUAL-0 . TAIL-LEMMA) (IMMEDIATE-DEPENDENTS0 TAIL . TAIL-LEMMA) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . TAIL-LEMMA) (LEMMAS TAIL . TAIL-LEMMA))))) (PUT1-LST (QUOTE HEAD-LEMMA) (QUOTE (IDATE 1000402214908 IMMEDIATE-DEPENDENTS0 (GCD-S0-S0-RFILE-2 GCD-S0-S0-RFILE-1 GCD-S0-S0-2 GCD-S0-S0-1 GCD-S0-SN-BASE-RFILE-2 GCD-S0-SN-BASE-2 GCD-S0-SN-BASE-RFILE-1 GCD-S0-SN-BASE-1 GCD-S-S0-MEM GCD-S-S0-RFILE GCD-S-S0 STEPI-H MISC-GROUP-H ADDR-INDEX2-MEM STEPN-READM-MEM MOD32-EQ-DEDUCTION3 MOD32-EQ-DEDUCTION2 MOD32-EQ-DEDUCTION1 PUT-GET-LST-IS-CPY WRITE-MEM-ILST WRITE-MEM-LST DISJOINT-LEQ DISJOINT0-LEQ MEM-LST-GET-VALS MEM-LST-GET-VALS0 MEM-LST-GET-LST MEM-LST-GET-LST0 BYTE-READ=READ-MEM-1 PC-BYTE-READ=PC-READ-MEM-1 INDEX-N-DEDUCTION1 INDEX-N-DEDUCTION0 INDEX-N-0 DISJOINT0-X-X DISJOINT-9~-ASL DISJOINT-9-ASL DISJOINT-14~ DISJOINT-13~ DISJOINT-12~ DISJOINT-9~ DISJOINT-8~ DISJOINT-5~ DISJOINT-4~ DISJOINT-COMMUTATIVITY DISJOINT-14 DISJOINT-13 DISJOINT-12 DISJOINT-9 DISJOINT-8 DISJOINT-5 DISJOINT-4 DISJOINT-LA1 DISJOINT0-LA1 DISJOINT0-LA0 DISJOINT0-HEAD READ-MEM-MCODE2 PC-READ-MEM-MCODE2 PC-BYTE-READ-MCODE2 READ-MEMP-RAM2 BYTE-READP-RAM2 WRITE-MEMP-RAM2 BYTE-WRITEP-RAM2 READ-MEMP-ROM2 BYTE-READP-ROM2 PC-READ-MEMP-ROM2 PC-BYTE-READP-ROM2 MOVE-BLE MOVE-BGT EXT-BEQ-UINT LSL-BEQ DIVU-BEQ MULU_3232-BEQ SUB-BEQ-EXT MOVE-BEQ-EXT MOVE-BEQ-INT-1 MOVE-BEQ-INT-0 MOVE-BEQ-UINT ADD-TREE-DELETE CORRECTNESS-OF-CANCEL-EQUAL-ADD ADD-TREE-BAGDIFF ADD-TREE-DELETE-EQUAL ADD-TREE-ADD-FRINGE ADD-TREE-APPEND EVAL$-ADD-MEMBER ADD-EQUAL-CANCEL-1 ADD-NEG-0 SUB-NEG NEG-ADD WRITE-MEM-BYTE-WRITE READ-WRITE-MEM2 BYTE-READ-WRITE-MEM-LEMMA HEAD-SUB1-LESSP READ-MEM-BYTE-WRITE BYTE-READ-WRITE-MEM BYTE-READ-WRITE MC-CCR-REWRITE MC-PC-REWRITE HEAD-EXT EXT-0 HEAD-APP-HEAD-TAIL APP-HEAD-TAIL ADDY-Y1 SUB-CANCEL SUB-CANCEL0 SUB-EQUAL-0 ADD-SUB-CANCEL SUB-LEQ-LA SUB-0 SUBTRACTER-NAT-LA SUB-NAT-LA IQUOT-INT EXT-INT ASR-INT ASR-INT-CROCK ASL-INT APP-0 REPLACE-0) EVENT (PROVE-LEMMA HEAD-LEMMA (REWRITE) (IMPLIES (NAT-RANGEP X N) (EQUAL (HEAD X N) (FIX X)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-EXIT . HEAD-LEMMA) (IMMEDIATE-DEPENDENTS0 HEAD . HEAD-LEMMA) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . HEAD-LEMMA) (LEMMAS HEAD . HEAD-LEMMA))))) (PUT1-LST (QUOTE TAIL-EQUAL-0) (QUOTE (IDATE 1000402214908 IMMEDIATE-DEPENDENTS0 (STEPI-H LSR-BEQ LSR-Z-BITP REPLACE-NAT-RANGEP) EVENT (PROVE-LEMMA TAIL-EQUAL-0 (REWRITE) (EQUAL (EQUAL (TAIL X N) (QUOTE 0)) (NAT-RANGEP X N))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EXP-OF-2-0 . TAIL-EQUAL-0) (IMMEDIATE-DEPENDENTS0 QUOTIENT-EQUAL-0 . TAIL-EQUAL-0) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . TAIL-EQUAL-0) (IMMEDIATE-DEPENDENTS0 TAIL . TAIL-EQUAL-0) (LEMMAS EQUAL . TAIL-EQUAL-0))))) (PUT1-LST (QUOTE TAIL-LEQ) (QUOTE (IDATE 1000402214908 IMMEDIATE-DEPENDENTS0 (AND-GROUP-H) EVENT (PROVE-LEMMA TAIL-LEQ (REWRITE) (NOT (LESSP X (TAIL X N)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 QUOTIENT-LEQ . TAIL-LEQ) (IMMEDIATE-DEPENDENTS0 TAIL . TAIL-LEQ) (LINEAR-LEMMAS TAIL . TAIL-LEQ))))) (PUT1-LST (QUOTE HEAD-LEQ) (QUOTE (IDATE 1000402214908 IMMEDIATE-DEPENDENTS0 (RAM-ADDRP-4 AND-GROUP-H HEAD-SUB1-LESSP) EVENT (PROVE-LEMMA HEAD-LEQ (REWRITE) (NOT (LESSP X (HEAD X N)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EXP-OF-2-0 . HEAD-LEQ) (IMMEDIATE-DEPENDENTS0 REMAINDER-LESSP-LINEAR . HEAD-LEQ) (IMMEDIATE-DEPENDENTS0 REMAINDER-EXIT . HEAD-LEQ) (IMMEDIATE-DEPENDENTS0 REMAINDER-LESSP . HEAD-LEQ) (IMMEDIATE-DEPENDENTS0 REMAINDER-QUOTIENT-ELIM . HEAD-LEQ) (IMMEDIATE-DEPENDENTS0 HEAD . HEAD-LEQ) (LINEAR-LEMMAS HEAD . HEAD-LEQ))))) (PUT1-LST (QUOTE TAIL-LESSP) (QUOTE (IDATE 1000402214908 IMMEDIATE-DEPENDENTS0 (STEPI-H TAIL-NAT-RANGEP REPLACE-NAT-RANGEP) EVENT (PROVE-LEMMA TAIL-LESSP (REWRITE) (EQUAL (LESSP (TAIL X N) Y) (LESSP X (TIMES (EXP (QUOTE 2) N) Y)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EXP-OF-2-0 . TAIL-LESSP) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . TAIL-LESSP) (IMMEDIATE-DEPENDENTS0 QUOTIENT-TIMES-LESSP . TAIL-LESSP) (IMMEDIATE-DEPENDENTS0 EXP . TAIL-LESSP) (IMMEDIATE-DEPENDENTS0 TAIL . TAIL-LESSP) (LEMMAS LESSP . TAIL-LESSP))))) (PUT1-LST (QUOTE HEAD-LESSP) (QUOTE (IDATE 1000402214908 IMMEDIATE-DEPENDENTS0 (READ-RN-INT-8_16 READ-RN-INT-16_32 READ-RN-INT-8_32 NEG-HEAD MODN-EQ-EQUAL APP-CANCEL HEAD-READ-RN HEAD-EXT PC-BYTE-READ-NAT-RANGEP READ-RN-NAT-RANGEP HEAD-NAT-RANGEP REPLACE-NAT-RANGEP APP-NAT-RANGEP ASL-INT) EVENT (PROVE-LEMMA HEAD-LESSP (REWRITE) (LESSP (HEAD X N) (EXP (QUOTE 2) N))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EXP-OF-2-0 . HEAD-LESSP) (IMMEDIATE-DEPENDENTS0 REMAINDER-LESSP . HEAD-LESSP) (IMMEDIATE-DEPENDENTS0 EXP . HEAD-LESSP) (IMMEDIATE-DEPENDENTS0 HEAD . HEAD-LESSP) (LINEAR-LEMMAS HEAD . HEAD-LESSP))))) (PUT1-LST (QUOTE TAIL-OF-0) (QUOTE (IDATE 1000402214908 IMMEDIATE-DEPENDENTS0 (S&R-GROUP-H AND-GROUP-H MC-INSTATE-MEM PUT-GET-LST-IS-CPY MEM-LST-GET-VALS MEM-LST-GET-VALS0 LSR-1-BCS&CC ASR-0 REPLACE-0) EVENT (PROVE-LEMMA TAIL-OF-0 (REWRITE) (EQUAL (TAIL X (QUOTE 0)) (FIX X))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EXP . TAIL-OF-0) (IMMEDIATE-DEPENDENTS0 QUOTIENT-1 . TAIL-OF-0) (IMMEDIATE-DEPENDENTS0 TAIL . TAIL-OF-0) (LEMMAS TAIL . TAIL-OF-0))))) (PUT1-LST (QUOTE HEAD-OF-0) (QUOTE (IDATE 1000402214908 IMMEDIATE-DEPENDENTS0 (S&R-GROUP-H READ-WRITE-MEM2 MODN-EQ-EQUAL HEAD-READ-RN HEAD-EXT HEAD-NAT-RANGEP ASL-INT APP-0 REPLACE-0) EVENT (PROVE-LEMMA HEAD-OF-0 (REWRITE) (EQUAL (HEAD X (QUOTE 0)) (QUOTE 0))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EXP . HEAD-OF-0) (IMMEDIATE-DEPENDENTS0 REMAINDER-1 . HEAD-OF-0) (IMMEDIATE-DEPENDENTS0 HEAD . HEAD-OF-0) (LEMMAS HEAD . HEAD-OF-0))))) (PUT1-LST (QUOTE TAIL-0) (QUOTE (IDATE 1000402214908 IMMEDIATE-DEPENDENTS0 (BITN-0) EVENT (PROVE-LEMMA TAIL-0 (REWRITE) (EQUAL (TAIL (QUOTE 0) N) (QUOTE 0))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 QUOTIENT-0 . TAIL-0) (IMMEDIATE-DEPENDENTS0 TAIL . TAIL-0) (LEMMAS TAIL . TAIL-0))))) (PUT1-LST (QUOTE HEAD-0) (QUOTE (IDATE 1000402214908 IMMEDIATE-DEPENDENTS0 (MOD32-EQ-DEDUCTION2 MOD32-EQ-DEDUCTION1 EXT-EQUAL-0 SUB-LEQ-LA) EVENT (PROVE-LEMMA HEAD-0 (REWRITE) (EQUAL (HEAD (QUOTE 0) N) (QUOTE 0))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-0 . HEAD-0) (IMMEDIATE-DEPENDENTS0 HEAD . HEAD-0) (LEMMAS HEAD . HEAD-0))))) (PUT1-LST (QUOTE LOGNOT-OFF) (QUOTE (IDATE 1000402214908 EVENT (TOGGLE LOGNOT-OFF LOGNOT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LOGNOT . LOGNOT-OFF) (DISABLED-LEMMAS NIL LOGNOT LOGNOT-OFF . T))))) (PUT1-LST (QUOTE ADDER-LOGNOT) (QUOTE (IDATE 1000402214908 IMMEDIATE-DEPENDENTS0 (SUB-SUB1 SUB-SUB) EVENT (PROVE-LEMMA ADDER-LOGNOT (REWRITE) (IMPLIES (BITP C) (EQUAL (LOGNOT N (ADDER N C X Y)) (ADDER N (B-NOT C) (LOGNOT N X) (LOGNOT N Y)))) ((DISABLE PLUS DIFFERENCE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-EQUAL-0 . ADDER-LOGNOT) (IMMEDIATE-DEPENDENTS0 EXP-LESSP . ADDER-LOGNOT) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-X-X . ADDER-LOGNOT) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-SUB1-SUB1 . ADDER-LOGNOT) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-EQUAL-PLUS . ADDER-LOGNOT) (IMMEDIATE-DEPENDENTS0 PLUS-ASSOCIATIVITY . ADDER-LOGNOT) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . ADDER-LOGNOT) (IMMEDIATE-DEPENDENTS0 REMAINDER-PLUS-PLUS-TIMES2 . ADDER-LOGNOT) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . ADDER-LOGNOT) (IMMEDIATE-DEPENDENTS0 REMAINDER-PLUS1 . ADDER-LOGNOT) (IMMEDIATE-DEPENDENTS0 REMAINDER-QUOTIENT-ELIM . ADDER-LOGNOT) (IMMEDIATE-DEPENDENTS0 REMAINDER-LESSP . ADDER-LOGNOT) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . ADDER-LOGNOT) (IMMEDIATE-DEPENDENTS0 DIFFERENCE=0 . ADDER-LOGNOT) (IMMEDIATE-DEPENDENTS0 SUB1-OF-1 . ADDER-LOGNOT) (IMMEDIATE-DEPENDENTS0 REMAINDER-LESSP-LINEAR . ADDER-LOGNOT) (IMMEDIATE-DEPENDENTS0 EXP-OF-2-0 . ADDER-LOGNOT) (IMMEDIATE-DEPENDENTS0 REMAINDER-0 . ADDER-LOGNOT) (IMMEDIATE-DEPENDENTS0 REMAINDER-PLUS2 . ADDER-LOGNOT) (IMMEDIATE-DEPENDENTS0 REMAINDER-REMAINDER-EXP2 . ADDER-LOGNOT) (IMMEDIATE-DEPENDENTS0 PLUS-ADD1 . ADDER-LOGNOT) (IMMEDIATE-DEPENDENTS0 REMAINDER-EXIT . ADDER-LOGNOT) (IMMEDIATE-DEPENDENTS0 REMAINDER-ADD1 . ADDER-LOGNOT) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . ADDER-LOGNOT) (IMMEDIATE-DEPENDENTS0 HEAD . ADDER-LOGNOT) (IMMEDIATE-DEPENDENTS0 B-NOT . ADDER-LOGNOT) (IMMEDIATE-DEPENDENTS0 ADDER . ADDER-LOGNOT) (IMMEDIATE-DEPENDENTS0 LOGNOT . ADDER-LOGNOT) (IMMEDIATE-DEPENDENTS0 BITP . ADDER-LOGNOT) (LEMMAS LOGNOT . ADDER-LOGNOT))))) (PUT1-LST (QUOTE LOGNOT-INT) (QUOTE (IDATE 1000402214902 IMMEDIATE-DEPENDENTS0 (SUBX-V-LA SUB-INT SUBTRACTER-INT) EVENT (PROVE-LEMMA LOGNOT-INT (REWRITE) (IMPLIES (AND (NAT-RANGEP X N) (NOT (ZEROP N))) (EQUAL (NAT-TO-INT (LOGNOT N X) N) (IPLUS (QUOTE -1) (INEG (NAT-TO-INT X N)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EXP-OF-2-0 . LOGNOT-INT) (IMMEDIATE-DEPENDENTS0 IZEROP . LOGNOT-INT) (IMMEDIATE-DEPENDENTS0 INTEGERP . LOGNOT-INT) (IMMEDIATE-DEPENDENTS0 DIFFERENCE=0 . LOGNOT-INT) (IMMEDIATE-DEPENDENTS0 NEGP . LOGNOT-INT) (IMMEDIATE-DEPENDENTS0 FIX-INT . LOGNOT-INT) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-DIFFERENCE1 . LOGNOT-INT) (IMMEDIATE-DEPENDENTS0 TIMES-EQUAL-0 . LOGNOT-INT) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . LOGNOT-INT) (IMMEDIATE-DEPENDENTS0 PLUS-ADD1 . LOGNOT-INT) (IMMEDIATE-DEPENDENTS0 LESSP-OF-1 . LOGNOT-INT) (IMMEDIATE-DEPENDENTS0 EXP . LOGNOT-INT) (IMMEDIATE-DEPENDENTS0 TIMES-LESSP . LOGNOT-INT) (IMMEDIATE-DEPENDENTS0 HEAD . LOGNOT-INT) (IMMEDIATE-DEPENDENTS0 REMAINDER-EXIT . LOGNOT-INT) (IMMEDIATE-DEPENDENTS0 INEG . LOGNOT-INT) (IMMEDIATE-DEPENDENTS0 IPLUS . LOGNOT-INT) (IMMEDIATE-DEPENDENTS0 LOGNOT . LOGNOT-INT) (IMMEDIATE-DEPENDENTS0 NAT-TO-INT . LOGNOT-INT) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . LOGNOT-INT) (LEMMAS NAT-TO-INT . LOGNOT-INT))))) (PUT1-LST (QUOTE LOGNOT-CANCEL) (QUOTE (IDATE 1000402214902 IMMEDIATE-DEPENDENTS0 (SUB-CANCEL) EVENT (PROVE-LEMMA LOGNOT-CANCEL (REWRITE) (IMPLIES (AND (NAT-RANGEP X N) (NAT-RANGEP Y N)) (EQUAL (EQUAL (LOGNOT N X) (LOGNOT N Y)) (EQUAL (FIX X) (FIX Y))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 HEAD . LOGNOT-CANCEL) (IMMEDIATE-DEPENDENTS0 REMAINDER-EXIT . LOGNOT-CANCEL) (IMMEDIATE-DEPENDENTS0 LOGNOT . LOGNOT-CANCEL) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . LOGNOT-CANCEL) (LEMMAS EQUAL . LOGNOT-CANCEL))))) (PUT1-LST (QUOTE LOGNOT-LOGNOT) (QUOTE (IDATE 1000402214902 IMMEDIATE-DEPENDENTS0 (SUB-SUB1) EVENT (PROVE-LEMMA LOGNOT-LOGNOT (REWRITE) (EQUAL (LOGNOT N (LOGNOT N X)) (HEAD X N))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EXP-OF-2-0 . LOGNOT-LOGNOT) (IMMEDIATE-DEPENDENTS0 REMAINDER-LESSP-LINEAR . LOGNOT-LOGNOT) (IMMEDIATE-DEPENDENTS0 REMAINDER-0 . LOGNOT-LOGNOT) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-DIFFERENCE1 . LOGNOT-LOGNOT) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-X-X . LOGNOT-LOGNOT) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-LESSP . LOGNOT-LOGNOT) (IMMEDIATE-DEPENDENTS0 REMAINDER-LESSP . LOGNOT-LOGNOT) (IMMEDIATE-DEPENDENTS0 DIFFERENCE=0 . LOGNOT-LOGNOT) (IMMEDIATE-DEPENDENTS0 REMAINDER-SUB1 . LOGNOT-LOGNOT) (IMMEDIATE-DEPENDENTS0 HEAD . LOGNOT-LOGNOT) (IMMEDIATE-DEPENDENTS0 LOGNOT . LOGNOT-LOGNOT) (LEMMAS LOGNOT . LOGNOT-LOGNOT))))) (PUT1-LST (QUOTE LOGNOT-NAT-RANGEP) (QUOTE (IDATE 1000402214901 IMMEDIATE-DEPENDENTS0 (SUBX-V-LA NOT-N-BITP SUB-INT SUBTRACTER-INT SUB-CANCEL) EVENT (PROVE-LEMMA LOGNOT-NAT-RANGEP (REWRITE) (NAT-RANGEP (LOGNOT N X) N)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-LESSP-LINEAR . LOGNOT-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 EXP-OF-2-0 . LOGNOT-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 HEAD . LOGNOT-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 LOGNOT . LOGNOT-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . LOGNOT-NAT-RANGEP) (LEMMAS NAT-RANGEP . LOGNOT-NAT-RANGEP))))) (PUT1-LST (QUOTE LOGNOT-0) (QUOTE (IDATE 1000402214901 IMMEDIATE-DEPENDENTS0 (BITN-LOGNOT SUBTRACTER-NAT-LA) EVENT (PROVE-LEMMA LOGNOT-0 (REWRITE) (IMPLIES (NOT (NUMBERP X)) (AND (EQUAL (LOGNOT X Y) (LOGNOT (QUOTE 0) Y)) (EQUAL (LOGNOT Y X) (LOGNOT Y (QUOTE 0)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 HEAD . LOGNOT-0) (IMMEDIATE-DEPENDENTS0 REMAINDER-1 . LOGNOT-0) (IMMEDIATE-DEPENDENTS0 EXP . LOGNOT-0) (IMMEDIATE-DEPENDENTS0 EXP-OF-2-0 . LOGNOT-0) (IMMEDIATE-DEPENDENTS0 REMAINDER-EXIT . LOGNOT-0) (IMMEDIATE-DEPENDENTS0 REMAINDER-0 . LOGNOT-0) (IMMEDIATE-DEPENDENTS0 LOGNOT . LOGNOT-0) (LEMMAS LOGNOT . LOGNOT-0) (LEMMAS LOGNOT . LOGNOT-0))))) (PUT1-LST (QUOTE EVENP-OFF) (QUOTE (IDATE 1000402214901 EVENT (TOGGLE EVENP-OFF EVENP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EVENP . EVENP-OFF) (DISABLED-LEMMAS NIL EVENP EVENP-OFF . T))))) (PUT1-LST (QUOTE ADD-EVENP) (QUOTE (IDATE 1000402214901 IMMEDIATE-DEPENDENTS0 (GCD-S0-S0-RFILE-2 GCD-S0-S0-RFILE-1 GCD-S0-S0-2 GCD-S0-S0-1 GCD-S0-SN-BASE-RFILE-2 GCD-S0-SN-BASE-2 GCD-S0-SN-BASE-RFILE-1 GCD-S0-SN-BASE-1 GCD-S-S0-MEM GCD-S-S0-RFILE GCD-S-S0) EVENT (PROVE-LEMMA ADD-EVENP (REWRITE) (IMPLIES (AND (EVENP X) (EVENP Y)) (EVENP (ADD N X Y)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-PLUS2 . ADD-EVENP) (IMMEDIATE-DEPENDENTS0 REMAINDER-REMAINDER-2 . ADD-EVENP) (IMMEDIATE-DEPENDENTS0 HEAD . ADD-EVENP) (IMMEDIATE-DEPENDENTS0 B0 . ADD-EVENP) (IMMEDIATE-DEPENDENTS0 BCAR . ADD-EVENP) (IMMEDIATE-DEPENDENTS0 B0P . ADD-EVENP) (IMMEDIATE-DEPENDENTS0 ADD . ADD-EVENP) (IMMEDIATE-DEPENDENTS0 EVENP . ADD-EVENP) (LEMMAS EVENP . ADD-EVENP))))) (PUT1-LST (QUOTE BV-ADDER-NAT) (QUOTE (IDATE 1000402214901 EVENT (PROVE-LEMMA BV-ADDER-NAT (REWRITE) (IMPLIES (AND (EQUAL (BV-LEN X) (BV-LEN Y)) (BITP C)) (EQUAL (BV-TO-NAT (BV-ADDER C X Y)) (ADDER (BV-LEN X) C (BV-TO-NAT X) (BV-TO-NAT Y)))) ((DISABLE REMAINDER))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-LESSP-LINEAR . BV-ADDER-NAT) (IMMEDIATE-DEPENDENTS0 REMAINDER-EXIT . BV-ADDER-NAT) (IMMEDIATE-DEPENDENTS0 BV-ADDER-BRIDGE . BV-ADDER-NAT) (IMMEDIATE-DEPENDENTS0 FIX-BIT . BV-ADDER-NAT) (IMMEDIATE-DEPENDENTS0 BV-ADDER&CARRY-NAT . BV-ADDER-NAT) (IMMEDIATE-DEPENDENTS0 BV-HEAD-NAT . BV-ADDER-NAT) (IMMEDIATE-DEPENDENTS0 PLUS-ADD1 . BV-ADDER-NAT) (IMMEDIATE-DEPENDENTS0 REMAINDER-ADD1 . BV-ADDER-NAT) (IMMEDIATE-DEPENDENTS0 HEAD . BV-ADDER-NAT) (IMMEDIATE-DEPENDENTS0 ADDER . BV-ADDER-NAT) (IMMEDIATE-DEPENDENTS0 BV-ADDER . BV-ADDER-NAT) (IMMEDIATE-DEPENDENTS0 BV-TO-NAT . BV-ADDER-NAT) (IMMEDIATE-DEPENDENTS0 BITP . BV-ADDER-NAT) (IMMEDIATE-DEPENDENTS0 BV-LEN . BV-ADDER-NAT) (LEMMAS BV-TO-NAT . BV-ADDER-NAT))))) (PUT1-LST (QUOTE BV-ADDER&CARRY-NAT) (QUOTE (IDATE 1000402214901 IMMEDIATE-DEPENDENTS0 (BV-ADDER-NAT) EVENT (PROVE-LEMMA BV-ADDER&CARRY-NAT (REWRITE) (IMPLIES (EQUAL (BV-LEN X) (BV-LEN Y)) (EQUAL (BV-TO-NAT (BV-ADDER&CARRY C X Y)) (PLUS (FIX-BIT C) (PLUS (BV-TO-NAT X) (BV-TO-NAT Y)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-ADD1 . BV-ADDER&CARRY-NAT) (IMMEDIATE-DEPENDENTS0 B-AND . BV-ADDER&CARRY-NAT) (IMMEDIATE-DEPENDENTS0 B-OR . BV-ADDER&CARRY-NAT) (IMMEDIATE-DEPENDENTS0 TIMES-DISTRIBUTES-PLUS-NEW . BV-ADDER&CARRY-NAT) (IMMEDIATE-DEPENDENTS0 B-EOR . BV-ADDER&CARRY-NAT) (IMMEDIATE-DEPENDENTS0 PLUS-ASSOCIATIVITY . BV-ADDER&CARRY-NAT) (IMMEDIATE-DEPENDENTS0 BIT . BV-ADDER&CARRY-NAT) (IMMEDIATE-DEPENDENTS0 VEC . BV-ADDER&CARRY-NAT) (IMMEDIATE-DEPENDENTS0 PLUS-ADD1 . BV-ADDER&CARRY-NAT) (IMMEDIATE-DEPENDENTS0 PLUS-ADD1-1 . BV-ADDER&CARRY-NAT) (IMMEDIATE-DEPENDENTS0 B1 . BV-ADDER&CARRY-NAT) (IMMEDIATE-DEPENDENTS0 B0P . BV-ADDER&CARRY-NAT) (IMMEDIATE-DEPENDENTS0 B0 . BV-ADDER&CARRY-NAT) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . BV-ADDER&CARRY-NAT) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY1 . BV-ADDER&CARRY-NAT) (IMMEDIATE-DEPENDENTS0 FIX-BIT . BV-ADDER&CARRY-NAT) (IMMEDIATE-DEPENDENTS0 BV-ADDER&CARRY . BV-ADDER&CARRY-NAT) (IMMEDIATE-DEPENDENTS0 BV-TO-NAT . BV-ADDER&CARRY-NAT) (IMMEDIATE-DEPENDENTS0 BV-LEN . BV-ADDER&CARRY-NAT) (LEMMAS BV-TO-NAT . BV-ADDER&CARRY-NAT))))) (PUT1-LST (QUOTE BV-MBIT-BITN) (QUOTE (IDATE 1000402214900 EVENT (PROVE-LEMMA BV-MBIT-BITN (REWRITE) (EQUAL (BV-MBIT X) (IF (EQUAL (BV-LEN X) (QUOTE 0)) (QUOTE 0) (BITN (BV-TO-NAT X) (SUB1 (BV-LEN X))))) ((DISABLE REMAINDER QUOTIENT))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 QUOTIENT-TIMES-CANCEL . BV-MBIT-BITN) (IMMEDIATE-DEPENDENTS0 QUOTIENT-DISTRIBUTES-TIMES2-ADD1 . BV-MBIT-BITN) (IMMEDIATE-DEPENDENTS0 EXP-OF-2-0 . BV-MBIT-BITN) (IMMEDIATE-DEPENDENTS0 EXP . BV-MBIT-BITN) (IMMEDIATE-DEPENDENTS0 REMAINDER-WRT-2 . BV-MBIT-BITN) (IMMEDIATE-DEPENDENTS0 REMAINDER-ADD1 . BV-MBIT-BITN) (IMMEDIATE-DEPENDENTS0 PLUS-ADD1 . BV-MBIT-BITN) (IMMEDIATE-DEPENDENTS0 QUOTIENT-ADD1 . BV-MBIT-BITN) (IMMEDIATE-DEPENDENTS0 B1 . BV-MBIT-BITN) (IMMEDIATE-DEPENDENTS0 B0P . BV-MBIT-BITN) (IMMEDIATE-DEPENDENTS0 BIT . BV-MBIT-BITN) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . BV-MBIT-BITN) (IMMEDIATE-DEPENDENTS0 VEC . BV-MBIT-BITN) (IMMEDIATE-DEPENDENTS0 B0 . BV-MBIT-BITN) (IMMEDIATE-DEPENDENTS0 BV-LEN-LISTP . BV-MBIT-BITN) (IMMEDIATE-DEPENDENTS0 TAIL . BV-MBIT-BITN) (IMMEDIATE-DEPENDENTS0 BCAR . BV-MBIT-BITN) (IMMEDIATE-DEPENDENTS0 BV-TO-NAT . BV-MBIT-BITN) (IMMEDIATE-DEPENDENTS0 BITN . BV-MBIT-BITN) (IMMEDIATE-DEPENDENTS0 BV-LEN . BV-MBIT-BITN) (IMMEDIATE-DEPENDENTS0 BV-MBIT . BV-MBIT-BITN) (LEMMAS BV-MBIT . BV-MBIT-BITN))))) (PUT1-LST (QUOTE BV-BITN-BITN) (QUOTE (IDATE 1000402214859 IMMEDIATE-DEPENDENTS0 (BITN-LOGNOT) EVENT (PROVE-LEMMA BV-BITN-BITN (REWRITE) (EQUAL (BV-BITN X N) (BITN (BV-TO-NAT X) N)) ((DISABLE REMAINDER QUOTIENT))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 QUOTIENT-DISTRIBUTES-TIMES2-ADD1 . BV-BITN-BITN) (IMMEDIATE-DEPENDENTS0 QUOTIENT-TIMES-CANCEL . BV-BITN-BITN) (IMMEDIATE-DEPENDENTS0 VEC . BV-BITN-BITN) (IMMEDIATE-DEPENDENTS0 REMAINDER-WRT-2 . BV-BITN-BITN) (IMMEDIATE-DEPENDENTS0 QUOTIENT-0 . BV-BITN-BITN) (IMMEDIATE-DEPENDENTS0 PLUS-ADD1 . BV-BITN-BITN) (IMMEDIATE-DEPENDENTS0 REMAINDER-ADD1 . BV-BITN-BITN) (IMMEDIATE-DEPENDENTS0 REMAINDER-TIMES . BV-BITN-BITN) (IMMEDIATE-DEPENDENTS0 BIT . BV-BITN-BITN) (IMMEDIATE-DEPENDENTS0 B0 . BV-BITN-BITN) (IMMEDIATE-DEPENDENTS0 B0P . BV-BITN-BITN) (IMMEDIATE-DEPENDENTS0 B1 . BV-BITN-BITN) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . BV-BITN-BITN) (IMMEDIATE-DEPENDENTS0 EXP . BV-BITN-BITN) (IMMEDIATE-DEPENDENTS0 QUOTIENT-1 . BV-BITN-BITN) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . BV-BITN-BITN) (IMMEDIATE-DEPENDENTS0 TAIL . BV-BITN-BITN) (IMMEDIATE-DEPENDENTS0 BCAR . BV-BITN-BITN) (IMMEDIATE-DEPENDENTS0 BV-TO-NAT . BV-BITN-BITN) (IMMEDIATE-DEPENDENTS0 BITN . BV-BITN-BITN) (IMMEDIATE-DEPENDENTS0 BV-BITN . BV-BITN-BITN) (LEMMAS BV-BITN . BV-BITN-BITN))))) (PUT1-LST (QUOTE BV-NOT-LOGNOT) (QUOTE (IDATE 1000402214859 IMMEDIATE-DEPENDENTS0 (BITN-LOGNOT) EVENT (PROVE-LEMMA BV-NOT-LOGNOT (REWRITE) (EQUAL (BV-TO-NAT (BV-NOT X)) (LOGNOT (BV-LEN X) (BV-TO-NAT X))) ((DISABLE REMAINDER QUOTIENT))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-LESSP . BV-NOT-LOGNOT) (IMMEDIATE-DEPENDENTS0 DIFFERENCE=0 . BV-NOT-LOGNOT) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-SUB1 . BV-NOT-LOGNOT) (IMMEDIATE-DEPENDENTS0 TIMES-ADD1-SUB1 . BV-NOT-LOGNOT) (IMMEDIATE-DEPENDENTS0 TIMES-DISTRIBUTES-REMAINDER . BV-NOT-LOGNOT) (IMMEDIATE-DEPENDENTS0 TIMES-DISTRIBUTES-DIFFERENCE . BV-NOT-LOGNOT) (IMMEDIATE-DEPENDENTS0 EXP-OF-2-0 . BV-NOT-LOGNOT) (IMMEDIATE-DEPENDENTS0 REMAINDER-LESSP-LINEAR . BV-NOT-LOGNOT) (IMMEDIATE-DEPENDENTS0 PLUS-ADD1 . BV-NOT-LOGNOT) (IMMEDIATE-DEPENDENTS0 REMAINDER-DISTRIBUTES-TIMES2-ADD1 . BV-NOT-LOGNOT) (IMMEDIATE-DEPENDENTS0 TIMES-EQUAL-0 . BV-NOT-LOGNOT) (IMMEDIATE-DEPENDENTS0 B1 . BV-NOT-LOGNOT) (IMMEDIATE-DEPENDENTS0 B0P . BV-NOT-LOGNOT) (IMMEDIATE-DEPENDENTS0 B0 . BV-NOT-LOGNOT) (IMMEDIATE-DEPENDENTS0 BIT . BV-NOT-LOGNOT) (IMMEDIATE-DEPENDENTS0 B-NOT . BV-NOT-LOGNOT) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . BV-NOT-LOGNOT) (IMMEDIATE-DEPENDENTS0 EXP . BV-NOT-LOGNOT) (IMMEDIATE-DEPENDENTS0 VEC . BV-NOT-LOGNOT) (IMMEDIATE-DEPENDENTS0 HEAD . BV-NOT-LOGNOT) (IMMEDIATE-DEPENDENTS0 BV-LEN . BV-NOT-LOGNOT) (IMMEDIATE-DEPENDENTS0 LOGNOT . BV-NOT-LOGNOT) (IMMEDIATE-DEPENDENTS0 BV-NOT . BV-NOT-LOGNOT) (IMMEDIATE-DEPENDENTS0 BV-TO-NAT . BV-NOT-LOGNOT) (LEMMAS BV-TO-NAT . BV-NOT-LOGNOT))))) (PUT1-LST (QUOTE BV-ADDER-BRIDGE) (QUOTE (IDATE 1000402214859 IMMEDIATE-DEPENDENTS0 (BV-ADDER-NAT) EVENT (PROVE-LEMMA BV-ADDER-BRIDGE (REWRITE) (EQUAL (BV-ADDER C X Y) (BV-HEAD (BV-ADDER&CARRY C X Y) (BV-LEN X)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-AND . BV-ADDER-BRIDGE) (IMMEDIATE-DEPENDENTS0 B-OR . BV-ADDER-BRIDGE) (IMMEDIATE-DEPENDENTS0 BIT . BV-ADDER-BRIDGE) (IMMEDIATE-DEPENDENTS0 B-EOR . BV-ADDER-BRIDGE) (IMMEDIATE-DEPENDENTS0 B1 . BV-ADDER-BRIDGE) (IMMEDIATE-DEPENDENTS0 B0P . BV-ADDER-BRIDGE) (IMMEDIATE-DEPENDENTS0 B0 . BV-ADDER-BRIDGE) (IMMEDIATE-DEPENDENTS0 FIX-BIT . BV-ADDER-BRIDGE) (IMMEDIATE-DEPENDENTS0 VEC . BV-ADDER-BRIDGE) (IMMEDIATE-DEPENDENTS0 BV-LEN . BV-ADDER-BRIDGE) (IMMEDIATE-DEPENDENTS0 BV-ADDER&CARRY . BV-ADDER-BRIDGE) (IMMEDIATE-DEPENDENTS0 BV-HEAD . BV-ADDER-BRIDGE) (IMMEDIATE-DEPENDENTS0 BV-ADDER . BV-ADDER-BRIDGE) (LEMMAS BV-ADDER . BV-ADDER-BRIDGE))))) (PUT1-LST (QUOTE FIX-BV-ADDER&CARRY) (QUOTE (IDATE 1000402214858 EVENT (PROVE-LEMMA FIX-BV-ADDER&CARRY (REWRITE) (EQUAL (FIX-BV (BV-ADDER&CARRY C X Y)) (BV-ADDER&CARRY C X Y))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-EOR . FIX-BV-ADDER&CARRY) (IMMEDIATE-DEPENDENTS0 B1 . FIX-BV-ADDER&CARRY) (IMMEDIATE-DEPENDENTS0 B0P . FIX-BV-ADDER&CARRY) (IMMEDIATE-DEPENDENTS0 B0 . FIX-BV-ADDER&CARRY) (IMMEDIATE-DEPENDENTS0 FIX-BIT . FIX-BV-ADDER&CARRY) (IMMEDIATE-DEPENDENTS0 BIT . FIX-BV-ADDER&CARRY) (IMMEDIATE-DEPENDENTS0 VEC . FIX-BV-ADDER&CARRY) (IMMEDIATE-DEPENDENTS0 BV-ADDER&CARRY . FIX-BV-ADDER&CARRY) (IMMEDIATE-DEPENDENTS0 FIX-BV . FIX-BV-ADDER&CARRY) (LEMMAS FIX-BV . FIX-BV-ADDER&CARRY))))) (PUT1-LST (QUOTE BV-ADDER&CARRY-LEN) (QUOTE (IDATE 1000402214858 EVENT (PROVE-LEMMA BV-ADDER&CARRY-LEN (REWRITE) (EQUAL (BV-LEN (BV-ADDER&CARRY C X Y)) (ADD1 (BV-LEN X)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BIT . BV-ADDER&CARRY-LEN) (IMMEDIATE-DEPENDENTS0 B1 . BV-ADDER&CARRY-LEN) (IMMEDIATE-DEPENDENTS0 B0P . BV-ADDER&CARRY-LEN) (IMMEDIATE-DEPENDENTS0 B0 . BV-ADDER&CARRY-LEN) (IMMEDIATE-DEPENDENTS0 FIX-BIT . BV-ADDER&CARRY-LEN) (IMMEDIATE-DEPENDENTS0 VEC . BV-ADDER&CARRY-LEN) (IMMEDIATE-DEPENDENTS0 BV-ADDER&CARRY . BV-ADDER&CARRY-LEN) (IMMEDIATE-DEPENDENTS0 BV-LEN . BV-ADDER&CARRY-LEN) (LEMMAS BV-LEN . BV-ADDER&CARRY-LEN))))) (PUT1-LST (QUOTE *1*BV-ADDER&CARRY) (QUOTE (MAIN-EVENT BV-ADDER&CARRY))) (PUT1-LST (QUOTE BV-ADDER&CARRY) (QUOTE (TYPE-PRESCRIPTION-LST ((BV-ADDER&CARRY 16 NIL NIL NIL)) TOTALP-LST ((BV-ADDER&CARRY . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE SELF-REFLEXIVE) SDEFN (LAMBDA (C X Y) (IF (LISTP X) (CONS (B-EOR C (B-EOR (BIT X) (BIT Y))) (BV-ADDER&CARRY (B-OR (B-AND (BIT X) (BIT Y)) (B-OR (B-AND (BIT X) C) (B-AND (BIT Y) C))) (VEC X) (VEC Y))) (CONS (FIX-BIT C) (QUOTE NIL)))) LISP-CODE *1*BV-ADDER&CARRY SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((NLISTP X)) NIL) (TESTS-AND-CASES ((NOT (NLISTP X))) (((B-OR (B-AND (BIT X) (BIT Y)) (B-OR (B-AND (BIT X) C) (B-AND (BIT Y) C))) (VEC X) (VEC Y))))) LEVEL-NO 1 JUSTIFICATIONS ((JUSTIFICATION (X) (COUNT X) LESSP (ZERO CDR-LESSP NLISTP VEC))) IDATE 1000402214858 CONTROLLER-POCKETS (2) SATELLITES (*1*BV-ADDER&CARRY) IMMEDIATE-DEPENDENTS0 (BV-ADDER&CARRY-NAT BV-ADDER-BRIDGE FIX-BV-ADDER&CARRY BV-ADDER&CARRY-LEN) EVENT (DEFN BV-ADDER&CARRY (C X Y) (IF (NLISTP X) (CONS (FIX-BIT C) (QUOTE NIL)) (CONS (B-EOR C (B-EOR (BIT X) (BIT Y))) (BV-ADDER&CARRY (B-OR (B-AND (BIT X) (BIT Y)) (B-OR (B-AND (BIT X) C) (B-AND (BIT Y) C))) (VEC X) (VEC Y))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-AND . BV-ADDER&CARRY) (IMMEDIATE-DEPENDENTS0 B-OR . BV-ADDER&CARRY) (IMMEDIATE-DEPENDENTS0 BIT . BV-ADDER&CARRY) (IMMEDIATE-DEPENDENTS0 B-EOR . BV-ADDER&CARRY) (IMMEDIATE-DEPENDENTS0 FIX-BIT . BV-ADDER&CARRY) (IMMEDIATE-DEPENDENTS0 VEC . BV-ADDER&CARRY) (DCELL . *1*BV-ADDER&CARRY))))) (PUT1-LST (QUOTE BV-TO-NAT-RANGEP) (QUOTE (IDATE 1000402214858 EVENT (PROVE-LEMMA BV-TO-NAT-RANGEP (REWRITE) (NAT-RANGEP (BV-TO-NAT X) (BV-LEN X))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B1 . BV-TO-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 B0P . BV-TO-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 B0 . BV-TO-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 BIT . BV-TO-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . BV-TO-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 EXP . BV-TO-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 VEC . BV-TO-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 BV-LEN . BV-TO-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 BV-TO-NAT . BV-TO-NAT-RANGEP) (IMMEDIATE-DEPENDENTS0 NAT-RANGEP . BV-TO-NAT-RANGEP) (LEMMAS NAT-RANGEP . BV-TO-NAT-RANGEP))))) (PUT1-LST (QUOTE BV-BITN-NOT) (QUOTE (IDATE 1000402214858 IMMEDIATE-DEPENDENTS0 (BITN-LOGNOT) EVENT (PROVE-LEMMA BV-BITN-NOT (REWRITE) (EQUAL (BV-BITN (BV-NOT X) I) (IF (LESSP I (BV-LEN X)) (B-NOT (BV-BITN X I)) (B0)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 VEC . BV-BITN-NOT) (IMMEDIATE-DEPENDENTS0 BIT . BV-BITN-NOT) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . BV-BITN-NOT) (IMMEDIATE-DEPENDENTS0 B1 . BV-BITN-NOT) (IMMEDIATE-DEPENDENTS0 B0P . BV-BITN-NOT) (IMMEDIATE-DEPENDENTS0 B0 . BV-BITN-NOT) (IMMEDIATE-DEPENDENTS0 B-NOT . BV-BITN-NOT) (IMMEDIATE-DEPENDENTS0 BV-LEN . BV-BITN-NOT) (IMMEDIATE-DEPENDENTS0 BV-NOT . BV-BITN-NOT) (IMMEDIATE-DEPENDENTS0 BV-BITN . BV-BITN-NOT) (LEMMAS BV-BITN . BV-BITN-NOT))))) (PUT1-LST (QUOTE NAT-TO-BV-SIZED-HEAD-OFF) (QUOTE (IDATE 1000402214858 EVENT (TOGGLE NAT-TO-BV-SIZED-HEAD-OFF NAT-TO-BV-SIZED-HEAD T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NAT-TO-BV-SIZED-HEAD . NAT-TO-BV-SIZED-HEAD-OFF) (DISABLED-LEMMAS NIL NAT-TO-BV-SIZED-HEAD NAT-TO-BV-SIZED-HEAD-OFF . T))))) (PUT1-LST (QUOTE BV-SIZED-TO-NAT-HEAD-OFF) (QUOTE (IDATE 1000402214858 EVENT (TOGGLE BV-SIZED-TO-NAT-HEAD-OFF BV-SIZED-TO-NAT-HEAD T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BV-SIZED-TO-NAT-HEAD . BV-SIZED-TO-NAT-HEAD-OFF) (DISABLED-LEMMAS NIL BV-SIZED-TO-NAT-HEAD BV-SIZED-TO-NAT-HEAD-OFF . T))))) (PUT1-LST (QUOTE NAT-TO-BV-SIZED-SIZED-TO-NAT) (QUOTE (IDATE 1000402214858 EVENT (PROVE-LEMMA NAT-TO-BV-SIZED-SIZED-TO-NAT (REWRITE) (EQUAL (BV-SIZED-TO-NAT (NAT-TO-BV-SIZED M N) N) (IF (LESSP M (EXP (QUOTE 2) N)) (FIX M) (REMAINDER M (EXP (QUOTE 2) N))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-LESSP-LINEAR . NAT-TO-BV-SIZED-SIZED-TO-NAT) (IMMEDIATE-DEPENDENTS0 EXP-OF-2-0 . NAT-TO-BV-SIZED-SIZED-TO-NAT) (IMMEDIATE-DEPENDENTS0 NAT-TO-BV-TO-NAT . NAT-TO-BV-SIZED-SIZED-TO-NAT) (IMMEDIATE-DEPENDENTS0 BV-HEAD-NAT . NAT-TO-BV-SIZED-SIZED-TO-NAT) (IMMEDIATE-DEPENDENTS0 BV-SIZED-TO-NAT-HEAD . NAT-TO-BV-SIZED-SIZED-TO-NAT) (IMMEDIATE-DEPENDENTS0 NAT-TO-BV-SIZED-HEAD . NAT-TO-BV-SIZED-SIZED-TO-NAT) (IMMEDIATE-DEPENDENTS0 EXP . NAT-TO-BV-SIZED-SIZED-TO-NAT) (IMMEDIATE-DEPENDENTS0 NAT-TO-BV-SIZED . NAT-TO-BV-SIZED-SIZED-TO-NAT) (IMMEDIATE-DEPENDENTS0 BV-SIZED-TO-NAT . NAT-TO-BV-SIZED-SIZED-TO-NAT) (LEMMAS BV-SIZED-TO-NAT . NAT-TO-BV-SIZED-SIZED-TO-NAT))))) (PUT1-LST (QUOTE BV-SIZED-TO-NAT-TO-BV-SIZED) (QUOTE (IDATE 1000402214858 EVENT (PROVE-LEMMA BV-SIZED-TO-NAT-TO-BV-SIZED (REWRITE) (EQUAL (NAT-TO-BV-SIZED (BV-SIZED-TO-NAT X N) N) (BV-HEAD X N))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B1 . BV-SIZED-TO-NAT-TO-BV-SIZED) (IMMEDIATE-DEPENDENTS0 B0P . BV-SIZED-TO-NAT-TO-BV-SIZED) (IMMEDIATE-DEPENDENTS0 B0 . BV-SIZED-TO-NAT-TO-BV-SIZED) (IMMEDIATE-DEPENDENTS0 BIT . BV-SIZED-TO-NAT-TO-BV-SIZED) (IMMEDIATE-DEPENDENTS0 VEC . BV-SIZED-TO-NAT-TO-BV-SIZED) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . BV-SIZED-TO-NAT-TO-BV-SIZED) (IMMEDIATE-DEPENDENTS0 BV-TO-NAT-TO-BV-SIZED . BV-SIZED-TO-NAT-TO-BV-SIZED) (IMMEDIATE-DEPENDENTS0 BV-SIZED-TO-NAT-HEAD . BV-SIZED-TO-NAT-TO-BV-SIZED) (IMMEDIATE-DEPENDENTS0 BV-HEAD . BV-SIZED-TO-NAT-TO-BV-SIZED) (IMMEDIATE-DEPENDENTS0 BV-SIZED-TO-NAT . BV-SIZED-TO-NAT-TO-BV-SIZED) (IMMEDIATE-DEPENDENTS0 NAT-TO-BV-SIZED . BV-SIZED-TO-NAT-TO-BV-SIZED) (LEMMAS NAT-TO-BV-SIZED . BV-SIZED-TO-NAT-TO-BV-SIZED))))) (PUT1-LST (QUOTE NAT-TO-BV-SIZED-TO-NAT) (QUOTE (IDATE 1000402214858 IMMEDIATE-DEPENDENTS0 (BITN-LOGNOT) EVENT (PROVE-LEMMA NAT-TO-BV-SIZED-TO-NAT (REWRITE) (EQUAL (BV-TO-NAT (NAT-TO-BV-SIZED M N)) (IF (LESSP M (EXP (QUOTE 2) N)) (FIX M) (REMAINDER M (EXP (QUOTE 2) N))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EXP-OF-2-0 . NAT-TO-BV-SIZED-TO-NAT) (IMMEDIATE-DEPENDENTS0 NAT-TO-BV-TO-NAT . NAT-TO-BV-SIZED-TO-NAT) (IMMEDIATE-DEPENDENTS0 BV-HEAD-NAT . NAT-TO-BV-SIZED-TO-NAT) (IMMEDIATE-DEPENDENTS0 NAT-TO-BV-SIZED-HEAD . NAT-TO-BV-SIZED-TO-NAT) (IMMEDIATE-DEPENDENTS0 EXP . NAT-TO-BV-SIZED-TO-NAT) (IMMEDIATE-DEPENDENTS0 NAT-TO-BV-SIZED . NAT-TO-BV-SIZED-TO-NAT) (IMMEDIATE-DEPENDENTS0 BV-TO-NAT . NAT-TO-BV-SIZED-TO-NAT) (LEMMAS BV-TO-NAT . NAT-TO-BV-SIZED-TO-NAT))))) (PUT1-LST (QUOTE BV-TO-NAT-TO-BV-SIZED) (QUOTE (IDATE 1000402214858 IMMEDIATE-DEPENDENTS0 (BV-SIZED-TO-NAT-TO-BV-SIZED) EVENT (PROVE-LEMMA BV-TO-NAT-TO-BV-SIZED (REWRITE) (EQUAL (NAT-TO-BV-SIZED (BV-TO-NAT X) N) (BV-HEAD X N))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BV-TO-NAT-TO-BV . BV-TO-NAT-TO-BV-SIZED) (IMMEDIATE-DEPENDENTS0 NAT-TO-BV-SIZED-HEAD . BV-TO-NAT-TO-BV-SIZED) (IMMEDIATE-DEPENDENTS0 BV-HEAD . BV-TO-NAT-TO-BV-SIZED) (IMMEDIATE-DEPENDENTS0 BV-TO-NAT . BV-TO-NAT-TO-BV-SIZED) (IMMEDIATE-DEPENDENTS0 NAT-TO-BV-SIZED . BV-TO-NAT-TO-BV-SIZED) (LEMMAS NAT-TO-BV-SIZED . BV-TO-NAT-TO-BV-SIZED))))) (PUT1-LST (QUOTE BV-HEAD-NAT) (QUOTE (IDATE 1000402214858 IMMEDIATE-DEPENDENTS0 (BV-ADDER-NAT NAT-TO-BV-SIZED-SIZED-TO-NAT NAT-TO-BV-SIZED-TO-NAT) EVENT (PROVE-LEMMA BV-HEAD-NAT (REWRITE) (EQUAL (BV-TO-NAT (BV-HEAD X N)) (IF (LESSP (BV-TO-NAT X) (EXP (QUOTE 2) N)) (BV-TO-NAT X) (REMAINDER (BV-TO-NAT X) (EXP (QUOTE 2) N))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-LESSP . BV-HEAD-NAT) (IMMEDIATE-DEPENDENTS0 TIMES-EQUAL-0 . BV-HEAD-NAT) (IMMEDIATE-DEPENDENTS0 EXP-OF-2-0 . BV-HEAD-NAT) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-LESSP-TIMES . BV-HEAD-NAT) (IMMEDIATE-DEPENDENTS0 TIMES-DISTRIBUTES-REMAINDER . BV-HEAD-NAT) (IMMEDIATE-DEPENDENTS0 PLUS-ADD1 . BV-HEAD-NAT) (IMMEDIATE-DEPENDENTS0 TIMES2-ADD1-LESSP-CANCEL . BV-HEAD-NAT) (IMMEDIATE-DEPENDENTS0 REMAINDER-DISTRIBUTES-TIMES2-ADD1 . BV-HEAD-NAT) (IMMEDIATE-DEPENDENTS0 VEC . BV-HEAD-NAT) (IMMEDIATE-DEPENDENTS0 B1 . BV-HEAD-NAT) (IMMEDIATE-DEPENDENTS0 B0P . BV-HEAD-NAT) (IMMEDIATE-DEPENDENTS0 B0 . BV-HEAD-NAT) (IMMEDIATE-DEPENDENTS0 BIT . BV-HEAD-NAT) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . BV-HEAD-NAT) (IMMEDIATE-DEPENDENTS0 LESSP-OF-1 . BV-HEAD-NAT) (IMMEDIATE-DEPENDENTS0 REMAINDER-1 . BV-HEAD-NAT) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . BV-HEAD-NAT) (IMMEDIATE-DEPENDENTS0 EXP . BV-HEAD-NAT) (IMMEDIATE-DEPENDENTS0 BV-HEAD . BV-HEAD-NAT) (IMMEDIATE-DEPENDENTS0 BV-TO-NAT . BV-HEAD-NAT) (LEMMAS BV-TO-NAT . BV-HEAD-NAT))))) (PUT1-LST (QUOTE NAT-TO-BV-TO-NAT) (QUOTE (IDATE 1000402214857 IMMEDIATE-DEPENDENTS0 (NAT-TO-BV-SIZED-SIZED-TO-NAT NAT-TO-BV-SIZED-TO-NAT) EVENT (PROVE-LEMMA NAT-TO-BV-TO-NAT (REWRITE) (EQUAL (BV-TO-NAT (NAT-TO-BV N)) (FIX N))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-LESSP . NAT-TO-BV-TO-NAT) (IMMEDIATE-DEPENDENTS0 REMAINDER-QUOTIENT-ELIM . NAT-TO-BV-TO-NAT) (IMMEDIATE-DEPENDENTS0 PLUS-ADD1 . NAT-TO-BV-TO-NAT) (IMMEDIATE-DEPENDENTS0 REMAINDER-WRT-2 . NAT-TO-BV-TO-NAT) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . NAT-TO-BV-TO-NAT) (IMMEDIATE-DEPENDENTS0 VEC . NAT-TO-BV-TO-NAT) (IMMEDIATE-DEPENDENTS0 BIT . NAT-TO-BV-TO-NAT) (IMMEDIATE-DEPENDENTS0 B0 . NAT-TO-BV-TO-NAT) (IMMEDIATE-DEPENDENTS0 B0P . NAT-TO-BV-TO-NAT) (IMMEDIATE-DEPENDENTS0 B1 . NAT-TO-BV-TO-NAT) (IMMEDIATE-DEPENDENTS0 TIMES-LESSP . NAT-TO-BV-TO-NAT) (IMMEDIATE-DEPENDENTS0 QUOTIENT-TIMES-LESSP . NAT-TO-BV-TO-NAT) (IMMEDIATE-DEPENDENTS0 NAT-TO-BV . NAT-TO-BV-TO-NAT) (IMMEDIATE-DEPENDENTS0 BV-TO-NAT . NAT-TO-BV-TO-NAT) (LEMMAS BV-TO-NAT . NAT-TO-BV-TO-NAT))))) (PUT1-LST (QUOTE BV-TO-NAT-TO-BV) (QUOTE (IDATE 1000402214857 IMMEDIATE-DEPENDENTS0 (BV-TO-NAT-TO-BV-SIZED) EVENT (PROVE-LEMMA BV-TO-NAT-TO-BV (REWRITE) (EQUAL (BV-HEAD (NAT-TO-BV (BV-TO-NAT X)) N) (BV-HEAD X N)) ((DISABLE PLUS-ADD1))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 QUOTIENT-PLUS-TIMES1 . BV-TO-NAT-TO-BV) (IMMEDIATE-DEPENDENTS0 REMAINDER-PLUS-TIMES1 . BV-TO-NAT-TO-BV) (IMMEDIATE-DEPENDENTS0 PLUS-EQUAL-0 . BV-TO-NAT-TO-BV) (IMMEDIATE-DEPENDENTS0 QUOTIENT-TIMES . BV-TO-NAT-TO-BV) (IMMEDIATE-DEPENDENTS0 REMAINDER-TIMES . BV-TO-NAT-TO-BV) (IMMEDIATE-DEPENDENTS0 TIMES-EQUAL-0 . BV-TO-NAT-TO-BV) (IMMEDIATE-DEPENDENTS0 VEC . BV-TO-NAT-TO-BV) (IMMEDIATE-DEPENDENTS0 B1 . BV-TO-NAT-TO-BV) (IMMEDIATE-DEPENDENTS0 B0P . BV-TO-NAT-TO-BV) (IMMEDIATE-DEPENDENTS0 B0 . BV-TO-NAT-TO-BV) (IMMEDIATE-DEPENDENTS0 BIT . BV-TO-NAT-TO-BV) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . BV-TO-NAT-TO-BV) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . BV-TO-NAT-TO-BV) (IMMEDIATE-DEPENDENTS0 BV-TO-NAT . BV-TO-NAT-TO-BV) (IMMEDIATE-DEPENDENTS0 NAT-TO-BV . BV-TO-NAT-TO-BV) (IMMEDIATE-DEPENDENTS0 BV-HEAD . BV-TO-NAT-TO-BV) (LEMMAS BV-HEAD . BV-TO-NAT-TO-BV))))) (PUT1-LST (QUOTE BV-SIZED-TO-NAT-HEAD) (QUOTE (IDATE 1000402214857 IMMEDIATE-DEPENDENTS0 (BV-SIZED-TO-NAT-HEAD-OFF NAT-TO-BV-SIZED-SIZED-TO-NAT BV-SIZED-TO-NAT-TO-BV-SIZED) EVENT (PROVE-LEMMA BV-SIZED-TO-NAT-HEAD (REWRITE) (EQUAL (BV-SIZED-TO-NAT X N) (BV-TO-NAT (BV-HEAD X N)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B1 . BV-SIZED-TO-NAT-HEAD) (IMMEDIATE-DEPENDENTS0 B0P . BV-SIZED-TO-NAT-HEAD) (IMMEDIATE-DEPENDENTS0 B0 . BV-SIZED-TO-NAT-HEAD) (IMMEDIATE-DEPENDENTS0 BIT . BV-SIZED-TO-NAT-HEAD) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . BV-SIZED-TO-NAT-HEAD) (IMMEDIATE-DEPENDENTS0 VEC . BV-SIZED-TO-NAT-HEAD) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-EQUAL-PLUS . BV-SIZED-TO-NAT-HEAD) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . BV-SIZED-TO-NAT-HEAD) (IMMEDIATE-DEPENDENTS0 BV-HEAD . BV-SIZED-TO-NAT-HEAD) (IMMEDIATE-DEPENDENTS0 BV-TO-NAT . BV-SIZED-TO-NAT-HEAD) (IMMEDIATE-DEPENDENTS0 BV-SIZED-TO-NAT . BV-SIZED-TO-NAT-HEAD) (LEMMAS BV-SIZED-TO-NAT . BV-SIZED-TO-NAT-HEAD))))) (PUT1-LST (QUOTE NAT-TO-BV-SIZED-HEAD) (QUOTE (IDATE 1000402214857 IMMEDIATE-DEPENDENTS0 (NAT-TO-BV-SIZED-HEAD-OFF NAT-TO-BV-SIZED-SIZED-TO-NAT NAT-TO-BV-SIZED-TO-NAT BV-TO-NAT-TO-BV-SIZED) EVENT (PROVE-LEMMA NAT-TO-BV-SIZED-HEAD (REWRITE) (EQUAL (NAT-TO-BV-SIZED M N) (BV-HEAD (NAT-TO-BV M) N))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 QUOTIENT-EXIT . NAT-TO-BV-SIZED-HEAD) (IMMEDIATE-DEPENDENTS0 REMAINDER-EXIT . NAT-TO-BV-SIZED-HEAD) (IMMEDIATE-DEPENDENTS0 REMAINDER-WRT-2 . NAT-TO-BV-SIZED-HEAD) (IMMEDIATE-DEPENDENTS0 VEC . NAT-TO-BV-SIZED-HEAD) (IMMEDIATE-DEPENDENTS0 BIT . NAT-TO-BV-SIZED-HEAD) (IMMEDIATE-DEPENDENTS0 B0 . NAT-TO-BV-SIZED-HEAD) (IMMEDIATE-DEPENDENTS0 B0P . NAT-TO-BV-SIZED-HEAD) (IMMEDIATE-DEPENDENTS0 B1 . NAT-TO-BV-SIZED-HEAD) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . NAT-TO-BV-SIZED-HEAD) (IMMEDIATE-DEPENDENTS0 NAT-TO-BV . NAT-TO-BV-SIZED-HEAD) (IMMEDIATE-DEPENDENTS0 BV-HEAD . NAT-TO-BV-SIZED-HEAD) (IMMEDIATE-DEPENDENTS0 NAT-TO-BV-SIZED . NAT-TO-BV-SIZED-HEAD) (LEMMAS NAT-TO-BV-SIZED . NAT-TO-BV-SIZED-HEAD))))) (PUT1-LST (QUOTE NAT-TO-BV-SIZED-LA0) (QUOTE (IDATE 1000402214857 EVENT (PROVE-LEMMA NAT-TO-BV-SIZED-LA0 (REWRITE) (EQUAL (NAT-TO-BV-SIZED (REMAINDER N (EXP (QUOTE 2) K)) K) (NAT-TO-BV-SIZED N K))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-OF-1 . NAT-TO-BV-SIZED-LA0) (IMMEDIATE-DEPENDENTS0 SUB1-OF-1 . NAT-TO-BV-SIZED-LA0) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . NAT-TO-BV-SIZED-LA0) (IMMEDIATE-DEPENDENTS0 REMAINDER-PLUS-TIMES2 . NAT-TO-BV-SIZED-LA0) (IMMEDIATE-DEPENDENTS0 TIMES-DISTRIBUTES-REMAINDER . NAT-TO-BV-SIZED-LA0) (IMMEDIATE-DEPENDENTS0 REMAINDER-PLUS2 . NAT-TO-BV-SIZED-LA0) (IMMEDIATE-DEPENDENTS0 QUOTIENT-TIMES . NAT-TO-BV-SIZED-LA0) (IMMEDIATE-DEPENDENTS0 REMAINDER-TIMES . NAT-TO-BV-SIZED-LA0) (IMMEDIATE-DEPENDENTS0 PLUS-ADD1 . NAT-TO-BV-SIZED-LA0) (IMMEDIATE-DEPENDENTS0 REMAINDER-DISTRIBUTES-TIMES2-ADD1 . NAT-TO-BV-SIZED-LA0) (IMMEDIATE-DEPENDENTS0 QUOTIENT-ADD1 . NAT-TO-BV-SIZED-LA0) (IMMEDIATE-DEPENDENTS0 REMAINDER-ADD1 . NAT-TO-BV-SIZED-LA0) (IMMEDIATE-DEPENDENTS0 QUOTIENT-EXIT . NAT-TO-BV-SIZED-LA0) (IMMEDIATE-DEPENDENTS0 REMAINDER-0 . NAT-TO-BV-SIZED-LA0) (IMMEDIATE-DEPENDENTS0 REMAINDER-1 . NAT-TO-BV-SIZED-LA0) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . NAT-TO-BV-SIZED-LA0) (IMMEDIATE-DEPENDENTS0 EXP-OF-2-0 . NAT-TO-BV-SIZED-LA0) (IMMEDIATE-DEPENDENTS0 REMAINDER-EXIT . NAT-TO-BV-SIZED-LA0) (IMMEDIATE-DEPENDENTS0 REMAINDER-LESSP . NAT-TO-BV-SIZED-LA0) (IMMEDIATE-DEPENDENTS0 REMAINDER-QUOTIENT-ELIM . NAT-TO-BV-SIZED-LA0) (IMMEDIATE-DEPENDENTS0 EXP . NAT-TO-BV-SIZED-LA0) (IMMEDIATE-DEPENDENTS0 NAT-TO-BV-SIZED . NAT-TO-BV-SIZED-LA0) (LEMMAS NAT-TO-BV-SIZED . NAT-TO-BV-SIZED-LA0))))) (PUT1-LST (QUOTE BV-ADDER-LEN) (QUOTE (IDATE 1000402214856 EVENT (PROVE-LEMMA BV-ADDER-LEN (REWRITE) (EQUAL (BV-LEN (BV-ADDER C X Y)) (BV-LEN X))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B1 . BV-ADDER-LEN) (IMMEDIATE-DEPENDENTS0 B0P . BV-ADDER-LEN) (IMMEDIATE-DEPENDENTS0 B0 . BV-ADDER-LEN) (IMMEDIATE-DEPENDENTS0 BIT . BV-ADDER-LEN) (IMMEDIATE-DEPENDENTS0 B-EOR . BV-ADDER-LEN) (IMMEDIATE-DEPENDENTS0 VEC . BV-ADDER-LEN) (IMMEDIATE-DEPENDENTS0 BV-ADDER . BV-ADDER-LEN) (IMMEDIATE-DEPENDENTS0 BV-LEN . BV-ADDER-LEN) (LEMMAS BV-LEN . BV-ADDER-LEN))))) (PUT1-LST (QUOTE NAT-TO-BV-SIZED-LEN) (QUOTE (IDATE 1000402214856 IMMEDIATE-DEPENDENTS0 (BITN-LOGNOT) EVENT (PROVE-LEMMA NAT-TO-BV-SIZED-LEN (REWRITE) (EQUAL (BV-LEN (NAT-TO-BV-SIZED X N)) (FIX N))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 VEC . NAT-TO-BV-SIZED-LEN) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . NAT-TO-BV-SIZED-LEN) (IMMEDIATE-DEPENDENTS0 NAT-TO-BV-SIZED . NAT-TO-BV-SIZED-LEN) (IMMEDIATE-DEPENDENTS0 BV-LEN . NAT-TO-BV-SIZED-LEN) (LEMMAS BV-LEN . NAT-TO-BV-SIZED-LEN))))) (PUT1-LST (QUOTE BV-HEAD-LEN) (QUOTE (IDATE 1000402214856 EVENT (PROVE-LEMMA BV-HEAD-LEN (REWRITE) (EQUAL (BV-LEN (BV-HEAD X N)) (FIX N))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B1 . BV-HEAD-LEN) (IMMEDIATE-DEPENDENTS0 B0P . BV-HEAD-LEN) (IMMEDIATE-DEPENDENTS0 B0 . BV-HEAD-LEN) (IMMEDIATE-DEPENDENTS0 BIT . BV-HEAD-LEN) (IMMEDIATE-DEPENDENTS0 VEC . BV-HEAD-LEN) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . BV-HEAD-LEN) (IMMEDIATE-DEPENDENTS0 BV-HEAD . BV-HEAD-LEN) (IMMEDIATE-DEPENDENTS0 BV-LEN . BV-HEAD-LEN) (LEMMAS BV-LEN . BV-HEAD-LEN))))) (PUT1-LST (QUOTE BV-ADDER-LISTP) (QUOTE (IDATE 1000402214856 EVENT (PROVE-LEMMA BV-ADDER-LISTP (REWRITE) (EQUAL (LISTP (BV-ADDER C X Y)) (LISTP X))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B1 . BV-ADDER-LISTP) (IMMEDIATE-DEPENDENTS0 B0P . BV-ADDER-LISTP) (IMMEDIATE-DEPENDENTS0 B0 . BV-ADDER-LISTP) (IMMEDIATE-DEPENDENTS0 BIT . BV-ADDER-LISTP) (IMMEDIATE-DEPENDENTS0 B-EOR . BV-ADDER-LISTP) (IMMEDIATE-DEPENDENTS0 VEC . BV-ADDER-LISTP) (IMMEDIATE-DEPENDENTS0 BV-ADDER . BV-ADDER-LISTP) (LEMMAS LISTP . BV-ADDER-LISTP))))) (PUT1-LST (QUOTE BV-HEAD-LISTP) (QUOTE (IDATE 1000402214856 EVENT (PROVE-LEMMA BV-HEAD-LISTP (REWRITE) (EQUAL (LISTP (BV-HEAD X N)) (NOT (ZEROP N))) ((EXPAND (BV-HEAD X (QUOTE 1))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUB1-OF-1 . BV-HEAD-LISTP) (IMMEDIATE-DEPENDENTS0 B1 . BV-HEAD-LISTP) (IMMEDIATE-DEPENDENTS0 B0P . BV-HEAD-LISTP) (IMMEDIATE-DEPENDENTS0 B0 . BV-HEAD-LISTP) (IMMEDIATE-DEPENDENTS0 BIT . BV-HEAD-LISTP) (IMMEDIATE-DEPENDENTS0 VEC . BV-HEAD-LISTP) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . BV-HEAD-LISTP) (IMMEDIATE-DEPENDENTS0 BV-HEAD . BV-HEAD-LISTP) (LEMMAS LISTP . BV-HEAD-LISTP))))) (PUT1-LST (QUOTE BV-LEN-LISTP) (QUOTE (IDATE 1000402214856 IMMEDIATE-DEPENDENTS0 (BV-MBIT-BITN) EVENT (PROVE-LEMMA BV-LEN-LISTP (REWRITE) (EQUAL (EQUAL (BV-LEN X) (QUOTE 0)) (NLISTP X))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 VEC . BV-LEN-LISTP) (IMMEDIATE-DEPENDENTS0 BV-LEN . BV-LEN-LISTP) (LEMMAS EQUAL . BV-LEN-LISTP))))) (PUT1-LST (QUOTE *1*NAT-TO-BV-SIZED) (QUOTE (MAIN-EVENT NAT-TO-BV-SIZED))) (PUT1-LST (QUOTE NAT-TO-BV-SIZED) (QUOTE (TYPE-PRESCRIPTION-LST ((NAT-TO-BV-SIZED 24 NIL NIL)) LEMMAS ((REWRITE-RULE BV-SIZED-TO-NAT-TO-BV-SIZED NIL (EQUAL (NAT-TO-BV-SIZED (BV-SIZED-TO-NAT X N) N) (BV-HEAD X N)) NIL) (REWRITE-RULE BV-TO-NAT-TO-BV-SIZED NIL (EQUAL (NAT-TO-BV-SIZED (BV-TO-NAT X) N) (BV-HEAD X N)) NIL) (REWRITE-RULE NAT-TO-BV-SIZED-HEAD NIL (EQUAL (NAT-TO-BV-SIZED M N) (BV-HEAD (NAT-TO-BV M) N)) NIL) (REWRITE-RULE NAT-TO-BV-SIZED-LA0 NIL (EQUAL (NAT-TO-BV-SIZED (REMAINDER N (EXP (QUOTE 2) K)) K) (NAT-TO-BV-SIZED N K)) NIL)) TOTALP-LST ((NAT-TO-BV-SIZED . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE) SDEFN (LAMBDA (N SIZE) (IF (EQUAL SIZE (QUOTE 0)) (QUOTE NIL) (IF (NUMBERP SIZE) (CONS (REMAINDER N (QUOTE 2)) (NAT-TO-BV-SIZED (QUOTIENT N (QUOTE 2)) (SUB1 SIZE))) (QUOTE NIL)))) LISP-CODE *1*NAT-TO-BV-SIZED SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((ZEROP SIZE)) NIL) (TESTS-AND-CASES ((NOT (ZEROP SIZE))) (((QUOTIENT N (QUOTE 2)) (SUB1 SIZE))))) LEVEL-NO 3 JUSTIFICATIONS ((JUSTIFICATION (SIZE) (COUNT SIZE) LESSP (ZEROP COUNT-NUMBERP LESSP-SUB1))) IDATE 1000402214856 CONTROLLER-POCKETS (2) SATELLITES (*1*NAT-TO-BV-SIZED) IMMEDIATE-DEPENDENTS0 (NAT-TO-BV-SIZED-SIZED-TO-NAT BV-SIZED-TO-NAT-TO-BV-SIZED NAT-TO-BV-SIZED-TO-NAT BV-TO-NAT-TO-BV-SIZED NAT-TO-BV-SIZED-HEAD NAT-TO-BV-SIZED-LA0 NAT-TO-BV-SIZED-LEN) EVENT (DEFN NAT-TO-BV-SIZED (N SIZE) (IF (ZEROP SIZE) (QUOTE NIL) (CONS (REMAINDER N (QUOTE 2)) (NAT-TO-BV-SIZED (QUOTIENT N (QUOTE 2)) (SUB1 SIZE))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . NAT-TO-BV-SIZED) (DCELL . *1*NAT-TO-BV-SIZED))))) (PUT1-LST (QUOTE *1*NAT-TO-BV) (QUOTE (MAIN-EVENT NAT-TO-BV))) (PUT1-LST (QUOTE NAT-TO-BV) (QUOTE (TYPE-PRESCRIPTION-LST ((NAT-TO-BV 24 NIL)) TOTALP-LST ((NAT-TO-BV . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE) SDEFN (LAMBDA (N) (IF (EQUAL N (QUOTE 0)) (QUOTE NIL) (IF (NUMBERP N) (CONS (REMAINDER N (QUOTE 2)) (NAT-TO-BV (QUOTIENT N (QUOTE 2)))) (QUOTE NIL)))) LISP-CODE *1*NAT-TO-BV SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((ZEROP N)) NIL) (TESTS-AND-CASES ((NOT (ZEROP N))) (((QUOTIENT N (QUOTE 2)))))) LEVEL-NO 3 JUSTIFICATIONS ((JUSTIFICATION (N) (COUNT N) LESSP (ZEROP COUNT-NUMBERP EQUAL NUMBERP ZERO TIMES-LESSP QUOTIENT-TIMES-LESSP))) IDATE 1000402214856 CONTROLLER-POCKETS (1) SATELLITES (*1*NAT-TO-BV) IMMEDIATE-DEPENDENTS0 (NAT-TO-BV-TO-NAT BV-TO-NAT-TO-BV NAT-TO-BV-SIZED-HEAD) EVENT (DEFN NAT-TO-BV (N) (IF (ZEROP N) (QUOTE NIL) (CONS (REMAINDER N (QUOTE 2)) (NAT-TO-BV (QUOTIENT N (QUOTE 2)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-LESSP . NAT-TO-BV) (IMMEDIATE-DEPENDENTS0 QUOTIENT-TIMES-LESSP . NAT-TO-BV) (DCELL . *1*NAT-TO-BV))))) (PUT1-LST (QUOTE *1*BV-SIZED-TO-NAT) (QUOTE (MAIN-EVENT BV-SIZED-TO-NAT))) (PUT1-LST (QUOTE BV-SIZED-TO-NAT) (QUOTE (TYPE-PRESCRIPTION-LST ((BV-SIZED-TO-NAT 4 NIL NIL)) LEMMAS ((REWRITE-RULE NAT-TO-BV-SIZED-SIZED-TO-NAT NIL (EQUAL (BV-SIZED-TO-NAT (NAT-TO-BV-SIZED M N) N) (IF (LESSP M (EXP (QUOTE 2) N)) (IF (NUMBERP M) M (QUOTE 0)) (REMAINDER M (EXP (QUOTE 2) N)))) NIL) (REWRITE-RULE BV-SIZED-TO-NAT-HEAD NIL (EQUAL (BV-SIZED-TO-NAT X N) (BV-TO-NAT (BV-HEAD X N))) NIL)) TOTALP-LST ((BV-SIZED-TO-NAT . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE) SDEFN (LAMBDA (BV SIZE) (IF (EQUAL SIZE (QUOTE 0)) (QUOTE 0) (IF (NUMBERP SIZE) (PLUS (BIT BV) (TIMES (QUOTE 2) (BV-SIZED-TO-NAT (VEC BV) (SUB1 SIZE)))) (QUOTE 0)))) LISP-CODE *1*BV-SIZED-TO-NAT SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((ZEROP SIZE)) NIL) (TESTS-AND-CASES ((NOT (ZEROP SIZE))) (((VEC BV) (SUB1 SIZE))))) LEVEL-NO 3 JUSTIFICATIONS ((JUSTIFICATION (SIZE) (COUNT SIZE) LESSP (ZEROP COUNT-NUMBERP LESSP-SUB1))) IDATE 1000402214856 CONTROLLER-POCKETS (2) SATELLITES (*1*BV-SIZED-TO-NAT) IMMEDIATE-DEPENDENTS0 (NAT-TO-BV-SIZED-SIZED-TO-NAT BV-SIZED-TO-NAT-TO-BV-SIZED BV-SIZED-TO-NAT-HEAD) EVENT (DEFN BV-SIZED-TO-NAT (BV SIZE) (IF (ZEROP SIZE) (QUOTE 0) (PLUS (BIT BV) (TIMES (QUOTE 2) (BV-SIZED-TO-NAT (VEC BV) (SUB1 SIZE)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 VEC . BV-SIZED-TO-NAT) (IMMEDIATE-DEPENDENTS0 BIT . BV-SIZED-TO-NAT) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . BV-SIZED-TO-NAT) (DCELL . *1*BV-SIZED-TO-NAT))))) (PUT1-LST (QUOTE *1*BV-TO-NAT) (QUOTE (MAIN-EVENT BV-TO-NAT))) (PUT1-LST (QUOTE BV-TO-NAT) (QUOTE (TYPE-PRESCRIPTION-LST ((BV-TO-NAT 4 NIL)) LEMMAS ((REWRITE-RULE BV-ADDER-NAT ((EQUAL (BV-LEN X) (BV-LEN Y)) (BITP C)) (EQUAL (BV-TO-NAT (BV-ADDER C X Y)) (ADDER (BV-LEN X) C (BV-TO-NAT X) (BV-TO-NAT Y))) NIL) (REWRITE-RULE BV-ADDER&CARRY-NAT ((EQUAL (BV-LEN X) (BV-LEN Y))) (EQUAL (BV-TO-NAT (BV-ADDER&CARRY C X Y)) (PLUS (FIX-BIT C) (PLUS (BV-TO-NAT X) (BV-TO-NAT Y)))) NIL) (REWRITE-RULE BV-NOT-LOGNOT NIL (EQUAL (BV-TO-NAT (BV-NOT X)) (LOGNOT (BV-LEN X) (BV-TO-NAT X))) NIL) (REWRITE-RULE NAT-TO-BV-SIZED-TO-NAT NIL (EQUAL (BV-TO-NAT (NAT-TO-BV-SIZED M N)) (IF (LESSP M (EXP (QUOTE 2) N)) (IF (NUMBERP M) M (QUOTE 0)) (REMAINDER M (EXP (QUOTE 2) N)))) NIL) (REWRITE-RULE BV-HEAD-NAT NIL (EQUAL (BV-TO-NAT (BV-HEAD X N)) (IF (LESSP (BV-TO-NAT X) (EXP (QUOTE 2) N)) (BV-TO-NAT X) (REMAINDER (BV-TO-NAT X) (EXP (QUOTE 2) N)))) NIL) (REWRITE-RULE NAT-TO-BV-TO-NAT NIL (EQUAL (BV-TO-NAT (NAT-TO-BV N)) (IF (NUMBERP N) N (QUOTE 0))) NIL)) TOTALP-LST ((BV-TO-NAT . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE) SDEFN (LAMBDA (BV) (IF (LISTP BV) (PLUS (BIT BV) (TIMES (QUOTE 2) (BV-TO-NAT (VEC BV)))) (QUOTE 0))) LISP-CODE *1*BV-TO-NAT SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((NLISTP BV)) NIL) (TESTS-AND-CASES ((NOT (NLISTP BV))) (((VEC BV))))) LEVEL-NO 3 JUSTIFICATIONS ((JUSTIFICATION (BV) (COUNT BV) LESSP (ZERO CDR-LESSP NLISTP VEC))) IDATE 1000402214856 CONTROLLER-POCKETS (1) SATELLITES (*1*BV-TO-NAT) IMMEDIATE-DEPENDENTS0 (BV-ADDER-NAT BV-ADDER&CARRY-NAT BV-MBIT-BITN BV-BITN-BITN BV-NOT-LOGNOT BV-TO-NAT-RANGEP NAT-TO-BV-SIZED-TO-NAT BV-TO-NAT-TO-BV-SIZED BV-HEAD-NAT NAT-TO-BV-TO-NAT BV-TO-NAT-TO-BV BV-SIZED-TO-NAT-HEAD) EVENT (DEFN BV-TO-NAT (BV) (IF (NLISTP BV) (QUOTE 0) (PLUS (BIT BV) (TIMES (QUOTE 2) (BV-TO-NAT (VEC BV)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BIT . BV-TO-NAT) (IMMEDIATE-DEPENDENTS0 VEC . BV-TO-NAT) (DCELL . *1*BV-TO-NAT))))) (PUT1-LST (QUOTE *1*BV-ADDER) (QUOTE (MAIN-EVENT BV-ADDER))) (PUT1-LST (QUOTE BV-ADDER) (QUOTE (TYPE-PRESCRIPTION-LST ((BV-ADDER 24 NIL NIL NIL)) LEMMAS ((REWRITE-RULE BV-ADDER-BRIDGE NIL (EQUAL (BV-ADDER C X Y) (BV-HEAD (BV-ADDER&CARRY C X Y) (BV-LEN X))) NIL)) TOTALP-LST ((BV-ADDER . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE SELF-REFLEXIVE) SDEFN (LAMBDA (C X Y) (IF (LISTP X) (CONS (B-EOR (B-EOR (BIT X) (BIT Y)) C) (BV-ADDER (B-OR (B-AND (BIT X) (BIT Y)) (B-OR (B-AND (BIT X) C) (B-AND (BIT Y) C))) (VEC X) (VEC Y))) (QUOTE NIL))) LISP-CODE *1*BV-ADDER SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((NLISTP X)) NIL) (TESTS-AND-CASES ((NOT (NLISTP X))) (((B-OR (B-AND (BIT X) (BIT Y)) (B-OR (B-AND (BIT X) C) (B-AND (BIT Y) C))) (VEC X) (VEC Y))))) LEVEL-NO 1 JUSTIFICATIONS ((JUSTIFICATION (X) (COUNT X) LESSP (ZERO CDR-LESSP NLISTP VEC))) IDATE 1000402214856 CONTROLLER-POCKETS (2) SATELLITES (*1*BV-ADDER) IMMEDIATE-DEPENDENTS0 (BV-ADDER-NAT BV-ADDER-BRIDGE BV-ADDER-LEN BV-ADDER-LISTP) EVENT (DEFN BV-ADDER (C X Y) (IF (NLISTP X) (QUOTE NIL) (CONS (B-EOR (B-EOR (BIT X) (BIT Y)) C) (BV-ADDER (B-OR (B-AND (BIT X) (BIT Y)) (B-OR (B-AND (BIT X) C) (B-AND (BIT Y) C))) (VEC X) (VEC Y))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-AND . BV-ADDER) (IMMEDIATE-DEPENDENTS0 B-OR . BV-ADDER) (IMMEDIATE-DEPENDENTS0 BIT . BV-ADDER) (IMMEDIATE-DEPENDENTS0 B-EOR . BV-ADDER) (IMMEDIATE-DEPENDENTS0 VEC . BV-ADDER) (DCELL . *1*BV-ADDER))))) (PUT1-LST (QUOTE *1*BV-MBIT) (QUOTE (MAIN-EVENT BV-MBIT))) (PUT1-LST (QUOTE BV-MBIT) (QUOTE (TYPE-PRESCRIPTION-LST ((BV-MBIT 4 NIL)) LEMMAS ((REWRITE-RULE BV-MBIT-BITN NIL (EQUAL (BV-MBIT X) (IF (EQUAL (BV-LEN X) (QUOTE 0)) (QUOTE 0) (BITN (BV-TO-NAT X) (SUB1 (BV-LEN X))))) NIL)) TOTALP-LST ((BV-MBIT . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE) SDEFN (LAMBDA (BV) (IF (LISTP BV) (IF (LISTP (VEC BV)) (BV-MBIT (VEC BV)) (BIT BV)) (B0))) LISP-CODE *1*BV-MBIT SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((NLISTP BV)) NIL) (TESTS-AND-CASES ((NOT (NLISTP BV)) (NLISTP (VEC BV))) NIL) (TESTS-AND-CASES ((NOT (NLISTP BV)) (NOT (NLISTP (VEC BV)))) (((VEC BV))))) LEVEL-NO 1 JUSTIFICATIONS ((JUSTIFICATION (BV) (COUNT BV) LESSP (ZERO CDR-LESSP NLISTP VEC))) IDATE 1000402214856 CONTROLLER-POCKETS (1) SATELLITES (*1*BV-MBIT) IMMEDIATE-DEPENDENTS0 (BV-MBIT-BITN) EVENT (DEFN BV-MBIT (BV) (IF (NLISTP BV) (B0) (IF (NLISTP (VEC BV)) (BIT BV) (BV-MBIT (VEC BV))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BIT . BV-MBIT) (IMMEDIATE-DEPENDENTS0 B0 . BV-MBIT) (IMMEDIATE-DEPENDENTS0 VEC . BV-MBIT) (DCELL . *1*BV-MBIT))))) (PUT1-LST (QUOTE *1*BV-BITN) (QUOTE (MAIN-EVENT BV-BITN))) (PUT1-LST (QUOTE BV-BITN) (QUOTE (TYPE-PRESCRIPTION-LST ((BV-BITN 4 NIL NIL)) LEMMAS ((REWRITE-RULE BV-BITN-BITN NIL (EQUAL (BV-BITN X N) (BITN (BV-TO-NAT X) N)) NIL) (REWRITE-RULE BV-BITN-NOT NIL (EQUAL (BV-BITN (BV-NOT X) I) (IF (LESSP I (BV-LEN X)) (B-NOT (BV-BITN X I)) (B0))) NIL)) TOTALP-LST ((BV-BITN . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE) SDEFN (LAMBDA (BV N) (IF (EQUAL N (QUOTE 0)) (BIT BV) (IF (NUMBERP N) (BV-BITN (VEC BV) (SUB1 N)) (BIT BV)))) LISP-CODE *1*BV-BITN SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((ZEROP N)) NIL) (TESTS-AND-CASES ((NOT (ZEROP N))) (((VEC BV) (SUB1 N))))) LEVEL-NO 1 JUSTIFICATIONS ((JUSTIFICATION (N) (COUNT N) LESSP (ZEROP COUNT-NUMBERP LESSP-SUB1))) IDATE 1000402214856 CONTROLLER-POCKETS (2) SATELLITES (*1*BV-BITN) IMMEDIATE-DEPENDENTS0 (BV-BITN-BITN BV-BITN-NOT) EVENT (DEFN BV-BITN (BV N) (IF (ZEROP N) (BIT BV) (BV-BITN (VEC BV) (SUB1 N)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 VEC . BV-BITN) (IMMEDIATE-DEPENDENTS0 BIT . BV-BITN) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . BV-BITN) (DCELL . *1*BV-BITN))))) (PUT1-LST (QUOTE *1*BV-TAIL) (QUOTE (MAIN-EVENT BV-TAIL))) (PUT1-LST (QUOTE BV-TAIL) (QUOTE (TYPE-PRESCRIPTION-LST ((BV-TAIL 24 NIL NIL)) TOTALP-LST ((BV-TAIL . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE) SDEFN (LAMBDA (BV N) (IF (EQUAL N (QUOTE 0)) (FIX-BV BV) (IF (NUMBERP N) (BV-TAIL (VEC BV) (SUB1 N)) (FIX-BV BV)))) LISP-CODE *1*BV-TAIL SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((ZEROP N)) NIL) (TESTS-AND-CASES ((NOT (ZEROP N))) (((VEC BV) (SUB1 N))))) LEVEL-NO 2 JUSTIFICATIONS ((JUSTIFICATION (N) (COUNT N) LESSP (ZEROP COUNT-NUMBERP LESSP-SUB1))) IDATE 1000402214856 CONTROLLER-POCKETS (2) SATELLITES (*1*BV-TAIL) EVENT (DEFN BV-TAIL (BV N) (IF (ZEROP N) (FIX-BV BV) (BV-TAIL (VEC BV) (SUB1 N)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 VEC . BV-TAIL) (IMMEDIATE-DEPENDENTS0 FIX-BV . BV-TAIL) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . BV-TAIL) (DCELL . *1*BV-TAIL))))) (PUT1-LST (QUOTE *1*BV-HEAD) (QUOTE (MAIN-EVENT BV-HEAD))) (PUT1-LST (QUOTE BV-HEAD) (QUOTE (TYPE-PRESCRIPTION-LST ((BV-HEAD 24 NIL NIL)) LEMMAS ((REWRITE-RULE BV-TO-NAT-TO-BV NIL (EQUAL (BV-HEAD (NAT-TO-BV (BV-TO-NAT X)) N) (BV-HEAD X N)) NIL)) TOTALP-LST ((BV-HEAD . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE) SDEFN (LAMBDA (BV N) (IF (EQUAL N (QUOTE 0)) (QUOTE NIL) (IF (NUMBERP N) (CONS (BIT BV) (BV-HEAD (VEC BV) (SUB1 N))) (QUOTE NIL)))) LISP-CODE *1*BV-HEAD SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((ZEROP N)) NIL) (TESTS-AND-CASES ((NOT (ZEROP N))) (((VEC BV) (SUB1 N))))) LEVEL-NO 1 JUSTIFICATIONS ((JUSTIFICATION (N) (COUNT N) LESSP (ZEROP COUNT-NUMBERP LESSP-SUB1))) IDATE 1000402214856 CONTROLLER-POCKETS (2) SATELLITES (*1*BV-HEAD) IMMEDIATE-DEPENDENTS0 (BV-ADDER-BRIDGE BV-SIZED-TO-NAT-TO-BV-SIZED BV-TO-NAT-TO-BV-SIZED BV-HEAD-NAT BV-TO-NAT-TO-BV BV-SIZED-TO-NAT-HEAD NAT-TO-BV-SIZED-HEAD BV-HEAD-LEN BV-HEAD-LISTP) EVENT (DEFN BV-HEAD (BV N) (IF (ZEROP N) (QUOTE NIL) (CONS (BIT BV) (BV-HEAD (VEC BV) (SUB1 N))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 VEC . BV-HEAD) (IMMEDIATE-DEPENDENTS0 BIT . BV-HEAD) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . BV-HEAD) (DCELL . *1*BV-HEAD))))) (PUT1-LST (QUOTE *1*BV-NOT) (QUOTE (MAIN-EVENT BV-NOT))) (PUT1-LST (QUOTE BV-NOT) (QUOTE (TYPE-PRESCRIPTION-LST ((BV-NOT 24 NIL)) TOTALP-LST ((BV-NOT . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE) SDEFN (LAMBDA (BV) (IF (LISTP BV) (CONS (B-NOT (BIT BV)) (BV-NOT (VEC BV))) (QUOTE NIL))) LISP-CODE *1*BV-NOT SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((NLISTP BV)) NIL) (TESTS-AND-CASES ((NOT (NLISTP BV))) (((VEC BV))))) LEVEL-NO 1 JUSTIFICATIONS ((JUSTIFICATION (BV) (COUNT BV) LESSP (ZERO CDR-LESSP NLISTP VEC))) IDATE 1000402214856 CONTROLLER-POCKETS (1) SATELLITES (*1*BV-NOT) IMMEDIATE-DEPENDENTS0 (BV-NOT-LOGNOT BV-BITN-NOT) EVENT (DEFN BV-NOT (BV) (IF (NLISTP BV) (QUOTE NIL) (CONS (B-NOT (BIT BV)) (BV-NOT (VEC BV))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BIT . BV-NOT) (IMMEDIATE-DEPENDENTS0 B-NOT . BV-NOT) (IMMEDIATE-DEPENDENTS0 VEC . BV-NOT) (DCELL . *1*BV-NOT))))) (PUT1-LST (QUOTE *1*BV-LEN) (QUOTE (MAIN-EVENT BV-LEN))) (PUT1-LST (QUOTE BV-LEN) (QUOTE (TYPE-PRESCRIPTION-LST ((BV-LEN 4 NIL)) LEMMAS ((REWRITE-RULE BV-ADDER&CARRY-LEN NIL (EQUAL (BV-LEN (BV-ADDER&CARRY C X Y)) (ADD1 (BV-LEN X))) NIL) (REWRITE-RULE BV-ADDER-LEN NIL (EQUAL (BV-LEN (BV-ADDER C X Y)) (BV-LEN X)) NIL) (REWRITE-RULE NAT-TO-BV-SIZED-LEN NIL (EQUAL (BV-LEN (NAT-TO-BV-SIZED X N)) (IF (NUMBERP N) N (QUOTE 0))) NIL) (REWRITE-RULE BV-HEAD-LEN NIL (EQUAL (BV-LEN (BV-HEAD X N)) (IF (NUMBERP N) N (QUOTE 0))) NIL)) TOTALP-LST ((BV-LEN . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE) SDEFN (LAMBDA (BV) (IF (LISTP BV) (ADD1 (BV-LEN (VEC BV))) (QUOTE 0))) LISP-CODE *1*BV-LEN SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((NLISTP BV)) NIL) (TESTS-AND-CASES ((NOT (NLISTP BV))) (((VEC BV))))) LEVEL-NO 1 JUSTIFICATIONS ((JUSTIFICATION (BV) (COUNT BV) LESSP (ZERO CDR-LESSP NLISTP VEC))) IDATE 1000402214856 CONTROLLER-POCKETS (1) SATELLITES (*1*BV-LEN) IMMEDIATE-DEPENDENTS0 (BV-ADDER-NAT BV-ADDER&CARRY-NAT BV-MBIT-BITN BV-NOT-LOGNOT BV-ADDER-BRIDGE BV-ADDER&CARRY-LEN BV-TO-NAT-RANGEP BV-BITN-NOT BV-ADDER-LEN NAT-TO-BV-SIZED-LEN BV-HEAD-LEN BV-LEN-LISTP) EVENT (DEFN BV-LEN (BV) (IF (NLISTP BV) (QUOTE 0) (ADD1 (BV-LEN (VEC BV))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 VEC . BV-LEN) (DCELL . *1*BV-LEN))))) (PUT1-LST (QUOTE *1*FIX-BV) (QUOTE (MAIN-EVENT FIX-BV))) (PUT1-LST (QUOTE FIX-BV) (QUOTE (TYPE-PRESCRIPTION-LST ((FIX-BV 24 NIL)) LEMMAS ((REWRITE-RULE FIX-BV-ADDER&CARRY NIL (EQUAL (FIX-BV (BV-ADDER&CARRY C X Y)) (BV-ADDER&CARRY C X Y)) NIL)) TOTALP-LST ((FIX-BV . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE) SDEFN (LAMBDA (BV) (IF (LISTP BV) (CONS (BIT BV) (FIX-BV (VEC BV))) (QUOTE NIL))) LISP-CODE *1*FIX-BV SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((NLISTP BV)) NIL) (TESTS-AND-CASES ((NOT (NLISTP BV))) (((VEC BV))))) LEVEL-NO 1 JUSTIFICATIONS ((JUSTIFICATION (BV) (COUNT BV) LESSP (ZERO CDR-LESSP NLISTP VEC))) IDATE 1000402214856 CONTROLLER-POCKETS (1) SATELLITES (*1*FIX-BV) IMMEDIATE-DEPENDENTS0 (FIX-BV-ADDER&CARRY BV-TAIL) EVENT (DEFN FIX-BV (BV) (IF (NLISTP BV) (QUOTE NIL) (CONS (BIT BV) (FIX-BV (VEC BV))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BIT . FIX-BV) (IMMEDIATE-DEPENDENTS0 VEC . FIX-BV) (DCELL . *1*FIX-BV))))) (PUT1-LST (QUOTE *1*VEC) (QUOTE (MAIN-EVENT VEC))) (PUT1-LST (QUOTE VEC) (QUOTE (TYPE-PRESCRIPTION-LST ((VEC -1 NIL)) TOTALP-LST ((VEC . T)) SDEFN (LAMBDA (BV) (IF (LISTP BV) (CDR BV) (QUOTE NIL))) LISP-CODE *1*VEC SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402214856 SATELLITES (*1*VEC) IMMEDIATE-DEPENDENTS0 (BV-ADDER&CARRY-NAT BV-MBIT-BITN BV-BITN-BITN BV-NOT-LOGNOT BV-ADDER-BRIDGE FIX-BV-ADDER&CARRY BV-ADDER&CARRY-LEN BV-ADDER&CARRY BV-TO-NAT-RANGEP BV-BITN-NOT BV-SIZED-TO-NAT-TO-BV-SIZED BV-HEAD-NAT NAT-TO-BV-TO-NAT BV-TO-NAT-TO-BV BV-SIZED-TO-NAT-HEAD NAT-TO-BV-SIZED-HEAD BV-ADDER-LEN NAT-TO-BV-SIZED-LEN BV-HEAD-LEN BV-ADDER-LISTP BV-HEAD-LISTP BV-LEN-LISTP BV-SIZED-TO-NAT BV-TO-NAT BV-ADDER BV-MBIT BV-BITN BV-TAIL BV-HEAD BV-NOT BV-LEN FIX-BV) EVENT (DEFN VEC (BV) (IF (NLISTP BV) (QUOTE NIL) (CDR BV))) LOCAL-UNDO-TUPLES ((DCELL . *1*VEC))))) (PUT1-LST (QUOTE *1*BIT) (QUOTE (MAIN-EVENT BIT))) (PUT1-LST (QUOTE BIT) (QUOTE (TYPE-PRESCRIPTION-LST ((BIT 4 NIL)) TOTALP-LST ((BIT . T)) SDEFN (LAMBDA (BV) (IF (LISTP BV) (IF (B0P (CAR BV)) (B0) (B1)) (B0))) LISP-CODE *1*BIT SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402214856 SATELLITES (*1*BIT) IMMEDIATE-DEPENDENTS0 (BV-ADDER&CARRY-NAT BV-MBIT-BITN BV-BITN-BITN BV-NOT-LOGNOT BV-ADDER-BRIDGE FIX-BV-ADDER&CARRY BV-ADDER&CARRY-LEN BV-ADDER&CARRY BV-TO-NAT-RANGEP BV-BITN-NOT BV-SIZED-TO-NAT-TO-BV-SIZED BV-HEAD-NAT NAT-TO-BV-TO-NAT BV-TO-NAT-TO-BV BV-SIZED-TO-NAT-HEAD NAT-TO-BV-SIZED-HEAD BV-ADDER-LEN BV-HEAD-LEN BV-ADDER-LISTP BV-HEAD-LISTP BV-SIZED-TO-NAT BV-TO-NAT BV-ADDER BV-MBIT BV-BITN BV-HEAD BV-NOT FIX-BV) EVENT (DEFN BIT (BV) (IF (NLISTP BV) (B0) (IF (B0P (CAR BV)) (B0) (B1)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B1 . BIT) (IMMEDIATE-DEPENDENTS0 B0P . BIT) (IMMEDIATE-DEPENDENTS0 B0 . BIT) (DCELL . *1*BIT))))) (PUT1-LST (QUOTE *1*DISJOINT) (QUOTE (MAIN-EVENT DISJOINT))) (PUT1-LST (QUOTE DISJOINT) (QUOTE (TYPE-PRESCRIPTION-LST ((DISJOINT 3 NIL NIL NIL NIL)) LEMMAS ((REWRITE-RULE DISJOINT-7-UINT ((DISJOINT (ADD (QUOTE 32) A I) M B N) (NOT (LESSP M (PLUS J (INDEX-N I1 I)))) (NOT (LESSP N (PLUS (NAT-TO-UINT K) L)))) (DISJOINT (ADD (QUOTE 32) A I1) J (ADD (QUOTE 32) B K) L) NIL) (REWRITE-RULE DISJOINT-6-UINT ((DISJOINT (ADD (QUOTE 32) A I) M B N) (NOT (LESSP M (PLUS J (INDEX-N I1 I)))) (NOT (LESSP N L))) (DISJOINT (ADD (QUOTE 32) A I1) J B L) NIL) (REWRITE-RULE DISJOINT-5-UINT ((DISJOINT (ADD (QUOTE 32) A I) M B N) (NOT (LESSP M (PLUS J (INDEX-N (QUOTE 0) I)))) (NOT (LESSP N (PLUS (NAT-TO-UINT K) L)))) (DISJOINT A J (ADD (QUOTE 32) B K) L) NIL) (REWRITE-RULE DISJOINT-3-UINT ((DISJOINT A M B N) (NOT (LESSP M (PLUS (NAT-TO-UINT I) J))) (NOT (LESSP N (PLUS (NAT-TO-UINT K) L)))) (DISJOINT (ADD (QUOTE 32) A I) J (ADD (QUOTE 32) B K) L) NIL) (REWRITE-RULE DISJOINT-2~-UINT ((DISJOINT A M B N) (NOT (LESSP M (PLUS (NAT-TO-UINT I) J))) (NOT (LESSP N L))) (DISJOINT B L (ADD (QUOTE 32) A I) J) NIL) (REWRITE-RULE DISJOINT-2-UINT ((DISJOINT A M B N) (NOT (LESSP M (PLUS (NAT-TO-UINT I) J))) (NOT (LESSP N L))) (DISJOINT (ADD (QUOTE 32) A I) J B L) NIL) (REWRITE-RULE DISJOINT-1-UINT ((DISJOINT A M B N) (NOT (LESSP M J)) (NOT (LESSP N (PLUS (NAT-TO-UINT K) L)))) (DISJOINT A J (ADD (QUOTE 32) B K) L) NIL) (REWRITE-RULE DISJOINT-3-INT ((DISJOINT A M B N) (NOT (LESSP M (PLUS (NAT-TO-INT I (QUOTE 32)) J))) (NOT (LESSP N (PLUS (NAT-TO-INT K (QUOTE 32)) L))) (NUMBERP (NAT-TO-INT I (QUOTE 32))) (NUMBERP (NAT-TO-INT K (QUOTE 32)))) (DISJOINT (ADD (QUOTE 32) A I) J (ADD (QUOTE 32) B K) L) NIL) (REWRITE-RULE DISJOINT-2~-INT ((DISJOINT A M B N) (NOT (LESSP M (PLUS (NAT-TO-INT I (QUOTE 32)) J))) (NOT (LESSP N L)) (NUMBERP (NAT-TO-INT I (QUOTE 32)))) (DISJOINT B L (ADD (QUOTE 32) A I) J) NIL) (REWRITE-RULE DISJOINT-2-INT ((DISJOINT A M B N) (NOT (LESSP M (PLUS (NAT-TO-INT I (QUOTE 32)) J))) (NOT (LESSP N L)) (NUMBERP (NAT-TO-INT I (QUOTE 32)))) (DISJOINT (ADD (QUOTE 32) A I) J B L) NIL) (REWRITE-RULE DISJOINT-1-INT ((DISJOINT A M B N) (NOT (LESSP M J)) (NOT (LESSP N (PLUS (NAT-TO-INT K (QUOTE 32)) L))) (NUMBERP (NAT-TO-INT K (QUOTE 32)))) (DISJOINT A J (ADD (QUOTE 32) B K) L) NIL) (REWRITE-RULE DISJOINT-LEQ1-UINT ((NOT (LESSP (QUOTE 4294967296) (PLUS (NAT-TO-UINT A) M))) (NOT (LESSP (NAT-TO-UINT A) (PLUS (NAT-TO-UINT B) N)))) (DISJOINT B N A M) NIL) (REWRITE-RULE DISJOINT-LEQ-UINT ((NOT (LESSP (QUOTE 4294967296) (PLUS (NAT-TO-UINT A) M))) (NOT (LESSP (NAT-TO-UINT A) (PLUS (NAT-TO-UINT B) N)))) (DISJOINT A M B N) NIL) (REWRITE-RULE DISJOINT-LEQ1 ((NOT (LESSP (QUOTE 4294967296) (PLUS A M))) (NOT (LESSP A (PLUS B N)))) (DISJOINT B N A M) NIL) (REWRITE-RULE DISJOINT-LEQ ((NOT (LESSP (QUOTE 4294967296) (PLUS A M))) (NOT (LESSP A (PLUS B N)))) (DISJOINT A M B N) NIL) (REWRITE-RULE DISJOINT-DEDUCTION3 NIL (EQUAL (DISJOINT (ADD (QUOTE 32) Y X) M (ADD (QUOTE 32) Z X) N) (DISJOINT Y M Z N)) NIL) (REWRITE-RULE DISJOINT-DEDUCTION2 NIL (EQUAL (DISJOINT (ADD (QUOTE 32) X Y) M (ADD (QUOTE 32) X Z) N) (DISJOINT Y M Z N)) NIL) (REWRITE-RULE DISJOINT-DEDUCTION1 NIL (EQUAL (DISJOINT (ADD (QUOTE 32) X Y) M X N) (DISJOINT Y M (QUOTE 0) N)) NIL) (REWRITE-RULE DISJOINT-DEDUCTION1 NIL (EQUAL (DISJOINT X M (ADD (QUOTE 32) X Y) N) (DISJOINT (QUOTE 0) M Y N)) NIL) (REWRITE-RULE DISJOINT-DEDUCTION0 NIL (DISJOINT X (QUOTE 0) Y N) NIL) (REWRITE-RULE DISJOINT-DEDUCTION0 NIL (DISJOINT X M Y (QUOTE 0)) NIL) (REWRITE-RULE DISJOINT-X-X NIL (EQUAL (DISJOINT X M X N) (IF (EQUAL M (QUOTE 0)) (QUOTE *1*TRUE) (IF (NUMBERP M) (IF (EQUAL N (QUOTE 0)) (QUOTE *1*TRUE) (IF (NUMBERP N) (QUOTE *1*FALSE) (QUOTE *1*TRUE))) (QUOTE *1*TRUE)))) NIL) (REWRITE-RULE DISJOINT-11~-ASL ((DISJOINT A M (ADD (QUOTE 32) B K) N) (EQUAL OPSZ (EXP (QUOTE 2) CNT)) (LESSP (NAT-TO-INT X (QUOTE 32)) (QUOTIENT M OPSZ)) (NUMBERP (NAT-TO-INT X (QUOTE 32))) (NOT (LESSP N (PLUS L (INDEX-N K1 K))))) (DISJOINT (ADD (QUOTE 32) B K1) L (ADD (QUOTE 32) A (ASL (QUOTE 32) X CNT)) OPSZ) NIL) (REWRITE-RULE DISJOINT-11-ASL ((DISJOINT A M (ADD (QUOTE 32) B K) N) (EQUAL OPSZ (EXP (QUOTE 2) CNT)) (LESSP (NAT-TO-INT X (QUOTE 32)) (QUOTIENT M OPSZ)) (NUMBERP (NAT-TO-INT X (QUOTE 32))) (NOT (LESSP N (PLUS L (INDEX-N K1 K))))) (DISJOINT (ADD (QUOTE 32) A (ASL (QUOTE 32) X CNT)) OPSZ (ADD (QUOTE 32) B K1) L) NIL) (REWRITE-RULE DISJOINT-9~-ASL ((DISJOINT A M (ADD (QUOTE 32) B K) N) (EQUAL OPSZ (EXP (QUOTE 2) CNT)) (LESSP (NAT-TO-INT X (QUOTE 32)) (QUOTIENT M OPSZ)) (NUMBERP (NAT-TO-INT X (QUOTE 32))) (NOT (LESSP N (PLUS L (INDEX-N (QUOTE 0) K))))) (DISJOINT B L (ADD (QUOTE 32) A (ASL (QUOTE 32) X CNT)) OPSZ) NIL) (REWRITE-RULE DISJOINT-9-ASL ((DISJOINT A M (ADD (QUOTE 32) B K) N) (EQUAL OPSZ (EXP (QUOTE 2) CNT)) (LESSP (NAT-TO-INT X (QUOTE 32)) (QUOTIENT M OPSZ)) (NUMBERP (NAT-TO-INT X (QUOTE 32))) (NOT (LESSP N (PLUS L (INDEX-N (QUOTE 0) K))))) (DISJOINT (ADD (QUOTE 32) A (ASL (QUOTE 32) X CNT)) OPSZ B L) NIL) (REWRITE-RULE DISJOINT-3~-ASL ((DISJOINT A M B N) (EQUAL OPSZ (EXP (QUOTE 2) CNT)) (LESSP (NAT-TO-INT X (QUOTE 32)) (QUOTIENT M OPSZ)) (NUMBERP (NAT-TO-INT X (QUOTE 32))) (NOT (LESSP N (PLUS K L)))) (DISJOINT (ADD (QUOTE 32) B K) L (ADD (QUOTE 32) A (ASL (QUOTE 32) X CNT)) OPSZ) NIL) (REWRITE-RULE DISJOINT-3-ASL ((DISJOINT A M B N) (EQUAL OPSZ (EXP (QUOTE 2) CNT)) (LESSP (NAT-TO-INT X (QUOTE 32)) (QUOTIENT M OPSZ)) (NUMBERP (NAT-TO-INT X (QUOTE 32))) (NOT (LESSP N (PLUS K L)))) (DISJOINT (ADD (QUOTE 32) A (ASL (QUOTE 32) X CNT)) OPSZ (ADD (QUOTE 32) B K) L) NIL) (REWRITE-RULE DISJOINT-2~-ASL ((DISJOINT A M B N) (EQUAL OPSZ (EXP (QUOTE 2) CNT)) (LESSP (NAT-TO-INT X (QUOTE 32)) (QUOTIENT M OPSZ)) (NUMBERP (NAT-TO-INT X (QUOTE 32))) (NOT (LESSP N L))) (DISJOINT B L (ADD (QUOTE 32) A (ASL (QUOTE 32) X CNT)) OPSZ) NIL) (REWRITE-RULE DISJOINT-2-ASL ((DISJOINT A M B N) (EQUAL OPSZ (EXP (QUOTE 2) CNT)) (LESSP (NAT-TO-INT X (QUOTE 32)) (QUOTIENT M OPSZ)) (NUMBERP (NAT-TO-INT X (QUOTE 32))) (NOT (LESSP N L))) (DISJOINT (ADD (QUOTE 32) A (ASL (QUOTE 32) X CNT)) OPSZ B L) NIL) (REWRITE-RULE DISJOINT-15~ ((DISJOINT (ADD (QUOTE 32) A I) M (ADD (QUOTE 32) B K) N) (NOT (LESSP M (PLUS J (INDEX-N I1 I)))) (NOT (LESSP N (PLUS L (INDEX-N K1 K))))) (DISJOINT (ADD (QUOTE 32) B K1) L (ADD (QUOTE 32) A I1) J) NIL) (REWRITE-RULE DISJOINT-14~ ((DISJOINT (ADD (QUOTE 32) A I) M (ADD (QUOTE 32) B K) N) (NOT (LESSP M (PLUS J (INDEX-N (QUOTE 0) I)))) (NOT (LESSP N (PLUS L (INDEX-N K1 K))))) (DISJOINT (ADD (QUOTE 32) B K1) L A J) NIL) (REWRITE-RULE DISJOINT-13~ ((DISJOINT (ADD (QUOTE 32) A I) M (ADD (QUOTE 32) B K) N) (NOT (LESSP M (PLUS J (INDEX-N I1 I)))) (NOT (LESSP N (PLUS L (INDEX-N (QUOTE 0) K))))) (DISJOINT B L (ADD (QUOTE 32) A I1) J) NIL) (REWRITE-RULE DISJOINT-12~ ((DISJOINT (ADD (QUOTE 32) A I) M (ADD (QUOTE 32) B K) N) (NOT (LESSP M (PLUS J (INDEX-N (QUOTE 0) I)))) (NOT (LESSP N (PLUS L (INDEX-N (QUOTE 0) K))))) (DISJOINT B L A J) NIL) (REWRITE-RULE DISJOINT-11~ ((DISJOINT A M (ADD (QUOTE 32) B K) N) (NOT (LESSP M (PLUS I J))) (NOT (LESSP N (PLUS L (INDEX-N K1 K))))) (DISJOINT (ADD (QUOTE 32) B K1) L (ADD (QUOTE 32) A I) J) NIL) (REWRITE-RULE DISJOINT-10~ ((DISJOINT A M (ADD (QUOTE 32) B K) N) (NOT (LESSP M J)) (NOT (LESSP N (PLUS L (INDEX-N K1 K))))) (DISJOINT (ADD (QUOTE 32) B K1) L A J) NIL) (REWRITE-RULE DISJOINT-9~ ((DISJOINT A M (ADD (QUOTE 32) B K) N) (NOT (LESSP M (PLUS I J))) (NOT (LESSP N (PLUS L (INDEX-N (QUOTE 0) K))))) (DISJOINT B L (ADD (QUOTE 32) A I) J) NIL) (REWRITE-RULE DISJOINT-8~ ((DISJOINT A M (ADD (QUOTE 32) B K) N) (NOT (LESSP M J)) (NOT (LESSP N (PLUS L (INDEX-N (QUOTE 0) K))))) (DISJOINT B L A J) NIL) (REWRITE-RULE DISJOINT-7~ ((DISJOINT (ADD (QUOTE 32) A I) M B N) (NOT (LESSP M (PLUS J (INDEX-N I1 I)))) (NOT (LESSP N (PLUS K L)))) (DISJOINT (ADD (QUOTE 32) B K) L (ADD (QUOTE 32) A I1) J) NIL) (REWRITE-RULE DISJOINT-6~ ((DISJOINT (ADD (QUOTE 32) A I) M B N) (NOT (LESSP M (PLUS J (INDEX-N I1 I)))) (NOT (LESSP N L))) (DISJOINT B L (ADD (QUOTE 32) A I1) J) NIL) (REWRITE-RULE DISJOINT-5~ ((DISJOINT (ADD (QUOTE 32) A I) M B N) (NOT (LESSP M (PLUS J (INDEX-N (QUOTE 0) I)))) (NOT (LESSP N (PLUS K L)))) (DISJOINT (ADD (QUOTE 32) B K) L A J) NIL) (REWRITE-RULE DISJOINT-4~ ((DISJOINT (ADD (QUOTE 32) A I) M B N) (NOT (LESSP M (PLUS J (INDEX-N (QUOTE 0) I)))) (NOT (LESSP N L))) (DISJOINT B L A J) NIL) (REWRITE-RULE DISJOINT-3~ ((DISJOINT A M B N) (NOT (LESSP M (PLUS I J))) (NOT (LESSP N (PLUS K L)))) (DISJOINT (ADD (QUOTE 32) B K) L (ADD (QUOTE 32) A I) J) NIL) (REWRITE-RULE DISJOINT-2~ ((DISJOINT A M B N) (NOT (LESSP M (PLUS I J))) (NOT (LESSP N L))) (DISJOINT B L (ADD (QUOTE 32) A I) J) NIL) (REWRITE-RULE DISJOINT-1~ ((DISJOINT A M B N) (NOT (LESSP M J)) (NOT (LESSP N (PLUS K L)))) (DISJOINT (ADD (QUOTE 32) B K) L A J) NIL) (REWRITE-RULE DISJOINT-0~ ((DISJOINT A M B N) (NOT (LESSP M J)) (NOT (LESSP N L))) (DISJOINT B L A J) NIL) (REWRITE-RULE DISJOINT-COMMUTATIVITY NIL (EQUAL (DISJOINT X M Y N) (DISJOINT Y N X M)) ((M . N) (X . Y))) (REWRITE-RULE DISJOINT-15 ((DISJOINT (ADD (QUOTE 32) A I) M (ADD (QUOTE 32) B K) N) (NOT (LESSP M (PLUS J (INDEX-N I1 I)))) (NOT (LESSP N (PLUS L (INDEX-N K1 K))))) (DISJOINT (ADD (QUOTE 32) A I1) J (ADD (QUOTE 32) B K1) L) NIL) (REWRITE-RULE DISJOINT-14 ((DISJOINT (ADD (QUOTE 32) A I) M (ADD (QUOTE 32) B K) N) (NOT (LESSP M (PLUS J (INDEX-N (QUOTE 0) I)))) (NOT (LESSP N (PLUS L (INDEX-N K1 K))))) (DISJOINT A J (ADD (QUOTE 32) B K1) L) NIL) (REWRITE-RULE DISJOINT-13 ((DISJOINT (ADD (QUOTE 32) A I) M (ADD (QUOTE 32) B K) N) (NOT (LESSP M (PLUS J (INDEX-N I1 I)))) (NOT (LESSP N (PLUS L (INDEX-N (QUOTE 0) K))))) (DISJOINT (ADD (QUOTE 32) A I1) J B L) NIL) (REWRITE-RULE DISJOINT-12 ((DISJOINT (ADD (QUOTE 32) A I) M (ADD (QUOTE 32) B K) N) (NOT (LESSP M (PLUS J (INDEX-N (QUOTE 0) I)))) (NOT (LESSP N (PLUS L (INDEX-N (QUOTE 0) K))))) (DISJOINT A J B L) NIL) (REWRITE-RULE DISJOINT-11 ((DISJOINT A M (ADD (QUOTE 32) B K) N) (NOT (LESSP M (PLUS I J))) (NOT (LESSP N (PLUS L (INDEX-N K1 K))))) (DISJOINT (ADD (QUOTE 32) A I) J (ADD (QUOTE 32) B K1) L) NIL) (REWRITE-RULE DISJOINT-10 ((DISJOINT A M (ADD (QUOTE 32) B K) N) (NOT (LESSP M J)) (NOT (LESSP N (PLUS L (INDEX-N K1 K))))) (DISJOINT A J (ADD (QUOTE 32) B K1) L) NIL) (REWRITE-RULE DISJOINT-9 ((DISJOINT A M (ADD (QUOTE 32) B K) N) (NOT (LESSP M (PLUS I J))) (NOT (LESSP N (PLUS L (INDEX-N (QUOTE 0) K))))) (DISJOINT (ADD (QUOTE 32) A I) J B L) NIL) (REWRITE-RULE DISJOINT-8 ((DISJOINT A M (ADD (QUOTE 32) B K) N) (NOT (LESSP M J)) (NOT (LESSP N (PLUS L (INDEX-N (QUOTE 0) K))))) (DISJOINT A J B L) NIL) (REWRITE-RULE DISJOINT-7 ((DISJOINT (ADD (QUOTE 32) A I) M B N) (NOT (LESSP M (PLUS J (INDEX-N I1 I)))) (NOT (LESSP N (PLUS K L)))) (DISJOINT (ADD (QUOTE 32) A I1) J (ADD (QUOTE 32) B K) L) NIL) (REWRITE-RULE DISJOINT-6 ((DISJOINT (ADD (QUOTE 32) A I) M B N) (NOT (LESSP M (PLUS J (INDEX-N I1 I)))) (NOT (LESSP N L))) (DISJOINT (ADD (QUOTE 32) A I1) J B L) NIL) (REWRITE-RULE DISJOINT-5 ((DISJOINT (ADD (QUOTE 32) A I) M B N) (NOT (LESSP M (PLUS J (INDEX-N (QUOTE 0) I)))) (NOT (LESSP N (PLUS K L)))) (DISJOINT A J (ADD (QUOTE 32) B K) L) NIL) (REWRITE-RULE DISJOINT-4 ((DISJOINT (ADD (QUOTE 32) A I) M B N) (NOT (LESSP M (PLUS J (INDEX-N (QUOTE 0) I)))) (NOT (LESSP N L))) (DISJOINT A J B L) NIL) (REWRITE-RULE DISJOINT-3 ((DISJOINT A M B N) (NOT (LESSP M (PLUS I J))) (NOT (LESSP N (PLUS K L)))) (DISJOINT (ADD (QUOTE 32) A I) J (ADD (QUOTE 32) B K) L) NIL) (REWRITE-RULE DISJOINT-2 ((DISJOINT A M B N) (NOT (LESSP M (PLUS I J))) (NOT (LESSP N L))) (DISJOINT (ADD (QUOTE 32) A I) J B L) NIL) (REWRITE-RULE DISJOINT-1 ((DISJOINT A M B N) (NOT (LESSP M J)) (NOT (LESSP N (PLUS K L)))) (DISJOINT A J (ADD (QUOTE 32) B K) L) NIL) (REWRITE-RULE DISJOINT-0 ((DISJOINT A M B N) (NOT (LESSP M J)) (NOT (LESSP N L))) (DISJOINT A J B L) NIL) (REWRITE-RULE DISJOINT-LA3 ((DISJOINT A M B N) (NOT (LESSP M (PLUS I J))) (NOT (LESSP N (PLUS K L)))) (DISJOINT (ADD (QUOTE 32) A I) J (ADD (QUOTE 32) B K) L) NIL) (REWRITE-RULE DISJOINT-HEAD NIL (EQUAL (DISJOINT X M (HEAD Y (QUOTE 32)) N) (DISJOINT X M Y N)) NIL) (REWRITE-RULE DISJOINT-HEAD NIL (EQUAL (DISJOINT (HEAD X (QUOTE 32)) M Y N) (DISJOINT X M Y N)) NIL)) TOTALP-LST ((DISJOINT . T)) QUICK-BLOCK-INFO (UNCHANGING UNCHANGING UNCHANGING SELF-REFLEXIVE) SDEFN (LAMBDA (X M Y N) (IF (EQUAL N (QUOTE 0)) (QUOTE *1*TRUE) (IF (NUMBERP N) (IF (DISJOINT0 X M (ADD (QUOTE 32) Y (SUB1 N))) (IF (DISJOINT X M Y (SUB1 N)) (QUOTE *1*TRUE) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*TRUE)))) LISP-CODE *1*DISJOINT SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((ZEROP N)) NIL) (TESTS-AND-CASES ((NOT (ZEROP N))) ((X M Y (SUB1 N))))) LEVEL-NO 5 JUSTIFICATIONS ((JUSTIFICATION (N) (COUNT N) LESSP (ZEROP COUNT-NUMBERP LESSP-SUB1))) IDATE 1000402214856 CONTROLLER-POCKETS (8) SATELLITES (*1*DISJOINT) IMMEDIATE-DEPENDENTS0 (GCD-CORRECTNESS GCD-S-S0-MEM GCD-S-S0-RFILE GCD-S-S0 DISJOINT-7-UINT DISJOINT-6-UINT DISJOINT-5-UINT DISJOINT-3-UINT DISJOINT-2~-UINT DISJOINT-2-UINT DISJOINT-1-UINT DISJOINT-3-INT DISJOINT-2~-INT DISJOINT-2-INT DISJOINT-1-INT DISJOINT-OFF DISJOINT-LEQ1-UINT DISJOINT-LEQ-UINT READM-WRITE-MEM READ-WRITEM-MEM WRITEM-ELSE-MEM-ILST WRITEM-ELSE-MEM-LST DISJOINT-LEQ1 DISJOINT-LEQ WRITE-ELSE-MEM-ILST WRITE-ELSE-MEM-LST DISJOINT-DEDUCTION3 DISJOINT-DEDUCTION2 DISJOINT-DEDUCTION1 DISJOINT-DEDUCTION0 DISJOINT-X-X DISJOINT-11~-ASL DISJOINT-11-ASL DISJOINT-9~-ASL DISJOINT-9-ASL DISJOINT-3~-ASL DISJOINT-3-ASL DISJOINT-2~-ASL DISJOINT-2-ASL DISJOINT-15~ DISJOINT-14~ DISJOINT-13~ DISJOINT-12~ DISJOINT-11~ DISJOINT-10~ DISJOINT-9~ DISJOINT-8~ DISJOINT-7~ DISJOINT-6~ DISJOINT-5~ DISJOINT-4~ DISJOINT-3~ DISJOINT-2~ DISJOINT-1~ DISJOINT-0~ DISJOINT-COMMUTATIVITY DISJOINT-15 DISJOINT-14 DISJOINT-13 DISJOINT-12 DISJOINT-11 DISJOINT-10 DISJOINT-9 DISJOINT-8 DISJOINT-7 DISJOINT-6 DISJOINT-5 DISJOINT-4 DISJOINT-3 DISJOINT-2 DISJOINT-1 DISJOINT-0 DISJOINT-LA3 DISJOINT-LA2 DISJOINT-LA1 DISJOINT-LA0 DISJOINT-HEAD BYTE-READ-WRITE-MEM-LEMMA READ-WRITE-MEM1 BYTE-READ-WRITE-MEM) EVENT (DEFN DISJOINT (X M Y N) (IF (ZEROP N) (QUOTE *1*TRUE) (AND (DISJOINT0 X M (ADD (QUOTE 32) Y (SUB1 N))) (DISJOINT X M Y (SUB1 N))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ADD . DISJOINT) (IMMEDIATE-DEPENDENTS0 DISJOINT0 . DISJOINT) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . DISJOINT) (DCELL . *1*DISJOINT))))) (PUT1-LST (QUOTE *1*DISJOINT0) (QUOTE (MAIN-EVENT DISJOINT0))) (PUT1-LST (QUOTE DISJOINT0) (QUOTE (TYPE-PRESCRIPTION-LST ((DISJOINT0 3 NIL NIL NIL)) LEMMAS ((REWRITE-RULE DISJOINT0-LEQ ((NOT (LESSP (QUOTE 4294967296) (PLUS A M))) (LESSP B A)) (DISJOINT0 A M B) NIL) (REWRITE-RULE DISJOINT0-DEDUCTION2 NIL (EQUAL (DISJOINT0 (ADD (QUOTE 32) X Y) M (ADD (QUOTE 32) X Z)) (DISJOINT0 Y M Z)) NIL) (REWRITE-RULE DISJOINT0-DEDUCTION1 NIL (EQUAL (DISJOINT0 (ADD (QUOTE 32) X Y) M X) (DISJOINT0 Y M (QUOTE 0))) NIL) (REWRITE-RULE DISJOINT0-DEDUCTION1 NIL (EQUAL (DISJOINT0 X M (ADD (QUOTE 32) X Y)) (DISJOINT0 (QUOTE 0) M Y)) NIL) (REWRITE-RULE DISJOINT0-DEDUCTION0 NIL (DISJOINT0 X (QUOTE 0) Y) NIL) (REWRITE-RULE DISJOINT0-X-X NIL (EQUAL (DISJOINT0 X M X) (IF (EQUAL M (QUOTE 0)) (QUOTE *1*TRUE) (IF (NUMBERP M) (QUOTE *1*FALSE) (QUOTE *1*TRUE)))) NIL) (REWRITE-RULE DISJOINT-LA2 ((DISJOINT A M B N) (NOT (LESSP M (PLUS I J))) (LESSP K N)) (DISJOINT0 (ADD (QUOTE 32) A I) J (ADD (QUOTE 32) B K)) NIL) (REWRITE-RULE DISJOINT-LA0 ((DISJOINT A M B N) (LESSP J N)) (DISJOINT0 A M (ADD (QUOTE 32) B J)) NIL) (REWRITE-RULE DISJOINT0-LA2 ((DISJOINT0 A M B) (NOT (LESSP M (PLUS I J)))) (DISJOINT0 (ADD (QUOTE 32) A I) J B) NIL) (REWRITE-RULE DISJOINT0-LA1 ((DISJOINT0 A M B) (LESSP I M)) (DISJOINT0 A I B) NIL) (REWRITE-RULE DISJOINT0-HEAD NIL (EQUAL (DISJOINT0 X M (HEAD Y (QUOTE 32))) (DISJOINT0 X M Y)) NIL) (REWRITE-RULE DISJOINT0-HEAD NIL (EQUAL (DISJOINT0 (HEAD X (QUOTE 32)) M Y) (DISJOINT0 X M Y)) NIL)) TOTALP-LST ((DISJOINT0 . T)) QUICK-BLOCK-INFO (UNCHANGING SELF-REFLEXIVE UNCHANGING) SDEFN (LAMBDA (X M Y) (IF (EQUAL M (QUOTE 0)) (QUOTE *1*TRUE) (IF (NUMBERP M) (IF (MOD32-EQ (ADD (QUOTE 32) X (SUB1 M)) Y) (QUOTE *1*FALSE) (IF (DISJOINT0 X (SUB1 M) Y) (QUOTE *1*TRUE) (QUOTE *1*FALSE))) (QUOTE *1*TRUE)))) LISP-CODE *1*DISJOINT0 SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((ZEROP M)) NIL) (TESTS-AND-CASES ((NOT (ZEROP M))) ((X (SUB1 M) Y)))) LEVEL-NO 4 JUSTIFICATIONS ((JUSTIFICATION (M) (COUNT M) LESSP (ZEROP COUNT-NUMBERP LESSP-SUB1))) IDATE 1000402214856 CONTROLLER-POCKETS (2) SATELLITES (*1*DISJOINT0) IMMEDIATE-DEPENDENTS0 (DISJOINT0-OFF DISJOINT-LEQ1-UINT DISJOINT0-LEQ DISJOINT-X-X DISJOINT0-DEDUCTION2 DISJOINT0-DEDUCTION1 DISJOINT0-DEDUCTION0 DISJOINT0-X-X DISJOINT-COMMUTATIVITY DISJOINT-LA2 DISJOINT-LA0 DISJOINT0-LA2 DISJOINT0-LA1 DISJOINT0-LA0 DISJOINT0-HEAD WRITE-MEM-BYTE-WRITE READ-MEM-BYTE-WRITE BYTE-READ-WRITE-MEM DISJOINT) EVENT (DEFN DISJOINT0 (X M Y) (IF (ZEROP M) (QUOTE *1*TRUE) (AND (NOT (MOD32-EQ (ADD (QUOTE 32) X (SUB1 M)) Y)) (DISJOINT0 X (SUB1 M) Y)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ADD . DISJOINT0) (IMMEDIATE-DEPENDENTS0 MOD32-EQ . DISJOINT0) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . DISJOINT0) (DCELL . *1*DISJOINT0))))) (PUT1-LST (QUOTE *1*NEG) (QUOTE (MAIN-EVENT NEG))) (PUT1-LST (QUOTE NEG) (QUOTE (TYPE-PRESCRIPTION-LST ((NEG 4 NIL NIL)) LEMMAS ((REWRITE-RULE NEG-ADD NIL (EQUAL (NEG N (ADD N X Y)) (ADD N (NEG N X) (NEG N Y))) NIL) (REWRITE-RULE NEG-NEG NIL (EQUAL (NEG N (NEG N X)) (HEAD X N)) NIL) (REWRITE-RULE NEG-HEAD NIL (EQUAL (NEG N (HEAD X N)) (NEG N X)) NIL)) TOTALP-LST ((NEG . T)) LINEAR-LEMMAS ((LINEAR-LEMMA SUB-LEQ-1 ((NOT (LESSP Y (NEG N X)))) (NOT (LESSP (DIFFERENCE Y (NEG N X)) (ADD N X Y))) (NEG N X)) (LINEAR-LEMMA SUB-LEQ-1 ((NOT (LESSP Y (NEG N X)))) (NOT (LESSP (DIFFERENCE Y (NEG N X)) (ADD N Y X))) (NEG N X))) SDEFN (LAMBDA (N X) (SUB N X (QUOTE 0))) LISP-CODE *1*NEG SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214856 SATELLITES (*1*NEG) IMMEDIATE-DEPENDENTS0 (GCD-CORRECTNESS GCD-S0-SN-RFILE GCD-S0-S0-RFILE-2 GCD-S0-S0-RFILE-1 GCD-S0-S0-2 GCD-S0-S0-1 GCD-S0-SN-BASE-RFILE-2 GCD-S0-SN-BASE-2 GCD-S0-SN-BASE-RFILE-1 GCD-S0-SN-BASE-1 GCD-S-S0-MEM GCD-S-S0-RFILE GCD-S-S0 MISC-GROUP-H BCC-GROUP-H SCC-GROUP-H EFFEC-ADDR-MEM MOD32-EQ-DEDUCTION1 INDEX-N-DEDUCTION0 INDEX-N-0 SUB-LEQ-2 SUB-LEQ-1 ADD-NEG-CANCEL ADD-NEG-0 NEG-OFF SUB-NEG NEG-ADD NEG-CANCEL NEG-NEG NEG-HEAD NEG-NAT-RANGEP SUB-INT ADD-NEG-ADDER SUB-UINT) EVENT (DEFN NEG (N X) (SUB N X (QUOTE 0))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUB . NEG) (DCELL . *1*NEG))))) (PUT1-LST (QUOTE *1*MOD32-EQ) (QUOTE (MAIN-EVENT MOD32-EQ))) (PUT1-LST (QUOTE MOD32-EQ) (QUOTE (TYPE-PRESCRIPTION-LST ((MOD32-EQ 3 NIL NIL)) LEMMAS ((REWRITE-RULE MOD32-EQ-DEDUCTION3 NIL (EQUAL (MOD32-EQ (ADD (QUOTE 32) X Y) (ADD (QUOTE 32) X Z)) (MOD32-EQ Y Z)) NIL) (REWRITE-RULE MOD32-EQ-DEDUCTION2 NIL (EQUAL (MOD32-EQ (ADD (QUOTE 32) X Y) X) (MOD32-EQ Y (QUOTE 0))) NIL) (REWRITE-RULE MOD32-EQ-DEDUCTION2 NIL (EQUAL (MOD32-EQ X (ADD (QUOTE 32) X Y)) (MOD32-EQ (QUOTE 0) Y)) NIL) (REWRITE-RULE MOD32-EQ-DEDUCTION1 NIL (EQUAL (MOD32-EQ (NEG (QUOTE 32) X) (QUOTE 0)) (MOD32-EQ X (QUOTE 0))) NIL) (REWRITE-RULE MOD32-EQ-DEDUCTION1 NIL (EQUAL (MOD32-EQ (QUOTE 0) (NEG (QUOTE 32) X)) (MOD32-EQ X (QUOTE 0))) NIL) (REWRITE-RULE MOD32-EQ-DEDUCTION0 NIL (MOD32-EQ X X) NIL) (REWRITE-RULE DISJOINT-LA1 ((DISJOINT A M B N) (LESSP I M) (LESSP J N)) (NOT (MOD32-EQ (ADD (QUOTE 32) A I) (ADD (QUOTE 32) B J))) NIL) (REWRITE-RULE DISJOINT0-LA0 ((DISJOINT0 A M B) (LESSP I M)) (NOT (MOD32-EQ (ADD (QUOTE 32) A I) B)) NIL)) TOTALP-LST ((MOD32-EQ . T)) SDEFN (LAMBDA (X Y) (EQUAL (HEAD X (QUOTE 32)) (HEAD Y (QUOTE 32)))) LISP-CODE *1*MOD32-EQ SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214856 SATELLITES (*1*MOD32-EQ) IMMEDIATE-DEPENDENTS0 (MOD32-EQ-OFF MOD32-EQ-DEDUCTION3 MOD32-EQ-DEDUCTION2 MOD32-EQ-DEDUCTION1 MOD32-EQ-DEDUCTION0 DISJOINT0-LEQ DISJOINT0-DEDUCTION2 DISJOINT0-DEDUCTION1 DISJOINT0-X-X DISJOINT-COMMUTATIVITY DISJOINT-LA1 DISJOINT0-LA1 DISJOINT0-LA0 DISJOINT0-HEAD WRITE-MEM-BYTE-WRITE READ-WRITE-MEM2 BYTE-READ-WRITE-MEM-LEMMA READ-MEM-BYTE-WRITE BYTE-READ-WRITE-MEM BYTE-WRITE-WRITE-LA BYTE-READ-WRITE DISJOINT0) EVENT (DEFN MOD32-EQ (X Y) (EQUAL (HEAD X (QUOTE 32)) (HEAD Y (QUOTE 32)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 HEAD . MOD32-EQ) (DCELL . *1*MOD32-EQ))))) (PUT1-LST (QUOTE *1*MOD-EQ) (QUOTE (MAIN-EVENT MOD-EQ))) (PUT1-LST (QUOTE MOD-EQ) (QUOTE (TYPE-PRESCRIPTION-LST ((MOD-EQ 3 NIL NIL NIL)) TOTALP-LST ((MOD-EQ . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE SELF-REFLEXIVE) SDEFN (LAMBDA (N X Y) (IF (EQUAL N (QUOTE 0)) (QUOTE *1*TRUE) (IF (NUMBERP N) (IF (EQUAL (BCAR X) (BCAR Y)) (IF (MOD-EQ (SUB1 N) (BCDR X) (BCDR Y)) (QUOTE *1*TRUE) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*TRUE)))) LISP-CODE *1*MOD-EQ SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((ZEROP N)) NIL) (TESTS-AND-CASES ((NOT (ZEROP N))) (((SUB1 N) (BCDR X) (BCDR Y))))) LEVEL-NO 3 JUSTIFICATIONS ((JUSTIFICATION (N) (COUNT N) LESSP (ZEROP COUNT-NUMBERP LESSP-SUB1))) IDATE 1000402214856 CONTROLLER-POCKETS (1) SATELLITES (*1*MOD-EQ) IMMEDIATE-DEPENDENTS0 (LOGEOR-NAT-RANGEP LOGOR-NAT-RANGEP LOGAND-NAT-RANGEP LOGAND-UINT-LA) EVENT (DEFN MOD-EQ (N X Y) (IF (ZEROP N) (QUOTE *1*TRUE) (AND (EQUAL (BCAR X) (BCAR Y)) (MOD-EQ (SUB1 N) (BCDR X) (BCDR Y))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BCDR . MOD-EQ) (IMMEDIATE-DEPENDENTS0 BCAR . MOD-EQ) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . MOD-EQ) (DCELL . *1*MOD-EQ))))) (PUT1-LST (QUOTE *1*N-MEMBER) (QUOTE (MAIN-EVENT N-MEMBER))) (PUT1-LST (QUOTE N-MEMBER) (QUOTE (TYPE-PRESCRIPTION-LST ((N-MEMBER 3 NIL NIL)) TOTALP-LST ((N-MEMBER . T)) QUICK-BLOCK-INFO (UNCHANGING SELF-REFLEXIVE) SDEFN (LAMBDA (X LST) (IF (LISTP LST) (IF (NUMBERP X) (IF (NUMBERP (CAR LST)) (IF (EQUAL X (CAR LST)) (QUOTE *1*TRUE) (IF (N-MEMBER X (CDR LST)) (QUOTE *1*TRUE) (QUOTE *1*FALSE))) (IF (EQUAL X (QUOTE 0)) (QUOTE *1*TRUE) (IF (N-MEMBER X (CDR LST)) (QUOTE *1*TRUE) (QUOTE *1*FALSE)))) (IF (NUMBERP (CAR LST)) (IF (EQUAL (QUOTE 0) (CAR LST)) (QUOTE *1*TRUE) (IF (N-MEMBER X (CDR LST)) (QUOTE *1*TRUE) (QUOTE *1*FALSE))) (QUOTE *1*TRUE))) (QUOTE *1*FALSE))) LISP-CODE *1*N-MEMBER SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((NLISTP LST)) NIL) (TESTS-AND-CASES ((NOT (NLISTP LST))) ((X (CDR LST))))) LEVEL-NO 1 JUSTIFICATIONS ((JUSTIFICATION (LST) (COUNT LST) LESSP (CDR-LESSP NLISTP ZERO CDR-LESSEQP))) IDATE 1000402214856 CONTROLLER-POCKETS (2) SATELLITES (*1*N-MEMBER) IMMEDIATE-DEPENDENTS0 (GCD-CORRECTNESS GCD-S0-SN-BASE-RFILE-2 GCD-S0-SN-BASE-2 GCD-S0-SN-BASE-RFILE-1 GCD-S0-SN-BASE-1 GCD-S-S0-MEM GCD-S-S0-RFILE GCD-S-S0 GET-VLST-READM-RN READM-WRITE-RN READ-WRITEM-RN GET-VLST-MEMBER) EVENT (DEFN N-MEMBER (X LST) (IF (NLISTP LST) (QUOTE *1*FALSE) (OR (EQUAL (FIX X) (FIX (CAR LST))) (N-MEMBER X (CDR LST))))) LOCAL-UNDO-TUPLES ((DCELL . *1*N-MEMBER))))) (PUT1-LST (QUOTE *1*RAM-ADDRP) (QUOTE (MAIN-EVENT RAM-ADDRP))) (PUT1-LST (QUOTE RAM-ADDRP) (QUOTE (TYPE-PRESCRIPTION-LST ((RAM-ADDRP 3 NIL NIL NIL)) LEMMAS ((REWRITE-RULE RAM-ADDRP-4 ((RAM-ADDRP ADDR MEM K) (NOT (LESSP K (PLUS (NAT-TO-UINT H) J)))) (RAM-ADDRP (ADD (QUOTE 32) ADDR H) MEM J) NIL) (REWRITE-RULE RAM-ADDRP-3 ((RAM-ADDRP (ADD (QUOTE 32) ADDR I) MEM K) (NOT (LESSP K (PLUS (INDEX-N H I) J)))) (RAM-ADDRP (ADD (QUOTE 32) ADDR H) MEM J) NIL) (REWRITE-RULE STEPN-RAM-ADDRP NIL (EQUAL (RAM-ADDRP X (MC-MEM (STEPN S N)) K) (RAM-ADDRP X (MC-MEM S) K)) NIL) (REWRITE-RULE WRITEM-MEM-MAINTAIN-RAM-ADDRP NIL (EQUAL (RAM-ADDRP X (WRITEM-MEM OPSZ VLST ADDR MEM) N) (RAM-ADDRP X MEM N)) NIL) (REWRITE-RULE RAM-ADDRP-LA2 ((RAM-ADDRP ADDR MEM N) (NOT (LESSP N (PLUS J (INDEX-N X ADDR))))) (RAM-ADDRP X MEM J) NIL) (REWRITE-RULE RAM-ADDRP-LA1 ((RAM-ADDRP ADDR MEM N) (NOT (LESSP N M))) (RAM-ADDRP ADDR MEM M) NIL) (REWRITE-RULE WRITE-MEM-MAINTAIN-RAM-ADDRP NIL (EQUAL (RAM-ADDRP ADDR (WRITE-MEM VALUE X MEM M) N) (RAM-ADDRP ADDR MEM N)) NIL) (REWRITE-RULE BYTE-WRITE-MAINTAIN-RAM-ADDRP NIL (EQUAL (RAM-ADDRP ADDR (BYTE-WRITE VALUE X MEM) N) (RAM-ADDRP ADDR MEM N)) NIL)) TOTALP-LST ((RAM-ADDRP . T)) SDEFN (LAMBDA (ADDR MEM N) (WRITE-MEMP ADDR MEM N)) LISP-CODE *1*RAM-ADDRP SUBRP *1*FALSE LEVEL-NO 5 IDATE 1000402214856 SATELLITES (*1*RAM-ADDRP) IMMEDIATE-DEPENDENTS0 (GCD-S0P GCD-STATEP RAM-ADDRP-4 RAM-ADDRP-3 WRITE-MEMP-RAM1-UINT READ-MEMP-RAM1-UINT STEPN-RAM-ADDRP WRITEM-MEM-MAINTAIN-RAM-ADDRP WRITE-MEMP-RAM1-ASL READ-MEMP-RAM1-ASL READ-MEMP-RAM3 READ-MEMP-RAM2 READ-MEMP-RAM1-INT READ-MEMP-RAM1 READ-MEMP-RAM0 BYTE-READP-RAM3 BYTE-READP-RAM2 BYTE-READP-RAM1 BYTE-READP-RAM0 RAM-ADDRP-OFF RAM-ADDRP-LA2 RAM-ADDRP-LA1 WRITE-MEMP-RAM3 WRITE-MEMP-RAM2 WRITE-MEMP-RAM1-INT WRITE-MEMP-RAM1 WRITE-MEMP-RAM0 BYTE-WRITEP-RAM3 BYTE-WRITEP-RAM2 BYTE-WRITEP-RAM1 BYTE-WRITEP-RAM0 WRITE-MEM-MAINTAIN-RAM-ADDRP BYTE-WRITE-MAINTAIN-RAM-ADDRP) EVENT (DEFN RAM-ADDRP (ADDR MEM N) (WRITE-MEMP ADDR MEM N)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 WRITE-MEMP . RAM-ADDRP) (DCELL . *1*RAM-ADDRP))))) (PUT1-LST (QUOTE *1*ROM-ADDRP) (QUOTE (MAIN-EVENT ROM-ADDRP))) (PUT1-LST (QUOTE ROM-ADDRP) (QUOTE (TYPE-PRESCRIPTION-LST ((ROM-ADDRP 3 NIL NIL NIL)) LEMMAS ((REWRITE-RULE STEPN-ROM-ADDRP NIL (EQUAL (ROM-ADDRP X (MC-MEM (STEPN S N)) K) (ROM-ADDRP X (MC-MEM S) K)) NIL) (REWRITE-RULE WRITEM-MEM-MAINTAIN-ROM-ADDRP NIL (EQUAL (ROM-ADDRP X (WRITEM-MEM OPSZ VLST ADDR MEM) N) (ROM-ADDRP X MEM N)) NIL) (REWRITE-RULE ROM-ADDRP-LA2 ((ROM-ADDRP ADDR MEM K) (NOT (LESSP K (PLUS J (INDEX-N X ADDR))))) (ROM-ADDRP X MEM J) NIL) (REWRITE-RULE ROM-ADDRP-LA1 ((ROM-ADDRP ADDR MEM N) (NOT (LESSP N M))) (ROM-ADDRP ADDR MEM M) NIL) (REWRITE-RULE WRITE-MEM-MAINTAIN-ROM-ADDRP NIL (EQUAL (ROM-ADDRP ADDR (WRITE-MEM VALUE X MEM M) N) (ROM-ADDRP ADDR MEM N)) NIL) (REWRITE-RULE BYTE-WRITE-MAINTAIN-ROM-ADDRP NIL (EQUAL (ROM-ADDRP ADDR (BYTE-WRITE VALUE X MEM) N) (ROM-ADDRP ADDR MEM N)) NIL)) TOTALP-LST ((ROM-ADDRP . T)) SDEFN (LAMBDA (ADDR MEM N) (PC-READ-MEMP ADDR MEM N)) LISP-CODE *1*ROM-ADDRP SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214856 SATELLITES (*1*ROM-ADDRP) IMMEDIATE-DEPENDENTS0 (GCD-S0P GCD-STATEP GCD-LOAD STEPN-MCODE-ADDRP STEPN-READ-MEM STEPN-PC-READ-MEM STEPN-ROM-ADDRP H-INVARIANT WRITEM-MEM-MAINTAIN-ROM-ADDRP READ-MEMP-ROM1-ASL READ-MEMP-ROM1-INT READ-MEMP-ROM3 READ-MEMP-ROM2 READ-MEMP-ROM1 READ-MEMP-ROM0 BYTE-READP-ROM3 BYTE-READP-ROM2 BYTE-READP-ROM1 BYTE-READP-ROM0 ROM-ADDRP-OFF ROM-ADDRP-LA2 ROM-ADDRP-LA1 PC-READ-MEMP-ROM3 PC-READ-MEMP-ROM2 PC-READ-MEMP-ROM1 PC-READ-MEMP-ROM0 PC-BYTE-READP-ROM3 PC-BYTE-READP-ROM2 PC-BYTE-READP-ROM1 PC-BYTE-READP-ROM0 WRITE-MEM-MAINTAIN-ROM-ADDRP BYTE-WRITE-MAINTAIN-ROM-ADDRP) EVENT (DEFN ROM-ADDRP (ADDR MEM N) (PC-READ-MEMP ADDR MEM N)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PC-READ-MEMP . ROM-ADDRP) (DCELL . *1*ROM-ADDRP))))) (PUT1-LST (QUOTE GCD-EXAMPLE) (QUOTE (IDATE 1000402214841 EVENT (PROVE-LEMMA GCD-EXAMPLE NIL (IMPLIES (AND (EQUAL STACK-POINTER (QUOTE 251657792)) (AND (EQUAL RFILE (QUOTE (0 0 0 0 0 0 0 0 0 0 0 0 0 0 251657804 251657792))) (AND (EQUAL PC (QUOTE 8886)) (AND (EQUAL CCR (QUOTE 0)) (AND (EQUAL GCD-CODE (QUOTE (78 86 0 0 72 231 48 0 36 46 0 8 38 46 0 12 74 130 103 28 74 131 102 4 32 2 96 22 182 130 108 8 76 67 40 0 36 0 96 232 76 66 56 0 38 0 96 224 32 3 76 238 0 12 255 248 78 94 78 117))) (AND (EQUAL EMPTY-MEMORY (QUOTE ((NIL (NIL (NIL (NIL (NIL ((ROM) NIL))))))))) (AND (EQUAL MEM (LOAD-LST-MEM (QUOTE 4) (QUOTE (8882 54 42)) STACK-POINTER (LOAD-LST-MEM (QUOTE 1) GCD-CODE PC EMPTY-MEMORY))) (AND (EQUAL INITIAL-STATE (MC-STATE (QUOTE RUNNING) RFILE PC CCR MEM)) (EQUAL FINAL-STATE (STEPN INITIAL-STATE (QUOTE 37))))))))))) (AND (EQUAL (MC-STATUS FINAL-STATE) (QUOTE RUNNING)) (AND (EQUAL (MC-RFILE FINAL-STATE) (QUOTE (6 0 0 0 0 0 0 0 0 0 0 0 0 0 251657804 251657796))) (EQUAL (MC-PC FINAL-STATE) (QUOTE 8882)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EXP . GCD-EXAMPLE) (IMMEDIATE-DEPENDENTS0 L . GCD-EXAMPLE) (IMMEDIATE-DEPENDENTS0 HEAD . GCD-EXAMPLE) (IMMEDIATE-DEPENDENTS0 MC-PC . GCD-EXAMPLE) (IMMEDIATE-DEPENDENTS0 MC-RFILE . GCD-EXAMPLE) (IMMEDIATE-DEPENDENTS0 MC-STATUS . GCD-EXAMPLE) (IMMEDIATE-DEPENDENTS0 STEPN . GCD-EXAMPLE) (IMMEDIATE-DEPENDENTS0 MC-STATE . GCD-EXAMPLE) (IMMEDIATE-DEPENDENTS0 LOAD-LST-MEM . GCD-EXAMPLE))))) (PUT1-LST (QUOTE *1*LOAD-LST-MEM) (QUOTE (MAIN-EVENT LOAD-LST-MEM))) (PUT1-LST (QUOTE LOAD-LST-MEM) (QUOTE (TYPE-PRESCRIPTION-LST ((LOAD-LST-MEM 16 NIL NIL NIL T)) TOTALP-LST ((LOAD-LST-MEM . T)) QUICK-BLOCK-INFO (UNCHANGING SELF-REFLEXIVE SELF-REFLEXIVE SELF-REFLEXIVE) SDEFN (LAMBDA (OPSZ LST ADDR MEM) (IF (LISTP LST) (LOAD-LST-MEM OPSZ (CDR LST) (ADD (QUOTE 32) ADDR OPSZ) (WRITE-MEM (CAR LST) ADDR MEM OPSZ)) MEM)) LISP-CODE *1*LOAD-LST-MEM SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((LISTP LST)) ((OPSZ (CDR LST) (ADD (QUOTE 32) ADDR OPSZ) (WRITE-MEM (CAR LST) ADDR MEM OPSZ)))) (TESTS-AND-CASES ((NOT (LISTP LST))) NIL)) LEVEL-NO 6 JUSTIFICATIONS ((JUSTIFICATION (LST) (COUNT LST) LESSP (ZERO CDR-LESSP))) IDATE 1000402214825 CONTROLLER-POCKETS (2) SATELLITES (*1*LOAD-LST-MEM) IMMEDIATE-DEPENDENTS0 (GCD-EXAMPLE) EVENT (DEFN LOAD-LST-MEM (OPSZ LST ADDR MEM) (IF (LISTP LST) (LOAD-LST-MEM OPSZ (CDR LST) (ADD (QUOTE 32) ADDR OPSZ) (WRITE-MEM (CAR LST) ADDR MEM OPSZ)) MEM)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 WRITE-MEM . LOAD-LST-MEM) (IMMEDIATE-DEPENDENTS0 ADD . LOAD-LST-MEM) (DCELL . *1*LOAD-LST-MEM))))) (PUT1-LST (QUOTE *1*MAP-UPDATE) (QUOTE (MAIN-EVENT MAP-UPDATE))) (PUT1-LST (QUOTE MAP-UPDATE) (QUOTE (TYPE-PRESCRIPTION-LST ((MAP-UPDATE 16 NIL NIL NIL NIL)) TOTALP-LST ((MAP-UPDATE . T)) QUICK-BLOCK-INFO (UNCHANGING UNCHANGING SELF-REFLEXIVE SELF-REFLEXIVE) SDEFN (LAMBDA (KEY X N MAP) (IF (EQUAL N (QUOTE 0)) (MAKE-MAP KEY MAP) (IF (NUMBERP N) (IF (B0P (BITN X (SUB1 N))) (MAKE-BT (KEY-FIELD MAP) (MAP-UPDATE KEY X (SUB1 N) (BRANCH0 MAP)) (BRANCH1 MAP)) (MAKE-BT (KEY-FIELD MAP) (BRANCH0 MAP) (MAP-UPDATE KEY X (SUB1 N) (BRANCH1 MAP)))) (MAKE-MAP KEY MAP)))) LISP-CODE *1*MAP-UPDATE SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((ZEROP N)) NIL) (TESTS-AND-CASES ((NOT (ZEROP N)) (B0P (BITN X (SUB1 N)))) ((KEY X (SUB1 N) (BRANCH0 MAP)))) (TESTS-AND-CASES ((NOT (ZEROP N)) (NOT (B0P (BITN X (SUB1 N))))) ((KEY X (SUB1 N) (BRANCH1 MAP))))) LEVEL-NO 4 JUSTIFICATIONS ((JUSTIFICATION (N) (COUNT N) LESSP (ZEROP BCAR TAIL BITN B0 B0P COUNT-NUMBERP LESSP-SUB1))) IDATE 1000402214825 CONTROLLER-POCKETS (4) SATELLITES (*1*MAP-UPDATE) EVENT (DEFN MAP-UPDATE (KEY X N MAP) (IF (ZEROP N) (MAKE-MAP KEY MAP) (IF (B0P (BITN X (SUB1 N))) (MAKE-BT (KEY-FIELD MAP) (MAP-UPDATE KEY X (SUB1 N) (BRANCH0 MAP)) (BRANCH1 MAP)) (MAKE-BT (KEY-FIELD MAP) (BRANCH0 MAP) (MAP-UPDATE KEY X (SUB1 N) (BRANCH1 MAP)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BRANCH1 . MAP-UPDATE) (IMMEDIATE-DEPENDENTS0 BRANCH0 . MAP-UPDATE) (IMMEDIATE-DEPENDENTS0 KEY-FIELD . MAP-UPDATE) (IMMEDIATE-DEPENDENTS0 MAKE-BT . MAP-UPDATE) (IMMEDIATE-DEPENDENTS0 MAKE-MAP . MAP-UPDATE) (IMMEDIATE-DEPENDENTS0 BCAR . MAP-UPDATE) (IMMEDIATE-DEPENDENTS0 TAIL . MAP-UPDATE) (IMMEDIATE-DEPENDENTS0 BITN . MAP-UPDATE) (IMMEDIATE-DEPENDENTS0 B0 . MAP-UPDATE) (IMMEDIATE-DEPENDENTS0 B0P . MAP-UPDATE) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . MAP-UPDATE) (DCELL . *1*MAP-UPDATE))))) (PUT1-LST (QUOTE *1*MAKE-MAP) (QUOTE (MAIN-EVENT MAKE-MAP))) (PUT1-LST (QUOTE MAKE-MAP) (QUOTE (TYPE-PRESCRIPTION-LST ((MAKE-MAP 16 NIL NIL)) TOTALP-LST ((MAKE-MAP . T)) SDEFN (LAMBDA (KEY MAP) (MAKE-BT (CONS-KEY-LST KEY (KEY-FIELD MAP)) (BRANCH0 MAP) (BRANCH1 MAP))) LISP-CODE *1*MAKE-MAP SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402214825 SATELLITES (*1*MAKE-MAP) IMMEDIATE-DEPENDENTS0 (MAP-UPDATE) EVENT (DEFN MAKE-MAP (KEY MAP) (MAKE-BT (CONS-KEY-LST KEY (KEY-FIELD MAP)) (BRANCH0 MAP) (BRANCH1 MAP))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BRANCH1 . MAKE-MAP) (IMMEDIATE-DEPENDENTS0 BRANCH0 . MAKE-MAP) (IMMEDIATE-DEPENDENTS0 KEY-FIELD . MAKE-MAP) (IMMEDIATE-DEPENDENTS0 CONS-KEY-LST . MAKE-MAP) (IMMEDIATE-DEPENDENTS0 MAKE-BT . MAKE-MAP) (DCELL . *1*MAKE-MAP))))) (PUT1-LST (QUOTE *1*KEY-FIELD) (QUOTE (MAIN-EVENT KEY-FIELD))) (PUT1-LST (QUOTE KEY-FIELD) (QUOTE (TYPE-PRESCRIPTION-LST ((KEY-FIELD -1 NIL)) TOTALP-LST ((KEY-FIELD . T)) SDEFN (LAMBDA (MAP) (IF (LISTP MAP) (CAR MAP) (QUOTE NIL))) LISP-CODE *1*KEY-FIELD SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402214825 SATELLITES (*1*KEY-FIELD) IMMEDIATE-DEPENDENTS0 (MAP-UPDATE MAKE-MAP) EVENT (DEFN KEY-FIELD (MAP) (IF (LISTP MAP) (CAR MAP) (QUOTE NIL))) LOCAL-UNDO-TUPLES ((DCELL . *1*KEY-FIELD))))) (PUT1-LST (QUOTE *1*CONS-KEY-LST) (QUOTE (MAIN-EVENT CONS-KEY-LST))) (PUT1-LST (QUOTE CONS-KEY-LST) (QUOTE (TYPE-PRESCRIPTION-LST ((CONS-KEY-LST 16 NIL T)) TOTALP-LST ((CONS-KEY-LST . T)) SDEFN (LAMBDA (KEY LST) (IF (MEMBER KEY LST) LST (CONS KEY LST))) LISP-CODE *1*CONS-KEY-LST SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402214825 SATELLITES (*1*CONS-KEY-LST) IMMEDIATE-DEPENDENTS0 (MAKE-MAP) EVENT (DEFN CONS-KEY-LST (KEY LST) (IF (MEMBER KEY LST) LST (CONS KEY LST))) LOCAL-UNDO-TUPLES ((DCELL . *1*CONS-KEY-LST))))) (PUT1-LST (QUOTE *1*STEPN) (QUOTE (MAIN-EVENT STEPN))) (PUT1-LST (QUOTE STEPN) (QUOTE (TYPE-PRESCRIPTION-LST ((STEPN -1 T NIL)) LEMMAS ((REWRITE-RULE STEPN-REWRITER ((EQUAL (MC-STATUS S) (QUOTE RUNNING))) (EQUAL (STEPN S (ADD1 N)) (STEPN (STEPI S) N)) NIL) (REWRITE-RULE STEPN-REWRITER0 NIL (EQUAL (STEPN S (QUOTE 0)) S) NIL) (REWRITE-RULE STEPN-LEMMA NIL (EQUAL (STEPN S (SPLUS M N)) (STEPN (STEPN S M) N)) NIL)) TOTALP-LST ((STEPN . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE) SDEFN (LAMBDA (S N) (IF (MC-HALTP S) S (IF (EQUAL N (QUOTE 0)) S (IF (NUMBERP N) (STEPN (STEPI S) (SUB1 N)) S)))) LISP-CODE *1*STEPN SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((OR (MC-HALTP S) (ZEROP N))) NIL) (TESTS-AND-CASES ((NOT (OR (MC-HALTP S) (ZEROP N)))) (((STEPI S) (SUB1 N))))) LEVEL-NO 7 JUSTIFICATIONS ((JUSTIFICATION (N) (COUNT N) LESSP (MC-STATUS MC-HALTP ZEROP OR COUNT-NUMBERP LESSP-SUB1))) IDATE 1000402214825 CONTROLLER-POCKETS (2) SATELLITES (*1*STEPN) IMMEDIATE-DEPENDENTS0 (GCD-CORRECTNESS GCD-S0-SN-RFILE GCD-S0-SN GCD-S0-S0-RFILE-2 GCD-S0-S0-RFILE-1 GCD-S0-S0-2 GCD-S0-S0-1 GCD-S0-SN-BASE-RFILE-2 GCD-S0-SN-BASE-2 GCD-S0-SN-BASE-RFILE-1 GCD-S0-SN-BASE-1 GCD-S-S0-MEM GCD-S-S0-RFILE GCD-S-S0 GCD-INDUCT STEPN-GCD-LOADP STEPN-MCODE-ADDRP STEPN-READ-MEM STEPN-PC-READ-MEM STEPN-RAM-ADDRP STEPN-ROM-ADDRP STEPN-WRITE-MEMP STEPN-READ-MEMP STEPN-PC-READ-MEMP STEPN-H STEPN-OFF STEPN-MEM-ILST STEPN-MEM-LST STEPN-READM-MEM STEPN-REWRITER STEPN-REWRITER0 STEPN-LEMMA GCD-EXAMPLE) EVENT (DEFN STEPN (S N) (IF (OR (MC-HALTP S) (ZEROP N)) S (STEPN (STEPI S) (SUB1 N))) ((LESSP (COUNT N)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 STEPI . STEPN) (IMMEDIATE-DEPENDENTS0 MC-STATUS . STEPN) (IMMEDIATE-DEPENDENTS0 MC-HALTP . STEPN) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . STEPN) (DCELL . *1*STEPN))))) (PUT1-LST (QUOTE *1*STEPI) (QUOTE (MAIN-EVENT STEPI))) (PUT1-LST (QUOTE STEPI) (QUOTE (TYPE-PRESCRIPTION-LST ((STEPI -1 NIL)) TOTALP-LST ((STEPI . T)) SDEFN (LAMBDA (S) (IF (EVENP (MC-PC S)) (IF (PC-WORD-READP (MC-PC S) (MC-MEM S)) (EXECUTE-INS (CURRENT-INS (MC-PC S) S) (UPDATE-PC (ADD (L) (MC-PC S) (WSZ)) S)) (HALT (PC-SIGNAL) S)) (HALT (PC-ODD-SIGNAL) S))) LISP-CODE *1*STEPI SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214825 SATELLITES (*1*STEPI) IMMEDIATE-DEPENDENTS0 (GCD-S0-S0-RFILE-2 GCD-S0-S0-RFILE-1 GCD-S0-S0-2 GCD-S0-S0-1 GCD-S0-SN-BASE-RFILE-2 GCD-S0-SN-BASE-2 GCD-S0-SN-BASE-RFILE-1 GCD-S0-SN-BASE-1 GCD-S-S0-MEM GCD-S-S0-RFILE GCD-S-S0 STEPI-P STEPI-H STEPN-REWRITER STEPN) EVENT (DEFN STEPI (S) (IF (EVENP (MC-PC S)) (IF (PC-WORD-READP (MC-PC S) (MC-MEM S)) (EXECUTE-INS (CURRENT-INS (MC-PC S) S) (UPDATE-PC (ADD (L) (MC-PC S) (WSZ)) S)) (HALT (PC-SIGNAL) S)) (HALT (PC-ODD-SIGNAL) S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PC-ODD-SIGNAL . STEPI) (IMMEDIATE-DEPENDENTS0 PC-SIGNAL . STEPI) (IMMEDIATE-DEPENDENTS0 HALT . STEPI) (IMMEDIATE-DEPENDENTS0 WSZ . STEPI) (IMMEDIATE-DEPENDENTS0 L . STEPI) (IMMEDIATE-DEPENDENTS0 ADD . STEPI) (IMMEDIATE-DEPENDENTS0 UPDATE-PC . STEPI) (IMMEDIATE-DEPENDENTS0 CURRENT-INS . STEPI) (IMMEDIATE-DEPENDENTS0 EXECUTE-INS . STEPI) (IMMEDIATE-DEPENDENTS0 MC-MEM . STEPI) (IMMEDIATE-DEPENDENTS0 PC-WORD-READP . STEPI) (IMMEDIATE-DEPENDENTS0 MC-PC . STEPI) (IMMEDIATE-DEPENDENTS0 EVENP . STEPI) (DCELL . *1*STEPI))))) (PUT1-LST (QUOTE *1*CURRENT-INS) (QUOTE (MAIN-EVENT CURRENT-INS))) (PUT1-LST (QUOTE CURRENT-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((CURRENT-INS 4 NIL NIL)) TOTALP-LST ((CURRENT-INS . T)) SDEFN (LAMBDA (PC S) (PC-WORD-READ PC (MC-MEM S))) LISP-CODE *1*CURRENT-INS SUBRP *1*FALSE LEVEL-NO 5 IDATE 1000402214825 SATELLITES (*1*CURRENT-INS) IMMEDIATE-DEPENDENTS0 (GCD-S0-S0-RFILE-2 GCD-S0-S0-RFILE-1 GCD-S0-S0-2 GCD-S0-S0-1 GCD-S0-SN-BASE-RFILE-2 GCD-S0-SN-BASE-2 GCD-S0-SN-BASE-RFILE-1 GCD-S0-SN-BASE-1 GCD-S-S0-MEM GCD-S-S0-RFILE GCD-S-S0 STEPI-H STEPI) EVENT (DEFN CURRENT-INS (PC S) (PC-WORD-READ PC (MC-MEM S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MC-MEM . CURRENT-INS) (IMMEDIATE-DEPENDENTS0 PC-WORD-READ . CURRENT-INS) (DCELL . *1*CURRENT-INS))))) (PUT1-LST (QUOTE *1*EXECUTE-INS) (QUOTE (MAIN-EVENT EXECUTE-INS))) (PUT1-LST (QUOTE EXECUTE-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((EXECUTE-INS -1 NIL T)) TOTALP-LST ((EXECUTE-INS . T)) SDEFN (LAMBDA (INS S) (IF (LESSP (OPCODE-FIELD INS) (QUOTE 8)) (IF (LESSP (OPCODE-FIELD INS) (QUOTE 4)) (IF (LESSP (OPCODE-FIELD INS) (QUOTE 2)) (IF (EQUAL (OPCODE-FIELD INS) (QUOTE 0)) (BIT-GROUP INS S) (MOVE-INS (B) INS S)) (IF (EQUAL (OPCODE-FIELD INS) (QUOTE 2)) (MOVE-GROUP (L) INS S) (MOVE-GROUP (W) INS S))) (IF (LESSP (OPCODE-FIELD INS) (QUOTE 6)) (IF (EQUAL (OPCODE-FIELD INS) (QUOTE 4)) (MISC-GROUP INS S) (SCC-GROUP INS S)) (IF (EQUAL (OPCODE-FIELD INS) (QUOTE 6)) (BCC-GROUP (HEAD INS (B)) INS S) (MOVEQ-INS INS S)))) (IF (LESSP (OPCODE-FIELD INS) (QUOTE 12)) (IF (LESSP (OPCODE-FIELD INS) (QUOTE 10)) (IF (EQUAL (OPCODE-FIELD INS) (QUOTE 8)) (OR-GROUP (OP-LEN INS) INS S) (SUB-GROUP (OPMODE-FIELD INS) INS S)) (IF (EQUAL (OPCODE-FIELD INS) (QUOTE 10)) (HALT (RESERVED-SIGNAL) S) (CMP-GROUP (OP-LEN INS) INS S))) (IF (LESSP (OPCODE-FIELD INS) (QUOTE 14)) (IF (EQUAL (OPCODE-FIELD INS) (QUOTE 12)) (AND-GROUP (OP-LEN INS) INS S) (ADD-GROUP (OPMODE-FIELD INS) INS S)) (IF (EQUAL (OPCODE-FIELD INS) (QUOTE 14)) (S&R-GROUP INS S) (HALT (QUOTE COPROCESSOR-UNSPECIFIED) S)))))) LISP-CODE *1*EXECUTE-INS SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214825 SATELLITES (*1*EXECUTE-INS) IMMEDIATE-DEPENDENTS0 (GCD-S0-S0-RFILE-2 GCD-S0-S0-RFILE-1 GCD-S0-S0-2 GCD-S0-S0-1 GCD-S0-SN-BASE-RFILE-2 GCD-S0-SN-BASE-2 GCD-S0-SN-BASE-RFILE-1 GCD-S0-SN-BASE-1 GCD-S-S0-MEM GCD-S-S0-RFILE GCD-S-S0 STEPI-H STEPI) EVENT (DEFN EXECUTE-INS (INS S) (IF (LESSP (OPCODE-FIELD INS) (QUOTE 8)) (IF (LESSP (OPCODE-FIELD INS) (QUOTE 4)) (IF (LESSP (OPCODE-FIELD INS) (QUOTE 2)) (IF (EQUAL (OPCODE-FIELD INS) (QUOTE 0)) (BIT-GROUP INS S) (MOVE-INS (B) INS S)) (IF (EQUAL (OPCODE-FIELD INS) (QUOTE 2)) (MOVE-GROUP (L) INS S) (MOVE-GROUP (W) INS S))) (IF (LESSP (OPCODE-FIELD INS) (QUOTE 6)) (IF (EQUAL (OPCODE-FIELD INS) (QUOTE 4)) (MISC-GROUP INS S) (SCC-GROUP INS S)) (IF (EQUAL (OPCODE-FIELD INS) (QUOTE 6)) (BCC-GROUP (HEAD INS (B)) INS S) (MOVEQ-INS INS S)))) (IF (LESSP (OPCODE-FIELD INS) (QUOTE 12)) (IF (LESSP (OPCODE-FIELD INS) (QUOTE 10)) (IF (EQUAL (OPCODE-FIELD INS) (QUOTE 8)) (OR-GROUP (OP-LEN INS) INS S) (SUB-GROUP (OPMODE-FIELD INS) INS S)) (IF (EQUAL (OPCODE-FIELD INS) (QUOTE 10)) (HALT (RESERVED-SIGNAL) S) (CMP-GROUP (OP-LEN INS) INS S))) (IF (LESSP (OPCODE-FIELD INS) (QUOTE 14)) (IF (EQUAL (OPCODE-FIELD INS) (QUOTE 12)) (AND-GROUP (OP-LEN INS) INS S) (ADD-GROUP (OPMODE-FIELD INS) INS S)) (IF (EQUAL (OPCODE-FIELD INS) (QUOTE 14)) (S&R-GROUP INS S) (HALT (QUOTE COPROCESSOR-UNSPECIFIED) S)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 S&R-GROUP . EXECUTE-INS) (IMMEDIATE-DEPENDENTS0 ADD-GROUP . EXECUTE-INS) (IMMEDIATE-DEPENDENTS0 AND-GROUP . EXECUTE-INS) (IMMEDIATE-DEPENDENTS0 CMP-GROUP . EXECUTE-INS) (IMMEDIATE-DEPENDENTS0 RESERVED-SIGNAL . EXECUTE-INS) (IMMEDIATE-DEPENDENTS0 HALT . EXECUTE-INS) (IMMEDIATE-DEPENDENTS0 OPMODE-FIELD . EXECUTE-INS) (IMMEDIATE-DEPENDENTS0 SUB-GROUP . EXECUTE-INS) (IMMEDIATE-DEPENDENTS0 OP-LEN . EXECUTE-INS) (IMMEDIATE-DEPENDENTS0 OR-GROUP . EXECUTE-INS) (IMMEDIATE-DEPENDENTS0 MOVEQ-INS . EXECUTE-INS) (IMMEDIATE-DEPENDENTS0 HEAD . EXECUTE-INS) (IMMEDIATE-DEPENDENTS0 BCC-GROUP . EXECUTE-INS) (IMMEDIATE-DEPENDENTS0 SCC-GROUP . EXECUTE-INS) (IMMEDIATE-DEPENDENTS0 MISC-GROUP . EXECUTE-INS) (IMMEDIATE-DEPENDENTS0 W . EXECUTE-INS) (IMMEDIATE-DEPENDENTS0 L . EXECUTE-INS) (IMMEDIATE-DEPENDENTS0 MOVE-GROUP . EXECUTE-INS) (IMMEDIATE-DEPENDENTS0 B . EXECUTE-INS) (IMMEDIATE-DEPENDENTS0 MOVE-INS . EXECUTE-INS) (IMMEDIATE-DEPENDENTS0 BIT-GROUP . EXECUTE-INS) (IMMEDIATE-DEPENDENTS0 OPCODE-FIELD . EXECUTE-INS) (DCELL . *1*EXECUTE-INS))))) (PUT1-LST (QUOTE *1*OPCODE-FIELD) (QUOTE (MAIN-EVENT OPCODE-FIELD))) (PUT1-LST (QUOTE OPCODE-FIELD) (QUOTE (TYPE-PRESCRIPTION-LST ((OPCODE-FIELD 4 NIL)) TOTALP-LST ((OPCODE-FIELD . T)) SDEFN (LAMBDA (INS) (BITS INS (QUOTE 12) (QUOTE 15))) LISP-CODE *1*OPCODE-FIELD SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214825 SATELLITES (*1*OPCODE-FIELD) IMMEDIATE-DEPENDENTS0 (GCD-S0-S0-RFILE-2 GCD-S0-S0-RFILE-1 GCD-S0-S0-2 GCD-S0-S0-1 GCD-S0-SN-BASE-RFILE-2 GCD-S0-SN-BASE-2 GCD-S0-SN-BASE-RFILE-1 GCD-S0-SN-BASE-1 GCD-S-S0-MEM GCD-S-S0-RFILE GCD-S-S0 STEPI-H EXECUTE-INS) EVENT (DEFN OPCODE-FIELD (INS) (BITS INS (QUOTE 12) (QUOTE 15))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BITS . OPCODE-FIELD) (DCELL . *1*OPCODE-FIELD))))) (PUT1-LST (QUOTE *1*BIT-GROUP) (QUOTE (MAIN-EVENT BIT-GROUP))) (PUT1-LST (QUOTE BIT-GROUP) (QUOTE (TYPE-PRESCRIPTION-LST ((BIT-GROUP -1 NIL NIL)) TOTALP-LST ((BIT-GROUP . T)) SDEFN (LAMBDA (INS S) (IF (B0P (BITN INS (QUOTE 8))) (IF (B0P (BITN INS (QUOTE 11))) (IF (B0P (BITN INS (QUOTE 10))) (IF (B0P (BITN INS (QUOTE 9))) (ORI-SUBGROUP (OP-LEN INS) INS S) (ANDI-SUBGROUP (OP-LEN INS) INS S)) (IF (B0P (BITN INS (QUOTE 9))) (SUBI-SUBGROUP (OP-LEN INS) INS S) (ADDI-SUBGROUP (OP-LEN INS) INS S))) (IF (B0P (BITN INS (QUOTE 10))) (IF (B0P (BITN INS (QUOTE 9))) (S-BIT-SUBGROUP INS S) (EORI-SUBGROUP (OP-LEN INS) INS S)) (IF (B0P (BITN INS (QUOTE 9))) (CMPI-SUBGROUP (OP-LEN INS) INS S) (HALT (QUOTE MOVES-CAS-CAS2-UNSPECIFIED) S)))) (D-BIT-SUBGROUP INS S))) LISP-CODE *1*BIT-GROUP SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214825 SATELLITES (*1*BIT-GROUP) IMMEDIATE-DEPENDENTS0 (BIT-GROUP-H GROUPS EXECUTE-INS) EVENT (DEFN BIT-GROUP (INS S) (IF (B0P (BITN INS (QUOTE 8))) (IF (B0P (BITN INS (QUOTE 11))) (IF (B0P (BITN INS (QUOTE 10))) (IF (B0P (BITN INS (QUOTE 9))) (ORI-SUBGROUP (OP-LEN INS) INS S) (ANDI-SUBGROUP (OP-LEN INS) INS S)) (IF (B0P (BITN INS (QUOTE 9))) (SUBI-SUBGROUP (OP-LEN INS) INS S) (ADDI-SUBGROUP (OP-LEN INS) INS S))) (IF (B0P (BITN INS (QUOTE 10))) (IF (B0P (BITN INS (QUOTE 9))) (S-BIT-SUBGROUP INS S) (EORI-SUBGROUP (OP-LEN INS) INS S)) (IF (B0P (BITN INS (QUOTE 9))) (CMPI-SUBGROUP (OP-LEN INS) INS S) (HALT (QUOTE MOVES-CAS-CAS2-UNSPECIFIED) S)))) (D-BIT-SUBGROUP INS S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 D-BIT-SUBGROUP . BIT-GROUP) (IMMEDIATE-DEPENDENTS0 HALT . BIT-GROUP) (IMMEDIATE-DEPENDENTS0 CMPI-SUBGROUP . BIT-GROUP) (IMMEDIATE-DEPENDENTS0 EORI-SUBGROUP . BIT-GROUP) (IMMEDIATE-DEPENDENTS0 S-BIT-SUBGROUP . BIT-GROUP) (IMMEDIATE-DEPENDENTS0 ADDI-SUBGROUP . BIT-GROUP) (IMMEDIATE-DEPENDENTS0 SUBI-SUBGROUP . BIT-GROUP) (IMMEDIATE-DEPENDENTS0 ANDI-SUBGROUP . BIT-GROUP) (IMMEDIATE-DEPENDENTS0 OP-LEN . BIT-GROUP) (IMMEDIATE-DEPENDENTS0 ORI-SUBGROUP . BIT-GROUP) (IMMEDIATE-DEPENDENTS0 BITN . BIT-GROUP) (IMMEDIATE-DEPENDENTS0 B0P . BIT-GROUP) (DCELL . *1*BIT-GROUP))))) (PUT1-LST (QUOTE *1*CMPI-SUBGROUP) (QUOTE (MAIN-EVENT CMPI-SUBGROUP))) (PUT1-LST (QUOTE CMPI-SUBGROUP) (QUOTE (TYPE-PRESCRIPTION-LST ((CMPI-SUBGROUP -1 NIL NIL NIL)) TOTALP-LST ((CMPI-SUBGROUP . T)) SDEFN (LAMBDA (OPLEN INS S) (IF (EQUAL OPLEN (Q)) (HALT (QUOTE CAS-CAS2-UNSPECIFIED) S) (CMPI-INS OPLEN INS S))) LISP-CODE *1*CMPI-SUBGROUP SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214825 SATELLITES (*1*CMPI-SUBGROUP) IMMEDIATE-DEPENDENTS0 (BIT-GROUP-H BIT-GROUP) EVENT (DEFN CMPI-SUBGROUP (OPLEN INS S) (IF (EQUAL OPLEN (Q)) (HALT (QUOTE CAS-CAS2-UNSPECIFIED) S) (CMPI-INS OPLEN INS S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CMPI-INS . CMPI-SUBGROUP) (IMMEDIATE-DEPENDENTS0 HALT . CMPI-SUBGROUP) (IMMEDIATE-DEPENDENTS0 Q . CMPI-SUBGROUP) (DCELL . *1*CMPI-SUBGROUP))))) (PUT1-LST (QUOTE *1*CMPI-INS) (QUOTE (MAIN-EVENT CMPI-INS))) (PUT1-LST (QUOTE CMPI-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((CMPI-INS -1 NIL NIL NIL)) TOTALP-LST ((CMPI-INS . T)) SDEFN (LAMBDA (OPLEN INS S) (IF (MC-HALTP (CAR (IMMEDIATE OPLEN (MC-PC S) S))) (CAR (IMMEDIATE OPLEN (MC-PC S) S)) (IF (CMPI-ADDR-MODEP INS) (CMPI-MAPPING (CDR (CDR (IMMEDIATE OPLEN (MC-PC S) S))) OPLEN INS (CAR (IMMEDIATE OPLEN (MC-PC S) S))) (HALT (MODE-SIGNAL) S)))) LISP-CODE *1*CMPI-INS SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214825 SATELLITES (*1*CMPI-INS) IMMEDIATE-DEPENDENTS0 (BIT-GROUP-H CMPI-SUBGROUP) EVENT (DEFN CMPI-INS (OPLEN INS S) (IF (MC-HALTP (CAR (IMMEDIATE OPLEN (MC-PC S) S))) (CAR (IMMEDIATE OPLEN (MC-PC S) S)) (IF (CMPI-ADDR-MODEP INS) (CMPI-MAPPING (CDR (CDR (IMMEDIATE OPLEN (MC-PC S) S))) OPLEN INS (CAR (IMMEDIATE OPLEN (MC-PC S) S))) (HALT (MODE-SIGNAL) S)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MODE-SIGNAL . CMPI-INS) (IMMEDIATE-DEPENDENTS0 HALT . CMPI-INS) (IMMEDIATE-DEPENDENTS0 CMPI-MAPPING . CMPI-INS) (IMMEDIATE-DEPENDENTS0 CMPI-ADDR-MODEP . CMPI-INS) (IMMEDIATE-DEPENDENTS0 MC-PC . CMPI-INS) (IMMEDIATE-DEPENDENTS0 IMMEDIATE . CMPI-INS) (IMMEDIATE-DEPENDENTS0 MC-HALTP . CMPI-INS) (DCELL . *1*CMPI-INS))))) (PUT1-LST (QUOTE *1*CMPI-MAPPING) (QUOTE (MAIN-EVENT CMPI-MAPPING))) (PUT1-LST (QUOTE CMPI-MAPPING) (QUOTE (TYPE-PRESCRIPTION-LST ((CMPI-MAPPING -1 NIL NIL NIL NIL)) TOTALP-LST ((CMPI-MAPPING . T)) SDEFN (LAMBDA (IDATA OPLEN INS S) (IF (MC-HALTP (CAR (MC-INSTATE OPLEN INS S))) (CAR (MC-INSTATE OPLEN INS S)) (UPDATE-CCR (CMP-CVZNX OPLEN IDATA (OPERAND OPLEN (CDR (MC-INSTATE OPLEN INS S)) S) (MC-CCR S)) (CAR (MC-INSTATE OPLEN INS S))))) LISP-CODE *1*CMPI-MAPPING SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214825 SATELLITES (*1*CMPI-MAPPING) IMMEDIATE-DEPENDENTS0 (BIT-GROUP-H CMPI-INS) EVENT (DEFN CMPI-MAPPING (IDATA OPLEN INS S) (IF (MC-HALTP (CAR (MC-INSTATE OPLEN INS S))) (CAR (MC-INSTATE OPLEN INS S)) (UPDATE-CCR (CMP-CVZNX OPLEN IDATA (OPERAND OPLEN (CDR (MC-INSTATE OPLEN INS S)) S) (MC-CCR S)) (CAR (MC-INSTATE OPLEN INS S))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MC-CCR . CMPI-MAPPING) (IMMEDIATE-DEPENDENTS0 OPERAND . CMPI-MAPPING) (IMMEDIATE-DEPENDENTS0 CMP-CVZNX . CMPI-MAPPING) (IMMEDIATE-DEPENDENTS0 UPDATE-CCR . CMPI-MAPPING) (IMMEDIATE-DEPENDENTS0 MC-INSTATE . CMPI-MAPPING) (IMMEDIATE-DEPENDENTS0 MC-HALTP . CMPI-MAPPING) (DCELL . *1*CMPI-MAPPING))))) (PUT1-LST (QUOTE *1*CMPI-ADDR-MODEP) (QUOTE (MAIN-EVENT CMPI-ADDR-MODEP))) (PUT1-LST (QUOTE CMPI-ADDR-MODEP) (QUOTE (TYPE-PRESCRIPTION-LST ((CMPI-ADDR-MODEP 3 NIL)) TOTALP-LST ((CMPI-ADDR-MODEP . T)) SDEFN (LAMBDA (INS) (IF (DATA-ADDR-MODEP (S_MODE INS) (S_RN INS)) (IF (IDATA-MODEP (S_MODE INS) (S_RN INS)) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (QUOTE *1*FALSE))) LISP-CODE *1*CMPI-ADDR-MODEP SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214825 SATELLITES (*1*CMPI-ADDR-MODEP) IMMEDIATE-DEPENDENTS0 (MODE-GUARDS CMPI-INS) EVENT (DEFN CMPI-ADDR-MODEP (INS) (AND (DATA-ADDR-MODEP (S_MODE INS) (S_RN INS)) (NOT (IDATA-MODEP (S_MODE INS) (S_RN INS))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IDATA-MODEP . CMPI-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 S_RN . CMPI-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 S_MODE . CMPI-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 DATA-ADDR-MODEP . CMPI-ADDR-MODEP) (DCELL . *1*CMPI-ADDR-MODEP))))) (PUT1-LST (QUOTE *1*EORI-SUBGROUP) (QUOTE (MAIN-EVENT EORI-SUBGROUP))) (PUT1-LST (QUOTE EORI-SUBGROUP) (QUOTE (TYPE-PRESCRIPTION-LST ((EORI-SUBGROUP -1 NIL NIL NIL)) TOTALP-LST ((EORI-SUBGROUP . T)) SDEFN (LAMBDA (OPLEN INS S) (IF (EQUAL OPLEN (Q)) (HALT (QUOTE CAS-CAS2-UNSPECIFIED) S) (IF (EQUAL (HEAD INS (QUOTE 6)) (QUOTE 60)) (IF (EQUAL OPLEN (B)) (EORI-TO-CCR-INS (MC-PC S) S) (IF (EQUAL OPLEN (W)) (HALT (QUOTE EORI-TO-SR-UNSPECIFIED) S) (HALT (RESERVED-SIGNAL) S))) (EORI-INS OPLEN INS S)))) LISP-CODE *1*EORI-SUBGROUP SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214825 SATELLITES (*1*EORI-SUBGROUP) IMMEDIATE-DEPENDENTS0 (BIT-GROUP-H BIT-GROUP) EVENT (DEFN EORI-SUBGROUP (OPLEN INS S) (IF (EQUAL OPLEN (Q)) (HALT (QUOTE CAS-CAS2-UNSPECIFIED) S) (IF (EQUAL (HEAD INS (QUOTE 6)) (QUOTE 60)) (IF (EQUAL OPLEN (B)) (EORI-TO-CCR-INS (MC-PC S) S) (IF (EQUAL OPLEN (W)) (HALT (QUOTE EORI-TO-SR-UNSPECIFIED) S) (HALT (RESERVED-SIGNAL) S))) (EORI-INS OPLEN INS S)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EORI-INS . EORI-SUBGROUP) (IMMEDIATE-DEPENDENTS0 RESERVED-SIGNAL . EORI-SUBGROUP) (IMMEDIATE-DEPENDENTS0 W . EORI-SUBGROUP) (IMMEDIATE-DEPENDENTS0 MC-PC . EORI-SUBGROUP) (IMMEDIATE-DEPENDENTS0 EORI-TO-CCR-INS . EORI-SUBGROUP) (IMMEDIATE-DEPENDENTS0 B . EORI-SUBGROUP) (IMMEDIATE-DEPENDENTS0 HEAD . EORI-SUBGROUP) (IMMEDIATE-DEPENDENTS0 HALT . EORI-SUBGROUP) (IMMEDIATE-DEPENDENTS0 Q . EORI-SUBGROUP) (DCELL . *1*EORI-SUBGROUP))))) (PUT1-LST (QUOTE *1*EORI-TO-CCR-INS) (QUOTE (MAIN-EVENT EORI-TO-CCR-INS))) (PUT1-LST (QUOTE EORI-TO-CCR-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((EORI-TO-CCR-INS 16 NIL NIL)) TOTALP-LST ((EORI-TO-CCR-INS . T)) SDEFN (LAMBDA (PC S) (IF (PC-WORD-READP PC (MC-MEM S)) (IF (EQUAL (PC-BYTE-READ PC (MC-MEM S)) (QUOTE 0)) (UPDATE-CCR (LOGEOR (PC-BYTE-READ (ADD (L) PC (BSZ)) (MC-MEM S)) (MC-CCR S)) (UPDATE-PC (ADD (L) PC (WSZ)) S)) (HALT (RESERVED-SIGNAL) S)) (HALT (PC-SIGNAL) S))) LISP-CODE *1*EORI-TO-CCR-INS SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214825 SATELLITES (*1*EORI-TO-CCR-INS) IMMEDIATE-DEPENDENTS0 (BIT-GROUP-H EORI-SUBGROUP) EVENT (DEFN EORI-TO-CCR-INS (PC S) (IF (PC-WORD-READP PC (MC-MEM S)) (IF (EQUAL (PC-BYTE-READ PC (MC-MEM S)) (QUOTE 0)) (UPDATE-CCR (LOGEOR (PC-BYTE-READ (ADD (L) PC (BSZ)) (MC-MEM S)) (MC-CCR S)) (UPDATE-PC (ADD (L) PC (WSZ)) S)) (HALT (RESERVED-SIGNAL) S)) (HALT (PC-SIGNAL) S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PC-SIGNAL . EORI-TO-CCR-INS) (IMMEDIATE-DEPENDENTS0 RESERVED-SIGNAL . EORI-TO-CCR-INS) (IMMEDIATE-DEPENDENTS0 HALT . EORI-TO-CCR-INS) (IMMEDIATE-DEPENDENTS0 WSZ . EORI-TO-CCR-INS) (IMMEDIATE-DEPENDENTS0 UPDATE-PC . EORI-TO-CCR-INS) (IMMEDIATE-DEPENDENTS0 MC-CCR . EORI-TO-CCR-INS) (IMMEDIATE-DEPENDENTS0 BSZ . EORI-TO-CCR-INS) (IMMEDIATE-DEPENDENTS0 L . EORI-TO-CCR-INS) (IMMEDIATE-DEPENDENTS0 ADD . EORI-TO-CCR-INS) (IMMEDIATE-DEPENDENTS0 LOGEOR . EORI-TO-CCR-INS) (IMMEDIATE-DEPENDENTS0 UPDATE-CCR . EORI-TO-CCR-INS) (IMMEDIATE-DEPENDENTS0 PC-BYTE-READ . EORI-TO-CCR-INS) (IMMEDIATE-DEPENDENTS0 MC-MEM . EORI-TO-CCR-INS) (IMMEDIATE-DEPENDENTS0 PC-WORD-READP . EORI-TO-CCR-INS) (DCELL . *1*EORI-TO-CCR-INS))))) (PUT1-LST (QUOTE *1*EORI-INS) (QUOTE (MAIN-EVENT EORI-INS))) (PUT1-LST (QUOTE EORI-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((EORI-INS -1 NIL NIL NIL)) TOTALP-LST ((EORI-INS . T)) SDEFN (LAMBDA (OPLEN INS S) (IF (MC-HALTP (CAR (IMMEDIATE OPLEN (MC-PC S) S))) (CAR (IMMEDIATE OPLEN (MC-PC S) S)) (IF (EOR&EORI-ADDR-MODEP INS) (EOR-MAPPING (CDR (CDR (IMMEDIATE OPLEN (MC-PC S) S))) OPLEN INS (CAR (IMMEDIATE OPLEN (MC-PC S) S))) (HALT (MODE-SIGNAL) S)))) LISP-CODE *1*EORI-INS SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214825 SATELLITES (*1*EORI-INS) IMMEDIATE-DEPENDENTS0 (BIT-GROUP-H EORI-SUBGROUP) EVENT (DEFN EORI-INS (OPLEN INS S) (IF (MC-HALTP (CAR (IMMEDIATE OPLEN (MC-PC S) S))) (CAR (IMMEDIATE OPLEN (MC-PC S) S)) (IF (EOR&EORI-ADDR-MODEP INS) (EOR-MAPPING (CDR (CDR (IMMEDIATE OPLEN (MC-PC S) S))) OPLEN INS (CAR (IMMEDIATE OPLEN (MC-PC S) S))) (HALT (MODE-SIGNAL) S)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MODE-SIGNAL . EORI-INS) (IMMEDIATE-DEPENDENTS0 HALT . EORI-INS) (IMMEDIATE-DEPENDENTS0 EOR-MAPPING . EORI-INS) (IMMEDIATE-DEPENDENTS0 EOR&EORI-ADDR-MODEP . EORI-INS) (IMMEDIATE-DEPENDENTS0 MC-PC . EORI-INS) (IMMEDIATE-DEPENDENTS0 IMMEDIATE . EORI-INS) (IMMEDIATE-DEPENDENTS0 MC-HALTP . EORI-INS) (DCELL . *1*EORI-INS))))) (PUT1-LST (QUOTE *1*ADDI-SUBGROUP) (QUOTE (MAIN-EVENT ADDI-SUBGROUP))) (PUT1-LST (QUOTE ADDI-SUBGROUP) (QUOTE (TYPE-PRESCRIPTION-LST ((ADDI-SUBGROUP -1 NIL NIL NIL)) TOTALP-LST ((ADDI-SUBGROUP . T)) SDEFN (LAMBDA (OPLEN INS S) (IF (EQUAL OPLEN (Q)) (HALT (QUOTE RTM-CALLM-UNSPECIFIED) S) (ADDI-INS OPLEN INS S))) LISP-CODE *1*ADDI-SUBGROUP SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214825 SATELLITES (*1*ADDI-SUBGROUP) IMMEDIATE-DEPENDENTS0 (BIT-GROUP-H BIT-GROUP) EVENT (DEFN ADDI-SUBGROUP (OPLEN INS S) (IF (EQUAL OPLEN (Q)) (HALT (QUOTE RTM-CALLM-UNSPECIFIED) S) (ADDI-INS OPLEN INS S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ADDI-INS . ADDI-SUBGROUP) (IMMEDIATE-DEPENDENTS0 HALT . ADDI-SUBGROUP) (IMMEDIATE-DEPENDENTS0 Q . ADDI-SUBGROUP) (DCELL . *1*ADDI-SUBGROUP))))) (PUT1-LST (QUOTE *1*ADDI-INS) (QUOTE (MAIN-EVENT ADDI-INS))) (PUT1-LST (QUOTE ADDI-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((ADDI-INS -1 NIL NIL NIL)) TOTALP-LST ((ADDI-INS . T)) SDEFN (LAMBDA (OPLEN INS S) (IF (MC-HALTP (CAR (IMMEDIATE OPLEN (MC-PC S) S))) (CAR (IMMEDIATE OPLEN (MC-PC S) S)) (IF (ADDI-ADDR-MODEP INS) (ADD-MAPPING (CDR (CDR (IMMEDIATE OPLEN (MC-PC S) S))) OPLEN INS (CAR (IMMEDIATE OPLEN (MC-PC S) S))) (HALT (MODE-SIGNAL) S)))) LISP-CODE *1*ADDI-INS SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214825 SATELLITES (*1*ADDI-INS) IMMEDIATE-DEPENDENTS0 (BIT-GROUP-H ADDI-SUBGROUP) EVENT (DEFN ADDI-INS (OPLEN INS S) (IF (MC-HALTP (CAR (IMMEDIATE OPLEN (MC-PC S) S))) (CAR (IMMEDIATE OPLEN (MC-PC S) S)) (IF (ADDI-ADDR-MODEP INS) (ADD-MAPPING (CDR (CDR (IMMEDIATE OPLEN (MC-PC S) S))) OPLEN INS (CAR (IMMEDIATE OPLEN (MC-PC S) S))) (HALT (MODE-SIGNAL) S)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MODE-SIGNAL . ADDI-INS) (IMMEDIATE-DEPENDENTS0 HALT . ADDI-INS) (IMMEDIATE-DEPENDENTS0 ADD-MAPPING . ADDI-INS) (IMMEDIATE-DEPENDENTS0 ADDI-ADDR-MODEP . ADDI-INS) (IMMEDIATE-DEPENDENTS0 MC-PC . ADDI-INS) (IMMEDIATE-DEPENDENTS0 IMMEDIATE . ADDI-INS) (IMMEDIATE-DEPENDENTS0 MC-HALTP . ADDI-INS) (DCELL . *1*ADDI-INS))))) (PUT1-LST (QUOTE *1*ADDI-ADDR-MODEP) (QUOTE (MAIN-EVENT ADDI-ADDR-MODEP))) (PUT1-LST (QUOTE ADDI-ADDR-MODEP) (QUOTE (TYPE-PRESCRIPTION-LST ((ADDI-ADDR-MODEP 3 NIL)) TOTALP-LST ((ADDI-ADDR-MODEP . T)) SDEFN (LAMBDA (INS) (IF (DATA-ADDR-MODEP (S_MODE INS) (S_RN INS)) (ALTERABLE-ADDR-MODEP (S_MODE INS) (S_RN INS)) (QUOTE *1*FALSE))) LISP-CODE *1*ADDI-ADDR-MODEP SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214825 SATELLITES (*1*ADDI-ADDR-MODEP) IMMEDIATE-DEPENDENTS0 (MODE-GUARDS ADDI-INS) EVENT (DEFN ADDI-ADDR-MODEP (INS) (AND (DATA-ADDR-MODEP (S_MODE INS) (S_RN INS)) (ALTERABLE-ADDR-MODEP (S_MODE INS) (S_RN INS)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ALTERABLE-ADDR-MODEP . ADDI-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 S_RN . ADDI-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 S_MODE . ADDI-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 DATA-ADDR-MODEP . ADDI-ADDR-MODEP) (DCELL . *1*ADDI-ADDR-MODEP))))) (PUT1-LST (QUOTE *1*SUBI-SUBGROUP) (QUOTE (MAIN-EVENT SUBI-SUBGROUP))) (PUT1-LST (QUOTE SUBI-SUBGROUP) (QUOTE (TYPE-PRESCRIPTION-LST ((SUBI-SUBGROUP -1 NIL NIL NIL)) TOTALP-LST ((SUBI-SUBGROUP . T)) SDEFN (LAMBDA (OPLEN INS S) (IF (EQUAL OPLEN (Q)) (HALT (QUOTE CMP2-CHK2-UNSPECIFIED) S) (SUBI-INS OPLEN INS S))) LISP-CODE *1*SUBI-SUBGROUP SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214825 SATELLITES (*1*SUBI-SUBGROUP) IMMEDIATE-DEPENDENTS0 (BIT-GROUP-H BIT-GROUP) EVENT (DEFN SUBI-SUBGROUP (OPLEN INS S) (IF (EQUAL OPLEN (Q)) (HALT (QUOTE CMP2-CHK2-UNSPECIFIED) S) (SUBI-INS OPLEN INS S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUBI-INS . SUBI-SUBGROUP) (IMMEDIATE-DEPENDENTS0 HALT . SUBI-SUBGROUP) (IMMEDIATE-DEPENDENTS0 Q . SUBI-SUBGROUP) (DCELL . *1*SUBI-SUBGROUP))))) (PUT1-LST (QUOTE *1*SUBI-INS) (QUOTE (MAIN-EVENT SUBI-INS))) (PUT1-LST (QUOTE SUBI-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((SUBI-INS -1 NIL NIL NIL)) TOTALP-LST ((SUBI-INS . T)) SDEFN (LAMBDA (OPLEN INS S) (IF (MC-HALTP (CAR (IMMEDIATE OPLEN (MC-PC S) S))) (CAR (IMMEDIATE OPLEN (MC-PC S) S)) (IF (SUBI-ADDR-MODEP INS) (SUB-MAPPING (CDR (CDR (IMMEDIATE OPLEN (MC-PC S) S))) OPLEN INS (CAR (IMMEDIATE OPLEN (MC-PC S) S))) (HALT (MODE-SIGNAL) S)))) LISP-CODE *1*SUBI-INS SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214825 SATELLITES (*1*SUBI-INS) IMMEDIATE-DEPENDENTS0 (BIT-GROUP-H SUBI-SUBGROUP) EVENT (DEFN SUBI-INS (OPLEN INS S) (IF (MC-HALTP (CAR (IMMEDIATE OPLEN (MC-PC S) S))) (CAR (IMMEDIATE OPLEN (MC-PC S) S)) (IF (SUBI-ADDR-MODEP INS) (SUB-MAPPING (CDR (CDR (IMMEDIATE OPLEN (MC-PC S) S))) OPLEN INS (CAR (IMMEDIATE OPLEN (MC-PC S) S))) (HALT (MODE-SIGNAL) S)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MODE-SIGNAL . SUBI-INS) (IMMEDIATE-DEPENDENTS0 HALT . SUBI-INS) (IMMEDIATE-DEPENDENTS0 SUB-MAPPING . SUBI-INS) (IMMEDIATE-DEPENDENTS0 SUBI-ADDR-MODEP . SUBI-INS) (IMMEDIATE-DEPENDENTS0 MC-PC . SUBI-INS) (IMMEDIATE-DEPENDENTS0 IMMEDIATE . SUBI-INS) (IMMEDIATE-DEPENDENTS0 MC-HALTP . SUBI-INS) (DCELL . *1*SUBI-INS))))) (PUT1-LST (QUOTE *1*SUBI-ADDR-MODEP) (QUOTE (MAIN-EVENT SUBI-ADDR-MODEP))) (PUT1-LST (QUOTE SUBI-ADDR-MODEP) (QUOTE (TYPE-PRESCRIPTION-LST ((SUBI-ADDR-MODEP 3 NIL)) TOTALP-LST ((SUBI-ADDR-MODEP . T)) SDEFN (LAMBDA (INS) (IF (DATA-ADDR-MODEP (S_MODE INS) (S_RN INS)) (ALTERABLE-ADDR-MODEP (S_MODE INS) (S_RN INS)) (QUOTE *1*FALSE))) LISP-CODE *1*SUBI-ADDR-MODEP SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214825 SATELLITES (*1*SUBI-ADDR-MODEP) IMMEDIATE-DEPENDENTS0 (MODE-GUARDS SUBI-INS) EVENT (DEFN SUBI-ADDR-MODEP (INS) (AND (DATA-ADDR-MODEP (S_MODE INS) (S_RN INS)) (ALTERABLE-ADDR-MODEP (S_MODE INS) (S_RN INS)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ALTERABLE-ADDR-MODEP . SUBI-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 S_RN . SUBI-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 S_MODE . SUBI-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 DATA-ADDR-MODEP . SUBI-ADDR-MODEP) (DCELL . *1*SUBI-ADDR-MODEP))))) (PUT1-LST (QUOTE *1*ANDI-SUBGROUP) (QUOTE (MAIN-EVENT ANDI-SUBGROUP))) (PUT1-LST (QUOTE ANDI-SUBGROUP) (QUOTE (TYPE-PRESCRIPTION-LST ((ANDI-SUBGROUP -1 NIL NIL NIL)) TOTALP-LST ((ANDI-SUBGROUP . T)) SDEFN (LAMBDA (OPLEN INS S) (IF (EQUAL OPLEN (Q)) (HALT (QUOTE CMP2-CHK2-UNSPECIFIED) S) (IF (EQUAL (HEAD INS (QUOTE 6)) (QUOTE 60)) (IF (EQUAL OPLEN (B)) (ANDI-TO-CCR-INS (MC-PC S) S) (IF (EQUAL OPLEN (W)) (HALT (QUOTE ANDI-TO-SR-UNSPECIFIED) S) (HALT (RESERVED-SIGNAL) S))) (ANDI-INS OPLEN INS S)))) LISP-CODE *1*ANDI-SUBGROUP SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214825 SATELLITES (*1*ANDI-SUBGROUP) IMMEDIATE-DEPENDENTS0 (BIT-GROUP-H BIT-GROUP) EVENT (DEFN ANDI-SUBGROUP (OPLEN INS S) (IF (EQUAL OPLEN (Q)) (HALT (QUOTE CMP2-CHK2-UNSPECIFIED) S) (IF (EQUAL (HEAD INS (QUOTE 6)) (QUOTE 60)) (IF (EQUAL OPLEN (B)) (ANDI-TO-CCR-INS (MC-PC S) S) (IF (EQUAL OPLEN (W)) (HALT (QUOTE ANDI-TO-SR-UNSPECIFIED) S) (HALT (RESERVED-SIGNAL) S))) (ANDI-INS OPLEN INS S)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ANDI-INS . ANDI-SUBGROUP) (IMMEDIATE-DEPENDENTS0 RESERVED-SIGNAL . ANDI-SUBGROUP) (IMMEDIATE-DEPENDENTS0 W . ANDI-SUBGROUP) (IMMEDIATE-DEPENDENTS0 MC-PC . ANDI-SUBGROUP) (IMMEDIATE-DEPENDENTS0 ANDI-TO-CCR-INS . ANDI-SUBGROUP) (IMMEDIATE-DEPENDENTS0 B . ANDI-SUBGROUP) (IMMEDIATE-DEPENDENTS0 HEAD . ANDI-SUBGROUP) (IMMEDIATE-DEPENDENTS0 HALT . ANDI-SUBGROUP) (IMMEDIATE-DEPENDENTS0 Q . ANDI-SUBGROUP) (DCELL . *1*ANDI-SUBGROUP))))) (PUT1-LST (QUOTE *1*ANDI-TO-CCR-INS) (QUOTE (MAIN-EVENT ANDI-TO-CCR-INS))) (PUT1-LST (QUOTE ANDI-TO-CCR-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((ANDI-TO-CCR-INS 16 NIL NIL)) TOTALP-LST ((ANDI-TO-CCR-INS . T)) SDEFN (LAMBDA (PC S) (IF (PC-WORD-READP PC (MC-MEM S)) (IF (EQUAL (PC-BYTE-READ PC (MC-MEM S)) (QUOTE 0)) (UPDATE-CCR (LOGAND (PC-BYTE-READ (ADD (L) PC (BSZ)) (MC-MEM S)) (MC-CCR S)) (UPDATE-PC (ADD (L) PC (WSZ)) S)) (HALT (RESERVED-SIGNAL) S)) (HALT (PC-SIGNAL) S))) LISP-CODE *1*ANDI-TO-CCR-INS SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214825 SATELLITES (*1*ANDI-TO-CCR-INS) IMMEDIATE-DEPENDENTS0 (BIT-GROUP-H ANDI-SUBGROUP) EVENT (DEFN ANDI-TO-CCR-INS (PC S) (IF (PC-WORD-READP PC (MC-MEM S)) (IF (EQUAL (PC-BYTE-READ PC (MC-MEM S)) (QUOTE 0)) (UPDATE-CCR (LOGAND (PC-BYTE-READ (ADD (L) PC (BSZ)) (MC-MEM S)) (MC-CCR S)) (UPDATE-PC (ADD (L) PC (WSZ)) S)) (HALT (RESERVED-SIGNAL) S)) (HALT (PC-SIGNAL) S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PC-SIGNAL . ANDI-TO-CCR-INS) (IMMEDIATE-DEPENDENTS0 RESERVED-SIGNAL . ANDI-TO-CCR-INS) (IMMEDIATE-DEPENDENTS0 HALT . ANDI-TO-CCR-INS) (IMMEDIATE-DEPENDENTS0 WSZ . ANDI-TO-CCR-INS) (IMMEDIATE-DEPENDENTS0 UPDATE-PC . ANDI-TO-CCR-INS) (IMMEDIATE-DEPENDENTS0 MC-CCR . ANDI-TO-CCR-INS) (IMMEDIATE-DEPENDENTS0 BSZ . ANDI-TO-CCR-INS) (IMMEDIATE-DEPENDENTS0 L . ANDI-TO-CCR-INS) (IMMEDIATE-DEPENDENTS0 ADD . ANDI-TO-CCR-INS) (IMMEDIATE-DEPENDENTS0 LOGAND . ANDI-TO-CCR-INS) (IMMEDIATE-DEPENDENTS0 UPDATE-CCR . ANDI-TO-CCR-INS) (IMMEDIATE-DEPENDENTS0 PC-BYTE-READ . ANDI-TO-CCR-INS) (IMMEDIATE-DEPENDENTS0 MC-MEM . ANDI-TO-CCR-INS) (IMMEDIATE-DEPENDENTS0 PC-WORD-READP . ANDI-TO-CCR-INS) (DCELL . *1*ANDI-TO-CCR-INS))))) (PUT1-LST (QUOTE *1*ANDI-INS) (QUOTE (MAIN-EVENT ANDI-INS))) (PUT1-LST (QUOTE ANDI-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((ANDI-INS -1 NIL NIL NIL)) TOTALP-LST ((ANDI-INS . T)) SDEFN (LAMBDA (OPLEN INS S) (IF (MC-HALTP S) (CAR (IMMEDIATE OPLEN (MC-PC S) S)) (IF (ANDI-ADDR-MODEP INS) (AND-MAPPING (CDR (CDR (IMMEDIATE OPLEN (MC-PC S) S))) OPLEN INS (CAR (IMMEDIATE OPLEN (MC-PC S) S))) (HALT (MODE-SIGNAL) S)))) LISP-CODE *1*ANDI-INS SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214825 SATELLITES (*1*ANDI-INS) IMMEDIATE-DEPENDENTS0 (BIT-GROUP-H ANDI-SUBGROUP) EVENT (DEFN ANDI-INS (OPLEN INS S) (IF (MC-HALTP S) (CAR (IMMEDIATE OPLEN (MC-PC S) S)) (IF (ANDI-ADDR-MODEP INS) (AND-MAPPING (CDR (CDR (IMMEDIATE OPLEN (MC-PC S) S))) OPLEN INS (CAR (IMMEDIATE OPLEN (MC-PC S) S))) (HALT (MODE-SIGNAL) S)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MODE-SIGNAL . ANDI-INS) (IMMEDIATE-DEPENDENTS0 HALT . ANDI-INS) (IMMEDIATE-DEPENDENTS0 AND-MAPPING . ANDI-INS) (IMMEDIATE-DEPENDENTS0 ANDI-ADDR-MODEP . ANDI-INS) (IMMEDIATE-DEPENDENTS0 MC-PC . ANDI-INS) (IMMEDIATE-DEPENDENTS0 IMMEDIATE . ANDI-INS) (IMMEDIATE-DEPENDENTS0 MC-HALTP . ANDI-INS) (DCELL . *1*ANDI-INS))))) (PUT1-LST (QUOTE *1*ANDI-ADDR-MODEP) (QUOTE (MAIN-EVENT ANDI-ADDR-MODEP))) (PUT1-LST (QUOTE ANDI-ADDR-MODEP) (QUOTE (TYPE-PRESCRIPTION-LST ((ANDI-ADDR-MODEP 3 NIL)) TOTALP-LST ((ANDI-ADDR-MODEP . T)) SDEFN (LAMBDA (INS) (IF (DATA-ADDR-MODEP (S_MODE INS) (S_RN INS)) (ALTERABLE-ADDR-MODEP (S_MODE INS) (S_RN INS)) (QUOTE *1*FALSE))) LISP-CODE *1*ANDI-ADDR-MODEP SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214825 SATELLITES (*1*ANDI-ADDR-MODEP) IMMEDIATE-DEPENDENTS0 (MODE-GUARDS ANDI-INS) EVENT (DEFN ANDI-ADDR-MODEP (INS) (AND (DATA-ADDR-MODEP (S_MODE INS) (S_RN INS)) (ALTERABLE-ADDR-MODEP (S_MODE INS) (S_RN INS)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ALTERABLE-ADDR-MODEP . ANDI-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 S_RN . ANDI-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 S_MODE . ANDI-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 DATA-ADDR-MODEP . ANDI-ADDR-MODEP) (DCELL . *1*ANDI-ADDR-MODEP))))) (PUT1-LST (QUOTE *1*ORI-SUBGROUP) (QUOTE (MAIN-EVENT ORI-SUBGROUP))) (PUT1-LST (QUOTE ORI-SUBGROUP) (QUOTE (TYPE-PRESCRIPTION-LST ((ORI-SUBGROUP -1 NIL NIL NIL)) TOTALP-LST ((ORI-SUBGROUP . T)) SDEFN (LAMBDA (OPLEN INS S) (IF (EQUAL OPLEN (Q)) (HALT (QUOTE CMP2-CHK2-UNSPECIFIED) S) (IF (EQUAL (HEAD INS (QUOTE 6)) (QUOTE 60)) (IF (EQUAL OPLEN (B)) (ORI-TO-CCR-INS (MC-PC S) S) (IF (EQUAL OPLEN (W)) (HALT (QUOTE ORI-TO-SR-PRIVILEGED) S) (HALT (RESERVED-SIGNAL) S))) (ORI-INS OPLEN INS S)))) LISP-CODE *1*ORI-SUBGROUP SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214825 SATELLITES (*1*ORI-SUBGROUP) IMMEDIATE-DEPENDENTS0 (BIT-GROUP-H BIT-GROUP) EVENT (DEFN ORI-SUBGROUP (OPLEN INS S) (IF (EQUAL OPLEN (Q)) (HALT (QUOTE CMP2-CHK2-UNSPECIFIED) S) (IF (EQUAL (HEAD INS (QUOTE 6)) (QUOTE 60)) (IF (EQUAL OPLEN (B)) (ORI-TO-CCR-INS (MC-PC S) S) (IF (EQUAL OPLEN (W)) (HALT (QUOTE ORI-TO-SR-PRIVILEGED) S) (HALT (RESERVED-SIGNAL) S))) (ORI-INS OPLEN INS S)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ORI-INS . ORI-SUBGROUP) (IMMEDIATE-DEPENDENTS0 RESERVED-SIGNAL . ORI-SUBGROUP) (IMMEDIATE-DEPENDENTS0 W . ORI-SUBGROUP) (IMMEDIATE-DEPENDENTS0 MC-PC . ORI-SUBGROUP) (IMMEDIATE-DEPENDENTS0 ORI-TO-CCR-INS . ORI-SUBGROUP) (IMMEDIATE-DEPENDENTS0 B . ORI-SUBGROUP) (IMMEDIATE-DEPENDENTS0 HEAD . ORI-SUBGROUP) (IMMEDIATE-DEPENDENTS0 HALT . ORI-SUBGROUP) (IMMEDIATE-DEPENDENTS0 Q . ORI-SUBGROUP) (DCELL . *1*ORI-SUBGROUP))))) (PUT1-LST (QUOTE *1*ORI-TO-CCR-INS) (QUOTE (MAIN-EVENT ORI-TO-CCR-INS))) (PUT1-LST (QUOTE ORI-TO-CCR-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((ORI-TO-CCR-INS 16 NIL NIL)) TOTALP-LST ((ORI-TO-CCR-INS . T)) SDEFN (LAMBDA (PC S) (IF (PC-WORD-READP PC (MC-MEM S)) (IF (EQUAL (PC-BYTE-READ PC (MC-MEM S)) (QUOTE 0)) (UPDATE-CCR (LOGOR (PC-BYTE-READ (ADD (L) PC (BSZ)) (MC-MEM S)) (MC-CCR S)) (UPDATE-PC (ADD (L) PC (WSZ)) S)) (HALT (RESERVED-SIGNAL) S)) (HALT (PC-SIGNAL) S))) LISP-CODE *1*ORI-TO-CCR-INS SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214825 SATELLITES (*1*ORI-TO-CCR-INS) IMMEDIATE-DEPENDENTS0 (BIT-GROUP-H ORI-SUBGROUP) EVENT (DEFN ORI-TO-CCR-INS (PC S) (IF (PC-WORD-READP PC (MC-MEM S)) (IF (EQUAL (PC-BYTE-READ PC (MC-MEM S)) (QUOTE 0)) (UPDATE-CCR (LOGOR (PC-BYTE-READ (ADD (L) PC (BSZ)) (MC-MEM S)) (MC-CCR S)) (UPDATE-PC (ADD (L) PC (WSZ)) S)) (HALT (RESERVED-SIGNAL) S)) (HALT (PC-SIGNAL) S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PC-SIGNAL . ORI-TO-CCR-INS) (IMMEDIATE-DEPENDENTS0 RESERVED-SIGNAL . ORI-TO-CCR-INS) (IMMEDIATE-DEPENDENTS0 HALT . ORI-TO-CCR-INS) (IMMEDIATE-DEPENDENTS0 WSZ . ORI-TO-CCR-INS) (IMMEDIATE-DEPENDENTS0 UPDATE-PC . ORI-TO-CCR-INS) (IMMEDIATE-DEPENDENTS0 MC-CCR . ORI-TO-CCR-INS) (IMMEDIATE-DEPENDENTS0 BSZ . ORI-TO-CCR-INS) (IMMEDIATE-DEPENDENTS0 L . ORI-TO-CCR-INS) (IMMEDIATE-DEPENDENTS0 ADD . ORI-TO-CCR-INS) (IMMEDIATE-DEPENDENTS0 LOGOR . ORI-TO-CCR-INS) (IMMEDIATE-DEPENDENTS0 UPDATE-CCR . ORI-TO-CCR-INS) (IMMEDIATE-DEPENDENTS0 PC-BYTE-READ . ORI-TO-CCR-INS) (IMMEDIATE-DEPENDENTS0 MC-MEM . ORI-TO-CCR-INS) (IMMEDIATE-DEPENDENTS0 PC-WORD-READP . ORI-TO-CCR-INS) (DCELL . *1*ORI-TO-CCR-INS))))) (PUT1-LST (QUOTE *1*ORI-INS) (QUOTE (MAIN-EVENT ORI-INS))) (PUT1-LST (QUOTE ORI-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((ORI-INS -1 NIL NIL NIL)) TOTALP-LST ((ORI-INS . T)) SDEFN (LAMBDA (OPLEN INS S) (IF (MC-HALTP (CAR (IMMEDIATE OPLEN (MC-PC S) S))) (CAR (IMMEDIATE OPLEN (MC-PC S) S)) (IF (ORI-ADDR-MODEP INS) (OR-MAPPING (CDR (CDR (IMMEDIATE OPLEN (MC-PC S) S))) OPLEN INS (CAR (IMMEDIATE OPLEN (MC-PC S) S))) (HALT (MODE-SIGNAL) S)))) LISP-CODE *1*ORI-INS SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214825 SATELLITES (*1*ORI-INS) IMMEDIATE-DEPENDENTS0 (BIT-GROUP-H ORI-SUBGROUP) EVENT (DEFN ORI-INS (OPLEN INS S) (IF (MC-HALTP (CAR (IMMEDIATE OPLEN (MC-PC S) S))) (CAR (IMMEDIATE OPLEN (MC-PC S) S)) (IF (ORI-ADDR-MODEP INS) (OR-MAPPING (CDR (CDR (IMMEDIATE OPLEN (MC-PC S) S))) OPLEN INS (CAR (IMMEDIATE OPLEN (MC-PC S) S))) (HALT (MODE-SIGNAL) S)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MODE-SIGNAL . ORI-INS) (IMMEDIATE-DEPENDENTS0 HALT . ORI-INS) (IMMEDIATE-DEPENDENTS0 OR-MAPPING . ORI-INS) (IMMEDIATE-DEPENDENTS0 ORI-ADDR-MODEP . ORI-INS) (IMMEDIATE-DEPENDENTS0 MC-PC . ORI-INS) (IMMEDIATE-DEPENDENTS0 IMMEDIATE . ORI-INS) (IMMEDIATE-DEPENDENTS0 MC-HALTP . ORI-INS) (DCELL . *1*ORI-INS))))) (PUT1-LST (QUOTE *1*ORI-ADDR-MODEP) (QUOTE (MAIN-EVENT ORI-ADDR-MODEP))) (PUT1-LST (QUOTE ORI-ADDR-MODEP) (QUOTE (TYPE-PRESCRIPTION-LST ((ORI-ADDR-MODEP 3 NIL)) TOTALP-LST ((ORI-ADDR-MODEP . T)) SDEFN (LAMBDA (INS) (IF (DATA-ADDR-MODEP (S_MODE INS) (S_RN INS)) (ALTERABLE-ADDR-MODEP (S_MODE INS) (S_RN INS)) (QUOTE *1*FALSE))) LISP-CODE *1*ORI-ADDR-MODEP SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214825 SATELLITES (*1*ORI-ADDR-MODEP) IMMEDIATE-DEPENDENTS0 (MODE-GUARDS ORI-INS) EVENT (DEFN ORI-ADDR-MODEP (INS) (AND (DATA-ADDR-MODEP (S_MODE INS) (S_RN INS)) (ALTERABLE-ADDR-MODEP (S_MODE INS) (S_RN INS)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ALTERABLE-ADDR-MODEP . ORI-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 S_RN . ORI-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 S_MODE . ORI-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 DATA-ADDR-MODEP . ORI-ADDR-MODEP) (DCELL . *1*ORI-ADDR-MODEP))))) (PUT1-LST (QUOTE *1*S-BIT-SUBGROUP) (QUOTE (MAIN-EVENT S-BIT-SUBGROUP))) (PUT1-LST (QUOTE S-BIT-SUBGROUP) (QUOTE (TYPE-PRESCRIPTION-LST ((S-BIT-SUBGROUP -1 NIL NIL)) TOTALP-LST ((S-BIT-SUBGROUP . T)) SDEFN (LAMBDA (INS S) (IF (PC-WORD-READP (MC-PC S) (MC-MEM S)) (IF (EQUAL (PC-BYTE-READ (MC-PC S) (MC-MEM S)) (QUOTE 0)) (BIT-INS (PC-BYTE-READ (ADD (L) (MC-PC S) (BSZ)) (MC-MEM S)) INS (UPDATE-PC (ADD (L) (MC-PC S) (WSZ)) S)) (HALT (RESERVED-SIGNAL) S)) (HALT (PC-SIGNAL) S))) LISP-CODE *1*S-BIT-SUBGROUP SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214825 SATELLITES (*1*S-BIT-SUBGROUP) IMMEDIATE-DEPENDENTS0 (BIT-GROUP-H BIT-GROUP) EVENT (DEFN S-BIT-SUBGROUP (INS S) (IF (PC-WORD-READP (MC-PC S) (MC-MEM S)) (IF (EQUAL (PC-BYTE-READ (MC-PC S) (MC-MEM S)) (QUOTE 0)) (BIT-INS (PC-BYTE-READ (ADD (L) (MC-PC S) (BSZ)) (MC-MEM S)) INS (UPDATE-PC (ADD (L) (MC-PC S) (WSZ)) S)) (HALT (RESERVED-SIGNAL) S)) (HALT (PC-SIGNAL) S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PC-SIGNAL . S-BIT-SUBGROUP) (IMMEDIATE-DEPENDENTS0 RESERVED-SIGNAL . S-BIT-SUBGROUP) (IMMEDIATE-DEPENDENTS0 HALT . S-BIT-SUBGROUP) (IMMEDIATE-DEPENDENTS0 WSZ . S-BIT-SUBGROUP) (IMMEDIATE-DEPENDENTS0 UPDATE-PC . S-BIT-SUBGROUP) (IMMEDIATE-DEPENDENTS0 BSZ . S-BIT-SUBGROUP) (IMMEDIATE-DEPENDENTS0 L . S-BIT-SUBGROUP) (IMMEDIATE-DEPENDENTS0 ADD . S-BIT-SUBGROUP) (IMMEDIATE-DEPENDENTS0 BIT-INS . S-BIT-SUBGROUP) (IMMEDIATE-DEPENDENTS0 PC-BYTE-READ . S-BIT-SUBGROUP) (IMMEDIATE-DEPENDENTS0 MC-MEM . S-BIT-SUBGROUP) (IMMEDIATE-DEPENDENTS0 MC-PC . S-BIT-SUBGROUP) (IMMEDIATE-DEPENDENTS0 PC-WORD-READP . S-BIT-SUBGROUP) (DCELL . *1*S-BIT-SUBGROUP))))) (PUT1-LST (QUOTE *1*D-BIT-SUBGROUP) (QUOTE (MAIN-EVENT D-BIT-SUBGROUP))) (PUT1-LST (QUOTE D-BIT-SUBGROUP) (QUOTE (TYPE-PRESCRIPTION-LST ((D-BIT-SUBGROUP -1 NIL NIL)) TOTALP-LST ((D-BIT-SUBGROUP . T)) SDEFN (LAMBDA (INS S) (IF (EQUAL (S_MODE INS) (QUOTE 1)) (MOVEP-INS (OPMODE-FIELD INS) INS S) (BIT-INS (READ-DN (L) (D_RN INS) S) INS S))) LISP-CODE *1*D-BIT-SUBGROUP SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214825 SATELLITES (*1*D-BIT-SUBGROUP) IMMEDIATE-DEPENDENTS0 (BIT-GROUP-H BIT-GROUP) EVENT (DEFN D-BIT-SUBGROUP (INS S) (IF (EQUAL (S_MODE INS) (QUOTE 1)) (MOVEP-INS (OPMODE-FIELD INS) INS S) (BIT-INS (READ-DN (L) (D_RN INS) S) INS S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 D_RN . D-BIT-SUBGROUP) (IMMEDIATE-DEPENDENTS0 L . D-BIT-SUBGROUP) (IMMEDIATE-DEPENDENTS0 READ-DN . D-BIT-SUBGROUP) (IMMEDIATE-DEPENDENTS0 BIT-INS . D-BIT-SUBGROUP) (IMMEDIATE-DEPENDENTS0 OPMODE-FIELD . D-BIT-SUBGROUP) (IMMEDIATE-DEPENDENTS0 MOVEP-INS . D-BIT-SUBGROUP) (IMMEDIATE-DEPENDENTS0 S_MODE . D-BIT-SUBGROUP) (DCELL . *1*D-BIT-SUBGROUP))))) (PUT1-LST (QUOTE *1*BIT-INS) (QUOTE (MAIN-EVENT BIT-INS))) (PUT1-LST (QUOTE BIT-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((BIT-INS -1 NIL NIL NIL)) TOTALP-LST ((BIT-INS . T)) SDEFN (LAMBDA (BNUM INS S) (IF (LESSP (BITS INS (QUOTE 6) (QUOTE 7)) (QUOTE 2)) (IF (EQUAL (BITS INS (QUOTE 6) (QUOTE 7)) (QUOTE 0)) (BTST-INS BNUM INS S) (BCHG-INS BNUM INS S)) (IF (EQUAL (BITS INS (QUOTE 6) (QUOTE 7)) (QUOTE 2)) (BCLR-INS BNUM INS S) (BSET-INS BNUM INS S)))) LISP-CODE *1*BIT-INS SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214825 SATELLITES (*1*BIT-INS) IMMEDIATE-DEPENDENTS0 (BIT-GROUP-H S-BIT-SUBGROUP D-BIT-SUBGROUP) EVENT (DEFN BIT-INS (BNUM INS S) (IF (LESSP (BITS INS (QUOTE 6) (QUOTE 7)) (QUOTE 2)) (IF (EQUAL (BITS INS (QUOTE 6) (QUOTE 7)) (QUOTE 0)) (BTST-INS BNUM INS S) (BCHG-INS BNUM INS S)) (IF (EQUAL (BITS INS (QUOTE 6) (QUOTE 7)) (QUOTE 2)) (BCLR-INS BNUM INS S) (BSET-INS BNUM INS S)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BSET-INS . BIT-INS) (IMMEDIATE-DEPENDENTS0 BCLR-INS . BIT-INS) (IMMEDIATE-DEPENDENTS0 BCHG-INS . BIT-INS) (IMMEDIATE-DEPENDENTS0 BTST-INS . BIT-INS) (IMMEDIATE-DEPENDENTS0 BITS . BIT-INS) (DCELL . *1*BIT-INS))))) (PUT1-LST (QUOTE *1*BTST-INS) (QUOTE (MAIN-EVENT BTST-INS))) (PUT1-LST (QUOTE BTST-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((BTST-INS -1 NIL NIL NIL)) TOTALP-LST ((BTST-INS . T)) SDEFN (LAMBDA (BNUM INS S) (IF (BTST-ADDR-MODEP INS) (IF (MC-HALTP (CAR (MC-INSTATE (B) INS S))) (CAR (MC-INSTATE (B) INS S)) (UPDATE-CCR (SET-Z (B-NOT (BITN (BXXX-OPD (S_MODE INS) (MC-INSTATE (B) INS S)) (BXXX-NUM (S_MODE INS) BNUM))) (MC-CCR S)) (CAR (MC-INSTATE (B) INS S)))) (HALT (MODE-SIGNAL) S))) LISP-CODE *1*BTST-INS SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214825 SATELLITES (*1*BTST-INS) IMMEDIATE-DEPENDENTS0 (BIT-GROUP-H BIT-INS) EVENT (DEFN BTST-INS (BNUM INS S) (IF (BTST-ADDR-MODEP INS) (IF (MC-HALTP (CAR (MC-INSTATE (B) INS S))) (CAR (MC-INSTATE (B) INS S)) (UPDATE-CCR (SET-Z (B-NOT (BITN (BXXX-OPD (S_MODE INS) (MC-INSTATE (B) INS S)) (BXXX-NUM (S_MODE INS) BNUM))) (MC-CCR S)) (CAR (MC-INSTATE (B) INS S)))) (HALT (MODE-SIGNAL) S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MODE-SIGNAL . BTST-INS) (IMMEDIATE-DEPENDENTS0 HALT . BTST-INS) (IMMEDIATE-DEPENDENTS0 MC-CCR . BTST-INS) (IMMEDIATE-DEPENDENTS0 BXXX-NUM . BTST-INS) (IMMEDIATE-DEPENDENTS0 S_MODE . BTST-INS) (IMMEDIATE-DEPENDENTS0 BXXX-OPD . BTST-INS) (IMMEDIATE-DEPENDENTS0 BITN . BTST-INS) (IMMEDIATE-DEPENDENTS0 B-NOT . BTST-INS) (IMMEDIATE-DEPENDENTS0 SET-Z . BTST-INS) (IMMEDIATE-DEPENDENTS0 UPDATE-CCR . BTST-INS) (IMMEDIATE-DEPENDENTS0 B . BTST-INS) (IMMEDIATE-DEPENDENTS0 MC-INSTATE . BTST-INS) (IMMEDIATE-DEPENDENTS0 MC-HALTP . BTST-INS) (IMMEDIATE-DEPENDENTS0 BTST-ADDR-MODEP . BTST-INS) (DCELL . *1*BTST-INS))))) (PUT1-LST (QUOTE *1*BTST-ADDR-MODEP) (QUOTE (MAIN-EVENT BTST-ADDR-MODEP))) (PUT1-LST (QUOTE BTST-ADDR-MODEP) (QUOTE (TYPE-PRESCRIPTION-LST ((BTST-ADDR-MODEP 3 NIL)) TOTALP-LST ((BTST-ADDR-MODEP . T)) SDEFN (LAMBDA (INS) (DATA-ADDR-MODEP (S_MODE INS) (S_RN INS))) LISP-CODE *1*BTST-ADDR-MODEP SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214825 SATELLITES (*1*BTST-ADDR-MODEP) IMMEDIATE-DEPENDENTS0 (MODE-GUARDS BTST-INS) EVENT (DEFN BTST-ADDR-MODEP (INS) (DATA-ADDR-MODEP (S_MODE INS) (S_RN INS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 S_RN . BTST-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 S_MODE . BTST-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 DATA-ADDR-MODEP . BTST-ADDR-MODEP) (DCELL . *1*BTST-ADDR-MODEP))))) (PUT1-LST (QUOTE *1*BSET-INS) (QUOTE (MAIN-EVENT BSET-INS))) (PUT1-LST (QUOTE BSET-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((BSET-INS -1 NIL NIL NIL)) TOTALP-LST ((BSET-INS . T)) SDEFN (LAMBDA (BNUM INS S) (IF (BSET-ADDR-MODEP INS) (IF (MC-HALTP (CAR (MC-INSTATE (B) INS S))) (CAR (MC-INSTATE (B) INS S)) (MAPPING (BXXX-OPLEN (S_MODE INS)) (BSET-EFFECT (BXXX-NUM (S_MODE INS) BNUM) (BXXX-OPD (S_MODE INS) (MC-INSTATE (B) INS S)) (MC-CCR S)) (MC-INSTATE (B) INS S))) (HALT (MODE-SIGNAL) S))) LISP-CODE *1*BSET-INS SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214825 SATELLITES (*1*BSET-INS) IMMEDIATE-DEPENDENTS0 (BIT-GROUP-H BIT-INS) EVENT (DEFN BSET-INS (BNUM INS S) (IF (BSET-ADDR-MODEP INS) (IF (MC-HALTP (CAR (MC-INSTATE (B) INS S))) (CAR (MC-INSTATE (B) INS S)) (MAPPING (BXXX-OPLEN (S_MODE INS)) (BSET-EFFECT (BXXX-NUM (S_MODE INS) BNUM) (BXXX-OPD (S_MODE INS) (MC-INSTATE (B) INS S)) (MC-CCR S)) (MC-INSTATE (B) INS S))) (HALT (MODE-SIGNAL) S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MODE-SIGNAL . BSET-INS) (IMMEDIATE-DEPENDENTS0 HALT . BSET-INS) (IMMEDIATE-DEPENDENTS0 MC-CCR . BSET-INS) (IMMEDIATE-DEPENDENTS0 BXXX-OPD . BSET-INS) (IMMEDIATE-DEPENDENTS0 BXXX-NUM . BSET-INS) (IMMEDIATE-DEPENDENTS0 BSET-EFFECT . BSET-INS) (IMMEDIATE-DEPENDENTS0 S_MODE . BSET-INS) (IMMEDIATE-DEPENDENTS0 BXXX-OPLEN . BSET-INS) (IMMEDIATE-DEPENDENTS0 MAPPING . BSET-INS) (IMMEDIATE-DEPENDENTS0 B . BSET-INS) (IMMEDIATE-DEPENDENTS0 MC-INSTATE . BSET-INS) (IMMEDIATE-DEPENDENTS0 MC-HALTP . BSET-INS) (IMMEDIATE-DEPENDENTS0 BSET-ADDR-MODEP . BSET-INS) (DCELL . *1*BSET-INS))))) (PUT1-LST (QUOTE *1*BSET-EFFECT) (QUOTE (MAIN-EVENT BSET-EFFECT))) (PUT1-LST (QUOTE BSET-EFFECT) (QUOTE (TYPE-PRESCRIPTION-LST ((BSET-EFFECT 16 NIL NIL NIL)) TOTALP-LST ((BSET-EFFECT . T)) SDEFN (LAMBDA (BNUM OPD CCR) (CONS (SETN OPD BNUM (B1)) (SET-Z (B-NOT (BITN OPD BNUM)) CCR))) LISP-CODE *1*BSET-EFFECT SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214825 SATELLITES (*1*BSET-EFFECT) IMMEDIATE-DEPENDENTS0 (BIT-GROUP-H BSET-INS) EVENT (DEFN BSET-EFFECT (BNUM OPD CCR) (CONS (SETN OPD BNUM (B1)) (SET-Z (B-NOT (BITN OPD BNUM)) CCR))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BITN . BSET-EFFECT) (IMMEDIATE-DEPENDENTS0 B-NOT . BSET-EFFECT) (IMMEDIATE-DEPENDENTS0 SET-Z . BSET-EFFECT) (IMMEDIATE-DEPENDENTS0 B1 . BSET-EFFECT) (IMMEDIATE-DEPENDENTS0 SETN . BSET-EFFECT) (DCELL . *1*BSET-EFFECT))))) (PUT1-LST (QUOTE *1*BSET-ADDR-MODEP) (QUOTE (MAIN-EVENT BSET-ADDR-MODEP))) (PUT1-LST (QUOTE BSET-ADDR-MODEP) (QUOTE (TYPE-PRESCRIPTION-LST ((BSET-ADDR-MODEP 3 NIL)) TOTALP-LST ((BSET-ADDR-MODEP . T)) SDEFN (LAMBDA (INS) (IF (DATA-ADDR-MODEP (S_MODE INS) (S_RN INS)) (ALTERABLE-ADDR-MODEP (S_MODE INS) (S_RN INS)) (QUOTE *1*FALSE))) LISP-CODE *1*BSET-ADDR-MODEP SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214825 SATELLITES (*1*BSET-ADDR-MODEP) IMMEDIATE-DEPENDENTS0 (MODE-GUARDS BSET-INS) EVENT (DEFN BSET-ADDR-MODEP (INS) (AND (DATA-ADDR-MODEP (S_MODE INS) (S_RN INS)) (ALTERABLE-ADDR-MODEP (S_MODE INS) (S_RN INS)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ALTERABLE-ADDR-MODEP . BSET-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 S_RN . BSET-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 S_MODE . BSET-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 DATA-ADDR-MODEP . BSET-ADDR-MODEP) (DCELL . *1*BSET-ADDR-MODEP))))) (PUT1-LST (QUOTE *1*BCLR-INS) (QUOTE (MAIN-EVENT BCLR-INS))) (PUT1-LST (QUOTE BCLR-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((BCLR-INS -1 NIL NIL NIL)) TOTALP-LST ((BCLR-INS . T)) SDEFN (LAMBDA (BNUM INS S) (IF (BCLR-ADDR-MODEP INS) (IF (MC-HALTP (CAR (MC-INSTATE (B) INS S))) (CAR (MC-INSTATE (B) INS S)) (MAPPING (BXXX-OPLEN (S_MODE INS)) (BCLR-EFFECT (BXXX-NUM (S_MODE INS) BNUM) (BXXX-OPD (S_MODE INS) (MC-INSTATE (B) INS S)) (MC-CCR S)) (MC-INSTATE (B) INS S))) (HALT (MODE-SIGNAL) S))) LISP-CODE *1*BCLR-INS SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214825 SATELLITES (*1*BCLR-INS) IMMEDIATE-DEPENDENTS0 (BIT-GROUP-H BIT-INS) EVENT (DEFN BCLR-INS (BNUM INS S) (IF (BCLR-ADDR-MODEP INS) (IF (MC-HALTP (CAR (MC-INSTATE (B) INS S))) (CAR (MC-INSTATE (B) INS S)) (MAPPING (BXXX-OPLEN (S_MODE INS)) (BCLR-EFFECT (BXXX-NUM (S_MODE INS) BNUM) (BXXX-OPD (S_MODE INS) (MC-INSTATE (B) INS S)) (MC-CCR S)) (MC-INSTATE (B) INS S))) (HALT (MODE-SIGNAL) S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MODE-SIGNAL . BCLR-INS) (IMMEDIATE-DEPENDENTS0 HALT . BCLR-INS) (IMMEDIATE-DEPENDENTS0 MC-CCR . BCLR-INS) (IMMEDIATE-DEPENDENTS0 BXXX-OPD . BCLR-INS) (IMMEDIATE-DEPENDENTS0 BXXX-NUM . BCLR-INS) (IMMEDIATE-DEPENDENTS0 BCLR-EFFECT . BCLR-INS) (IMMEDIATE-DEPENDENTS0 S_MODE . BCLR-INS) (IMMEDIATE-DEPENDENTS0 BXXX-OPLEN . BCLR-INS) (IMMEDIATE-DEPENDENTS0 MAPPING . BCLR-INS) (IMMEDIATE-DEPENDENTS0 B . BCLR-INS) (IMMEDIATE-DEPENDENTS0 MC-INSTATE . BCLR-INS) (IMMEDIATE-DEPENDENTS0 MC-HALTP . BCLR-INS) (IMMEDIATE-DEPENDENTS0 BCLR-ADDR-MODEP . BCLR-INS) (DCELL . *1*BCLR-INS))))) (PUT1-LST (QUOTE *1*BCLR-EFFECT) (QUOTE (MAIN-EVENT BCLR-EFFECT))) (PUT1-LST (QUOTE BCLR-EFFECT) (QUOTE (TYPE-PRESCRIPTION-LST ((BCLR-EFFECT 16 NIL NIL NIL)) TOTALP-LST ((BCLR-EFFECT . T)) SDEFN (LAMBDA (BNUM OPD CCR) (CONS (SETN OPD BNUM (B0)) (SET-Z (B-NOT (BITN OPD BNUM)) CCR))) LISP-CODE *1*BCLR-EFFECT SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214825 SATELLITES (*1*BCLR-EFFECT) IMMEDIATE-DEPENDENTS0 (BIT-GROUP-H BCLR-INS) EVENT (DEFN BCLR-EFFECT (BNUM OPD CCR) (CONS (SETN OPD BNUM (B0)) (SET-Z (B-NOT (BITN OPD BNUM)) CCR))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BITN . BCLR-EFFECT) (IMMEDIATE-DEPENDENTS0 B-NOT . BCLR-EFFECT) (IMMEDIATE-DEPENDENTS0 SET-Z . BCLR-EFFECT) (IMMEDIATE-DEPENDENTS0 B0 . BCLR-EFFECT) (IMMEDIATE-DEPENDENTS0 SETN . BCLR-EFFECT) (DCELL . *1*BCLR-EFFECT))))) (PUT1-LST (QUOTE *1*BCLR-ADDR-MODEP) (QUOTE (MAIN-EVENT BCLR-ADDR-MODEP))) (PUT1-LST (QUOTE BCLR-ADDR-MODEP) (QUOTE (TYPE-PRESCRIPTION-LST ((BCLR-ADDR-MODEP 3 NIL)) TOTALP-LST ((BCLR-ADDR-MODEP . T)) SDEFN (LAMBDA (INS) (IF (DATA-ADDR-MODEP (S_MODE INS) (S_RN INS)) (ALTERABLE-ADDR-MODEP (S_MODE INS) (S_RN INS)) (QUOTE *1*FALSE))) LISP-CODE *1*BCLR-ADDR-MODEP SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214825 SATELLITES (*1*BCLR-ADDR-MODEP) IMMEDIATE-DEPENDENTS0 (MODE-GUARDS BCLR-INS) EVENT (DEFN BCLR-ADDR-MODEP (INS) (AND (DATA-ADDR-MODEP (S_MODE INS) (S_RN INS)) (ALTERABLE-ADDR-MODEP (S_MODE INS) (S_RN INS)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ALTERABLE-ADDR-MODEP . BCLR-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 S_RN . BCLR-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 S_MODE . BCLR-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 DATA-ADDR-MODEP . BCLR-ADDR-MODEP) (DCELL . *1*BCLR-ADDR-MODEP))))) (PUT1-LST (QUOTE *1*BCHG-INS) (QUOTE (MAIN-EVENT BCHG-INS))) (PUT1-LST (QUOTE BCHG-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((BCHG-INS -1 NIL NIL NIL)) TOTALP-LST ((BCHG-INS . T)) SDEFN (LAMBDA (BNUM INS S) (IF (BCHG-ADDR-MODEP INS) (IF (MC-HALTP (CAR (MC-INSTATE (B) INS S))) (CAR (MC-INSTATE (B) INS S)) (MAPPING (BXXX-OPLEN (S_MODE INS)) (BCHG-EFFECT (BXXX-NUM (S_MODE INS) BNUM) (BXXX-OPD (S_MODE INS) (MC-INSTATE (B) INS S)) (MC-CCR S)) (MC-INSTATE (B) INS S))) (HALT (MODE-SIGNAL) S))) LISP-CODE *1*BCHG-INS SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214825 SATELLITES (*1*BCHG-INS) IMMEDIATE-DEPENDENTS0 (BIT-GROUP-H BIT-INS) EVENT (DEFN BCHG-INS (BNUM INS S) (IF (BCHG-ADDR-MODEP INS) (IF (MC-HALTP (CAR (MC-INSTATE (B) INS S))) (CAR (MC-INSTATE (B) INS S)) (MAPPING (BXXX-OPLEN (S_MODE INS)) (BCHG-EFFECT (BXXX-NUM (S_MODE INS) BNUM) (BXXX-OPD (S_MODE INS) (MC-INSTATE (B) INS S)) (MC-CCR S)) (MC-INSTATE (B) INS S))) (HALT (MODE-SIGNAL) S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MODE-SIGNAL . BCHG-INS) (IMMEDIATE-DEPENDENTS0 HALT . BCHG-INS) (IMMEDIATE-DEPENDENTS0 MC-CCR . BCHG-INS) (IMMEDIATE-DEPENDENTS0 BXXX-OPD . BCHG-INS) (IMMEDIATE-DEPENDENTS0 BXXX-NUM . BCHG-INS) (IMMEDIATE-DEPENDENTS0 BCHG-EFFECT . BCHG-INS) (IMMEDIATE-DEPENDENTS0 S_MODE . BCHG-INS) (IMMEDIATE-DEPENDENTS0 BXXX-OPLEN . BCHG-INS) (IMMEDIATE-DEPENDENTS0 MAPPING . BCHG-INS) (IMMEDIATE-DEPENDENTS0 B . BCHG-INS) (IMMEDIATE-DEPENDENTS0 MC-INSTATE . BCHG-INS) (IMMEDIATE-DEPENDENTS0 MC-HALTP . BCHG-INS) (IMMEDIATE-DEPENDENTS0 BCHG-ADDR-MODEP . BCHG-INS) (DCELL . *1*BCHG-INS))))) (PUT1-LST (QUOTE *1*BCHG-EFFECT) (QUOTE (MAIN-EVENT BCHG-EFFECT))) (PUT1-LST (QUOTE BCHG-EFFECT) (QUOTE (TYPE-PRESCRIPTION-LST ((BCHG-EFFECT 16 NIL NIL NIL)) TOTALP-LST ((BCHG-EFFECT . T)) SDEFN (LAMBDA (BNUM OPD CCR) (CONS (SETN OPD BNUM (B-NOT (BITN OPD BNUM))) (SET-Z (B-NOT (BITN OPD BNUM)) CCR))) LISP-CODE *1*BCHG-EFFECT SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214825 SATELLITES (*1*BCHG-EFFECT) IMMEDIATE-DEPENDENTS0 (BIT-GROUP-H BCHG-INS) EVENT (DEFN BCHG-EFFECT (BNUM OPD CCR) (CONS (SETN OPD BNUM (B-NOT (BITN OPD BNUM))) (SET-Z (B-NOT (BITN OPD BNUM)) CCR))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SET-Z . BCHG-EFFECT) (IMMEDIATE-DEPENDENTS0 BITN . BCHG-EFFECT) (IMMEDIATE-DEPENDENTS0 B-NOT . BCHG-EFFECT) (IMMEDIATE-DEPENDENTS0 SETN . BCHG-EFFECT) (DCELL . *1*BCHG-EFFECT))))) (PUT1-LST (QUOTE *1*BCHG-ADDR-MODEP) (QUOTE (MAIN-EVENT BCHG-ADDR-MODEP))) (PUT1-LST (QUOTE BCHG-ADDR-MODEP) (QUOTE (TYPE-PRESCRIPTION-LST ((BCHG-ADDR-MODEP 3 NIL)) TOTALP-LST ((BCHG-ADDR-MODEP . T)) SDEFN (LAMBDA (INS) (IF (DATA-ADDR-MODEP (S_MODE INS) (S_RN INS)) (ALTERABLE-ADDR-MODEP (S_MODE INS) (S_RN INS)) (QUOTE *1*FALSE))) LISP-CODE *1*BCHG-ADDR-MODEP SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214825 SATELLITES (*1*BCHG-ADDR-MODEP) IMMEDIATE-DEPENDENTS0 (MODE-GUARDS BCHG-INS) EVENT (DEFN BCHG-ADDR-MODEP (INS) (AND (DATA-ADDR-MODEP (S_MODE INS) (S_RN INS)) (ALTERABLE-ADDR-MODEP (S_MODE INS) (S_RN INS)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ALTERABLE-ADDR-MODEP . BCHG-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 S_RN . BCHG-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 S_MODE . BCHG-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 DATA-ADDR-MODEP . BCHG-ADDR-MODEP) (DCELL . *1*BCHG-ADDR-MODEP))))) (PUT1-LST (QUOTE *1*BXXX-OPD) (QUOTE (MAIN-EVENT BXXX-OPD))) (PUT1-LST (QUOTE BXXX-OPD) (QUOTE (TYPE-PRESCRIPTION-LST ((BXXX-OPD -1 NIL NIL)) TOTALP-LST ((BXXX-OPD . T)) SDEFN (LAMBDA (SMODE S&ADDR) (IF (DN-DIRECT-MODEP SMODE) (READ-DN (L) (CDR (CDR S&ADDR)) (CAR S&ADDR)) (OPERAND (B) (CDR S&ADDR) (CAR S&ADDR)))) LISP-CODE *1*BXXX-OPD SUBRP *1*FALSE LEVEL-NO 5 IDATE 1000402214825 SATELLITES (*1*BXXX-OPD) IMMEDIATE-DEPENDENTS0 (BIT-GROUP-H BTST-INS BSET-INS BCLR-INS BCHG-INS) EVENT (DEFN BXXX-OPD (SMODE S&ADDR) (IF (DN-DIRECT-MODEP SMODE) (READ-DN (L) (CDR (CDR S&ADDR)) (CAR S&ADDR)) (OPERAND (B) (CDR S&ADDR) (CAR S&ADDR)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B . BXXX-OPD) (IMMEDIATE-DEPENDENTS0 OPERAND . BXXX-OPD) (IMMEDIATE-DEPENDENTS0 L . BXXX-OPD) (IMMEDIATE-DEPENDENTS0 READ-DN . BXXX-OPD) (IMMEDIATE-DEPENDENTS0 DN-DIRECT-MODEP . BXXX-OPD) (DCELL . *1*BXXX-OPD))))) (PUT1-LST (QUOTE *1*BXXX-NUM) (QUOTE (MAIN-EVENT BXXX-NUM))) (PUT1-LST (QUOTE BXXX-NUM) (QUOTE (TYPE-PRESCRIPTION-LST ((BXXX-NUM 4 NIL NIL)) TOTALP-LST ((BXXX-NUM . T)) SDEFN (LAMBDA (SMODE BNUM) (IF (DN-DIRECT-MODEP SMODE) (HEAD BNUM (QUOTE 5)) (HEAD BNUM (QUOTE 3)))) LISP-CODE *1*BXXX-NUM SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214825 SATELLITES (*1*BXXX-NUM) IMMEDIATE-DEPENDENTS0 (BIT-GROUP-H BTST-INS BSET-INS BCLR-INS BCHG-INS) EVENT (DEFN BXXX-NUM (SMODE BNUM) (IF (DN-DIRECT-MODEP SMODE) (HEAD BNUM (QUOTE 5)) (HEAD BNUM (QUOTE 3)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 HEAD . BXXX-NUM) (IMMEDIATE-DEPENDENTS0 DN-DIRECT-MODEP . BXXX-NUM) (DCELL . *1*BXXX-NUM))))) (PUT1-LST (QUOTE *1*BXXX-OPLEN) (QUOTE (MAIN-EVENT BXXX-OPLEN))) (PUT1-LST (QUOTE BXXX-OPLEN) (QUOTE (TYPE-PRESCRIPTION-LST ((BXXX-OPLEN 4 NIL)) TOTALP-LST ((BXXX-OPLEN . T)) SDEFN (LAMBDA (SMODE) (IF (DN-DIRECT-MODEP SMODE) (L) (B))) LISP-CODE *1*BXXX-OPLEN SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402214825 SATELLITES (*1*BXXX-OPLEN) IMMEDIATE-DEPENDENTS0 (BIT-GROUP-H BSET-INS BCLR-INS BCHG-INS) EVENT (DEFN BXXX-OPLEN (SMODE) (IF (DN-DIRECT-MODEP SMODE) (L) (B))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B . BXXX-OPLEN) (IMMEDIATE-DEPENDENTS0 L . BXXX-OPLEN) (IMMEDIATE-DEPENDENTS0 DN-DIRECT-MODEP . BXXX-OPLEN) (DCELL . *1*BXXX-OPLEN))))) (PUT1-LST (QUOTE *1*MOVEP-INS) (QUOTE (MAIN-EVENT MOVEP-INS))) (PUT1-LST (QUOTE MOVEP-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((MOVEP-INS -1 NIL NIL NIL)) TOTALP-LST ((MOVEP-INS . T)) SDEFN (LAMBDA (OPMODE INS S) (IF (MC-HALTP (CAR (ADDR-DISP (MC-PC S) (S_RN INS) S))) (CAR (ADDR-DISP (MC-PC S) (S_RN INS) S)) (IF (LESSP OPMODE (QUOTE 6)) (IF (EQUAL OPMODE (QUOTE 4)) (MOVEP-TO-REG (MOVEP-ADDR (ADDR-DISP (MC-PC S) (S_RN INS) S)) (W) INS (CAR (ADDR-DISP (MC-PC S) (S_RN INS) S))) (MOVEP-TO-REG (MOVEP-ADDR (ADDR-DISP (MC-PC S) (S_RN INS) S)) (L) INS (CAR (ADDR-DISP (MC-PC S) (S_RN INS) S)))) (IF (EQUAL OPMODE (QUOTE 6)) (MOVEP-TO-MEM (MOVEP-ADDR (ADDR-DISP (MC-PC S) (S_RN INS) S)) (W) INS (CAR (ADDR-DISP (MC-PC S) (S_RN INS) S))) (MOVEP-TO-MEM (MOVEP-ADDR (ADDR-DISP (MC-PC S) (S_RN INS) S)) (L) INS (CAR (ADDR-DISP (MC-PC S) (S_RN INS) S))))))) LISP-CODE *1*MOVEP-INS SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214825 SATELLITES (*1*MOVEP-INS) IMMEDIATE-DEPENDENTS0 (BIT-GROUP-H D-BIT-SUBGROUP) EVENT (DEFN MOVEP-INS (OPMODE INS S) (IF (MC-HALTP (CAR (ADDR-DISP (MC-PC S) (S_RN INS) S))) (CAR (ADDR-DISP (MC-PC S) (S_RN INS) S)) (IF (LESSP OPMODE (QUOTE 6)) (IF (EQUAL OPMODE (QUOTE 4)) (MOVEP-TO-REG (MOVEP-ADDR (ADDR-DISP (MC-PC S) (S_RN INS) S)) (W) INS (CAR (ADDR-DISP (MC-PC S) (S_RN INS) S))) (MOVEP-TO-REG (MOVEP-ADDR (ADDR-DISP (MC-PC S) (S_RN INS) S)) (L) INS (CAR (ADDR-DISP (MC-PC S) (S_RN INS) S)))) (IF (EQUAL OPMODE (QUOTE 6)) (MOVEP-TO-MEM (MOVEP-ADDR (ADDR-DISP (MC-PC S) (S_RN INS) S)) (W) INS (CAR (ADDR-DISP (MC-PC S) (S_RN INS) S))) (MOVEP-TO-MEM (MOVEP-ADDR (ADDR-DISP (MC-PC S) (S_RN INS) S)) (L) INS (CAR (ADDR-DISP (MC-PC S) (S_RN INS) S))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MOVEP-TO-MEM . MOVEP-INS) (IMMEDIATE-DEPENDENTS0 L . MOVEP-INS) (IMMEDIATE-DEPENDENTS0 W . MOVEP-INS) (IMMEDIATE-DEPENDENTS0 MOVEP-ADDR . MOVEP-INS) (IMMEDIATE-DEPENDENTS0 MOVEP-TO-REG . MOVEP-INS) (IMMEDIATE-DEPENDENTS0 S_RN . MOVEP-INS) (IMMEDIATE-DEPENDENTS0 MC-PC . MOVEP-INS) (IMMEDIATE-DEPENDENTS0 ADDR-DISP . MOVEP-INS) (IMMEDIATE-DEPENDENTS0 MC-HALTP . MOVEP-INS) (DCELL . *1*MOVEP-INS))))) (PUT1-LST (QUOTE *1*MOVEP-ADDR) (QUOTE (MAIN-EVENT MOVEP-ADDR))) (PUT1-LST (QUOTE MOVEP-ADDR) (QUOTE (TYPE-PRESCRIPTION-LST ((MOVEP-ADDR -1 NIL)) TOTALP-LST ((MOVEP-ADDR . T)) SDEFN (LAMBDA (S&ADDR) (IF (EVENP (CDR (CDR S&ADDR))) (CDR (CDR S&ADDR)) (ADD (L) (CDR (CDR S&ADDR)) (BSZ)))) LISP-CODE *1*MOVEP-ADDR SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214825 SATELLITES (*1*MOVEP-ADDR) IMMEDIATE-DEPENDENTS0 (BIT-GROUP-H MOVEP-INS) EVENT (DEFN MOVEP-ADDR (S&ADDR) (IF (EVENP (CDR (CDR S&ADDR))) (CDR (CDR S&ADDR)) (ADD (L) (CDR (CDR S&ADDR)) (BSZ)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BSZ . MOVEP-ADDR) (IMMEDIATE-DEPENDENTS0 L . MOVEP-ADDR) (IMMEDIATE-DEPENDENTS0 ADD . MOVEP-ADDR) (IMMEDIATE-DEPENDENTS0 EVENP . MOVEP-ADDR) (DCELL . *1*MOVEP-ADDR))))) (PUT1-LST (QUOTE *1*EVENP) (QUOTE (MAIN-EVENT EVENP))) (PUT1-LST (QUOTE EVENP) (QUOTE (TYPE-PRESCRIPTION-LST ((EVENP 3 NIL)) LEMMAS ((REWRITE-RULE ADD-EVENP ((EVENP X) (EVENP Y)) (EVENP (ADD N X Y)) NIL)) TOTALP-LST ((EVENP . T)) SDEFN (LAMBDA (X) (B0P (BCAR X))) LISP-CODE *1*EVENP SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402214825 SATELLITES (*1*EVENP) IMMEDIATE-DEPENDENTS0 (GCD-S0-S0-RFILE-2 GCD-S0-S0-RFILE-1 GCD-S0-S0-2 GCD-S0-S0-1 GCD-S0-SN-BASE-RFILE-2 GCD-S0-SN-BASE-2 GCD-S0-SN-BASE-RFILE-1 GCD-S0-SN-BASE-1 GCD-S-S0-MEM GCD-S-S0-RFILE GCD-S-S0 GCD-S0P GCD-STATEP GCD-LOAD EVENP-OFF ADD-EVENP STEPI MOVEP-ADDR) EVENT (DEFN EVENP (X) (B0P (BCAR X))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BCAR . EVENP) (IMMEDIATE-DEPENDENTS0 B0P . EVENP) (DCELL . *1*EVENP))))) (PUT1-LST (QUOTE *1*MOVEP-TO-REG) (QUOTE (MAIN-EVENT MOVEP-TO-REG))) (PUT1-LST (QUOTE MOVEP-TO-REG) (QUOTE (TYPE-PRESCRIPTION-LST ((MOVEP-TO-REG 16 NIL NIL NIL NIL)) TOTALP-LST ((MOVEP-TO-REG . T)) SDEFN (LAMBDA (ADDR OPLEN INS S) (IF (MOVEP-READP ADDR (MC-MEM S) (OP-SZ OPLEN)) (WRITE-DN OPLEN (MOVEP-READ ADDR (MC-MEM S) (OP-SZ OPLEN)) (D_RN INS) S) (HALT (READ-SIGNAL) S))) LISP-CODE *1*MOVEP-TO-REG SUBRP *1*FALSE LEVEL-NO 5 IDATE 1000402214825 SATELLITES (*1*MOVEP-TO-REG) IMMEDIATE-DEPENDENTS0 (BIT-GROUP-H MOVEP-INS) EVENT (DEFN MOVEP-TO-REG (ADDR OPLEN INS S) (IF (MOVEP-READP ADDR (MC-MEM S) (OP-SZ OPLEN)) (WRITE-DN OPLEN (MOVEP-READ ADDR (MC-MEM S) (OP-SZ OPLEN)) (D_RN INS) S) (HALT (READ-SIGNAL) S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 READ-SIGNAL . MOVEP-TO-REG) (IMMEDIATE-DEPENDENTS0 HALT . MOVEP-TO-REG) (IMMEDIATE-DEPENDENTS0 D_RN . MOVEP-TO-REG) (IMMEDIATE-DEPENDENTS0 MOVEP-READ . MOVEP-TO-REG) (IMMEDIATE-DEPENDENTS0 WRITE-DN . MOVEP-TO-REG) (IMMEDIATE-DEPENDENTS0 OP-SZ . MOVEP-TO-REG) (IMMEDIATE-DEPENDENTS0 MC-MEM . MOVEP-TO-REG) (IMMEDIATE-DEPENDENTS0 MOVEP-READP . MOVEP-TO-REG) (DCELL . *1*MOVEP-TO-REG))))) (PUT1-LST (QUOTE *1*MOVEP-READ) (QUOTE (MAIN-EVENT MOVEP-READ))) (PUT1-LST (QUOTE MOVEP-READ) (QUOTE (TYPE-PRESCRIPTION-LST ((MOVEP-READ 4 NIL NIL NIL)) TOTALP-LST ((MOVEP-READ . T)) QUICK-BLOCK-INFO (UNCHANGING UNCHANGING SELF-REFLEXIVE) SDEFN (LAMBDA (ADDR MEM N) (IF (EQUAL N (QUOTE 0)) (QUOTE 0) (IF (NUMBERP N) (APP (B) (BYTE-READ (ADD (L) ADDR (TIMES (QUOTE 2) (SUB1 N))) MEM) (MOVEP-READ ADDR MEM (SUB1 N))) (QUOTE 0)))) LISP-CODE *1*MOVEP-READ SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((ZEROP N)) NIL) (TESTS-AND-CASES ((NOT (ZEROP N))) ((ADDR MEM (SUB1 N))))) LEVEL-NO 5 JUSTIFICATIONS ((JUSTIFICATION (N) (COUNT N) LESSP (ZEROP COUNT-NUMBERP LESSP-SUB1))) IDATE 1000402214825 CONTROLLER-POCKETS (4) SATELLITES (*1*MOVEP-READ) IMMEDIATE-DEPENDENTS0 (MOVEP-TO-REG) EVENT (DEFN MOVEP-READ (ADDR MEM N) (IF (ZEROP N) (QUOTE 0) (APP (B) (BYTE-READ (ADD (L) ADDR (TIMES (QUOTE 2) (SUB1 N))) MEM) (MOVEP-READ ADDR MEM (SUB1 N))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 L . MOVEP-READ) (IMMEDIATE-DEPENDENTS0 ADD . MOVEP-READ) (IMMEDIATE-DEPENDENTS0 BYTE-READ . MOVEP-READ) (IMMEDIATE-DEPENDENTS0 B . MOVEP-READ) (IMMEDIATE-DEPENDENTS0 APP . MOVEP-READ) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . MOVEP-READ) (DCELL . *1*MOVEP-READ))))) (PUT1-LST (QUOTE *1*MOVEP-READP) (QUOTE (MAIN-EVENT MOVEP-READP))) (PUT1-LST (QUOTE MOVEP-READP) (QUOTE (TYPE-PRESCRIPTION-LST ((MOVEP-READP 3 NIL NIL NIL)) TOTALP-LST ((MOVEP-READP . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE UNCHANGING SELF-REFLEXIVE) SDEFN (LAMBDA (ADDR MEM N) (IF (EQUAL N (QUOTE 0)) (QUOTE *1*TRUE) (IF (NUMBERP N) (IF (BYTE-READP ADDR MEM) (IF (MOVEP-READP (ADD (L) ADDR (WSZ)) MEM (SUB1 N)) (QUOTE *1*TRUE) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*TRUE)))) LISP-CODE *1*MOVEP-READP SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((ZEROP N)) NIL) (TESTS-AND-CASES ((NOT (ZEROP N))) (((ADD (L) ADDR (WSZ)) MEM (SUB1 N))))) LEVEL-NO 5 JUSTIFICATIONS ((JUSTIFICATION (N) (COUNT N) LESSP (ZEROP COUNT-NUMBERP LESSP-SUB1))) IDATE 1000402214825 CONTROLLER-POCKETS (4) SATELLITES (*1*MOVEP-READP) IMMEDIATE-DEPENDENTS0 (MOVEP-TO-REG) EVENT (DEFN MOVEP-READP (ADDR MEM N) (IF (ZEROP N) (QUOTE *1*TRUE) (AND (BYTE-READP ADDR MEM) (MOVEP-READP (ADD (L) ADDR (WSZ)) MEM (SUB1 N))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 WSZ . MOVEP-READP) (IMMEDIATE-DEPENDENTS0 L . MOVEP-READP) (IMMEDIATE-DEPENDENTS0 ADD . MOVEP-READP) (IMMEDIATE-DEPENDENTS0 BYTE-READP . MOVEP-READP) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . MOVEP-READP) (DCELL . *1*MOVEP-READP))))) (PUT1-LST (QUOTE *1*MOVEP-TO-MEM) (QUOTE (MAIN-EVENT MOVEP-TO-MEM))) (PUT1-LST (QUOTE MOVEP-TO-MEM) (QUOTE (TYPE-PRESCRIPTION-LST ((MOVEP-TO-MEM 16 NIL NIL NIL NIL)) TOTALP-LST ((MOVEP-TO-MEM . T)) SDEFN (LAMBDA (ADDR OPLEN INS S) (IF (MOVEP-WRITEP ADDR (MC-MEM S) (OP-SZ OPLEN)) (UPDATE-MEM (MOVEP-WRITE (READ-DN OPLEN (D_RN INS) S) ADDR (MC-MEM S) (OP-SZ OPLEN)) S) (HALT (WRITE-SIGNAL) S))) LISP-CODE *1*MOVEP-TO-MEM SUBRP *1*FALSE LEVEL-NO 5 IDATE 1000402214825 SATELLITES (*1*MOVEP-TO-MEM) IMMEDIATE-DEPENDENTS0 (BIT-GROUP-H MOVEP-INS) EVENT (DEFN MOVEP-TO-MEM (ADDR OPLEN INS S) (IF (MOVEP-WRITEP ADDR (MC-MEM S) (OP-SZ OPLEN)) (UPDATE-MEM (MOVEP-WRITE (READ-DN OPLEN (D_RN INS) S) ADDR (MC-MEM S) (OP-SZ OPLEN)) S) (HALT (WRITE-SIGNAL) S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 WRITE-SIGNAL . MOVEP-TO-MEM) (IMMEDIATE-DEPENDENTS0 HALT . MOVEP-TO-MEM) (IMMEDIATE-DEPENDENTS0 D_RN . MOVEP-TO-MEM) (IMMEDIATE-DEPENDENTS0 READ-DN . MOVEP-TO-MEM) (IMMEDIATE-DEPENDENTS0 MOVEP-WRITE . MOVEP-TO-MEM) (IMMEDIATE-DEPENDENTS0 UPDATE-MEM . MOVEP-TO-MEM) (IMMEDIATE-DEPENDENTS0 OP-SZ . MOVEP-TO-MEM) (IMMEDIATE-DEPENDENTS0 MC-MEM . MOVEP-TO-MEM) (IMMEDIATE-DEPENDENTS0 MOVEP-WRITEP . MOVEP-TO-MEM) (DCELL . *1*MOVEP-TO-MEM))))) (PUT1-LST (QUOTE *1*MOVEP-WRITE) (QUOTE (MAIN-EVENT MOVEP-WRITE))) (PUT1-LST (QUOTE MOVEP-WRITE) (QUOTE (TYPE-PRESCRIPTION-LST ((MOVEP-WRITE 16 NIL NIL T NIL)) TOTALP-LST ((MOVEP-WRITE . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE UNCHANGING SELF-REFLEXIVE SELF-REFLEXIVE) SDEFN (LAMBDA (VALUE ADDR MEM N) (IF (EQUAL N (QUOTE 0)) MEM (IF (NUMBERP N) (MOVEP-WRITE (TAIL VALUE (B)) ADDR (BYTE-WRITE VALUE (ADD (L) ADDR (TIMES (QUOTE 2) (SUB1 N))) MEM) (SUB1 N)) MEM))) LISP-CODE *1*MOVEP-WRITE SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((ZEROP N)) NIL) (TESTS-AND-CASES ((NOT (ZEROP N))) (((TAIL VALUE (B)) ADDR (BYTE-WRITE VALUE (ADD (L) ADDR (TIMES (QUOTE 2) (SUB1 N))) MEM) (SUB1 N))))) LEVEL-NO 5 JUSTIFICATIONS ((JUSTIFICATION (N) (COUNT N) LESSP (ZEROP COUNT-NUMBERP LESSP-SUB1))) IDATE 1000402214825 CONTROLLER-POCKETS (8) SATELLITES (*1*MOVEP-WRITE) IMMEDIATE-DEPENDENTS0 (MOVEP-WRITE-H MOVEP-TO-MEM) EVENT (DEFN MOVEP-WRITE (VALUE ADDR MEM N) (IF (ZEROP N) MEM (MOVEP-WRITE (TAIL VALUE (B)) ADDR (BYTE-WRITE VALUE (ADD (L) ADDR (TIMES (QUOTE 2) (SUB1 N))) MEM) (SUB1 N)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 L . MOVEP-WRITE) (IMMEDIATE-DEPENDENTS0 ADD . MOVEP-WRITE) (IMMEDIATE-DEPENDENTS0 BYTE-WRITE . MOVEP-WRITE) (IMMEDIATE-DEPENDENTS0 B . MOVEP-WRITE) (IMMEDIATE-DEPENDENTS0 TAIL . MOVEP-WRITE) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . MOVEP-WRITE) (DCELL . *1*MOVEP-WRITE))))) (PUT1-LST (QUOTE *1*MOVEP-WRITEP) (QUOTE (MAIN-EVENT MOVEP-WRITEP))) (PUT1-LST (QUOTE MOVEP-WRITEP) (QUOTE (TYPE-PRESCRIPTION-LST ((MOVEP-WRITEP 3 NIL NIL NIL)) LEMMAS ((REWRITE-RULE WRITE-MEM-MAINTAIN-MOVEP-WRITEP NIL (EQUAL (MOVEP-WRITEP ADDR (WRITE-MEM VALUE X MEM M) N) (MOVEP-WRITEP ADDR MEM N)) NIL)) TOTALP-LST ((MOVEP-WRITEP . T)) QUICK-BLOCK-INFO (UNCHANGING UNCHANGING SELF-REFLEXIVE) SDEFN (LAMBDA (ADDR MEM N) (IF (EQUAL N (QUOTE 0)) (QUOTE *1*TRUE) (IF (NUMBERP N) (IF (BYTE-WRITEP (ADD (L) ADDR (TIMES (QUOTE 2) (SUB1 N))) MEM) (IF (MOVEP-WRITEP ADDR MEM (SUB1 N)) (QUOTE *1*TRUE) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*TRUE)))) LISP-CODE *1*MOVEP-WRITEP SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((ZEROP N)) NIL) (TESTS-AND-CASES ((NOT (ZEROP N))) ((ADDR MEM (SUB1 N))))) LEVEL-NO 5 JUSTIFICATIONS ((JUSTIFICATION (N) (COUNT N) LESSP (ZEROP COUNT-NUMBERP LESSP-SUB1))) IDATE 1000402214825 CONTROLLER-POCKETS (4) SATELLITES (*1*MOVEP-WRITEP) IMMEDIATE-DEPENDENTS0 (MOVEP-WRITE-H WRITE-MEM-MAINTAIN-MOVEP-WRITEP MOVEP-TO-MEM) EVENT (DEFN MOVEP-WRITEP (ADDR MEM N) (IF (ZEROP N) (QUOTE *1*TRUE) (AND (BYTE-WRITEP (ADD (L) ADDR (TIMES (QUOTE 2) (SUB1 N))) MEM) (MOVEP-WRITEP ADDR MEM (SUB1 N))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 L . MOVEP-WRITEP) (IMMEDIATE-DEPENDENTS0 ADD . MOVEP-WRITEP) (IMMEDIATE-DEPENDENTS0 BYTE-WRITEP . MOVEP-WRITEP) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . MOVEP-WRITEP) (DCELL . *1*MOVEP-WRITEP))))) (PUT1-LST (QUOTE *1*CMP-GROUP) (QUOTE (MAIN-EVENT CMP-GROUP))) (PUT1-LST (QUOTE CMP-GROUP) (QUOTE (TYPE-PRESCRIPTION-LST ((CMP-GROUP -1 NIL NIL NIL)) TOTALP-LST ((CMP-GROUP . T)) SDEFN (LAMBDA (OPLEN INS S) (IF (B0P (BITN INS (QUOTE 8))) (IF (EQUAL OPLEN (Q)) (CMPA-INS (W) INS S) (CMP-INS OPLEN INS S)) (IF (EQUAL OPLEN (Q)) (CMPA-INS (L) INS S) (IF (EQUAL (S_MODE INS) (QUOTE 1)) (CMPM-INS OPLEN INS S) (EOR-INS OPLEN INS S))))) LISP-CODE *1*CMP-GROUP SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214825 SATELLITES (*1*CMP-GROUP) IMMEDIATE-DEPENDENTS0 (GCD-S0-S0-RFILE-2 GCD-S0-S0-RFILE-1 GCD-S0-S0-2 GCD-S0-S0-1 CMP-GROUP-H GROUPS EXECUTE-INS) EVENT (DEFN CMP-GROUP (OPLEN INS S) (IF (B0P (BITN INS (QUOTE 8))) (IF (EQUAL OPLEN (Q)) (CMPA-INS (W) INS S) (CMP-INS OPLEN INS S)) (IF (EQUAL OPLEN (Q)) (CMPA-INS (L) INS S) (IF (EQUAL (S_MODE INS) (QUOTE 1)) (CMPM-INS OPLEN INS S) (EOR-INS OPLEN INS S))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EOR-INS . CMP-GROUP) (IMMEDIATE-DEPENDENTS0 CMPM-INS . CMP-GROUP) (IMMEDIATE-DEPENDENTS0 S_MODE . CMP-GROUP) (IMMEDIATE-DEPENDENTS0 L . CMP-GROUP) (IMMEDIATE-DEPENDENTS0 CMP-INS . CMP-GROUP) (IMMEDIATE-DEPENDENTS0 W . CMP-GROUP) (IMMEDIATE-DEPENDENTS0 CMPA-INS . CMP-GROUP) (IMMEDIATE-DEPENDENTS0 Q . CMP-GROUP) (IMMEDIATE-DEPENDENTS0 BITN . CMP-GROUP) (IMMEDIATE-DEPENDENTS0 B0P . CMP-GROUP) (DCELL . *1*CMP-GROUP))))) (PUT1-LST (QUOTE *1*CMPM-INS) (QUOTE (MAIN-EVENT CMPM-INS))) (PUT1-LST (QUOTE CMPM-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((CMPM-INS 16 NIL NIL NIL)) TOTALP-LST ((CMPM-INS . T)) SDEFN (LAMBDA (OPLEN INS S) (IF (READ-MEMP (CDR (CDR (ADDR-POSTINC OPLEN (S_RN INS) S))) (MC-MEM S) (OP-SZ OPLEN)) (CMPM-MAPPING (CDR (ADDR-POSTINC OPLEN (S_RN INS) S)) OPLEN INS (CAR (ADDR-POSTINC OPLEN (S_RN INS) S))) (HALT (READ-SIGNAL) S))) LISP-CODE *1*CMPM-INS SUBRP *1*FALSE LEVEL-NO 5 IDATE 1000402214825 SATELLITES (*1*CMPM-INS) IMMEDIATE-DEPENDENTS0 (CMP-GROUP-H CMP-GROUP) EVENT (DEFN CMPM-INS (OPLEN INS S) (IF (READ-MEMP (CDR (CDR (ADDR-POSTINC OPLEN (S_RN INS) S))) (MC-MEM S) (OP-SZ OPLEN)) (CMPM-MAPPING (CDR (ADDR-POSTINC OPLEN (S_RN INS) S)) OPLEN INS (CAR (ADDR-POSTINC OPLEN (S_RN INS) S))) (HALT (READ-SIGNAL) S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 READ-SIGNAL . CMPM-INS) (IMMEDIATE-DEPENDENTS0 HALT . CMPM-INS) (IMMEDIATE-DEPENDENTS0 CMPM-MAPPING . CMPM-INS) (IMMEDIATE-DEPENDENTS0 OP-SZ . CMPM-INS) (IMMEDIATE-DEPENDENTS0 MC-MEM . CMPM-INS) (IMMEDIATE-DEPENDENTS0 S_RN . CMPM-INS) (IMMEDIATE-DEPENDENTS0 ADDR-POSTINC . CMPM-INS) (IMMEDIATE-DEPENDENTS0 READ-MEMP . CMPM-INS) (DCELL . *1*CMPM-INS))))) (PUT1-LST (QUOTE *1*CMPM-MAPPING) (QUOTE (MAIN-EVENT CMPM-MAPPING))) (PUT1-LST (QUOTE CMPM-MAPPING) (QUOTE (TYPE-PRESCRIPTION-LST ((CMPM-MAPPING 16 NIL NIL NIL NIL)) TOTALP-LST ((CMPM-MAPPING . T)) SDEFN (LAMBDA (ADDR OPLEN INS S) (IF (READ-MEMP (CDR (CDR (ADDR-POSTINC OPLEN (D_RN INS) S))) (MC-MEM S) (OP-SZ OPLEN)) (UPDATE-CCR (CMP-CVZNX OPLEN (OPERAND OPLEN ADDR S) (OPERAND OPLEN (CDR (ADDR-POSTINC OPLEN (D_RN INS) S)) S) (MC-CCR S)) (CAR (ADDR-POSTINC OPLEN (D_RN INS) S))) (HALT (READ-SIGNAL) S))) LISP-CODE *1*CMPM-MAPPING SUBRP *1*FALSE LEVEL-NO 5 IDATE 1000402214825 SATELLITES (*1*CMPM-MAPPING) IMMEDIATE-DEPENDENTS0 (CMP-GROUP-H CMPM-INS) EVENT (DEFN CMPM-MAPPING (ADDR OPLEN INS S) (IF (READ-MEMP (CDR (CDR (ADDR-POSTINC OPLEN (D_RN INS) S))) (MC-MEM S) (OP-SZ OPLEN)) (UPDATE-CCR (CMP-CVZNX OPLEN (OPERAND OPLEN ADDR S) (OPERAND OPLEN (CDR (ADDR-POSTINC OPLEN (D_RN INS) S)) S) (MC-CCR S)) (CAR (ADDR-POSTINC OPLEN (D_RN INS) S))) (HALT (READ-SIGNAL) S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 READ-SIGNAL . CMPM-MAPPING) (IMMEDIATE-DEPENDENTS0 HALT . CMPM-MAPPING) (IMMEDIATE-DEPENDENTS0 MC-CCR . CMPM-MAPPING) (IMMEDIATE-DEPENDENTS0 OPERAND . CMPM-MAPPING) (IMMEDIATE-DEPENDENTS0 CMP-CVZNX . CMPM-MAPPING) (IMMEDIATE-DEPENDENTS0 UPDATE-CCR . CMPM-MAPPING) (IMMEDIATE-DEPENDENTS0 OP-SZ . CMPM-MAPPING) (IMMEDIATE-DEPENDENTS0 MC-MEM . CMPM-MAPPING) (IMMEDIATE-DEPENDENTS0 D_RN . CMPM-MAPPING) (IMMEDIATE-DEPENDENTS0 ADDR-POSTINC . CMPM-MAPPING) (IMMEDIATE-DEPENDENTS0 READ-MEMP . CMPM-MAPPING) (DCELL . *1*CMPM-MAPPING))))) (PUT1-LST (QUOTE *1*EOR-INS) (QUOTE (MAIN-EVENT EOR-INS))) (PUT1-LST (QUOTE EOR-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((EOR-INS -1 NIL NIL NIL)) TOTALP-LST ((EOR-INS . T)) SDEFN (LAMBDA (OPLEN INS S) (IF (EOR&EORI-ADDR-MODEP INS) (EOR-MAPPING (READ-DN OPLEN (D_RN INS) S) OPLEN INS S) (HALT (MODE-SIGNAL) S))) LISP-CODE *1*EOR-INS SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214825 SATELLITES (*1*EOR-INS) IMMEDIATE-DEPENDENTS0 (CMP-GROUP-H CMP-GROUP) EVENT (DEFN EOR-INS (OPLEN INS S) (IF (EOR&EORI-ADDR-MODEP INS) (EOR-MAPPING (READ-DN OPLEN (D_RN INS) S) OPLEN INS S) (HALT (MODE-SIGNAL) S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MODE-SIGNAL . EOR-INS) (IMMEDIATE-DEPENDENTS0 HALT . EOR-INS) (IMMEDIATE-DEPENDENTS0 D_RN . EOR-INS) (IMMEDIATE-DEPENDENTS0 READ-DN . EOR-INS) (IMMEDIATE-DEPENDENTS0 EOR-MAPPING . EOR-INS) (IMMEDIATE-DEPENDENTS0 EOR&EORI-ADDR-MODEP . EOR-INS) (DCELL . *1*EOR-INS))))) (PUT1-LST (QUOTE *1*EOR-MAPPING) (QUOTE (MAIN-EVENT EOR-MAPPING))) (PUT1-LST (QUOTE EOR-MAPPING) (QUOTE (TYPE-PRESCRIPTION-LST ((EOR-MAPPING -1 NIL NIL NIL NIL)) TOTALP-LST ((EOR-MAPPING . T)) SDEFN (LAMBDA (SOPD OPLEN INS S) (IF (MC-HALTP (CAR (MC-INSTATE OPLEN INS S))) (CAR (MC-INSTATE OPLEN INS S)) (MAPPING OPLEN (EOR-EFFECT OPLEN SOPD (OPERAND OPLEN (CDR (MC-INSTATE OPLEN INS S)) S) (MC-CCR S)) (MC-INSTATE OPLEN INS S)))) LISP-CODE *1*EOR-MAPPING SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214825 SATELLITES (*1*EOR-MAPPING) IMMEDIATE-DEPENDENTS0 (BIT-GROUP-H CMP-GROUP-H EORI-INS EOR-INS) EVENT (DEFN EOR-MAPPING (SOPD OPLEN INS S) (IF (MC-HALTP (CAR (MC-INSTATE OPLEN INS S))) (CAR (MC-INSTATE OPLEN INS S)) (MAPPING OPLEN (EOR-EFFECT OPLEN SOPD (OPERAND OPLEN (CDR (MC-INSTATE OPLEN INS S)) S) (MC-CCR S)) (MC-INSTATE OPLEN INS S)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MC-CCR . EOR-MAPPING) (IMMEDIATE-DEPENDENTS0 OPERAND . EOR-MAPPING) (IMMEDIATE-DEPENDENTS0 EOR-EFFECT . EOR-MAPPING) (IMMEDIATE-DEPENDENTS0 MAPPING . EOR-MAPPING) (IMMEDIATE-DEPENDENTS0 MC-INSTATE . EOR-MAPPING) (IMMEDIATE-DEPENDENTS0 MC-HALTP . EOR-MAPPING) (DCELL . *1*EOR-MAPPING))))) (PUT1-LST (QUOTE *1*EOR&EORI-ADDR-MODEP) (QUOTE (MAIN-EVENT EOR&EORI-ADDR-MODEP))) (PUT1-LST (QUOTE EOR&EORI-ADDR-MODEP) (QUOTE (TYPE-PRESCRIPTION-LST ((EOR&EORI-ADDR-MODEP 3 NIL)) TOTALP-LST ((EOR&EORI-ADDR-MODEP . T)) SDEFN (LAMBDA (INS) (IF (DATA-ADDR-MODEP (S_MODE INS) (S_RN INS)) (ALTERABLE-ADDR-MODEP (S_MODE INS) (S_RN INS)) (QUOTE *1*FALSE))) LISP-CODE *1*EOR&EORI-ADDR-MODEP SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214825 SATELLITES (*1*EOR&EORI-ADDR-MODEP) IMMEDIATE-DEPENDENTS0 (MODE-GUARDS EORI-INS EOR-INS) EVENT (DEFN EOR&EORI-ADDR-MODEP (INS) (AND (DATA-ADDR-MODEP (S_MODE INS) (S_RN INS)) (ALTERABLE-ADDR-MODEP (S_MODE INS) (S_RN INS)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ALTERABLE-ADDR-MODEP . EOR&EORI-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 S_RN . EOR&EORI-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 S_MODE . EOR&EORI-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 DATA-ADDR-MODEP . EOR&EORI-ADDR-MODEP) (DCELL . *1*EOR&EORI-ADDR-MODEP))))) (PUT1-LST (QUOTE *1*EOR-EFFECT) (QUOTE (MAIN-EVENT EOR-EFFECT))) (PUT1-LST (QUOTE EOR-EFFECT) (QUOTE (TYPE-PRESCRIPTION-LST ((EOR-EFFECT 16 NIL NIL NIL NIL)) TOTALP-LST ((EOR-EFFECT . T)) SDEFN (LAMBDA (OPLEN SOPD DOPD CCR) (CONS (LOGEOR SOPD DOPD) (EOR-CVZNX OPLEN SOPD DOPD CCR))) LISP-CODE *1*EOR-EFFECT SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214825 SATELLITES (*1*EOR-EFFECT) IMMEDIATE-DEPENDENTS0 (BIT-GROUP-H CMP-GROUP-H EOR-MAPPING) EVENT (DEFN EOR-EFFECT (OPLEN SOPD DOPD CCR) (CONS (LOGEOR SOPD DOPD) (EOR-CVZNX OPLEN SOPD DOPD CCR))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EOR-CVZNX . EOR-EFFECT) (IMMEDIATE-DEPENDENTS0 LOGEOR . EOR-EFFECT) (DCELL . *1*EOR-EFFECT))))) (PUT1-LST (QUOTE *1*EOR-CVZNX) (QUOTE (MAIN-EVENT EOR-CVZNX))) (PUT1-LST (QUOTE EOR-CVZNX) (QUOTE (TYPE-PRESCRIPTION-LST ((EOR-CVZNX 4 NIL NIL NIL NIL)) TOTALP-LST ((EOR-CVZNX . T)) SDEFN (LAMBDA (OPLEN SOPD DOPD CCR) (CVZNX (B0) (B0) (EOR-Z OPLEN SOPD DOPD) (EOR-N OPLEN SOPD DOPD) (CCR-X CCR))) LISP-CODE *1*EOR-CVZNX SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214825 SATELLITES (*1*EOR-CVZNX) IMMEDIATE-DEPENDENTS0 (BIT-GROUP-H CMP-GROUP-H EOR-EFFECT) EVENT (DEFN EOR-CVZNX (OPLEN SOPD DOPD CCR) (CVZNX (B0) (B0) (EOR-Z OPLEN SOPD DOPD) (EOR-N OPLEN SOPD DOPD) (CCR-X CCR))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CCR-X . EOR-CVZNX) (IMMEDIATE-DEPENDENTS0 EOR-N . EOR-CVZNX) (IMMEDIATE-DEPENDENTS0 EOR-Z . EOR-CVZNX) (IMMEDIATE-DEPENDENTS0 B0 . EOR-CVZNX) (IMMEDIATE-DEPENDENTS0 CVZNX . EOR-CVZNX) (DCELL . *1*EOR-CVZNX))))) (PUT1-LST (QUOTE *1*EOR-N) (QUOTE (MAIN-EVENT EOR-N))) (PUT1-LST (QUOTE EOR-N) (QUOTE (TYPE-PRESCRIPTION-LST ((EOR-N 4 NIL NIL NIL)) TOTALP-LST ((EOR-N . T)) SDEFN (LAMBDA (OPLEN SOPD DOPD) (B-EOR (MBIT SOPD OPLEN) (MBIT DOPD OPLEN))) LISP-CODE *1*EOR-N SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214825 SATELLITES (*1*EOR-N) IMMEDIATE-DEPENDENTS0 (EOR-N-OFF EOR-N-BITP EOR-CVZNX) EVENT (DEFN EOR-N (OPLEN SOPD DOPD) (B-EOR (MBIT SOPD OPLEN) (MBIT DOPD OPLEN))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MBIT . EOR-N) (IMMEDIATE-DEPENDENTS0 B-EOR . EOR-N) (DCELL . *1*EOR-N))))) (PUT1-LST (QUOTE *1*EOR-Z) (QUOTE (MAIN-EVENT EOR-Z))) (PUT1-LST (QUOTE EOR-Z) (QUOTE (TYPE-PRESCRIPTION-LST ((EOR-Z 4 NIL NIL NIL)) TOTALP-LST ((EOR-Z . T)) SDEFN (LAMBDA (OPLEN SOPD DOPD) (IF (EQUAL (LOGEOR SOPD DOPD) (QUOTE 0)) (B1) (B0))) LISP-CODE *1*EOR-Z SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214825 SATELLITES (*1*EOR-Z) IMMEDIATE-DEPENDENTS0 (EOR-Z-OFF LOGEOR-BEQ-INT-1 LOGEOR-BEQ-INT-0 LOGEOR-BEQ-UINT EOR-Z-BITP EOR-CVZNX) EVENT (DEFN EOR-Z (OPLEN SOPD DOPD) (IF (EQUAL (LOGEOR SOPD DOPD) (QUOTE 0)) (B1) (B0))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B0 . EOR-Z) (IMMEDIATE-DEPENDENTS0 B1 . EOR-Z) (IMMEDIATE-DEPENDENTS0 LOGEOR . EOR-Z) (DCELL . *1*EOR-Z))))) (PUT1-LST (QUOTE *1*CMPA-INS) (QUOTE (MAIN-EVENT CMPA-INS))) (PUT1-LST (QUOTE CMPA-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((CMPA-INS -1 NIL NIL NIL)) TOTALP-LST ((CMPA-INS . T)) SDEFN (LAMBDA (OPLEN INS S) (IF (CMPA-ADDR-MODEP INS) (IF (MC-HALTP (CAR (MC-INSTATE OPLEN INS S))) (CAR (MC-INSTATE OPLEN INS S)) (UPDATE-CCR (CMP-CVZNX (L) (EXT OPLEN (OPERAND OPLEN (CDR (MC-INSTATE OPLEN INS S)) S) (L)) (READ-AN (L) (D_RN INS) (CAR (MC-INSTATE OPLEN INS S))) (MC-CCR S)) (CAR (MC-INSTATE OPLEN INS S)))) (HALT (MODE-SIGNAL) S))) LISP-CODE *1*CMPA-INS SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214825 SATELLITES (*1*CMPA-INS) IMMEDIATE-DEPENDENTS0 (CMP-GROUP-H CMP-GROUP) EVENT (DEFN CMPA-INS (OPLEN INS S) (IF (CMPA-ADDR-MODEP INS) (IF (MC-HALTP (CAR (MC-INSTATE OPLEN INS S))) (CAR (MC-INSTATE OPLEN INS S)) (UPDATE-CCR (CMP-CVZNX (L) (EXT OPLEN (OPERAND OPLEN (CDR (MC-INSTATE OPLEN INS S)) S) (L)) (READ-AN (L) (D_RN INS) (CAR (MC-INSTATE OPLEN INS S))) (MC-CCR S)) (CAR (MC-INSTATE OPLEN INS S)))) (HALT (MODE-SIGNAL) S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MODE-SIGNAL . CMPA-INS) (IMMEDIATE-DEPENDENTS0 HALT . CMPA-INS) (IMMEDIATE-DEPENDENTS0 MC-CCR . CMPA-INS) (IMMEDIATE-DEPENDENTS0 D_RN . CMPA-INS) (IMMEDIATE-DEPENDENTS0 READ-AN . CMPA-INS) (IMMEDIATE-DEPENDENTS0 OPERAND . CMPA-INS) (IMMEDIATE-DEPENDENTS0 EXT . CMPA-INS) (IMMEDIATE-DEPENDENTS0 L . CMPA-INS) (IMMEDIATE-DEPENDENTS0 CMP-CVZNX . CMPA-INS) (IMMEDIATE-DEPENDENTS0 UPDATE-CCR . CMPA-INS) (IMMEDIATE-DEPENDENTS0 MC-INSTATE . CMPA-INS) (IMMEDIATE-DEPENDENTS0 MC-HALTP . CMPA-INS) (IMMEDIATE-DEPENDENTS0 CMPA-ADDR-MODEP . CMPA-INS) (DCELL . *1*CMPA-INS))))) (PUT1-LST (QUOTE *1*CMPA-ADDR-MODEP) (QUOTE (MAIN-EVENT CMPA-ADDR-MODEP))) (PUT1-LST (QUOTE CMPA-ADDR-MODEP) (QUOTE (TYPE-PRESCRIPTION-LST ((CMPA-ADDR-MODEP 3 NIL)) TOTALP-LST ((CMPA-ADDR-MODEP . T)) SDEFN (LAMBDA (INS) (ADDR-MODEP (S_MODE INS) (S_RN INS))) LISP-CODE *1*CMPA-ADDR-MODEP SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214825 SATELLITES (*1*CMPA-ADDR-MODEP) IMMEDIATE-DEPENDENTS0 (MODE-GUARDS CMPA-INS) EVENT (DEFN CMPA-ADDR-MODEP (INS) (ADDR-MODEP (S_MODE INS) (S_RN INS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 S_RN . CMPA-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 S_MODE . CMPA-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 ADDR-MODEP . CMPA-ADDR-MODEP) (DCELL . *1*CMPA-ADDR-MODEP))))) (PUT1-LST (QUOTE *1*CMP-INS) (QUOTE (MAIN-EVENT CMP-INS))) (PUT1-LST (QUOTE CMP-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((CMP-INS -1 NIL NIL NIL)) TOTALP-LST ((CMP-INS . T)) SDEFN (LAMBDA (OPLEN INS S) (IF (CMP-ADDR-MODEP OPLEN INS) (IF (MC-HALTP (CAR (MC-INSTATE OPLEN INS S))) (CAR (MC-INSTATE OPLEN INS S)) (UPDATE-CCR (CMP-CVZNX OPLEN (OPERAND OPLEN (CDR (MC-INSTATE OPLEN INS S)) (CAR (MC-INSTATE OPLEN INS S))) (READ-DN OPLEN (D_RN INS) S) (MC-CCR S)) (CAR (MC-INSTATE OPLEN INS S)))) (HALT (MODE-SIGNAL) S))) LISP-CODE *1*CMP-INS SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214825 SATELLITES (*1*CMP-INS) IMMEDIATE-DEPENDENTS0 (GCD-S0-S0-RFILE-2 GCD-S0-S0-RFILE-1 GCD-S0-S0-2 GCD-S0-S0-1 CMP-GROUP-H CMP-GROUP) EVENT (DEFN CMP-INS (OPLEN INS S) (IF (CMP-ADDR-MODEP OPLEN INS) (IF (MC-HALTP (CAR (MC-INSTATE OPLEN INS S))) (CAR (MC-INSTATE OPLEN INS S)) (UPDATE-CCR (CMP-CVZNX OPLEN (OPERAND OPLEN (CDR (MC-INSTATE OPLEN INS S)) (CAR (MC-INSTATE OPLEN INS S))) (READ-DN OPLEN (D_RN INS) S) (MC-CCR S)) (CAR (MC-INSTATE OPLEN INS S)))) (HALT (MODE-SIGNAL) S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MODE-SIGNAL . CMP-INS) (IMMEDIATE-DEPENDENTS0 HALT . CMP-INS) (IMMEDIATE-DEPENDENTS0 MC-CCR . CMP-INS) (IMMEDIATE-DEPENDENTS0 D_RN . CMP-INS) (IMMEDIATE-DEPENDENTS0 READ-DN . CMP-INS) (IMMEDIATE-DEPENDENTS0 OPERAND . CMP-INS) (IMMEDIATE-DEPENDENTS0 CMP-CVZNX . CMP-INS) (IMMEDIATE-DEPENDENTS0 UPDATE-CCR . CMP-INS) (IMMEDIATE-DEPENDENTS0 MC-INSTATE . CMP-INS) (IMMEDIATE-DEPENDENTS0 MC-HALTP . CMP-INS) (IMMEDIATE-DEPENDENTS0 CMP-ADDR-MODEP . CMP-INS) (DCELL . *1*CMP-INS))))) (PUT1-LST (QUOTE *1*CMP-ADDR-MODEP) (QUOTE (MAIN-EVENT CMP-ADDR-MODEP))) (PUT1-LST (QUOTE CMP-ADDR-MODEP) (QUOTE (TYPE-PRESCRIPTION-LST ((CMP-ADDR-MODEP 3 NIL NIL)) TOTALP-LST ((CMP-ADDR-MODEP . T)) SDEFN (LAMBDA (OPLEN INS) (IF (ADDR-MODEP (S_MODE INS) (S_RN INS)) (IF (BYTE-AN-DIRECT-MODEP OPLEN (S_MODE INS)) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (QUOTE *1*FALSE))) LISP-CODE *1*CMP-ADDR-MODEP SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214825 SATELLITES (*1*CMP-ADDR-MODEP) IMMEDIATE-DEPENDENTS0 (GCD-S0-S0-RFILE-2 GCD-S0-S0-RFILE-1 GCD-S0-S0-2 GCD-S0-S0-1 MODE-GUARDS CMP-INS) EVENT (DEFN CMP-ADDR-MODEP (OPLEN INS) (AND (ADDR-MODEP (S_MODE INS) (S_RN INS)) (NOT (BYTE-AN-DIRECT-MODEP OPLEN (S_MODE INS))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BYTE-AN-DIRECT-MODEP . CMP-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 S_RN . CMP-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 S_MODE . CMP-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 ADDR-MODEP . CMP-ADDR-MODEP) (DCELL . *1*CMP-ADDR-MODEP))))) (PUT1-LST (QUOTE *1*CMP-CVZNX) (QUOTE (MAIN-EVENT CMP-CVZNX))) (PUT1-LST (QUOTE CMP-CVZNX) (QUOTE (TYPE-PRESCRIPTION-LST ((CMP-CVZNX 4 NIL NIL NIL NIL)) TOTALP-LST ((CMP-CVZNX . T)) SDEFN (LAMBDA (OPLEN SOPD DOPD CCR) (CVZNX (SUB-C OPLEN SOPD DOPD) (SUB-V OPLEN SOPD DOPD) (SUB-Z OPLEN SOPD DOPD) (SUB-N OPLEN SOPD DOPD) (CCR-X CCR))) LISP-CODE *1*CMP-CVZNX SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214825 SATELLITES (*1*CMP-CVZNX) IMMEDIATE-DEPENDENTS0 (GCD-S0-S0-RFILE-2 GCD-S0-S0-RFILE-1 GCD-S0-S0-2 GCD-S0-S0-1 BIT-GROUP-H CMP-GROUP-H CMPI-MAPPING CMPM-MAPPING CMPA-INS CMP-INS) EVENT (DEFN CMP-CVZNX (OPLEN SOPD DOPD CCR) (CVZNX (SUB-C OPLEN SOPD DOPD) (SUB-V OPLEN SOPD DOPD) (SUB-Z OPLEN SOPD DOPD) (SUB-N OPLEN SOPD DOPD) (CCR-X CCR))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CCR-X . CMP-CVZNX) (IMMEDIATE-DEPENDENTS0 SUB-N . CMP-CVZNX) (IMMEDIATE-DEPENDENTS0 SUB-Z . CMP-CVZNX) (IMMEDIATE-DEPENDENTS0 SUB-V . CMP-CVZNX) (IMMEDIATE-DEPENDENTS0 SUB-C . CMP-CVZNX) (IMMEDIATE-DEPENDENTS0 CVZNX . CMP-CVZNX) (DCELL . *1*CMP-CVZNX))))) (PUT1-LST (QUOTE *1*MOVEQ-INS) (QUOTE (MAIN-EVENT MOVEQ-INS))) (PUT1-LST (QUOTE MOVEQ-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((MOVEQ-INS 16 NIL NIL)) TOTALP-LST ((MOVEQ-INS . T)) SDEFN (LAMBDA (INS S) (IF (B0P (BITN INS (QUOTE 8))) (D-MAPPING (L) (MOVE-EFFECT (L) (EXT (B) (HEAD INS (B)) (L)) (MC-CCR S)) (D_RN INS) S) (HALT (RESERVED-SIGNAL) S))) LISP-CODE *1*MOVEQ-INS SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214825 SATELLITES (*1*MOVEQ-INS) IMMEDIATE-DEPENDENTS0 (STEPI-H EXECUTE-INS) EVENT (DEFN MOVEQ-INS (INS S) (IF (B0P (BITN INS (QUOTE 8))) (D-MAPPING (L) (MOVE-EFFECT (L) (EXT (B) (HEAD INS (B)) (L)) (MC-CCR S)) (D_RN INS) S) (HALT (RESERVED-SIGNAL) S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 RESERVED-SIGNAL . MOVEQ-INS) (IMMEDIATE-DEPENDENTS0 HALT . MOVEQ-INS) (IMMEDIATE-DEPENDENTS0 D_RN . MOVEQ-INS) (IMMEDIATE-DEPENDENTS0 MC-CCR . MOVEQ-INS) (IMMEDIATE-DEPENDENTS0 HEAD . MOVEQ-INS) (IMMEDIATE-DEPENDENTS0 B . MOVEQ-INS) (IMMEDIATE-DEPENDENTS0 EXT . MOVEQ-INS) (IMMEDIATE-DEPENDENTS0 MOVE-EFFECT . MOVEQ-INS) (IMMEDIATE-DEPENDENTS0 L . MOVEQ-INS) (IMMEDIATE-DEPENDENTS0 D-MAPPING . MOVEQ-INS) (IMMEDIATE-DEPENDENTS0 BITN . MOVEQ-INS) (IMMEDIATE-DEPENDENTS0 B0P . MOVEQ-INS) (DCELL . *1*MOVEQ-INS))))) (PUT1-LST (QUOTE *1*SCC-GROUP) (QUOTE (MAIN-EVENT SCC-GROUP))) (PUT1-LST (QUOTE SCC-GROUP) (QUOTE (TYPE-PRESCRIPTION-LST ((SCC-GROUP -1 NIL NIL)) TOTALP-LST ((SCC-GROUP . T)) SDEFN (LAMBDA (INS S) (IF (EQUAL (OP-LEN INS) (Q)) (IF (EQUAL (S_MODE INS) (QUOTE 1)) (DBCC-INS INS S) (IF (EQUAL (S_MODE INS) (QUOTE 7)) (IF (LESSP (QUOTE 1) (S_RN INS)) (HALT (QUOTE TRAPCC-UNSPECIFIED) S) (SCC-INS INS S)) (SCC-INS INS S))) (IF (B0P (BITN INS (QUOTE 8))) (ADDQ-INS (OP-LEN INS) INS S) (SUBQ-INS (OP-LEN INS) INS S)))) LISP-CODE *1*SCC-GROUP SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214825 SATELLITES (*1*SCC-GROUP) IMMEDIATE-DEPENDENTS0 (SCC-GROUP-H GROUPS EXECUTE-INS) EVENT (DEFN SCC-GROUP (INS S) (IF (EQUAL (OP-LEN INS) (Q)) (IF (EQUAL (S_MODE INS) (QUOTE 1)) (DBCC-INS INS S) (IF (AND (EQUAL (S_MODE INS) (QUOTE 7)) (LESSP (QUOTE 1) (S_RN INS))) (HALT (QUOTE TRAPCC-UNSPECIFIED) S) (SCC-INS INS S))) (IF (B0P (BITN INS (QUOTE 8))) (ADDQ-INS (OP-LEN INS) INS S) (SUBQ-INS (OP-LEN INS) INS S)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUBQ-INS . SCC-GROUP) (IMMEDIATE-DEPENDENTS0 ADDQ-INS . SCC-GROUP) (IMMEDIATE-DEPENDENTS0 BITN . SCC-GROUP) (IMMEDIATE-DEPENDENTS0 B0P . SCC-GROUP) (IMMEDIATE-DEPENDENTS0 SCC-INS . SCC-GROUP) (IMMEDIATE-DEPENDENTS0 HALT . SCC-GROUP) (IMMEDIATE-DEPENDENTS0 S_RN . SCC-GROUP) (IMMEDIATE-DEPENDENTS0 DBCC-INS . SCC-GROUP) (IMMEDIATE-DEPENDENTS0 S_MODE . SCC-GROUP) (IMMEDIATE-DEPENDENTS0 Q . SCC-GROUP) (IMMEDIATE-DEPENDENTS0 OP-LEN . SCC-GROUP) (DCELL . *1*SCC-GROUP))))) (PUT1-LST (QUOTE *1*SUBQ-INS) (QUOTE (MAIN-EVENT SUBQ-INS))) (PUT1-LST (QUOTE SUBQ-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((SUBQ-INS -1 NIL NIL NIL)) TOTALP-LST ((SUBQ-INS . T)) SDEFN (LAMBDA (OPLEN INS S) (IF (SUBQ-ADDR-MODEP OPLEN INS) (IF (AN-DIRECT-MODEP (S_MODE INS)) (WRITE-AN (L) (SUB (L) (I-DATA (D_RN INS)) (READ-AN (L) (S_RN INS) S)) (S_RN INS) S) (SUB-MAPPING (I-DATA (D_RN INS)) OPLEN INS S)) (HALT (MODE-SIGNAL) S))) LISP-CODE *1*SUBQ-INS SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214825 SATELLITES (*1*SUBQ-INS) IMMEDIATE-DEPENDENTS0 (SCC-GROUP-H SCC-GROUP) EVENT (DEFN SUBQ-INS (OPLEN INS S) (IF (SUBQ-ADDR-MODEP OPLEN INS) (IF (AN-DIRECT-MODEP (S_MODE INS)) (WRITE-AN (L) (SUB (L) (I-DATA (D_RN INS)) (READ-AN (L) (S_RN INS) S)) (S_RN INS) S) (SUB-MAPPING (I-DATA (D_RN INS)) OPLEN INS S)) (HALT (MODE-SIGNAL) S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MODE-SIGNAL . SUBQ-INS) (IMMEDIATE-DEPENDENTS0 HALT . SUBQ-INS) (IMMEDIATE-DEPENDENTS0 SUB-MAPPING . SUBQ-INS) (IMMEDIATE-DEPENDENTS0 S_RN . SUBQ-INS) (IMMEDIATE-DEPENDENTS0 READ-AN . SUBQ-INS) (IMMEDIATE-DEPENDENTS0 D_RN . SUBQ-INS) (IMMEDIATE-DEPENDENTS0 I-DATA . SUBQ-INS) (IMMEDIATE-DEPENDENTS0 SUB . SUBQ-INS) (IMMEDIATE-DEPENDENTS0 L . SUBQ-INS) (IMMEDIATE-DEPENDENTS0 WRITE-AN . SUBQ-INS) (IMMEDIATE-DEPENDENTS0 S_MODE . SUBQ-INS) (IMMEDIATE-DEPENDENTS0 AN-DIRECT-MODEP . SUBQ-INS) (IMMEDIATE-DEPENDENTS0 SUBQ-ADDR-MODEP . SUBQ-INS) (DCELL . *1*SUBQ-INS))))) (PUT1-LST (QUOTE *1*SUBQ-ADDR-MODEP) (QUOTE (MAIN-EVENT SUBQ-ADDR-MODEP))) (PUT1-LST (QUOTE SUBQ-ADDR-MODEP) (QUOTE (TYPE-PRESCRIPTION-LST ((SUBQ-ADDR-MODEP 3 NIL NIL)) TOTALP-LST ((SUBQ-ADDR-MODEP . T)) SDEFN (LAMBDA (OPLEN INS) (IF (ALTERABLE-ADDR-MODEP (S_MODE INS) (S_RN INS)) (IF (BYTE-AN-DIRECT-MODEP OPLEN (S_MODE INS)) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (QUOTE *1*FALSE))) LISP-CODE *1*SUBQ-ADDR-MODEP SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214825 SATELLITES (*1*SUBQ-ADDR-MODEP) IMMEDIATE-DEPENDENTS0 (MODE-GUARDS SUBQ-INS) EVENT (DEFN SUBQ-ADDR-MODEP (OPLEN INS) (AND (ALTERABLE-ADDR-MODEP (S_MODE INS) (S_RN INS)) (NOT (BYTE-AN-DIRECT-MODEP OPLEN (S_MODE INS))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BYTE-AN-DIRECT-MODEP . SUBQ-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 S_RN . SUBQ-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 S_MODE . SUBQ-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 ALTERABLE-ADDR-MODEP . SUBQ-ADDR-MODEP) (DCELL . *1*SUBQ-ADDR-MODEP))))) (PUT1-LST (QUOTE *1*ADDQ-INS) (QUOTE (MAIN-EVENT ADDQ-INS))) (PUT1-LST (QUOTE ADDQ-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((ADDQ-INS -1 NIL NIL NIL)) TOTALP-LST ((ADDQ-INS . T)) SDEFN (LAMBDA (OPLEN INS S) (IF (ADDQ-ADDR-MODEP OPLEN INS) (IF (AN-DIRECT-MODEP (S_MODE INS)) (WRITE-AN (L) (ADD (L) (READ-AN (L) (S_RN INS) S) (I-DATA (D_RN INS))) (S_RN INS) S) (ADD-MAPPING (I-DATA (D_RN INS)) OPLEN INS S)) (HALT (MODE-SIGNAL) S))) LISP-CODE *1*ADDQ-INS SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214825 SATELLITES (*1*ADDQ-INS) IMMEDIATE-DEPENDENTS0 (SCC-GROUP-H SCC-GROUP) EVENT (DEFN ADDQ-INS (OPLEN INS S) (IF (ADDQ-ADDR-MODEP OPLEN INS) (IF (AN-DIRECT-MODEP (S_MODE INS)) (WRITE-AN (L) (ADD (L) (READ-AN (L) (S_RN INS) S) (I-DATA (D_RN INS))) (S_RN INS) S) (ADD-MAPPING (I-DATA (D_RN INS)) OPLEN INS S)) (HALT (MODE-SIGNAL) S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MODE-SIGNAL . ADDQ-INS) (IMMEDIATE-DEPENDENTS0 HALT . ADDQ-INS) (IMMEDIATE-DEPENDENTS0 ADD-MAPPING . ADDQ-INS) (IMMEDIATE-DEPENDENTS0 D_RN . ADDQ-INS) (IMMEDIATE-DEPENDENTS0 I-DATA . ADDQ-INS) (IMMEDIATE-DEPENDENTS0 S_RN . ADDQ-INS) (IMMEDIATE-DEPENDENTS0 READ-AN . ADDQ-INS) (IMMEDIATE-DEPENDENTS0 ADD . ADDQ-INS) (IMMEDIATE-DEPENDENTS0 L . ADDQ-INS) (IMMEDIATE-DEPENDENTS0 WRITE-AN . ADDQ-INS) (IMMEDIATE-DEPENDENTS0 S_MODE . ADDQ-INS) (IMMEDIATE-DEPENDENTS0 AN-DIRECT-MODEP . ADDQ-INS) (IMMEDIATE-DEPENDENTS0 ADDQ-ADDR-MODEP . ADDQ-INS) (DCELL . *1*ADDQ-INS))))) (PUT1-LST (QUOTE *1*ADDQ-ADDR-MODEP) (QUOTE (MAIN-EVENT ADDQ-ADDR-MODEP))) (PUT1-LST (QUOTE ADDQ-ADDR-MODEP) (QUOTE (TYPE-PRESCRIPTION-LST ((ADDQ-ADDR-MODEP 3 NIL NIL)) TOTALP-LST ((ADDQ-ADDR-MODEP . T)) SDEFN (LAMBDA (OPLEN INS) (IF (ALTERABLE-ADDR-MODEP (S_MODE INS) (S_RN INS)) (IF (BYTE-AN-DIRECT-MODEP OPLEN (S_MODE INS)) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (QUOTE *1*FALSE))) LISP-CODE *1*ADDQ-ADDR-MODEP SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214825 SATELLITES (*1*ADDQ-ADDR-MODEP) IMMEDIATE-DEPENDENTS0 (MODE-GUARDS ADDQ-INS) EVENT (DEFN ADDQ-ADDR-MODEP (OPLEN INS) (AND (ALTERABLE-ADDR-MODEP (S_MODE INS) (S_RN INS)) (NOT (BYTE-AN-DIRECT-MODEP OPLEN (S_MODE INS))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BYTE-AN-DIRECT-MODEP . ADDQ-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 S_RN . ADDQ-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 S_MODE . ADDQ-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 ALTERABLE-ADDR-MODEP . ADDQ-ADDR-MODEP) (DCELL . *1*ADDQ-ADDR-MODEP))))) (PUT1-LST (QUOTE *1*DBCC-INS) (QUOTE (MAIN-EVENT DBCC-INS))) (PUT1-LST (QUOTE DBCC-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((DBCC-INS 16 NIL NIL)) TOTALP-LST ((DBCC-INS . T)) SDEFN (LAMBDA (INS S) (IF (PC-WORD-READP (MC-PC S) (MC-MEM S)) (IF (B0P (BRANCH-CC (COND-FIELD INS) (MC-CCR S))) (DBCC-LOOP (S_RN INS) S) (UPDATE-PC (ADD (L) (MC-PC S) (WSZ)) S)) (HALT (PC-SIGNAL) S))) LISP-CODE *1*DBCC-INS SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214825 SATELLITES (*1*DBCC-INS) IMMEDIATE-DEPENDENTS0 (SCC-GROUP-H SCC-GROUP) EVENT (DEFN DBCC-INS (INS S) (IF (PC-WORD-READP (MC-PC S) (MC-MEM S)) (IF (B0P (BRANCH-CC (COND-FIELD INS) (MC-CCR S))) (DBCC-LOOP (S_RN INS) S) (UPDATE-PC (ADD (L) (MC-PC S) (WSZ)) S)) (HALT (PC-SIGNAL) S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PC-SIGNAL . DBCC-INS) (IMMEDIATE-DEPENDENTS0 HALT . DBCC-INS) (IMMEDIATE-DEPENDENTS0 WSZ . DBCC-INS) (IMMEDIATE-DEPENDENTS0 L . DBCC-INS) (IMMEDIATE-DEPENDENTS0 ADD . DBCC-INS) (IMMEDIATE-DEPENDENTS0 UPDATE-PC . DBCC-INS) (IMMEDIATE-DEPENDENTS0 S_RN . DBCC-INS) (IMMEDIATE-DEPENDENTS0 DBCC-LOOP . DBCC-INS) (IMMEDIATE-DEPENDENTS0 MC-CCR . DBCC-INS) (IMMEDIATE-DEPENDENTS0 COND-FIELD . DBCC-INS) (IMMEDIATE-DEPENDENTS0 BRANCH-CC . DBCC-INS) (IMMEDIATE-DEPENDENTS0 B0P . DBCC-INS) (IMMEDIATE-DEPENDENTS0 MC-MEM . DBCC-INS) (IMMEDIATE-DEPENDENTS0 MC-PC . DBCC-INS) (IMMEDIATE-DEPENDENTS0 PC-WORD-READP . DBCC-INS) (DCELL . *1*DBCC-INS))))) (PUT1-LST (QUOTE *1*DBCC-LOOP) (QUOTE (MAIN-EVENT DBCC-LOOP))) (PUT1-LST (QUOTE DBCC-LOOP) (QUOTE (TYPE-PRESCRIPTION-LST ((DBCC-LOOP 16 NIL NIL)) TOTALP-LST ((DBCC-LOOP . T)) SDEFN (LAMBDA (RN S) (IF (EQUAL (NAT-TO-INT (SUB (W) (QUOTE 1) (READ-DN (W) RN S)) (W)) (QUOTE -1)) (UPDATE-PC (ADD (L) (MC-PC S) (WSZ)) (WRITE-DN (W) (SUB (W) (QUOTE 1) (READ-DN (W) RN S)) RN S)) (UPDATE-PC (ADD (L) (MC-PC S) (EXT (W) (PC-WORD-READ (MC-PC S) (MC-MEM S)) (L))) (WRITE-DN (W) (SUB (W) (QUOTE 1) (READ-DN (W) RN S)) RN S)))) LISP-CODE *1*DBCC-LOOP SUBRP *1*FALSE LEVEL-NO 5 IDATE 1000402214825 SATELLITES (*1*DBCC-LOOP) IMMEDIATE-DEPENDENTS0 (SCC-GROUP-H DBCC-INS) EVENT (DEFN DBCC-LOOP (RN S) (IF (EQUAL (NAT-TO-INT (SUB (W) (QUOTE 1) (READ-DN (W) RN S)) (W)) (QUOTE -1)) (UPDATE-PC (ADD (L) (MC-PC S) (WSZ)) (WRITE-DN (W) (SUB (W) (QUOTE 1) (READ-DN (W) RN S)) RN S)) (UPDATE-PC (ADD (L) (MC-PC S) (EXT (W) (PC-WORD-READ (MC-PC S) (MC-MEM S)) (L))) (WRITE-DN (W) (SUB (W) (QUOTE 1) (READ-DN (W) RN S)) RN S)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MC-MEM . DBCC-LOOP) (IMMEDIATE-DEPENDENTS0 PC-WORD-READ . DBCC-LOOP) (IMMEDIATE-DEPENDENTS0 EXT . DBCC-LOOP) (IMMEDIATE-DEPENDENTS0 WRITE-DN . DBCC-LOOP) (IMMEDIATE-DEPENDENTS0 WSZ . DBCC-LOOP) (IMMEDIATE-DEPENDENTS0 MC-PC . DBCC-LOOP) (IMMEDIATE-DEPENDENTS0 L . DBCC-LOOP) (IMMEDIATE-DEPENDENTS0 ADD . DBCC-LOOP) (IMMEDIATE-DEPENDENTS0 UPDATE-PC . DBCC-LOOP) (IMMEDIATE-DEPENDENTS0 READ-DN . DBCC-LOOP) (IMMEDIATE-DEPENDENTS0 W . DBCC-LOOP) (IMMEDIATE-DEPENDENTS0 SUB . DBCC-LOOP) (IMMEDIATE-DEPENDENTS0 NAT-TO-INT . DBCC-LOOP) (DCELL . *1*DBCC-LOOP))))) (PUT1-LST (QUOTE *1*SCC-INS) (QUOTE (MAIN-EVENT SCC-INS))) (PUT1-LST (QUOTE SCC-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((SCC-INS -1 NIL NIL)) TOTALP-LST ((SCC-INS . T)) SDEFN (LAMBDA (INS S) (IF (SCC-ADDR-MODEP INS) (IF (MC-HALTP (CAR (MC-INSTATE (B) INS S))) (CAR (MC-INSTATE (B) INS S)) (MAPPING (B) (SCC-EFFECT (COND-FIELD INS) (MC-CCR S)) (MC-INSTATE (B) INS S))) (HALT (MODE-SIGNAL) S))) LISP-CODE *1*SCC-INS SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214825 SATELLITES (*1*SCC-INS) IMMEDIATE-DEPENDENTS0 (SCC-GROUP-H SCC-GROUP) EVENT (DEFN SCC-INS (INS S) (IF (SCC-ADDR-MODEP INS) (IF (MC-HALTP (CAR (MC-INSTATE (B) INS S))) (CAR (MC-INSTATE (B) INS S)) (MAPPING (B) (SCC-EFFECT (COND-FIELD INS) (MC-CCR S)) (MC-INSTATE (B) INS S))) (HALT (MODE-SIGNAL) S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MODE-SIGNAL . SCC-INS) (IMMEDIATE-DEPENDENTS0 HALT . SCC-INS) (IMMEDIATE-DEPENDENTS0 MC-CCR . SCC-INS) (IMMEDIATE-DEPENDENTS0 COND-FIELD . SCC-INS) (IMMEDIATE-DEPENDENTS0 SCC-EFFECT . SCC-INS) (IMMEDIATE-DEPENDENTS0 MAPPING . SCC-INS) (IMMEDIATE-DEPENDENTS0 B . SCC-INS) (IMMEDIATE-DEPENDENTS0 MC-INSTATE . SCC-INS) (IMMEDIATE-DEPENDENTS0 MC-HALTP . SCC-INS) (IMMEDIATE-DEPENDENTS0 SCC-ADDR-MODEP . SCC-INS) (DCELL . *1*SCC-INS))))) (PUT1-LST (QUOTE *1*SCC-EFFECT) (QUOTE (MAIN-EVENT SCC-EFFECT))) (PUT1-LST (QUOTE SCC-EFFECT) (QUOTE (TYPE-PRESCRIPTION-LST ((SCC-EFFECT 16 NIL NIL)) TOTALP-LST ((SCC-EFFECT . T)) SDEFN (LAMBDA (COND CCR) (IF (B0P (BRANCH-CC COND CCR)) (CONS (QUOTE 0) CCR) (CONS (QUOTE 255) CCR))) LISP-CODE *1*SCC-EFFECT SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214825 SATELLITES (*1*SCC-EFFECT) IMMEDIATE-DEPENDENTS0 (SCC-GROUP-H SCC-INS) EVENT (DEFN SCC-EFFECT (COND CCR) (CONS (IF (B0P (BRANCH-CC COND CCR)) (QUOTE 0) (QUOTE 255)) CCR)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BRANCH-CC . SCC-EFFECT) (IMMEDIATE-DEPENDENTS0 B0P . SCC-EFFECT) (DCELL . *1*SCC-EFFECT))))) (PUT1-LST (QUOTE *1*SCC-ADDR-MODEP) (QUOTE (MAIN-EVENT SCC-ADDR-MODEP))) (PUT1-LST (QUOTE SCC-ADDR-MODEP) (QUOTE (TYPE-PRESCRIPTION-LST ((SCC-ADDR-MODEP 3 NIL)) TOTALP-LST ((SCC-ADDR-MODEP . T)) SDEFN (LAMBDA (INS) (IF (DATA-ADDR-MODEP (S_MODE INS) (S_RN INS)) (ALTERABLE-ADDR-MODEP (S_MODE INS) (S_RN INS)) (QUOTE *1*FALSE))) LISP-CODE *1*SCC-ADDR-MODEP SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214825 SATELLITES (*1*SCC-ADDR-MODEP) IMMEDIATE-DEPENDENTS0 (MODE-GUARDS SCC-INS) EVENT (DEFN SCC-ADDR-MODEP (INS) (AND (DATA-ADDR-MODEP (S_MODE INS) (S_RN INS)) (ALTERABLE-ADDR-MODEP (S_MODE INS) (S_RN INS)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ALTERABLE-ADDR-MODEP . SCC-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 S_RN . SCC-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 S_MODE . SCC-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 DATA-ADDR-MODEP . SCC-ADDR-MODEP) (DCELL . *1*SCC-ADDR-MODEP))))) (PUT1-LST (QUOTE *1*BCC-GROUP) (QUOTE (MAIN-EVENT BCC-GROUP))) (PUT1-LST (QUOTE BCC-GROUP) (QUOTE (TYPE-PRESCRIPTION-LST ((BCC-GROUP 16 NIL NIL NIL)) TOTALP-LST ((BCC-GROUP . T)) SDEFN (LAMBDA (DISP INS S) (IF (EQUAL DISP (QUOTE 0)) (IF (PC-WORD-READP (MC-PC S) (MC-MEM S)) (BCC-RA-SR (ADD (L) (MC-PC S) (WSZ)) (COND-FIELD INS) (EXT (W) (PC-WORD-READ (MC-PC S) (MC-MEM S)) (L)) S) (HALT (PC-SIGNAL) S)) (IF (EQUAL DISP (QUOTE 255)) (IF (PC-LONG-READP (MC-PC S) (MC-MEM S)) (BCC-RA-SR (ADD (L) (MC-PC S) (LSZ)) (COND-FIELD INS) (PC-LONG-READ (MC-PC S) (MC-MEM S)) S) (HALT (PC-SIGNAL) S)) (BCC-RA-SR (MC-PC S) (COND-FIELD INS) (EXT (B) DISP (L)) S)))) LISP-CODE *1*BCC-GROUP SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214825 SATELLITES (*1*BCC-GROUP) IMMEDIATE-DEPENDENTS0 (GCD-S0-S0-RFILE-2 GCD-S0-S0-RFILE-1 GCD-S0-S0-2 GCD-S0-S0-1 GCD-S0-SN-BASE-RFILE-2 GCD-S0-SN-BASE-2 GCD-S0-SN-BASE-RFILE-1 GCD-S0-SN-BASE-1 BCC-GROUP-H GROUPS EXECUTE-INS) EVENT (DEFN BCC-GROUP (DISP INS S) (IF (EQUAL DISP (QUOTE 0)) (IF (PC-WORD-READP (MC-PC S) (MC-MEM S)) (BCC-RA-SR (ADD (L) (MC-PC S) (WSZ)) (COND-FIELD INS) (EXT (W) (PC-WORD-READ (MC-PC S) (MC-MEM S)) (L)) S) (HALT (PC-SIGNAL) S)) (IF (EQUAL DISP (QUOTE 255)) (IF (PC-LONG-READP (MC-PC S) (MC-MEM S)) (BCC-RA-SR (ADD (L) (MC-PC S) (LSZ)) (COND-FIELD INS) (PC-LONG-READ (MC-PC S) (MC-MEM S)) S) (HALT (PC-SIGNAL) S)) (BCC-RA-SR (MC-PC S) (COND-FIELD INS) (EXT (B) DISP (L)) S)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B . BCC-GROUP) (IMMEDIATE-DEPENDENTS0 PC-LONG-READ . BCC-GROUP) (IMMEDIATE-DEPENDENTS0 LSZ . BCC-GROUP) (IMMEDIATE-DEPENDENTS0 PC-LONG-READP . BCC-GROUP) (IMMEDIATE-DEPENDENTS0 PC-SIGNAL . BCC-GROUP) (IMMEDIATE-DEPENDENTS0 HALT . BCC-GROUP) (IMMEDIATE-DEPENDENTS0 PC-WORD-READ . BCC-GROUP) (IMMEDIATE-DEPENDENTS0 W . BCC-GROUP) (IMMEDIATE-DEPENDENTS0 EXT . BCC-GROUP) (IMMEDIATE-DEPENDENTS0 COND-FIELD . BCC-GROUP) (IMMEDIATE-DEPENDENTS0 WSZ . BCC-GROUP) (IMMEDIATE-DEPENDENTS0 L . BCC-GROUP) (IMMEDIATE-DEPENDENTS0 ADD . BCC-GROUP) (IMMEDIATE-DEPENDENTS0 BCC-RA-SR . BCC-GROUP) (IMMEDIATE-DEPENDENTS0 MC-MEM . BCC-GROUP) (IMMEDIATE-DEPENDENTS0 MC-PC . BCC-GROUP) (IMMEDIATE-DEPENDENTS0 PC-WORD-READP . BCC-GROUP) (DCELL . *1*BCC-GROUP))))) (PUT1-LST (QUOTE *1*BCC-RA-SR) (QUOTE (MAIN-EVENT BCC-RA-SR))) (PUT1-LST (QUOTE BCC-RA-SR) (QUOTE (TYPE-PRESCRIPTION-LST ((BCC-RA-SR 16 NIL NIL NIL NIL)) TOTALP-LST ((BCC-RA-SR . T)) SDEFN (LAMBDA (PC COND DISP S) (IF (EQUAL COND (QUOTE 0)) (UPDATE-PC (ADD (L) (MC-PC S) DISP) S) (IF (EQUAL COND (QUOTE 1)) (BSR-INS PC DISP S) (IF (B0P (BRANCH-CC COND (MC-CCR S))) (UPDATE-PC PC S) (UPDATE-PC (ADD (L) (MC-PC S) DISP) S))))) LISP-CODE *1*BCC-RA-SR SUBRP *1*FALSE LEVEL-NO 5 IDATE 1000402214824 SATELLITES (*1*BCC-RA-SR) IMMEDIATE-DEPENDENTS0 (GCD-S0-S0-RFILE-2 GCD-S0-S0-RFILE-1 GCD-S0-S0-2 GCD-S0-S0-1 GCD-S0-SN-BASE-RFILE-2 GCD-S0-SN-BASE-2 GCD-S0-SN-BASE-RFILE-1 GCD-S0-SN-BASE-1 BCC-GROUP-H BCC-GROUP) EVENT (DEFN BCC-RA-SR (PC COND DISP S) (IF (EQUAL COND (QUOTE 0)) (UPDATE-PC (ADD (L) (MC-PC S) DISP) S) (IF (EQUAL COND (QUOTE 1)) (BSR-INS PC DISP S) (IF (B0P (BRANCH-CC COND (MC-CCR S))) (UPDATE-PC PC S) (UPDATE-PC (ADD (L) (MC-PC S) DISP) S))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MC-CCR . BCC-RA-SR) (IMMEDIATE-DEPENDENTS0 BRANCH-CC . BCC-RA-SR) (IMMEDIATE-DEPENDENTS0 B0P . BCC-RA-SR) (IMMEDIATE-DEPENDENTS0 BSR-INS . BCC-RA-SR) (IMMEDIATE-DEPENDENTS0 MC-PC . BCC-RA-SR) (IMMEDIATE-DEPENDENTS0 L . BCC-RA-SR) (IMMEDIATE-DEPENDENTS0 ADD . BCC-RA-SR) (IMMEDIATE-DEPENDENTS0 UPDATE-PC . BCC-RA-SR) (DCELL . *1*BCC-RA-SR))))) (PUT1-LST (QUOTE *1*BSR-INS) (QUOTE (MAIN-EVENT BSR-INS))) (PUT1-LST (QUOTE BSR-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((BSR-INS 16 NIL NIL NIL)) TOTALP-LST ((BSR-INS . T)) SDEFN (LAMBDA (PC DISP S) (PUSH-SP (LSZ) PC (UPDATE-PC (ADD (L) (MC-PC S) DISP) S))) LISP-CODE *1*BSR-INS SUBRP *1*FALSE LEVEL-NO 5 IDATE 1000402214824 SATELLITES (*1*BSR-INS) IMMEDIATE-DEPENDENTS0 (BCC-GROUP-H BCC-RA-SR) EVENT (DEFN BSR-INS (PC DISP S) (PUSH-SP (LSZ) PC (UPDATE-PC (ADD (L) (MC-PC S) DISP) S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MC-PC . BSR-INS) (IMMEDIATE-DEPENDENTS0 L . BSR-INS) (IMMEDIATE-DEPENDENTS0 ADD . BSR-INS) (IMMEDIATE-DEPENDENTS0 UPDATE-PC . BSR-INS) (IMMEDIATE-DEPENDENTS0 LSZ . BSR-INS) (IMMEDIATE-DEPENDENTS0 PUSH-SP . BSR-INS) (DCELL . *1*BSR-INS))))) (PUT1-LST (QUOTE *1*BRANCH-CC) (QUOTE (MAIN-EVENT BRANCH-CC))) (PUT1-LST (QUOTE BRANCH-CC) (QUOTE (TYPE-PRESCRIPTION-LST ((BRANCH-CC 4 NIL NIL)) TOTALP-LST ((BRANCH-CC . T)) SDEFN (LAMBDA (COND CCR) (IF (LESSP COND (QUOTE 8)) (IF (LESSP COND (QUOTE 4)) (IF (LESSP COND (QUOTE 2)) (IF (EQUAL COND (QUOTE 0)) (B1) (B0)) (IF (EQUAL COND (QUOTE 2)) (BHI (CCR-C CCR) (CCR-Z CCR)) (BLS (CCR-C CCR) (CCR-Z CCR)))) (IF (LESSP COND (QUOTE 6)) (IF (EQUAL COND (QUOTE 4)) (B-NOT (BCS (CCR-C CCR))) (BCS (CCR-C CCR))) (IF (EQUAL COND (QUOTE 6)) (B-NOT (BEQ (CCR-Z CCR))) (BEQ (CCR-Z CCR))))) (IF (LESSP COND (QUOTE 12)) (IF (LESSP COND (QUOTE 10)) (IF (EQUAL COND (QUOTE 8)) (B-NOT (BVS (CCR-V CCR))) (BVS (CCR-V CCR))) (IF (EQUAL COND (QUOTE 10)) (B-NOT (BMI (CCR-N CCR))) (BMI (CCR-N CCR)))) (IF (LESSP COND (QUOTE 14)) (IF (EQUAL COND (QUOTE 12)) (BGE (CCR-V CCR) (CCR-N CCR)) (BLT (CCR-V CCR) (CCR-N CCR))) (IF (EQUAL COND (QUOTE 14)) (BGT (CCR-V CCR) (CCR-Z CCR) (CCR-N CCR)) (BLE (CCR-V CCR) (CCR-Z CCR) (CCR-N CCR))))))) LISP-CODE *1*BRANCH-CC SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*BRANCH-CC) IMMEDIATE-DEPENDENTS0 (GCD-S0-S0-RFILE-2 GCD-S0-S0-RFILE-1 GCD-S0-S0-2 GCD-S0-S0-1 GCD-S0-SN-BASE-RFILE-2 GCD-S0-SN-BASE-2 GCD-S0-SN-BASE-RFILE-1 GCD-S0-SN-BASE-1 DBCC-INS SCC-EFFECT BCC-RA-SR) EVENT (DEFN BRANCH-CC (COND CCR) (IF (LESSP COND (QUOTE 8)) (IF (LESSP COND (QUOTE 4)) (IF (LESSP COND (QUOTE 2)) (IF (EQUAL COND (QUOTE 0)) (B1) (B0)) (IF (EQUAL COND (QUOTE 2)) (BHI (CCR-C CCR) (CCR-Z CCR)) (BLS (CCR-C CCR) (CCR-Z CCR)))) (IF (LESSP COND (QUOTE 6)) (IF (EQUAL COND (QUOTE 4)) (B-NOT (BCS (CCR-C CCR))) (BCS (CCR-C CCR))) (IF (EQUAL COND (QUOTE 6)) (B-NOT (BEQ (CCR-Z CCR))) (BEQ (CCR-Z CCR))))) (IF (LESSP COND (QUOTE 12)) (IF (LESSP COND (QUOTE 10)) (IF (EQUAL COND (QUOTE 8)) (B-NOT (BVS (CCR-V CCR))) (BVS (CCR-V CCR))) (IF (EQUAL COND (QUOTE 10)) (B-NOT (BMI (CCR-N CCR))) (BMI (CCR-N CCR)))) (IF (LESSP COND (QUOTE 14)) (IF (EQUAL COND (QUOTE 12)) (BGE (CCR-V CCR) (CCR-N CCR)) (BLT (CCR-V CCR) (CCR-N CCR))) (IF (EQUAL COND (QUOTE 14)) (BGT (CCR-V CCR) (CCR-Z CCR) (CCR-N CCR)) (BLE (CCR-V CCR) (CCR-Z CCR) (CCR-N CCR))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BLE . BRANCH-CC) (IMMEDIATE-DEPENDENTS0 BGT . BRANCH-CC) (IMMEDIATE-DEPENDENTS0 BLT . BRANCH-CC) (IMMEDIATE-DEPENDENTS0 BGE . BRANCH-CC) (IMMEDIATE-DEPENDENTS0 CCR-N . BRANCH-CC) (IMMEDIATE-DEPENDENTS0 BMI . BRANCH-CC) (IMMEDIATE-DEPENDENTS0 CCR-V . BRANCH-CC) (IMMEDIATE-DEPENDENTS0 BVS . BRANCH-CC) (IMMEDIATE-DEPENDENTS0 BEQ . BRANCH-CC) (IMMEDIATE-DEPENDENTS0 BCS . BRANCH-CC) (IMMEDIATE-DEPENDENTS0 B-NOT . BRANCH-CC) (IMMEDIATE-DEPENDENTS0 BLS . BRANCH-CC) (IMMEDIATE-DEPENDENTS0 CCR-Z . BRANCH-CC) (IMMEDIATE-DEPENDENTS0 CCR-C . BRANCH-CC) (IMMEDIATE-DEPENDENTS0 BHI . BRANCH-CC) (IMMEDIATE-DEPENDENTS0 B0 . BRANCH-CC) (IMMEDIATE-DEPENDENTS0 B1 . BRANCH-CC) (DCELL . *1*BRANCH-CC))))) (PUT1-LST (QUOTE *1*BHI) (QUOTE (MAIN-EVENT BHI))) (PUT1-LST (QUOTE BHI) (QUOTE (TYPE-PRESCRIPTION-LST ((BHI 4 NIL NIL)) LEMMAS ((REWRITE-RULE SUB-BHI-1 ((NAT-RANGEP X N) (NAT-RANGEP Y N) (LESSP (NAT-TO-UINT X) (NAT-TO-UINT Y)) (NUMBERP N) (NOT (EQUAL N (QUOTE 0)))) (EQUAL (BHI (SUB-C N X Y) (SUB-Z N X Y)) (QUOTE 1)) NIL) (REWRITE-RULE SUB-BHI-0 ((NAT-RANGEP X N) (NAT-RANGEP Y N) (NOT (LESSP (NAT-TO-UINT X) (NAT-TO-UINT Y))) (NUMBERP N) (NOT (EQUAL N (QUOTE 0)))) (EQUAL (BHI (SUB-C N X Y) (SUB-Z N X Y)) (QUOTE 0)) NIL) (REWRITE-RULE SUB-BHI-INT ((NAT-RANGEP X N) (NAT-RANGEP Y N) (NUMBERP N) (NOT (EQUAL N (QUOTE 0))) (NOT (NEGATIVEP (NAT-TO-INT X N)))) (EQUAL (BHI (SUB-C N X Y) (SUB-Z N X Y)) (IF (BETWEEN-ILEQ (QUOTE 0) (NAT-TO-INT Y N) (NAT-TO-INT X N)) (QUOTE 0) (QUOTE 1))) NIL)) TOTALP-LST ((BHI . T)) SDEFN (LAMBDA (C Z) (B-AND (B-NOT C) (B-NOT Z))) LISP-CODE *1*BHI SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402214824 SATELLITES (*1*BHI) IMMEDIATE-DEPENDENTS0 (BHI-OFF BLS-BHI SUB-BHI-1 SUB-BHI-0 SUB-BHI-INT BRANCH-CC) EVENT (DEFN BHI (C Z) (B-AND (B-NOT C) (B-NOT Z))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-NOT . BHI) (IMMEDIATE-DEPENDENTS0 B-AND . BHI) (DCELL . *1*BHI))))) (PUT1-LST (QUOTE *1*BLS) (QUOTE (MAIN-EVENT BLS))) (PUT1-LST (QUOTE BLS) (QUOTE (TYPE-PRESCRIPTION-LST ((BLS 4 NIL NIL)) LEMMAS ((REWRITE-RULE BLS-BHI NIL (EQUAL (BLS C Z) (B-NOT (BHI C Z))) NIL) (REWRITE-RULE SUB-BLS ((NAT-RANGEP X N) (NAT-RANGEP Y N) (NUMBERP N) (NOT (EQUAL N (QUOTE 0)))) (EQUAL (BLS (SUB-C N X Y) (SUB-Z N X Y)) (IF (LESSP (NAT-TO-UINT X) (NAT-TO-UINT Y)) (QUOTE 0) (QUOTE 1))) NIL)) TOTALP-LST ((BLS . T)) SDEFN (LAMBDA (C Z) (B-OR C Z)) LISP-CODE *1*BLS SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402214824 SATELLITES (*1*BLS) IMMEDIATE-DEPENDENTS0 (BLS-OFF BLS-BHI SUB-BLS BRANCH-CC) EVENT (DEFN BLS (C Z) (B-OR C Z)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-OR . BLS) (DCELL . *1*BLS))))) (PUT1-LST (QUOTE *1*BGE) (QUOTE (MAIN-EVENT BGE))) (PUT1-LST (QUOTE BGE) (QUOTE (TYPE-PRESCRIPTION-LST ((BGE 4 NIL NIL)) LEMMAS ((REWRITE-RULE SUB-BGE ((NAT-RANGEP X N) (NAT-RANGEP Y N) (NUMBERP N) (NOT (EQUAL N (QUOTE 0)))) (EQUAL (BGE (SUB-V N X Y) (SUB-N N X Y)) (IF (ILESSP (NAT-TO-INT Y N) (NAT-TO-INT X N)) (QUOTE 0) (QUOTE 1))) NIL) (REWRITE-RULE BGE-V0 NIL (EQUAL (BGE (QUOTE 0) N) (B-NOT (BMI N))) NIL)) TOTALP-LST ((BGE . T)) SDEFN (LAMBDA (V N) (B-OR (B-AND N V) (B-AND (B-NOT N) (B-NOT V)))) LISP-CODE *1*BGE SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402214824 SATELLITES (*1*BGE) IMMEDIATE-DEPENDENTS0 (BGE-OFF BLT-BGE SUB-BGE BGE-V0 BRANCH-CC) EVENT (DEFN BGE (V N) (B-OR (B-AND N V) (B-AND (B-NOT N) (B-NOT V)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-NOT . BGE) (IMMEDIATE-DEPENDENTS0 B-AND . BGE) (IMMEDIATE-DEPENDENTS0 B-OR . BGE) (DCELL . *1*BGE))))) (PUT1-LST (QUOTE *1*BLT) (QUOTE (MAIN-EVENT BLT))) (PUT1-LST (QUOTE BLT) (QUOTE (TYPE-PRESCRIPTION-LST ((BLT 4 NIL NIL)) LEMMAS ((REWRITE-RULE BLT-BGE NIL (EQUAL (BLT V N) (B-NOT (BGE V N))) NIL) (REWRITE-RULE SUB-BLT ((NAT-RANGEP X N) (NAT-RANGEP Y N) (NUMBERP N) (NOT (EQUAL N (QUOTE 0)))) (EQUAL (BLT (SUB-V N X Y) (SUB-N N X Y)) (IF (ILESSP (NAT-TO-INT Y N) (NAT-TO-INT X N)) (QUOTE 1) (QUOTE 0))) NIL) (REWRITE-RULE BLT-V0 NIL (EQUAL (BLT (QUOTE 0) N) (BMI N)) NIL)) TOTALP-LST ((BLT . T)) SDEFN (LAMBDA (V N) (B-OR (B-AND N (B-NOT V)) (B-AND (B-NOT N) V))) LISP-CODE *1*BLT SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402214824 SATELLITES (*1*BLT) IMMEDIATE-DEPENDENTS0 (BLT-OFF BLT-BGE SUB-BLT BLT-V0 BRANCH-CC) EVENT (DEFN BLT (V N) (B-OR (B-AND N (B-NOT V)) (B-AND (B-NOT N) V))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-NOT . BLT) (IMMEDIATE-DEPENDENTS0 B-AND . BLT) (IMMEDIATE-DEPENDENTS0 B-OR . BLT) (DCELL . *1*BLT))))) (PUT1-LST (QUOTE *1*BGT) (QUOTE (MAIN-EVENT BGT))) (PUT1-LST (QUOTE BGT) (QUOTE (TYPE-PRESCRIPTION-LST ((BGT 4 NIL NIL NIL)) LEMMAS ((REWRITE-RULE MOVE-BGT ((NAT-RANGEP X N)) (EQUAL (BGT (QUOTE 0) (MOVE-Z N X) (MOVE-N N X)) (IF (LESSP (QUOTE 0) (NAT-TO-INT X N)) (QUOTE 1) (QUOTE 0))) NIL) (REWRITE-RULE SUB-BGT ((NAT-RANGEP X N) (NAT-RANGEP Y N) (NUMBERP N) (NOT (EQUAL N (QUOTE 0)))) (EQUAL (BGT (SUB-V N X Y) (SUB-Z N X Y) (SUB-N N X Y)) (IF (ILESSP (NAT-TO-INT X N) (NAT-TO-INT Y N)) (QUOTE 1) (QUOTE 0))) NIL)) TOTALP-LST ((BGT . T)) SDEFN (LAMBDA (V Z N) (B-AND (B-OR (B-AND N V) (B-AND (B-NOT N) (B-NOT V))) (B-NOT Z))) LISP-CODE *1*BGT SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402214824 SATELLITES (*1*BGT) IMMEDIATE-DEPENDENTS0 (BGT-OFF BLE-BGT MOVE-BGT SUB-BGT BRANCH-CC) EVENT (DEFN BGT (V Z N) (B-AND (B-OR (B-AND N V) (B-AND (B-NOT N) (B-NOT V))) (B-NOT Z))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-NOT . BGT) (IMMEDIATE-DEPENDENTS0 B-OR . BGT) (IMMEDIATE-DEPENDENTS0 B-AND . BGT) (DCELL . *1*BGT))))) (PUT1-LST (QUOTE *1*BLE) (QUOTE (MAIN-EVENT BLE))) (PUT1-LST (QUOTE BLE) (QUOTE (TYPE-PRESCRIPTION-LST ((BLE 4 NIL NIL NIL)) LEMMAS ((REWRITE-RULE BLE-BGT NIL (EQUAL (BLE V Z N) (B-NOT (BGT V Z N))) NIL) (REWRITE-RULE MOVE-BLE ((NAT-RANGEP X N)) (EQUAL (BLE (QUOTE 0) (MOVE-Z N X) (MOVE-N N X)) (IF (LESSP (QUOTE 0) (NAT-TO-INT X N)) (QUOTE 0) (QUOTE 1))) NIL) (REWRITE-RULE SUB-BLE ((NAT-RANGEP X N) (NAT-RANGEP Y N) (NUMBERP N) (NOT (EQUAL N (QUOTE 0)))) (EQUAL (BLE (SUB-V N X Y) (SUB-Z N X Y) (SUB-N N X Y)) (IF (ILESSP (NAT-TO-INT X N) (NAT-TO-INT Y N)) (QUOTE 0) (QUOTE 1))) NIL)) TOTALP-LST ((BLE . T)) SDEFN (LAMBDA (V Z N) (B-OR Z (B-OR (B-AND N (B-NOT V)) (B-AND (B-NOT N) V)))) LISP-CODE *1*BLE SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402214824 SATELLITES (*1*BLE) IMMEDIATE-DEPENDENTS0 (BLE-OFF BLE-BGT MOVE-BLE SUB-BLE BRANCH-CC) EVENT (DEFN BLE (V Z N) (B-OR Z (B-OR (B-AND N (B-NOT V)) (B-AND (B-NOT N) V)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-NOT . BLE) (IMMEDIATE-DEPENDENTS0 B-AND . BLE) (IMMEDIATE-DEPENDENTS0 B-OR . BLE) (DCELL . *1*BLE))))) (PUT1-LST (QUOTE *1*BMI) (QUOTE (MAIN-EVENT BMI))) (PUT1-LST (QUOTE BMI) (QUOTE (TYPE-PRESCRIPTION-LST ((BMI 4 NIL)) LEMMAS ((REWRITE-RULE EXT-BMI ((NAT-RANGEP X N) (LESSP N SIZE)) (EQUAL (BMI (EXT-N N X SIZE)) (IF (NEGATIVEP (NAT-TO-INT X N)) (QUOTE 1) (QUOTE 0))) NIL) (REWRITE-RULE ASR-BMI ((NAT-RANGEP X N)) (EQUAL (BMI (ASR-N N X CNT)) (IF (NEGATIVEP (NAT-TO-INT X N)) (QUOTE 1) (QUOTE 0))) NIL) (REWRITE-RULE ASL-BMI ((NAT-RANGEP X N) (INT-RANGEP (NAT-TO-INT X N) (DIFFERENCE N CNT))) (EQUAL (BMI (ASL-N N X CNT)) (IF (NEGATIVEP (NAT-TO-INT X N)) (QUOTE 1) (QUOTE 0))) NIL) (REWRITE-RULE MULS_3232-BMI ((INT-RANGEP (ITIMES (NAT-TO-INT X (QUOTE 32)) (NAT-TO-INT Y (QUOTE 32))) (QUOTE 32)) (NAT-RANGEP X (QUOTE 32)) (NAT-RANGEP Y (QUOTE 32))) (EQUAL (BMI (MULS-N (QUOTE 32) X Y (QUOTE 32))) (IF (EQUAL (NAT-TO-INT X (QUOTE 32)) (QUOTE 0)) (QUOTE 0) (IF (EQUAL (NAT-TO-INT Y (QUOTE 32)) (QUOTE 0)) (QUOTE 0) (IF (NEGATIVEP (NAT-TO-INT X (QUOTE 32))) (IF (NEGATIVEP (NAT-TO-INT Y (QUOTE 32))) (QUOTE 0) (QUOTE 1)) (IF (NEGATIVEP (NAT-TO-INT Y (QUOTE 32))) (QUOTE 1) (QUOTE 0)))))) NIL) (REWRITE-RULE MULS_3264-BMI ((NAT-RANGEP X (QUOTE 32)) (NAT-RANGEP Y (QUOTE 32))) (EQUAL (BMI (MULS-N (QUOTE 64) X Y (QUOTE 32))) (IF (EQUAL (NAT-TO-INT X (QUOTE 32)) (QUOTE 0)) (QUOTE 0) (IF (EQUAL (NAT-TO-INT Y (QUOTE 32)) (QUOTE 0)) (QUOTE 0) (IF (NEGATIVEP (NAT-TO-INT X (QUOTE 32))) (IF (NEGATIVEP (NAT-TO-INT Y (QUOTE 32))) (QUOTE 0) (QUOTE 1)) (IF (NEGATIVEP (NAT-TO-INT Y (QUOTE 32))) (QUOTE 1) (QUOTE 0)))))) NIL) (REWRITE-RULE MULS_1632-BMI ((NAT-RANGEP X (QUOTE 16)) (NAT-RANGEP Y (QUOTE 16))) (EQUAL (BMI (MULS-N (QUOTE 32) X Y (QUOTE 16))) (IF (EQUAL (NAT-TO-INT X (QUOTE 16)) (QUOTE 0)) (QUOTE 0) (IF (EQUAL (NAT-TO-INT Y (QUOTE 16)) (QUOTE 0)) (QUOTE 0) (IF (NEGATIVEP (NAT-TO-INT X (QUOTE 16))) (IF (NEGATIVEP (NAT-TO-INT Y (QUOTE 16))) (QUOTE 0) (QUOTE 1)) (IF (NEGATIVEP (NAT-TO-INT Y (QUOTE 16))) (QUOTE 1) (QUOTE 0)))))) NIL) (REWRITE-RULE ADD-BMI ((NAT-RANGEP X N) (NAT-RANGEP Y N) (NUMBERP N) (NOT (EQUAL N (QUOTE 0)))) (EQUAL (BMI (ADD-N N X Y)) (IF (INT-RANGEP (IPLUS (NAT-TO-INT X N) (NAT-TO-INT Y N)) N) (IF (NEGATIVEP (IPLUS (NAT-TO-INT X N) (NAT-TO-INT Y N))) (QUOTE 1) (QUOTE 0)) (IF (NEGATIVEP (NAT-TO-INT X N)) (QUOTE 0) (QUOTE 1)))) NIL) (REWRITE-RULE SUB-BMI ((NAT-RANGEP X N) (NAT-RANGEP Y N) (NUMBERP N) (NOT (EQUAL N (QUOTE 0)))) (EQUAL (BMI (SUB-N N X Y)) (IF (INT-RANGEP (IDIFFERENCE (NAT-TO-INT Y N) (NAT-TO-INT X N)) N) (IF (ILESSP (NAT-TO-INT Y N) (NAT-TO-INT X N)) (QUOTE 1) (QUOTE 0)) (IF (ILESSP (NAT-TO-INT Y N) (NAT-TO-INT X N)) (QUOTE 0) (QUOTE 1)))) NIL) (REWRITE-RULE MOVE-BMI ((NAT-RANGEP X N)) (EQUAL (BMI (MOVE-N N X)) (IF (NEGATIVEP (NAT-TO-INT X N)) (QUOTE 1) (QUOTE 0))) NIL)) TOTALP-LST ((BMI . T)) SDEFN (LAMBDA (N) (FIX-BIT N)) LISP-CODE *1*BMI SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402214824 SATELLITES (*1*BMI) IMMEDIATE-DEPENDENTS0 (BMI-OFF BLT-V0 BGE-V0 EXT-BMI ASR-BMI ASL-BMI MULS_3232-BMI MULS_3264-BMI MULS_1632-BMI ADD-BMI SUB-BMI MOVE-BMI BRANCH-CC) EVENT (DEFN BMI (N) (FIX-BIT N)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FIX-BIT . BMI) (DCELL . *1*BMI))))) (PUT1-LST (QUOTE *1*BEQ) (QUOTE (MAIN-EVENT BEQ))) (PUT1-LST (QUOTE BEQ) (QUOTE (TYPE-PRESCRIPTION-LST ((BEQ 4 NIL)) LEMMAS ((REWRITE-RULE EXT-BEQ-INT-1 ((NAT-RANGEP X N) (LESSP N SIZE) (EQUAL (NAT-TO-INT X N) (QUOTE 0))) (EQUAL (BEQ (EXT-Z N X SIZE)) (QUOTE 1)) NIL) (REWRITE-RULE EXT-BEQ-INT-0 ((NAT-RANGEP X N) (LESSP N SIZE) (NOT (EQUAL (NAT-TO-INT X N) (QUOTE 0)))) (EQUAL (BEQ (EXT-Z N X SIZE)) (QUOTE 0)) NIL) (REWRITE-RULE EXT-BEQ-UINT ((NAT-RANGEP X N) (NOT (LESSP SIZE N))) (EQUAL (BEQ (EXT-Z N X SIZE)) (IF (EQUAL (NAT-TO-UINT X) (QUOTE 0)) (QUOTE 1) (QUOTE 0))) NIL) (REWRITE-RULE ASR-BEQ ((NAT-RANGEP X N)) (EQUAL (BEQ (ASR-Z N X CNT)) (IF (NEGATIVEP (NAT-TO-INT X N)) (QUOTE 0) (IF (LESSP (NAT-TO-INT X N) (EXP (QUOTE 2) CNT)) (QUOTE 1) (QUOTE 0)))) NIL) (REWRITE-RULE ASL-BEQ ((NAT-RANGEP X N) (INT-RANGEP (NAT-TO-INT X N) (DIFFERENCE N CNT))) (EQUAL (BEQ (ASL-Z N X CNT)) (IF (EQUAL (NAT-TO-INT X N) (QUOTE 0)) (QUOTE 1) (QUOTE 0))) NIL) (REWRITE-RULE LSR-BEQ NIL (EQUAL (BEQ (LSR-Z N X CNT)) (IF (LESSP (NAT-TO-UINT X) (EXP (QUOTE 2) CNT)) (QUOTE 1) (QUOTE 0))) NIL) (REWRITE-RULE LSL-BEQ ((UINT-RANGEP (NAT-TO-UINT X) (DIFFERENCE N CNT))) (EQUAL (BEQ (LSL-Z N X CNT)) (IF (EQUAL (NAT-TO-UINT X) (QUOTE 0)) (QUOTE 1) (QUOTE 0))) NIL) (REWRITE-RULE DIVS-BEQ ((INT-RANGEP (IQUOTIENT (NAT-TO-INT Y J) (NAT-TO-INT X I)) N) (NAT-RANGEP X I) (NOT (EQUAL (NAT-TO-INT X I) (QUOTE 0))) (NOT (LESSP J N))) (EQUAL (BEQ (DIVS-Z N X I Y J)) (IF (LESSP (ABS (NAT-TO-INT Y J)) (ABS (NAT-TO-INT X I))) (QUOTE 1) (QUOTE 0))) NIL) (REWRITE-RULE DIVU-BEQ ((NAT-RANGEP Y N) (NOT (EQUAL (NAT-TO-UINT X) (QUOTE 0)))) (EQUAL (BEQ (DIVU-Z N X Y)) (IF (LESSP (NAT-TO-UINT Y) (NAT-TO-UINT X)) (QUOTE 1) (QUOTE 0))) NIL) (REWRITE-RULE MULS_3232-BEQ ((INT-RANGEP (ITIMES (NAT-TO-INT X (QUOTE 32)) (NAT-TO-INT Y (QUOTE 32))) (QUOTE 32)) (NAT-RANGEP X (QUOTE 32)) (NAT-RANGEP Y (QUOTE 32))) (EQUAL (BEQ (MULS-Z (QUOTE 32) X Y (QUOTE 32))) (IF (EQUAL (NAT-TO-INT X (QUOTE 32)) (QUOTE 0)) (QUOTE 1) (IF (EQUAL (NAT-TO-INT Y (QUOTE 32)) (QUOTE 0)) (QUOTE 1) (QUOTE 0)))) NIL) (REWRITE-RULE MULS_3264-BEQ ((NAT-RANGEP X (QUOTE 32)) (NAT-RANGEP Y (QUOTE 32))) (EQUAL (BEQ (MULS-Z (QUOTE 64) X Y (QUOTE 32))) (IF (EQUAL (NAT-TO-INT X (QUOTE 32)) (QUOTE 0)) (QUOTE 1) (IF (EQUAL (NAT-TO-INT Y (QUOTE 32)) (QUOTE 0)) (QUOTE 1) (QUOTE 0)))) NIL) (REWRITE-RULE MULS_1632-BEQ ((NAT-RANGEP X (QUOTE 16)) (NAT-RANGEP Y (QUOTE 16))) (EQUAL (BEQ (MULS-Z (QUOTE 32) X Y (QUOTE 16))) (IF (EQUAL (NAT-TO-INT X (QUOTE 16)) (QUOTE 0)) (QUOTE 1) (IF (EQUAL (NAT-TO-INT Y (QUOTE 16)) (QUOTE 0)) (QUOTE 1) (QUOTE 0)))) NIL) (REWRITE-RULE MULU_3232-BEQ ((UINT-RANGEP (TIMES (NAT-TO-UINT X) (NAT-TO-UINT Y)) (QUOTE 32))) (EQUAL (BEQ (MULU-Z (QUOTE 32) X Y (QUOTE 32))) (IF (EQUAL (NAT-TO-UINT X) (QUOTE 0)) (QUOTE 1) (IF (EQUAL (NAT-TO-UINT Y) (QUOTE 0)) (QUOTE 1) (QUOTE 0)))) NIL) (REWRITE-RULE MULU_3264-BEQ ((NAT-RANGEP X (QUOTE 32)) (NAT-RANGEP Y (QUOTE 32))) (EQUAL (BEQ (MULU-Z (QUOTE 64) X Y (QUOTE 32))) (IF (EQUAL (NAT-TO-UINT X) (QUOTE 0)) (QUOTE 1) (IF (EQUAL (NAT-TO-UINT Y) (QUOTE 0)) (QUOTE 1) (QUOTE 0)))) NIL) (REWRITE-RULE MULU_1632-BEQ ((NAT-RANGEP X (QUOTE 16)) (NAT-RANGEP Y (QUOTE 16))) (EQUAL (BEQ (MULU-Z (QUOTE 32) X Y (QUOTE 16))) (IF (EQUAL (NAT-TO-UINT X) (QUOTE 0)) (QUOTE 1) (IF (EQUAL (NAT-TO-UINT Y) (QUOTE 0)) (QUOTE 1) (QUOTE 0)))) NIL) (REWRITE-RULE LOGAND-EOR-BEQ-UINT ((EQUAL (EXP (QUOTE 2) (LOG (QUOTE 2) (ADD1 X))) (ADD1 X))) (EQUAL (BEQ (AND-Z N X (LOGEOR Y Z))) (IF (EQUAL (REMAINDER (NAT-TO-UINT Y) (ADD1 X)) (REMAINDER (NAT-TO-UINT Z) (ADD1 X))) (QUOTE 1) (QUOTE 0))) NIL) (REWRITE-RULE LOGAND-OR-BEQ-UINT ((EQUAL (EXP (QUOTE 2) (LOG (QUOTE 2) (ADD1 X))) (ADD1 X))) (EQUAL (BEQ (AND-Z N X (LOGOR Y Z))) (IF (EQUAL (REMAINDER (NAT-TO-UINT Y) (ADD1 X)) (QUOTE 0)) (IF (EQUAL (REMAINDER (NAT-TO-UINT Z) (ADD1 X)) (QUOTE 0)) (QUOTE 1) (QUOTE 0)) (QUOTE 0))) NIL) (REWRITE-RULE LOGAND-BEQ-UINT ((EQUAL (EXP (QUOTE 2) (LOG (QUOTE 2) (ADD1 X))) (ADD1 X))) (EQUAL (BEQ (AND-Z N X Y)) (IF (EQUAL (REMAINDER (NAT-TO-UINT Y) (ADD1 X)) (QUOTE 0)) (QUOTE 1) (QUOTE 0))) NIL) (REWRITE-RULE LOGEOR-BEQ-INT-1 ((NAT-RANGEP X N) (NAT-RANGEP Y N) (EQUAL (NAT-TO-INT X N) (NAT-TO-INT Y N))) (EQUAL (BEQ (EOR-Z N X Y)) (QUOTE 1)) NIL) (REWRITE-RULE LOGEOR-BEQ-INT-0 ((NAT-RANGEP X N) (NAT-RANGEP Y N) (NOT (EQUAL (NAT-TO-INT X N) (NAT-TO-INT Y N)))) (EQUAL (BEQ (EOR-Z N X Y)) (QUOTE 0)) NIL) (REWRITE-RULE LOGEOR-BEQ-UINT NIL (EQUAL (BEQ (EOR-Z N X Y)) (IF (EQUAL (NAT-TO-UINT X) (NAT-TO-UINT Y)) (QUOTE 1) (QUOTE 0))) NIL) (REWRITE-RULE LOGOR-BEQ-INT-1 ((NAT-RANGEP X N) (NAT-RANGEP Y N) (EQUAL (NAT-TO-INT X N) (QUOTE 0)) (EQUAL (NAT-TO-INT Y N) (QUOTE 0))) (EQUAL (BEQ (OR-Z N X Y)) (QUOTE 1)) NIL) (REWRITE-RULE LOGOR-BEQ-INT-0 ((NAT-RANGEP X N) (NAT-RANGEP Y N) (OR (NOT (EQUAL (NAT-TO-INT X N) (QUOTE 0))) (NOT (EQUAL (NAT-TO-INT Y N) (QUOTE 0))))) (EQUAL (BEQ (OR-Z N X Y)) (QUOTE 0)) NIL) (REWRITE-RULE LOGOR-BEQ-UINT NIL (EQUAL (BEQ (OR-Z N X Y)) (IF (EQUAL (NAT-TO-UINT X) (QUOTE 0)) (IF (EQUAL (NAT-TO-UINT Y) (QUOTE 0)) (QUOTE 1) (QUOTE 0)) (QUOTE 0))) NIL) (REWRITE-RULE SUB-BEQ-INT-1 ((NAT-RANGEP X N) (NAT-RANGEP Y N) (EQUAL (NAT-TO-INT X N) (NAT-TO-INT Y N))) (EQUAL (BEQ (SUB-Z N X Y)) (QUOTE 1)) NIL) (REWRITE-RULE SUB-BEQ-INT-0 ((NAT-RANGEP X N) (NAT-RANGEP Y N) (NOT (EQUAL (NAT-TO-INT X N) (NAT-TO-INT Y N)))) (EQUAL (BEQ (SUB-Z N X Y)) (QUOTE 0)) NIL) (REWRITE-RULE SUB-BEQ-UINT ((NAT-RANGEP X N) (NAT-RANGEP Y N)) (EQUAL (BEQ (SUB-Z N X Y)) (IF (EQUAL (NAT-TO-UINT X) (NAT-TO-UINT Y)) (QUOTE 1) (QUOTE 0))) NIL) (REWRITE-RULE MOVE-BEQ-INT-1 ((NAT-RANGEP X N) (EQUAL (NAT-TO-INT X N) (QUOTE 0))) (EQUAL (BEQ (MOVE-Z N X)) (QUOTE 1)) NIL) (REWRITE-RULE MOVE-BEQ-INT-0 ((NAT-RANGEP X N) (NOT (EQUAL (NAT-TO-INT X N) (QUOTE 0)))) (EQUAL (BEQ (MOVE-Z N X)) (QUOTE 0)) NIL) (REWRITE-RULE MOVE-BEQ-UINT ((NAT-RANGEP X N)) (EQUAL (BEQ (MOVE-Z N X)) (IF (EQUAL (NAT-TO-UINT X) (QUOTE 0)) (QUOTE 1) (QUOTE 0))) NIL)) TOTALP-LST ((BEQ . T)) SDEFN (LAMBDA (Z) (FIX-BIT Z)) LISP-CODE *1*BEQ SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402214824 SATELLITES (*1*BEQ) IMMEDIATE-DEPENDENTS0 (BEQ-OFF EXT-BEQ-INT-1 EXT-BEQ-INT-0 EXT-BEQ-UINT ASR-BEQ ASL-BEQ LSR-BEQ LSL-BEQ DIVS-BEQ DIVU-BEQ MULS_3232-BEQ MULS_3264-BEQ MULS_1632-BEQ MULU_3232-BEQ MULU_3264-BEQ MULU_1632-BEQ LOGAND-EOR-BEQ-UINT LOGAND-OR-BEQ-UINT LOGAND-BEQ-UINT LOGEOR-BEQ-INT-1 LOGEOR-BEQ-INT-0 LOGEOR-BEQ-UINT LOGOR-BEQ-INT-1 LOGOR-BEQ-INT-0 LOGOR-BEQ-UINT SUB-BEQ-INT-1 SUB-BEQ-INT-0 SUB-BEQ-UINT MOVE-BEQ-INT-1 MOVE-BEQ-INT-0 MOVE-BEQ-UINT BRANCH-CC) EVENT (DEFN BEQ (Z) (FIX-BIT Z)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FIX-BIT . BEQ) (DCELL . *1*BEQ))))) (PUT1-LST (QUOTE *1*BCS) (QUOTE (MAIN-EVENT BCS))) (PUT1-LST (QUOTE BCS) (QUOTE (TYPE-PRESCRIPTION-LST ((BCS 4 NIL)) LEMMAS ((REWRITE-RULE LSR-1-BCS&CC ((LESSP (QUOTE 1) N)) (EQUAL (BCS (LSR-C N X (QUOTE 1))) (REMAINDER (NAT-TO-UINT X) (QUOTE 2))) NIL) (REWRITE-RULE LSL-1-BCS&CC ((NAT-RANGEP X N) (LESSP (QUOTE 1) N)) (EQUAL (BCS (LSL-C N X (QUOTE 1))) (IF (UINT-RANGEP (NAT-TO-UINT X) (SUB1 N)) (QUOTE 0) (QUOTE 1))) NIL) (REWRITE-RULE ADD-BCS&CC ((NAT-RANGEP X N) (NAT-RANGEP Y N) (NUMBERP N) (NOT (EQUAL N (QUOTE 0)))) (EQUAL (BCS (ADD-C N X Y)) (IF (LESSP (PLUS (NAT-TO-UINT X) (NAT-TO-UINT Y)) (EXP (QUOTE 2) N)) (QUOTE 0) (QUOTE 1))) NIL) (REWRITE-RULE SUB-BCS&CC ((NAT-RANGEP X N) (NAT-RANGEP Y N) (NUMBERP N) (NOT (EQUAL N (QUOTE 0)))) (EQUAL (BCS (SUB-C N X Y)) (IF (LESSP (NAT-TO-UINT Y) (NAT-TO-UINT X)) (QUOTE 1) (QUOTE 0))) NIL)) TOTALP-LST ((BCS . T)) SDEFN (LAMBDA (C) (FIX-BIT C)) LISP-CODE *1*BCS SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402214824 SATELLITES (*1*BCS) IMMEDIATE-DEPENDENTS0 (BCS-OFF LSR-1-BCS&CC LSL-1-BCS&CC ADD-BCS&CC SUB-BCS&CC BRANCH-CC) EVENT (DEFN BCS (C) (FIX-BIT C)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FIX-BIT . BCS) (DCELL . *1*BCS))))) (PUT1-LST (QUOTE *1*MISC-GROUP) (QUOTE (MAIN-EVENT MISC-GROUP))) (PUT1-LST (QUOTE MISC-GROUP) (QUOTE (TYPE-PRESCRIPTION-LST ((MISC-GROUP -1 NIL T)) TOTALP-LST ((MISC-GROUP . T)) SDEFN (LAMBDA (INS S) (IF (B0P (BITN INS (QUOTE 8))) (IF (B0P (BITN INS (QUOTE 11))) (IF (B0P (BITN INS (QUOTE 10))) (IF (B0P (BITN INS (QUOTE 9))) (NEGX-SUBGROUP INS S) (CLR-SUBGROUP INS S)) (IF (B0P (BITN INS (QUOTE 9))) (NEG-SUBGROUP INS S) (NOT-SUBGROUP INS S))) (IF (B0P (BITN INS (QUOTE 10))) (IF (B0P (BITN INS (QUOTE 9))) (IF (B0P (BITN INS (QUOTE 7))) (IF (B0P (BITN INS (QUOTE 6))) (IF (B0P (BITN INS (QUOTE 5))) (IF (B0P (BITN INS (QUOTE 4))) (IF (B1P (BITN INS (QUOTE 3))) (LINK_L-INS (S_RN INS) S) (HALT (QUOTE NBCD-UNSPECIFIED) S)) (HALT (QUOTE NBCD-UNSPECIFIED) S)) (HALT (QUOTE NBCD-UNSPECIFIED) S)) (PEA-SUBGROUP INS S)) (EXT-SUBGROUP INS S)) (TST-SUBGROUP INS S)) (IF (B0P (BITN INS (QUOTE 9))) (MOVEM-EA-RN-SUBGROUP INS S) (IF (B0P (BITN INS (QUOTE 7))) (IF (B0P (BITN INS (QUOTE 6))) (HALT (RESERVED-SIGNAL) S) (IF (B0P (BITN INS (QUOTE 5))) (UNLK-SUBGROUP INS S) (IF (B0P (BITN INS (QUOTE 4))) (HALT (QUOTE MOVE-USP-UNSPECIFIED) S) (IF (B0P (BITN INS (QUOTE 3))) (NOP-SUBGROUP INS S) (HALT (QUOTE MOVEC-UNSPECIFIED) S))))) (IF (B0P (BITN INS (QUOTE 6))) (JSR-INS INS S) (JMP-INS INS S)))))) (IF (B1P (BITN INS (QUOTE 6))) (IF (B1P (BITN INS (QUOTE 7))) (LEA-SUBGROUP INS S) (HALT (QUOTE CHK-UNSPECIFIED) S)) (HALT (QUOTE CHK-UNSPECIFIED) S)))) LISP-CODE *1*MISC-GROUP SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214824 SATELLITES (*1*MISC-GROUP) IMMEDIATE-DEPENDENTS0 (GCD-S0-S0-RFILE-2 GCD-S0-S0-RFILE-1 GCD-S0-S0-2 GCD-S0-S0-1 GCD-S0-SN-BASE-RFILE-2 GCD-S0-SN-BASE-2 GCD-S0-SN-BASE-RFILE-1 GCD-S0-SN-BASE-1 GCD-S-S0-MEM GCD-S-S0-RFILE GCD-S-S0 MISC-GROUP-H GROUPS EXECUTE-INS) EVENT (DEFN MISC-GROUP (INS S) (IF (B0P (BITN INS (QUOTE 8))) (IF (B0P (BITN INS (QUOTE 11))) (IF (B0P (BITN INS (QUOTE 10))) (IF (B0P (BITN INS (QUOTE 9))) (NEGX-SUBGROUP INS S) (CLR-SUBGROUP INS S)) (IF (B0P (BITN INS (QUOTE 9))) (NEG-SUBGROUP INS S) (NOT-SUBGROUP INS S))) (IF (B0P (BITN INS (QUOTE 10))) (IF (B0P (BITN INS (QUOTE 9))) (IF (B0P (BITN INS (QUOTE 7))) (IF (B0P (BITN INS (QUOTE 6))) (IF (AND (B0P (BITN INS (QUOTE 5))) (AND (B0P (BITN INS (QUOTE 4))) (B1P (BITN INS (QUOTE 3))))) (LINK_L-INS (S_RN INS) S) (HALT (QUOTE NBCD-UNSPECIFIED) S)) (PEA-SUBGROUP INS S)) (EXT-SUBGROUP INS S)) (TST-SUBGROUP INS S)) (IF (B0P (BITN INS (QUOTE 9))) (MOVEM-EA-RN-SUBGROUP INS S) (IF (B0P (BITN INS (QUOTE 7))) (IF (B0P (BITN INS (QUOTE 6))) (HALT (RESERVED-SIGNAL) S) (IF (B0P (BITN INS (QUOTE 5))) (UNLK-SUBGROUP INS S) (IF (B0P (BITN INS (QUOTE 4))) (HALT (QUOTE MOVE-USP-UNSPECIFIED) S) (IF (B0P (BITN INS (QUOTE 3))) (NOP-SUBGROUP INS S) (HALT (QUOTE MOVEC-UNSPECIFIED) S))))) (IF (B0P (BITN INS (QUOTE 6))) (JSR-INS INS S) (JMP-INS INS S)))))) (IF (AND (B1P (BITN INS (QUOTE 6))) (B1P (BITN INS (QUOTE 7)))) (LEA-SUBGROUP INS S) (HALT (QUOTE CHK-UNSPECIFIED) S)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LEA-SUBGROUP . MISC-GROUP) (IMMEDIATE-DEPENDENTS0 JMP-INS . MISC-GROUP) (IMMEDIATE-DEPENDENTS0 JSR-INS . MISC-GROUP) (IMMEDIATE-DEPENDENTS0 NOP-SUBGROUP . MISC-GROUP) (IMMEDIATE-DEPENDENTS0 UNLK-SUBGROUP . MISC-GROUP) (IMMEDIATE-DEPENDENTS0 RESERVED-SIGNAL . MISC-GROUP) (IMMEDIATE-DEPENDENTS0 MOVEM-EA-RN-SUBGROUP . MISC-GROUP) (IMMEDIATE-DEPENDENTS0 TST-SUBGROUP . MISC-GROUP) (IMMEDIATE-DEPENDENTS0 EXT-SUBGROUP . MISC-GROUP) (IMMEDIATE-DEPENDENTS0 PEA-SUBGROUP . MISC-GROUP) (IMMEDIATE-DEPENDENTS0 HALT . MISC-GROUP) (IMMEDIATE-DEPENDENTS0 S_RN . MISC-GROUP) (IMMEDIATE-DEPENDENTS0 LINK_L-INS . MISC-GROUP) (IMMEDIATE-DEPENDENTS0 B1P . MISC-GROUP) (IMMEDIATE-DEPENDENTS0 NOT-SUBGROUP . MISC-GROUP) (IMMEDIATE-DEPENDENTS0 NEG-SUBGROUP . MISC-GROUP) (IMMEDIATE-DEPENDENTS0 CLR-SUBGROUP . MISC-GROUP) (IMMEDIATE-DEPENDENTS0 NEGX-SUBGROUP . MISC-GROUP) (IMMEDIATE-DEPENDENTS0 BITN . MISC-GROUP) (IMMEDIATE-DEPENDENTS0 B0P . MISC-GROUP) (DCELL . *1*MISC-GROUP))))) (PUT1-LST (QUOTE *1*NOT-SUBGROUP) (QUOTE (MAIN-EVENT NOT-SUBGROUP))) (PUT1-LST (QUOTE NOT-SUBGROUP) (QUOTE (TYPE-PRESCRIPTION-LST ((NOT-SUBGROUP -1 NIL NIL)) TOTALP-LST ((NOT-SUBGROUP . T)) SDEFN (LAMBDA (INS S) (IF (EQUAL (OP-LEN INS) (Q)) (HALT (QUOTE MOVE-TO-SR-PRIVILEGED) S) (NOT-INS (OP-LEN INS) INS S))) LISP-CODE *1*NOT-SUBGROUP SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214824 SATELLITES (*1*NOT-SUBGROUP) IMMEDIATE-DEPENDENTS0 (MISC-GROUP-H MISC-GROUP) EVENT (DEFN NOT-SUBGROUP (INS S) (IF (EQUAL (OP-LEN INS) (Q)) (HALT (QUOTE MOVE-TO-SR-PRIVILEGED) S) (NOT-INS (OP-LEN INS) INS S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NOT-INS . NOT-SUBGROUP) (IMMEDIATE-DEPENDENTS0 HALT . NOT-SUBGROUP) (IMMEDIATE-DEPENDENTS0 Q . NOT-SUBGROUP) (IMMEDIATE-DEPENDENTS0 OP-LEN . NOT-SUBGROUP) (DCELL . *1*NOT-SUBGROUP))))) (PUT1-LST (QUOTE *1*NOT-INS) (QUOTE (MAIN-EVENT NOT-INS))) (PUT1-LST (QUOTE NOT-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((NOT-INS -1 NIL NIL NIL)) TOTALP-LST ((NOT-INS . T)) SDEFN (LAMBDA (OPLEN INS S) (IF (NOT-ADDR-MODEP INS) (IF (MC-HALTP (CAR (MC-INSTATE OPLEN INS S))) (CAR (MC-INSTATE OPLEN INS S)) (MAPPING OPLEN (NOT-EFFECT OPLEN (OPERAND OPLEN (CDR (MC-INSTATE OPLEN INS S)) S) (MC-CCR S)) (MC-INSTATE OPLEN INS S))) (HALT (MODE-SIGNAL) S))) LISP-CODE *1*NOT-INS SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214824 SATELLITES (*1*NOT-INS) IMMEDIATE-DEPENDENTS0 (MISC-GROUP-H NOT-SUBGROUP) EVENT (DEFN NOT-INS (OPLEN INS S) (IF (NOT-ADDR-MODEP INS) (IF (MC-HALTP (CAR (MC-INSTATE OPLEN INS S))) (CAR (MC-INSTATE OPLEN INS S)) (MAPPING OPLEN (NOT-EFFECT OPLEN (OPERAND OPLEN (CDR (MC-INSTATE OPLEN INS S)) S) (MC-CCR S)) (MC-INSTATE OPLEN INS S))) (HALT (MODE-SIGNAL) S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MODE-SIGNAL . NOT-INS) (IMMEDIATE-DEPENDENTS0 HALT . NOT-INS) (IMMEDIATE-DEPENDENTS0 MC-CCR . NOT-INS) (IMMEDIATE-DEPENDENTS0 OPERAND . NOT-INS) (IMMEDIATE-DEPENDENTS0 NOT-EFFECT . NOT-INS) (IMMEDIATE-DEPENDENTS0 MAPPING . NOT-INS) (IMMEDIATE-DEPENDENTS0 MC-INSTATE . NOT-INS) (IMMEDIATE-DEPENDENTS0 MC-HALTP . NOT-INS) (IMMEDIATE-DEPENDENTS0 NOT-ADDR-MODEP . NOT-INS) (DCELL . *1*NOT-INS))))) (PUT1-LST (QUOTE *1*NOT-EFFECT) (QUOTE (MAIN-EVENT NOT-EFFECT))) (PUT1-LST (QUOTE NOT-EFFECT) (QUOTE (TYPE-PRESCRIPTION-LST ((NOT-EFFECT 16 NIL NIL NIL)) TOTALP-LST ((NOT-EFFECT . T)) SDEFN (LAMBDA (OPLEN OPD CCR) (CONS (LOGNOT OPLEN OPD) (NOT-CVZNX OPLEN OPD CCR))) LISP-CODE *1*NOT-EFFECT SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*NOT-EFFECT) IMMEDIATE-DEPENDENTS0 (MISC-GROUP-H NOT-INS) EVENT (DEFN NOT-EFFECT (OPLEN OPD CCR) (CONS (LOGNOT OPLEN OPD) (NOT-CVZNX OPLEN OPD CCR))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NOT-CVZNX . NOT-EFFECT) (IMMEDIATE-DEPENDENTS0 LOGNOT . NOT-EFFECT) (DCELL . *1*NOT-EFFECT))))) (PUT1-LST (QUOTE *1*NOT-CVZNX) (QUOTE (MAIN-EVENT NOT-CVZNX))) (PUT1-LST (QUOTE NOT-CVZNX) (QUOTE (TYPE-PRESCRIPTION-LST ((NOT-CVZNX 4 NIL NIL NIL)) TOTALP-LST ((NOT-CVZNX . T)) SDEFN (LAMBDA (OPLEN OPD CCR) (CVZNX (B0) (B0) (NOT-Z OPLEN OPD) (NOT-N OPLEN OPD) (CCR-X CCR))) LISP-CODE *1*NOT-CVZNX SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*NOT-CVZNX) IMMEDIATE-DEPENDENTS0 (MISC-GROUP-H NOT-EFFECT) EVENT (DEFN NOT-CVZNX (OPLEN OPD CCR) (CVZNX (B0) (B0) (NOT-Z OPLEN OPD) (NOT-N OPLEN OPD) (CCR-X CCR))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CCR-X . NOT-CVZNX) (IMMEDIATE-DEPENDENTS0 NOT-N . NOT-CVZNX) (IMMEDIATE-DEPENDENTS0 NOT-Z . NOT-CVZNX) (IMMEDIATE-DEPENDENTS0 B0 . NOT-CVZNX) (IMMEDIATE-DEPENDENTS0 CVZNX . NOT-CVZNX) (DCELL . *1*NOT-CVZNX))))) (PUT1-LST (QUOTE *1*NOT-N) (QUOTE (MAIN-EVENT NOT-N))) (PUT1-LST (QUOTE NOT-N) (QUOTE (TYPE-PRESCRIPTION-LST ((NOT-N 4 NIL NIL)) TOTALP-LST ((NOT-N . T)) SDEFN (LAMBDA (OPLEN OPD) (MBIT (LOGNOT OPLEN OPD) OPLEN)) LISP-CODE *1*NOT-N SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*NOT-N) IMMEDIATE-DEPENDENTS0 (NOT-N-OFF NOT-N-BITP NOT-CVZNX) EVENT (DEFN NOT-N (OPLEN OPD) (MBIT (LOGNOT OPLEN OPD) OPLEN)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LOGNOT . NOT-N) (IMMEDIATE-DEPENDENTS0 MBIT . NOT-N) (DCELL . *1*NOT-N))))) (PUT1-LST (QUOTE *1*NOT-Z) (QUOTE (MAIN-EVENT NOT-Z))) (PUT1-LST (QUOTE NOT-Z) (QUOTE (TYPE-PRESCRIPTION-LST ((NOT-Z 4 NIL NIL)) TOTALP-LST ((NOT-Z . T)) SDEFN (LAMBDA (OPLEN OPD) (IF (EQUAL (LOGNOT OPLEN OPD) (QUOTE 0)) (B1) (B0))) LISP-CODE *1*NOT-Z SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*NOT-Z) IMMEDIATE-DEPENDENTS0 (NOT-Z-OFF NOT-Z-BITP NOT-CVZNX) EVENT (DEFN NOT-Z (OPLEN OPD) (IF (EQUAL (LOGNOT OPLEN OPD) (QUOTE 0)) (B1) (B0))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B0 . NOT-Z) (IMMEDIATE-DEPENDENTS0 B1 . NOT-Z) (IMMEDIATE-DEPENDENTS0 LOGNOT . NOT-Z) (DCELL . *1*NOT-Z))))) (PUT1-LST (QUOTE *1*NOT-ADDR-MODEP) (QUOTE (MAIN-EVENT NOT-ADDR-MODEP))) (PUT1-LST (QUOTE NOT-ADDR-MODEP) (QUOTE (TYPE-PRESCRIPTION-LST ((NOT-ADDR-MODEP 3 NIL)) TOTALP-LST ((NOT-ADDR-MODEP . T)) SDEFN (LAMBDA (INS) (IF (DATA-ADDR-MODEP (S_MODE INS) (S_RN INS)) (ALTERABLE-ADDR-MODEP (S_MODE INS) (S_RN INS)) (QUOTE *1*FALSE))) LISP-CODE *1*NOT-ADDR-MODEP SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*NOT-ADDR-MODEP) IMMEDIATE-DEPENDENTS0 (MODE-GUARDS NOT-INS) EVENT (DEFN NOT-ADDR-MODEP (INS) (AND (DATA-ADDR-MODEP (S_MODE INS) (S_RN INS)) (ALTERABLE-ADDR-MODEP (S_MODE INS) (S_RN INS)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ALTERABLE-ADDR-MODEP . NOT-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 S_RN . NOT-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 S_MODE . NOT-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 DATA-ADDR-MODEP . NOT-ADDR-MODEP) (DCELL . *1*NOT-ADDR-MODEP))))) (PUT1-LST (QUOTE *1*JSR-INS) (QUOTE (MAIN-EVENT JSR-INS))) (PUT1-LST (QUOTE JSR-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((JSR-INS -1 NIL NIL)) TOTALP-LST ((JSR-INS . T)) SDEFN (LAMBDA (INS S) (IF (JSR-ADDR-MODEP INS) (IF (MC-HALTP (CAR (EFFEC-ADDR (L) (S_MODE INS) (S_RN INS) S))) (CAR (EFFEC-ADDR (L) (S_MODE INS) (S_RN INS) S)) (JMP-MAPPING (CDR (CDR (EFFEC-ADDR (L) (S_MODE INS) (S_RN INS) S))) (PUSH-SP (LSZ) (MC-PC (CAR (EFFEC-ADDR (L) (S_MODE INS) (S_RN INS) S))) (CAR (EFFEC-ADDR (L) (S_MODE INS) (S_RN INS) S))))) (HALT (MODE-SIGNAL) S))) LISP-CODE *1*JSR-INS SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214824 SATELLITES (*1*JSR-INS) IMMEDIATE-DEPENDENTS0 (MISC-GROUP-H MISC-GROUP) EVENT (DEFN JSR-INS (INS S) (IF (JSR-ADDR-MODEP INS) (IF (MC-HALTP (CAR (EFFEC-ADDR (L) (S_MODE INS) (S_RN INS) S))) (CAR (EFFEC-ADDR (L) (S_MODE INS) (S_RN INS) S)) (JMP-MAPPING (CDR (CDR (EFFEC-ADDR (L) (S_MODE INS) (S_RN INS) S))) (PUSH-SP (LSZ) (MC-PC (CAR (EFFEC-ADDR (L) (S_MODE INS) (S_RN INS) S))) (CAR (EFFEC-ADDR (L) (S_MODE INS) (S_RN INS) S))))) (HALT (MODE-SIGNAL) S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MODE-SIGNAL . JSR-INS) (IMMEDIATE-DEPENDENTS0 HALT . JSR-INS) (IMMEDIATE-DEPENDENTS0 MC-PC . JSR-INS) (IMMEDIATE-DEPENDENTS0 LSZ . JSR-INS) (IMMEDIATE-DEPENDENTS0 PUSH-SP . JSR-INS) (IMMEDIATE-DEPENDENTS0 JMP-MAPPING . JSR-INS) (IMMEDIATE-DEPENDENTS0 S_RN . JSR-INS) (IMMEDIATE-DEPENDENTS0 S_MODE . JSR-INS) (IMMEDIATE-DEPENDENTS0 L . JSR-INS) (IMMEDIATE-DEPENDENTS0 EFFEC-ADDR . JSR-INS) (IMMEDIATE-DEPENDENTS0 MC-HALTP . JSR-INS) (IMMEDIATE-DEPENDENTS0 JSR-ADDR-MODEP . JSR-INS) (DCELL . *1*JSR-INS))))) (PUT1-LST (QUOTE *1*JSR-ADDR-MODEP) (QUOTE (MAIN-EVENT JSR-ADDR-MODEP))) (PUT1-LST (QUOTE JSR-ADDR-MODEP) (QUOTE (TYPE-PRESCRIPTION-LST ((JSR-ADDR-MODEP 3 NIL)) TOTALP-LST ((JSR-ADDR-MODEP . T)) SDEFN (LAMBDA (INS) (CONTROL-ADDR-MODEP (S_MODE INS) (S_RN INS))) LISP-CODE *1*JSR-ADDR-MODEP SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*JSR-ADDR-MODEP) IMMEDIATE-DEPENDENTS0 (MODE-GUARDS JSR-INS) EVENT (DEFN JSR-ADDR-MODEP (INS) (CONTROL-ADDR-MODEP (S_MODE INS) (S_RN INS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 S_RN . JSR-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 S_MODE . JSR-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 CONTROL-ADDR-MODEP . JSR-ADDR-MODEP) (DCELL . *1*JSR-ADDR-MODEP))))) (PUT1-LST (QUOTE *1*JMP-INS) (QUOTE (MAIN-EVENT JMP-INS))) (PUT1-LST (QUOTE JMP-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((JMP-INS -1 NIL NIL)) TOTALP-LST ((JMP-INS . T)) SDEFN (LAMBDA (INS S) (IF (JMP-ADDR-MODEP INS) (JMP-MAPPING (CDR (CDR (EFFEC-ADDR (L) (S_MODE INS) (S_RN INS) S))) (CAR (EFFEC-ADDR (L) (S_MODE INS) (S_RN INS) S))) (HALT (MODE-SIGNAL) S))) LISP-CODE *1*JMP-INS SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214824 SATELLITES (*1*JMP-INS) IMMEDIATE-DEPENDENTS0 (MISC-GROUP-H MISC-GROUP) EVENT (DEFN JMP-INS (INS S) (IF (JMP-ADDR-MODEP INS) (JMP-MAPPING (CDR (CDR (EFFEC-ADDR (L) (S_MODE INS) (S_RN INS) S))) (CAR (EFFEC-ADDR (L) (S_MODE INS) (S_RN INS) S))) (HALT (MODE-SIGNAL) S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MODE-SIGNAL . JMP-INS) (IMMEDIATE-DEPENDENTS0 HALT . JMP-INS) (IMMEDIATE-DEPENDENTS0 S_RN . JMP-INS) (IMMEDIATE-DEPENDENTS0 S_MODE . JMP-INS) (IMMEDIATE-DEPENDENTS0 L . JMP-INS) (IMMEDIATE-DEPENDENTS0 EFFEC-ADDR . JMP-INS) (IMMEDIATE-DEPENDENTS0 JMP-MAPPING . JMP-INS) (IMMEDIATE-DEPENDENTS0 JMP-ADDR-MODEP . JMP-INS) (DCELL . *1*JMP-INS))))) (PUT1-LST (QUOTE *1*JMP-MAPPING) (QUOTE (MAIN-EVENT JMP-MAPPING))) (PUT1-LST (QUOTE JMP-MAPPING) (QUOTE (TYPE-PRESCRIPTION-LST ((JMP-MAPPING 16 NIL T)) TOTALP-LST ((JMP-MAPPING . T)) SDEFN (LAMBDA (ADDR S) (IF (MC-HALTP S) S (UPDATE-PC ADDR S))) LISP-CODE *1*JMP-MAPPING SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*JMP-MAPPING) IMMEDIATE-DEPENDENTS0 (MISC-GROUP-H JSR-INS JMP-INS) EVENT (DEFN JMP-MAPPING (ADDR S) (IF (MC-HALTP S) S (UPDATE-PC ADDR S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 UPDATE-PC . JMP-MAPPING) (IMMEDIATE-DEPENDENTS0 MC-HALTP . JMP-MAPPING) (DCELL . *1*JMP-MAPPING))))) (PUT1-LST (QUOTE *1*JMP-ADDR-MODEP) (QUOTE (MAIN-EVENT JMP-ADDR-MODEP))) (PUT1-LST (QUOTE JMP-ADDR-MODEP) (QUOTE (TYPE-PRESCRIPTION-LST ((JMP-ADDR-MODEP 3 NIL)) TOTALP-LST ((JMP-ADDR-MODEP . T)) SDEFN (LAMBDA (INS) (CONTROL-ADDR-MODEP (S_MODE INS) (S_RN INS))) LISP-CODE *1*JMP-ADDR-MODEP SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*JMP-ADDR-MODEP) IMMEDIATE-DEPENDENTS0 (MODE-GUARDS JMP-INS) EVENT (DEFN JMP-ADDR-MODEP (INS) (CONTROL-ADDR-MODEP (S_MODE INS) (S_RN INS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 S_RN . JMP-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 S_MODE . JMP-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 CONTROL-ADDR-MODEP . JMP-ADDR-MODEP) (DCELL . *1*JMP-ADDR-MODEP))))) (PUT1-LST (QUOTE *1*NOP-SUBGROUP) (QUOTE (MAIN-EVENT NOP-SUBGROUP))) (PUT1-LST (QUOTE NOP-SUBGROUP) (QUOTE (TYPE-PRESCRIPTION-LST ((NOP-SUBGROUP 16 NIL T)) TOTALP-LST ((NOP-SUBGROUP . T)) SDEFN (LAMBDA (INS S) (IF (B0P (BITN INS (QUOTE 2))) (IF (B0P (BITN INS (QUOTE 1))) (IF (B0P (BITN INS (QUOTE 0))) (HALT (QUOTE RESET-PRIVILEGED) S) (NOP-INS S)) (IF (B0P (BITN INS (QUOTE 0))) (HALT (QUOTE STOP-PRIVILEGED) S) (HALT (QUOTE RTE-PRIVILEGED) S))) (IF (B0P (BITN INS (QUOTE 1))) (IF (B0P (BITN INS (QUOTE 0))) (RTD-INS S) (RTS-INS S)) (IF (B0P (BITN INS (QUOTE 0))) (TRAPV-INS S) (RTR-INS S))))) LISP-CODE *1*NOP-SUBGROUP SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214824 SATELLITES (*1*NOP-SUBGROUP) IMMEDIATE-DEPENDENTS0 (GCD-S0-SN-BASE-RFILE-2 GCD-S0-SN-BASE-2 GCD-S0-SN-BASE-RFILE-1 GCD-S0-SN-BASE-1 MISC-GROUP-H MISC-GROUP) EVENT (DEFN NOP-SUBGROUP (INS S) (IF (B0P (BITN INS (QUOTE 2))) (IF (B0P (BITN INS (QUOTE 1))) (IF (B0P (BITN INS (QUOTE 0))) (HALT (QUOTE RESET-PRIVILEGED) S) (NOP-INS S)) (IF (B0P (BITN INS (QUOTE 0))) (HALT (QUOTE STOP-PRIVILEGED) S) (HALT (QUOTE RTE-PRIVILEGED) S))) (IF (B0P (BITN INS (QUOTE 1))) (IF (B0P (BITN INS (QUOTE 0))) (RTD-INS S) (RTS-INS S)) (IF (B0P (BITN INS (QUOTE 0))) (TRAPV-INS S) (RTR-INS S))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 RTR-INS . NOP-SUBGROUP) (IMMEDIATE-DEPENDENTS0 TRAPV-INS . NOP-SUBGROUP) (IMMEDIATE-DEPENDENTS0 RTS-INS . NOP-SUBGROUP) (IMMEDIATE-DEPENDENTS0 RTD-INS . NOP-SUBGROUP) (IMMEDIATE-DEPENDENTS0 NOP-INS . NOP-SUBGROUP) (IMMEDIATE-DEPENDENTS0 HALT . NOP-SUBGROUP) (IMMEDIATE-DEPENDENTS0 BITN . NOP-SUBGROUP) (IMMEDIATE-DEPENDENTS0 B0P . NOP-SUBGROUP) (DCELL . *1*NOP-SUBGROUP))))) (PUT1-LST (QUOTE *1*TRAPV-INS) (QUOTE (MAIN-EVENT TRAPV-INS))) (PUT1-LST (QUOTE TRAPV-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((TRAPV-INS 16 T)) TOTALP-LST ((TRAPV-INS . T)) SDEFN (LAMBDA (S) (IF (B1P (BVS (CCR-V (MC-CCR S)))) (HALT (QUOTE TRAPV-EXCEPTION) S) S)) LISP-CODE *1*TRAPV-INS SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*TRAPV-INS) IMMEDIATE-DEPENDENTS0 (MISC-GROUP-H NOP-SUBGROUP) EVENT (DEFN TRAPV-INS (S) (IF (B1P (BVS (CCR-V (MC-CCR S)))) (HALT (QUOTE TRAPV-EXCEPTION) S) S)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 HALT . TRAPV-INS) (IMMEDIATE-DEPENDENTS0 MC-CCR . TRAPV-INS) (IMMEDIATE-DEPENDENTS0 CCR-V . TRAPV-INS) (IMMEDIATE-DEPENDENTS0 BVS . TRAPV-INS) (IMMEDIATE-DEPENDENTS0 B1P . TRAPV-INS) (DCELL . *1*TRAPV-INS))))) (PUT1-LST (QUOTE *1*BVS) (QUOTE (MAIN-EVENT BVS))) (PUT1-LST (QUOTE BVS) (QUOTE (TYPE-PRESCRIPTION-LST ((BVS 4 NIL)) LEMMAS ((REWRITE-RULE ASL-BVS NIL (EQUAL (BVS (ASL-V N X CNT)) (IF (INT-RANGEP (NAT-TO-INT X N) (DIFFERENCE N CNT)) (QUOTE 0) (QUOTE 1))) NIL) (REWRITE-RULE MULS_3232-BVS NIL (EQUAL (BVS (MULS-V (QUOTE 32) X Y (QUOTE 32))) (IF (INT-RANGEP (ITIMES (NAT-TO-INT X (QUOTE 32)) (NAT-TO-INT Y (QUOTE 32))) (QUOTE 32)) (QUOTE 0) (QUOTE 1))) NIL) (REWRITE-RULE MULU_3232-BVS NIL (EQUAL (BVS (MULU-V (QUOTE 32) X Y (QUOTE 32))) (IF (LESSP (TIMES (NAT-TO-UINT X) (NAT-TO-UINT Y)) (EXP (QUOTE 2) (QUOTE 32))) (QUOTE 0) (QUOTE 1))) NIL) (REWRITE-RULE ADD-BVS&VC ((NAT-RANGEP X N) (NAT-RANGEP Y N) (NUMBERP N) (NOT (EQUAL N (QUOTE 0)))) (EQUAL (BVS (ADD-V N X Y)) (IF (INT-RANGEP (IPLUS (NAT-TO-INT X N) (NAT-TO-INT Y N)) N) (QUOTE 0) (QUOTE 1))) NIL) (REWRITE-RULE SUB-BVS&VC ((NAT-RANGEP X N) (NAT-RANGEP Y N) (NUMBERP N) (NOT (EQUAL N (QUOTE 0)))) (EQUAL (BVS (SUB-V N X Y)) (IF (INT-RANGEP (IDIFFERENCE (NAT-TO-INT Y N) (NAT-TO-INT X N)) N) (QUOTE 0) (QUOTE 1))) NIL)) TOTALP-LST ((BVS . T)) SDEFN (LAMBDA (V) (FIX-BIT V)) LISP-CODE *1*BVS SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402214824 SATELLITES (*1*BVS) IMMEDIATE-DEPENDENTS0 (BVS-OFF ASL-BVS MULS_3232-BVS MULU_3232-BVS ADD-BVS&VC SUB-BVS&VC BRANCH-CC TRAPV-INS) EVENT (DEFN BVS (V) (FIX-BIT V)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FIX-BIT . BVS) (DCELL . *1*BVS))))) (PUT1-LST (QUOTE *1*RTR-INS) (QUOTE (MAIN-EVENT RTR-INS))) (PUT1-LST (QUOTE RTR-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((RTR-INS 16 NIL)) TOTALP-LST ((RTR-INS . T)) SDEFN (LAMBDA (S) (IF (WORD-READP (READ-SP S) (MC-MEM S)) (RTD-MAPPING (ADD (L) (READ-SP S) (WSZ)) (QUOTE 0) (UPDATE-CCR (WORD-READ (READ-SP S) (MC-MEM S)) S)) (HALT (READ-SIGNAL) S))) LISP-CODE *1*RTR-INS SUBRP *1*FALSE LEVEL-NO 5 IDATE 1000402214824 SATELLITES (*1*RTR-INS) IMMEDIATE-DEPENDENTS0 (MISC-GROUP-H NOP-SUBGROUP) EVENT (DEFN RTR-INS (S) (IF (WORD-READP (READ-SP S) (MC-MEM S)) (RTD-MAPPING (ADD (L) (READ-SP S) (WSZ)) (QUOTE 0) (UPDATE-CCR (WORD-READ (READ-SP S) (MC-MEM S)) S)) (HALT (READ-SIGNAL) S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 READ-SIGNAL . RTR-INS) (IMMEDIATE-DEPENDENTS0 HALT . RTR-INS) (IMMEDIATE-DEPENDENTS0 WORD-READ . RTR-INS) (IMMEDIATE-DEPENDENTS0 UPDATE-CCR . RTR-INS) (IMMEDIATE-DEPENDENTS0 WSZ . RTR-INS) (IMMEDIATE-DEPENDENTS0 L . RTR-INS) (IMMEDIATE-DEPENDENTS0 ADD . RTR-INS) (IMMEDIATE-DEPENDENTS0 RTD-MAPPING . RTR-INS) (IMMEDIATE-DEPENDENTS0 MC-MEM . RTR-INS) (IMMEDIATE-DEPENDENTS0 READ-SP . RTR-INS) (IMMEDIATE-DEPENDENTS0 WORD-READP . RTR-INS) (DCELL . *1*RTR-INS))))) (PUT1-LST (QUOTE *1*RTS-INS) (QUOTE (MAIN-EVENT RTS-INS))) (PUT1-LST (QUOTE RTS-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((RTS-INS 16 NIL)) TOTALP-LST ((RTS-INS . T)) SDEFN (LAMBDA (S) (RTD-MAPPING (READ-SP S) (QUOTE 0) S)) LISP-CODE *1*RTS-INS SUBRP *1*FALSE LEVEL-NO 5 IDATE 1000402214824 SATELLITES (*1*RTS-INS) IMMEDIATE-DEPENDENTS0 (GCD-S0-SN-BASE-RFILE-2 GCD-S0-SN-BASE-2 GCD-S0-SN-BASE-RFILE-1 GCD-S0-SN-BASE-1 MISC-GROUP-H NOP-SUBGROUP) EVENT (DEFN RTS-INS (S) (RTD-MAPPING (READ-SP S) (QUOTE 0) S)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 READ-SP . RTS-INS) (IMMEDIATE-DEPENDENTS0 RTD-MAPPING . RTS-INS) (DCELL . *1*RTS-INS))))) (PUT1-LST (QUOTE *1*RTD-INS) (QUOTE (MAIN-EVENT RTD-INS))) (PUT1-LST (QUOTE RTD-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((RTD-INS 16 NIL)) TOTALP-LST ((RTD-INS . T)) SDEFN (LAMBDA (S) (IF (PC-WORD-READP (MC-PC S) (MC-MEM S)) (RTD-MAPPING (READ-SP S) (PC-WORD-READ (MC-PC S) (MC-MEM S)) S) (HALT (PC-SIGNAL) S))) LISP-CODE *1*RTD-INS SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214824 SATELLITES (*1*RTD-INS) IMMEDIATE-DEPENDENTS0 (MISC-GROUP-H NOP-SUBGROUP) EVENT (DEFN RTD-INS (S) (IF (PC-WORD-READP (MC-PC S) (MC-MEM S)) (RTD-MAPPING (READ-SP S) (PC-WORD-READ (MC-PC S) (MC-MEM S)) S) (HALT (PC-SIGNAL) S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PC-SIGNAL . RTD-INS) (IMMEDIATE-DEPENDENTS0 HALT . RTD-INS) (IMMEDIATE-DEPENDENTS0 PC-WORD-READ . RTD-INS) (IMMEDIATE-DEPENDENTS0 READ-SP . RTD-INS) (IMMEDIATE-DEPENDENTS0 RTD-MAPPING . RTD-INS) (IMMEDIATE-DEPENDENTS0 MC-MEM . RTD-INS) (IMMEDIATE-DEPENDENTS0 MC-PC . RTD-INS) (IMMEDIATE-DEPENDENTS0 PC-WORD-READP . RTD-INS) (DCELL . *1*RTD-INS))))) (PUT1-LST (QUOTE *1*RTD-MAPPING) (QUOTE (MAIN-EVENT RTD-MAPPING))) (PUT1-LST (QUOTE RTD-MAPPING) (QUOTE (TYPE-PRESCRIPTION-LST ((RTD-MAPPING 16 NIL NIL NIL)) TOTALP-LST ((RTD-MAPPING . T)) SDEFN (LAMBDA (SP DISP S) (IF (LONG-READP SP (MC-MEM S)) (UPDATE-PC (LONG-READ SP (MC-MEM S)) (WRITE-SP (ADD (L) (ADD (L) SP (LSZ)) (EXT (W) DISP (L))) S)) (HALT (READ-SIGNAL) S))) LISP-CODE *1*RTD-MAPPING SUBRP *1*FALSE LEVEL-NO 5 IDATE 1000402214824 SATELLITES (*1*RTD-MAPPING) IMMEDIATE-DEPENDENTS0 (GCD-S0-SN-BASE-RFILE-2 GCD-S0-SN-BASE-2 GCD-S0-SN-BASE-RFILE-1 GCD-S0-SN-BASE-1 MISC-GROUP-H RTR-INS RTS-INS RTD-INS) EVENT (DEFN RTD-MAPPING (SP DISP S) (IF (LONG-READP SP (MC-MEM S)) (UPDATE-PC (LONG-READ SP (MC-MEM S)) (WRITE-SP (ADD (L) (ADD (L) SP (LSZ)) (EXT (W) DISP (L))) S)) (HALT (READ-SIGNAL) S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 READ-SIGNAL . RTD-MAPPING) (IMMEDIATE-DEPENDENTS0 HALT . RTD-MAPPING) (IMMEDIATE-DEPENDENTS0 W . RTD-MAPPING) (IMMEDIATE-DEPENDENTS0 EXT . RTD-MAPPING) (IMMEDIATE-DEPENDENTS0 LSZ . RTD-MAPPING) (IMMEDIATE-DEPENDENTS0 L . RTD-MAPPING) (IMMEDIATE-DEPENDENTS0 ADD . RTD-MAPPING) (IMMEDIATE-DEPENDENTS0 WRITE-SP . RTD-MAPPING) (IMMEDIATE-DEPENDENTS0 LONG-READ . RTD-MAPPING) (IMMEDIATE-DEPENDENTS0 UPDATE-PC . RTD-MAPPING) (IMMEDIATE-DEPENDENTS0 MC-MEM . RTD-MAPPING) (IMMEDIATE-DEPENDENTS0 LONG-READP . RTD-MAPPING) (DCELL . *1*RTD-MAPPING))))) (PUT1-LST (QUOTE *1*NOP-INS) (QUOTE (MAIN-EVENT NOP-INS))) (PUT1-LST (QUOTE NOP-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((NOP-INS 0 T)) TOTALP-LST ((NOP-INS . T)) SDEFN (LAMBDA (S) S) LISP-CODE *1*NOP-INS SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402214824 SATELLITES (*1*NOP-INS) IMMEDIATE-DEPENDENTS0 (MISC-GROUP-H NOP-SUBGROUP) EVENT (DEFN NOP-INS (S) S) LOCAL-UNDO-TUPLES ((DCELL . *1*NOP-INS))))) (PUT1-LST (QUOTE *1*UNLK-SUBGROUP) (QUOTE (MAIN-EVENT UNLK-SUBGROUP))) (PUT1-LST (QUOTE UNLK-SUBGROUP) (QUOTE (TYPE-PRESCRIPTION-LST ((UNLK-SUBGROUP 16 NIL NIL)) TOTALP-LST ((UNLK-SUBGROUP . T)) SDEFN (LAMBDA (INS S) (IF (B0P (BITN INS (QUOTE 4))) (HALT (QUOTE TRAP-UNSPECIFIED) S) (IF (B0P (BITN INS (QUOTE 3))) (LINK_W-INS (S_RN INS) S) (UNLK-INS (S_RN INS) S)))) LISP-CODE *1*UNLK-SUBGROUP SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214824 SATELLITES (*1*UNLK-SUBGROUP) IMMEDIATE-DEPENDENTS0 (GCD-S0-SN-BASE-RFILE-2 GCD-S0-SN-BASE-2 GCD-S0-SN-BASE-RFILE-1 GCD-S0-SN-BASE-1 GCD-S-S0-MEM GCD-S-S0-RFILE GCD-S-S0 MISC-GROUP-H MISC-GROUP) EVENT (DEFN UNLK-SUBGROUP (INS S) (IF (B0P (BITN INS (QUOTE 4))) (HALT (QUOTE TRAP-UNSPECIFIED) S) (IF (B0P (BITN INS (QUOTE 3))) (LINK_W-INS (S_RN INS) S) (UNLK-INS (S_RN INS) S)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 UNLK-INS . UNLK-SUBGROUP) (IMMEDIATE-DEPENDENTS0 S_RN . UNLK-SUBGROUP) (IMMEDIATE-DEPENDENTS0 LINK_W-INS . UNLK-SUBGROUP) (IMMEDIATE-DEPENDENTS0 HALT . UNLK-SUBGROUP) (IMMEDIATE-DEPENDENTS0 BITN . UNLK-SUBGROUP) (IMMEDIATE-DEPENDENTS0 B0P . UNLK-SUBGROUP) (DCELL . *1*UNLK-SUBGROUP))))) (PUT1-LST (QUOTE *1*UNLK-INS) (QUOTE (MAIN-EVENT UNLK-INS))) (PUT1-LST (QUOTE UNLK-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((UNLK-INS 16 NIL NIL)) TOTALP-LST ((UNLK-INS . T)) SDEFN (LAMBDA (AN S) (IF (LONG-READP (READ-AN (L) AN S) (MC-MEM S)) (WRITE-AN (L) (LONG-READ (READ-AN (L) AN S) (MC-MEM S)) AN (WRITE-SP (ADD (L) (READ-AN (L) AN S) (LSZ)) S)) (HALT (READ-SIGNAL) S))) LISP-CODE *1*UNLK-INS SUBRP *1*FALSE LEVEL-NO 5 IDATE 1000402214824 SATELLITES (*1*UNLK-INS) IMMEDIATE-DEPENDENTS0 (GCD-S0-SN-BASE-RFILE-2 GCD-S0-SN-BASE-2 GCD-S0-SN-BASE-RFILE-1 GCD-S0-SN-BASE-1 MISC-GROUP-H UNLK-SUBGROUP) EVENT (DEFN UNLK-INS (AN S) (IF (LONG-READP (READ-AN (L) AN S) (MC-MEM S)) (WRITE-AN (L) (LONG-READ (READ-AN (L) AN S) (MC-MEM S)) AN (WRITE-SP (ADD (L) (READ-AN (L) AN S) (LSZ)) S)) (HALT (READ-SIGNAL) S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 READ-SIGNAL . UNLK-INS) (IMMEDIATE-DEPENDENTS0 HALT . UNLK-INS) (IMMEDIATE-DEPENDENTS0 LSZ . UNLK-INS) (IMMEDIATE-DEPENDENTS0 ADD . UNLK-INS) (IMMEDIATE-DEPENDENTS0 WRITE-SP . UNLK-INS) (IMMEDIATE-DEPENDENTS0 LONG-READ . UNLK-INS) (IMMEDIATE-DEPENDENTS0 WRITE-AN . UNLK-INS) (IMMEDIATE-DEPENDENTS0 MC-MEM . UNLK-INS) (IMMEDIATE-DEPENDENTS0 L . UNLK-INS) (IMMEDIATE-DEPENDENTS0 READ-AN . UNLK-INS) (IMMEDIATE-DEPENDENTS0 LONG-READP . UNLK-INS) (DCELL . *1*UNLK-INS))))) (PUT1-LST (QUOTE *1*LINK_W-INS) (QUOTE (MAIN-EVENT LINK_W-INS))) (PUT1-LST (QUOTE LINK_W-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((LINK_W-INS 16 NIL NIL)) TOTALP-LST ((LINK_W-INS . T)) SDEFN (LAMBDA (AN S) (IF (PC-WORD-READP (MC-PC S) (MC-MEM S)) (LINK-MAPPING AN (EXT (W) (PC-WORD-READ (MC-PC S) (MC-MEM S)) (L)) (UPDATE-PC (ADD (L) (MC-PC S) (WSZ)) S)) (HALT (PC-SIGNAL) S))) LISP-CODE *1*LINK_W-INS SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214824 SATELLITES (*1*LINK_W-INS) IMMEDIATE-DEPENDENTS0 (GCD-S-S0-MEM GCD-S-S0-RFILE GCD-S-S0 MISC-GROUP-H UNLK-SUBGROUP) EVENT (DEFN LINK_W-INS (AN S) (IF (PC-WORD-READP (MC-PC S) (MC-MEM S)) (LINK-MAPPING AN (EXT (W) (PC-WORD-READ (MC-PC S) (MC-MEM S)) (L)) (UPDATE-PC (ADD (L) (MC-PC S) (WSZ)) S)) (HALT (PC-SIGNAL) S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PC-SIGNAL . LINK_W-INS) (IMMEDIATE-DEPENDENTS0 HALT . LINK_W-INS) (IMMEDIATE-DEPENDENTS0 WSZ . LINK_W-INS) (IMMEDIATE-DEPENDENTS0 ADD . LINK_W-INS) (IMMEDIATE-DEPENDENTS0 UPDATE-PC . LINK_W-INS) (IMMEDIATE-DEPENDENTS0 L . LINK_W-INS) (IMMEDIATE-DEPENDENTS0 PC-WORD-READ . LINK_W-INS) (IMMEDIATE-DEPENDENTS0 W . LINK_W-INS) (IMMEDIATE-DEPENDENTS0 EXT . LINK_W-INS) (IMMEDIATE-DEPENDENTS0 LINK-MAPPING . LINK_W-INS) (IMMEDIATE-DEPENDENTS0 MC-MEM . LINK_W-INS) (IMMEDIATE-DEPENDENTS0 MC-PC . LINK_W-INS) (IMMEDIATE-DEPENDENTS0 PC-WORD-READP . LINK_W-INS) (DCELL . *1*LINK_W-INS))))) (PUT1-LST (QUOTE *1*LINK_L-INS) (QUOTE (MAIN-EVENT LINK_L-INS))) (PUT1-LST (QUOTE LINK_L-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((LINK_L-INS 16 NIL NIL)) TOTALP-LST ((LINK_L-INS . T)) SDEFN (LAMBDA (AN S) (IF (PC-LONG-READP (MC-PC S) (MC-MEM S)) (LINK-MAPPING AN (PC-LONG-READ (MC-PC S) (MC-MEM S)) (UPDATE-PC (ADD (L) (MC-PC S) (LSZ)) S)) (HALT (PC-SIGNAL) S))) LISP-CODE *1*LINK_L-INS SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214824 SATELLITES (*1*LINK_L-INS) IMMEDIATE-DEPENDENTS0 (MISC-GROUP-H MISC-GROUP) EVENT (DEFN LINK_L-INS (AN S) (IF (PC-LONG-READP (MC-PC S) (MC-MEM S)) (LINK-MAPPING AN (PC-LONG-READ (MC-PC S) (MC-MEM S)) (UPDATE-PC (ADD (L) (MC-PC S) (LSZ)) S)) (HALT (PC-SIGNAL) S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PC-SIGNAL . LINK_L-INS) (IMMEDIATE-DEPENDENTS0 HALT . LINK_L-INS) (IMMEDIATE-DEPENDENTS0 LSZ . LINK_L-INS) (IMMEDIATE-DEPENDENTS0 L . LINK_L-INS) (IMMEDIATE-DEPENDENTS0 ADD . LINK_L-INS) (IMMEDIATE-DEPENDENTS0 UPDATE-PC . LINK_L-INS) (IMMEDIATE-DEPENDENTS0 PC-LONG-READ . LINK_L-INS) (IMMEDIATE-DEPENDENTS0 LINK-MAPPING . LINK_L-INS) (IMMEDIATE-DEPENDENTS0 MC-MEM . LINK_L-INS) (IMMEDIATE-DEPENDENTS0 MC-PC . LINK_L-INS) (IMMEDIATE-DEPENDENTS0 PC-LONG-READP . LINK_L-INS) (DCELL . *1*LINK_L-INS))))) (PUT1-LST (QUOTE *1*LINK-MAPPING) (QUOTE (MAIN-EVENT LINK-MAPPING))) (PUT1-LST (QUOTE LINK-MAPPING) (QUOTE (TYPE-PRESCRIPTION-LST ((LINK-MAPPING 16 NIL NIL NIL)) TOTALP-LST ((LINK-MAPPING . T)) SDEFN (LAMBDA (AN DISP S) (IF (WRITE-MEMP (SUB (L) (LSZ) (READ-SP S)) (MC-MEM S) (LSZ)) (UPDATE-MEM (WRITE-MEM (READ-AN (L) AN S) (SUB (L) (LSZ) (READ-SP S)) (MC-MEM S) (LSZ)) (WRITE-SP (ADD (L) (SUB (L) (LSZ) (READ-SP S)) DISP) (WRITE-AN (L) (SUB (L) (LSZ) (READ-SP S)) AN S))) (HALT (WRITE-SIGNAL) S))) LISP-CODE *1*LINK-MAPPING SUBRP *1*FALSE LEVEL-NO 5 IDATE 1000402214824 SATELLITES (*1*LINK-MAPPING) IMMEDIATE-DEPENDENTS0 (GCD-S-S0-MEM GCD-S-S0-RFILE GCD-S-S0 MISC-GROUP-H LINK_W-INS LINK_L-INS) EVENT (DEFN LINK-MAPPING (AN DISP S) (IF (WRITE-MEMP (SUB (L) (LSZ) (READ-SP S)) (MC-MEM S) (LSZ)) (UPDATE-MEM (WRITE-MEM (READ-AN (L) AN S) (SUB (L) (LSZ) (READ-SP S)) (MC-MEM S) (LSZ)) (WRITE-SP (ADD (L) (SUB (L) (LSZ) (READ-SP S)) DISP) (WRITE-AN (L) (SUB (L) (LSZ) (READ-SP S)) AN S))) (HALT (WRITE-SIGNAL) S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 WRITE-SIGNAL . LINK-MAPPING) (IMMEDIATE-DEPENDENTS0 HALT . LINK-MAPPING) (IMMEDIATE-DEPENDENTS0 WRITE-AN . LINK-MAPPING) (IMMEDIATE-DEPENDENTS0 ADD . LINK-MAPPING) (IMMEDIATE-DEPENDENTS0 WRITE-SP . LINK-MAPPING) (IMMEDIATE-DEPENDENTS0 READ-AN . LINK-MAPPING) (IMMEDIATE-DEPENDENTS0 WRITE-MEM . LINK-MAPPING) (IMMEDIATE-DEPENDENTS0 UPDATE-MEM . LINK-MAPPING) (IMMEDIATE-DEPENDENTS0 MC-MEM . LINK-MAPPING) (IMMEDIATE-DEPENDENTS0 READ-SP . LINK-MAPPING) (IMMEDIATE-DEPENDENTS0 LSZ . LINK-MAPPING) (IMMEDIATE-DEPENDENTS0 L . LINK-MAPPING) (IMMEDIATE-DEPENDENTS0 SUB . LINK-MAPPING) (IMMEDIATE-DEPENDENTS0 WRITE-MEMP . LINK-MAPPING) (DCELL . *1*LINK-MAPPING))))) (PUT1-LST (QUOTE *1*MOVEM-EA-RN-SUBGROUP) (QUOTE (MAIN-EVENT MOVEM-EA-RN-SUBGROUP))) (PUT1-LST (QUOTE MOVEM-EA-RN-SUBGROUP) (QUOTE (TYPE-PRESCRIPTION-LST ((MOVEM-EA-RN-SUBGROUP -1 NIL NIL)) TOTALP-LST ((MOVEM-EA-RN-SUBGROUP . T)) SDEFN (LAMBDA (INS S) (IF (PC-WORD-READP (MC-PC S) (MC-MEM S)) (IF (B0P (BITN INS (QUOTE 7))) (MUL-DIV_L-INS (PC-WORD-READ (MC-PC S) (MC-MEM S)) INS (UPDATE-PC (ADD (L) (MC-PC S) (WSZ)) S)) (IF (B0P (BITN INS (QUOTE 6))) (MOVEM-EA-RN-INS (PC-WORD-READ (MC-PC S) (MC-MEM S)) (W) INS (UPDATE-PC (ADD (L) (MC-PC S) (WSZ)) S)) (MOVEM-EA-RN-INS (PC-WORD-READ (MC-PC S) (MC-MEM S)) (L) INS (UPDATE-PC (ADD (L) (MC-PC S) (WSZ)) S)))) (HALT (PC-SIGNAL) S))) LISP-CODE *1*MOVEM-EA-RN-SUBGROUP SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214824 SATELLITES (*1*MOVEM-EA-RN-SUBGROUP) IMMEDIATE-DEPENDENTS0 (GCD-S0-S0-RFILE-2 GCD-S0-S0-RFILE-1 GCD-S0-S0-2 GCD-S0-S0-1 GCD-S0-SN-BASE-RFILE-2 GCD-S0-SN-BASE-2 GCD-S0-SN-BASE-RFILE-1 GCD-S0-SN-BASE-1 MISC-GROUP-H MISC-GROUP) EVENT (DEFN MOVEM-EA-RN-SUBGROUP (INS S) (IF (PC-WORD-READP (MC-PC S) (MC-MEM S)) (IF (B0P (BITN INS (QUOTE 7))) (MUL-DIV_L-INS (PC-WORD-READ (MC-PC S) (MC-MEM S)) INS (UPDATE-PC (ADD (L) (MC-PC S) (WSZ)) S)) (MOVEM-EA-RN-INS (PC-WORD-READ (MC-PC S) (MC-MEM S)) (IF (B0P (BITN INS (QUOTE 6))) (W) (L)) INS (UPDATE-PC (ADD (L) (MC-PC S) (WSZ)) S))) (HALT (PC-SIGNAL) S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PC-SIGNAL . MOVEM-EA-RN-SUBGROUP) (IMMEDIATE-DEPENDENTS0 HALT . MOVEM-EA-RN-SUBGROUP) (IMMEDIATE-DEPENDENTS0 W . MOVEM-EA-RN-SUBGROUP) (IMMEDIATE-DEPENDENTS0 MOVEM-EA-RN-INS . MOVEM-EA-RN-SUBGROUP) (IMMEDIATE-DEPENDENTS0 WSZ . MOVEM-EA-RN-SUBGROUP) (IMMEDIATE-DEPENDENTS0 L . MOVEM-EA-RN-SUBGROUP) (IMMEDIATE-DEPENDENTS0 ADD . MOVEM-EA-RN-SUBGROUP) (IMMEDIATE-DEPENDENTS0 UPDATE-PC . MOVEM-EA-RN-SUBGROUP) (IMMEDIATE-DEPENDENTS0 PC-WORD-READ . MOVEM-EA-RN-SUBGROUP) (IMMEDIATE-DEPENDENTS0 MUL-DIV_L-INS . MOVEM-EA-RN-SUBGROUP) (IMMEDIATE-DEPENDENTS0 BITN . MOVEM-EA-RN-SUBGROUP) (IMMEDIATE-DEPENDENTS0 B0P . MOVEM-EA-RN-SUBGROUP) (IMMEDIATE-DEPENDENTS0 MC-MEM . MOVEM-EA-RN-SUBGROUP) (IMMEDIATE-DEPENDENTS0 MC-PC . MOVEM-EA-RN-SUBGROUP) (IMMEDIATE-DEPENDENTS0 PC-WORD-READP . MOVEM-EA-RN-SUBGROUP) (DCELL . *1*MOVEM-EA-RN-SUBGROUP))))) (PUT1-LST (QUOTE *1*MOVEM-EA-RN-INS) (QUOTE (MAIN-EVENT MOVEM-EA-RN-INS))) (PUT1-LST (QUOTE MOVEM-EA-RN-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((MOVEM-EA-RN-INS -1 NIL NIL NIL NIL)) TOTALP-LST ((MOVEM-EA-RN-INS . T)) SDEFN (LAMBDA (MASK OPLEN INS S) (IF (POSTINC-MODEP (S_MODE INS)) (IF (READMP MASK OPLEN (READ-AN (L) (S_RN INS) S) (MC-MEM S)) (WRITE-AN (L) (ADD (L) (READ-AN (L) (S_RN INS) S) (TIMES (OP-SZ OPLEN) (MOVEM-LEN MASK))) (S_RN INS) (UPDATE-RFILE (WRITEM-RN OPLEN (READM-MEM (OP-SZ OPLEN) (READ-AN (L) (S_RN INS) S) (MC-MEM S) (MOVEM-LEN MASK)) (MOVEM-RNLST MASK (QUOTE 0)) (MC-RFILE S)) S)) (HALT (READ-SIGNAL) S)) (IF (MOVEM-EA-RN-ADDR-MODEP INS) (IF (MC-HALTP (CAR (EFFEC-ADDR OPLEN (S_MODE INS) (S_RN INS) S))) (CAR (EFFEC-ADDR OPLEN (S_MODE INS) (S_RN INS) S)) (IF (READMP MASK OPLEN (CDR (CDR (EFFEC-ADDR OPLEN (S_MODE INS) (S_RN INS) S))) (MC-MEM S)) (UPDATE-RFILE (WRITEM-RN OPLEN (READM-MEM (OP-SZ OPLEN) (CDR (CDR (EFFEC-ADDR OPLEN (S_MODE INS) (S_RN INS) S))) (MC-MEM S) (MOVEM-LEN MASK)) (MOVEM-RNLST MASK (QUOTE 0)) (MC-RFILE S)) (CAR (EFFEC-ADDR OPLEN (S_MODE INS) (S_RN INS) S))) (HALT (READ-SIGNAL) S))) (HALT (MODE-SIGNAL) S)))) LISP-CODE *1*MOVEM-EA-RN-INS SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214824 SATELLITES (*1*MOVEM-EA-RN-INS) IMMEDIATE-DEPENDENTS0 (GCD-S0-SN-BASE-RFILE-2 GCD-S0-SN-BASE-2 GCD-S0-SN-BASE-RFILE-1 GCD-S0-SN-BASE-1 MISC-GROUP-H MOVEM-EA-RN-SUBGROUP) EVENT (DEFN MOVEM-EA-RN-INS (MASK OPLEN INS S) (IF (POSTINC-MODEP (S_MODE INS)) (IF (READMP MASK OPLEN (READ-AN (L) (S_RN INS) S) (MC-MEM S)) (WRITE-AN (L) (ADD (L) (READ-AN (L) (S_RN INS) S) (TIMES (OP-SZ OPLEN) (MOVEM-LEN MASK))) (S_RN INS) (UPDATE-RFILE (WRITEM-RN OPLEN (READM-MEM (OP-SZ OPLEN) (READ-AN (L) (S_RN INS) S) (MC-MEM S) (MOVEM-LEN MASK)) (MOVEM-RNLST MASK (QUOTE 0)) (MC-RFILE S)) S)) (HALT (READ-SIGNAL) S)) (IF (MOVEM-EA-RN-ADDR-MODEP INS) (IF (MC-HALTP (CAR (EFFEC-ADDR OPLEN (S_MODE INS) (S_RN INS) S))) (CAR (EFFEC-ADDR OPLEN (S_MODE INS) (S_RN INS) S)) (IF (READMP MASK OPLEN (CDR (CDR (EFFEC-ADDR OPLEN (S_MODE INS) (S_RN INS) S))) (MC-MEM S)) (UPDATE-RFILE (WRITEM-RN OPLEN (READM-MEM (OP-SZ OPLEN) (CDR (CDR (EFFEC-ADDR OPLEN (S_MODE INS) (S_RN INS) S))) (MC-MEM S) (MOVEM-LEN MASK)) (MOVEM-RNLST MASK (QUOTE 0)) (MC-RFILE S)) (CAR (EFFEC-ADDR OPLEN (S_MODE INS) (S_RN INS) S))) (HALT (READ-SIGNAL) S))) (HALT (MODE-SIGNAL) S)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MODE-SIGNAL . MOVEM-EA-RN-INS) (IMMEDIATE-DEPENDENTS0 EFFEC-ADDR . MOVEM-EA-RN-INS) (IMMEDIATE-DEPENDENTS0 MC-HALTP . MOVEM-EA-RN-INS) (IMMEDIATE-DEPENDENTS0 MOVEM-EA-RN-ADDR-MODEP . MOVEM-EA-RN-INS) (IMMEDIATE-DEPENDENTS0 READ-SIGNAL . MOVEM-EA-RN-INS) (IMMEDIATE-DEPENDENTS0 HALT . MOVEM-EA-RN-INS) (IMMEDIATE-DEPENDENTS0 MC-RFILE . MOVEM-EA-RN-INS) (IMMEDIATE-DEPENDENTS0 MOVEM-RNLST . MOVEM-EA-RN-INS) (IMMEDIATE-DEPENDENTS0 READM-MEM . MOVEM-EA-RN-INS) (IMMEDIATE-DEPENDENTS0 WRITEM-RN . MOVEM-EA-RN-INS) (IMMEDIATE-DEPENDENTS0 UPDATE-RFILE . MOVEM-EA-RN-INS) (IMMEDIATE-DEPENDENTS0 MOVEM-LEN . MOVEM-EA-RN-INS) (IMMEDIATE-DEPENDENTS0 OP-SZ . MOVEM-EA-RN-INS) (IMMEDIATE-DEPENDENTS0 ADD . MOVEM-EA-RN-INS) (IMMEDIATE-DEPENDENTS0 WRITE-AN . MOVEM-EA-RN-INS) (IMMEDIATE-DEPENDENTS0 MC-MEM . MOVEM-EA-RN-INS) (IMMEDIATE-DEPENDENTS0 S_RN . MOVEM-EA-RN-INS) (IMMEDIATE-DEPENDENTS0 L . MOVEM-EA-RN-INS) (IMMEDIATE-DEPENDENTS0 READ-AN . MOVEM-EA-RN-INS) (IMMEDIATE-DEPENDENTS0 READMP . MOVEM-EA-RN-INS) (IMMEDIATE-DEPENDENTS0 S_MODE . MOVEM-EA-RN-INS) (IMMEDIATE-DEPENDENTS0 POSTINC-MODEP . MOVEM-EA-RN-INS) (DCELL . *1*MOVEM-EA-RN-INS))))) (PUT1-LST (QUOTE *1*READMP) (QUOTE (MAIN-EVENT READMP))) (PUT1-LST (QUOTE READMP) (QUOTE (TYPE-PRESCRIPTION-LST ((READMP 3 NIL NIL NIL NIL)) TOTALP-LST ((READMP . T)) SDEFN (LAMBDA (MASK OPLEN ADDR MEM) (READ-MEMP ADDR MEM (TIMES (OP-SZ OPLEN) (MOVEM-LEN MASK)))) LISP-CODE *1*READMP SUBRP *1*FALSE LEVEL-NO 5 IDATE 1000402214824 SATELLITES (*1*READMP) IMMEDIATE-DEPENDENTS0 (GCD-S0-SN-BASE-RFILE-2 GCD-S0-SN-BASE-2 GCD-S0-SN-BASE-RFILE-1 GCD-S0-SN-BASE-1 MISC-GROUP-H MOVEM-EA-RN-INS) EVENT (DEFN READMP (MASK OPLEN ADDR MEM) (READ-MEMP ADDR MEM (TIMES (OP-SZ OPLEN) (MOVEM-LEN MASK)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MOVEM-LEN . READMP) (IMMEDIATE-DEPENDENTS0 OP-SZ . READMP) (IMMEDIATE-DEPENDENTS0 READ-MEMP . READMP) (DCELL . *1*READMP))))) (PUT1-LST (QUOTE *1*MOVEM-EA-RN-ADDR-MODEP) (QUOTE (MAIN-EVENT MOVEM-EA-RN-ADDR-MODEP))) (PUT1-LST (QUOTE MOVEM-EA-RN-ADDR-MODEP) (QUOTE (TYPE-PRESCRIPTION-LST ((MOVEM-EA-RN-ADDR-MODEP 3 NIL)) TOTALP-LST ((MOVEM-EA-RN-ADDR-MODEP . T)) SDEFN (LAMBDA (INS) (CONTROL-ADDR-MODEP (S_MODE INS) (S_RN INS))) LISP-CODE *1*MOVEM-EA-RN-ADDR-MODEP SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*MOVEM-EA-RN-ADDR-MODEP) IMMEDIATE-DEPENDENTS0 (GCD-S0-SN-BASE-RFILE-2 GCD-S0-SN-BASE-2 GCD-S0-SN-BASE-RFILE-1 GCD-S0-SN-BASE-1 MODE-GUARDS MOVEM-EA-RN-INS) EVENT (DEFN MOVEM-EA-RN-ADDR-MODEP (INS) (CONTROL-ADDR-MODEP (S_MODE INS) (S_RN INS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 S_RN . MOVEM-EA-RN-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 S_MODE . MOVEM-EA-RN-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 CONTROL-ADDR-MODEP . MOVEM-EA-RN-ADDR-MODEP) (DCELL . *1*MOVEM-EA-RN-ADDR-MODEP))))) (PUT1-LST (QUOTE *1*MUL-DIV_L-INS) (QUOTE (MAIN-EVENT MUL-DIV_L-INS))) (PUT1-LST (QUOTE MUL-DIV_L-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((MUL-DIV_L-INS -1 NIL NIL NIL)) TOTALP-LST ((MUL-DIV_L-INS . T)) SDEFN (LAMBDA (WORD INS S) (IF (B0P (BITN WORD (QUOTE 15))) (IF (EQUAL (BITS WORD (QUOTE 3) (QUOTE 9)) (QUOTE 0)) (IF (MUL&DIV-ADDR-MODEP INS) (IF (MC-HALTP (CAR (MC-INSTATE (L) INS S))) (CAR (MC-INSTATE (L) INS S)) (IF (B0P (BITN INS (QUOTE 6))) (MUL_L-INS (OPERAND (L) (CDR (MC-INSTATE (L) INS S)) (CAR (MC-INSTATE (L) INS S))) WORD (CAR (MC-INSTATE (L) INS S))) (DIV_L-INS (OPERAND (L) (CDR (MC-INSTATE (L) INS S)) (CAR (MC-INSTATE (L) INS S))) WORD (CAR (MC-INSTATE (L) INS S))))) (HALT (MODE-SIGNAL) S)) (HALT (RESERVED-SIGNAL) S)) (HALT (RESERVED-SIGNAL) S))) LISP-CODE *1*MUL-DIV_L-INS SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214824 SATELLITES (*1*MUL-DIV_L-INS) IMMEDIATE-DEPENDENTS0 (GCD-S0-S0-RFILE-2 GCD-S0-S0-RFILE-1 GCD-S0-S0-2 GCD-S0-S0-1 MISC-GROUP-H MOVEM-EA-RN-SUBGROUP) EVENT (DEFN MUL-DIV_L-INS (WORD INS S) (IF (AND (B0P (BITN WORD (QUOTE 15))) (EQUAL (BITS WORD (QUOTE 3) (QUOTE 9)) (QUOTE 0))) (IF (MUL&DIV-ADDR-MODEP INS) (IF (MC-HALTP (CAR (MC-INSTATE (L) INS S))) (CAR (MC-INSTATE (L) INS S)) (IF (B0P (BITN INS (QUOTE 6))) (MUL_L-INS (OPERAND (L) (CDR (MC-INSTATE (L) INS S)) (CAR (MC-INSTATE (L) INS S))) WORD (CAR (MC-INSTATE (L) INS S))) (DIV_L-INS (OPERAND (L) (CDR (MC-INSTATE (L) INS S)) (CAR (MC-INSTATE (L) INS S))) WORD (CAR (MC-INSTATE (L) INS S))))) (HALT (MODE-SIGNAL) S)) (HALT (RESERVED-SIGNAL) S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 RESERVED-SIGNAL . MUL-DIV_L-INS) (IMMEDIATE-DEPENDENTS0 MODE-SIGNAL . MUL-DIV_L-INS) (IMMEDIATE-DEPENDENTS0 HALT . MUL-DIV_L-INS) (IMMEDIATE-DEPENDENTS0 DIV_L-INS . MUL-DIV_L-INS) (IMMEDIATE-DEPENDENTS0 OPERAND . MUL-DIV_L-INS) (IMMEDIATE-DEPENDENTS0 MUL_L-INS . MUL-DIV_L-INS) (IMMEDIATE-DEPENDENTS0 L . MUL-DIV_L-INS) (IMMEDIATE-DEPENDENTS0 MC-INSTATE . MUL-DIV_L-INS) (IMMEDIATE-DEPENDENTS0 MC-HALTP . MUL-DIV_L-INS) (IMMEDIATE-DEPENDENTS0 MUL&DIV-ADDR-MODEP . MUL-DIV_L-INS) (IMMEDIATE-DEPENDENTS0 BITS . MUL-DIV_L-INS) (IMMEDIATE-DEPENDENTS0 BITN . MUL-DIV_L-INS) (IMMEDIATE-DEPENDENTS0 B0P . MUL-DIV_L-INS) (DCELL . *1*MUL-DIV_L-INS))))) (PUT1-LST (QUOTE *1*MUL_L-INS) (QUOTE (MAIN-EVENT MUL_L-INS))) (PUT1-LST (QUOTE MUL_L-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((MUL_L-INS 16 NIL NIL NIL)) TOTALP-LST ((MUL_L-INS . T)) SDEFN (LAMBDA (SOPD WORD S) (IF (B0P (BITN WORD (QUOTE 11))) (IF (B0P (BITN WORD (QUOTE 10))) (MULU_L_DL SOPD (READ-DN (L) (DL WORD) S) (DL WORD) S) (MULU_L_DLDH SOPD (READ-DN (L) (DL WORD) S) (DL WORD) (DH WORD) S)) (IF (B0P (BITN WORD (QUOTE 10))) (MULS_L_DL SOPD (READ-DN (L) (DL WORD) S) (DL WORD) S) (MULS_L_DLDH SOPD (READ-DN (L) (DL WORD) S) (DL WORD) (DH WORD) S)))) LISP-CODE *1*MUL_L-INS SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*MUL_L-INS) IMMEDIATE-DEPENDENTS0 (MISC-GROUP-H MUL-DIV_L-INS) EVENT (DEFN MUL_L-INS (SOPD WORD S) (IF (B0P (BITN WORD (QUOTE 11))) (IF (B0P (BITN WORD (QUOTE 10))) (MULU_L_DL SOPD (READ-DN (L) (DL WORD) S) (DL WORD) S) (MULU_L_DLDH SOPD (READ-DN (L) (DL WORD) S) (DL WORD) (DH WORD) S)) (IF (B0P (BITN WORD (QUOTE 10))) (MULS_L_DL SOPD (READ-DN (L) (DL WORD) S) (DL WORD) S) (MULS_L_DLDH SOPD (READ-DN (L) (DL WORD) S) (DL WORD) (DH WORD) S)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MULS_L_DLDH . MUL_L-INS) (IMMEDIATE-DEPENDENTS0 MULS_L_DL . MUL_L-INS) (IMMEDIATE-DEPENDENTS0 DH . MUL_L-INS) (IMMEDIATE-DEPENDENTS0 MULU_L_DLDH . MUL_L-INS) (IMMEDIATE-DEPENDENTS0 DL . MUL_L-INS) (IMMEDIATE-DEPENDENTS0 L . MUL_L-INS) (IMMEDIATE-DEPENDENTS0 READ-DN . MUL_L-INS) (IMMEDIATE-DEPENDENTS0 MULU_L_DL . MUL_L-INS) (IMMEDIATE-DEPENDENTS0 BITN . MUL_L-INS) (IMMEDIATE-DEPENDENTS0 B0P . MUL_L-INS) (DCELL . *1*MUL_L-INS))))) (PUT1-LST (QUOTE *1*DH) (QUOTE (MAIN-EVENT DH))) (PUT1-LST (QUOTE DH) (QUOTE (TYPE-PRESCRIPTION-LST ((DH 4 NIL)) TOTALP-LST ((DH . T)) SDEFN (LAMBDA (WORD) (BITS WORD (QUOTE 0) (QUOTE 2))) LISP-CODE *1*DH SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*DH) IMMEDIATE-DEPENDENTS0 (MISC-GROUP-H MUL_L-INS) EVENT (DEFN DH (WORD) (BITS WORD (QUOTE 0) (QUOTE 2))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BITS . DH) (DCELL . *1*DH))))) (PUT1-LST (QUOTE *1*DL) (QUOTE (MAIN-EVENT DL))) (PUT1-LST (QUOTE DL) (QUOTE (TYPE-PRESCRIPTION-LST ((DL 4 NIL)) TOTALP-LST ((DL . T)) SDEFN (LAMBDA (WORD) (BITS WORD (QUOTE 12) (QUOTE 14))) LISP-CODE *1*DL SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*DL) IMMEDIATE-DEPENDENTS0 (MISC-GROUP-H MUL_L-INS) EVENT (DEFN DL (WORD) (BITS WORD (QUOTE 12) (QUOTE 14))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BITS . DL) (DCELL . *1*DL))))) (PUT1-LST (QUOTE *1*MULS_L_DLDH) (QUOTE (MAIN-EVENT MULS_L_DLDH))) (PUT1-LST (QUOTE MULS_L_DLDH) (QUOTE (TYPE-PRESCRIPTION-LST ((MULS_L_DLDH 16 NIL NIL NIL NIL NIL)) TOTALP-LST ((MULS_L_DLDH . T)) SDEFN (LAMBDA (SOPD DOPD DL DH S) (IF (EQUAL DL DH) (HALT (QUOTE MC-UNDEFINED) S) (UPDATE-CCR (MULS-CVZNX (Q) SOPD DOPD (L) (MC-CCR S)) (WRITE-DN (L) (TAIL (MULS (Q) SOPD DOPD (L)) (L)) DH (WRITE-DN (L) (HEAD (MULS (Q) SOPD DOPD (L)) (L)) DL S))))) LISP-CODE *1*MULS_L_DLDH SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*MULS_L_DLDH) IMMEDIATE-DEPENDENTS0 (MISC-GROUP-H MUL_L-INS) EVENT (DEFN MULS_L_DLDH (SOPD DOPD DL DH S) (IF (EQUAL DL DH) (HALT (QUOTE MC-UNDEFINED) S) (UPDATE-CCR (MULS-CVZNX (Q) SOPD DOPD (L) (MC-CCR S)) (WRITE-DN (L) (TAIL (MULS (Q) SOPD DOPD (L)) (L)) DH (WRITE-DN (L) (HEAD (MULS (Q) SOPD DOPD (L)) (L)) DL S))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 HEAD . MULS_L_DLDH) (IMMEDIATE-DEPENDENTS0 MULS . MULS_L_DLDH) (IMMEDIATE-DEPENDENTS0 TAIL . MULS_L_DLDH) (IMMEDIATE-DEPENDENTS0 WRITE-DN . MULS_L_DLDH) (IMMEDIATE-DEPENDENTS0 MC-CCR . MULS_L_DLDH) (IMMEDIATE-DEPENDENTS0 L . MULS_L_DLDH) (IMMEDIATE-DEPENDENTS0 Q . MULS_L_DLDH) (IMMEDIATE-DEPENDENTS0 MULS-CVZNX . MULS_L_DLDH) (IMMEDIATE-DEPENDENTS0 UPDATE-CCR . MULS_L_DLDH) (IMMEDIATE-DEPENDENTS0 HALT . MULS_L_DLDH) (DCELL . *1*MULS_L_DLDH))))) (PUT1-LST (QUOTE *1*MULS_L_DL) (QUOTE (MAIN-EVENT MULS_L_DL))) (PUT1-LST (QUOTE MULS_L_DL) (QUOTE (TYPE-PRESCRIPTION-LST ((MULS_L_DL 16 NIL NIL NIL NIL)) TOTALP-LST ((MULS_L_DL . T)) SDEFN (LAMBDA (SOPD DOPD DL S) (UPDATE-CCR (MULS-CVZNX (L) SOPD DOPD (L) (MC-CCR S)) (WRITE-DN (L) (MULS (L) SOPD DOPD (L)) DL S))) LISP-CODE *1*MULS_L_DL SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*MULS_L_DL) IMMEDIATE-DEPENDENTS0 (MISC-GROUP-H MUL_L-INS) EVENT (DEFN MULS_L_DL (SOPD DOPD DL S) (UPDATE-CCR (MULS-CVZNX (L) SOPD DOPD (L) (MC-CCR S)) (WRITE-DN (L) (MULS (L) SOPD DOPD (L)) DL S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MULS . MULS_L_DL) (IMMEDIATE-DEPENDENTS0 WRITE-DN . MULS_L_DL) (IMMEDIATE-DEPENDENTS0 MC-CCR . MULS_L_DL) (IMMEDIATE-DEPENDENTS0 L . MULS_L_DL) (IMMEDIATE-DEPENDENTS0 MULS-CVZNX . MULS_L_DL) (IMMEDIATE-DEPENDENTS0 UPDATE-CCR . MULS_L_DL) (DCELL . *1*MULS_L_DL))))) (PUT1-LST (QUOTE *1*MULU_L_DLDH) (QUOTE (MAIN-EVENT MULU_L_DLDH))) (PUT1-LST (QUOTE MULU_L_DLDH) (QUOTE (TYPE-PRESCRIPTION-LST ((MULU_L_DLDH 16 NIL NIL NIL NIL NIL)) TOTALP-LST ((MULU_L_DLDH . T)) SDEFN (LAMBDA (SOPD DOPD DL DH S) (IF (EQUAL DL DH) (HALT (QUOTE MC-UNDEFINED) S) (UPDATE-CCR (MULU-CVZNX (Q) SOPD DOPD (L) (MC-CCR S)) (WRITE-DN (L) (TAIL (MULU (Q) SOPD DOPD (L)) (L)) DH (WRITE-DN (L) (HEAD (MULU (Q) SOPD DOPD (L)) (L)) DL S))))) LISP-CODE *1*MULU_L_DLDH SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*MULU_L_DLDH) IMMEDIATE-DEPENDENTS0 (MISC-GROUP-H MUL_L-INS) EVENT (DEFN MULU_L_DLDH (SOPD DOPD DL DH S) (IF (EQUAL DL DH) (HALT (QUOTE MC-UNDEFINED) S) (UPDATE-CCR (MULU-CVZNX (Q) SOPD DOPD (L) (MC-CCR S)) (WRITE-DN (L) (TAIL (MULU (Q) SOPD DOPD (L)) (L)) DH (WRITE-DN (L) (HEAD (MULU (Q) SOPD DOPD (L)) (L)) DL S))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 HEAD . MULU_L_DLDH) (IMMEDIATE-DEPENDENTS0 MULU . MULU_L_DLDH) (IMMEDIATE-DEPENDENTS0 TAIL . MULU_L_DLDH) (IMMEDIATE-DEPENDENTS0 WRITE-DN . MULU_L_DLDH) (IMMEDIATE-DEPENDENTS0 MC-CCR . MULU_L_DLDH) (IMMEDIATE-DEPENDENTS0 L . MULU_L_DLDH) (IMMEDIATE-DEPENDENTS0 Q . MULU_L_DLDH) (IMMEDIATE-DEPENDENTS0 MULU-CVZNX . MULU_L_DLDH) (IMMEDIATE-DEPENDENTS0 UPDATE-CCR . MULU_L_DLDH) (IMMEDIATE-DEPENDENTS0 HALT . MULU_L_DLDH) (DCELL . *1*MULU_L_DLDH))))) (PUT1-LST (QUOTE *1*MULU_L_DL) (QUOTE (MAIN-EVENT MULU_L_DL))) (PUT1-LST (QUOTE MULU_L_DL) (QUOTE (TYPE-PRESCRIPTION-LST ((MULU_L_DL 16 NIL NIL NIL NIL)) TOTALP-LST ((MULU_L_DL . T)) SDEFN (LAMBDA (SOPD DOPD DL S) (UPDATE-CCR (MULU-CVZNX (L) SOPD DOPD (L) (MC-CCR S)) (WRITE-DN (L) (MULU (L) SOPD DOPD (L)) DL S))) LISP-CODE *1*MULU_L_DL SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*MULU_L_DL) IMMEDIATE-DEPENDENTS0 (MISC-GROUP-H MUL_L-INS) EVENT (DEFN MULU_L_DL (SOPD DOPD DL S) (UPDATE-CCR (MULU-CVZNX (L) SOPD DOPD (L) (MC-CCR S)) (WRITE-DN (L) (MULU (L) SOPD DOPD (L)) DL S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MULU . MULU_L_DL) (IMMEDIATE-DEPENDENTS0 WRITE-DN . MULU_L_DL) (IMMEDIATE-DEPENDENTS0 MC-CCR . MULU_L_DL) (IMMEDIATE-DEPENDENTS0 L . MULU_L_DL) (IMMEDIATE-DEPENDENTS0 MULU-CVZNX . MULU_L_DL) (IMMEDIATE-DEPENDENTS0 UPDATE-CCR . MULU_L_DL) (DCELL . *1*MULU_L_DL))))) (PUT1-LST (QUOTE *1*DIV_L-INS) (QUOTE (MAIN-EVENT DIV_L-INS))) (PUT1-LST (QUOTE DIV_L-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((DIV_L-INS 16 NIL NIL NIL)) TOTALP-LST ((DIV_L-INS . T)) SDEFN (LAMBDA (SOPD WORD S) (IF (B0P (BITN WORD (QUOTE 11))) (IF (EQUAL (NAT-TO-UINT SOPD) (QUOTE 0)) (HALT (QUOTE TRAP-EXCEPTION) S) (IF (B0P (BITN WORD (QUOTE 10))) (DIVUL_L SOPD (READ-DN (L) (DQ WORD) S) (DQ WORD) (DR WORD) S) (DIVU_L SOPD (READ-DN (L) (DQ WORD) S) (DQ WORD) (DR WORD) S))) (IF (EQUAL (NAT-TO-INT SOPD (L)) (QUOTE 0)) (HALT (QUOTE TRAP-EXCEPTION) S) (IF (B0P (BITN WORD (QUOTE 10))) (DIVSL_L SOPD (READ-DN (L) (DQ WORD) S) (DQ WORD) (DR WORD) S) (DIVS_L SOPD (READ-DN (L) (DQ WORD) S) (DQ WORD) (DR WORD) S))))) LISP-CODE *1*DIV_L-INS SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*DIV_L-INS) IMMEDIATE-DEPENDENTS0 (GCD-S0-S0-RFILE-2 GCD-S0-S0-RFILE-1 GCD-S0-S0-2 GCD-S0-S0-1 MISC-GROUP-H MUL-DIV_L-INS) EVENT (DEFN DIV_L-INS (SOPD WORD S) (IF (B0P (BITN WORD (QUOTE 11))) (IF (EQUAL (NAT-TO-UINT SOPD) (QUOTE 0)) (HALT (QUOTE TRAP-EXCEPTION) S) (IF (B0P (BITN WORD (QUOTE 10))) (DIVUL_L SOPD (READ-DN (L) (DQ WORD) S) (DQ WORD) (DR WORD) S) (DIVU_L SOPD (READ-DN (L) (DQ WORD) S) (DQ WORD) (DR WORD) S))) (IF (EQUAL (NAT-TO-INT SOPD (L)) (QUOTE 0)) (HALT (QUOTE TRAP-EXCEPTION) S) (IF (B0P (BITN WORD (QUOTE 10))) (DIVSL_L SOPD (READ-DN (L) (DQ WORD) S) (DQ WORD) (DR WORD) S) (DIVS_L SOPD (READ-DN (L) (DQ WORD) S) (DQ WORD) (DR WORD) S))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIVS_L . DIV_L-INS) (IMMEDIATE-DEPENDENTS0 DIVSL_L . DIV_L-INS) (IMMEDIATE-DEPENDENTS0 NAT-TO-INT . DIV_L-INS) (IMMEDIATE-DEPENDENTS0 DIVU_L . DIV_L-INS) (IMMEDIATE-DEPENDENTS0 DR . DIV_L-INS) (IMMEDIATE-DEPENDENTS0 DQ . DIV_L-INS) (IMMEDIATE-DEPENDENTS0 L . DIV_L-INS) (IMMEDIATE-DEPENDENTS0 READ-DN . DIV_L-INS) (IMMEDIATE-DEPENDENTS0 DIVUL_L . DIV_L-INS) (IMMEDIATE-DEPENDENTS0 HALT . DIV_L-INS) (IMMEDIATE-DEPENDENTS0 NAT-TO-UINT . DIV_L-INS) (IMMEDIATE-DEPENDENTS0 BITN . DIV_L-INS) (IMMEDIATE-DEPENDENTS0 B0P . DIV_L-INS) (DCELL . *1*DIV_L-INS))))) (PUT1-LST (QUOTE *1*DR) (QUOTE (MAIN-EVENT DR))) (PUT1-LST (QUOTE DR) (QUOTE (TYPE-PRESCRIPTION-LST ((DR 4 NIL)) TOTALP-LST ((DR . T)) SDEFN (LAMBDA (WORD) (BITS WORD (QUOTE 0) (QUOTE 2))) LISP-CODE *1*DR SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*DR) IMMEDIATE-DEPENDENTS0 (GCD-S0-S0-RFILE-2 GCD-S0-S0-RFILE-1 GCD-S0-S0-2 GCD-S0-S0-1 MISC-GROUP-H DIV_L-INS) EVENT (DEFN DR (WORD) (BITS WORD (QUOTE 0) (QUOTE 2))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BITS . DR) (DCELL . *1*DR))))) (PUT1-LST (QUOTE *1*DQ) (QUOTE (MAIN-EVENT DQ))) (PUT1-LST (QUOTE DQ) (QUOTE (TYPE-PRESCRIPTION-LST ((DQ 4 NIL)) TOTALP-LST ((DQ . T)) SDEFN (LAMBDA (WORD) (BITS WORD (QUOTE 12) (QUOTE 14))) LISP-CODE *1*DQ SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*DQ) IMMEDIATE-DEPENDENTS0 (GCD-S0-S0-RFILE-2 GCD-S0-S0-RFILE-1 GCD-S0-S0-2 GCD-S0-S0-1 MISC-GROUP-H DIV_L-INS) EVENT (DEFN DQ (WORD) (BITS WORD (QUOTE 12) (QUOTE 14))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BITS . DQ) (DCELL . *1*DQ))))) (PUT1-LST (QUOTE *1*DIVU_L) (QUOTE (MAIN-EVENT DIVU_L))) (PUT1-LST (QUOTE DIVU_L) (QUOTE (TYPE-PRESCRIPTION-LST ((DIVU_L 16 NIL NIL NIL NIL NIL)) TOTALP-LST ((DIVU_L . T)) SDEFN (LAMBDA (SOPD DOPD_LOW DQ DR S) (IF (B0P (DIVU-V (L) SOPD (APP (L) DOPD_LOW (READ-DN (L) DR S)))) (UPDATE-CCR (DIVU-CVZNX (L) SOPD (APP (L) DOPD_LOW (READ-DN (L) DR S)) (MC-CCR S)) (WRITE-DN (L) (QUOT (L) SOPD (APP (L) DOPD_LOW (READ-DN (L) DR S))) DQ (WRITE-DN (L) (REM (L) SOPD (APP (L) DOPD_LOW (READ-DN (L) DR S))) DR S))) (HALT (QUOTE DIVU-OVERFLOW) (UPDATE-CCR (SET-V (B1) (MC-CCR S)) S)))) LISP-CODE *1*DIVU_L SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*DIVU_L) IMMEDIATE-DEPENDENTS0 (MISC-GROUP-H DIV_L-INS) EVENT (DEFN DIVU_L (SOPD DOPD_LOW DQ DR S) (IF (B0P (DIVU-V (L) SOPD (APP (L) DOPD_LOW (READ-DN (L) DR S)))) (UPDATE-CCR (DIVU-CVZNX (L) SOPD (APP (L) DOPD_LOW (READ-DN (L) DR S)) (MC-CCR S)) (WRITE-DN (L) (QUOT (L) SOPD (APP (L) DOPD_LOW (READ-DN (L) DR S))) DQ (WRITE-DN (L) (REM (L) SOPD (APP (L) DOPD_LOW (READ-DN (L) DR S))) DR S))) (HALT (QUOTE DIVU-OVERFLOW) (UPDATE-CCR (SET-V (B1) (MC-CCR S)) S)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B1 . DIVU_L) (IMMEDIATE-DEPENDENTS0 SET-V . DIVU_L) (IMMEDIATE-DEPENDENTS0 HALT . DIVU_L) (IMMEDIATE-DEPENDENTS0 REM . DIVU_L) (IMMEDIATE-DEPENDENTS0 QUOT . DIVU_L) (IMMEDIATE-DEPENDENTS0 WRITE-DN . DIVU_L) (IMMEDIATE-DEPENDENTS0 MC-CCR . DIVU_L) (IMMEDIATE-DEPENDENTS0 DIVU-CVZNX . DIVU_L) (IMMEDIATE-DEPENDENTS0 UPDATE-CCR . DIVU_L) (IMMEDIATE-DEPENDENTS0 READ-DN . DIVU_L) (IMMEDIATE-DEPENDENTS0 APP . DIVU_L) (IMMEDIATE-DEPENDENTS0 L . DIVU_L) (IMMEDIATE-DEPENDENTS0 DIVU-V . DIVU_L) (IMMEDIATE-DEPENDENTS0 B0P . DIVU_L) (DCELL . *1*DIVU_L))))) (PUT1-LST (QUOTE *1*DIVUL_L) (QUOTE (MAIN-EVENT DIVUL_L))) (PUT1-LST (QUOTE DIVUL_L) (QUOTE (TYPE-PRESCRIPTION-LST ((DIVUL_L 16 NIL NIL NIL NIL NIL)) TOTALP-LST ((DIVUL_L . T)) SDEFN (LAMBDA (SOPD DOPD DQ DR S) (UPDATE-CCR (DIVU-CVZNX (L) SOPD DOPD (MC-CCR S)) (WRITE-DN (L) (QUOT (L) SOPD DOPD) DQ (WRITE-DN (L) (REM (L) SOPD DOPD) DR S)))) LISP-CODE *1*DIVUL_L SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*DIVUL_L) IMMEDIATE-DEPENDENTS0 (MISC-GROUP-H DIV_L-INS) EVENT (DEFN DIVUL_L (SOPD DOPD DQ DR S) (UPDATE-CCR (DIVU-CVZNX (L) SOPD DOPD (MC-CCR S)) (WRITE-DN (L) (QUOT (L) SOPD DOPD) DQ (WRITE-DN (L) (REM (L) SOPD DOPD) DR S)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REM . DIVUL_L) (IMMEDIATE-DEPENDENTS0 QUOT . DIVUL_L) (IMMEDIATE-DEPENDENTS0 WRITE-DN . DIVUL_L) (IMMEDIATE-DEPENDENTS0 MC-CCR . DIVUL_L) (IMMEDIATE-DEPENDENTS0 L . DIVUL_L) (IMMEDIATE-DEPENDENTS0 DIVU-CVZNX . DIVUL_L) (IMMEDIATE-DEPENDENTS0 UPDATE-CCR . DIVUL_L) (DCELL . *1*DIVUL_L))))) (PUT1-LST (QUOTE *1*DIVS_L) (QUOTE (MAIN-EVENT DIVS_L))) (PUT1-LST (QUOTE DIVS_L) (QUOTE (TYPE-PRESCRIPTION-LST ((DIVS_L 16 NIL NIL NIL NIL NIL)) TOTALP-LST ((DIVS_L . T)) SDEFN (LAMBDA (SOPD DOPD_LOW DQ DR S) (IF (B0P (DIVS-V (L) SOPD (L) (APP (L) DOPD_LOW (READ-DN (L) DR S)) (Q))) (UPDATE-CCR (DIVS-CVZNX (L) SOPD (L) (APP (L) DOPD_LOW (READ-DN (L) DR S)) (Q) (MC-CCR S)) (WRITE-DN (L) (IQUOT (L) SOPD (L) (APP (L) DOPD_LOW (READ-DN (L) DR S)) (Q)) DQ (WRITE-DN (L) (IREM (L) SOPD (L) (APP (L) DOPD_LOW (READ-DN (L) DR S)) (Q)) DR S))) (HALT (QUOTE DIVS-OVERFLOW) (UPDATE-CCR (SET-V (B1) (MC-CCR S)) S)))) LISP-CODE *1*DIVS_L SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*DIVS_L) IMMEDIATE-DEPENDENTS0 (MISC-GROUP-H DIV_L-INS) EVENT (DEFN DIVS_L (SOPD DOPD_LOW DQ DR S) (IF (B0P (DIVS-V (L) SOPD (L) (APP (L) DOPD_LOW (READ-DN (L) DR S)) (Q))) (UPDATE-CCR (DIVS-CVZNX (L) SOPD (L) (APP (L) DOPD_LOW (READ-DN (L) DR S)) (Q) (MC-CCR S)) (WRITE-DN (L) (IQUOT (L) SOPD (L) (APP (L) DOPD_LOW (READ-DN (L) DR S)) (Q)) DQ (WRITE-DN (L) (IREM (L) SOPD (L) (APP (L) DOPD_LOW (READ-DN (L) DR S)) (Q)) DR S))) (HALT (QUOTE DIVS-OVERFLOW) (UPDATE-CCR (SET-V (B1) (MC-CCR S)) S)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B1 . DIVS_L) (IMMEDIATE-DEPENDENTS0 SET-V . DIVS_L) (IMMEDIATE-DEPENDENTS0 HALT . DIVS_L) (IMMEDIATE-DEPENDENTS0 IREM . DIVS_L) (IMMEDIATE-DEPENDENTS0 IQUOT . DIVS_L) (IMMEDIATE-DEPENDENTS0 WRITE-DN . DIVS_L) (IMMEDIATE-DEPENDENTS0 MC-CCR . DIVS_L) (IMMEDIATE-DEPENDENTS0 DIVS-CVZNX . DIVS_L) (IMMEDIATE-DEPENDENTS0 UPDATE-CCR . DIVS_L) (IMMEDIATE-DEPENDENTS0 Q . DIVS_L) (IMMEDIATE-DEPENDENTS0 READ-DN . DIVS_L) (IMMEDIATE-DEPENDENTS0 APP . DIVS_L) (IMMEDIATE-DEPENDENTS0 L . DIVS_L) (IMMEDIATE-DEPENDENTS0 DIVS-V . DIVS_L) (IMMEDIATE-DEPENDENTS0 B0P . DIVS_L) (DCELL . *1*DIVS_L))))) (PUT1-LST (QUOTE *1*DIVSL_L) (QUOTE (MAIN-EVENT DIVSL_L))) (PUT1-LST (QUOTE DIVSL_L) (QUOTE (TYPE-PRESCRIPTION-LST ((DIVSL_L 16 NIL NIL NIL NIL NIL)) TOTALP-LST ((DIVSL_L . T)) SDEFN (LAMBDA (SOPD DOPD DQ DR S) (IF (B0P (DIVS-V (L) SOPD (L) DOPD (L))) (UPDATE-CCR (DIVS-CVZNX (L) SOPD (L) DOPD (L) (MC-CCR S)) (WRITE-DN (L) (IQUOT (L) SOPD (L) DOPD (L)) DQ (WRITE-DN (L) (IREM (L) SOPD (L) DOPD (L)) DR S))) (HALT (QUOTE DIVS-OVERFLOW) (UPDATE-CCR (SET-V (B1) (MC-CCR S)) S)))) LISP-CODE *1*DIVSL_L SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*DIVSL_L) IMMEDIATE-DEPENDENTS0 (GCD-S0-S0-RFILE-2 GCD-S0-S0-RFILE-1 GCD-S0-S0-2 GCD-S0-S0-1 MISC-GROUP-H DIV_L-INS) EVENT (DEFN DIVSL_L (SOPD DOPD DQ DR S) (IF (B0P (DIVS-V (L) SOPD (L) DOPD (L))) (UPDATE-CCR (DIVS-CVZNX (L) SOPD (L) DOPD (L) (MC-CCR S)) (WRITE-DN (L) (IQUOT (L) SOPD (L) DOPD (L)) DQ (WRITE-DN (L) (IREM (L) SOPD (L) DOPD (L)) DR S))) (HALT (QUOTE DIVS-OVERFLOW) (UPDATE-CCR (SET-V (B1) (MC-CCR S)) S)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B1 . DIVSL_L) (IMMEDIATE-DEPENDENTS0 SET-V . DIVSL_L) (IMMEDIATE-DEPENDENTS0 HALT . DIVSL_L) (IMMEDIATE-DEPENDENTS0 IREM . DIVSL_L) (IMMEDIATE-DEPENDENTS0 IQUOT . DIVSL_L) (IMMEDIATE-DEPENDENTS0 WRITE-DN . DIVSL_L) (IMMEDIATE-DEPENDENTS0 MC-CCR . DIVSL_L) (IMMEDIATE-DEPENDENTS0 DIVS-CVZNX . DIVSL_L) (IMMEDIATE-DEPENDENTS0 UPDATE-CCR . DIVSL_L) (IMMEDIATE-DEPENDENTS0 L . DIVSL_L) (IMMEDIATE-DEPENDENTS0 DIVS-V . DIVSL_L) (IMMEDIATE-DEPENDENTS0 B0P . DIVSL_L) (DCELL . *1*DIVSL_L))))) (PUT1-LST (QUOTE *1*TST-SUBGROUP) (QUOTE (MAIN-EVENT TST-SUBGROUP))) (PUT1-LST (QUOTE TST-SUBGROUP) (QUOTE (TYPE-PRESCRIPTION-LST ((TST-SUBGROUP -1 NIL NIL)) TOTALP-LST ((TST-SUBGROUP . T)) SDEFN (LAMBDA (INS S) (IF (EQUAL (OP-LEN INS) (Q)) (IF (EQUAL (HEAD INS (QUOTE 6)) (QUOTE 60)) (HALT (QUOTE ILLEGAL-UNSPECIFIED) S) (TAS-INS INS S)) (TST-INS (OP-LEN INS) INS S))) LISP-CODE *1*TST-SUBGROUP SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214824 SATELLITES (*1*TST-SUBGROUP) IMMEDIATE-DEPENDENTS0 (GCD-S0-S0-RFILE-2 GCD-S0-S0-RFILE-1 GCD-S0-S0-2 GCD-S0-S0-1 GCD-S0-SN-BASE-RFILE-2 GCD-S0-SN-BASE-2 GCD-S0-SN-BASE-RFILE-1 GCD-S0-SN-BASE-1 MISC-GROUP-H MISC-GROUP) EVENT (DEFN TST-SUBGROUP (INS S) (IF (EQUAL (OP-LEN INS) (Q)) (IF (EQUAL (HEAD INS (QUOTE 6)) (QUOTE 60)) (HALT (QUOTE ILLEGAL-UNSPECIFIED) S) (TAS-INS INS S)) (TST-INS (OP-LEN INS) INS S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TST-INS . TST-SUBGROUP) (IMMEDIATE-DEPENDENTS0 TAS-INS . TST-SUBGROUP) (IMMEDIATE-DEPENDENTS0 HALT . TST-SUBGROUP) (IMMEDIATE-DEPENDENTS0 HEAD . TST-SUBGROUP) (IMMEDIATE-DEPENDENTS0 Q . TST-SUBGROUP) (IMMEDIATE-DEPENDENTS0 OP-LEN . TST-SUBGROUP) (DCELL . *1*TST-SUBGROUP))))) (PUT1-LST (QUOTE *1*TAS-INS) (QUOTE (MAIN-EVENT TAS-INS))) (PUT1-LST (QUOTE TAS-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((TAS-INS -1 NIL NIL)) TOTALP-LST ((TAS-INS . T)) SDEFN (LAMBDA (INS S) (IF (TAS-ADDR-MODEP INS) (IF (MC-HALTP (CAR (MC-INSTATE (B) INS S))) (CAR (MC-INSTATE (B) INS S)) (MAPPING (B) (TAS-EFFECT (OPERAND (B) (CDR (MC-INSTATE (B) INS S)) S) (MC-CCR S)) (MC-INSTATE (B) INS S))) (HALT (MODE-SIGNAL) S))) LISP-CODE *1*TAS-INS SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214824 SATELLITES (*1*TAS-INS) IMMEDIATE-DEPENDENTS0 (MISC-GROUP-H TST-SUBGROUP) EVENT (DEFN TAS-INS (INS S) (IF (TAS-ADDR-MODEP INS) (IF (MC-HALTP (CAR (MC-INSTATE (B) INS S))) (CAR (MC-INSTATE (B) INS S)) (MAPPING (B) (TAS-EFFECT (OPERAND (B) (CDR (MC-INSTATE (B) INS S)) S) (MC-CCR S)) (MC-INSTATE (B) INS S))) (HALT (MODE-SIGNAL) S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MODE-SIGNAL . TAS-INS) (IMMEDIATE-DEPENDENTS0 HALT . TAS-INS) (IMMEDIATE-DEPENDENTS0 MC-CCR . TAS-INS) (IMMEDIATE-DEPENDENTS0 OPERAND . TAS-INS) (IMMEDIATE-DEPENDENTS0 TAS-EFFECT . TAS-INS) (IMMEDIATE-DEPENDENTS0 MAPPING . TAS-INS) (IMMEDIATE-DEPENDENTS0 B . TAS-INS) (IMMEDIATE-DEPENDENTS0 MC-INSTATE . TAS-INS) (IMMEDIATE-DEPENDENTS0 MC-HALTP . TAS-INS) (IMMEDIATE-DEPENDENTS0 TAS-ADDR-MODEP . TAS-INS) (DCELL . *1*TAS-INS))))) (PUT1-LST (QUOTE *1*TAS-EFFECT) (QUOTE (MAIN-EVENT TAS-EFFECT))) (PUT1-LST (QUOTE TAS-EFFECT) (QUOTE (TYPE-PRESCRIPTION-LST ((TAS-EFFECT 16 NIL NIL)) TOTALP-LST ((TAS-EFFECT . T)) SDEFN (LAMBDA (OPD CCR) (CONS (SETN OPD (QUOTE 7) (B1)) (MOVE-CVZNX (B) OPD CCR))) LISP-CODE *1*TAS-EFFECT SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*TAS-EFFECT) IMMEDIATE-DEPENDENTS0 (MISC-GROUP-H TAS-INS) EVENT (DEFN TAS-EFFECT (OPD CCR) (CONS (SETN OPD (QUOTE 7) (B1)) (MOVE-CVZNX (B) OPD CCR))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B . TAS-EFFECT) (IMMEDIATE-DEPENDENTS0 MOVE-CVZNX . TAS-EFFECT) (IMMEDIATE-DEPENDENTS0 B1 . TAS-EFFECT) (IMMEDIATE-DEPENDENTS0 SETN . TAS-EFFECT) (DCELL . *1*TAS-EFFECT))))) (PUT1-LST (QUOTE *1*TAS-ADDR-MODEP) (QUOTE (MAIN-EVENT TAS-ADDR-MODEP))) (PUT1-LST (QUOTE TAS-ADDR-MODEP) (QUOTE (TYPE-PRESCRIPTION-LST ((TAS-ADDR-MODEP 3 NIL)) TOTALP-LST ((TAS-ADDR-MODEP . T)) SDEFN (LAMBDA (INS) (IF (DATA-ADDR-MODEP (S_MODE INS) (S_RN INS)) (ALTERABLE-ADDR-MODEP (S_MODE INS) (S_RN INS)) (QUOTE *1*FALSE))) LISP-CODE *1*TAS-ADDR-MODEP SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*TAS-ADDR-MODEP) IMMEDIATE-DEPENDENTS0 (MODE-GUARDS TAS-INS) EVENT (DEFN TAS-ADDR-MODEP (INS) (AND (DATA-ADDR-MODEP (S_MODE INS) (S_RN INS)) (ALTERABLE-ADDR-MODEP (S_MODE INS) (S_RN INS)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ALTERABLE-ADDR-MODEP . TAS-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 S_RN . TAS-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 S_MODE . TAS-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 DATA-ADDR-MODEP . TAS-ADDR-MODEP) (DCELL . *1*TAS-ADDR-MODEP))))) (PUT1-LST (QUOTE *1*TST-INS) (QUOTE (MAIN-EVENT TST-INS))) (PUT1-LST (QUOTE TST-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((TST-INS -1 NIL NIL NIL)) TOTALP-LST ((TST-INS . T)) SDEFN (LAMBDA (OPLEN INS S) (IF (TST-ADDR-MODEP OPLEN INS) (IF (MC-HALTP (CAR (MC-INSTATE OPLEN INS S))) (CAR (MC-INSTATE OPLEN INS S)) (UPDATE-CCR (MOVE-CVZNX OPLEN (OPERAND OPLEN (CDR (MC-INSTATE OPLEN INS S)) S) (MC-CCR S)) (CAR (MC-INSTATE OPLEN INS S)))) (HALT (MODE-SIGNAL) S))) LISP-CODE *1*TST-INS SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214824 SATELLITES (*1*TST-INS) IMMEDIATE-DEPENDENTS0 (GCD-S0-S0-RFILE-2 GCD-S0-S0-RFILE-1 GCD-S0-S0-2 GCD-S0-S0-1 GCD-S0-SN-BASE-RFILE-2 GCD-S0-SN-BASE-2 GCD-S0-SN-BASE-RFILE-1 GCD-S0-SN-BASE-1 MISC-GROUP-H TST-SUBGROUP) EVENT (DEFN TST-INS (OPLEN INS S) (IF (TST-ADDR-MODEP OPLEN INS) (IF (MC-HALTP (CAR (MC-INSTATE OPLEN INS S))) (CAR (MC-INSTATE OPLEN INS S)) (UPDATE-CCR (MOVE-CVZNX OPLEN (OPERAND OPLEN (CDR (MC-INSTATE OPLEN INS S)) S) (MC-CCR S)) (CAR (MC-INSTATE OPLEN INS S)))) (HALT (MODE-SIGNAL) S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MODE-SIGNAL . TST-INS) (IMMEDIATE-DEPENDENTS0 HALT . TST-INS) (IMMEDIATE-DEPENDENTS0 MC-CCR . TST-INS) (IMMEDIATE-DEPENDENTS0 OPERAND . TST-INS) (IMMEDIATE-DEPENDENTS0 MOVE-CVZNX . TST-INS) (IMMEDIATE-DEPENDENTS0 UPDATE-CCR . TST-INS) (IMMEDIATE-DEPENDENTS0 MC-INSTATE . TST-INS) (IMMEDIATE-DEPENDENTS0 MC-HALTP . TST-INS) (IMMEDIATE-DEPENDENTS0 TST-ADDR-MODEP . TST-INS) (DCELL . *1*TST-INS))))) (PUT1-LST (QUOTE *1*TST-ADDR-MODEP) (QUOTE (MAIN-EVENT TST-ADDR-MODEP))) (PUT1-LST (QUOTE TST-ADDR-MODEP) (QUOTE (TYPE-PRESCRIPTION-LST ((TST-ADDR-MODEP 3 NIL NIL)) TOTALP-LST ((TST-ADDR-MODEP . T)) SDEFN (LAMBDA (OPLEN INS) (IF (EQUAL OPLEN (B)) (DATA-ADDR-MODEP (S_MODE INS) (S_RN INS)) (ADDR-MODEP (S_MODE INS) (S_RN INS)))) LISP-CODE *1*TST-ADDR-MODEP SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*TST-ADDR-MODEP) IMMEDIATE-DEPENDENTS0 (GCD-S0-S0-RFILE-2 GCD-S0-S0-RFILE-1 GCD-S0-S0-2 GCD-S0-S0-1 GCD-S0-SN-BASE-RFILE-2 GCD-S0-SN-BASE-2 GCD-S0-SN-BASE-RFILE-1 GCD-S0-SN-BASE-1 MODE-GUARDS TST-INS) EVENT (DEFN TST-ADDR-MODEP (OPLEN INS) (IF (EQUAL OPLEN (B)) (DATA-ADDR-MODEP (S_MODE INS) (S_RN INS)) (ADDR-MODEP (S_MODE INS) (S_RN INS)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ADDR-MODEP . TST-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 S_RN . TST-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 S_MODE . TST-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 DATA-ADDR-MODEP . TST-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 B . TST-ADDR-MODEP) (DCELL . *1*TST-ADDR-MODEP))))) (PUT1-LST (QUOTE *1*EXT-SUBGROUP) (QUOTE (MAIN-EVENT EXT-SUBGROUP))) (PUT1-LST (QUOTE EXT-SUBGROUP) (QUOTE (TYPE-PRESCRIPTION-LST ((EXT-SUBGROUP -1 NIL NIL)) TOTALP-LST ((EXT-SUBGROUP . T)) SDEFN (LAMBDA (INS S) (IF (EQUAL (S_MODE INS) (QUOTE 0)) (EXT-INS INS S) (IF (PC-WORD-READP (MC-PC S) (MC-MEM S)) (IF (B0P (BITN INS (QUOTE 6))) (MOVEM-RN-EA-INS (PC-WORD-READ (MC-PC S) (MC-MEM S)) (W) INS (UPDATE-PC (ADD (L) (MC-PC S) (WSZ)) S)) (MOVEM-RN-EA-INS (PC-WORD-READ (MC-PC S) (MC-MEM S)) (L) INS (UPDATE-PC (ADD (L) (MC-PC S) (WSZ)) S))) (HALT (PC-SIGNAL) S)))) LISP-CODE *1*EXT-SUBGROUP SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214824 SATELLITES (*1*EXT-SUBGROUP) IMMEDIATE-DEPENDENTS0 (GCD-S-S0-MEM GCD-S-S0-RFILE GCD-S-S0 MISC-GROUP-H MISC-GROUP) EVENT (DEFN EXT-SUBGROUP (INS S) (IF (EQUAL (S_MODE INS) (QUOTE 0)) (EXT-INS INS S) (IF (PC-WORD-READP (MC-PC S) (MC-MEM S)) (MOVEM-RN-EA-INS (PC-WORD-READ (MC-PC S) (MC-MEM S)) (IF (B0P (BITN INS (QUOTE 6))) (W) (L)) INS (UPDATE-PC (ADD (L) (MC-PC S) (WSZ)) S)) (HALT (PC-SIGNAL) S)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PC-SIGNAL . EXT-SUBGROUP) (IMMEDIATE-DEPENDENTS0 HALT . EXT-SUBGROUP) (IMMEDIATE-DEPENDENTS0 WSZ . EXT-SUBGROUP) (IMMEDIATE-DEPENDENTS0 ADD . EXT-SUBGROUP) (IMMEDIATE-DEPENDENTS0 UPDATE-PC . EXT-SUBGROUP) (IMMEDIATE-DEPENDENTS0 L . EXT-SUBGROUP) (IMMEDIATE-DEPENDENTS0 W . EXT-SUBGROUP) (IMMEDIATE-DEPENDENTS0 BITN . EXT-SUBGROUP) (IMMEDIATE-DEPENDENTS0 B0P . EXT-SUBGROUP) (IMMEDIATE-DEPENDENTS0 PC-WORD-READ . EXT-SUBGROUP) (IMMEDIATE-DEPENDENTS0 MOVEM-RN-EA-INS . EXT-SUBGROUP) (IMMEDIATE-DEPENDENTS0 MC-MEM . EXT-SUBGROUP) (IMMEDIATE-DEPENDENTS0 MC-PC . EXT-SUBGROUP) (IMMEDIATE-DEPENDENTS0 PC-WORD-READP . EXT-SUBGROUP) (IMMEDIATE-DEPENDENTS0 EXT-INS . EXT-SUBGROUP) (IMMEDIATE-DEPENDENTS0 S_MODE . EXT-SUBGROUP) (DCELL . *1*EXT-SUBGROUP))))) (PUT1-LST (QUOTE *1*MOVEM-RN-EA-INS) (QUOTE (MAIN-EVENT MOVEM-RN-EA-INS))) (PUT1-LST (QUOTE MOVEM-RN-EA-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((MOVEM-RN-EA-INS -1 NIL NIL NIL NIL)) TOTALP-LST ((MOVEM-RN-EA-INS . T)) SDEFN (LAMBDA (MASK OPLEN INS S) (IF (PREDEC-MODEP (S_MODE INS)) (IF (WRITEMP MASK OPLEN (CDR (CDR (MOVEM-PREDEC MASK OPLEN (S_RN INS) S))) (MC-MEM S)) (WRITE-AN (L) (CDR (CDR (MOVEM-PREDEC MASK OPLEN (S_RN INS) S))) (S_RN INS) (UPDATE-MEM (WRITEM-MEM (OP-SZ OPLEN) (READM-RN OPLEN (MOVEM-PRE-RNLST MASK (QUOTE 15) (QUOTE NIL)) (MC-RFILE (CAR (MOVEM-PREDEC MASK OPLEN (S_RN INS) S)))) (CDR (CDR (MOVEM-PREDEC MASK OPLEN (S_RN INS) S))) (MC-MEM S)) (CAR (MOVEM-PREDEC MASK OPLEN (S_RN INS) S)))) (HALT (WRITE-SIGNAL) S)) (IF (MOVEM-RN-EA-ADDR-MODEP INS) (IF (MC-HALTP (CAR (EFFEC-ADDR OPLEN (S_MODE INS) (S_RN INS) S))) (CAR (EFFEC-ADDR OPLEN (S_MODE INS) (S_RN INS) S)) (IF (WRITEMP MASK OPLEN (CDR (CDR (EFFEC-ADDR OPLEN (S_MODE INS) (S_RN INS) S))) (MC-MEM S)) (UPDATE-MEM (WRITEM-MEM (OP-SZ OPLEN) (READM-RN OPLEN (MOVEM-RNLST MASK (QUOTE 0)) (MC-RFILE S)) (CDR (CDR (EFFEC-ADDR OPLEN (S_MODE INS) (S_RN INS) S))) (MC-MEM S)) (CAR (EFFEC-ADDR OPLEN (S_MODE INS) (S_RN INS) S))) (HALT (WRITE-SIGNAL) S))) (HALT (MODE-SIGNAL) S)))) LISP-CODE *1*MOVEM-RN-EA-INS SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214824 SATELLITES (*1*MOVEM-RN-EA-INS) IMMEDIATE-DEPENDENTS0 (GCD-S-S0-MEM GCD-S-S0-RFILE GCD-S-S0 MISC-GROUP-H EXT-SUBGROUP) EVENT (DEFN MOVEM-RN-EA-INS (MASK OPLEN INS S) (IF (PREDEC-MODEP (S_MODE INS)) (IF (WRITEMP MASK OPLEN (CDR (CDR (MOVEM-PREDEC MASK OPLEN (S_RN INS) S))) (MC-MEM S)) (WRITE-AN (L) (CDR (CDR (MOVEM-PREDEC MASK OPLEN (S_RN INS) S))) (S_RN INS) (UPDATE-MEM (WRITEM-MEM (OP-SZ OPLEN) (READM-RN OPLEN (MOVEM-PRE-RNLST MASK (QUOTE 15) (QUOTE NIL)) (MC-RFILE (CAR (MOVEM-PREDEC MASK OPLEN (S_RN INS) S)))) (CDR (CDR (MOVEM-PREDEC MASK OPLEN (S_RN INS) S))) (MC-MEM S)) (CAR (MOVEM-PREDEC MASK OPLEN (S_RN INS) S)))) (HALT (WRITE-SIGNAL) S)) (IF (MOVEM-RN-EA-ADDR-MODEP INS) (IF (MC-HALTP (CAR (EFFEC-ADDR OPLEN (S_MODE INS) (S_RN INS) S))) (CAR (EFFEC-ADDR OPLEN (S_MODE INS) (S_RN INS) S)) (IF (WRITEMP MASK OPLEN (CDR (CDR (EFFEC-ADDR OPLEN (S_MODE INS) (S_RN INS) S))) (MC-MEM S)) (UPDATE-MEM (WRITEM-MEM (OP-SZ OPLEN) (READM-RN OPLEN (MOVEM-RNLST MASK (QUOTE 0)) (MC-RFILE S)) (CDR (CDR (EFFEC-ADDR OPLEN (S_MODE INS) (S_RN INS) S))) (MC-MEM S)) (CAR (EFFEC-ADDR OPLEN (S_MODE INS) (S_RN INS) S))) (HALT (WRITE-SIGNAL) S))) (HALT (MODE-SIGNAL) S)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MODE-SIGNAL . MOVEM-RN-EA-INS) (IMMEDIATE-DEPENDENTS0 MOVEM-RNLST . MOVEM-RN-EA-INS) (IMMEDIATE-DEPENDENTS0 EFFEC-ADDR . MOVEM-RN-EA-INS) (IMMEDIATE-DEPENDENTS0 MC-HALTP . MOVEM-RN-EA-INS) (IMMEDIATE-DEPENDENTS0 MOVEM-RN-EA-ADDR-MODEP . MOVEM-RN-EA-INS) (IMMEDIATE-DEPENDENTS0 WRITE-SIGNAL . MOVEM-RN-EA-INS) (IMMEDIATE-DEPENDENTS0 HALT . MOVEM-RN-EA-INS) (IMMEDIATE-DEPENDENTS0 MC-RFILE . MOVEM-RN-EA-INS) (IMMEDIATE-DEPENDENTS0 MOVEM-PRE-RNLST . MOVEM-RN-EA-INS) (IMMEDIATE-DEPENDENTS0 READM-RN . MOVEM-RN-EA-INS) (IMMEDIATE-DEPENDENTS0 OP-SZ . MOVEM-RN-EA-INS) (IMMEDIATE-DEPENDENTS0 WRITEM-MEM . MOVEM-RN-EA-INS) (IMMEDIATE-DEPENDENTS0 UPDATE-MEM . MOVEM-RN-EA-INS) (IMMEDIATE-DEPENDENTS0 L . MOVEM-RN-EA-INS) (IMMEDIATE-DEPENDENTS0 WRITE-AN . MOVEM-RN-EA-INS) (IMMEDIATE-DEPENDENTS0 MC-MEM . MOVEM-RN-EA-INS) (IMMEDIATE-DEPENDENTS0 S_RN . MOVEM-RN-EA-INS) (IMMEDIATE-DEPENDENTS0 MOVEM-PREDEC . MOVEM-RN-EA-INS) (IMMEDIATE-DEPENDENTS0 WRITEMP . MOVEM-RN-EA-INS) (IMMEDIATE-DEPENDENTS0 S_MODE . MOVEM-RN-EA-INS) (IMMEDIATE-DEPENDENTS0 PREDEC-MODEP . MOVEM-RN-EA-INS) (DCELL . *1*MOVEM-RN-EA-INS))))) (PUT1-LST (QUOTE *1*MOVEM-RN-EA-ADDR-MODEP) (QUOTE (MAIN-EVENT MOVEM-RN-EA-ADDR-MODEP))) (PUT1-LST (QUOTE MOVEM-RN-EA-ADDR-MODEP) (QUOTE (TYPE-PRESCRIPTION-LST ((MOVEM-RN-EA-ADDR-MODEP 3 NIL)) TOTALP-LST ((MOVEM-RN-EA-ADDR-MODEP . T)) SDEFN (LAMBDA (INS) (IF (ALTERABLE-ADDR-MODEP (S_MODE INS) (S_RN INS)) (CONTROL-ADDR-MODEP (S_MODE INS) (S_RN INS)) (QUOTE *1*FALSE))) LISP-CODE *1*MOVEM-RN-EA-ADDR-MODEP SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*MOVEM-RN-EA-ADDR-MODEP) IMMEDIATE-DEPENDENTS0 (MODE-GUARDS MOVEM-RN-EA-INS) EVENT (DEFN MOVEM-RN-EA-ADDR-MODEP (INS) (AND (ALTERABLE-ADDR-MODEP (S_MODE INS) (S_RN INS)) (CONTROL-ADDR-MODEP (S_MODE INS) (S_RN INS)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CONTROL-ADDR-MODEP . MOVEM-RN-EA-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 S_RN . MOVEM-RN-EA-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 S_MODE . MOVEM-RN-EA-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 ALTERABLE-ADDR-MODEP . MOVEM-RN-EA-ADDR-MODEP) (DCELL . *1*MOVEM-RN-EA-ADDR-MODEP))))) (PUT1-LST (QUOTE *1*MOVEM-PREDEC) (QUOTE (MAIN-EVENT MOVEM-PREDEC))) (PUT1-LST (QUOTE MOVEM-PREDEC) (QUOTE (TYPE-PRESCRIPTION-LST ((MOVEM-PREDEC 16 NIL NIL NIL NIL)) TOTALP-LST ((MOVEM-PREDEC . T)) SDEFN (LAMBDA (MASK OPLEN RN S) (CONS (WRITE-AN (L) (PRE-EFFECT OPLEN RN (READ-AN (L) RN S)) RN S) (CONS (QUOTE M) (SUB (L) (TIMES (OP-SZ OPLEN) (MOVEM-LEN MASK)) (READ-AN (L) RN S))))) LISP-CODE *1*MOVEM-PREDEC SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*MOVEM-PREDEC) IMMEDIATE-DEPENDENTS0 (GCD-S-S0-MEM GCD-S-S0-RFILE GCD-S-S0 MISC-GROUP-H MOVEM-RN-EA-INS) EVENT (DEFN MOVEM-PREDEC (MASK OPLEN RN S) (CONS (WRITE-AN (L) (PRE-EFFECT OPLEN RN (READ-AN (L) RN S)) RN S) (CONS (QUOTE M) (SUB (L) (TIMES (OP-SZ OPLEN) (MOVEM-LEN MASK)) (READ-AN (L) RN S))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MOVEM-LEN . MOVEM-PREDEC) (IMMEDIATE-DEPENDENTS0 OP-SZ . MOVEM-PREDEC) (IMMEDIATE-DEPENDENTS0 SUB . MOVEM-PREDEC) (IMMEDIATE-DEPENDENTS0 READ-AN . MOVEM-PREDEC) (IMMEDIATE-DEPENDENTS0 PRE-EFFECT . MOVEM-PREDEC) (IMMEDIATE-DEPENDENTS0 L . MOVEM-PREDEC) (IMMEDIATE-DEPENDENTS0 WRITE-AN . MOVEM-PREDEC) (DCELL . *1*MOVEM-PREDEC))))) (PUT1-LST (QUOTE *1*MOVEM-PRE-RNLST) (QUOTE (MAIN-EVENT MOVEM-PRE-RNLST))) (PUT1-LST (QUOTE MOVEM-PRE-RNLST) (QUOTE (TYPE-PRESCRIPTION-LST ((MOVEM-PRE-RNLST 16 NIL NIL T)) TOTALP-LST ((MOVEM-PRE-RNLST . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE QUESTIONABLE) SDEFN (LAMBDA (MASK I LST) (IF (EQUAL MASK (QUOTE 0)) LST (IF (NUMBERP MASK) (IF (B0P (BCAR MASK)) (MOVEM-PRE-RNLST (BCDR MASK) (SUB1 I) LST) (MOVEM-PRE-RNLST (BCDR MASK) (SUB1 I) (CONS I LST))) LST))) LISP-CODE *1*MOVEM-PRE-RNLST SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((ZEROP MASK)) NIL) (TESTS-AND-CASES ((NOT (ZEROP MASK)) (B0P (BCAR MASK))) (((BCDR MASK) (SUB1 I) LST))) (TESTS-AND-CASES ((NOT (ZEROP MASK)) (NOT (B0P (BCAR MASK)))) (((BCDR MASK) (SUB1 I) (CONS I LST))))) LEVEL-NO 3 JUSTIFICATIONS ((JUSTIFICATION (MASK) (COUNT MASK) LESSP (ZEROP BCAR B0 B0P BCDR COUNT-NUMBERP EQUAL NUMBERP ZERO TIMES-LESSP QUOTIENT-TIMES-LESSP))) IDATE 1000402214824 CONTROLLER-POCKETS (1) SATELLITES (*1*MOVEM-PRE-RNLST) IMMEDIATE-DEPENDENTS0 (GCD-S-S0-MEM GCD-S-S0-RFILE GCD-S-S0 MOVEM-PRE-RNLST-LEN MOVEM-RN-EA-INS) EVENT (DEFN MOVEM-PRE-RNLST (MASK I LST) (IF (ZEROP MASK) LST (IF (B0P (BCAR MASK)) (MOVEM-PRE-RNLST (BCDR MASK) (SUB1 I) LST) (MOVEM-PRE-RNLST (BCDR MASK) (SUB1 I) (CONS I LST))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BCAR . MOVEM-PRE-RNLST) (IMMEDIATE-DEPENDENTS0 B0 . MOVEM-PRE-RNLST) (IMMEDIATE-DEPENDENTS0 B0P . MOVEM-PRE-RNLST) (IMMEDIATE-DEPENDENTS0 BCDR . MOVEM-PRE-RNLST) (IMMEDIATE-DEPENDENTS0 TIMES-LESSP . MOVEM-PRE-RNLST) (IMMEDIATE-DEPENDENTS0 QUOTIENT-TIMES-LESSP . MOVEM-PRE-RNLST) (DCELL . *1*MOVEM-PRE-RNLST))))) (PUT1-LST (QUOTE *1*WRITEMP) (QUOTE (MAIN-EVENT WRITEMP))) (PUT1-LST (QUOTE WRITEMP) (QUOTE (TYPE-PRESCRIPTION-LST ((WRITEMP 3 NIL NIL NIL NIL)) TOTALP-LST ((WRITEMP . T)) SDEFN (LAMBDA (MASK OPLEN ADDR MEM) (WRITE-MEMP ADDR MEM (TIMES (OP-SZ OPLEN) (MOVEM-LEN MASK)))) LISP-CODE *1*WRITEMP SUBRP *1*FALSE LEVEL-NO 5 IDATE 1000402214824 SATELLITES (*1*WRITEMP) IMMEDIATE-DEPENDENTS0 (GCD-S-S0-MEM GCD-S-S0-RFILE GCD-S-S0 MISC-GROUP-H MOVEM-RN-EA-INS) EVENT (DEFN WRITEMP (MASK OPLEN ADDR MEM) (WRITE-MEMP ADDR MEM (TIMES (OP-SZ OPLEN) (MOVEM-LEN MASK)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MOVEM-LEN . WRITEMP) (IMMEDIATE-DEPENDENTS0 OP-SZ . WRITEMP) (IMMEDIATE-DEPENDENTS0 WRITE-MEMP . WRITEMP) (DCELL . *1*WRITEMP))))) (PUT1-LST (QUOTE *1*MOVEM-LEN) (QUOTE (MAIN-EVENT MOVEM-LEN))) (PUT1-LST (QUOTE MOVEM-LEN) (QUOTE (TYPE-PRESCRIPTION-LST ((MOVEM-LEN 4 NIL)) TOTALP-LST ((MOVEM-LEN . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE) SDEFN (LAMBDA (MASK) (IF (EQUAL MASK (QUOTE 0)) (QUOTE 0) (IF (NUMBERP MASK) (IF (B0P (BCAR MASK)) (MOVEM-LEN (BCDR MASK)) (ADD1 (MOVEM-LEN (BCDR MASK)))) (QUOTE 0)))) LISP-CODE *1*MOVEM-LEN SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((ZEROP MASK)) NIL) (TESTS-AND-CASES ((NOT (ZEROP MASK)) (B0P (BCAR MASK))) (((BCDR MASK)))) (TESTS-AND-CASES ((NOT (ZEROP MASK)) (NOT (B0P (BCAR MASK)))) (((BCDR MASK))))) LEVEL-NO 3 JUSTIFICATIONS ((JUSTIFICATION (MASK) (COUNT MASK) LESSP (ZEROP BCAR B0 B0P BCDR COUNT-NUMBERP EQUAL NUMBERP ZERO TIMES-LESSP QUOTIENT-TIMES-LESSP))) IDATE 1000402214824 CONTROLLER-POCKETS (1) SATELLITES (*1*MOVEM-LEN) IMMEDIATE-DEPENDENTS0 (GCD-S0-SN-BASE-RFILE-2 GCD-S0-SN-BASE-2 GCD-S0-SN-BASE-RFILE-1 GCD-S0-SN-BASE-1 GCD-S-S0-MEM GCD-S-S0-RFILE GCD-S-S0 MOVEM-PRE-RNLST-LEN MOVEM-RNLST-LEN MOVEM-EA-RN-INS READMP MOVEM-PREDEC WRITEMP) EVENT (DEFN MOVEM-LEN (MASK) (IF (ZEROP MASK) (QUOTE 0) (IF (B0P (BCAR MASK)) (MOVEM-LEN (BCDR MASK)) (ADD1 (MOVEM-LEN (BCDR MASK)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BCAR . MOVEM-LEN) (IMMEDIATE-DEPENDENTS0 B0 . MOVEM-LEN) (IMMEDIATE-DEPENDENTS0 B0P . MOVEM-LEN) (IMMEDIATE-DEPENDENTS0 BCDR . MOVEM-LEN) (IMMEDIATE-DEPENDENTS0 TIMES-LESSP . MOVEM-LEN) (IMMEDIATE-DEPENDENTS0 QUOTIENT-TIMES-LESSP . MOVEM-LEN) (DCELL . *1*MOVEM-LEN))))) (PUT1-LST (QUOTE *1*MOVEM-RNLST) (QUOTE (MAIN-EVENT MOVEM-RNLST))) (PUT1-LST (QUOTE MOVEM-RNLST) (QUOTE (TYPE-PRESCRIPTION-LST ((MOVEM-RNLST 24 NIL NIL)) TOTALP-LST ((MOVEM-RNLST . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE) SDEFN (LAMBDA (MASK I) (IF (EQUAL MASK (QUOTE 0)) (QUOTE NIL) (IF (NUMBERP MASK) (IF (B0P (BCAR MASK)) (MOVEM-RNLST (BCDR MASK) (ADD1 I)) (CONS I (MOVEM-RNLST (BCDR MASK) (ADD1 I)))) (QUOTE NIL)))) LISP-CODE *1*MOVEM-RNLST SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((ZEROP MASK)) NIL) (TESTS-AND-CASES ((NOT (ZEROP MASK)) (B0P (BCAR MASK))) (((BCDR MASK) (ADD1 I)))) (TESTS-AND-CASES ((NOT (ZEROP MASK)) (NOT (B0P (BCAR MASK)))) (((BCDR MASK) (ADD1 I))))) LEVEL-NO 3 JUSTIFICATIONS ((JUSTIFICATION (MASK) (COUNT MASK) LESSP (ZEROP BCAR B0 B0P BCDR COUNT-NUMBERP EQUAL NUMBERP ZERO TIMES-LESSP QUOTIENT-TIMES-LESSP))) IDATE 1000402214824 CONTROLLER-POCKETS (1) SATELLITES (*1*MOVEM-RNLST) IMMEDIATE-DEPENDENTS0 (GCD-S0-SN-BASE-RFILE-2 GCD-S0-SN-BASE-2 GCD-S0-SN-BASE-RFILE-1 GCD-S0-SN-BASE-1 MOVEM-RNLST-LEN MOVEM-EA-RN-INS MOVEM-RN-EA-INS) EVENT (DEFN MOVEM-RNLST (MASK I) (IF (ZEROP MASK) (QUOTE NIL) (IF (B0P (BCAR MASK)) (MOVEM-RNLST (BCDR MASK) (ADD1 I)) (CONS I (MOVEM-RNLST (BCDR MASK) (ADD1 I)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BCAR . MOVEM-RNLST) (IMMEDIATE-DEPENDENTS0 B0 . MOVEM-RNLST) (IMMEDIATE-DEPENDENTS0 B0P . MOVEM-RNLST) (IMMEDIATE-DEPENDENTS0 BCDR . MOVEM-RNLST) (IMMEDIATE-DEPENDENTS0 TIMES-LESSP . MOVEM-RNLST) (IMMEDIATE-DEPENDENTS0 QUOTIENT-TIMES-LESSP . MOVEM-RNLST) (DCELL . *1*MOVEM-RNLST))))) (PUT1-LST (QUOTE *1*WRITEM-RN) (QUOTE (MAIN-EVENT WRITEM-RN))) (PUT1-LST (QUOTE WRITEM-RN) (QUOTE (TYPE-PRESCRIPTION-LST ((WRITEM-RN 16 NIL NIL NIL T)) TOTALP-LST ((WRITEM-RN . T)) QUICK-BLOCK-INFO (UNCHANGING SELF-REFLEXIVE SELF-REFLEXIVE SELF-REFLEXIVE) SDEFN (LAMBDA (OPLEN VLST RNLST RFILE) (IF (LISTP RNLST) (WRITEM-RN OPLEN (CDR VLST) (CDR RNLST) (WRITE-RN (L) (EXT OPLEN (CAR VLST) (L)) (CAR RNLST) RFILE)) RFILE)) LISP-CODE *1*WRITEM-RN SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((LISTP RNLST)) ((OPLEN (CDR VLST) (CDR RNLST) (WRITE-RN (L) (EXT OPLEN (CAR VLST) (L)) (CAR RNLST) RFILE)))) (TESTS-AND-CASES ((NOT (LISTP RNLST))) NIL)) LEVEL-NO 4 JUSTIFICATIONS ((JUSTIFICATION (RNLST) (COUNT RNLST) LESSP (ZERO CDR-LESSP))) IDATE 1000402214824 CONTROLLER-POCKETS (4) SATELLITES (*1*WRITEM-RN) IMMEDIATE-DEPENDENTS0 (WRITEM-RN-OFF READ-WRITEM-RN READ-WRITEM-RN-END MOVEM-EA-RN-INS) EVENT (DEFN WRITEM-RN (OPLEN VLST RNLST RFILE) (IF (LISTP RNLST) (WRITEM-RN OPLEN (CDR VLST) (CDR RNLST) (WRITE-RN (L) (EXT OPLEN (CAR VLST) (L)) (CAR RNLST) RFILE)) RFILE)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EXT . WRITEM-RN) (IMMEDIATE-DEPENDENTS0 L . WRITEM-RN) (IMMEDIATE-DEPENDENTS0 WRITE-RN . WRITEM-RN) (DCELL . *1*WRITEM-RN))))) (PUT1-LST (QUOTE *1*READM-RN) (QUOTE (MAIN-EVENT READM-RN))) (PUT1-LST (QUOTE READM-RN) (QUOTE (TYPE-PRESCRIPTION-LST ((READM-RN 24 NIL NIL NIL)) LEMMAS ((REWRITE-RULE READM-WRITE-RN ((NOT (N-MEMBER RN RNLST))) (EQUAL (READM-RN N1 RNLST (WRITE-RN N2 VALUE RN RFILE)) (READM-RN N1 RNLST RFILE)) NIL)) TOTALP-LST ((READM-RN . T)) QUICK-BLOCK-INFO (UNCHANGING SELF-REFLEXIVE UNCHANGING) SDEFN (LAMBDA (OPLEN RNLST RFILE) (IF (LISTP RNLST) (CONS (READ-RN OPLEN (CAR RNLST) RFILE) (READM-RN OPLEN (CDR RNLST) RFILE)) (QUOTE NIL))) LISP-CODE *1*READM-RN SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((LISTP RNLST)) ((OPLEN (CDR RNLST) RFILE))) (TESTS-AND-CASES ((NOT (LISTP RNLST))) NIL)) LEVEL-NO 4 JUSTIFICATIONS ((JUSTIFICATION (RNLST) (COUNT RNLST) LESSP (ZERO CDR-LESSP))) IDATE 1000402214824 CONTROLLER-POCKETS (2) SATELLITES (*1*READM-RN) IMMEDIATE-DEPENDENTS0 (GCD-S-S0 READM-RN-OFF MODN-READM-RN GET-VLST-READM-RN READM-WRITE-RN READM-RN-LEN MOVEM-RN-EA-INS) EVENT (DEFN READM-RN (OPLEN RNLST RFILE) (IF (LISTP RNLST) (CONS (READ-RN OPLEN (CAR RNLST) RFILE) (READM-RN OPLEN (CDR RNLST) RFILE)) (QUOTE NIL))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 READ-RN . READM-RN) (DCELL . *1*READM-RN))))) (PUT1-LST (QUOTE *1*WRITEM-MEM) (QUOTE (MAIN-EVENT WRITEM-MEM))) (PUT1-LST (QUOTE WRITEM-MEM) (QUOTE (TYPE-PRESCRIPTION-LST ((WRITEM-MEM 16 NIL NIL NIL T)) TOTALP-LST ((WRITEM-MEM . T)) QUICK-BLOCK-INFO (UNCHANGING SELF-REFLEXIVE SELF-REFLEXIVE SELF-REFLEXIVE) SDEFN (LAMBDA (OPSZ VLST ADDR MEM) (IF (LISTP VLST) (WRITEM-MEM OPSZ (CDR VLST) (ADD (L) ADDR OPSZ) (WRITE-MEM (CAR VLST) ADDR MEM OPSZ)) MEM)) LISP-CODE *1*WRITEM-MEM SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((LISTP VLST)) ((OPSZ (CDR VLST) (ADD (L) ADDR OPSZ) (WRITE-MEM (CAR VLST) ADDR MEM OPSZ)))) (TESTS-AND-CASES ((NOT (LISTP VLST))) NIL)) LEVEL-NO 6 JUSTIFICATIONS ((JUSTIFICATION (VLST) (COUNT VLST) LESSP (ZERO CDR-LESSP))) IDATE 1000402214824 CONTROLLER-POCKETS (2) SATELLITES (*1*WRITEM-MEM) IMMEDIATE-DEPENDENTS0 (WRITEM-MEM-H READM-WRITEM-MEM READ-WRITEM-MEM WRITEM-ELSE-MEM-ILST WRITEM-ELSE-MEM-LST WRITEM-MEM-MCODE-ADDRP PC-READ-MEM-WRITEM-MEM WRITEM-MEM-MAINTAIN-RAM-ADDRP WRITEM-MEM-MAINTAIN-ROM-ADDRP WRITEM-MEM-MAINTAIN-WRITE-MEMP WRITEM-MEM-MAINTAIN-BYTE-WRITEP WRITEM-MEM-MAINTAIN-READ-MEMP WRITEM-MEM-MAINTAIN-BYTE-READP WRITEM-MEM-MAINTAIN-PC-READ-MEMP WRITEM-MEM-MAINTAIN-PC-BYTE-READP MOVEM-RN-EA-INS) EVENT (DEFN WRITEM-MEM (OPSZ VLST ADDR MEM) (IF (LISTP VLST) (WRITEM-MEM OPSZ (CDR VLST) (ADD (L) ADDR OPSZ) (WRITE-MEM (CAR VLST) ADDR MEM OPSZ)) MEM)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 WRITE-MEM . WRITEM-MEM) (IMMEDIATE-DEPENDENTS0 L . WRITEM-MEM) (IMMEDIATE-DEPENDENTS0 ADD . WRITEM-MEM) (DCELL . *1*WRITEM-MEM))))) (PUT1-LST (QUOTE *1*READM-MEM) (QUOTE (MAIN-EVENT READM-MEM))) (PUT1-LST (QUOTE READM-MEM) (QUOTE (TYPE-PRESCRIPTION-LST ((READM-MEM 24 NIL NIL NIL NIL)) LEMMAS ((REWRITE-RULE STEPN-READM-MEM ((EQUAL (READ-MEM X (MC-MEM (STEPN S N)) (TIMES OPSZ K)) (READ-MEM X (MC-MEM S) (TIMES OPSZ K)))) (EQUAL (READM-MEM OPSZ X (MC-MEM (STEPN S N)) K) (READM-MEM OPSZ X (MC-MEM S) K)) NIL) (REWRITE-RULE READM-WRITEM-MEM ((UINT-RANGEP (TIMES OPSZ N) (QUOTE 32)) (EQUAL N (LEN VLST))) (EQUAL (READM-MEM OPSZ ADDR (WRITEM-MEM OPSZ VLST ADDR MEM) N) (MODN-LST (TIMES (QUOTE 8) OPSZ) VLST)) NIL) (REWRITE-RULE READM-WRITE-MEM ((DISJOINT ADDR (TIMES OPSZ N) ADDR1 K)) (EQUAL (READM-MEM OPSZ ADDR (WRITE-MEM VALUE ADDR1 MEM K) N) (READM-MEM OPSZ ADDR MEM N)) NIL) (REWRITE-RULE HEAD-READM-MEM NIL (EQUAL (READM-MEM OPSZ (HEAD X (QUOTE 32)) MEM N) (READM-MEM OPSZ X MEM N)) NIL)) TOTALP-LST ((READM-MEM . T)) QUICK-BLOCK-INFO (UNCHANGING SELF-REFLEXIVE UNCHANGING SELF-REFLEXIVE) SDEFN (LAMBDA (OPSZ ADDR MEM N) (IF (EQUAL N (QUOTE 0)) (QUOTE NIL) (IF (NUMBERP N) (CONS (READ-MEM ADDR MEM OPSZ) (READM-MEM OPSZ (ADD (L) ADDR OPSZ) MEM (SUB1 N))) (QUOTE NIL)))) LISP-CODE *1*READM-MEM SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((ZEROP N)) NIL) (TESTS-AND-CASES ((NOT (ZEROP N))) ((OPSZ (ADD (L) ADDR OPSZ) MEM (SUB1 N))))) LEVEL-NO 6 JUSTIFICATIONS ((JUSTIFICATION (N) (COUNT N) LESSP (ZEROP COUNT-NUMBERP LESSP-SUB1))) IDATE 1000402214824 CONTROLLER-POCKETS (8) SATELLITES (*1*READM-MEM) IMMEDIATE-DEPENDENTS0 (MOVEM-SAVED STEPN-MEM-ILST STEPN-MEM-LST STEPN-READM-MEM READM-WRITEM-MEM READM-WRITE-MEM READM-MEM-LST HEAD-READM-MEM MOVEM-EA-RN-INS) EVENT (DEFN READM-MEM (OPSZ ADDR MEM N) (IF (ZEROP N) (QUOTE NIL) (CONS (READ-MEM ADDR MEM OPSZ) (READM-MEM OPSZ (ADD (L) ADDR OPSZ) MEM (SUB1 N))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 L . READM-MEM) (IMMEDIATE-DEPENDENTS0 ADD . READM-MEM) (IMMEDIATE-DEPENDENTS0 READ-MEM . READM-MEM) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . READM-MEM) (DCELL . *1*READM-MEM))))) (PUT1-LST (QUOTE *1*EXT-INS) (QUOTE (MAIN-EVENT EXT-INS))) (PUT1-LST (QUOTE EXT-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((EXT-INS 16 NIL NIL)) TOTALP-LST ((EXT-INS . T)) SDEFN (LAMBDA (INS S) (IF (B0P (BITN INS (QUOTE 6))) (D-MAPPING (W) (EXT-EFFECT (B) (READ-DN (B) (S_RN INS) S) (W) (MC-CCR S)) (S_RN INS) S) (D-MAPPING (L) (EXT-EFFECT (W) (READ-DN (W) (S_RN INS) S) (L) (MC-CCR S)) (S_RN INS) S))) LISP-CODE *1*EXT-INS SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*EXT-INS) IMMEDIATE-DEPENDENTS0 (MISC-GROUP-H EXT-SUBGROUP) EVENT (DEFN EXT-INS (INS S) (IF (B0P (BITN INS (QUOTE 6))) (D-MAPPING (W) (EXT-EFFECT (B) (READ-DN (B) (S_RN INS) S) (W) (MC-CCR S)) (S_RN INS) S) (D-MAPPING (L) (EXT-EFFECT (W) (READ-DN (W) (S_RN INS) S) (L) (MC-CCR S)) (S_RN INS) S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 L . EXT-INS) (IMMEDIATE-DEPENDENTS0 MC-CCR . EXT-INS) (IMMEDIATE-DEPENDENTS0 S_RN . EXT-INS) (IMMEDIATE-DEPENDENTS0 READ-DN . EXT-INS) (IMMEDIATE-DEPENDENTS0 B . EXT-INS) (IMMEDIATE-DEPENDENTS0 EXT-EFFECT . EXT-INS) (IMMEDIATE-DEPENDENTS0 W . EXT-INS) (IMMEDIATE-DEPENDENTS0 D-MAPPING . EXT-INS) (IMMEDIATE-DEPENDENTS0 BITN . EXT-INS) (IMMEDIATE-DEPENDENTS0 B0P . EXT-INS) (DCELL . *1*EXT-INS))))) (PUT1-LST (QUOTE *1*PEA-SUBGROUP) (QUOTE (MAIN-EVENT PEA-SUBGROUP))) (PUT1-LST (QUOTE PEA-SUBGROUP) (QUOTE (TYPE-PRESCRIPTION-LST ((PEA-SUBGROUP -1 NIL NIL)) TOTALP-LST ((PEA-SUBGROUP . T)) SDEFN (LAMBDA (INS S) (IF (LESSP (S_MODE INS) (QUOTE 2)) (IF (EQUAL (S_MODE INS) (QUOTE 0)) (SWAP-INS INS S) (HALT (QUOTE BKPT-UNSPECIFIED) S)) (PEA-INS (S_MODE INS) INS S))) LISP-CODE *1*PEA-SUBGROUP SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214824 SATELLITES (*1*PEA-SUBGROUP) IMMEDIATE-DEPENDENTS0 (MISC-GROUP-H MISC-GROUP) EVENT (DEFN PEA-SUBGROUP (INS S) (IF (LESSP (S_MODE INS) (QUOTE 2)) (IF (EQUAL (S_MODE INS) (QUOTE 0)) (SWAP-INS INS S) (HALT (QUOTE BKPT-UNSPECIFIED) S)) (PEA-INS (S_MODE INS) INS S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PEA-INS . PEA-SUBGROUP) (IMMEDIATE-DEPENDENTS0 HALT . PEA-SUBGROUP) (IMMEDIATE-DEPENDENTS0 SWAP-INS . PEA-SUBGROUP) (IMMEDIATE-DEPENDENTS0 S_MODE . PEA-SUBGROUP) (DCELL . *1*PEA-SUBGROUP))))) (PUT1-LST (QUOTE *1*SWAP-INS) (QUOTE (MAIN-EVENT SWAP-INS))) (PUT1-LST (QUOTE SWAP-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((SWAP-INS 16 NIL NIL)) TOTALP-LST ((SWAP-INS . T)) SDEFN (LAMBDA (INS S) (D-MAPPING (L) (SWAP-EFFECT (READ-DN (L) (S_RN INS) S) (MC-CCR S)) (S_RN INS) S)) LISP-CODE *1*SWAP-INS SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*SWAP-INS) IMMEDIATE-DEPENDENTS0 (MISC-GROUP-H PEA-SUBGROUP) EVENT (DEFN SWAP-INS (INS S) (D-MAPPING (L) (SWAP-EFFECT (READ-DN (L) (S_RN INS) S) (MC-CCR S)) (S_RN INS) S)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MC-CCR . SWAP-INS) (IMMEDIATE-DEPENDENTS0 S_RN . SWAP-INS) (IMMEDIATE-DEPENDENTS0 READ-DN . SWAP-INS) (IMMEDIATE-DEPENDENTS0 SWAP-EFFECT . SWAP-INS) (IMMEDIATE-DEPENDENTS0 L . SWAP-INS) (IMMEDIATE-DEPENDENTS0 D-MAPPING . SWAP-INS) (DCELL . *1*SWAP-INS))))) (PUT1-LST (QUOTE *1*SWAP-EFFECT) (QUOTE (MAIN-EVENT SWAP-EFFECT))) (PUT1-LST (QUOTE SWAP-EFFECT) (QUOTE (TYPE-PRESCRIPTION-LST ((SWAP-EFFECT 16 NIL NIL)) TOTALP-LST ((SWAP-EFFECT . T)) SDEFN (LAMBDA (OPD CCR) (CONS (APP (W) (TAIL OPD (W)) (HEAD OPD (W))) (SWAP-CVZNX OPD CCR))) LISP-CODE *1*SWAP-EFFECT SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*SWAP-EFFECT) IMMEDIATE-DEPENDENTS0 (MISC-GROUP-H SWAP-INS) EVENT (DEFN SWAP-EFFECT (OPD CCR) (CONS (APP (W) (TAIL OPD (W)) (HEAD OPD (W))) (SWAP-CVZNX OPD CCR))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SWAP-CVZNX . SWAP-EFFECT) (IMMEDIATE-DEPENDENTS0 HEAD . SWAP-EFFECT) (IMMEDIATE-DEPENDENTS0 TAIL . SWAP-EFFECT) (IMMEDIATE-DEPENDENTS0 W . SWAP-EFFECT) (IMMEDIATE-DEPENDENTS0 APP . SWAP-EFFECT) (DCELL . *1*SWAP-EFFECT))))) (PUT1-LST (QUOTE *1*SWAP-CVZNX) (QUOTE (MAIN-EVENT SWAP-CVZNX))) (PUT1-LST (QUOTE SWAP-CVZNX) (QUOTE (TYPE-PRESCRIPTION-LST ((SWAP-CVZNX 4 NIL NIL)) TOTALP-LST ((SWAP-CVZNX . T)) SDEFN (LAMBDA (OPD CCR) (CVZNX (B0) (B0) (SWAP-Z OPD) (SWAP-N OPD) (CCR-X CCR))) LISP-CODE *1*SWAP-CVZNX SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*SWAP-CVZNX) IMMEDIATE-DEPENDENTS0 (MISC-GROUP-H SWAP-EFFECT) EVENT (DEFN SWAP-CVZNX (OPD CCR) (CVZNX (B0) (B0) (SWAP-Z OPD) (SWAP-N OPD) (CCR-X CCR))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CCR-X . SWAP-CVZNX) (IMMEDIATE-DEPENDENTS0 SWAP-N . SWAP-CVZNX) (IMMEDIATE-DEPENDENTS0 SWAP-Z . SWAP-CVZNX) (IMMEDIATE-DEPENDENTS0 B0 . SWAP-CVZNX) (IMMEDIATE-DEPENDENTS0 CVZNX . SWAP-CVZNX) (DCELL . *1*SWAP-CVZNX))))) (PUT1-LST (QUOTE *1*SWAP-N) (QUOTE (MAIN-EVENT SWAP-N))) (PUT1-LST (QUOTE SWAP-N) (QUOTE (TYPE-PRESCRIPTION-LST ((SWAP-N 4 NIL)) TOTALP-LST ((SWAP-N . T)) SDEFN (LAMBDA (OPD) (BITN OPD (QUOTE 15))) LISP-CODE *1*SWAP-N SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*SWAP-N) IMMEDIATE-DEPENDENTS0 (SWAP-N-OFF SWAP-N-BITP SWAP-CVZNX) EVENT (DEFN SWAP-N (OPD) (BITN OPD (QUOTE 15))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BITN . SWAP-N) (DCELL . *1*SWAP-N))))) (PUT1-LST (QUOTE *1*SWAP-Z) (QUOTE (MAIN-EVENT SWAP-Z))) (PUT1-LST (QUOTE SWAP-Z) (QUOTE (TYPE-PRESCRIPTION-LST ((SWAP-Z 4 NIL)) TOTALP-LST ((SWAP-Z . T)) SDEFN (LAMBDA (OPD) (IF (NUMBERP OPD) (IF (EQUAL OPD (QUOTE 0)) (B1) (B0)) (B1))) LISP-CODE *1*SWAP-Z SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402214824 SATELLITES (*1*SWAP-Z) IMMEDIATE-DEPENDENTS0 (SWAP-Z-OFF SWAP-Z-BITP SWAP-CVZNX) EVENT (DEFN SWAP-Z (OPD) (IF (EQUAL (FIX OPD) (QUOTE 0)) (B1) (B0))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B0 . SWAP-Z) (IMMEDIATE-DEPENDENTS0 B1 . SWAP-Z) (DCELL . *1*SWAP-Z))))) (PUT1-LST (QUOTE *1*PEA-INS) (QUOTE (MAIN-EVENT PEA-INS))) (PUT1-LST (QUOTE PEA-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((PEA-INS -1 NIL NIL NIL)) TOTALP-LST ((PEA-INS . T)) SDEFN (LAMBDA (SMODE INS S) (IF (PEA-ADDR-MODEP INS) (IF (MC-HALTP (CAR (EFFEC-ADDR (L) SMODE (S_RN INS) S))) (CAR (EFFEC-ADDR (L) SMODE (S_RN INS) S)) (PUSH-SP (LSZ) (CDR (CDR (EFFEC-ADDR (L) SMODE (S_RN INS) S))) (CAR (EFFEC-ADDR (L) SMODE (S_RN INS) S)))) (HALT (MODE-SIGNAL) S))) LISP-CODE *1*PEA-INS SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214824 SATELLITES (*1*PEA-INS) IMMEDIATE-DEPENDENTS0 (MISC-GROUP-H PEA-SUBGROUP) EVENT (DEFN PEA-INS (SMODE INS S) (IF (PEA-ADDR-MODEP INS) (IF (MC-HALTP (CAR (EFFEC-ADDR (L) SMODE (S_RN INS) S))) (CAR (EFFEC-ADDR (L) SMODE (S_RN INS) S)) (PUSH-SP (LSZ) (CDR (CDR (EFFEC-ADDR (L) SMODE (S_RN INS) S))) (CAR (EFFEC-ADDR (L) SMODE (S_RN INS) S)))) (HALT (MODE-SIGNAL) S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MODE-SIGNAL . PEA-INS) (IMMEDIATE-DEPENDENTS0 HALT . PEA-INS) (IMMEDIATE-DEPENDENTS0 LSZ . PEA-INS) (IMMEDIATE-DEPENDENTS0 PUSH-SP . PEA-INS) (IMMEDIATE-DEPENDENTS0 S_RN . PEA-INS) (IMMEDIATE-DEPENDENTS0 L . PEA-INS) (IMMEDIATE-DEPENDENTS0 EFFEC-ADDR . PEA-INS) (IMMEDIATE-DEPENDENTS0 MC-HALTP . PEA-INS) (IMMEDIATE-DEPENDENTS0 PEA-ADDR-MODEP . PEA-INS) (DCELL . *1*PEA-INS))))) (PUT1-LST (QUOTE *1*PEA-ADDR-MODEP) (QUOTE (MAIN-EVENT PEA-ADDR-MODEP))) (PUT1-LST (QUOTE PEA-ADDR-MODEP) (QUOTE (TYPE-PRESCRIPTION-LST ((PEA-ADDR-MODEP 3 NIL)) TOTALP-LST ((PEA-ADDR-MODEP . T)) SDEFN (LAMBDA (INS) (CONTROL-ADDR-MODEP (S_MODE INS) (S_RN INS))) LISP-CODE *1*PEA-ADDR-MODEP SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*PEA-ADDR-MODEP) IMMEDIATE-DEPENDENTS0 (MODE-GUARDS PEA-INS) EVENT (DEFN PEA-ADDR-MODEP (INS) (CONTROL-ADDR-MODEP (S_MODE INS) (S_RN INS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 S_RN . PEA-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 S_MODE . PEA-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 CONTROL-ADDR-MODEP . PEA-ADDR-MODEP) (DCELL . *1*PEA-ADDR-MODEP))))) (PUT1-LST (QUOTE *1*NEG-SUBGROUP) (QUOTE (MAIN-EVENT NEG-SUBGROUP))) (PUT1-LST (QUOTE NEG-SUBGROUP) (QUOTE (TYPE-PRESCRIPTION-LST ((NEG-SUBGROUP -1 NIL NIL)) TOTALP-LST ((NEG-SUBGROUP . T)) SDEFN (LAMBDA (INS S) (IF (EQUAL (OP-LEN INS) (Q)) (MOVE-TO-CCR-INS INS S) (NEG-INS (OP-LEN INS) INS S))) LISP-CODE *1*NEG-SUBGROUP SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214824 SATELLITES (*1*NEG-SUBGROUP) IMMEDIATE-DEPENDENTS0 (MISC-GROUP-H MISC-GROUP) EVENT (DEFN NEG-SUBGROUP (INS S) (IF (EQUAL (OP-LEN INS) (Q)) (MOVE-TO-CCR-INS INS S) (NEG-INS (OP-LEN INS) INS S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NEG-INS . NEG-SUBGROUP) (IMMEDIATE-DEPENDENTS0 MOVE-TO-CCR-INS . NEG-SUBGROUP) (IMMEDIATE-DEPENDENTS0 Q . NEG-SUBGROUP) (IMMEDIATE-DEPENDENTS0 OP-LEN . NEG-SUBGROUP) (DCELL . *1*NEG-SUBGROUP))))) (PUT1-LST (QUOTE *1*MOVE-TO-CCR-INS) (QUOTE (MAIN-EVENT MOVE-TO-CCR-INS))) (PUT1-LST (QUOTE MOVE-TO-CCR-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((MOVE-TO-CCR-INS -1 NIL NIL)) TOTALP-LST ((MOVE-TO-CCR-INS . T)) SDEFN (LAMBDA (INS S) (IF (MOVE-TO-CCR-ADDR-MODEP INS) (IF (MC-HALTP (CAR (MC-INSTATE (W) INS S))) (CAR (MC-INSTATE (W) INS S)) (UPDATE-CCR (HEAD (OPERAND (W) (CDR (MC-INSTATE (W) INS S)) S) (B)) (CAR (MC-INSTATE (W) INS S)))) (HALT (MODE-SIGNAL) S))) LISP-CODE *1*MOVE-TO-CCR-INS SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214824 SATELLITES (*1*MOVE-TO-CCR-INS) IMMEDIATE-DEPENDENTS0 (MISC-GROUP-H NEG-SUBGROUP) EVENT (DEFN MOVE-TO-CCR-INS (INS S) (IF (MOVE-TO-CCR-ADDR-MODEP INS) (IF (MC-HALTP (CAR (MC-INSTATE (W) INS S))) (CAR (MC-INSTATE (W) INS S)) (UPDATE-CCR (HEAD (OPERAND (W) (CDR (MC-INSTATE (W) INS S)) S) (B)) (CAR (MC-INSTATE (W) INS S)))) (HALT (MODE-SIGNAL) S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MODE-SIGNAL . MOVE-TO-CCR-INS) (IMMEDIATE-DEPENDENTS0 HALT . MOVE-TO-CCR-INS) (IMMEDIATE-DEPENDENTS0 B . MOVE-TO-CCR-INS) (IMMEDIATE-DEPENDENTS0 OPERAND . MOVE-TO-CCR-INS) (IMMEDIATE-DEPENDENTS0 HEAD . MOVE-TO-CCR-INS) (IMMEDIATE-DEPENDENTS0 UPDATE-CCR . MOVE-TO-CCR-INS) (IMMEDIATE-DEPENDENTS0 W . MOVE-TO-CCR-INS) (IMMEDIATE-DEPENDENTS0 MC-INSTATE . MOVE-TO-CCR-INS) (IMMEDIATE-DEPENDENTS0 MC-HALTP . MOVE-TO-CCR-INS) (IMMEDIATE-DEPENDENTS0 MOVE-TO-CCR-ADDR-MODEP . MOVE-TO-CCR-INS) (DCELL . *1*MOVE-TO-CCR-INS))))) (PUT1-LST (QUOTE *1*MOVE-TO-CCR-ADDR-MODEP) (QUOTE (MAIN-EVENT MOVE-TO-CCR-ADDR-MODEP))) (PUT1-LST (QUOTE MOVE-TO-CCR-ADDR-MODEP) (QUOTE (TYPE-PRESCRIPTION-LST ((MOVE-TO-CCR-ADDR-MODEP 3 NIL)) TOTALP-LST ((MOVE-TO-CCR-ADDR-MODEP . T)) SDEFN (LAMBDA (INS) (DATA-ADDR-MODEP (S_MODE INS) (S_RN INS))) LISP-CODE *1*MOVE-TO-CCR-ADDR-MODEP SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*MOVE-TO-CCR-ADDR-MODEP) IMMEDIATE-DEPENDENTS0 (MODE-GUARDS MOVE-TO-CCR-INS) EVENT (DEFN MOVE-TO-CCR-ADDR-MODEP (INS) (DATA-ADDR-MODEP (S_MODE INS) (S_RN INS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 S_RN . MOVE-TO-CCR-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 S_MODE . MOVE-TO-CCR-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 DATA-ADDR-MODEP . MOVE-TO-CCR-ADDR-MODEP) (DCELL . *1*MOVE-TO-CCR-ADDR-MODEP))))) (PUT1-LST (QUOTE *1*NEG-INS) (QUOTE (MAIN-EVENT NEG-INS))) (PUT1-LST (QUOTE NEG-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((NEG-INS -1 NIL NIL NIL)) TOTALP-LST ((NEG-INS . T)) SDEFN (LAMBDA (OPLEN INS S) (IF (NEG-ADDR-MODEP INS) (IF (MC-HALTP (CAR (MC-INSTATE OPLEN INS S))) (CAR (MC-INSTATE OPLEN INS S)) (MAPPING OPLEN (SUB-EFFECT OPLEN (OPERAND OPLEN (CDR (MC-INSTATE OPLEN INS S)) S) (QUOTE 0)) (MC-INSTATE OPLEN INS S))) (HALT (MODE-SIGNAL) S))) LISP-CODE *1*NEG-INS SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214824 SATELLITES (*1*NEG-INS) IMMEDIATE-DEPENDENTS0 (MISC-GROUP-H NEG-SUBGROUP) EVENT (DEFN NEG-INS (OPLEN INS S) (IF (NEG-ADDR-MODEP INS) (IF (MC-HALTP (CAR (MC-INSTATE OPLEN INS S))) (CAR (MC-INSTATE OPLEN INS S)) (MAPPING OPLEN (SUB-EFFECT OPLEN (OPERAND OPLEN (CDR (MC-INSTATE OPLEN INS S)) S) (QUOTE 0)) (MC-INSTATE OPLEN INS S))) (HALT (MODE-SIGNAL) S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MODE-SIGNAL . NEG-INS) (IMMEDIATE-DEPENDENTS0 HALT . NEG-INS) (IMMEDIATE-DEPENDENTS0 OPERAND . NEG-INS) (IMMEDIATE-DEPENDENTS0 SUB-EFFECT . NEG-INS) (IMMEDIATE-DEPENDENTS0 MAPPING . NEG-INS) (IMMEDIATE-DEPENDENTS0 MC-INSTATE . NEG-INS) (IMMEDIATE-DEPENDENTS0 MC-HALTP . NEG-INS) (IMMEDIATE-DEPENDENTS0 NEG-ADDR-MODEP . NEG-INS) (DCELL . *1*NEG-INS))))) (PUT1-LST (QUOTE *1*NEG-ADDR-MODEP) (QUOTE (MAIN-EVENT NEG-ADDR-MODEP))) (PUT1-LST (QUOTE NEG-ADDR-MODEP) (QUOTE (TYPE-PRESCRIPTION-LST ((NEG-ADDR-MODEP 3 NIL)) TOTALP-LST ((NEG-ADDR-MODEP . T)) SDEFN (LAMBDA (INS) (IF (DATA-ADDR-MODEP (S_MODE INS) (S_RN INS)) (ALTERABLE-ADDR-MODEP (S_MODE INS) (S_RN INS)) (QUOTE *1*FALSE))) LISP-CODE *1*NEG-ADDR-MODEP SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*NEG-ADDR-MODEP) IMMEDIATE-DEPENDENTS0 (MODE-GUARDS NEG-INS) EVENT (DEFN NEG-ADDR-MODEP (INS) (AND (DATA-ADDR-MODEP (S_MODE INS) (S_RN INS)) (ALTERABLE-ADDR-MODEP (S_MODE INS) (S_RN INS)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ALTERABLE-ADDR-MODEP . NEG-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 S_RN . NEG-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 S_MODE . NEG-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 DATA-ADDR-MODEP . NEG-ADDR-MODEP) (DCELL . *1*NEG-ADDR-MODEP))))) (PUT1-LST (QUOTE *1*NEGX-SUBGROUP) (QUOTE (MAIN-EVENT NEGX-SUBGROUP))) (PUT1-LST (QUOTE NEGX-SUBGROUP) (QUOTE (TYPE-PRESCRIPTION-LST ((NEGX-SUBGROUP -1 NIL NIL)) TOTALP-LST ((NEGX-SUBGROUP . T)) SDEFN (LAMBDA (INS S) (IF (EQUAL (OP-LEN INS) (Q)) (HALT (QUOTE MOVE-FROM-SR-PRIVILEGED) S) (NEGX-INS (OP-LEN INS) INS S))) LISP-CODE *1*NEGX-SUBGROUP SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214824 SATELLITES (*1*NEGX-SUBGROUP) IMMEDIATE-DEPENDENTS0 (MISC-GROUP-H MISC-GROUP) EVENT (DEFN NEGX-SUBGROUP (INS S) (IF (EQUAL (OP-LEN INS) (Q)) (HALT (QUOTE MOVE-FROM-SR-PRIVILEGED) S) (NEGX-INS (OP-LEN INS) INS S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NEGX-INS . NEGX-SUBGROUP) (IMMEDIATE-DEPENDENTS0 HALT . NEGX-SUBGROUP) (IMMEDIATE-DEPENDENTS0 Q . NEGX-SUBGROUP) (IMMEDIATE-DEPENDENTS0 OP-LEN . NEGX-SUBGROUP) (DCELL . *1*NEGX-SUBGROUP))))) (PUT1-LST (QUOTE *1*NEGX-INS) (QUOTE (MAIN-EVENT NEGX-INS))) (PUT1-LST (QUOTE NEGX-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((NEGX-INS -1 NIL NIL NIL)) TOTALP-LST ((NEGX-INS . T)) SDEFN (LAMBDA (OPLEN INS S) (IF (NEGX-ADDR-MODEP INS) (IF (MC-HALTP (CAR (MC-INSTATE OPLEN INS S))) (CAR (MC-INSTATE OPLEN INS S)) (MAPPING OPLEN (SUBX-EFFECT OPLEN (OPERAND OPLEN (CDR (MC-INSTATE OPLEN INS S)) S) (QUOTE 0) (MC-CCR S)) (MC-INSTATE OPLEN INS S))) (HALT (MODE-SIGNAL) S))) LISP-CODE *1*NEGX-INS SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214824 SATELLITES (*1*NEGX-INS) IMMEDIATE-DEPENDENTS0 (MISC-GROUP-H NEGX-SUBGROUP) EVENT (DEFN NEGX-INS (OPLEN INS S) (IF (NEGX-ADDR-MODEP INS) (IF (MC-HALTP (CAR (MC-INSTATE OPLEN INS S))) (CAR (MC-INSTATE OPLEN INS S)) (MAPPING OPLEN (SUBX-EFFECT OPLEN (OPERAND OPLEN (CDR (MC-INSTATE OPLEN INS S)) S) (QUOTE 0) (MC-CCR S)) (MC-INSTATE OPLEN INS S))) (HALT (MODE-SIGNAL) S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MODE-SIGNAL . NEGX-INS) (IMMEDIATE-DEPENDENTS0 HALT . NEGX-INS) (IMMEDIATE-DEPENDENTS0 MC-CCR . NEGX-INS) (IMMEDIATE-DEPENDENTS0 OPERAND . NEGX-INS) (IMMEDIATE-DEPENDENTS0 SUBX-EFFECT . NEGX-INS) (IMMEDIATE-DEPENDENTS0 MAPPING . NEGX-INS) (IMMEDIATE-DEPENDENTS0 MC-INSTATE . NEGX-INS) (IMMEDIATE-DEPENDENTS0 MC-HALTP . NEGX-INS) (IMMEDIATE-DEPENDENTS0 NEGX-ADDR-MODEP . NEGX-INS) (DCELL . *1*NEGX-INS))))) (PUT1-LST (QUOTE *1*NEGX-ADDR-MODEP) (QUOTE (MAIN-EVENT NEGX-ADDR-MODEP))) (PUT1-LST (QUOTE NEGX-ADDR-MODEP) (QUOTE (TYPE-PRESCRIPTION-LST ((NEGX-ADDR-MODEP 3 NIL)) TOTALP-LST ((NEGX-ADDR-MODEP . T)) SDEFN (LAMBDA (INS) (IF (DATA-ADDR-MODEP (S_MODE INS) (S_RN INS)) (ALTERABLE-ADDR-MODEP (S_MODE INS) (S_RN INS)) (QUOTE *1*FALSE))) LISP-CODE *1*NEGX-ADDR-MODEP SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*NEGX-ADDR-MODEP) IMMEDIATE-DEPENDENTS0 (MODE-GUARDS NEGX-INS) EVENT (DEFN NEGX-ADDR-MODEP (INS) (AND (DATA-ADDR-MODEP (S_MODE INS) (S_RN INS)) (ALTERABLE-ADDR-MODEP (S_MODE INS) (S_RN INS)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ALTERABLE-ADDR-MODEP . NEGX-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 S_RN . NEGX-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 S_MODE . NEGX-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 DATA-ADDR-MODEP . NEGX-ADDR-MODEP) (DCELL . *1*NEGX-ADDR-MODEP))))) (PUT1-LST (QUOTE *1*CLR-SUBGROUP) (QUOTE (MAIN-EVENT CLR-SUBGROUP))) (PUT1-LST (QUOTE CLR-SUBGROUP) (QUOTE (TYPE-PRESCRIPTION-LST ((CLR-SUBGROUP -1 NIL NIL)) TOTALP-LST ((CLR-SUBGROUP . T)) SDEFN (LAMBDA (INS S) (IF (EQUAL (OP-LEN INS) (Q)) (MOVE-FROM-CCR-INS INS S) (CLR-INS (OP-LEN INS) INS S))) LISP-CODE *1*CLR-SUBGROUP SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214824 SATELLITES (*1*CLR-SUBGROUP) IMMEDIATE-DEPENDENTS0 (MISC-GROUP-H MISC-GROUP) EVENT (DEFN CLR-SUBGROUP (INS S) (IF (EQUAL (OP-LEN INS) (Q)) (MOVE-FROM-CCR-INS INS S) (CLR-INS (OP-LEN INS) INS S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CLR-INS . CLR-SUBGROUP) (IMMEDIATE-DEPENDENTS0 MOVE-FROM-CCR-INS . CLR-SUBGROUP) (IMMEDIATE-DEPENDENTS0 Q . CLR-SUBGROUP) (IMMEDIATE-DEPENDENTS0 OP-LEN . CLR-SUBGROUP) (DCELL . *1*CLR-SUBGROUP))))) (PUT1-LST (QUOTE *1*MOVE-FROM-CCR-INS) (QUOTE (MAIN-EVENT MOVE-FROM-CCR-INS))) (PUT1-LST (QUOTE MOVE-FROM-CCR-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((MOVE-FROM-CCR-INS -1 NIL NIL)) TOTALP-LST ((MOVE-FROM-CCR-INS . T)) SDEFN (LAMBDA (INS S) (IF (MOVE-FROM-CCR-ADDR-MODEP INS) (IF (MC-HALTP (CAR (MC-INSTATE (W) INS S))) (CAR (MC-INSTATE (W) INS S)) (MAPPING (W) (MOVE-FROM-CCR-EFFECT (MC-CCR S)) (MC-INSTATE (W) INS S))) (HALT (MODE-SIGNAL) S))) LISP-CODE *1*MOVE-FROM-CCR-INS SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214824 SATELLITES (*1*MOVE-FROM-CCR-INS) IMMEDIATE-DEPENDENTS0 (MISC-GROUP-H CLR-SUBGROUP) EVENT (DEFN MOVE-FROM-CCR-INS (INS S) (IF (MOVE-FROM-CCR-ADDR-MODEP INS) (IF (MC-HALTP (CAR (MC-INSTATE (W) INS S))) (CAR (MC-INSTATE (W) INS S)) (MAPPING (W) (MOVE-FROM-CCR-EFFECT (MC-CCR S)) (MC-INSTATE (W) INS S))) (HALT (MODE-SIGNAL) S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MODE-SIGNAL . MOVE-FROM-CCR-INS) (IMMEDIATE-DEPENDENTS0 HALT . MOVE-FROM-CCR-INS) (IMMEDIATE-DEPENDENTS0 MC-CCR . MOVE-FROM-CCR-INS) (IMMEDIATE-DEPENDENTS0 MOVE-FROM-CCR-EFFECT . MOVE-FROM-CCR-INS) (IMMEDIATE-DEPENDENTS0 MAPPING . MOVE-FROM-CCR-INS) (IMMEDIATE-DEPENDENTS0 W . MOVE-FROM-CCR-INS) (IMMEDIATE-DEPENDENTS0 MC-INSTATE . MOVE-FROM-CCR-INS) (IMMEDIATE-DEPENDENTS0 MC-HALTP . MOVE-FROM-CCR-INS) (IMMEDIATE-DEPENDENTS0 MOVE-FROM-CCR-ADDR-MODEP . MOVE-FROM-CCR-INS) (DCELL . *1*MOVE-FROM-CCR-INS))))) (PUT1-LST (QUOTE *1*MOVE-FROM-CCR-EFFECT) (QUOTE (MAIN-EVENT MOVE-FROM-CCR-EFFECT))) (PUT1-LST (QUOTE MOVE-FROM-CCR-EFFECT) (QUOTE (TYPE-PRESCRIPTION-LST ((MOVE-FROM-CCR-EFFECT 16 NIL)) TOTALP-LST ((MOVE-FROM-CCR-EFFECT . T)) SDEFN (LAMBDA (CCR) (CONS CCR CCR)) LISP-CODE *1*MOVE-FROM-CCR-EFFECT SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402214824 SATELLITES (*1*MOVE-FROM-CCR-EFFECT) IMMEDIATE-DEPENDENTS0 (MISC-GROUP-H MOVE-FROM-CCR-INS) EVENT (DEFN MOVE-FROM-CCR-EFFECT (CCR) (CONS CCR CCR)) LOCAL-UNDO-TUPLES ((DCELL . *1*MOVE-FROM-CCR-EFFECT))))) (PUT1-LST (QUOTE *1*MOVE-FROM-CCR-ADDR-MODEP) (QUOTE (MAIN-EVENT MOVE-FROM-CCR-ADDR-MODEP))) (PUT1-LST (QUOTE MOVE-FROM-CCR-ADDR-MODEP) (QUOTE (TYPE-PRESCRIPTION-LST ((MOVE-FROM-CCR-ADDR-MODEP 3 NIL)) TOTALP-LST ((MOVE-FROM-CCR-ADDR-MODEP . T)) SDEFN (LAMBDA (INS) (IF (DATA-ADDR-MODEP (S_MODE INS) (S_RN INS)) (ALTERABLE-ADDR-MODEP (S_MODE INS) (S_RN INS)) (QUOTE *1*FALSE))) LISP-CODE *1*MOVE-FROM-CCR-ADDR-MODEP SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*MOVE-FROM-CCR-ADDR-MODEP) IMMEDIATE-DEPENDENTS0 (MODE-GUARDS MOVE-FROM-CCR-INS) EVENT (DEFN MOVE-FROM-CCR-ADDR-MODEP (INS) (AND (DATA-ADDR-MODEP (S_MODE INS) (S_RN INS)) (ALTERABLE-ADDR-MODEP (S_MODE INS) (S_RN INS)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ALTERABLE-ADDR-MODEP . MOVE-FROM-CCR-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 S_RN . MOVE-FROM-CCR-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 S_MODE . MOVE-FROM-CCR-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 DATA-ADDR-MODEP . MOVE-FROM-CCR-ADDR-MODEP) (DCELL . *1*MOVE-FROM-CCR-ADDR-MODEP))))) (PUT1-LST (QUOTE *1*CLR-INS) (QUOTE (MAIN-EVENT CLR-INS))) (PUT1-LST (QUOTE CLR-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((CLR-INS -1 NIL NIL NIL)) TOTALP-LST ((CLR-INS . T)) SDEFN (LAMBDA (OPLEN INS S) (IF (CLR-ADDR-MODEP INS) (IF (MC-HALTP (CAR (EFFEC-ADDR OPLEN (S_MODE INS) (S_RN INS) S))) (CAR (EFFEC-ADDR OPLEN (S_MODE INS) (S_RN INS) S)) (MAPPING OPLEN (CLR-EFFECT (MC-CCR S)) (EFFEC-ADDR OPLEN (S_MODE INS) (S_RN INS) S))) (HALT (MODE-SIGNAL) S))) LISP-CODE *1*CLR-INS SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214824 SATELLITES (*1*CLR-INS) IMMEDIATE-DEPENDENTS0 (MISC-GROUP-H CLR-SUBGROUP) EVENT (DEFN CLR-INS (OPLEN INS S) (IF (CLR-ADDR-MODEP INS) (IF (MC-HALTP (CAR (EFFEC-ADDR OPLEN (S_MODE INS) (S_RN INS) S))) (CAR (EFFEC-ADDR OPLEN (S_MODE INS) (S_RN INS) S)) (MAPPING OPLEN (CLR-EFFECT (MC-CCR S)) (EFFEC-ADDR OPLEN (S_MODE INS) (S_RN INS) S))) (HALT (MODE-SIGNAL) S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MODE-SIGNAL . CLR-INS) (IMMEDIATE-DEPENDENTS0 HALT . CLR-INS) (IMMEDIATE-DEPENDENTS0 MC-CCR . CLR-INS) (IMMEDIATE-DEPENDENTS0 CLR-EFFECT . CLR-INS) (IMMEDIATE-DEPENDENTS0 MAPPING . CLR-INS) (IMMEDIATE-DEPENDENTS0 S_RN . CLR-INS) (IMMEDIATE-DEPENDENTS0 S_MODE . CLR-INS) (IMMEDIATE-DEPENDENTS0 EFFEC-ADDR . CLR-INS) (IMMEDIATE-DEPENDENTS0 MC-HALTP . CLR-INS) (IMMEDIATE-DEPENDENTS0 CLR-ADDR-MODEP . CLR-INS) (DCELL . *1*CLR-INS))))) (PUT1-LST (QUOTE *1*CLR-EFFECT) (QUOTE (MAIN-EVENT CLR-EFFECT))) (PUT1-LST (QUOTE CLR-EFFECT) (QUOTE (TYPE-PRESCRIPTION-LST ((CLR-EFFECT 16 NIL)) TOTALP-LST ((CLR-EFFECT . T)) SDEFN (LAMBDA (CCR) (CONS (QUOTE 0) (CLR-CVZNX CCR))) LISP-CODE *1*CLR-EFFECT SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*CLR-EFFECT) IMMEDIATE-DEPENDENTS0 (MISC-GROUP-H CLR-INS) EVENT (DEFN CLR-EFFECT (CCR) (CONS (QUOTE 0) (CLR-CVZNX CCR))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CLR-CVZNX . CLR-EFFECT) (DCELL . *1*CLR-EFFECT))))) (PUT1-LST (QUOTE *1*CLR-CVZNX) (QUOTE (MAIN-EVENT CLR-CVZNX))) (PUT1-LST (QUOTE CLR-CVZNX) (QUOTE (TYPE-PRESCRIPTION-LST ((CLR-CVZNX 4 NIL)) TOTALP-LST ((CLR-CVZNX . T)) SDEFN (LAMBDA (CCR) (CVZNX (B0) (B0) (B1) (B0) (CCR-X CCR))) LISP-CODE *1*CLR-CVZNX SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*CLR-CVZNX) IMMEDIATE-DEPENDENTS0 (MISC-GROUP-H CLR-EFFECT) EVENT (DEFN CLR-CVZNX (CCR) (CVZNX (B0) (B0) (B1) (B0) (CCR-X CCR))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CCR-X . CLR-CVZNX) (IMMEDIATE-DEPENDENTS0 B1 . CLR-CVZNX) (IMMEDIATE-DEPENDENTS0 B0 . CLR-CVZNX) (IMMEDIATE-DEPENDENTS0 CVZNX . CLR-CVZNX) (DCELL . *1*CLR-CVZNX))))) (PUT1-LST (QUOTE *1*CLR-ADDR-MODEP) (QUOTE (MAIN-EVENT CLR-ADDR-MODEP))) (PUT1-LST (QUOTE CLR-ADDR-MODEP) (QUOTE (TYPE-PRESCRIPTION-LST ((CLR-ADDR-MODEP 3 NIL)) TOTALP-LST ((CLR-ADDR-MODEP . T)) SDEFN (LAMBDA (INS) (IF (DATA-ADDR-MODEP (S_MODE INS) (S_RN INS)) (ALTERABLE-ADDR-MODEP (S_MODE INS) (S_RN INS)) (QUOTE *1*FALSE))) LISP-CODE *1*CLR-ADDR-MODEP SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*CLR-ADDR-MODEP) IMMEDIATE-DEPENDENTS0 (MODE-GUARDS CLR-INS) EVENT (DEFN CLR-ADDR-MODEP (INS) (AND (DATA-ADDR-MODEP (S_MODE INS) (S_RN INS)) (ALTERABLE-ADDR-MODEP (S_MODE INS) (S_RN INS)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ALTERABLE-ADDR-MODEP . CLR-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 S_RN . CLR-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 S_MODE . CLR-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 DATA-ADDR-MODEP . CLR-ADDR-MODEP) (DCELL . *1*CLR-ADDR-MODEP))))) (PUT1-LST (QUOTE *1*LEA-SUBGROUP) (QUOTE (MAIN-EVENT LEA-SUBGROUP))) (PUT1-LST (QUOTE LEA-SUBGROUP) (QUOTE (TYPE-PRESCRIPTION-LST ((LEA-SUBGROUP -1 NIL NIL)) TOTALP-LST ((LEA-SUBGROUP . T)) SDEFN (LAMBDA (INS S) (IF (EQUAL (S_MODE INS) (QUOTE 0)) (IF (EQUAL (BITS INS (QUOTE 9) (QUOTE 11)) (QUOTE 4)) (EXTB-INS INS S) (HALT (RESERVED-SIGNAL) S)) (LEA-INS (S_MODE INS) INS S))) LISP-CODE *1*LEA-SUBGROUP SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214824 SATELLITES (*1*LEA-SUBGROUP) IMMEDIATE-DEPENDENTS0 (MISC-GROUP-H MISC-GROUP) EVENT (DEFN LEA-SUBGROUP (INS S) (IF (EQUAL (S_MODE INS) (QUOTE 0)) (IF (EQUAL (BITS INS (QUOTE 9) (QUOTE 11)) (QUOTE 4)) (EXTB-INS INS S) (HALT (RESERVED-SIGNAL) S)) (LEA-INS (S_MODE INS) INS S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LEA-INS . LEA-SUBGROUP) (IMMEDIATE-DEPENDENTS0 RESERVED-SIGNAL . LEA-SUBGROUP) (IMMEDIATE-DEPENDENTS0 HALT . LEA-SUBGROUP) (IMMEDIATE-DEPENDENTS0 EXTB-INS . LEA-SUBGROUP) (IMMEDIATE-DEPENDENTS0 BITS . LEA-SUBGROUP) (IMMEDIATE-DEPENDENTS0 S_MODE . LEA-SUBGROUP) (DCELL . *1*LEA-SUBGROUP))))) (PUT1-LST (QUOTE *1*EXTB-INS) (QUOTE (MAIN-EVENT EXTB-INS))) (PUT1-LST (QUOTE EXTB-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((EXTB-INS 16 NIL NIL)) TOTALP-LST ((EXTB-INS . T)) SDEFN (LAMBDA (INS S) (D-MAPPING (L) (EXT-EFFECT (B) (READ-DN (B) (S_RN INS) S) (L) (MC-CCR S)) (S_RN INS) S)) LISP-CODE *1*EXTB-INS SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*EXTB-INS) IMMEDIATE-DEPENDENTS0 (MISC-GROUP-H LEA-SUBGROUP) EVENT (DEFN EXTB-INS (INS S) (D-MAPPING (L) (EXT-EFFECT (B) (READ-DN (B) (S_RN INS) S) (L) (MC-CCR S)) (S_RN INS) S)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MC-CCR . EXTB-INS) (IMMEDIATE-DEPENDENTS0 S_RN . EXTB-INS) (IMMEDIATE-DEPENDENTS0 READ-DN . EXTB-INS) (IMMEDIATE-DEPENDENTS0 B . EXTB-INS) (IMMEDIATE-DEPENDENTS0 EXT-EFFECT . EXTB-INS) (IMMEDIATE-DEPENDENTS0 L . EXTB-INS) (IMMEDIATE-DEPENDENTS0 D-MAPPING . EXTB-INS) (DCELL . *1*EXTB-INS))))) (PUT1-LST (QUOTE *1*EXT-EFFECT) (QUOTE (MAIN-EVENT EXT-EFFECT))) (PUT1-LST (QUOTE EXT-EFFECT) (QUOTE (TYPE-PRESCRIPTION-LST ((EXT-EFFECT 16 NIL NIL NIL NIL)) TOTALP-LST ((EXT-EFFECT . T)) SDEFN (LAMBDA (OPLEN OPD SIZE CCR) (CONS (EXT OPLEN OPD SIZE) (EXT-CVZNX OPLEN OPD SIZE CCR))) LISP-CODE *1*EXT-EFFECT SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*EXT-EFFECT) IMMEDIATE-DEPENDENTS0 (MISC-GROUP-H EXT-INS EXTB-INS) EVENT (DEFN EXT-EFFECT (OPLEN OPD SIZE CCR) (CONS (EXT OPLEN OPD SIZE) (EXT-CVZNX OPLEN OPD SIZE CCR))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EXT-CVZNX . EXT-EFFECT) (IMMEDIATE-DEPENDENTS0 EXT . EXT-EFFECT) (DCELL . *1*EXT-EFFECT))))) (PUT1-LST (QUOTE *1*EXT-CVZNX) (QUOTE (MAIN-EVENT EXT-CVZNX))) (PUT1-LST (QUOTE EXT-CVZNX) (QUOTE (TYPE-PRESCRIPTION-LST ((EXT-CVZNX 4 NIL NIL NIL NIL)) TOTALP-LST ((EXT-CVZNX . T)) SDEFN (LAMBDA (OPLEN OPD SIZE CCR) (CVZNX (B0) (B0) (EXT-Z OPLEN OPD SIZE) (EXT-N OPLEN OPD SIZE) (CCR-X CCR))) LISP-CODE *1*EXT-CVZNX SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*EXT-CVZNX) IMMEDIATE-DEPENDENTS0 (MISC-GROUP-H EXT-EFFECT) EVENT (DEFN EXT-CVZNX (OPLEN OPD SIZE CCR) (CVZNX (B0) (B0) (EXT-Z OPLEN OPD SIZE) (EXT-N OPLEN OPD SIZE) (CCR-X CCR))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CCR-X . EXT-CVZNX) (IMMEDIATE-DEPENDENTS0 EXT-N . EXT-CVZNX) (IMMEDIATE-DEPENDENTS0 EXT-Z . EXT-CVZNX) (IMMEDIATE-DEPENDENTS0 B0 . EXT-CVZNX) (IMMEDIATE-DEPENDENTS0 CVZNX . EXT-CVZNX) (DCELL . *1*EXT-CVZNX))))) (PUT1-LST (QUOTE *1*EXT-N) (QUOTE (MAIN-EVENT EXT-N))) (PUT1-LST (QUOTE EXT-N) (QUOTE (TYPE-PRESCRIPTION-LST ((EXT-N 4 NIL NIL NIL)) TOTALP-LST ((EXT-N . T)) SDEFN (LAMBDA (OPLEN OPD SIZE) (MBIT (EXT OPLEN OPD SIZE) SIZE)) LISP-CODE *1*EXT-N SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*EXT-N) IMMEDIATE-DEPENDENTS0 (EXT-N-OFF EXT-BMI EXT-N-BITP EXT-CVZNX) EVENT (DEFN EXT-N (OPLEN OPD SIZE) (MBIT (EXT OPLEN OPD SIZE) SIZE)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EXT . EXT-N) (IMMEDIATE-DEPENDENTS0 MBIT . EXT-N) (DCELL . *1*EXT-N))))) (PUT1-LST (QUOTE *1*EXT-Z) (QUOTE (MAIN-EVENT EXT-Z))) (PUT1-LST (QUOTE EXT-Z) (QUOTE (TYPE-PRESCRIPTION-LST ((EXT-Z 4 NIL NIL NIL)) TOTALP-LST ((EXT-Z . T)) SDEFN (LAMBDA (OPLEN OPD SIZE) (IF (EQUAL (EXT OPLEN OPD SIZE) (QUOTE 0)) (B1) (B0))) LISP-CODE *1*EXT-Z SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*EXT-Z) IMMEDIATE-DEPENDENTS0 (EXT-Z-OFF EXT-BEQ-INT-1 EXT-BEQ-INT-0 EXT-BEQ-UINT EXT-Z-BITP EXT-CVZNX) EVENT (DEFN EXT-Z (OPLEN OPD SIZE) (IF (EQUAL (EXT OPLEN OPD SIZE) (QUOTE 0)) (B1) (B0))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B0 . EXT-Z) (IMMEDIATE-DEPENDENTS0 B1 . EXT-Z) (IMMEDIATE-DEPENDENTS0 EXT . EXT-Z) (DCELL . *1*EXT-Z))))) (PUT1-LST (QUOTE *1*LEA-INS) (QUOTE (MAIN-EVENT LEA-INS))) (PUT1-LST (QUOTE LEA-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((LEA-INS -1 NIL NIL NIL)) TOTALP-LST ((LEA-INS . T)) SDEFN (LAMBDA (SMODE INS S) (IF (LEA-ADDR-MODEP INS) (IF (MC-HALTP (CAR (EFFEC-ADDR (L) SMODE (S_RN INS) S))) (CAR (EFFEC-ADDR (L) SMODE (S_RN INS) S)) (WRITE-AN (L) (CDR (CDR (EFFEC-ADDR (L) SMODE (S_RN INS) S))) (D_RN INS) (CAR (EFFEC-ADDR (L) SMODE (S_RN INS) S)))) (HALT (MODE-SIGNAL) S))) LISP-CODE *1*LEA-INS SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214824 SATELLITES (*1*LEA-INS) IMMEDIATE-DEPENDENTS0 (MISC-GROUP-H LEA-SUBGROUP) EVENT (DEFN LEA-INS (SMODE INS S) (IF (LEA-ADDR-MODEP INS) (IF (MC-HALTP (CAR (EFFEC-ADDR (L) SMODE (S_RN INS) S))) (CAR (EFFEC-ADDR (L) SMODE (S_RN INS) S)) (WRITE-AN (L) (CDR (CDR (EFFEC-ADDR (L) SMODE (S_RN INS) S))) (D_RN INS) (CAR (EFFEC-ADDR (L) SMODE (S_RN INS) S)))) (HALT (MODE-SIGNAL) S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MODE-SIGNAL . LEA-INS) (IMMEDIATE-DEPENDENTS0 HALT . LEA-INS) (IMMEDIATE-DEPENDENTS0 D_RN . LEA-INS) (IMMEDIATE-DEPENDENTS0 WRITE-AN . LEA-INS) (IMMEDIATE-DEPENDENTS0 S_RN . LEA-INS) (IMMEDIATE-DEPENDENTS0 L . LEA-INS) (IMMEDIATE-DEPENDENTS0 EFFEC-ADDR . LEA-INS) (IMMEDIATE-DEPENDENTS0 MC-HALTP . LEA-INS) (IMMEDIATE-DEPENDENTS0 LEA-ADDR-MODEP . LEA-INS) (DCELL . *1*LEA-INS))))) (PUT1-LST (QUOTE *1*LEA-ADDR-MODEP) (QUOTE (MAIN-EVENT LEA-ADDR-MODEP))) (PUT1-LST (QUOTE LEA-ADDR-MODEP) (QUOTE (TYPE-PRESCRIPTION-LST ((LEA-ADDR-MODEP 3 NIL)) TOTALP-LST ((LEA-ADDR-MODEP . T)) SDEFN (LAMBDA (INS) (CONTROL-ADDR-MODEP (S_MODE INS) (S_RN INS))) LISP-CODE *1*LEA-ADDR-MODEP SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*LEA-ADDR-MODEP) IMMEDIATE-DEPENDENTS0 (MODE-GUARDS LEA-INS) EVENT (DEFN LEA-ADDR-MODEP (INS) (CONTROL-ADDR-MODEP (S_MODE INS) (S_RN INS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 S_RN . LEA-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 S_MODE . LEA-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 CONTROL-ADDR-MODEP . LEA-ADDR-MODEP) (DCELL . *1*LEA-ADDR-MODEP))))) (PUT1-LST (QUOTE *1*MOVE-GROUP) (QUOTE (MAIN-EVENT MOVE-GROUP))) (PUT1-LST (QUOTE MOVE-GROUP) (QUOTE (TYPE-PRESCRIPTION-LST ((MOVE-GROUP -1 NIL NIL NIL)) TOTALP-LST ((MOVE-GROUP . T)) SDEFN (LAMBDA (OPLEN INS S) (IF (EQUAL (D_MODE INS) (QUOTE 1)) (MOVEA-INS OPLEN INS S) (MOVE-INS OPLEN INS S))) LISP-CODE *1*MOVE-GROUP SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214824 SATELLITES (*1*MOVE-GROUP) IMMEDIATE-DEPENDENTS0 (GCD-S0-S0-RFILE-2 GCD-S0-S0-RFILE-1 GCD-S0-S0-2 GCD-S0-S0-1 GCD-S0-SN-BASE-RFILE-2 GCD-S0-SN-BASE-2 GCD-S0-SN-BASE-RFILE-1 GCD-S0-SN-BASE-1 GCD-S-S0-MEM GCD-S-S0-RFILE GCD-S-S0 MOVE-GROUP-H GROUPS EXECUTE-INS) EVENT (DEFN MOVE-GROUP (OPLEN INS S) (IF (EQUAL (D_MODE INS) (QUOTE 1)) (MOVEA-INS OPLEN INS S) (MOVE-INS OPLEN INS S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MOVE-INS . MOVE-GROUP) (IMMEDIATE-DEPENDENTS0 MOVEA-INS . MOVE-GROUP) (IMMEDIATE-DEPENDENTS0 D_MODE . MOVE-GROUP) (DCELL . *1*MOVE-GROUP))))) (PUT1-LST (QUOTE *1*MOVEA-INS) (QUOTE (MAIN-EVENT MOVEA-INS))) (PUT1-LST (QUOTE MOVEA-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((MOVEA-INS -1 NIL NIL NIL)) TOTALP-LST ((MOVEA-INS . T)) SDEFN (LAMBDA (OPLEN INS S) (IF (MOVEA-ADDR-MODEP INS) (IF (MC-HALTP (CAR (MC-INSTATE OPLEN INS S))) (CAR (MC-INSTATE OPLEN INS S)) (WRITE-AN (L) (EXT OPLEN (OPERAND OPLEN (CDR (MC-INSTATE OPLEN INS S)) S) (L)) (D_RN INS) (CAR (MC-INSTATE OPLEN INS S)))) (HALT (MODE-SIGNAL) S))) LISP-CODE *1*MOVEA-INS SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214824 SATELLITES (*1*MOVEA-INS) IMMEDIATE-DEPENDENTS0 (MOVE-GROUP-H MOVE-GROUP) EVENT (DEFN MOVEA-INS (OPLEN INS S) (IF (MOVEA-ADDR-MODEP INS) (IF (MC-HALTP (CAR (MC-INSTATE OPLEN INS S))) (CAR (MC-INSTATE OPLEN INS S)) (WRITE-AN (L) (EXT OPLEN (OPERAND OPLEN (CDR (MC-INSTATE OPLEN INS S)) S) (L)) (D_RN INS) (CAR (MC-INSTATE OPLEN INS S)))) (HALT (MODE-SIGNAL) S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MODE-SIGNAL . MOVEA-INS) (IMMEDIATE-DEPENDENTS0 HALT . MOVEA-INS) (IMMEDIATE-DEPENDENTS0 D_RN . MOVEA-INS) (IMMEDIATE-DEPENDENTS0 OPERAND . MOVEA-INS) (IMMEDIATE-DEPENDENTS0 EXT . MOVEA-INS) (IMMEDIATE-DEPENDENTS0 L . MOVEA-INS) (IMMEDIATE-DEPENDENTS0 WRITE-AN . MOVEA-INS) (IMMEDIATE-DEPENDENTS0 MC-INSTATE . MOVEA-INS) (IMMEDIATE-DEPENDENTS0 MC-HALTP . MOVEA-INS) (IMMEDIATE-DEPENDENTS0 MOVEA-ADDR-MODEP . MOVEA-INS) (DCELL . *1*MOVEA-INS))))) (PUT1-LST (QUOTE *1*MOVEA-ADDR-MODEP) (QUOTE (MAIN-EVENT MOVEA-ADDR-MODEP))) (PUT1-LST (QUOTE MOVEA-ADDR-MODEP) (QUOTE (TYPE-PRESCRIPTION-LST ((MOVEA-ADDR-MODEP 3 NIL)) TOTALP-LST ((MOVEA-ADDR-MODEP . T)) SDEFN (LAMBDA (INS) (ADDR-MODEP (S_MODE INS) (S_RN INS))) LISP-CODE *1*MOVEA-ADDR-MODEP SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*MOVEA-ADDR-MODEP) IMMEDIATE-DEPENDENTS0 (MODE-GUARDS MOVEA-INS) EVENT (DEFN MOVEA-ADDR-MODEP (INS) (ADDR-MODEP (S_MODE INS) (S_RN INS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 S_RN . MOVEA-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 S_MODE . MOVEA-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 ADDR-MODEP . MOVEA-ADDR-MODEP) (DCELL . *1*MOVEA-ADDR-MODEP))))) (PUT1-LST (QUOTE *1*MOVE-INS) (QUOTE (MAIN-EVENT MOVE-INS))) (PUT1-LST (QUOTE MOVE-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((MOVE-INS -1 NIL NIL NIL)) TOTALP-LST ((MOVE-INS . T)) SDEFN (LAMBDA (OPLEN INS S) (IF (MOVE-ADDR-MODEP OPLEN INS) (IF (MC-HALTP (CAR (MC-INSTATE OPLEN INS S))) (CAR (MC-INSTATE OPLEN INS S)) (MOVE-MAPPING (OPERAND OPLEN (CDR (MC-INSTATE OPLEN INS S)) S) OPLEN INS (CAR (MC-INSTATE OPLEN INS S)))) (HALT (MODE-SIGNAL) S))) LISP-CODE *1*MOVE-INS SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214824 SATELLITES (*1*MOVE-INS) IMMEDIATE-DEPENDENTS0 (GCD-S0-S0-RFILE-2 GCD-S0-S0-RFILE-1 GCD-S0-S0-2 GCD-S0-S0-1 GCD-S0-SN-BASE-RFILE-2 GCD-S0-SN-BASE-2 GCD-S0-SN-BASE-RFILE-1 GCD-S0-SN-BASE-1 GCD-S-S0-MEM GCD-S-S0-RFILE GCD-S-S0 MOVE-H GROUPS EXECUTE-INS MOVE-GROUP) EVENT (DEFN MOVE-INS (OPLEN INS S) (IF (MOVE-ADDR-MODEP OPLEN INS) (IF (MC-HALTP (CAR (MC-INSTATE OPLEN INS S))) (CAR (MC-INSTATE OPLEN INS S)) (MOVE-MAPPING (OPERAND OPLEN (CDR (MC-INSTATE OPLEN INS S)) S) OPLEN INS (CAR (MC-INSTATE OPLEN INS S)))) (HALT (MODE-SIGNAL) S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MODE-SIGNAL . MOVE-INS) (IMMEDIATE-DEPENDENTS0 HALT . MOVE-INS) (IMMEDIATE-DEPENDENTS0 OPERAND . MOVE-INS) (IMMEDIATE-DEPENDENTS0 MOVE-MAPPING . MOVE-INS) (IMMEDIATE-DEPENDENTS0 MC-INSTATE . MOVE-INS) (IMMEDIATE-DEPENDENTS0 MC-HALTP . MOVE-INS) (IMMEDIATE-DEPENDENTS0 MOVE-ADDR-MODEP . MOVE-INS) (DCELL . *1*MOVE-INS))))) (PUT1-LST (QUOTE *1*MOVE-MAPPING) (QUOTE (MAIN-EVENT MOVE-MAPPING))) (PUT1-LST (QUOTE MOVE-MAPPING) (QUOTE (TYPE-PRESCRIPTION-LST ((MOVE-MAPPING -1 NIL NIL NIL NIL)) TOTALP-LST ((MOVE-MAPPING . T)) SDEFN (LAMBDA (SOPD OPLEN INS S) (IF (MC-HALTP (CAR (EFFEC-ADDR OPLEN (D_MODE INS) (D_RN INS) S))) (CAR (EFFEC-ADDR OPLEN (D_MODE INS) (D_RN INS) S)) (MAPPING OPLEN (MOVE-EFFECT OPLEN SOPD (MC-CCR S)) (EFFEC-ADDR OPLEN (D_MODE INS) (D_RN INS) S)))) LISP-CODE *1*MOVE-MAPPING SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214824 SATELLITES (*1*MOVE-MAPPING) IMMEDIATE-DEPENDENTS0 (GCD-S0-S0-RFILE-2 GCD-S0-S0-RFILE-1 GCD-S0-S0-2 GCD-S0-S0-1 GCD-S0-SN-BASE-RFILE-2 GCD-S0-SN-BASE-2 GCD-S0-SN-BASE-RFILE-1 GCD-S0-SN-BASE-1 GCD-S-S0-MEM GCD-S-S0-RFILE GCD-S-S0 MOVE-H MOVE-INS) EVENT (DEFN MOVE-MAPPING (SOPD OPLEN INS S) (IF (MC-HALTP (CAR (EFFEC-ADDR OPLEN (D_MODE INS) (D_RN INS) S))) (CAR (EFFEC-ADDR OPLEN (D_MODE INS) (D_RN INS) S)) (MAPPING OPLEN (MOVE-EFFECT OPLEN SOPD (MC-CCR S)) (EFFEC-ADDR OPLEN (D_MODE INS) (D_RN INS) S)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MC-CCR . MOVE-MAPPING) (IMMEDIATE-DEPENDENTS0 MOVE-EFFECT . MOVE-MAPPING) (IMMEDIATE-DEPENDENTS0 MAPPING . MOVE-MAPPING) (IMMEDIATE-DEPENDENTS0 D_RN . MOVE-MAPPING) (IMMEDIATE-DEPENDENTS0 D_MODE . MOVE-MAPPING) (IMMEDIATE-DEPENDENTS0 EFFEC-ADDR . MOVE-MAPPING) (IMMEDIATE-DEPENDENTS0 MC-HALTP . MOVE-MAPPING) (DCELL . *1*MOVE-MAPPING))))) (PUT1-LST (QUOTE *1*MOVE-EFFECT) (QUOTE (MAIN-EVENT MOVE-EFFECT))) (PUT1-LST (QUOTE MOVE-EFFECT) (QUOTE (TYPE-PRESCRIPTION-LST ((MOVE-EFFECT 16 NIL NIL NIL)) TOTALP-LST ((MOVE-EFFECT . T)) SDEFN (LAMBDA (OPLEN SOPD CCR) (CONS SOPD (MOVE-CVZNX OPLEN SOPD CCR))) LISP-CODE *1*MOVE-EFFECT SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*MOVE-EFFECT) IMMEDIATE-DEPENDENTS0 (GCD-S0-S0-RFILE-2 GCD-S0-S0-RFILE-1 GCD-S0-S0-2 GCD-S0-S0-1 GCD-S0-SN-BASE-RFILE-2 GCD-S0-SN-BASE-2 GCD-S0-SN-BASE-RFILE-1 GCD-S0-SN-BASE-1 GCD-S-S0-MEM GCD-S-S0-RFILE GCD-S-S0 STEPI-H MOVE-H MOVEQ-INS MOVE-MAPPING) EVENT (DEFN MOVE-EFFECT (OPLEN SOPD CCR) (CONS SOPD (MOVE-CVZNX OPLEN SOPD CCR))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MOVE-CVZNX . MOVE-EFFECT) (DCELL . *1*MOVE-EFFECT))))) (PUT1-LST (QUOTE *1*MOVE-CVZNX) (QUOTE (MAIN-EVENT MOVE-CVZNX))) (PUT1-LST (QUOTE MOVE-CVZNX) (QUOTE (TYPE-PRESCRIPTION-LST ((MOVE-CVZNX 4 NIL NIL NIL)) TOTALP-LST ((MOVE-CVZNX . T)) SDEFN (LAMBDA (OPLEN SOPD CCR) (CVZNX (B0) (B0) (MOVE-Z OPLEN SOPD) (MOVE-N OPLEN SOPD) (CCR-X CCR))) LISP-CODE *1*MOVE-CVZNX SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*MOVE-CVZNX) IMMEDIATE-DEPENDENTS0 (GCD-S0-S0-RFILE-2 GCD-S0-S0-RFILE-1 GCD-S0-S0-2 GCD-S0-S0-1 GCD-S0-SN-BASE-RFILE-2 GCD-S0-SN-BASE-2 GCD-S0-SN-BASE-RFILE-1 GCD-S0-SN-BASE-1 GCD-S-S0-MEM GCD-S-S0-RFILE GCD-S-S0 STEPI-H MISC-GROUP-H MOVE-H TAS-EFFECT TST-INS MOVE-EFFECT) EVENT (DEFN MOVE-CVZNX (OPLEN SOPD CCR) (CVZNX (B0) (B0) (MOVE-Z OPLEN SOPD) (MOVE-N OPLEN SOPD) (CCR-X CCR))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CCR-X . MOVE-CVZNX) (IMMEDIATE-DEPENDENTS0 MOVE-N . MOVE-CVZNX) (IMMEDIATE-DEPENDENTS0 MOVE-Z . MOVE-CVZNX) (IMMEDIATE-DEPENDENTS0 B0 . MOVE-CVZNX) (IMMEDIATE-DEPENDENTS0 CVZNX . MOVE-CVZNX) (DCELL . *1*MOVE-CVZNX))))) (PUT1-LST (QUOTE *1*MOVE-N) (QUOTE (MAIN-EVENT MOVE-N))) (PUT1-LST (QUOTE MOVE-N) (QUOTE (TYPE-PRESCRIPTION-LST ((MOVE-N 4 NIL NIL)) TOTALP-LST ((MOVE-N . T)) SDEFN (LAMBDA (OPLEN SOPD) (MBIT SOPD OPLEN)) LISP-CODE *1*MOVE-N SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*MOVE-N) IMMEDIATE-DEPENDENTS0 (MOVE-N-OFF MOVE-BLE MOVE-BGT MOVE-BMI MOVE-N-BITP MOVE-CVZNX) EVENT (DEFN MOVE-N (OPLEN SOPD) (MBIT SOPD OPLEN)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MBIT . MOVE-N) (DCELL . *1*MOVE-N))))) (PUT1-LST (QUOTE *1*MOVE-Z) (QUOTE (MAIN-EVENT MOVE-Z))) (PUT1-LST (QUOTE MOVE-Z) (QUOTE (TYPE-PRESCRIPTION-LST ((MOVE-Z 4 NIL NIL)) LEMMAS ((REWRITE-RULE MOVE-BEQ-EXT ((NAT-RANGEP X N) (NOT (LESSP SIZE N)) (NUMBERP N) (NOT (EQUAL N (QUOTE 0)))) (EQUAL (MOVE-Z SIZE (EXT N X SIZE)) (MOVE-Z N X)) NIL)) TOTALP-LST ((MOVE-Z . T)) SDEFN (LAMBDA (OPLEN SOPD) (IF (EQUAL (HEAD SOPD OPLEN) (QUOTE 0)) (B1) (B0))) LISP-CODE *1*MOVE-Z SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*MOVE-Z) IMMEDIATE-DEPENDENTS0 (MOVE-Z-OFF MOVE-BLE MOVE-BGT MOVE-BEQ-EXT MOVE-BEQ-INT-1 MOVE-BEQ-INT-0 MOVE-BEQ-UINT MOVE-Z-BITP MOVE-CVZNX) EVENT (DEFN MOVE-Z (OPLEN SOPD) (IF (EQUAL (HEAD SOPD OPLEN) (QUOTE 0)) (B1) (B0))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B0 . MOVE-Z) (IMMEDIATE-DEPENDENTS0 B1 . MOVE-Z) (IMMEDIATE-DEPENDENTS0 HEAD . MOVE-Z) (DCELL . *1*MOVE-Z))))) (PUT1-LST (QUOTE *1*MOVE-ADDR-MODEP) (QUOTE (MAIN-EVENT MOVE-ADDR-MODEP))) (PUT1-LST (QUOTE MOVE-ADDR-MODEP) (QUOTE (TYPE-PRESCRIPTION-LST ((MOVE-ADDR-MODEP 3 NIL NIL)) TOTALP-LST ((MOVE-ADDR-MODEP . T)) SDEFN (LAMBDA (OPLEN INS) (IF (ADDR-MODEP (S_MODE INS) (S_RN INS)) (IF (DATA-ADDR-MODEP (D_MODE INS) (D_RN INS)) (IF (ALTERABLE-ADDR-MODEP (D_MODE INS) (D_RN INS)) (IF (BYTE-AN-DIRECT-MODEP OPLEN (S_MODE INS)) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE))) LISP-CODE *1*MOVE-ADDR-MODEP SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*MOVE-ADDR-MODEP) IMMEDIATE-DEPENDENTS0 (GCD-S0-S0-RFILE-2 GCD-S0-S0-RFILE-1 GCD-S0-S0-2 GCD-S0-S0-1 GCD-S0-SN-BASE-RFILE-2 GCD-S0-SN-BASE-2 GCD-S0-SN-BASE-RFILE-1 GCD-S0-SN-BASE-1 GCD-S-S0-MEM GCD-S-S0-RFILE GCD-S-S0 MODE-GUARDS MOVE-INS) EVENT (DEFN MOVE-ADDR-MODEP (OPLEN INS) (AND (ADDR-MODEP (S_MODE INS) (S_RN INS)) (AND (DATA-ADDR-MODEP (D_MODE INS) (D_RN INS)) (AND (ALTERABLE-ADDR-MODEP (D_MODE INS) (D_RN INS)) (NOT (BYTE-AN-DIRECT-MODEP OPLEN (S_MODE INS))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BYTE-AN-DIRECT-MODEP . MOVE-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 ALTERABLE-ADDR-MODEP . MOVE-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 D_RN . MOVE-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 D_MODE . MOVE-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 DATA-ADDR-MODEP . MOVE-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 S_RN . MOVE-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 S_MODE . MOVE-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 ADDR-MODEP . MOVE-ADDR-MODEP) (DCELL . *1*MOVE-ADDR-MODEP))))) (PUT1-LST (QUOTE *1*S&R-GROUP) (QUOTE (MAIN-EVENT S&R-GROUP))) (PUT1-LST (QUOTE S&R-GROUP) (QUOTE (TYPE-PRESCRIPTION-LST ((S&R-GROUP -1 NIL NIL)) TOTALP-LST ((S&R-GROUP . T)) SDEFN (LAMBDA (INS S) (IF (EQUAL (OP-LEN INS) (Q)) (IF (B0P (BITN INS (QUOTE 11))) (MEMORY-SHIFT-ROTATE INS S) (BF-SUBGROUP INS S)) (REGISTER-SHIFT-ROTATE (OP-LEN INS) INS S))) LISP-CODE *1*S&R-GROUP SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214824 SATELLITES (*1*S&R-GROUP) IMMEDIATE-DEPENDENTS0 (S&R-GROUP-H GROUPS EXECUTE-INS) EVENT (DEFN S&R-GROUP (INS S) (IF (EQUAL (OP-LEN INS) (Q)) (IF (B0P (BITN INS (QUOTE 11))) (MEMORY-SHIFT-ROTATE INS S) (BF-SUBGROUP INS S)) (REGISTER-SHIFT-ROTATE (OP-LEN INS) INS S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REGISTER-SHIFT-ROTATE . S&R-GROUP) (IMMEDIATE-DEPENDENTS0 BF-SUBGROUP . S&R-GROUP) (IMMEDIATE-DEPENDENTS0 MEMORY-SHIFT-ROTATE . S&R-GROUP) (IMMEDIATE-DEPENDENTS0 BITN . S&R-GROUP) (IMMEDIATE-DEPENDENTS0 B0P . S&R-GROUP) (IMMEDIATE-DEPENDENTS0 Q . S&R-GROUP) (IMMEDIATE-DEPENDENTS0 OP-LEN . S&R-GROUP) (DCELL . *1*S&R-GROUP))))) (PUT1-LST (QUOTE *1*BF-SUBGROUP) (QUOTE (MAIN-EVENT BF-SUBGROUP))) (PUT1-LST (QUOTE BF-SUBGROUP) (QUOTE (TYPE-PRESCRIPTION-LST ((BF-SUBGROUP 16 NIL NIL)) TOTALP-LST ((BF-SUBGROUP . T)) SDEFN (LAMBDA (INS S) (HALT (QUOTE I-WILL-DO-IT-LATER) S)) LISP-CODE *1*BF-SUBGROUP SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*BF-SUBGROUP) IMMEDIATE-DEPENDENTS0 (S&R-GROUP-H S&R-GROUP) EVENT (DEFN BF-SUBGROUP (INS S) (HALT (QUOTE I-WILL-DO-IT-LATER) S)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 HALT . BF-SUBGROUP) (DCELL . *1*BF-SUBGROUP))))) (PUT1-LST (QUOTE *1*REGISTER-SHIFT-ROTATE) (QUOTE (MAIN-EVENT REGISTER-SHIFT-ROTATE))) (PUT1-LST (QUOTE REGISTER-SHIFT-ROTATE) (QUOTE (TYPE-PRESCRIPTION-LST ((REGISTER-SHIFT-ROTATE 16 NIL NIL NIL)) TOTALP-LST ((REGISTER-SHIFT-ROTATE . T)) SDEFN (LAMBDA (OPLEN INS S) (IF (B0P (BITN INS (QUOTE 4))) (IF (B0P (BITN INS (QUOTE 3))) (IF (B0P (BITN INS (QUOTE 8))) (REGISTER-ASR-INS OPLEN INS S) (REGISTER-ASL-INS OPLEN INS S)) (IF (B0P (BITN INS (QUOTE 8))) (REGISTER-LSR-INS OPLEN INS S) (REGISTER-LSL-INS OPLEN INS S))) (IF (B0P (BITN INS (QUOTE 3))) (IF (B0P (BITN INS (QUOTE 8))) (REGISTER-ROXR-INS OPLEN INS S) (REGISTER-ROXL-INS OPLEN INS S)) (IF (B0P (BITN INS (QUOTE 8))) (REGISTER-ROR-INS OPLEN INS S) (REGISTER-ROL-INS OPLEN INS S))))) LISP-CODE *1*REGISTER-SHIFT-ROTATE SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*REGISTER-SHIFT-ROTATE) IMMEDIATE-DEPENDENTS0 (S&R-GROUP-H S&R-GROUP) EVENT (DEFN REGISTER-SHIFT-ROTATE (OPLEN INS S) (IF (B0P (BITN INS (QUOTE 4))) (IF (B0P (BITN INS (QUOTE 3))) (IF (B0P (BITN INS (QUOTE 8))) (REGISTER-ASR-INS OPLEN INS S) (REGISTER-ASL-INS OPLEN INS S)) (IF (B0P (BITN INS (QUOTE 8))) (REGISTER-LSR-INS OPLEN INS S) (REGISTER-LSL-INS OPLEN INS S))) (IF (B0P (BITN INS (QUOTE 3))) (IF (B0P (BITN INS (QUOTE 8))) (REGISTER-ROXR-INS OPLEN INS S) (REGISTER-ROXL-INS OPLEN INS S)) (IF (B0P (BITN INS (QUOTE 8))) (REGISTER-ROR-INS OPLEN INS S) (REGISTER-ROL-INS OPLEN INS S))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REGISTER-ROL-INS . REGISTER-SHIFT-ROTATE) (IMMEDIATE-DEPENDENTS0 REGISTER-ROR-INS . REGISTER-SHIFT-ROTATE) (IMMEDIATE-DEPENDENTS0 REGISTER-ROXL-INS . REGISTER-SHIFT-ROTATE) (IMMEDIATE-DEPENDENTS0 REGISTER-ROXR-INS . REGISTER-SHIFT-ROTATE) (IMMEDIATE-DEPENDENTS0 REGISTER-LSL-INS . REGISTER-SHIFT-ROTATE) (IMMEDIATE-DEPENDENTS0 REGISTER-LSR-INS . REGISTER-SHIFT-ROTATE) (IMMEDIATE-DEPENDENTS0 REGISTER-ASL-INS . REGISTER-SHIFT-ROTATE) (IMMEDIATE-DEPENDENTS0 REGISTER-ASR-INS . REGISTER-SHIFT-ROTATE) (IMMEDIATE-DEPENDENTS0 BITN . REGISTER-SHIFT-ROTATE) (IMMEDIATE-DEPENDENTS0 B0P . REGISTER-SHIFT-ROTATE) (DCELL . *1*REGISTER-SHIFT-ROTATE))))) (PUT1-LST (QUOTE *1*MEMORY-SHIFT-ROTATE) (QUOTE (MAIN-EVENT MEMORY-SHIFT-ROTATE))) (PUT1-LST (QUOTE MEMORY-SHIFT-ROTATE) (QUOTE (TYPE-PRESCRIPTION-LST ((MEMORY-SHIFT-ROTATE -1 NIL NIL)) TOTALP-LST ((MEMORY-SHIFT-ROTATE . T)) SDEFN (LAMBDA (INS S) (IF (B0P (BITN INS (QUOTE 10))) (IF (B0P (BITN INS (QUOTE 9))) (IF (B0P (BITN INS (QUOTE 8))) (MEM-ASR-INS INS S) (MEM-ASL-INS INS S)) (IF (B0P (BITN INS (QUOTE 8))) (MEM-LSR-INS INS S) (MEM-LSL-INS INS S))) (IF (B0P (BITN INS (QUOTE 9))) (IF (B0P (BITN INS (QUOTE 8))) (MEM-ROXR-INS INS S) (MEM-ROXL-INS INS S)) (IF (B0P (BITN INS (QUOTE 8))) (MEM-ROR-INS INS S) (MEM-ROL-INS INS S))))) LISP-CODE *1*MEMORY-SHIFT-ROTATE SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214824 SATELLITES (*1*MEMORY-SHIFT-ROTATE) IMMEDIATE-DEPENDENTS0 (S&R-GROUP-H S&R-GROUP) EVENT (DEFN MEMORY-SHIFT-ROTATE (INS S) (IF (B0P (BITN INS (QUOTE 10))) (IF (B0P (BITN INS (QUOTE 9))) (IF (B0P (BITN INS (QUOTE 8))) (MEM-ASR-INS INS S) (MEM-ASL-INS INS S)) (IF (B0P (BITN INS (QUOTE 8))) (MEM-LSR-INS INS S) (MEM-LSL-INS INS S))) (IF (B0P (BITN INS (QUOTE 9))) (IF (B0P (BITN INS (QUOTE 8))) (MEM-ROXR-INS INS S) (MEM-ROXL-INS INS S)) (IF (B0P (BITN INS (QUOTE 8))) (MEM-ROR-INS INS S) (MEM-ROL-INS INS S))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MEM-ROL-INS . MEMORY-SHIFT-ROTATE) (IMMEDIATE-DEPENDENTS0 MEM-ROR-INS . MEMORY-SHIFT-ROTATE) (IMMEDIATE-DEPENDENTS0 MEM-ROXL-INS . MEMORY-SHIFT-ROTATE) (IMMEDIATE-DEPENDENTS0 MEM-ROXR-INS . MEMORY-SHIFT-ROTATE) (IMMEDIATE-DEPENDENTS0 MEM-LSL-INS . MEMORY-SHIFT-ROTATE) (IMMEDIATE-DEPENDENTS0 MEM-LSR-INS . MEMORY-SHIFT-ROTATE) (IMMEDIATE-DEPENDENTS0 MEM-ASL-INS . MEMORY-SHIFT-ROTATE) (IMMEDIATE-DEPENDENTS0 MEM-ASR-INS . MEMORY-SHIFT-ROTATE) (IMMEDIATE-DEPENDENTS0 BITN . MEMORY-SHIFT-ROTATE) (IMMEDIATE-DEPENDENTS0 B0P . MEMORY-SHIFT-ROTATE) (DCELL . *1*MEMORY-SHIFT-ROTATE))))) (PUT1-LST (QUOTE *1*MEM-ROXR-INS) (QUOTE (MAIN-EVENT MEM-ROXR-INS))) (PUT1-LST (QUOTE MEM-ROXR-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((MEM-ROXR-INS -1 NIL NIL)) TOTALP-LST ((MEM-ROXR-INS . T)) SDEFN (LAMBDA (INS S) (IF (S&R-ADDR-MODEP INS) (IF (MC-HALTP (CAR (MC-INSTATE (W) INS S))) (CAR (MC-INSTATE (W) INS S)) (MAPPING (W) (MEM-ROXR-EFFECT (OPERAND (W) (CDR (MC-INSTATE (W) INS S)) S) (MC-CCR S)) (MC-INSTATE (W) INS S))) (HALT (MODE-SIGNAL) S))) LISP-CODE *1*MEM-ROXR-INS SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214824 SATELLITES (*1*MEM-ROXR-INS) IMMEDIATE-DEPENDENTS0 (S&R-GROUP-H MEMORY-SHIFT-ROTATE) EVENT (DEFN MEM-ROXR-INS (INS S) (IF (S&R-ADDR-MODEP INS) (IF (MC-HALTP (CAR (MC-INSTATE (W) INS S))) (CAR (MC-INSTATE (W) INS S)) (MAPPING (W) (MEM-ROXR-EFFECT (OPERAND (W) (CDR (MC-INSTATE (W) INS S)) S) (MC-CCR S)) (MC-INSTATE (W) INS S))) (HALT (MODE-SIGNAL) S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MODE-SIGNAL . MEM-ROXR-INS) (IMMEDIATE-DEPENDENTS0 HALT . MEM-ROXR-INS) (IMMEDIATE-DEPENDENTS0 MC-CCR . MEM-ROXR-INS) (IMMEDIATE-DEPENDENTS0 OPERAND . MEM-ROXR-INS) (IMMEDIATE-DEPENDENTS0 MEM-ROXR-EFFECT . MEM-ROXR-INS) (IMMEDIATE-DEPENDENTS0 MAPPING . MEM-ROXR-INS) (IMMEDIATE-DEPENDENTS0 W . MEM-ROXR-INS) (IMMEDIATE-DEPENDENTS0 MC-INSTATE . MEM-ROXR-INS) (IMMEDIATE-DEPENDENTS0 MC-HALTP . MEM-ROXR-INS) (IMMEDIATE-DEPENDENTS0 S&R-ADDR-MODEP . MEM-ROXR-INS) (DCELL . *1*MEM-ROXR-INS))))) (PUT1-LST (QUOTE *1*MEM-ROXR-EFFECT) (QUOTE (MAIN-EVENT MEM-ROXR-EFFECT))) (PUT1-LST (QUOTE MEM-ROXR-EFFECT) (QUOTE (TYPE-PRESCRIPTION-LST ((MEM-ROXR-EFFECT 16 NIL NIL)) TOTALP-LST ((MEM-ROXR-EFFECT . T)) SDEFN (LAMBDA (OPD CCR) (ROXR-EFFECT (W) OPD (QUOTE 1) CCR)) LISP-CODE *1*MEM-ROXR-EFFECT SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*MEM-ROXR-EFFECT) IMMEDIATE-DEPENDENTS0 (S&R-GROUP-H MEM-ROXR-INS) EVENT (DEFN MEM-ROXR-EFFECT (OPD CCR) (ROXR-EFFECT (W) OPD (QUOTE 1) CCR)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 W . MEM-ROXR-EFFECT) (IMMEDIATE-DEPENDENTS0 ROXR-EFFECT . MEM-ROXR-EFFECT) (DCELL . *1*MEM-ROXR-EFFECT))))) (PUT1-LST (QUOTE *1*MEM-ROXL-INS) (QUOTE (MAIN-EVENT MEM-ROXL-INS))) (PUT1-LST (QUOTE MEM-ROXL-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((MEM-ROXL-INS -1 NIL NIL)) TOTALP-LST ((MEM-ROXL-INS . T)) SDEFN (LAMBDA (INS S) (IF (S&R-ADDR-MODEP INS) (IF (MC-HALTP (CAR (MC-INSTATE (W) INS S))) (CAR (MC-INSTATE (W) INS S)) (MAPPING (W) (MEM-ROXL-EFFECT (OPERAND (W) (CDR (MC-INSTATE (W) INS S)) S) (MC-CCR S)) (MC-INSTATE (W) INS S))) (HALT (MODE-SIGNAL) S))) LISP-CODE *1*MEM-ROXL-INS SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214824 SATELLITES (*1*MEM-ROXL-INS) IMMEDIATE-DEPENDENTS0 (S&R-GROUP-H MEMORY-SHIFT-ROTATE) EVENT (DEFN MEM-ROXL-INS (INS S) (IF (S&R-ADDR-MODEP INS) (IF (MC-HALTP (CAR (MC-INSTATE (W) INS S))) (CAR (MC-INSTATE (W) INS S)) (MAPPING (W) (MEM-ROXL-EFFECT (OPERAND (W) (CDR (MC-INSTATE (W) INS S)) S) (MC-CCR S)) (MC-INSTATE (W) INS S))) (HALT (MODE-SIGNAL) S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MODE-SIGNAL . MEM-ROXL-INS) (IMMEDIATE-DEPENDENTS0 HALT . MEM-ROXL-INS) (IMMEDIATE-DEPENDENTS0 MC-CCR . MEM-ROXL-INS) (IMMEDIATE-DEPENDENTS0 OPERAND . MEM-ROXL-INS) (IMMEDIATE-DEPENDENTS0 MEM-ROXL-EFFECT . MEM-ROXL-INS) (IMMEDIATE-DEPENDENTS0 MAPPING . MEM-ROXL-INS) (IMMEDIATE-DEPENDENTS0 W . MEM-ROXL-INS) (IMMEDIATE-DEPENDENTS0 MC-INSTATE . MEM-ROXL-INS) (IMMEDIATE-DEPENDENTS0 MC-HALTP . MEM-ROXL-INS) (IMMEDIATE-DEPENDENTS0 S&R-ADDR-MODEP . MEM-ROXL-INS) (DCELL . *1*MEM-ROXL-INS))))) (PUT1-LST (QUOTE *1*MEM-ROXL-EFFECT) (QUOTE (MAIN-EVENT MEM-ROXL-EFFECT))) (PUT1-LST (QUOTE MEM-ROXL-EFFECT) (QUOTE (TYPE-PRESCRIPTION-LST ((MEM-ROXL-EFFECT 16 NIL NIL)) TOTALP-LST ((MEM-ROXL-EFFECT . T)) SDEFN (LAMBDA (OPD CCR) (ROXL-EFFECT (W) OPD (QUOTE 1) CCR)) LISP-CODE *1*MEM-ROXL-EFFECT SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*MEM-ROXL-EFFECT) IMMEDIATE-DEPENDENTS0 (S&R-GROUP-H MEM-ROXL-INS) EVENT (DEFN MEM-ROXL-EFFECT (OPD CCR) (ROXL-EFFECT (W) OPD (QUOTE 1) CCR)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 W . MEM-ROXL-EFFECT) (IMMEDIATE-DEPENDENTS0 ROXL-EFFECT . MEM-ROXL-EFFECT) (DCELL . *1*MEM-ROXL-EFFECT))))) (PUT1-LST (QUOTE *1*REGISTER-ROXR-INS) (QUOTE (MAIN-EVENT REGISTER-ROXR-INS))) (PUT1-LST (QUOTE REGISTER-ROXR-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((REGISTER-ROXR-INS 16 NIL NIL NIL)) TOTALP-LST ((REGISTER-ROXR-INS . T)) SDEFN (LAMBDA (OPLEN INS S) (D-MAPPING OPLEN (ROXR-EFFECT OPLEN (READ-DN OPLEN (S_RN INS) S) (SR-CNT INS S) (MC-CCR S)) (S_RN INS) S)) LISP-CODE *1*REGISTER-ROXR-INS SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*REGISTER-ROXR-INS) IMMEDIATE-DEPENDENTS0 (S&R-GROUP-H REGISTER-SHIFT-ROTATE) EVENT (DEFN REGISTER-ROXR-INS (OPLEN INS S) (D-MAPPING OPLEN (ROXR-EFFECT OPLEN (READ-DN OPLEN (S_RN INS) S) (SR-CNT INS S) (MC-CCR S)) (S_RN INS) S)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MC-CCR . REGISTER-ROXR-INS) (IMMEDIATE-DEPENDENTS0 SR-CNT . REGISTER-ROXR-INS) (IMMEDIATE-DEPENDENTS0 S_RN . REGISTER-ROXR-INS) (IMMEDIATE-DEPENDENTS0 READ-DN . REGISTER-ROXR-INS) (IMMEDIATE-DEPENDENTS0 ROXR-EFFECT . REGISTER-ROXR-INS) (IMMEDIATE-DEPENDENTS0 D-MAPPING . REGISTER-ROXR-INS) (DCELL . *1*REGISTER-ROXR-INS))))) (PUT1-LST (QUOTE *1*ROXR-EFFECT) (QUOTE (MAIN-EVENT ROXR-EFFECT))) (PUT1-LST (QUOTE ROXR-EFFECT) (QUOTE (TYPE-PRESCRIPTION-LST ((ROXR-EFFECT 16 NIL NIL NIL NIL)) TOTALP-LST ((ROXR-EFFECT . T)) SDEFN (LAMBDA (LEN OPD CNT CCR) (CONS (ROXR LEN OPD CNT (CCR-X CCR)) (ROXR-CVZNX LEN OPD CNT (CCR-X CCR)))) LISP-CODE *1*ROXR-EFFECT SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*ROXR-EFFECT) IMMEDIATE-DEPENDENTS0 (S&R-GROUP-H MEM-ROXR-EFFECT REGISTER-ROXR-INS) EVENT (DEFN ROXR-EFFECT (LEN OPD CNT CCR) (CONS (ROXR LEN OPD CNT (CCR-X CCR)) (ROXR-CVZNX LEN OPD CNT (CCR-X CCR)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ROXR-CVZNX . ROXR-EFFECT) (IMMEDIATE-DEPENDENTS0 CCR-X . ROXR-EFFECT) (IMMEDIATE-DEPENDENTS0 ROXR . ROXR-EFFECT) (DCELL . *1*ROXR-EFFECT))))) (PUT1-LST (QUOTE *1*ROXR-CVZNX) (QUOTE (MAIN-EVENT ROXR-CVZNX))) (PUT1-LST (QUOTE ROXR-CVZNX) (QUOTE (TYPE-PRESCRIPTION-LST ((ROXR-CVZNX 4 NIL NIL NIL NIL)) TOTALP-LST ((ROXR-CVZNX . T)) SDEFN (LAMBDA (LEN OPD CNT X) (CVZNX (ROXR-C LEN OPD CNT X) (B0) (ROXR-Z LEN OPD CNT X) (ROXR-N LEN OPD CNT X) (ROXR-C LEN OPD CNT X))) LISP-CODE *1*ROXR-CVZNX SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*ROXR-CVZNX) IMMEDIATE-DEPENDENTS0 (S&R-GROUP-H ROXR-EFFECT) EVENT (DEFN ROXR-CVZNX (LEN OPD CNT X) (CVZNX (ROXR-C LEN OPD CNT X) (B0) (ROXR-Z LEN OPD CNT X) (ROXR-N LEN OPD CNT X) (ROXR-C LEN OPD CNT X))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ROXR-N . ROXR-CVZNX) (IMMEDIATE-DEPENDENTS0 ROXR-Z . ROXR-CVZNX) (IMMEDIATE-DEPENDENTS0 B0 . ROXR-CVZNX) (IMMEDIATE-DEPENDENTS0 ROXR-C . ROXR-CVZNX) (IMMEDIATE-DEPENDENTS0 CVZNX . ROXR-CVZNX) (DCELL . *1*ROXR-CVZNX))))) (PUT1-LST (QUOTE *1*ROXR-N) (QUOTE (MAIN-EVENT ROXR-N))) (PUT1-LST (QUOTE ROXR-N) (QUOTE (TYPE-PRESCRIPTION-LST ((ROXR-N 4 NIL NIL NIL NIL)) TOTALP-LST ((ROXR-N . T)) SDEFN (LAMBDA (LEN OPD CNT X) (BITN (ROXR LEN OPD CNT X) (SUB1 LEN))) LISP-CODE *1*ROXR-N SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*ROXR-N) IMMEDIATE-DEPENDENTS0 (ROXR-N-OFF ROXR-N-BITP ROXR-CVZNX) EVENT (DEFN ROXR-N (LEN OPD CNT X) (BITN (ROXR LEN OPD CNT X) (SUB1 LEN))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ROXR . ROXR-N) (IMMEDIATE-DEPENDENTS0 BITN . ROXR-N) (DCELL . *1*ROXR-N))))) (PUT1-LST (QUOTE *1*ROXR-Z) (QUOTE (MAIN-EVENT ROXR-Z))) (PUT1-LST (QUOTE ROXR-Z) (QUOTE (TYPE-PRESCRIPTION-LST ((ROXR-Z 4 NIL NIL NIL NIL)) TOTALP-LST ((ROXR-Z . T)) SDEFN (LAMBDA (LEN OPD CNT X) (IF (EQUAL (ROXR LEN OPD CNT X) (QUOTE 0)) (B1) (B0))) LISP-CODE *1*ROXR-Z SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*ROXR-Z) IMMEDIATE-DEPENDENTS0 (ROXR-Z-OFF ROXR-Z-BITP ROXR-CVZNX) EVENT (DEFN ROXR-Z (LEN OPD CNT X) (IF (EQUAL (ROXR LEN OPD CNT X) (QUOTE 0)) (B1) (B0))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B0 . ROXR-Z) (IMMEDIATE-DEPENDENTS0 B1 . ROXR-Z) (IMMEDIATE-DEPENDENTS0 ROXR . ROXR-Z) (DCELL . *1*ROXR-Z))))) (PUT1-LST (QUOTE *1*ROXR-C) (QUOTE (MAIN-EVENT ROXR-C))) (PUT1-LST (QUOTE ROXR-C) (QUOTE (TYPE-PRESCRIPTION-LST ((ROXR-C 4 NIL NIL NIL NIL)) TOTALP-LST ((ROXR-C . T)) SDEFN (LAMBDA (LEN OPD CNT X) (IF (EQUAL (REMAINDER CNT (ADD1 LEN)) (QUOTE 0)) (FIX-BIT X) (BITN OPD (SUB1 (REMAINDER CNT (ADD1 LEN)))))) LISP-CODE *1*ROXR-C SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*ROXR-C) IMMEDIATE-DEPENDENTS0 (ROXR-C-OFF ROXR-C-BITP ROXR-CVZNX) EVENT (DEFN ROXR-C (LEN OPD CNT X) (IF (EQUAL (REMAINDER CNT (ADD1 LEN)) (QUOTE 0)) (FIX-BIT X) (BITN OPD (SUB1 (REMAINDER CNT (ADD1 LEN)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BITN . ROXR-C) (IMMEDIATE-DEPENDENTS0 FIX-BIT . ROXR-C) (DCELL . *1*ROXR-C))))) (PUT1-LST (QUOTE *1*REGISTER-ROXL-INS) (QUOTE (MAIN-EVENT REGISTER-ROXL-INS))) (PUT1-LST (QUOTE REGISTER-ROXL-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((REGISTER-ROXL-INS 16 NIL NIL NIL)) TOTALP-LST ((REGISTER-ROXL-INS . T)) SDEFN (LAMBDA (OPLEN INS S) (D-MAPPING OPLEN (ROXL-EFFECT OPLEN (READ-DN OPLEN (S_RN INS) S) (SR-CNT INS S) (MC-CCR S)) (S_RN INS) S)) LISP-CODE *1*REGISTER-ROXL-INS SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*REGISTER-ROXL-INS) IMMEDIATE-DEPENDENTS0 (S&R-GROUP-H REGISTER-SHIFT-ROTATE) EVENT (DEFN REGISTER-ROXL-INS (OPLEN INS S) (D-MAPPING OPLEN (ROXL-EFFECT OPLEN (READ-DN OPLEN (S_RN INS) S) (SR-CNT INS S) (MC-CCR S)) (S_RN INS) S)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MC-CCR . REGISTER-ROXL-INS) (IMMEDIATE-DEPENDENTS0 SR-CNT . REGISTER-ROXL-INS) (IMMEDIATE-DEPENDENTS0 S_RN . REGISTER-ROXL-INS) (IMMEDIATE-DEPENDENTS0 READ-DN . REGISTER-ROXL-INS) (IMMEDIATE-DEPENDENTS0 ROXL-EFFECT . REGISTER-ROXL-INS) (IMMEDIATE-DEPENDENTS0 D-MAPPING . REGISTER-ROXL-INS) (DCELL . *1*REGISTER-ROXL-INS))))) (PUT1-LST (QUOTE *1*ROXL-EFFECT) (QUOTE (MAIN-EVENT ROXL-EFFECT))) (PUT1-LST (QUOTE ROXL-EFFECT) (QUOTE (TYPE-PRESCRIPTION-LST ((ROXL-EFFECT 16 NIL NIL NIL NIL)) TOTALP-LST ((ROXL-EFFECT . T)) SDEFN (LAMBDA (LEN OPD CNT CCR) (CONS (ROXL LEN OPD CNT (CCR-X CCR)) (ROXL-CVZNX LEN OPD CNT (CCR-X CCR)))) LISP-CODE *1*ROXL-EFFECT SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*ROXL-EFFECT) IMMEDIATE-DEPENDENTS0 (S&R-GROUP-H MEM-ROXL-EFFECT REGISTER-ROXL-INS) EVENT (DEFN ROXL-EFFECT (LEN OPD CNT CCR) (CONS (ROXL LEN OPD CNT (CCR-X CCR)) (ROXL-CVZNX LEN OPD CNT (CCR-X CCR)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ROXL-CVZNX . ROXL-EFFECT) (IMMEDIATE-DEPENDENTS0 CCR-X . ROXL-EFFECT) (IMMEDIATE-DEPENDENTS0 ROXL . ROXL-EFFECT) (DCELL . *1*ROXL-EFFECT))))) (PUT1-LST (QUOTE *1*ROXL-CVZNX) (QUOTE (MAIN-EVENT ROXL-CVZNX))) (PUT1-LST (QUOTE ROXL-CVZNX) (QUOTE (TYPE-PRESCRIPTION-LST ((ROXL-CVZNX 4 NIL NIL NIL NIL)) TOTALP-LST ((ROXL-CVZNX . T)) SDEFN (LAMBDA (LEN OPD CNT X) (CVZNX (ROXL-C LEN OPD CNT X) (B0) (ROXL-Z LEN OPD CNT X) (ROXL-N LEN OPD CNT X) (ROXL-C LEN OPD CNT X))) LISP-CODE *1*ROXL-CVZNX SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*ROXL-CVZNX) IMMEDIATE-DEPENDENTS0 (S&R-GROUP-H ROXL-EFFECT) EVENT (DEFN ROXL-CVZNX (LEN OPD CNT X) (CVZNX (ROXL-C LEN OPD CNT X) (B0) (ROXL-Z LEN OPD CNT X) (ROXL-N LEN OPD CNT X) (ROXL-C LEN OPD CNT X))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ROXL-N . ROXL-CVZNX) (IMMEDIATE-DEPENDENTS0 ROXL-Z . ROXL-CVZNX) (IMMEDIATE-DEPENDENTS0 B0 . ROXL-CVZNX) (IMMEDIATE-DEPENDENTS0 ROXL-C . ROXL-CVZNX) (IMMEDIATE-DEPENDENTS0 CVZNX . ROXL-CVZNX) (DCELL . *1*ROXL-CVZNX))))) (PUT1-LST (QUOTE *1*ROXL-N) (QUOTE (MAIN-EVENT ROXL-N))) (PUT1-LST (QUOTE ROXL-N) (QUOTE (TYPE-PRESCRIPTION-LST ((ROXL-N 4 NIL NIL NIL NIL)) TOTALP-LST ((ROXL-N . T)) SDEFN (LAMBDA (LEN OPD CNT X) (BITN (ROXL LEN OPD CNT X) (SUB1 LEN))) LISP-CODE *1*ROXL-N SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*ROXL-N) IMMEDIATE-DEPENDENTS0 (ROXL-N-OFF ROXL-N-BITP ROXL-CVZNX) EVENT (DEFN ROXL-N (LEN OPD CNT X) (BITN (ROXL LEN OPD CNT X) (SUB1 LEN))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ROXL . ROXL-N) (IMMEDIATE-DEPENDENTS0 BITN . ROXL-N) (DCELL . *1*ROXL-N))))) (PUT1-LST (QUOTE *1*ROXL-Z) (QUOTE (MAIN-EVENT ROXL-Z))) (PUT1-LST (QUOTE ROXL-Z) (QUOTE (TYPE-PRESCRIPTION-LST ((ROXL-Z 4 NIL NIL NIL NIL)) TOTALP-LST ((ROXL-Z . T)) SDEFN (LAMBDA (LEN OPD CNT X) (IF (EQUAL (ROXL LEN OPD CNT X) (QUOTE 0)) (B1) (B0))) LISP-CODE *1*ROXL-Z SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*ROXL-Z) IMMEDIATE-DEPENDENTS0 (ROXL-Z-OFF ROXL-Z-BITP ROXL-CVZNX) EVENT (DEFN ROXL-Z (LEN OPD CNT X) (IF (EQUAL (ROXL LEN OPD CNT X) (QUOTE 0)) (B1) (B0))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B0 . ROXL-Z) (IMMEDIATE-DEPENDENTS0 B1 . ROXL-Z) (IMMEDIATE-DEPENDENTS0 ROXL . ROXL-Z) (DCELL . *1*ROXL-Z))))) (PUT1-LST (QUOTE *1*ROXL-C) (QUOTE (MAIN-EVENT ROXL-C))) (PUT1-LST (QUOTE ROXL-C) (QUOTE (TYPE-PRESCRIPTION-LST ((ROXL-C 4 NIL NIL NIL NIL)) TOTALP-LST ((ROXL-C . T)) SDEFN (LAMBDA (LEN OPD CNT X) (IF (EQUAL (REMAINDER CNT (ADD1 LEN)) (QUOTE 0)) (FIX-BIT X) (BITN OPD (DIFFERENCE LEN (REMAINDER CNT (ADD1 LEN)))))) LISP-CODE *1*ROXL-C SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*ROXL-C) IMMEDIATE-DEPENDENTS0 (ROXL-C-OFF ROXL-C-BITP ROXL-CVZNX) EVENT (DEFN ROXL-C (LEN OPD CNT X) (IF (EQUAL (REMAINDER CNT (ADD1 LEN)) (QUOTE 0)) (FIX-BIT X) (BITN OPD (DIFFERENCE LEN (REMAINDER CNT (ADD1 LEN)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BITN . ROXL-C) (IMMEDIATE-DEPENDENTS0 FIX-BIT . ROXL-C) (DCELL . *1*ROXL-C))))) (PUT1-LST (QUOTE *1*ROXR) (QUOTE (MAIN-EVENT ROXR))) (PUT1-LST (QUOTE ROXR) (QUOTE (TYPE-PRESCRIPTION-LST ((ROXR 4 NIL NIL NIL NIL)) TOTALP-LST ((ROXR . T)) SDEFN (LAMBDA (LEN OPD CNT X) (HEAD (ROR (ADD1 LEN) (PLUS OPD (TIMES X (EXP (QUOTE 2) LEN))) CNT) LEN)) LISP-CODE *1*ROXR SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*ROXR) IMMEDIATE-DEPENDENTS0 (S&R-GROUP-H ROXR-EFFECT ROXR-N ROXR-Z) EVENT (DEFN ROXR (LEN OPD CNT X) (HEAD (ROR (ADD1 LEN) (PLUS OPD (TIMES X (EXP (QUOTE 2) LEN))) CNT) LEN)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EXP . ROXR) (IMMEDIATE-DEPENDENTS0 ROR . ROXR) (IMMEDIATE-DEPENDENTS0 HEAD . ROXR) (DCELL . *1*ROXR))))) (PUT1-LST (QUOTE *1*ROXL) (QUOTE (MAIN-EVENT ROXL))) (PUT1-LST (QUOTE ROXL) (QUOTE (TYPE-PRESCRIPTION-LST ((ROXL 4 NIL NIL NIL NIL)) TOTALP-LST ((ROXL . T)) SDEFN (LAMBDA (LEN OPD CNT X) (BCDR (ROL (ADD1 LEN) (PLUS X (TIMES (QUOTE 2) OPD)) CNT))) LISP-CODE *1*ROXL SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*ROXL) IMMEDIATE-DEPENDENTS0 (S&R-GROUP-H ROXL-EFFECT ROXL-N ROXL-Z) EVENT (DEFN ROXL (LEN OPD CNT X) (BCDR (ROL (ADD1 LEN) (PLUS X (TIMES (QUOTE 2) OPD)) CNT))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ROL . ROXL) (IMMEDIATE-DEPENDENTS0 BCDR . ROXL) (DCELL . *1*ROXL))))) (PUT1-LST (QUOTE *1*MEM-ASR-INS) (QUOTE (MAIN-EVENT MEM-ASR-INS))) (PUT1-LST (QUOTE MEM-ASR-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((MEM-ASR-INS -1 NIL NIL)) TOTALP-LST ((MEM-ASR-INS . T)) SDEFN (LAMBDA (INS S) (IF (S&R-ADDR-MODEP INS) (IF (MC-HALTP (CAR (MC-INSTATE (W) INS S))) (CAR (MC-INSTATE (W) INS S)) (MAPPING (W) (MEM-ASR-EFFECT (OPERAND (W) (CDR (MC-INSTATE (W) INS S)) S) (MC-CCR S)) (MC-INSTATE (W) INS S))) (HALT (MODE-SIGNAL) S))) LISP-CODE *1*MEM-ASR-INS SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214824 SATELLITES (*1*MEM-ASR-INS) IMMEDIATE-DEPENDENTS0 (S&R-GROUP-H MEMORY-SHIFT-ROTATE) EVENT (DEFN MEM-ASR-INS (INS S) (IF (S&R-ADDR-MODEP INS) (IF (MC-HALTP (CAR (MC-INSTATE (W) INS S))) (CAR (MC-INSTATE (W) INS S)) (MAPPING (W) (MEM-ASR-EFFECT (OPERAND (W) (CDR (MC-INSTATE (W) INS S)) S) (MC-CCR S)) (MC-INSTATE (W) INS S))) (HALT (MODE-SIGNAL) S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MODE-SIGNAL . MEM-ASR-INS) (IMMEDIATE-DEPENDENTS0 HALT . MEM-ASR-INS) (IMMEDIATE-DEPENDENTS0 MC-CCR . MEM-ASR-INS) (IMMEDIATE-DEPENDENTS0 OPERAND . MEM-ASR-INS) (IMMEDIATE-DEPENDENTS0 MEM-ASR-EFFECT . MEM-ASR-INS) (IMMEDIATE-DEPENDENTS0 MAPPING . MEM-ASR-INS) (IMMEDIATE-DEPENDENTS0 W . MEM-ASR-INS) (IMMEDIATE-DEPENDENTS0 MC-INSTATE . MEM-ASR-INS) (IMMEDIATE-DEPENDENTS0 MC-HALTP . MEM-ASR-INS) (IMMEDIATE-DEPENDENTS0 S&R-ADDR-MODEP . MEM-ASR-INS) (DCELL . *1*MEM-ASR-INS))))) (PUT1-LST (QUOTE *1*MEM-ASR-EFFECT) (QUOTE (MAIN-EVENT MEM-ASR-EFFECT))) (PUT1-LST (QUOTE MEM-ASR-EFFECT) (QUOTE (TYPE-PRESCRIPTION-LST ((MEM-ASR-EFFECT 16 NIL NIL)) TOTALP-LST ((MEM-ASR-EFFECT . T)) SDEFN (LAMBDA (OPD CCR) (ASR-EFFECT (W) OPD (QUOTE 1) CCR)) LISP-CODE *1*MEM-ASR-EFFECT SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*MEM-ASR-EFFECT) IMMEDIATE-DEPENDENTS0 (S&R-GROUP-H MEM-ASR-INS) EVENT (DEFN MEM-ASR-EFFECT (OPD CCR) (ASR-EFFECT (W) OPD (QUOTE 1) CCR)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 W . MEM-ASR-EFFECT) (IMMEDIATE-DEPENDENTS0 ASR-EFFECT . MEM-ASR-EFFECT) (DCELL . *1*MEM-ASR-EFFECT))))) (PUT1-LST (QUOTE *1*MEM-ASL-INS) (QUOTE (MAIN-EVENT MEM-ASL-INS))) (PUT1-LST (QUOTE MEM-ASL-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((MEM-ASL-INS -1 NIL NIL)) TOTALP-LST ((MEM-ASL-INS . T)) SDEFN (LAMBDA (INS S) (IF (S&R-ADDR-MODEP INS) (IF (MC-HALTP (CAR (MC-INSTATE (W) INS S))) (CAR (MC-INSTATE (W) INS S)) (MAPPING (W) (MEM-ASL-EFFECT (OPERAND (W) (CDR (MC-INSTATE (W) INS S)) S) (MC-CCR S)) (MC-INSTATE (W) INS S))) (HALT (MODE-SIGNAL) S))) LISP-CODE *1*MEM-ASL-INS SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214824 SATELLITES (*1*MEM-ASL-INS) IMMEDIATE-DEPENDENTS0 (S&R-GROUP-H MEMORY-SHIFT-ROTATE) EVENT (DEFN MEM-ASL-INS (INS S) (IF (S&R-ADDR-MODEP INS) (IF (MC-HALTP (CAR (MC-INSTATE (W) INS S))) (CAR (MC-INSTATE (W) INS S)) (MAPPING (W) (MEM-ASL-EFFECT (OPERAND (W) (CDR (MC-INSTATE (W) INS S)) S) (MC-CCR S)) (MC-INSTATE (W) INS S))) (HALT (MODE-SIGNAL) S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MODE-SIGNAL . MEM-ASL-INS) (IMMEDIATE-DEPENDENTS0 HALT . MEM-ASL-INS) (IMMEDIATE-DEPENDENTS0 MC-CCR . MEM-ASL-INS) (IMMEDIATE-DEPENDENTS0 OPERAND . MEM-ASL-INS) (IMMEDIATE-DEPENDENTS0 MEM-ASL-EFFECT . MEM-ASL-INS) (IMMEDIATE-DEPENDENTS0 MAPPING . MEM-ASL-INS) (IMMEDIATE-DEPENDENTS0 W . MEM-ASL-INS) (IMMEDIATE-DEPENDENTS0 MC-INSTATE . MEM-ASL-INS) (IMMEDIATE-DEPENDENTS0 MC-HALTP . MEM-ASL-INS) (IMMEDIATE-DEPENDENTS0 S&R-ADDR-MODEP . MEM-ASL-INS) (DCELL . *1*MEM-ASL-INS))))) (PUT1-LST (QUOTE *1*MEM-ASL-EFFECT) (QUOTE (MAIN-EVENT MEM-ASL-EFFECT))) (PUT1-LST (QUOTE MEM-ASL-EFFECT) (QUOTE (TYPE-PRESCRIPTION-LST ((MEM-ASL-EFFECT 16 NIL NIL)) TOTALP-LST ((MEM-ASL-EFFECT . T)) SDEFN (LAMBDA (OPD CCR) (ASL-EFFECT (W) OPD (QUOTE 1) CCR)) LISP-CODE *1*MEM-ASL-EFFECT SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*MEM-ASL-EFFECT) IMMEDIATE-DEPENDENTS0 (S&R-GROUP-H MEM-ASL-INS) EVENT (DEFN MEM-ASL-EFFECT (OPD CCR) (ASL-EFFECT (W) OPD (QUOTE 1) CCR)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 W . MEM-ASL-EFFECT) (IMMEDIATE-DEPENDENTS0 ASL-EFFECT . MEM-ASL-EFFECT) (DCELL . *1*MEM-ASL-EFFECT))))) (PUT1-LST (QUOTE *1*REGISTER-ASR-INS) (QUOTE (MAIN-EVENT REGISTER-ASR-INS))) (PUT1-LST (QUOTE REGISTER-ASR-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((REGISTER-ASR-INS 16 NIL NIL NIL)) TOTALP-LST ((REGISTER-ASR-INS . T)) SDEFN (LAMBDA (OPLEN INS S) (D-MAPPING OPLEN (ASR-EFFECT OPLEN (READ-DN OPLEN (S_RN INS) S) (SR-CNT INS S) (MC-CCR S)) (S_RN INS) S)) LISP-CODE *1*REGISTER-ASR-INS SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*REGISTER-ASR-INS) IMMEDIATE-DEPENDENTS0 (S&R-GROUP-H REGISTER-SHIFT-ROTATE) EVENT (DEFN REGISTER-ASR-INS (OPLEN INS S) (D-MAPPING OPLEN (ASR-EFFECT OPLEN (READ-DN OPLEN (S_RN INS) S) (SR-CNT INS S) (MC-CCR S)) (S_RN INS) S)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MC-CCR . REGISTER-ASR-INS) (IMMEDIATE-DEPENDENTS0 SR-CNT . REGISTER-ASR-INS) (IMMEDIATE-DEPENDENTS0 S_RN . REGISTER-ASR-INS) (IMMEDIATE-DEPENDENTS0 READ-DN . REGISTER-ASR-INS) (IMMEDIATE-DEPENDENTS0 ASR-EFFECT . REGISTER-ASR-INS) (IMMEDIATE-DEPENDENTS0 D-MAPPING . REGISTER-ASR-INS) (DCELL . *1*REGISTER-ASR-INS))))) (PUT1-LST (QUOTE *1*ASR-EFFECT) (QUOTE (MAIN-EVENT ASR-EFFECT))) (PUT1-LST (QUOTE ASR-EFFECT) (QUOTE (TYPE-PRESCRIPTION-LST ((ASR-EFFECT 16 NIL NIL NIL NIL)) TOTALP-LST ((ASR-EFFECT . T)) SDEFN (LAMBDA (LEN OPD CNT CCR) (CONS (ASR LEN OPD CNT) (ASR-CVZNX LEN OPD CNT CCR))) LISP-CODE *1*ASR-EFFECT SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*ASR-EFFECT) IMMEDIATE-DEPENDENTS0 (S&R-GROUP-H MEM-ASR-EFFECT REGISTER-ASR-INS) EVENT (DEFN ASR-EFFECT (LEN OPD CNT CCR) (CONS (ASR LEN OPD CNT) (ASR-CVZNX LEN OPD CNT CCR))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ASR-CVZNX . ASR-EFFECT) (IMMEDIATE-DEPENDENTS0 ASR . ASR-EFFECT) (DCELL . *1*ASR-EFFECT))))) (PUT1-LST (QUOTE *1*ASR-CVZNX) (QUOTE (MAIN-EVENT ASR-CVZNX))) (PUT1-LST (QUOTE ASR-CVZNX) (QUOTE (TYPE-PRESCRIPTION-LST ((ASR-CVZNX 4 NIL NIL NIL NIL)) TOTALP-LST ((ASR-CVZNX . T)) SDEFN (LAMBDA (LEN OPD CNT CCR) (CVZNX (ASR-C LEN OPD CNT) (B0) (ASR-Z LEN OPD CNT) (ASR-N LEN OPD CNT) (ASR-X LEN OPD CNT CCR))) LISP-CODE *1*ASR-CVZNX SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*ASR-CVZNX) IMMEDIATE-DEPENDENTS0 (S&R-GROUP-H ASR-EFFECT) EVENT (DEFN ASR-CVZNX (LEN OPD CNT CCR) (CVZNX (ASR-C LEN OPD CNT) (B0) (ASR-Z LEN OPD CNT) (ASR-N LEN OPD CNT) (ASR-X LEN OPD CNT CCR))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ASR-X . ASR-CVZNX) (IMMEDIATE-DEPENDENTS0 ASR-N . ASR-CVZNX) (IMMEDIATE-DEPENDENTS0 ASR-Z . ASR-CVZNX) (IMMEDIATE-DEPENDENTS0 B0 . ASR-CVZNX) (IMMEDIATE-DEPENDENTS0 ASR-C . ASR-CVZNX) (IMMEDIATE-DEPENDENTS0 CVZNX . ASR-CVZNX) (DCELL . *1*ASR-CVZNX))))) (PUT1-LST (QUOTE *1*ASR-X) (QUOTE (MAIN-EVENT ASR-X))) (PUT1-LST (QUOTE ASR-X) (QUOTE (TYPE-PRESCRIPTION-LST ((ASR-X 4 NIL NIL NIL NIL)) TOTALP-LST ((ASR-X . T)) SDEFN (LAMBDA (LEN OPD CNT CCR) (IF (EQUAL CNT (QUOTE 0)) (CCR-X CCR) (ASR-C LEN OPD CNT))) LISP-CODE *1*ASR-X SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*ASR-X) IMMEDIATE-DEPENDENTS0 (S&R-GROUP-H ASR-CVZNX) EVENT (DEFN ASR-X (LEN OPD CNT CCR) (IF (EQUAL CNT (QUOTE 0)) (CCR-X CCR) (ASR-C LEN OPD CNT))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ASR-C . ASR-X) (IMMEDIATE-DEPENDENTS0 CCR-X . ASR-X) (DCELL . *1*ASR-X))))) (PUT1-LST (QUOTE *1*ASR-N) (QUOTE (MAIN-EVENT ASR-N))) (PUT1-LST (QUOTE ASR-N) (QUOTE (TYPE-PRESCRIPTION-LST ((ASR-N 4 NIL NIL NIL)) TOTALP-LST ((ASR-N . T)) SDEFN (LAMBDA (LEN OPD CNT) (MBIT (ASR LEN OPD CNT) LEN)) LISP-CODE *1*ASR-N SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*ASR-N) IMMEDIATE-DEPENDENTS0 (ASR-N-OFF ASR-BMI ASR-N-BITP ASR-CVZNX) EVENT (DEFN ASR-N (LEN OPD CNT) (MBIT (ASR LEN OPD CNT) LEN)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ASR . ASR-N) (IMMEDIATE-DEPENDENTS0 MBIT . ASR-N) (DCELL . *1*ASR-N))))) (PUT1-LST (QUOTE *1*ASR-Z) (QUOTE (MAIN-EVENT ASR-Z))) (PUT1-LST (QUOTE ASR-Z) (QUOTE (TYPE-PRESCRIPTION-LST ((ASR-Z 4 NIL NIL NIL)) TOTALP-LST ((ASR-Z . T)) SDEFN (LAMBDA (LEN OPD CNT) (IF (EQUAL (ASR LEN OPD CNT) (QUOTE 0)) (B1) (B0))) LISP-CODE *1*ASR-Z SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*ASR-Z) IMMEDIATE-DEPENDENTS0 (ASR-Z-OFF ASR-BEQ ASR-Z-BITP ASR-CVZNX) EVENT (DEFN ASR-Z (LEN OPD CNT) (IF (EQUAL (ASR LEN OPD CNT) (QUOTE 0)) (B1) (B0))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B0 . ASR-Z) (IMMEDIATE-DEPENDENTS0 B1 . ASR-Z) (IMMEDIATE-DEPENDENTS0 ASR . ASR-Z) (DCELL . *1*ASR-Z))))) (PUT1-LST (QUOTE *1*ASR-C) (QUOTE (MAIN-EVENT ASR-C))) (PUT1-LST (QUOTE ASR-C) (QUOTE (TYPE-PRESCRIPTION-LST ((ASR-C 4 NIL NIL NIL)) TOTALP-LST ((ASR-C . T)) SDEFN (LAMBDA (LEN OPD CNT) (IF (EQUAL CNT (QUOTE 0)) (B0) (IF (LESSP CNT LEN) (BITN OPD (SUB1 CNT)) (BITN OPD (SUB1 LEN))))) LISP-CODE *1*ASR-C SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*ASR-C) IMMEDIATE-DEPENDENTS0 (ASR-C-OFF ASR-C-BITP ASR-CVZNX ASR-X) EVENT (DEFN ASR-C (LEN OPD CNT) (IF (EQUAL CNT (QUOTE 0)) (B0) (IF (LESSP CNT LEN) (BITN OPD (SUB1 CNT)) (BITN OPD (SUB1 LEN))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BITN . ASR-C) (IMMEDIATE-DEPENDENTS0 B0 . ASR-C) (DCELL . *1*ASR-C))))) (PUT1-LST (QUOTE *1*REGISTER-ASL-INS) (QUOTE (MAIN-EVENT REGISTER-ASL-INS))) (PUT1-LST (QUOTE REGISTER-ASL-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((REGISTER-ASL-INS 16 NIL NIL NIL)) TOTALP-LST ((REGISTER-ASL-INS . T)) SDEFN (LAMBDA (OPLEN INS S) (D-MAPPING OPLEN (ASL-EFFECT OPLEN (READ-DN OPLEN (S_RN INS) S) (SR-CNT INS S) (MC-CCR S)) (S_RN INS) S)) LISP-CODE *1*REGISTER-ASL-INS SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*REGISTER-ASL-INS) IMMEDIATE-DEPENDENTS0 (S&R-GROUP-H REGISTER-SHIFT-ROTATE) EVENT (DEFN REGISTER-ASL-INS (OPLEN INS S) (D-MAPPING OPLEN (ASL-EFFECT OPLEN (READ-DN OPLEN (S_RN INS) S) (SR-CNT INS S) (MC-CCR S)) (S_RN INS) S)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MC-CCR . REGISTER-ASL-INS) (IMMEDIATE-DEPENDENTS0 SR-CNT . REGISTER-ASL-INS) (IMMEDIATE-DEPENDENTS0 S_RN . REGISTER-ASL-INS) (IMMEDIATE-DEPENDENTS0 READ-DN . REGISTER-ASL-INS) (IMMEDIATE-DEPENDENTS0 ASL-EFFECT . REGISTER-ASL-INS) (IMMEDIATE-DEPENDENTS0 D-MAPPING . REGISTER-ASL-INS) (DCELL . *1*REGISTER-ASL-INS))))) (PUT1-LST (QUOTE *1*ASL-EFFECT) (QUOTE (MAIN-EVENT ASL-EFFECT))) (PUT1-LST (QUOTE ASL-EFFECT) (QUOTE (TYPE-PRESCRIPTION-LST ((ASL-EFFECT 16 NIL NIL NIL NIL)) TOTALP-LST ((ASL-EFFECT . T)) SDEFN (LAMBDA (LEN OPD CNT CCR) (CONS (ASL LEN OPD CNT) (ASL-CVZNX LEN OPD CNT CCR))) LISP-CODE *1*ASL-EFFECT SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*ASL-EFFECT) IMMEDIATE-DEPENDENTS0 (S&R-GROUP-H MEM-ASL-EFFECT REGISTER-ASL-INS) EVENT (DEFN ASL-EFFECT (LEN OPD CNT CCR) (CONS (ASL LEN OPD CNT) (ASL-CVZNX LEN OPD CNT CCR))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ASL-CVZNX . ASL-EFFECT) (IMMEDIATE-DEPENDENTS0 ASL . ASL-EFFECT) (DCELL . *1*ASL-EFFECT))))) (PUT1-LST (QUOTE *1*ASL-CVZNX) (QUOTE (MAIN-EVENT ASL-CVZNX))) (PUT1-LST (QUOTE ASL-CVZNX) (QUOTE (TYPE-PRESCRIPTION-LST ((ASL-CVZNX 4 NIL NIL NIL NIL)) TOTALP-LST ((ASL-CVZNX . T)) SDEFN (LAMBDA (LEN OPD CNT CCR) (CVZNX (ASL-C LEN OPD CNT) (ASL-V LEN OPD CNT) (ASL-Z LEN OPD CNT) (ASL-N LEN OPD CNT) (ASL-X LEN OPD CNT CCR))) LISP-CODE *1*ASL-CVZNX SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*ASL-CVZNX) IMMEDIATE-DEPENDENTS0 (S&R-GROUP-H ASL-EFFECT) EVENT (DEFN ASL-CVZNX (LEN OPD CNT CCR) (CVZNX (ASL-C LEN OPD CNT) (ASL-V LEN OPD CNT) (ASL-Z LEN OPD CNT) (ASL-N LEN OPD CNT) (ASL-X LEN OPD CNT CCR))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ASL-X . ASL-CVZNX) (IMMEDIATE-DEPENDENTS0 ASL-N . ASL-CVZNX) (IMMEDIATE-DEPENDENTS0 ASL-Z . ASL-CVZNX) (IMMEDIATE-DEPENDENTS0 ASL-V . ASL-CVZNX) (IMMEDIATE-DEPENDENTS0 ASL-C . ASL-CVZNX) (IMMEDIATE-DEPENDENTS0 CVZNX . ASL-CVZNX) (DCELL . *1*ASL-CVZNX))))) (PUT1-LST (QUOTE *1*ASL-X) (QUOTE (MAIN-EVENT ASL-X))) (PUT1-LST (QUOTE ASL-X) (QUOTE (TYPE-PRESCRIPTION-LST ((ASL-X 4 NIL NIL NIL NIL)) TOTALP-LST ((ASL-X . T)) SDEFN (LAMBDA (LEN OPD CNT CCR) (IF (EQUAL CNT (QUOTE 0)) (CCR-X CCR) (ASL-C LEN OPD CNT))) LISP-CODE *1*ASL-X SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*ASL-X) IMMEDIATE-DEPENDENTS0 (S&R-GROUP-H ASL-CVZNX) EVENT (DEFN ASL-X (LEN OPD CNT CCR) (IF (EQUAL CNT (QUOTE 0)) (CCR-X CCR) (ASL-C LEN OPD CNT))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ASL-C . ASL-X) (IMMEDIATE-DEPENDENTS0 CCR-X . ASL-X) (DCELL . *1*ASL-X))))) (PUT1-LST (QUOTE *1*ASL-N) (QUOTE (MAIN-EVENT ASL-N))) (PUT1-LST (QUOTE ASL-N) (QUOTE (TYPE-PRESCRIPTION-LST ((ASL-N 4 NIL NIL NIL)) TOTALP-LST ((ASL-N . T)) SDEFN (LAMBDA (LEN OPD CNT) (MBIT (ASL LEN OPD CNT) LEN)) LISP-CODE *1*ASL-N SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*ASL-N) IMMEDIATE-DEPENDENTS0 (ASL-N-OFF ASL-BMI ASL-N-BITP ASL-CVZNX) EVENT (DEFN ASL-N (LEN OPD CNT) (MBIT (ASL LEN OPD CNT) LEN)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ASL . ASL-N) (IMMEDIATE-DEPENDENTS0 MBIT . ASL-N) (DCELL . *1*ASL-N))))) (PUT1-LST (QUOTE *1*ASL-Z) (QUOTE (MAIN-EVENT ASL-Z))) (PUT1-LST (QUOTE ASL-Z) (QUOTE (TYPE-PRESCRIPTION-LST ((ASL-Z 4 NIL NIL NIL)) TOTALP-LST ((ASL-Z . T)) SDEFN (LAMBDA (LEN OPD CNT) (IF (EQUAL (ASL LEN OPD CNT) (QUOTE 0)) (B1) (B0))) LISP-CODE *1*ASL-Z SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*ASL-Z) IMMEDIATE-DEPENDENTS0 (ASL-Z-OFF ASL-BEQ ASL-Z-BITP ASL-CVZNX) EVENT (DEFN ASL-Z (LEN OPD CNT) (IF (EQUAL (ASL LEN OPD CNT) (QUOTE 0)) (B1) (B0))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B0 . ASL-Z) (IMMEDIATE-DEPENDENTS0 B1 . ASL-Z) (IMMEDIATE-DEPENDENTS0 ASL . ASL-Z) (DCELL . *1*ASL-Z))))) (PUT1-LST (QUOTE *1*ASL-V) (QUOTE (MAIN-EVENT ASL-V))) (PUT1-LST (QUOTE ASL-V) (QUOTE (TYPE-PRESCRIPTION-LST ((ASL-V 4 NIL NIL NIL)) TOTALP-LST ((ASL-V . T)) SDEFN (LAMBDA (LEN OPD CNT) (IF (INT-RANGEP (NAT-TO-INT OPD LEN) (DIFFERENCE LEN CNT)) (B0) (B1))) LISP-CODE *1*ASL-V SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*ASL-V) IMMEDIATE-DEPENDENTS0 (ASL-V-OFF ASL-BVS ASL-V-BITP ASL-CVZNX) EVENT (DEFN ASL-V (LEN OPD CNT) (IF (INT-RANGEP (NAT-TO-INT OPD LEN) (DIFFERENCE LEN CNT)) (B0) (B1))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B1 . ASL-V) (IMMEDIATE-DEPENDENTS0 B0 . ASL-V) (IMMEDIATE-DEPENDENTS0 NAT-TO-INT . ASL-V) (IMMEDIATE-DEPENDENTS0 INT-RANGEP . ASL-V) (DCELL . *1*ASL-V))))) (PUT1-LST (QUOTE *1*ASL-C) (QUOTE (MAIN-EVENT ASL-C))) (PUT1-LST (QUOTE ASL-C) (QUOTE (TYPE-PRESCRIPTION-LST ((ASL-C 4 NIL NIL NIL)) TOTALP-LST ((ASL-C . T)) SDEFN (LAMBDA (LEN OPD CNT) (LSL-C LEN OPD CNT)) LISP-CODE *1*ASL-C SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*ASL-C) IMMEDIATE-DEPENDENTS0 (ASL-C-OFF ASL-C-BITP ASL-CVZNX ASL-X) EVENT (DEFN ASL-C (LEN OPD CNT) (LSL-C LEN OPD CNT)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LSL-C . ASL-C) (DCELL . *1*ASL-C))))) (PUT1-LST (QUOTE *1*MEM-LSR-INS) (QUOTE (MAIN-EVENT MEM-LSR-INS))) (PUT1-LST (QUOTE MEM-LSR-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((MEM-LSR-INS -1 NIL NIL)) TOTALP-LST ((MEM-LSR-INS . T)) SDEFN (LAMBDA (INS S) (IF (S&R-ADDR-MODEP INS) (IF (MC-HALTP (CAR (MC-INSTATE (W) INS S))) (CAR (MC-INSTATE (W) INS S)) (MAPPING (W) (MEM-LSR-EFFECT (OPERAND (W) (CDR (MC-INSTATE (W) INS S)) S) (MC-CCR S)) (MC-INSTATE (W) INS S))) (HALT (MODE-SIGNAL) S))) LISP-CODE *1*MEM-LSR-INS SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214824 SATELLITES (*1*MEM-LSR-INS) IMMEDIATE-DEPENDENTS0 (S&R-GROUP-H MEMORY-SHIFT-ROTATE) EVENT (DEFN MEM-LSR-INS (INS S) (IF (S&R-ADDR-MODEP INS) (IF (MC-HALTP (CAR (MC-INSTATE (W) INS S))) (CAR (MC-INSTATE (W) INS S)) (MAPPING (W) (MEM-LSR-EFFECT (OPERAND (W) (CDR (MC-INSTATE (W) INS S)) S) (MC-CCR S)) (MC-INSTATE (W) INS S))) (HALT (MODE-SIGNAL) S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MODE-SIGNAL . MEM-LSR-INS) (IMMEDIATE-DEPENDENTS0 HALT . MEM-LSR-INS) (IMMEDIATE-DEPENDENTS0 MC-CCR . MEM-LSR-INS) (IMMEDIATE-DEPENDENTS0 OPERAND . MEM-LSR-INS) (IMMEDIATE-DEPENDENTS0 MEM-LSR-EFFECT . MEM-LSR-INS) (IMMEDIATE-DEPENDENTS0 MAPPING . MEM-LSR-INS) (IMMEDIATE-DEPENDENTS0 W . MEM-LSR-INS) (IMMEDIATE-DEPENDENTS0 MC-INSTATE . MEM-LSR-INS) (IMMEDIATE-DEPENDENTS0 MC-HALTP . MEM-LSR-INS) (IMMEDIATE-DEPENDENTS0 S&R-ADDR-MODEP . MEM-LSR-INS) (DCELL . *1*MEM-LSR-INS))))) (PUT1-LST (QUOTE *1*MEM-LSR-EFFECT) (QUOTE (MAIN-EVENT MEM-LSR-EFFECT))) (PUT1-LST (QUOTE MEM-LSR-EFFECT) (QUOTE (TYPE-PRESCRIPTION-LST ((MEM-LSR-EFFECT 16 NIL NIL)) TOTALP-LST ((MEM-LSR-EFFECT . T)) SDEFN (LAMBDA (OPD CCR) (LSR-EFFECT (W) OPD (QUOTE 1) CCR)) LISP-CODE *1*MEM-LSR-EFFECT SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*MEM-LSR-EFFECT) IMMEDIATE-DEPENDENTS0 (S&R-GROUP-H MEM-LSR-INS) EVENT (DEFN MEM-LSR-EFFECT (OPD CCR) (LSR-EFFECT (W) OPD (QUOTE 1) CCR)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 W . MEM-LSR-EFFECT) (IMMEDIATE-DEPENDENTS0 LSR-EFFECT . MEM-LSR-EFFECT) (DCELL . *1*MEM-LSR-EFFECT))))) (PUT1-LST (QUOTE *1*MEM-LSL-INS) (QUOTE (MAIN-EVENT MEM-LSL-INS))) (PUT1-LST (QUOTE MEM-LSL-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((MEM-LSL-INS -1 NIL NIL)) TOTALP-LST ((MEM-LSL-INS . T)) SDEFN (LAMBDA (INS S) (IF (S&R-ADDR-MODEP INS) (IF (MC-HALTP (CAR (MC-INSTATE (W) INS S))) (CAR (MC-INSTATE (W) INS S)) (MAPPING (W) (MEM-LSL-EFFECT (OPERAND (W) (CDR (MC-INSTATE (W) INS S)) S) (MC-CCR S)) (MC-INSTATE (W) INS S))) (HALT (MODE-SIGNAL) S))) LISP-CODE *1*MEM-LSL-INS SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214824 SATELLITES (*1*MEM-LSL-INS) IMMEDIATE-DEPENDENTS0 (S&R-GROUP-H MEMORY-SHIFT-ROTATE) EVENT (DEFN MEM-LSL-INS (INS S) (IF (S&R-ADDR-MODEP INS) (IF (MC-HALTP (CAR (MC-INSTATE (W) INS S))) (CAR (MC-INSTATE (W) INS S)) (MAPPING (W) (MEM-LSL-EFFECT (OPERAND (W) (CDR (MC-INSTATE (W) INS S)) S) (MC-CCR S)) (MC-INSTATE (W) INS S))) (HALT (MODE-SIGNAL) S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MODE-SIGNAL . MEM-LSL-INS) (IMMEDIATE-DEPENDENTS0 HALT . MEM-LSL-INS) (IMMEDIATE-DEPENDENTS0 MC-CCR . MEM-LSL-INS) (IMMEDIATE-DEPENDENTS0 OPERAND . MEM-LSL-INS) (IMMEDIATE-DEPENDENTS0 MEM-LSL-EFFECT . MEM-LSL-INS) (IMMEDIATE-DEPENDENTS0 MAPPING . MEM-LSL-INS) (IMMEDIATE-DEPENDENTS0 W . MEM-LSL-INS) (IMMEDIATE-DEPENDENTS0 MC-INSTATE . MEM-LSL-INS) (IMMEDIATE-DEPENDENTS0 MC-HALTP . MEM-LSL-INS) (IMMEDIATE-DEPENDENTS0 S&R-ADDR-MODEP . MEM-LSL-INS) (DCELL . *1*MEM-LSL-INS))))) (PUT1-LST (QUOTE *1*MEM-LSL-EFFECT) (QUOTE (MAIN-EVENT MEM-LSL-EFFECT))) (PUT1-LST (QUOTE MEM-LSL-EFFECT) (QUOTE (TYPE-PRESCRIPTION-LST ((MEM-LSL-EFFECT 16 NIL NIL)) TOTALP-LST ((MEM-LSL-EFFECT . T)) SDEFN (LAMBDA (OPD CCR) (LSL-EFFECT (W) OPD (QUOTE 1) CCR)) LISP-CODE *1*MEM-LSL-EFFECT SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*MEM-LSL-EFFECT) IMMEDIATE-DEPENDENTS0 (S&R-GROUP-H MEM-LSL-INS) EVENT (DEFN MEM-LSL-EFFECT (OPD CCR) (LSL-EFFECT (W) OPD (QUOTE 1) CCR)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 W . MEM-LSL-EFFECT) (IMMEDIATE-DEPENDENTS0 LSL-EFFECT . MEM-LSL-EFFECT) (DCELL . *1*MEM-LSL-EFFECT))))) (PUT1-LST (QUOTE *1*REGISTER-LSR-INS) (QUOTE (MAIN-EVENT REGISTER-LSR-INS))) (PUT1-LST (QUOTE REGISTER-LSR-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((REGISTER-LSR-INS 16 NIL NIL NIL)) TOTALP-LST ((REGISTER-LSR-INS . T)) SDEFN (LAMBDA (OPLEN INS S) (D-MAPPING OPLEN (LSR-EFFECT OPLEN (READ-DN OPLEN (S_RN INS) S) (SR-CNT INS S) (MC-CCR S)) (S_RN INS) S)) LISP-CODE *1*REGISTER-LSR-INS SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*REGISTER-LSR-INS) IMMEDIATE-DEPENDENTS0 (S&R-GROUP-H REGISTER-SHIFT-ROTATE) EVENT (DEFN REGISTER-LSR-INS (OPLEN INS S) (D-MAPPING OPLEN (LSR-EFFECT OPLEN (READ-DN OPLEN (S_RN INS) S) (SR-CNT INS S) (MC-CCR S)) (S_RN INS) S)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MC-CCR . REGISTER-LSR-INS) (IMMEDIATE-DEPENDENTS0 SR-CNT . REGISTER-LSR-INS) (IMMEDIATE-DEPENDENTS0 S_RN . REGISTER-LSR-INS) (IMMEDIATE-DEPENDENTS0 READ-DN . REGISTER-LSR-INS) (IMMEDIATE-DEPENDENTS0 LSR-EFFECT . REGISTER-LSR-INS) (IMMEDIATE-DEPENDENTS0 D-MAPPING . REGISTER-LSR-INS) (DCELL . *1*REGISTER-LSR-INS))))) (PUT1-LST (QUOTE *1*LSR-EFFECT) (QUOTE (MAIN-EVENT LSR-EFFECT))) (PUT1-LST (QUOTE LSR-EFFECT) (QUOTE (TYPE-PRESCRIPTION-LST ((LSR-EFFECT 16 NIL NIL NIL NIL)) TOTALP-LST ((LSR-EFFECT . T)) SDEFN (LAMBDA (LEN OPD CNT CCR) (CONS (LSR OPD CNT) (LSR-CVZNX LEN OPD CNT CCR))) LISP-CODE *1*LSR-EFFECT SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*LSR-EFFECT) IMMEDIATE-DEPENDENTS0 (S&R-GROUP-H MEM-LSR-EFFECT REGISTER-LSR-INS) EVENT (DEFN LSR-EFFECT (LEN OPD CNT CCR) (CONS (LSR OPD CNT) (LSR-CVZNX LEN OPD CNT CCR))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LSR-CVZNX . LSR-EFFECT) (IMMEDIATE-DEPENDENTS0 LSR . LSR-EFFECT) (DCELL . *1*LSR-EFFECT))))) (PUT1-LST (QUOTE *1*LSR-CVZNX) (QUOTE (MAIN-EVENT LSR-CVZNX))) (PUT1-LST (QUOTE LSR-CVZNX) (QUOTE (TYPE-PRESCRIPTION-LST ((LSR-CVZNX 4 NIL NIL NIL NIL)) TOTALP-LST ((LSR-CVZNX . T)) SDEFN (LAMBDA (LEN OPD CNT CCR) (CVZNX (LSR-C LEN OPD CNT) (B0) (LSR-Z LEN OPD CNT) (LSR-N LEN OPD CNT) (LSR-X LEN OPD CNT CCR))) LISP-CODE *1*LSR-CVZNX SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*LSR-CVZNX) IMMEDIATE-DEPENDENTS0 (S&R-GROUP-H LSR-EFFECT) EVENT (DEFN LSR-CVZNX (LEN OPD CNT CCR) (CVZNX (LSR-C LEN OPD CNT) (B0) (LSR-Z LEN OPD CNT) (LSR-N LEN OPD CNT) (LSR-X LEN OPD CNT CCR))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LSR-X . LSR-CVZNX) (IMMEDIATE-DEPENDENTS0 LSR-N . LSR-CVZNX) (IMMEDIATE-DEPENDENTS0 LSR-Z . LSR-CVZNX) (IMMEDIATE-DEPENDENTS0 B0 . LSR-CVZNX) (IMMEDIATE-DEPENDENTS0 LSR-C . LSR-CVZNX) (IMMEDIATE-DEPENDENTS0 CVZNX . LSR-CVZNX) (DCELL . *1*LSR-CVZNX))))) (PUT1-LST (QUOTE *1*LSR-X) (QUOTE (MAIN-EVENT LSR-X))) (PUT1-LST (QUOTE LSR-X) (QUOTE (TYPE-PRESCRIPTION-LST ((LSR-X 4 NIL NIL NIL NIL)) TOTALP-LST ((LSR-X . T)) SDEFN (LAMBDA (LEN OPD CNT CCR) (IF (EQUAL CNT (QUOTE 0)) (CCR-X CCR) (LSR-C LEN OPD CNT))) LISP-CODE *1*LSR-X SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*LSR-X) IMMEDIATE-DEPENDENTS0 (S&R-GROUP-H LSR-CVZNX) EVENT (DEFN LSR-X (LEN OPD CNT CCR) (IF (EQUAL CNT (QUOTE 0)) (CCR-X CCR) (LSR-C LEN OPD CNT))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LSR-C . LSR-X) (IMMEDIATE-DEPENDENTS0 CCR-X . LSR-X) (DCELL . *1*LSR-X))))) (PUT1-LST (QUOTE *1*LSR-N) (QUOTE (MAIN-EVENT LSR-N))) (PUT1-LST (QUOTE LSR-N) (QUOTE (TYPE-PRESCRIPTION-LST ((LSR-N 4 NIL NIL NIL)) TOTALP-LST ((LSR-N . T)) SDEFN (LAMBDA (LEN OPD CNT) (MBIT (LSR OPD CNT) LEN)) LISP-CODE *1*LSR-N SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*LSR-N) IMMEDIATE-DEPENDENTS0 (LSR-N-OFF LSR-N-BITP LSR-CVZNX) EVENT (DEFN LSR-N (LEN OPD CNT) (MBIT (LSR OPD CNT) LEN)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LSR . LSR-N) (IMMEDIATE-DEPENDENTS0 MBIT . LSR-N) (DCELL . *1*LSR-N))))) (PUT1-LST (QUOTE *1*LSR-Z) (QUOTE (MAIN-EVENT LSR-Z))) (PUT1-LST (QUOTE LSR-Z) (QUOTE (TYPE-PRESCRIPTION-LST ((LSR-Z 4 NIL NIL NIL)) TOTALP-LST ((LSR-Z . T)) SDEFN (LAMBDA (LEN OPD CNT) (IF (EQUAL (LSR OPD CNT) (QUOTE 0)) (B1) (B0))) LISP-CODE *1*LSR-Z SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*LSR-Z) IMMEDIATE-DEPENDENTS0 (LSR-Z-OFF LSR-BEQ LSR-Z-BITP LSR-CVZNX) EVENT (DEFN LSR-Z (LEN OPD CNT) (IF (EQUAL (LSR OPD CNT) (QUOTE 0)) (B1) (B0))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B0 . LSR-Z) (IMMEDIATE-DEPENDENTS0 B1 . LSR-Z) (IMMEDIATE-DEPENDENTS0 LSR . LSR-Z) (DCELL . *1*LSR-Z))))) (PUT1-LST (QUOTE *1*LSR-C) (QUOTE (MAIN-EVENT LSR-C))) (PUT1-LST (QUOTE LSR-C) (QUOTE (TYPE-PRESCRIPTION-LST ((LSR-C 4 NIL NIL NIL)) LEMMAS ((REWRITE-RULE LSR-C-0 NIL (EQUAL (LSR-C N X (QUOTE 0)) (QUOTE 0)) NIL)) TOTALP-LST ((LSR-C . T)) SDEFN (LAMBDA (LEN OPD CNT) (IF (EQUAL CNT (QUOTE 0)) (B0) (IF (LESSP LEN CNT) (B0) (BITN OPD (SUB1 CNT))))) LISP-CODE *1*LSR-C SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*LSR-C) IMMEDIATE-DEPENDENTS0 (LSR-C-OFF LSR-1-BCS&CC LSR-C-0 LSR-C-BITP LSR-CVZNX LSR-X) EVENT (DEFN LSR-C (LEN OPD CNT) (IF (EQUAL CNT (QUOTE 0)) (B0) (IF (LESSP LEN CNT) (B0) (BITN OPD (SUB1 CNT))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BITN . LSR-C) (IMMEDIATE-DEPENDENTS0 B0 . LSR-C) (DCELL . *1*LSR-C))))) (PUT1-LST (QUOTE *1*REGISTER-LSL-INS) (QUOTE (MAIN-EVENT REGISTER-LSL-INS))) (PUT1-LST (QUOTE REGISTER-LSL-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((REGISTER-LSL-INS 16 NIL NIL NIL)) TOTALP-LST ((REGISTER-LSL-INS . T)) SDEFN (LAMBDA (OPLEN INS S) (D-MAPPING OPLEN (LSL-EFFECT OPLEN (READ-DN OPLEN (S_RN INS) S) (SR-CNT INS S) (MC-CCR S)) (S_RN INS) S)) LISP-CODE *1*REGISTER-LSL-INS SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*REGISTER-LSL-INS) IMMEDIATE-DEPENDENTS0 (S&R-GROUP-H REGISTER-SHIFT-ROTATE) EVENT (DEFN REGISTER-LSL-INS (OPLEN INS S) (D-MAPPING OPLEN (LSL-EFFECT OPLEN (READ-DN OPLEN (S_RN INS) S) (SR-CNT INS S) (MC-CCR S)) (S_RN INS) S)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MC-CCR . REGISTER-LSL-INS) (IMMEDIATE-DEPENDENTS0 SR-CNT . REGISTER-LSL-INS) (IMMEDIATE-DEPENDENTS0 S_RN . REGISTER-LSL-INS) (IMMEDIATE-DEPENDENTS0 READ-DN . REGISTER-LSL-INS) (IMMEDIATE-DEPENDENTS0 LSL-EFFECT . REGISTER-LSL-INS) (IMMEDIATE-DEPENDENTS0 D-MAPPING . REGISTER-LSL-INS) (DCELL . *1*REGISTER-LSL-INS))))) (PUT1-LST (QUOTE *1*LSL-EFFECT) (QUOTE (MAIN-EVENT LSL-EFFECT))) (PUT1-LST (QUOTE LSL-EFFECT) (QUOTE (TYPE-PRESCRIPTION-LST ((LSL-EFFECT 16 NIL NIL NIL NIL)) TOTALP-LST ((LSL-EFFECT . T)) SDEFN (LAMBDA (LEN OPD CNT CCR) (CONS (LSL LEN OPD CNT) (LSL-CVZNX LEN OPD CNT CCR))) LISP-CODE *1*LSL-EFFECT SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*LSL-EFFECT) IMMEDIATE-DEPENDENTS0 (S&R-GROUP-H MEM-LSL-EFFECT REGISTER-LSL-INS) EVENT (DEFN LSL-EFFECT (LEN OPD CNT CCR) (CONS (LSL LEN OPD CNT) (LSL-CVZNX LEN OPD CNT CCR))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LSL-CVZNX . LSL-EFFECT) (IMMEDIATE-DEPENDENTS0 LSL . LSL-EFFECT) (DCELL . *1*LSL-EFFECT))))) (PUT1-LST (QUOTE *1*LSL-CVZNX) (QUOTE (MAIN-EVENT LSL-CVZNX))) (PUT1-LST (QUOTE LSL-CVZNX) (QUOTE (TYPE-PRESCRIPTION-LST ((LSL-CVZNX 4 NIL NIL NIL NIL)) TOTALP-LST ((LSL-CVZNX . T)) SDEFN (LAMBDA (LEN OPD CNT CCR) (CVZNX (LSL-C LEN OPD CNT) (B0) (LSL-Z LEN OPD CNT) (LSL-N LEN OPD CNT) (LSL-X LEN OPD CNT CCR))) LISP-CODE *1*LSL-CVZNX SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*LSL-CVZNX) IMMEDIATE-DEPENDENTS0 (S&R-GROUP-H LSL-EFFECT) EVENT (DEFN LSL-CVZNX (LEN OPD CNT CCR) (CVZNX (LSL-C LEN OPD CNT) (B0) (LSL-Z LEN OPD CNT) (LSL-N LEN OPD CNT) (LSL-X LEN OPD CNT CCR))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LSL-X . LSL-CVZNX) (IMMEDIATE-DEPENDENTS0 LSL-N . LSL-CVZNX) (IMMEDIATE-DEPENDENTS0 LSL-Z . LSL-CVZNX) (IMMEDIATE-DEPENDENTS0 B0 . LSL-CVZNX) (IMMEDIATE-DEPENDENTS0 LSL-C . LSL-CVZNX) (IMMEDIATE-DEPENDENTS0 CVZNX . LSL-CVZNX) (DCELL . *1*LSL-CVZNX))))) (PUT1-LST (QUOTE *1*LSL-X) (QUOTE (MAIN-EVENT LSL-X))) (PUT1-LST (QUOTE LSL-X) (QUOTE (TYPE-PRESCRIPTION-LST ((LSL-X 4 NIL NIL NIL NIL)) TOTALP-LST ((LSL-X . T)) SDEFN (LAMBDA (LEN OPD CNT CCR) (IF (EQUAL CNT (QUOTE 0)) (CCR-X CCR) (LSL-C LEN OPD CNT))) LISP-CODE *1*LSL-X SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*LSL-X) IMMEDIATE-DEPENDENTS0 (S&R-GROUP-H LSL-CVZNX) EVENT (DEFN LSL-X (LEN OPD CNT CCR) (IF (EQUAL CNT (QUOTE 0)) (CCR-X CCR) (LSL-C LEN OPD CNT))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LSL-C . LSL-X) (IMMEDIATE-DEPENDENTS0 CCR-X . LSL-X) (DCELL . *1*LSL-X))))) (PUT1-LST (QUOTE *1*LSL-N) (QUOTE (MAIN-EVENT LSL-N))) (PUT1-LST (QUOTE LSL-N) (QUOTE (TYPE-PRESCRIPTION-LST ((LSL-N 4 NIL NIL NIL)) TOTALP-LST ((LSL-N . T)) SDEFN (LAMBDA (LEN OPD CNT) (MBIT (LSL LEN OPD CNT) LEN)) LISP-CODE *1*LSL-N SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*LSL-N) IMMEDIATE-DEPENDENTS0 (LSL-N-OFF LSL-N-BITP LSL-CVZNX) EVENT (DEFN LSL-N (LEN OPD CNT) (MBIT (LSL LEN OPD CNT) LEN)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LSL . LSL-N) (IMMEDIATE-DEPENDENTS0 MBIT . LSL-N) (DCELL . *1*LSL-N))))) (PUT1-LST (QUOTE *1*LSL-Z) (QUOTE (MAIN-EVENT LSL-Z))) (PUT1-LST (QUOTE LSL-Z) (QUOTE (TYPE-PRESCRIPTION-LST ((LSL-Z 4 NIL NIL NIL)) TOTALP-LST ((LSL-Z . T)) SDEFN (LAMBDA (LEN OPD CNT) (IF (EQUAL (LSL LEN OPD CNT) (QUOTE 0)) (B1) (B0))) LISP-CODE *1*LSL-Z SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*LSL-Z) IMMEDIATE-DEPENDENTS0 (LSL-Z-OFF LSL-BEQ LSL-Z-BITP LSL-CVZNX) EVENT (DEFN LSL-Z (LEN OPD CNT) (IF (EQUAL (LSL LEN OPD CNT) (QUOTE 0)) (B1) (B0))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B0 . LSL-Z) (IMMEDIATE-DEPENDENTS0 B1 . LSL-Z) (IMMEDIATE-DEPENDENTS0 LSL . LSL-Z) (DCELL . *1*LSL-Z))))) (PUT1-LST (QUOTE *1*LSL-C) (QUOTE (MAIN-EVENT LSL-C))) (PUT1-LST (QUOTE LSL-C) (QUOTE (TYPE-PRESCRIPTION-LST ((LSL-C 4 NIL NIL NIL)) LEMMAS ((REWRITE-RULE LSL-C-0 NIL (EQUAL (LSL-C N X (QUOTE 0)) (QUOTE 0)) NIL)) TOTALP-LST ((LSL-C . T)) SDEFN (LAMBDA (LEN OPD CNT) (IF (EQUAL CNT (QUOTE 0)) (B0) (IF (LESSP LEN CNT) (B0) (BITN OPD (DIFFERENCE LEN CNT))))) LISP-CODE *1*LSL-C SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*LSL-C) IMMEDIATE-DEPENDENTS0 (LSL-C-OFF LSL-1-BCS&CC LSL-C-0 ASL-C-BITP LSL-C-BITP ASL-C LSL-CVZNX LSL-X) EVENT (DEFN LSL-C (LEN OPD CNT) (IF (EQUAL CNT (QUOTE 0)) (B0) (IF (LESSP LEN CNT) (B0) (BITN OPD (DIFFERENCE LEN CNT))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BITN . LSL-C) (IMMEDIATE-DEPENDENTS0 B0 . LSL-C) (DCELL . *1*LSL-C))))) (PUT1-LST (QUOTE *1*MEM-ROR-INS) (QUOTE (MAIN-EVENT MEM-ROR-INS))) (PUT1-LST (QUOTE MEM-ROR-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((MEM-ROR-INS -1 NIL NIL)) TOTALP-LST ((MEM-ROR-INS . T)) SDEFN (LAMBDA (INS S) (IF (S&R-ADDR-MODEP INS) (IF (MC-HALTP (CAR (MC-INSTATE (W) INS S))) (CAR (MC-INSTATE (W) INS S)) (MAPPING (W) (MEM-ROR-EFFECT (OPERAND (W) (CDR (MC-INSTATE (W) INS S)) S) (MC-CCR S)) (MC-INSTATE (W) INS S))) (HALT (MODE-SIGNAL) S))) LISP-CODE *1*MEM-ROR-INS SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214824 SATELLITES (*1*MEM-ROR-INS) IMMEDIATE-DEPENDENTS0 (S&R-GROUP-H MEMORY-SHIFT-ROTATE) EVENT (DEFN MEM-ROR-INS (INS S) (IF (S&R-ADDR-MODEP INS) (IF (MC-HALTP (CAR (MC-INSTATE (W) INS S))) (CAR (MC-INSTATE (W) INS S)) (MAPPING (W) (MEM-ROR-EFFECT (OPERAND (W) (CDR (MC-INSTATE (W) INS S)) S) (MC-CCR S)) (MC-INSTATE (W) INS S))) (HALT (MODE-SIGNAL) S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MODE-SIGNAL . MEM-ROR-INS) (IMMEDIATE-DEPENDENTS0 HALT . MEM-ROR-INS) (IMMEDIATE-DEPENDENTS0 MC-CCR . MEM-ROR-INS) (IMMEDIATE-DEPENDENTS0 OPERAND . MEM-ROR-INS) (IMMEDIATE-DEPENDENTS0 MEM-ROR-EFFECT . MEM-ROR-INS) (IMMEDIATE-DEPENDENTS0 MAPPING . MEM-ROR-INS) (IMMEDIATE-DEPENDENTS0 W . MEM-ROR-INS) (IMMEDIATE-DEPENDENTS0 MC-INSTATE . MEM-ROR-INS) (IMMEDIATE-DEPENDENTS0 MC-HALTP . MEM-ROR-INS) (IMMEDIATE-DEPENDENTS0 S&R-ADDR-MODEP . MEM-ROR-INS) (DCELL . *1*MEM-ROR-INS))))) (PUT1-LST (QUOTE *1*MEM-ROR-EFFECT) (QUOTE (MAIN-EVENT MEM-ROR-EFFECT))) (PUT1-LST (QUOTE MEM-ROR-EFFECT) (QUOTE (TYPE-PRESCRIPTION-LST ((MEM-ROR-EFFECT 16 NIL NIL)) TOTALP-LST ((MEM-ROR-EFFECT . T)) SDEFN (LAMBDA (OPD CCR) (ROR-EFFECT (W) OPD (QUOTE 1) CCR)) LISP-CODE *1*MEM-ROR-EFFECT SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*MEM-ROR-EFFECT) IMMEDIATE-DEPENDENTS0 (S&R-GROUP-H MEM-ROR-INS) EVENT (DEFN MEM-ROR-EFFECT (OPD CCR) (ROR-EFFECT (W) OPD (QUOTE 1) CCR)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 W . MEM-ROR-EFFECT) (IMMEDIATE-DEPENDENTS0 ROR-EFFECT . MEM-ROR-EFFECT) (DCELL . *1*MEM-ROR-EFFECT))))) (PUT1-LST (QUOTE *1*MEM-ROL-INS) (QUOTE (MAIN-EVENT MEM-ROL-INS))) (PUT1-LST (QUOTE MEM-ROL-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((MEM-ROL-INS -1 NIL NIL)) TOTALP-LST ((MEM-ROL-INS . T)) SDEFN (LAMBDA (INS S) (IF (S&R-ADDR-MODEP INS) (IF (MC-HALTP (CAR (MC-INSTATE (W) INS S))) (CAR (MC-INSTATE (W) INS S)) (MAPPING (W) (MEM-ROL-EFFECT (OPERAND (W) (CDR (MC-INSTATE (W) INS S)) S) (MC-CCR S)) (MC-INSTATE (W) INS S))) (HALT (MODE-SIGNAL) S))) LISP-CODE *1*MEM-ROL-INS SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214824 SATELLITES (*1*MEM-ROL-INS) IMMEDIATE-DEPENDENTS0 (S&R-GROUP-H MEMORY-SHIFT-ROTATE) EVENT (DEFN MEM-ROL-INS (INS S) (IF (S&R-ADDR-MODEP INS) (IF (MC-HALTP (CAR (MC-INSTATE (W) INS S))) (CAR (MC-INSTATE (W) INS S)) (MAPPING (W) (MEM-ROL-EFFECT (OPERAND (W) (CDR (MC-INSTATE (W) INS S)) S) (MC-CCR S)) (MC-INSTATE (W) INS S))) (HALT (MODE-SIGNAL) S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MODE-SIGNAL . MEM-ROL-INS) (IMMEDIATE-DEPENDENTS0 HALT . MEM-ROL-INS) (IMMEDIATE-DEPENDENTS0 MC-CCR . MEM-ROL-INS) (IMMEDIATE-DEPENDENTS0 OPERAND . MEM-ROL-INS) (IMMEDIATE-DEPENDENTS0 MEM-ROL-EFFECT . MEM-ROL-INS) (IMMEDIATE-DEPENDENTS0 MAPPING . MEM-ROL-INS) (IMMEDIATE-DEPENDENTS0 W . MEM-ROL-INS) (IMMEDIATE-DEPENDENTS0 MC-INSTATE . MEM-ROL-INS) (IMMEDIATE-DEPENDENTS0 MC-HALTP . MEM-ROL-INS) (IMMEDIATE-DEPENDENTS0 S&R-ADDR-MODEP . MEM-ROL-INS) (DCELL . *1*MEM-ROL-INS))))) (PUT1-LST (QUOTE *1*MEM-ROL-EFFECT) (QUOTE (MAIN-EVENT MEM-ROL-EFFECT))) (PUT1-LST (QUOTE MEM-ROL-EFFECT) (QUOTE (TYPE-PRESCRIPTION-LST ((MEM-ROL-EFFECT 16 NIL NIL)) TOTALP-LST ((MEM-ROL-EFFECT . T)) SDEFN (LAMBDA (OPD CCR) (ROL-EFFECT (W) OPD (QUOTE 1) CCR)) LISP-CODE *1*MEM-ROL-EFFECT SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*MEM-ROL-EFFECT) IMMEDIATE-DEPENDENTS0 (S&R-GROUP-H MEM-ROL-INS) EVENT (DEFN MEM-ROL-EFFECT (OPD CCR) (ROL-EFFECT (W) OPD (QUOTE 1) CCR)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 W . MEM-ROL-EFFECT) (IMMEDIATE-DEPENDENTS0 ROL-EFFECT . MEM-ROL-EFFECT) (DCELL . *1*MEM-ROL-EFFECT))))) (PUT1-LST (QUOTE *1*REGISTER-ROR-INS) (QUOTE (MAIN-EVENT REGISTER-ROR-INS))) (PUT1-LST (QUOTE REGISTER-ROR-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((REGISTER-ROR-INS 16 NIL NIL NIL)) TOTALP-LST ((REGISTER-ROR-INS . T)) SDEFN (LAMBDA (OPLEN INS S) (D-MAPPING OPLEN (ROR-EFFECT OPLEN (READ-DN OPLEN (S_RN INS) S) (SR-CNT INS S) (MC-CCR S)) (S_RN INS) S)) LISP-CODE *1*REGISTER-ROR-INS SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*REGISTER-ROR-INS) IMMEDIATE-DEPENDENTS0 (S&R-GROUP-H REGISTER-SHIFT-ROTATE) EVENT (DEFN REGISTER-ROR-INS (OPLEN INS S) (D-MAPPING OPLEN (ROR-EFFECT OPLEN (READ-DN OPLEN (S_RN INS) S) (SR-CNT INS S) (MC-CCR S)) (S_RN INS) S)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MC-CCR . REGISTER-ROR-INS) (IMMEDIATE-DEPENDENTS0 SR-CNT . REGISTER-ROR-INS) (IMMEDIATE-DEPENDENTS0 S_RN . REGISTER-ROR-INS) (IMMEDIATE-DEPENDENTS0 READ-DN . REGISTER-ROR-INS) (IMMEDIATE-DEPENDENTS0 ROR-EFFECT . REGISTER-ROR-INS) (IMMEDIATE-DEPENDENTS0 D-MAPPING . REGISTER-ROR-INS) (DCELL . *1*REGISTER-ROR-INS))))) (PUT1-LST (QUOTE *1*ROR-EFFECT) (QUOTE (MAIN-EVENT ROR-EFFECT))) (PUT1-LST (QUOTE ROR-EFFECT) (QUOTE (TYPE-PRESCRIPTION-LST ((ROR-EFFECT 16 NIL NIL NIL NIL)) TOTALP-LST ((ROR-EFFECT . T)) SDEFN (LAMBDA (OPLEN OPD CNT CCR) (CONS (ROR OPLEN OPD CNT) (ROR-CVZNX OPLEN OPD CNT CCR))) LISP-CODE *1*ROR-EFFECT SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*ROR-EFFECT) IMMEDIATE-DEPENDENTS0 (S&R-GROUP-H MEM-ROR-EFFECT REGISTER-ROR-INS) EVENT (DEFN ROR-EFFECT (OPLEN OPD CNT CCR) (CONS (ROR OPLEN OPD CNT) (ROR-CVZNX OPLEN OPD CNT CCR))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ROR-CVZNX . ROR-EFFECT) (IMMEDIATE-DEPENDENTS0 ROR . ROR-EFFECT) (DCELL . *1*ROR-EFFECT))))) (PUT1-LST (QUOTE *1*ROR-CVZNX) (QUOTE (MAIN-EVENT ROR-CVZNX))) (PUT1-LST (QUOTE ROR-CVZNX) (QUOTE (TYPE-PRESCRIPTION-LST ((ROR-CVZNX 4 NIL NIL NIL NIL)) TOTALP-LST ((ROR-CVZNX . T)) SDEFN (LAMBDA (LEN OPD CNT CCR) (CVZNX (ROR-C LEN OPD CNT) (B0) (ROR-Z LEN OPD CNT) (ROR-N LEN OPD CNT) (CCR-X CCR))) LISP-CODE *1*ROR-CVZNX SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*ROR-CVZNX) IMMEDIATE-DEPENDENTS0 (S&R-GROUP-H ROR-EFFECT) EVENT (DEFN ROR-CVZNX (LEN OPD CNT CCR) (CVZNX (ROR-C LEN OPD CNT) (B0) (ROR-Z LEN OPD CNT) (ROR-N LEN OPD CNT) (CCR-X CCR))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CCR-X . ROR-CVZNX) (IMMEDIATE-DEPENDENTS0 ROR-N . ROR-CVZNX) (IMMEDIATE-DEPENDENTS0 ROR-Z . ROR-CVZNX) (IMMEDIATE-DEPENDENTS0 B0 . ROR-CVZNX) (IMMEDIATE-DEPENDENTS0 ROR-C . ROR-CVZNX) (IMMEDIATE-DEPENDENTS0 CVZNX . ROR-CVZNX) (DCELL . *1*ROR-CVZNX))))) (PUT1-LST (QUOTE *1*ROR-N) (QUOTE (MAIN-EVENT ROR-N))) (PUT1-LST (QUOTE ROR-N) (QUOTE (TYPE-PRESCRIPTION-LST ((ROR-N 4 NIL NIL NIL)) TOTALP-LST ((ROR-N . T)) SDEFN (LAMBDA (LEN X CNT) (IF (EQUAL (REMAINDER CNT LEN) (QUOTE 0)) (BITN X (SUB1 LEN)) (BITN X (SUB1 (REMAINDER CNT LEN))))) LISP-CODE *1*ROR-N SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*ROR-N) IMMEDIATE-DEPENDENTS0 (ROR-N-OFF ROR-N-BITP ROR-CVZNX) EVENT (DEFN ROR-N (LEN X CNT) (IF (ZEROP (REMAINDER CNT LEN)) (BITN X (SUB1 LEN)) (BITN X (SUB1 (REMAINDER CNT LEN))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BITN . ROR-N) (DCELL . *1*ROR-N))))) (PUT1-LST (QUOTE *1*ROR-Z) (QUOTE (MAIN-EVENT ROR-Z))) (PUT1-LST (QUOTE ROR-Z) (QUOTE (TYPE-PRESCRIPTION-LST ((ROR-Z 4 NIL NIL NIL)) TOTALP-LST ((ROR-Z . T)) SDEFN (LAMBDA (LEN OPD CNT) (IF (EQUAL OPD (QUOTE 0)) (B1) (B0))) LISP-CODE *1*ROR-Z SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402214824 SATELLITES (*1*ROR-Z) IMMEDIATE-DEPENDENTS0 (ROR-Z-OFF ROR-Z-BITP ROR-CVZNX) EVENT (DEFN ROR-Z (LEN OPD CNT) (IF (EQUAL OPD (QUOTE 0)) (B1) (B0))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B0 . ROR-Z) (IMMEDIATE-DEPENDENTS0 B1 . ROR-Z) (DCELL . *1*ROR-Z))))) (PUT1-LST (QUOTE *1*ROR-C) (QUOTE (MAIN-EVENT ROR-C))) (PUT1-LST (QUOTE ROR-C) (QUOTE (TYPE-PRESCRIPTION-LST ((ROR-C 4 NIL NIL NIL)) TOTALP-LST ((ROR-C . T)) SDEFN (LAMBDA (LEN X CNT) (IF (EQUAL CNT (QUOTE 0)) (B0) (IF (EQUAL (REMAINDER CNT LEN) (QUOTE 0)) (BITN X (SUB1 LEN)) (BITN X (SUB1 (REMAINDER CNT LEN)))))) LISP-CODE *1*ROR-C SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*ROR-C) IMMEDIATE-DEPENDENTS0 (ROR-C-OFF ROR-C-BITP ROR-CVZNX) EVENT (DEFN ROR-C (LEN X CNT) (IF (EQUAL CNT (QUOTE 0)) (B0) (IF (EQUAL (REMAINDER CNT LEN) (QUOTE 0)) (BITN X (SUB1 LEN)) (BITN X (SUB1 (REMAINDER CNT LEN)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BITN . ROR-C) (IMMEDIATE-DEPENDENTS0 B0 . ROR-C) (DCELL . *1*ROR-C))))) (PUT1-LST (QUOTE *1*REGISTER-ROL-INS) (QUOTE (MAIN-EVENT REGISTER-ROL-INS))) (PUT1-LST (QUOTE REGISTER-ROL-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((REGISTER-ROL-INS 16 NIL NIL NIL)) TOTALP-LST ((REGISTER-ROL-INS . T)) SDEFN (LAMBDA (OPLEN INS S) (D-MAPPING OPLEN (ROL-EFFECT OPLEN (READ-DN OPLEN (S_RN INS) S) (SR-CNT INS S) (MC-CCR S)) (S_RN INS) S)) LISP-CODE *1*REGISTER-ROL-INS SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*REGISTER-ROL-INS) IMMEDIATE-DEPENDENTS0 (S&R-GROUP-H REGISTER-SHIFT-ROTATE) EVENT (DEFN REGISTER-ROL-INS (OPLEN INS S) (D-MAPPING OPLEN (ROL-EFFECT OPLEN (READ-DN OPLEN (S_RN INS) S) (SR-CNT INS S) (MC-CCR S)) (S_RN INS) S)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MC-CCR . REGISTER-ROL-INS) (IMMEDIATE-DEPENDENTS0 SR-CNT . REGISTER-ROL-INS) (IMMEDIATE-DEPENDENTS0 S_RN . REGISTER-ROL-INS) (IMMEDIATE-DEPENDENTS0 READ-DN . REGISTER-ROL-INS) (IMMEDIATE-DEPENDENTS0 ROL-EFFECT . REGISTER-ROL-INS) (IMMEDIATE-DEPENDENTS0 D-MAPPING . REGISTER-ROL-INS) (DCELL . *1*REGISTER-ROL-INS))))) (PUT1-LST (QUOTE *1*ROL-EFFECT) (QUOTE (MAIN-EVENT ROL-EFFECT))) (PUT1-LST (QUOTE ROL-EFFECT) (QUOTE (TYPE-PRESCRIPTION-LST ((ROL-EFFECT 16 NIL NIL NIL NIL)) TOTALP-LST ((ROL-EFFECT . T)) SDEFN (LAMBDA (LEN OPD CNT CCR) (CONS (ROL LEN OPD CNT) (ROL-CVZNX LEN OPD CNT CCR))) LISP-CODE *1*ROL-EFFECT SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*ROL-EFFECT) IMMEDIATE-DEPENDENTS0 (S&R-GROUP-H MEM-ROL-EFFECT REGISTER-ROL-INS) EVENT (DEFN ROL-EFFECT (LEN OPD CNT CCR) (CONS (ROL LEN OPD CNT) (ROL-CVZNX LEN OPD CNT CCR))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ROL-CVZNX . ROL-EFFECT) (IMMEDIATE-DEPENDENTS0 ROL . ROL-EFFECT) (DCELL . *1*ROL-EFFECT))))) (PUT1-LST (QUOTE *1*ROL-CVZNX) (QUOTE (MAIN-EVENT ROL-CVZNX))) (PUT1-LST (QUOTE ROL-CVZNX) (QUOTE (TYPE-PRESCRIPTION-LST ((ROL-CVZNX 4 NIL NIL NIL NIL)) TOTALP-LST ((ROL-CVZNX . T)) SDEFN (LAMBDA (LEN OPD CNT CCR) (CVZNX (ROL-C LEN OPD CNT) (B0) (ROL-Z LEN OPD CNT) (ROL-N LEN OPD CNT) (CCR-X CCR))) LISP-CODE *1*ROL-CVZNX SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*ROL-CVZNX) IMMEDIATE-DEPENDENTS0 (S&R-GROUP-H ROL-EFFECT) EVENT (DEFN ROL-CVZNX (LEN OPD CNT CCR) (CVZNX (ROL-C LEN OPD CNT) (B0) (ROL-Z LEN OPD CNT) (ROL-N LEN OPD CNT) (CCR-X CCR))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CCR-X . ROL-CVZNX) (IMMEDIATE-DEPENDENTS0 ROL-N . ROL-CVZNX) (IMMEDIATE-DEPENDENTS0 ROL-Z . ROL-CVZNX) (IMMEDIATE-DEPENDENTS0 B0 . ROL-CVZNX) (IMMEDIATE-DEPENDENTS0 ROL-C . ROL-CVZNX) (IMMEDIATE-DEPENDENTS0 CVZNX . ROL-CVZNX) (DCELL . *1*ROL-CVZNX))))) (PUT1-LST (QUOTE *1*ROL-N) (QUOTE (MAIN-EVENT ROL-N))) (PUT1-LST (QUOTE ROL-N) (QUOTE (TYPE-PRESCRIPTION-LST ((ROL-N 4 NIL NIL NIL)) TOTALP-LST ((ROL-N . T)) SDEFN (LAMBDA (LEN X CNT) (BITN X (SUB1 (DIFFERENCE LEN (REMAINDER CNT LEN))))) LISP-CODE *1*ROL-N SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*ROL-N) IMMEDIATE-DEPENDENTS0 (ROL-N-OFF ROL-N-BITP ROL-CVZNX) EVENT (DEFN ROL-N (LEN X CNT) (BITN X (SUB1 (DIFFERENCE LEN (REMAINDER CNT LEN))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BITN . ROL-N) (DCELL . *1*ROL-N))))) (PUT1-LST (QUOTE *1*ROL-Z) (QUOTE (MAIN-EVENT ROL-Z))) (PUT1-LST (QUOTE ROL-Z) (QUOTE (TYPE-PRESCRIPTION-LST ((ROL-Z 4 NIL NIL NIL)) TOTALP-LST ((ROL-Z . T)) SDEFN (LAMBDA (LEN X CNT) (IF (EQUAL X (QUOTE 0)) (B1) (B0))) LISP-CODE *1*ROL-Z SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402214824 SATELLITES (*1*ROL-Z) IMMEDIATE-DEPENDENTS0 (ROL-Z-OFF ROL-Z-BITP ROL-CVZNX) EVENT (DEFN ROL-Z (LEN X CNT) (IF (EQUAL X (QUOTE 0)) (B1) (B0))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B0 . ROL-Z) (IMMEDIATE-DEPENDENTS0 B1 . ROL-Z) (DCELL . *1*ROL-Z))))) (PUT1-LST (QUOTE *1*ROL-C) (QUOTE (MAIN-EVENT ROL-C))) (PUT1-LST (QUOTE ROL-C) (QUOTE (TYPE-PRESCRIPTION-LST ((ROL-C 4 NIL NIL NIL)) TOTALP-LST ((ROL-C . T)) SDEFN (LAMBDA (LEN X CNT) (IF (EQUAL CNT (QUOTE 0)) (B0) (IF (EQUAL (REMAINDER CNT LEN) (QUOTE 0)) (BCAR X) (BITN X (DIFFERENCE LEN (REMAINDER CNT LEN)))))) LISP-CODE *1*ROL-C SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*ROL-C) IMMEDIATE-DEPENDENTS0 (ROL-C-OFF ROL-C-BITP ROL-CVZNX) EVENT (DEFN ROL-C (LEN X CNT) (IF (EQUAL CNT (QUOTE 0)) (B0) (IF (ZEROP (REMAINDER CNT LEN)) (BCAR X) (BITN X (DIFFERENCE LEN (REMAINDER CNT LEN)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BITN . ROL-C) (IMMEDIATE-DEPENDENTS0 BCAR . ROL-C) (IMMEDIATE-DEPENDENTS0 B0 . ROL-C) (DCELL . *1*ROL-C))))) (PUT1-LST (QUOTE *1*SR-CNT) (QUOTE (MAIN-EVENT SR-CNT))) (PUT1-LST (QUOTE SR-CNT) (QUOTE (TYPE-PRESCRIPTION-LST ((SR-CNT 4 NIL NIL)) TOTALP-LST ((SR-CNT . T)) SDEFN (LAMBDA (INS S) (IF (B0P (BITN INS (QUOTE 5))) (I-DATA (D_RN INS)) (REMAINDER (READ-DN (B) (D_RN INS) S) (QUOTE 64)))) LISP-CODE *1*SR-CNT SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*SR-CNT) IMMEDIATE-DEPENDENTS0 (REGISTER-ROXR-INS REGISTER-ROXL-INS REGISTER-ASR-INS REGISTER-ASL-INS REGISTER-LSR-INS REGISTER-LSL-INS REGISTER-ROR-INS REGISTER-ROL-INS) EVENT (DEFN SR-CNT (INS S) (IF (B0P (BITN INS (QUOTE 5))) (I-DATA (D_RN INS)) (REMAINDER (READ-DN (B) (D_RN INS) S) (QUOTE 64)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B . SR-CNT) (IMMEDIATE-DEPENDENTS0 READ-DN . SR-CNT) (IMMEDIATE-DEPENDENTS0 D_RN . SR-CNT) (IMMEDIATE-DEPENDENTS0 I-DATA . SR-CNT) (IMMEDIATE-DEPENDENTS0 BITN . SR-CNT) (IMMEDIATE-DEPENDENTS0 B0P . SR-CNT) (DCELL . *1*SR-CNT))))) (PUT1-LST (QUOTE *1*I-DATA) (QUOTE (MAIN-EVENT I-DATA))) (PUT1-LST (QUOTE I-DATA) (QUOTE (TYPE-PRESCRIPTION-LST ((I-DATA 4 NIL)) TOTALP-LST ((I-DATA . T)) SDEFN (LAMBDA (N) (IF (EQUAL N (QUOTE 0)) (QUOTE 8) (IF (NUMBERP N) N (QUOTE 8)))) LISP-CODE *1*I-DATA SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402214824 SATELLITES (*1*I-DATA) IMMEDIATE-DEPENDENTS0 (SCC-GROUP-H SUBQ-INS ADDQ-INS SR-CNT) EVENT (DEFN I-DATA (N) (IF (ZEROP N) (QUOTE 8) N)) LOCAL-UNDO-TUPLES ((DCELL . *1*I-DATA))))) (PUT1-LST (QUOTE *1*S&R-ADDR-MODEP) (QUOTE (MAIN-EVENT S&R-ADDR-MODEP))) (PUT1-LST (QUOTE S&R-ADDR-MODEP) (QUOTE (TYPE-PRESCRIPTION-LST ((S&R-ADDR-MODEP 3 NIL)) TOTALP-LST ((S&R-ADDR-MODEP . T)) SDEFN (LAMBDA (INS) (IF (MEMORY-ADDR-MODEP (S_MODE INS) (S_RN INS)) (ALTERABLE-ADDR-MODEP (S_MODE INS) (S_RN INS)) (QUOTE *1*FALSE))) LISP-CODE *1*S&R-ADDR-MODEP SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*S&R-ADDR-MODEP) IMMEDIATE-DEPENDENTS0 (MODE-GUARDS MEM-ROXR-INS MEM-ROXL-INS MEM-ASR-INS MEM-ASL-INS MEM-LSR-INS MEM-LSL-INS MEM-ROR-INS MEM-ROL-INS) EVENT (DEFN S&R-ADDR-MODEP (INS) (AND (MEMORY-ADDR-MODEP (S_MODE INS) (S_RN INS)) (ALTERABLE-ADDR-MODEP (S_MODE INS) (S_RN INS)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ALTERABLE-ADDR-MODEP . S&R-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 S_RN . S&R-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 S_MODE . S&R-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 MEMORY-ADDR-MODEP . S&R-ADDR-MODEP) (DCELL . *1*S&R-ADDR-MODEP))))) (PUT1-LST (QUOTE *1*ROR) (QUOTE (MAIN-EVENT ROR))) (PUT1-LST (QUOTE ROR) (QUOTE (TYPE-PRESCRIPTION-LST ((ROR 4 NIL NIL NIL)) TOTALP-LST ((ROR . T)) SDEFN (LAMBDA (LEN X CNT) (APP (DIFFERENCE LEN (REMAINDER CNT LEN)) (TAIL X (REMAINDER CNT LEN)) (HEAD X (REMAINDER CNT LEN)))) LISP-CODE *1*ROR SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*ROR) IMMEDIATE-DEPENDENTS0 (S&R-GROUP-H ROXR ROR-EFFECT) EVENT (DEFN ROR (LEN X CNT) (APP (DIFFERENCE LEN (REMAINDER CNT LEN)) (TAIL X (REMAINDER CNT LEN)) (HEAD X (REMAINDER CNT LEN)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 HEAD . ROR) (IMMEDIATE-DEPENDENTS0 TAIL . ROR) (IMMEDIATE-DEPENDENTS0 APP . ROR) (DCELL . *1*ROR))))) (PUT1-LST (QUOTE *1*ROL) (QUOTE (MAIN-EVENT ROL))) (PUT1-LST (QUOTE ROL) (QUOTE (TYPE-PRESCRIPTION-LST ((ROL 4 NIL NIL NIL)) TOTALP-LST ((ROL . T)) SDEFN (LAMBDA (LEN X CNT) (APP (REMAINDER CNT LEN) (TAIL X (DIFFERENCE LEN (REMAINDER CNT LEN))) (HEAD X (DIFFERENCE LEN (REMAINDER CNT LEN))))) LISP-CODE *1*ROL SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*ROL) IMMEDIATE-DEPENDENTS0 (S&R-GROUP-H ROXL ROL-EFFECT) EVENT (DEFN ROL (LEN X CNT) (APP (REMAINDER CNT LEN) (TAIL X (DIFFERENCE LEN (REMAINDER CNT LEN))) (HEAD X (DIFFERENCE LEN (REMAINDER CNT LEN))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 HEAD . ROL) (IMMEDIATE-DEPENDENTS0 TAIL . ROL) (IMMEDIATE-DEPENDENTS0 APP . ROL) (DCELL . *1*ROL))))) (PUT1-LST (QUOTE *1*OR-GROUP) (QUOTE (MAIN-EVENT OR-GROUP))) (PUT1-LST (QUOTE OR-GROUP) (QUOTE (TYPE-PRESCRIPTION-LST ((OR-GROUP -1 NIL NIL NIL)) TOTALP-LST ((OR-GROUP . T)) SDEFN (LAMBDA (OPLEN INS S) (IF (EQUAL OPLEN (Q)) (DIV_W-INS INS S) (IF (B0P (BITN INS (QUOTE 8))) (OR-INS1 OPLEN INS S) (IF (LESSP (S_MODE INS) (QUOTE 2)) (HALT (QUOTE SBCD-PACK-UNPK-UNSPECIFIED) S) (OR-INS2 OPLEN INS S))))) LISP-CODE *1*OR-GROUP SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214824 SATELLITES (*1*OR-GROUP) IMMEDIATE-DEPENDENTS0 (OR-GROUP-H GROUPS EXECUTE-INS) EVENT (DEFN OR-GROUP (OPLEN INS S) (IF (EQUAL OPLEN (Q)) (DIV_W-INS INS S) (IF (B0P (BITN INS (QUOTE 8))) (OR-INS1 OPLEN INS S) (IF (LESSP (S_MODE INS) (QUOTE 2)) (HALT (QUOTE SBCD-PACK-UNPK-UNSPECIFIED) S) (OR-INS2 OPLEN INS S))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OR-INS2 . OR-GROUP) (IMMEDIATE-DEPENDENTS0 HALT . OR-GROUP) (IMMEDIATE-DEPENDENTS0 S_MODE . OR-GROUP) (IMMEDIATE-DEPENDENTS0 OR-INS1 . OR-GROUP) (IMMEDIATE-DEPENDENTS0 BITN . OR-GROUP) (IMMEDIATE-DEPENDENTS0 B0P . OR-GROUP) (IMMEDIATE-DEPENDENTS0 DIV_W-INS . OR-GROUP) (IMMEDIATE-DEPENDENTS0 Q . OR-GROUP) (DCELL . *1*OR-GROUP))))) (PUT1-LST (QUOTE *1*DIV_W-INS) (QUOTE (MAIN-EVENT DIV_W-INS))) (PUT1-LST (QUOTE DIV_W-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((DIV_W-INS -1 NIL NIL)) TOTALP-LST ((DIV_W-INS . T)) SDEFN (LAMBDA (INS S) (IF (MUL&DIV-ADDR-MODEP INS) (IF (MC-HALTP (CAR (MC-INSTATE (W) INS S))) (CAR (MC-INSTATE (W) INS S)) (IF (B0P (BITN INS (QUOTE 8))) (DIVU_W-INS (OPERAND (W) (CDR (MC-INSTATE (W) INS S)) S) (D_RN INS) (CAR (MC-INSTATE (W) INS S))) (DIVS_W-INS (OPERAND (W) (CDR (MC-INSTATE (W) INS S)) S) (D_RN INS) (CAR (MC-INSTATE (W) INS S))))) (HALT (MODE-SIGNAL) S))) LISP-CODE *1*DIV_W-INS SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214824 SATELLITES (*1*DIV_W-INS) IMMEDIATE-DEPENDENTS0 (OR-GROUP-H OR-GROUP) EVENT (DEFN DIV_W-INS (INS S) (IF (MUL&DIV-ADDR-MODEP INS) (IF (MC-HALTP (CAR (MC-INSTATE (W) INS S))) (CAR (MC-INSTATE (W) INS S)) (IF (B0P (BITN INS (QUOTE 8))) (DIVU_W-INS (OPERAND (W) (CDR (MC-INSTATE (W) INS S)) S) (D_RN INS) (CAR (MC-INSTATE (W) INS S))) (DIVS_W-INS (OPERAND (W) (CDR (MC-INSTATE (W) INS S)) S) (D_RN INS) (CAR (MC-INSTATE (W) INS S))))) (HALT (MODE-SIGNAL) S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MODE-SIGNAL . DIV_W-INS) (IMMEDIATE-DEPENDENTS0 HALT . DIV_W-INS) (IMMEDIATE-DEPENDENTS0 DIVS_W-INS . DIV_W-INS) (IMMEDIATE-DEPENDENTS0 D_RN . DIV_W-INS) (IMMEDIATE-DEPENDENTS0 OPERAND . DIV_W-INS) (IMMEDIATE-DEPENDENTS0 DIVU_W-INS . DIV_W-INS) (IMMEDIATE-DEPENDENTS0 BITN . DIV_W-INS) (IMMEDIATE-DEPENDENTS0 B0P . DIV_W-INS) (IMMEDIATE-DEPENDENTS0 W . DIV_W-INS) (IMMEDIATE-DEPENDENTS0 MC-INSTATE . DIV_W-INS) (IMMEDIATE-DEPENDENTS0 MC-HALTP . DIV_W-INS) (IMMEDIATE-DEPENDENTS0 MUL&DIV-ADDR-MODEP . DIV_W-INS) (DCELL . *1*DIV_W-INS))))) (PUT1-LST (QUOTE *1*DIVU_W-INS) (QUOTE (MAIN-EVENT DIVU_W-INS))) (PUT1-LST (QUOTE DIVU_W-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((DIVU_W-INS 16 NIL NIL NIL)) TOTALP-LST ((DIVU_W-INS . T)) SDEFN (LAMBDA (SOPD DN S) (IF (EQUAL (NAT-TO-UINT SOPD) (QUOTE 0)) (HALT (QUOTE TRAP-EXCEPTION) S) (IF (B0P (DIVU-V (W) SOPD (READ-DN (L) DN S))) (UPDATE-CCR (DIVU-CVZNX (W) SOPD (READ-DN (L) DN S) (MC-CCR S)) (WRITE-DN (L) (APP (W) (QUOT (W) SOPD (READ-DN (L) DN S)) (REM (W) SOPD (READ-DN (L) DN S))) DN S)) (HALT (QUOTE DIVU-OVERFLOW) (UPDATE-CCR (SET-V (B1) (MC-CCR S)) S))))) LISP-CODE *1*DIVU_W-INS SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*DIVU_W-INS) IMMEDIATE-DEPENDENTS0 (OR-GROUP-H DIV_W-INS) EVENT (DEFN DIVU_W-INS (SOPD DN S) (IF (EQUAL (NAT-TO-UINT SOPD) (QUOTE 0)) (HALT (QUOTE TRAP-EXCEPTION) S) (IF (B0P (DIVU-V (W) SOPD (READ-DN (L) DN S))) (UPDATE-CCR (DIVU-CVZNX (W) SOPD (READ-DN (L) DN S) (MC-CCR S)) (WRITE-DN (L) (APP (W) (QUOT (W) SOPD (READ-DN (L) DN S)) (REM (W) SOPD (READ-DN (L) DN S))) DN S)) (HALT (QUOTE DIVU-OVERFLOW) (UPDATE-CCR (SET-V (B1) (MC-CCR S)) S))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B1 . DIVU_W-INS) (IMMEDIATE-DEPENDENTS0 SET-V . DIVU_W-INS) (IMMEDIATE-DEPENDENTS0 REM . DIVU_W-INS) (IMMEDIATE-DEPENDENTS0 QUOT . DIVU_W-INS) (IMMEDIATE-DEPENDENTS0 APP . DIVU_W-INS) (IMMEDIATE-DEPENDENTS0 WRITE-DN . DIVU_W-INS) (IMMEDIATE-DEPENDENTS0 MC-CCR . DIVU_W-INS) (IMMEDIATE-DEPENDENTS0 DIVU-CVZNX . DIVU_W-INS) (IMMEDIATE-DEPENDENTS0 UPDATE-CCR . DIVU_W-INS) (IMMEDIATE-DEPENDENTS0 L . DIVU_W-INS) (IMMEDIATE-DEPENDENTS0 READ-DN . DIVU_W-INS) (IMMEDIATE-DEPENDENTS0 W . DIVU_W-INS) (IMMEDIATE-DEPENDENTS0 DIVU-V . DIVU_W-INS) (IMMEDIATE-DEPENDENTS0 B0P . DIVU_W-INS) (IMMEDIATE-DEPENDENTS0 HALT . DIVU_W-INS) (IMMEDIATE-DEPENDENTS0 NAT-TO-UINT . DIVU_W-INS) (DCELL . *1*DIVU_W-INS))))) (PUT1-LST (QUOTE *1*DIVU-CVZNX) (QUOTE (MAIN-EVENT DIVU-CVZNX))) (PUT1-LST (QUOTE DIVU-CVZNX) (QUOTE (TYPE-PRESCRIPTION-LST ((DIVU-CVZNX 4 NIL NIL NIL NIL)) TOTALP-LST ((DIVU-CVZNX . T)) SDEFN (LAMBDA (N SOPD DOPD CCR) (CVZNX (B0) (B0) (DIVU-Z N SOPD DOPD) (DIVU-N N SOPD DOPD) (CCR-X CCR))) LISP-CODE *1*DIVU-CVZNX SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*DIVU-CVZNX) IMMEDIATE-DEPENDENTS0 (MISC-GROUP-H OR-GROUP-H DIVU_L DIVUL_L DIVU_W-INS) EVENT (DEFN DIVU-CVZNX (N SOPD DOPD CCR) (CVZNX (B0) (B0) (DIVU-Z N SOPD DOPD) (DIVU-N N SOPD DOPD) (CCR-X CCR))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CCR-X . DIVU-CVZNX) (IMMEDIATE-DEPENDENTS0 DIVU-N . DIVU-CVZNX) (IMMEDIATE-DEPENDENTS0 DIVU-Z . DIVU-CVZNX) (IMMEDIATE-DEPENDENTS0 B0 . DIVU-CVZNX) (IMMEDIATE-DEPENDENTS0 CVZNX . DIVU-CVZNX) (DCELL . *1*DIVU-CVZNX))))) (PUT1-LST (QUOTE *1*DIVU-N) (QUOTE (MAIN-EVENT DIVU-N))) (PUT1-LST (QUOTE DIVU-N) (QUOTE (TYPE-PRESCRIPTION-LST ((DIVU-N 4 NIL NIL NIL)) TOTALP-LST ((DIVU-N . T)) SDEFN (LAMBDA (N SOPD DOPD) (MBIT (QUOT N SOPD DOPD) N)) LISP-CODE *1*DIVU-N SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*DIVU-N) IMMEDIATE-DEPENDENTS0 (DIVU-N-OFF DIVU-N-BITP DIVU-CVZNX) EVENT (DEFN DIVU-N (N SOPD DOPD) (MBIT (QUOT N SOPD DOPD) N)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 QUOT . DIVU-N) (IMMEDIATE-DEPENDENTS0 MBIT . DIVU-N) (DCELL . *1*DIVU-N))))) (PUT1-LST (QUOTE *1*DIVU-Z) (QUOTE (MAIN-EVENT DIVU-Z))) (PUT1-LST (QUOTE DIVU-Z) (QUOTE (TYPE-PRESCRIPTION-LST ((DIVU-Z 4 NIL NIL NIL)) TOTALP-LST ((DIVU-Z . T)) SDEFN (LAMBDA (N SOPD DOPD) (IF (EQUAL (QUOT N SOPD DOPD) (QUOTE 0)) (B1) (B0))) LISP-CODE *1*DIVU-Z SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*DIVU-Z) IMMEDIATE-DEPENDENTS0 (DIVU-Z-OFF DIVU-BEQ DIVU-Z-BITP DIVU-CVZNX) EVENT (DEFN DIVU-Z (N SOPD DOPD) (IF (EQUAL (QUOT N SOPD DOPD) (QUOTE 0)) (B1) (B0))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B0 . DIVU-Z) (IMMEDIATE-DEPENDENTS0 B1 . DIVU-Z) (IMMEDIATE-DEPENDENTS0 QUOT . DIVU-Z) (DCELL . *1*DIVU-Z))))) (PUT1-LST (QUOTE *1*DIVU-V) (QUOTE (MAIN-EVENT DIVU-V))) (PUT1-LST (QUOTE DIVU-V) (QUOTE (TYPE-PRESCRIPTION-LST ((DIVU-V 4 NIL NIL NIL)) LEMMAS ((REWRITE-RULE DIVU-OVERFLOW NIL (EQUAL (DIVU-V N X Y) (IF (UINT-RANGEP (QUOTIENT (NAT-TO-UINT Y) (NAT-TO-UINT X)) N) (QUOTE 0) (QUOTE 1))) NIL)) TOTALP-LST ((DIVU-V . T)) SDEFN (LAMBDA (N SOPD DOPD) (IF (LESSP (QUOTIENT DOPD SOPD) (EXP (QUOTE 2) N)) (B0) (B1))) LISP-CODE *1*DIVU-V SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*DIVU-V) IMMEDIATE-DEPENDENTS0 (DIVU-V-OFF DIVU-OVERFLOW DIVU_L DIVU_W-INS) EVENT (DEFN DIVU-V (N SOPD DOPD) (IF (LESSP (QUOTIENT DOPD SOPD) (EXP (QUOTE 2) N)) (B0) (B1))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B1 . DIVU-V) (IMMEDIATE-DEPENDENTS0 B0 . DIVU-V) (IMMEDIATE-DEPENDENTS0 EXP . DIVU-V) (DCELL . *1*DIVU-V))))) (PUT1-LST (QUOTE *1*REM) (QUOTE (MAIN-EVENT REM))) (PUT1-LST (QUOTE REM) (QUOTE (TYPE-PRESCRIPTION-LST ((REM 4 NIL NIL NIL)) TOTALP-LST ((REM . T)) SDEFN (LAMBDA (N X Y) (HEAD (REMAINDER Y X) N)) LISP-CODE *1*REM SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*REM) IMMEDIATE-DEPENDENTS0 (REM-OFF REM-NAT-RANGEP REM-NAT DIVU_L DIVUL_L DIVU_W-INS) EVENT (DEFN REM (N X Y) (HEAD (REMAINDER Y X) N)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 HEAD . REM) (DCELL . *1*REM))))) (PUT1-LST (QUOTE *1*QUOT) (QUOTE (MAIN-EVENT QUOT))) (PUT1-LST (QUOTE QUOT) (QUOTE (TYPE-PRESCRIPTION-LST ((QUOT 4 NIL NIL NIL)) TOTALP-LST ((QUOT . T)) SDEFN (LAMBDA (N X Y) (HEAD (QUOTIENT Y X) N)) LISP-CODE *1*QUOT SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*QUOT) IMMEDIATE-DEPENDENTS0 (QUOT-OFF DIVU-BEQ DIVU-N-BITP DIVU-Z-BITP QUOT-NAT-RANGEP QUOT-NAT DIVU_L DIVUL_L DIVU_W-INS DIVU-N DIVU-Z) EVENT (DEFN QUOT (N X Y) (HEAD (QUOTIENT Y X) N)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 HEAD . QUOT) (DCELL . *1*QUOT))))) (PUT1-LST (QUOTE *1*DIVS_W-INS) (QUOTE (MAIN-EVENT DIVS_W-INS))) (PUT1-LST (QUOTE DIVS_W-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((DIVS_W-INS 16 NIL NIL NIL)) TOTALP-LST ((DIVS_W-INS . T)) SDEFN (LAMBDA (SOPD DN S) (IF (EQUAL (NAT-TO-INT SOPD (W)) (QUOTE 0)) (HALT (QUOTE TRAP-EXCEPTION) S) (IF (B0P (DIVS-V (W) SOPD (W) (READ-DN (L) DN S) (L))) (UPDATE-CCR (DIVS-CVZNX (W) SOPD (W) (READ-DN (L) DN S) (L) (MC-CCR S)) (WRITE-DN (L) (APP (W) (IQUOT (W) SOPD (W) (READ-DN (L) DN S) (L)) (IREM (W) SOPD (W) (READ-DN (L) DN S) (L))) DN S)) (HALT (QUOTE DIVS-OVERFLOW) (UPDATE-CCR (SET-V (B1) (MC-CCR S)) S))))) LISP-CODE *1*DIVS_W-INS SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*DIVS_W-INS) IMMEDIATE-DEPENDENTS0 (OR-GROUP-H DIV_W-INS) EVENT (DEFN DIVS_W-INS (SOPD DN S) (IF (EQUAL (NAT-TO-INT SOPD (W)) (QUOTE 0)) (HALT (QUOTE TRAP-EXCEPTION) S) (IF (B0P (DIVS-V (W) SOPD (W) (READ-DN (L) DN S) (L))) (UPDATE-CCR (DIVS-CVZNX (W) SOPD (W) (READ-DN (L) DN S) (L) (MC-CCR S)) (WRITE-DN (L) (APP (W) (IQUOT (W) SOPD (W) (READ-DN (L) DN S) (L)) (IREM (W) SOPD (W) (READ-DN (L) DN S) (L))) DN S)) (HALT (QUOTE DIVS-OVERFLOW) (UPDATE-CCR (SET-V (B1) (MC-CCR S)) S))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B1 . DIVS_W-INS) (IMMEDIATE-DEPENDENTS0 SET-V . DIVS_W-INS) (IMMEDIATE-DEPENDENTS0 IREM . DIVS_W-INS) (IMMEDIATE-DEPENDENTS0 IQUOT . DIVS_W-INS) (IMMEDIATE-DEPENDENTS0 APP . DIVS_W-INS) (IMMEDIATE-DEPENDENTS0 WRITE-DN . DIVS_W-INS) (IMMEDIATE-DEPENDENTS0 MC-CCR . DIVS_W-INS) (IMMEDIATE-DEPENDENTS0 DIVS-CVZNX . DIVS_W-INS) (IMMEDIATE-DEPENDENTS0 UPDATE-CCR . DIVS_W-INS) (IMMEDIATE-DEPENDENTS0 L . DIVS_W-INS) (IMMEDIATE-DEPENDENTS0 READ-DN . DIVS_W-INS) (IMMEDIATE-DEPENDENTS0 DIVS-V . DIVS_W-INS) (IMMEDIATE-DEPENDENTS0 B0P . DIVS_W-INS) (IMMEDIATE-DEPENDENTS0 HALT . DIVS_W-INS) (IMMEDIATE-DEPENDENTS0 W . DIVS_W-INS) (IMMEDIATE-DEPENDENTS0 NAT-TO-INT . DIVS_W-INS) (DCELL . *1*DIVS_W-INS))))) (PUT1-LST (QUOTE *1*DIVS-CVZNX) (QUOTE (MAIN-EVENT DIVS-CVZNX))) (PUT1-LST (QUOTE DIVS-CVZNX) (QUOTE (TYPE-PRESCRIPTION-LST ((DIVS-CVZNX 4 NIL NIL NIL NIL NIL NIL)) TOTALP-LST ((DIVS-CVZNX . T)) SDEFN (LAMBDA (N SOPD I DOPD J CCR) (CVZNX (B0) (B0) (DIVS-Z N SOPD I DOPD J) (DIVS-N N SOPD I DOPD J) (CCR-X CCR))) LISP-CODE *1*DIVS-CVZNX SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*DIVS-CVZNX) IMMEDIATE-DEPENDENTS0 (GCD-S0-S0-RFILE-2 GCD-S0-S0-RFILE-1 GCD-S0-S0-2 GCD-S0-S0-1 MISC-GROUP-H OR-GROUP-H DIVS_L DIVSL_L DIVS_W-INS) EVENT (DEFN DIVS-CVZNX (N SOPD I DOPD J CCR) (CVZNX (B0) (B0) (DIVS-Z N SOPD I DOPD J) (DIVS-N N SOPD I DOPD J) (CCR-X CCR))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CCR-X . DIVS-CVZNX) (IMMEDIATE-DEPENDENTS0 DIVS-N . DIVS-CVZNX) (IMMEDIATE-DEPENDENTS0 DIVS-Z . DIVS-CVZNX) (IMMEDIATE-DEPENDENTS0 B0 . DIVS-CVZNX) (IMMEDIATE-DEPENDENTS0 CVZNX . DIVS-CVZNX) (DCELL . *1*DIVS-CVZNX))))) (PUT1-LST (QUOTE *1*DIVS-N) (QUOTE (MAIN-EVENT DIVS-N))) (PUT1-LST (QUOTE DIVS-N) (QUOTE (TYPE-PRESCRIPTION-LST ((DIVS-N 4 NIL NIL NIL NIL NIL)) TOTALP-LST ((DIVS-N . T)) SDEFN (LAMBDA (N SOPD I DOPD J) (MBIT (IQUOT N SOPD I DOPD J) N)) LISP-CODE *1*DIVS-N SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*DIVS-N) IMMEDIATE-DEPENDENTS0 (DIVS-N-OFF DIVS-N-BITP DIVS-CVZNX) EVENT (DEFN DIVS-N (N SOPD I DOPD J) (MBIT (IQUOT N SOPD I DOPD J) N)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IQUOT . DIVS-N) (IMMEDIATE-DEPENDENTS0 MBIT . DIVS-N) (DCELL . *1*DIVS-N))))) (PUT1-LST (QUOTE *1*DIVS-Z) (QUOTE (MAIN-EVENT DIVS-Z))) (PUT1-LST (QUOTE DIVS-Z) (QUOTE (TYPE-PRESCRIPTION-LST ((DIVS-Z 4 NIL NIL NIL NIL NIL)) TOTALP-LST ((DIVS-Z . T)) SDEFN (LAMBDA (N SOPD I DOPD J) (IF (EQUAL (IQUOT N SOPD I DOPD J) (QUOTE 0)) (B1) (B0))) LISP-CODE *1*DIVS-Z SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*DIVS-Z) IMMEDIATE-DEPENDENTS0 (DIVS-Z-OFF DIVS-BEQ DIVS-Z-BITP DIVS-CVZNX) EVENT (DEFN DIVS-Z (N SOPD I DOPD J) (IF (EQUAL (IQUOT N SOPD I DOPD J) (QUOTE 0)) (B1) (B0))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B0 . DIVS-Z) (IMMEDIATE-DEPENDENTS0 B1 . DIVS-Z) (IMMEDIATE-DEPENDENTS0 IQUOT . DIVS-Z) (DCELL . *1*DIVS-Z))))) (PUT1-LST (QUOTE *1*DIVS-V) (QUOTE (MAIN-EVENT DIVS-V))) (PUT1-LST (QUOTE DIVS-V) (QUOTE (TYPE-PRESCRIPTION-LST ((DIVS-V 4 NIL NIL NIL NIL NIL)) LEMMAS ((REWRITE-RULE DIVS_3232-OVERFLOW NIL (EQUAL (DIVS-V (QUOTE 32) X (QUOTE 32) Y (QUOTE 32)) (IF (EQUAL (NAT-TO-INT Y (QUOTE 32)) (QUOTE -2147483648)) (IF (EQUAL (NAT-TO-INT X (QUOTE 32)) (QUOTE -1)) (QUOTE 1) (QUOTE 0)) (QUOTE 0))) NIL) (REWRITE-RULE DIVS-OVERFLOW NIL (EQUAL (DIVS-V N X I Y J) (IF (INT-RANGEP (IQUOTIENT (NAT-TO-INT Y J) (NAT-TO-INT X I)) N) (QUOTE 0) (QUOTE 1))) NIL)) TOTALP-LST ((DIVS-V . T)) SDEFN (LAMBDA (N SOPD I DOPD J) (IF (INT-RANGEP (IQUOTIENT (NAT-TO-INT DOPD J) (NAT-TO-INT SOPD I)) N) (B0) (B1))) LISP-CODE *1*DIVS-V SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*DIVS-V) IMMEDIATE-DEPENDENTS0 (DIVS-V-OFF DIVS_3232-OVERFLOW DIVS-OVERFLOW DIVS_L DIVSL_L DIVS_W-INS) EVENT (DEFN DIVS-V (N SOPD I DOPD J) (IF (INT-RANGEP (IQUOTIENT (NAT-TO-INT DOPD J) (NAT-TO-INT SOPD I)) N) (B0) (B1))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B1 . DIVS-V) (IMMEDIATE-DEPENDENTS0 B0 . DIVS-V) (IMMEDIATE-DEPENDENTS0 NAT-TO-INT . DIVS-V) (IMMEDIATE-DEPENDENTS0 IQUOTIENT . DIVS-V) (IMMEDIATE-DEPENDENTS0 INT-RANGEP . DIVS-V) (DCELL . *1*DIVS-V))))) (PUT1-LST (QUOTE *1*IREM) (QUOTE (MAIN-EVENT IREM))) (PUT1-LST (QUOTE IREM) (QUOTE (TYPE-PRESCRIPTION-LST ((IREM 4 NIL NIL NIL NIL NIL)) TOTALP-LST ((IREM . T)) SDEFN (LAMBDA (N S I D J) (HEAD (INT-TO-NAT (IREMAINDER (NAT-TO-INT D J) (NAT-TO-INT S I)) I) N)) LISP-CODE *1*IREM SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*IREM) IMMEDIATE-DEPENDENTS0 (IREM-OFF IREM-NAT-RANGEP IREM-INT DIVS_L DIVSL_L DIVS_W-INS) EVENT (DEFN IREM (N S I D J) (HEAD (INT-TO-NAT (IREMAINDER (NAT-TO-INT D J) (NAT-TO-INT S I)) I) N)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NAT-TO-INT . IREM) (IMMEDIATE-DEPENDENTS0 IREMAINDER . IREM) (IMMEDIATE-DEPENDENTS0 INT-TO-NAT . IREM) (IMMEDIATE-DEPENDENTS0 HEAD . IREM) (DCELL . *1*IREM))))) (PUT1-LST (QUOTE *1*IQUOT) (QUOTE (MAIN-EVENT IQUOT))) (PUT1-LST (QUOTE IQUOT) (QUOTE (TYPE-PRESCRIPTION-LST ((IQUOT 4 NIL NIL NIL NIL NIL)) TOTALP-LST ((IQUOT . T)) SDEFN (LAMBDA (N S I D J) (HEAD (INT-TO-NAT (IQUOTIENT (NAT-TO-INT D J) (NAT-TO-INT S I)) J) N)) LISP-CODE *1*IQUOT SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*IQUOT) IMMEDIATE-DEPENDENTS0 (IQUOT-OFF DIVS-BEQ DIVS-N-BITP DIVS-Z-BITP IQUOT-NAT-RANGEP IQUOT-INT DIVS_L DIVSL_L DIVS_W-INS DIVS-N DIVS-Z) EVENT (DEFN IQUOT (N S I D J) (HEAD (INT-TO-NAT (IQUOTIENT (NAT-TO-INT D J) (NAT-TO-INT S I)) J) N)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NAT-TO-INT . IQUOT) (IMMEDIATE-DEPENDENTS0 IQUOTIENT . IQUOT) (IMMEDIATE-DEPENDENTS0 INT-TO-NAT . IQUOT) (IMMEDIATE-DEPENDENTS0 HEAD . IQUOT) (DCELL . *1*IQUOT))))) (PUT1-LST (QUOTE *1*OR-INS2) (QUOTE (MAIN-EVENT OR-INS2))) (PUT1-LST (QUOTE OR-INS2) (QUOTE (TYPE-PRESCRIPTION-LST ((OR-INS2 -1 NIL NIL NIL)) TOTALP-LST ((OR-INS2 . T)) SDEFN (LAMBDA (OPLEN INS S) (IF (OR-ADDR-MODEP2 INS) (OR-MAPPING (READ-DN OPLEN (D_RN INS) S) OPLEN INS S) (HALT (MODE-SIGNAL) S))) LISP-CODE *1*OR-INS2 SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214824 SATELLITES (*1*OR-INS2) IMMEDIATE-DEPENDENTS0 (OR-GROUP-H OR-GROUP) EVENT (DEFN OR-INS2 (OPLEN INS S) (IF (OR-ADDR-MODEP2 INS) (OR-MAPPING (READ-DN OPLEN (D_RN INS) S) OPLEN INS S) (HALT (MODE-SIGNAL) S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MODE-SIGNAL . OR-INS2) (IMMEDIATE-DEPENDENTS0 HALT . OR-INS2) (IMMEDIATE-DEPENDENTS0 D_RN . OR-INS2) (IMMEDIATE-DEPENDENTS0 READ-DN . OR-INS2) (IMMEDIATE-DEPENDENTS0 OR-MAPPING . OR-INS2) (IMMEDIATE-DEPENDENTS0 OR-ADDR-MODEP2 . OR-INS2) (DCELL . *1*OR-INS2))))) (PUT1-LST (QUOTE *1*OR-MAPPING) (QUOTE (MAIN-EVENT OR-MAPPING))) (PUT1-LST (QUOTE OR-MAPPING) (QUOTE (TYPE-PRESCRIPTION-LST ((OR-MAPPING -1 NIL NIL NIL NIL)) TOTALP-LST ((OR-MAPPING . T)) SDEFN (LAMBDA (SOPD OPLEN INS S) (IF (MC-HALTP (CAR (MC-INSTATE OPLEN INS S))) (CAR (MC-INSTATE OPLEN INS S)) (MAPPING OPLEN (OR-EFFECT OPLEN SOPD (OPERAND OPLEN (CDR (MC-INSTATE OPLEN INS S)) S) (MC-CCR S)) (MC-INSTATE OPLEN INS S)))) LISP-CODE *1*OR-MAPPING SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214824 SATELLITES (*1*OR-MAPPING) IMMEDIATE-DEPENDENTS0 (BIT-GROUP-H OR-GROUP-H ORI-INS OR-INS2) EVENT (DEFN OR-MAPPING (SOPD OPLEN INS S) (IF (MC-HALTP (CAR (MC-INSTATE OPLEN INS S))) (CAR (MC-INSTATE OPLEN INS S)) (MAPPING OPLEN (OR-EFFECT OPLEN SOPD (OPERAND OPLEN (CDR (MC-INSTATE OPLEN INS S)) S) (MC-CCR S)) (MC-INSTATE OPLEN INS S)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MC-CCR . OR-MAPPING) (IMMEDIATE-DEPENDENTS0 OPERAND . OR-MAPPING) (IMMEDIATE-DEPENDENTS0 OR-EFFECT . OR-MAPPING) (IMMEDIATE-DEPENDENTS0 MAPPING . OR-MAPPING) (IMMEDIATE-DEPENDENTS0 MC-INSTATE . OR-MAPPING) (IMMEDIATE-DEPENDENTS0 MC-HALTP . OR-MAPPING) (DCELL . *1*OR-MAPPING))))) (PUT1-LST (QUOTE *1*OR-INS1) (QUOTE (MAIN-EVENT OR-INS1))) (PUT1-LST (QUOTE OR-INS1) (QUOTE (TYPE-PRESCRIPTION-LST ((OR-INS1 -1 NIL NIL NIL)) TOTALP-LST ((OR-INS1 . T)) SDEFN (LAMBDA (OPLEN INS S) (IF (OR-ADDR-MODEP1 INS) (IF (MC-HALTP (CAR (MC-INSTATE OPLEN INS S))) (CAR (MC-INSTATE OPLEN INS S)) (D-MAPPING OPLEN (OR-EFFECT OPLEN (OPERAND OPLEN (CDR (MC-INSTATE OPLEN INS S)) S) (READ-DN OPLEN (D_RN INS) S) (MC-CCR S)) (D_RN INS) (CAR (MC-INSTATE OPLEN INS S)))) (HALT (MODE-SIGNAL) S))) LISP-CODE *1*OR-INS1 SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214824 SATELLITES (*1*OR-INS1) IMMEDIATE-DEPENDENTS0 (OR-GROUP-H OR-GROUP) EVENT (DEFN OR-INS1 (OPLEN INS S) (IF (OR-ADDR-MODEP1 INS) (IF (MC-HALTP (CAR (MC-INSTATE OPLEN INS S))) (CAR (MC-INSTATE OPLEN INS S)) (D-MAPPING OPLEN (OR-EFFECT OPLEN (OPERAND OPLEN (CDR (MC-INSTATE OPLEN INS S)) S) (READ-DN OPLEN (D_RN INS) S) (MC-CCR S)) (D_RN INS) (CAR (MC-INSTATE OPLEN INS S)))) (HALT (MODE-SIGNAL) S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MODE-SIGNAL . OR-INS1) (IMMEDIATE-DEPENDENTS0 HALT . OR-INS1) (IMMEDIATE-DEPENDENTS0 MC-CCR . OR-INS1) (IMMEDIATE-DEPENDENTS0 D_RN . OR-INS1) (IMMEDIATE-DEPENDENTS0 READ-DN . OR-INS1) (IMMEDIATE-DEPENDENTS0 OPERAND . OR-INS1) (IMMEDIATE-DEPENDENTS0 OR-EFFECT . OR-INS1) (IMMEDIATE-DEPENDENTS0 D-MAPPING . OR-INS1) (IMMEDIATE-DEPENDENTS0 MC-INSTATE . OR-INS1) (IMMEDIATE-DEPENDENTS0 MC-HALTP . OR-INS1) (IMMEDIATE-DEPENDENTS0 OR-ADDR-MODEP1 . OR-INS1) (DCELL . *1*OR-INS1))))) (PUT1-LST (QUOTE *1*OR-ADDR-MODEP2) (QUOTE (MAIN-EVENT OR-ADDR-MODEP2))) (PUT1-LST (QUOTE OR-ADDR-MODEP2) (QUOTE (TYPE-PRESCRIPTION-LST ((OR-ADDR-MODEP2 3 NIL)) TOTALP-LST ((OR-ADDR-MODEP2 . T)) SDEFN (LAMBDA (INS) (IF (ALTERABLE-ADDR-MODEP (S_MODE INS) (S_RN INS)) (MEMORY-ADDR-MODEP (S_MODE INS) (S_RN INS)) (QUOTE *1*FALSE))) LISP-CODE *1*OR-ADDR-MODEP2 SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*OR-ADDR-MODEP2) IMMEDIATE-DEPENDENTS0 (MODE-GUARDS OR-INS2) EVENT (DEFN OR-ADDR-MODEP2 (INS) (AND (ALTERABLE-ADDR-MODEP (S_MODE INS) (S_RN INS)) (MEMORY-ADDR-MODEP (S_MODE INS) (S_RN INS)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MEMORY-ADDR-MODEP . OR-ADDR-MODEP2) (IMMEDIATE-DEPENDENTS0 S_RN . OR-ADDR-MODEP2) (IMMEDIATE-DEPENDENTS0 S_MODE . OR-ADDR-MODEP2) (IMMEDIATE-DEPENDENTS0 ALTERABLE-ADDR-MODEP . OR-ADDR-MODEP2) (DCELL . *1*OR-ADDR-MODEP2))))) (PUT1-LST (QUOTE *1*OR-ADDR-MODEP1) (QUOTE (MAIN-EVENT OR-ADDR-MODEP1))) (PUT1-LST (QUOTE OR-ADDR-MODEP1) (QUOTE (TYPE-PRESCRIPTION-LST ((OR-ADDR-MODEP1 3 NIL)) TOTALP-LST ((OR-ADDR-MODEP1 . T)) SDEFN (LAMBDA (INS) (DATA-ADDR-MODEP (S_MODE INS) (S_RN INS))) LISP-CODE *1*OR-ADDR-MODEP1 SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*OR-ADDR-MODEP1) IMMEDIATE-DEPENDENTS0 (MODE-GUARDS OR-INS1) EVENT (DEFN OR-ADDR-MODEP1 (INS) (DATA-ADDR-MODEP (S_MODE INS) (S_RN INS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 S_RN . OR-ADDR-MODEP1) (IMMEDIATE-DEPENDENTS0 S_MODE . OR-ADDR-MODEP1) (IMMEDIATE-DEPENDENTS0 DATA-ADDR-MODEP . OR-ADDR-MODEP1) (DCELL . *1*OR-ADDR-MODEP1))))) (PUT1-LST (QUOTE *1*OR-EFFECT) (QUOTE (MAIN-EVENT OR-EFFECT))) (PUT1-LST (QUOTE OR-EFFECT) (QUOTE (TYPE-PRESCRIPTION-LST ((OR-EFFECT 16 NIL NIL NIL NIL)) TOTALP-LST ((OR-EFFECT . T)) SDEFN (LAMBDA (OPLEN SOPD DOPD CCR) (CONS (LOGOR SOPD DOPD) (OR-CVZNX OPLEN SOPD DOPD CCR))) LISP-CODE *1*OR-EFFECT SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*OR-EFFECT) IMMEDIATE-DEPENDENTS0 (BIT-GROUP-H OR-GROUP-H OR-MAPPING OR-INS1) EVENT (DEFN OR-EFFECT (OPLEN SOPD DOPD CCR) (CONS (LOGOR SOPD DOPD) (OR-CVZNX OPLEN SOPD DOPD CCR))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OR-CVZNX . OR-EFFECT) (IMMEDIATE-DEPENDENTS0 LOGOR . OR-EFFECT) (DCELL . *1*OR-EFFECT))))) (PUT1-LST (QUOTE *1*OR-CVZNX) (QUOTE (MAIN-EVENT OR-CVZNX))) (PUT1-LST (QUOTE OR-CVZNX) (QUOTE (TYPE-PRESCRIPTION-LST ((OR-CVZNX 4 NIL NIL NIL NIL)) TOTALP-LST ((OR-CVZNX . T)) SDEFN (LAMBDA (OPLEN SOPD DOPD CCR) (CVZNX (B0) (B0) (OR-Z OPLEN SOPD DOPD) (OR-N OPLEN SOPD DOPD) (CCR-X CCR))) LISP-CODE *1*OR-CVZNX SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*OR-CVZNX) IMMEDIATE-DEPENDENTS0 (BIT-GROUP-H OR-GROUP-H OR-EFFECT) EVENT (DEFN OR-CVZNX (OPLEN SOPD DOPD CCR) (CVZNX (B0) (B0) (OR-Z OPLEN SOPD DOPD) (OR-N OPLEN SOPD DOPD) (CCR-X CCR))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CCR-X . OR-CVZNX) (IMMEDIATE-DEPENDENTS0 OR-N . OR-CVZNX) (IMMEDIATE-DEPENDENTS0 OR-Z . OR-CVZNX) (IMMEDIATE-DEPENDENTS0 B0 . OR-CVZNX) (IMMEDIATE-DEPENDENTS0 CVZNX . OR-CVZNX) (DCELL . *1*OR-CVZNX))))) (PUT1-LST (QUOTE *1*OR-N) (QUOTE (MAIN-EVENT OR-N))) (PUT1-LST (QUOTE OR-N) (QUOTE (TYPE-PRESCRIPTION-LST ((OR-N 4 NIL NIL NIL)) TOTALP-LST ((OR-N . T)) SDEFN (LAMBDA (OPLEN SOPD DOPD) (B-OR (MBIT SOPD OPLEN) (MBIT DOPD OPLEN))) LISP-CODE *1*OR-N SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*OR-N) IMMEDIATE-DEPENDENTS0 (OR-N-OFF OR-N-BITP OR-CVZNX) EVENT (DEFN OR-N (OPLEN SOPD DOPD) (B-OR (MBIT SOPD OPLEN) (MBIT DOPD OPLEN))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MBIT . OR-N) (IMMEDIATE-DEPENDENTS0 B-OR . OR-N) (DCELL . *1*OR-N))))) (PUT1-LST (QUOTE *1*OR-Z) (QUOTE (MAIN-EVENT OR-Z))) (PUT1-LST (QUOTE OR-Z) (QUOTE (TYPE-PRESCRIPTION-LST ((OR-Z 4 NIL NIL NIL)) TOTALP-LST ((OR-Z . T)) SDEFN (LAMBDA (OPLEN SOPD DOPD) (IF (EQUAL (LOGOR SOPD DOPD) (QUOTE 0)) (B1) (B0))) LISP-CODE *1*OR-Z SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*OR-Z) IMMEDIATE-DEPENDENTS0 (OR-Z-OFF LOGOR-BEQ-INT-1 LOGOR-BEQ-INT-0 LOGOR-BEQ-UINT OR-Z-BITP OR-CVZNX) EVENT (DEFN OR-Z (OPLEN SOPD DOPD) (IF (EQUAL (LOGOR SOPD DOPD) (QUOTE 0)) (B1) (B0))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B0 . OR-Z) (IMMEDIATE-DEPENDENTS0 B1 . OR-Z) (IMMEDIATE-DEPENDENTS0 LOGOR . OR-Z) (DCELL . *1*OR-Z))))) (PUT1-LST (QUOTE *1*AND-GROUP) (QUOTE (MAIN-EVENT AND-GROUP))) (PUT1-LST (QUOTE AND-GROUP) (QUOTE (TYPE-PRESCRIPTION-LST ((AND-GROUP -1 NIL NIL NIL)) TOTALP-LST ((AND-GROUP . T)) SDEFN (LAMBDA (OPLEN INS S) (IF (EQUAL OPLEN (Q)) (MUL_W-INS INS S) (IF (B0P (BITN INS (QUOTE 8))) (AND-INS1 OPLEN INS S) (IF (LESSP (S_MODE INS) (QUOTE 2)) (IF (EQUAL OPLEN (B)) (HALT (QUOTE ABCD-UNSPECIFIED) S) (IF (EQUAL OPLEN (W)) (IF (EQUAL (S_MODE INS) (QUOTE 0)) (EXG-DRDR-INS INS S) (EXG-ARAR-INS INS S)) (IF (EQUAL (S_MODE INS) (QUOTE 0)) (HALT (RESERVED-SIGNAL) S) (EXG-DRAR-INS INS S)))) (AND-INS2 OPLEN INS S))))) LISP-CODE *1*AND-GROUP SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214824 SATELLITES (*1*AND-GROUP) IMMEDIATE-DEPENDENTS0 (AND-GROUP-H GROUPS EXECUTE-INS) EVENT (DEFN AND-GROUP (OPLEN INS S) (IF (EQUAL OPLEN (Q)) (MUL_W-INS INS S) (IF (B0P (BITN INS (QUOTE 8))) (AND-INS1 OPLEN INS S) (IF (LESSP (S_MODE INS) (QUOTE 2)) (IF (EQUAL OPLEN (B)) (HALT (QUOTE ABCD-UNSPECIFIED) S) (IF (EQUAL OPLEN (W)) (IF (EQUAL (S_MODE INS) (QUOTE 0)) (EXG-DRDR-INS INS S) (EXG-ARAR-INS INS S)) (IF (EQUAL (S_MODE INS) (QUOTE 0)) (HALT (RESERVED-SIGNAL) S) (EXG-DRAR-INS INS S)))) (AND-INS2 OPLEN INS S))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 AND-INS2 . AND-GROUP) (IMMEDIATE-DEPENDENTS0 EXG-DRAR-INS . AND-GROUP) (IMMEDIATE-DEPENDENTS0 RESERVED-SIGNAL . AND-GROUP) (IMMEDIATE-DEPENDENTS0 EXG-ARAR-INS . AND-GROUP) (IMMEDIATE-DEPENDENTS0 EXG-DRDR-INS . AND-GROUP) (IMMEDIATE-DEPENDENTS0 W . AND-GROUP) (IMMEDIATE-DEPENDENTS0 HALT . AND-GROUP) (IMMEDIATE-DEPENDENTS0 B . AND-GROUP) (IMMEDIATE-DEPENDENTS0 S_MODE . AND-GROUP) (IMMEDIATE-DEPENDENTS0 AND-INS1 . AND-GROUP) (IMMEDIATE-DEPENDENTS0 BITN . AND-GROUP) (IMMEDIATE-DEPENDENTS0 B0P . AND-GROUP) (IMMEDIATE-DEPENDENTS0 MUL_W-INS . AND-GROUP) (IMMEDIATE-DEPENDENTS0 Q . AND-GROUP) (DCELL . *1*AND-GROUP))))) (PUT1-LST (QUOTE *1*MUL_W-INS) (QUOTE (MAIN-EVENT MUL_W-INS))) (PUT1-LST (QUOTE MUL_W-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((MUL_W-INS -1 NIL NIL)) TOTALP-LST ((MUL_W-INS . T)) SDEFN (LAMBDA (INS S) (IF (MUL&DIV-ADDR-MODEP INS) (IF (MC-HALTP (CAR (MC-INSTATE (W) INS S))) (CAR (MC-INSTATE (W) INS S)) (IF (B0P (BITN INS (QUOTE 8))) (MULU_W-INS (OPERAND (W) (CDR (MC-INSTATE (W) INS S)) S) (D_RN INS) (CAR (MC-INSTATE (W) INS S))) (MULS_W-INS (OPERAND (W) (CDR (MC-INSTATE (W) INS S)) S) (D_RN INS) (CAR (MC-INSTATE (W) INS S))))) (HALT (MODE-SIGNAL) S))) LISP-CODE *1*MUL_W-INS SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214824 SATELLITES (*1*MUL_W-INS) IMMEDIATE-DEPENDENTS0 (AND-GROUP-H AND-GROUP) EVENT (DEFN MUL_W-INS (INS S) (IF (MUL&DIV-ADDR-MODEP INS) (IF (MC-HALTP (CAR (MC-INSTATE (W) INS S))) (CAR (MC-INSTATE (W) INS S)) (IF (B0P (BITN INS (QUOTE 8))) (MULU_W-INS (OPERAND (W) (CDR (MC-INSTATE (W) INS S)) S) (D_RN INS) (CAR (MC-INSTATE (W) INS S))) (MULS_W-INS (OPERAND (W) (CDR (MC-INSTATE (W) INS S)) S) (D_RN INS) (CAR (MC-INSTATE (W) INS S))))) (HALT (MODE-SIGNAL) S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MODE-SIGNAL . MUL_W-INS) (IMMEDIATE-DEPENDENTS0 HALT . MUL_W-INS) (IMMEDIATE-DEPENDENTS0 MULS_W-INS . MUL_W-INS) (IMMEDIATE-DEPENDENTS0 D_RN . MUL_W-INS) (IMMEDIATE-DEPENDENTS0 OPERAND . MUL_W-INS) (IMMEDIATE-DEPENDENTS0 MULU_W-INS . MUL_W-INS) (IMMEDIATE-DEPENDENTS0 BITN . MUL_W-INS) (IMMEDIATE-DEPENDENTS0 B0P . MUL_W-INS) (IMMEDIATE-DEPENDENTS0 W . MUL_W-INS) (IMMEDIATE-DEPENDENTS0 MC-INSTATE . MUL_W-INS) (IMMEDIATE-DEPENDENTS0 MC-HALTP . MUL_W-INS) (IMMEDIATE-DEPENDENTS0 MUL&DIV-ADDR-MODEP . MUL_W-INS) (DCELL . *1*MUL_W-INS))))) (PUT1-LST (QUOTE *1*EXG-DRAR-INS) (QUOTE (MAIN-EVENT EXG-DRAR-INS))) (PUT1-LST (QUOTE EXG-DRAR-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((EXG-DRAR-INS 16 NIL NIL)) TOTALP-LST ((EXG-DRAR-INS . T)) SDEFN (LAMBDA (INS S) (WRITE-DN (L) (READ-AN (L) (S_RN INS) S) (D_RN INS) (WRITE-AN (L) (READ-DN (L) (D_RN INS) S) (S_RN INS) S))) LISP-CODE *1*EXG-DRAR-INS SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*EXG-DRAR-INS) IMMEDIATE-DEPENDENTS0 (AND-GROUP-H AND-GROUP) EVENT (DEFN EXG-DRAR-INS (INS S) (WRITE-DN (L) (READ-AN (L) (S_RN INS) S) (D_RN INS) (WRITE-AN (L) (READ-DN (L) (D_RN INS) S) (S_RN INS) S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 READ-DN . EXG-DRAR-INS) (IMMEDIATE-DEPENDENTS0 WRITE-AN . EXG-DRAR-INS) (IMMEDIATE-DEPENDENTS0 D_RN . EXG-DRAR-INS) (IMMEDIATE-DEPENDENTS0 S_RN . EXG-DRAR-INS) (IMMEDIATE-DEPENDENTS0 READ-AN . EXG-DRAR-INS) (IMMEDIATE-DEPENDENTS0 L . EXG-DRAR-INS) (IMMEDIATE-DEPENDENTS0 WRITE-DN . EXG-DRAR-INS) (DCELL . *1*EXG-DRAR-INS))))) (PUT1-LST (QUOTE *1*EXG-ARAR-INS) (QUOTE (MAIN-EVENT EXG-ARAR-INS))) (PUT1-LST (QUOTE EXG-ARAR-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((EXG-ARAR-INS 16 NIL NIL)) TOTALP-LST ((EXG-ARAR-INS . T)) SDEFN (LAMBDA (INS S) (WRITE-AN (L) (READ-AN (L) (S_RN INS) S) (D_RN INS) (WRITE-AN (L) (READ-AN (L) (D_RN INS) S) (S_RN INS) S))) LISP-CODE *1*EXG-ARAR-INS SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*EXG-ARAR-INS) IMMEDIATE-DEPENDENTS0 (AND-GROUP-H AND-GROUP) EVENT (DEFN EXG-ARAR-INS (INS S) (WRITE-AN (L) (READ-AN (L) (S_RN INS) S) (D_RN INS) (WRITE-AN (L) (READ-AN (L) (D_RN INS) S) (S_RN INS) S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 D_RN . EXG-ARAR-INS) (IMMEDIATE-DEPENDENTS0 S_RN . EXG-ARAR-INS) (IMMEDIATE-DEPENDENTS0 READ-AN . EXG-ARAR-INS) (IMMEDIATE-DEPENDENTS0 L . EXG-ARAR-INS) (IMMEDIATE-DEPENDENTS0 WRITE-AN . EXG-ARAR-INS) (DCELL . *1*EXG-ARAR-INS))))) (PUT1-LST (QUOTE *1*EXG-DRDR-INS) (QUOTE (MAIN-EVENT EXG-DRDR-INS))) (PUT1-LST (QUOTE EXG-DRDR-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((EXG-DRDR-INS 16 NIL NIL)) TOTALP-LST ((EXG-DRDR-INS . T)) SDEFN (LAMBDA (INS S) (WRITE-DN (L) (READ-DN (L) (S_RN INS) S) (D_RN INS) (WRITE-DN (L) (READ-DN (L) (D_RN INS) S) (S_RN INS) S))) LISP-CODE *1*EXG-DRDR-INS SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*EXG-DRDR-INS) IMMEDIATE-DEPENDENTS0 (AND-GROUP-H AND-GROUP) EVENT (DEFN EXG-DRDR-INS (INS S) (WRITE-DN (L) (READ-DN (L) (S_RN INS) S) (D_RN INS) (WRITE-DN (L) (READ-DN (L) (D_RN INS) S) (S_RN INS) S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 D_RN . EXG-DRDR-INS) (IMMEDIATE-DEPENDENTS0 S_RN . EXG-DRDR-INS) (IMMEDIATE-DEPENDENTS0 READ-DN . EXG-DRDR-INS) (IMMEDIATE-DEPENDENTS0 L . EXG-DRDR-INS) (IMMEDIATE-DEPENDENTS0 WRITE-DN . EXG-DRDR-INS) (DCELL . *1*EXG-DRDR-INS))))) (PUT1-LST (QUOTE *1*MULS_W-INS) (QUOTE (MAIN-EVENT MULS_W-INS))) (PUT1-LST (QUOTE MULS_W-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((MULS_W-INS 16 NIL NIL NIL)) TOTALP-LST ((MULS_W-INS . T)) SDEFN (LAMBDA (SOPD DN S) (UPDATE-CCR (MULS-CVZNX (L) SOPD (READ-DN (W) DN S) (W) (MC-CCR S)) (WRITE-DN (L) (MULS (L) SOPD (READ-DN (W) DN S) (W)) DN S))) LISP-CODE *1*MULS_W-INS SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*MULS_W-INS) IMMEDIATE-DEPENDENTS0 (AND-GROUP-H MUL_W-INS) EVENT (DEFN MULS_W-INS (SOPD DN S) (UPDATE-CCR (MULS-CVZNX (L) SOPD (READ-DN (W) DN S) (W) (MC-CCR S)) (WRITE-DN (L) (MULS (L) SOPD (READ-DN (W) DN S) (W)) DN S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MULS . MULS_W-INS) (IMMEDIATE-DEPENDENTS0 WRITE-DN . MULS_W-INS) (IMMEDIATE-DEPENDENTS0 MC-CCR . MULS_W-INS) (IMMEDIATE-DEPENDENTS0 W . MULS_W-INS) (IMMEDIATE-DEPENDENTS0 READ-DN . MULS_W-INS) (IMMEDIATE-DEPENDENTS0 L . MULS_W-INS) (IMMEDIATE-DEPENDENTS0 MULS-CVZNX . MULS_W-INS) (IMMEDIATE-DEPENDENTS0 UPDATE-CCR . MULS_W-INS) (DCELL . *1*MULS_W-INS))))) (PUT1-LST (QUOTE *1*MULS-CVZNX) (QUOTE (MAIN-EVENT MULS-CVZNX))) (PUT1-LST (QUOTE MULS-CVZNX) (QUOTE (TYPE-PRESCRIPTION-LST ((MULS-CVZNX 4 NIL NIL NIL NIL NIL)) TOTALP-LST ((MULS-CVZNX . T)) SDEFN (LAMBDA (N SOPD DOPD I CCR) (CVZNX (B0) (MULS-V N SOPD DOPD I) (MULS-Z N SOPD DOPD I) (MULS-N N SOPD DOPD I) (CCR-X CCR))) LISP-CODE *1*MULS-CVZNX SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*MULS-CVZNX) IMMEDIATE-DEPENDENTS0 (MISC-GROUP-H AND-GROUP-H MULS_L_DLDH MULS_L_DL MULS_W-INS) EVENT (DEFN MULS-CVZNX (N SOPD DOPD I CCR) (CVZNX (B0) (MULS-V N SOPD DOPD I) (MULS-Z N SOPD DOPD I) (MULS-N N SOPD DOPD I) (CCR-X CCR))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CCR-X . MULS-CVZNX) (IMMEDIATE-DEPENDENTS0 MULS-N . MULS-CVZNX) (IMMEDIATE-DEPENDENTS0 MULS-Z . MULS-CVZNX) (IMMEDIATE-DEPENDENTS0 MULS-V . MULS-CVZNX) (IMMEDIATE-DEPENDENTS0 B0 . MULS-CVZNX) (IMMEDIATE-DEPENDENTS0 CVZNX . MULS-CVZNX) (DCELL . *1*MULS-CVZNX))))) (PUT1-LST (QUOTE *1*MULS-N) (QUOTE (MAIN-EVENT MULS-N))) (PUT1-LST (QUOTE MULS-N) (QUOTE (TYPE-PRESCRIPTION-LST ((MULS-N 4 NIL NIL NIL NIL)) TOTALP-LST ((MULS-N . T)) SDEFN (LAMBDA (N SOPD DOPD I) (MBIT (MULS N SOPD DOPD I) N)) LISP-CODE *1*MULS-N SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*MULS-N) IMMEDIATE-DEPENDENTS0 (MULS-N-OFF MULS_3232-BMI MULS_3264-BMI MULS_1632-BMI MULS-N-BITP MULS-CVZNX) EVENT (DEFN MULS-N (N SOPD DOPD I) (MBIT (MULS N SOPD DOPD I) N)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MULS . MULS-N) (IMMEDIATE-DEPENDENTS0 MBIT . MULS-N) (DCELL . *1*MULS-N))))) (PUT1-LST (QUOTE *1*MULS-Z) (QUOTE (MAIN-EVENT MULS-Z))) (PUT1-LST (QUOTE MULS-Z) (QUOTE (TYPE-PRESCRIPTION-LST ((MULS-Z 4 NIL NIL NIL NIL)) TOTALP-LST ((MULS-Z . T)) SDEFN (LAMBDA (N SOPD DOPD I) (IF (EQUAL (MULS N SOPD DOPD I) (QUOTE 0)) (B1) (B0))) LISP-CODE *1*MULS-Z SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*MULS-Z) IMMEDIATE-DEPENDENTS0 (MULS-Z-OFF MULS_3232-BEQ MULS_3264-BEQ MULS_1632-BEQ MULS-Z-BITP MULS-CVZNX) EVENT (DEFN MULS-Z (N SOPD DOPD I) (IF (EQUAL (MULS N SOPD DOPD I) (QUOTE 0)) (B1) (B0))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B0 . MULS-Z) (IMMEDIATE-DEPENDENTS0 B1 . MULS-Z) (IMMEDIATE-DEPENDENTS0 MULS . MULS-Z) (DCELL . *1*MULS-Z))))) (PUT1-LST (QUOTE *1*MULS-V) (QUOTE (MAIN-EVENT MULS-V))) (PUT1-LST (QUOTE MULS-V) (QUOTE (TYPE-PRESCRIPTION-LST ((MULS-V 4 NIL NIL NIL NIL)) LEMMAS ((REWRITE-RULE MULS_3264-BVS ((NAT-RANGEP X (QUOTE 32)) (NAT-RANGEP Y (QUOTE 32))) (EQUAL (MULS-V (QUOTE 64) X Y (QUOTE 32)) (QUOTE 0)) NIL) (REWRITE-RULE MULS_1632-BVS ((NAT-RANGEP X (QUOTE 16)) (NAT-RANGEP Y (QUOTE 16))) (EQUAL (MULS-V (QUOTE 32) X Y (QUOTE 16)) (QUOTE 0)) NIL)) TOTALP-LST ((MULS-V . T)) SDEFN (LAMBDA (N SOPD DOPD I) (IF (INT-RANGEP (ITIMES (NAT-TO-INT SOPD I) (NAT-TO-INT DOPD I)) N) (B0) (B1))) LISP-CODE *1*MULS-V SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*MULS-V) IMMEDIATE-DEPENDENTS0 (MULS-V-OFF MULS_3232-BVS MULS_3264-BVS MULS_1632-BVS MULS-V-BITP MULS-CVZNX) EVENT (DEFN MULS-V (N SOPD DOPD I) (IF (INT-RANGEP (ITIMES (NAT-TO-INT SOPD I) (NAT-TO-INT DOPD I)) N) (B0) (B1))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B1 . MULS-V) (IMMEDIATE-DEPENDENTS0 B0 . MULS-V) (IMMEDIATE-DEPENDENTS0 NAT-TO-INT . MULS-V) (IMMEDIATE-DEPENDENTS0 ITIMES . MULS-V) (IMMEDIATE-DEPENDENTS0 INT-RANGEP . MULS-V) (DCELL . *1*MULS-V))))) (PUT1-LST (QUOTE *1*MULU_W-INS) (QUOTE (MAIN-EVENT MULU_W-INS))) (PUT1-LST (QUOTE MULU_W-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((MULU_W-INS 16 NIL NIL NIL)) TOTALP-LST ((MULU_W-INS . T)) SDEFN (LAMBDA (SOPD DN S) (UPDATE-CCR (MULU-CVZNX (L) SOPD (READ-DN (W) DN S) (W) (MC-CCR S)) (WRITE-DN (L) (MULU (L) SOPD (READ-DN (W) DN S) (W)) DN S))) LISP-CODE *1*MULU_W-INS SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*MULU_W-INS) IMMEDIATE-DEPENDENTS0 (AND-GROUP-H MUL_W-INS) EVENT (DEFN MULU_W-INS (SOPD DN S) (UPDATE-CCR (MULU-CVZNX (L) SOPD (READ-DN (W) DN S) (W) (MC-CCR S)) (WRITE-DN (L) (MULU (L) SOPD (READ-DN (W) DN S) (W)) DN S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MULU . MULU_W-INS) (IMMEDIATE-DEPENDENTS0 WRITE-DN . MULU_W-INS) (IMMEDIATE-DEPENDENTS0 MC-CCR . MULU_W-INS) (IMMEDIATE-DEPENDENTS0 W . MULU_W-INS) (IMMEDIATE-DEPENDENTS0 READ-DN . MULU_W-INS) (IMMEDIATE-DEPENDENTS0 L . MULU_W-INS) (IMMEDIATE-DEPENDENTS0 MULU-CVZNX . MULU_W-INS) (IMMEDIATE-DEPENDENTS0 UPDATE-CCR . MULU_W-INS) (DCELL . *1*MULU_W-INS))))) (PUT1-LST (QUOTE *1*MULU-CVZNX) (QUOTE (MAIN-EVENT MULU-CVZNX))) (PUT1-LST (QUOTE MULU-CVZNX) (QUOTE (TYPE-PRESCRIPTION-LST ((MULU-CVZNX 4 NIL NIL NIL NIL NIL)) TOTALP-LST ((MULU-CVZNX . T)) SDEFN (LAMBDA (N SOPD DOPD I CCR) (CVZNX (B0) (MULU-V N SOPD DOPD I) (MULU-Z N SOPD DOPD I) (MULU-N N SOPD DOPD I) (CCR-X CCR))) LISP-CODE *1*MULU-CVZNX SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*MULU-CVZNX) IMMEDIATE-DEPENDENTS0 (MISC-GROUP-H AND-GROUP-H MULU_L_DLDH MULU_L_DL MULU_W-INS) EVENT (DEFN MULU-CVZNX (N SOPD DOPD I CCR) (CVZNX (B0) (MULU-V N SOPD DOPD I) (MULU-Z N SOPD DOPD I) (MULU-N N SOPD DOPD I) (CCR-X CCR))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CCR-X . MULU-CVZNX) (IMMEDIATE-DEPENDENTS0 MULU-N . MULU-CVZNX) (IMMEDIATE-DEPENDENTS0 MULU-Z . MULU-CVZNX) (IMMEDIATE-DEPENDENTS0 MULU-V . MULU-CVZNX) (IMMEDIATE-DEPENDENTS0 B0 . MULU-CVZNX) (IMMEDIATE-DEPENDENTS0 CVZNX . MULU-CVZNX) (DCELL . *1*MULU-CVZNX))))) (PUT1-LST (QUOTE *1*MULU-N) (QUOTE (MAIN-EVENT MULU-N))) (PUT1-LST (QUOTE MULU-N) (QUOTE (TYPE-PRESCRIPTION-LST ((MULU-N 4 NIL NIL NIL NIL)) TOTALP-LST ((MULU-N . T)) SDEFN (LAMBDA (N SOPD DOPD I) (MBIT (MULU N SOPD DOPD I) N)) LISP-CODE *1*MULU-N SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*MULU-N) IMMEDIATE-DEPENDENTS0 (MULU-N-OFF MULU-N-BITP MULU-CVZNX) EVENT (DEFN MULU-N (N SOPD DOPD I) (MBIT (MULU N SOPD DOPD I) N)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MULU . MULU-N) (IMMEDIATE-DEPENDENTS0 MBIT . MULU-N) (DCELL . *1*MULU-N))))) (PUT1-LST (QUOTE *1*MULU-Z) (QUOTE (MAIN-EVENT MULU-Z))) (PUT1-LST (QUOTE MULU-Z) (QUOTE (TYPE-PRESCRIPTION-LST ((MULU-Z 4 NIL NIL NIL NIL)) TOTALP-LST ((MULU-Z . T)) SDEFN (LAMBDA (N SOPD DOPD I) (IF (EQUAL (MULU N SOPD DOPD I) (QUOTE 0)) (B1) (B0))) LISP-CODE *1*MULU-Z SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*MULU-Z) IMMEDIATE-DEPENDENTS0 (MULU-Z-OFF MULU_3232-BEQ MULU_3264-BEQ MULU_1632-BEQ MULU-Z-BITP MULU-CVZNX) EVENT (DEFN MULU-Z (N SOPD DOPD I) (IF (EQUAL (MULU N SOPD DOPD I) (QUOTE 0)) (B1) (B0))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B0 . MULU-Z) (IMMEDIATE-DEPENDENTS0 B1 . MULU-Z) (IMMEDIATE-DEPENDENTS0 MULU . MULU-Z) (DCELL . *1*MULU-Z))))) (PUT1-LST (QUOTE *1*MULU-V) (QUOTE (MAIN-EVENT MULU-V))) (PUT1-LST (QUOTE MULU-V) (QUOTE (TYPE-PRESCRIPTION-LST ((MULU-V 4 NIL NIL NIL NIL)) LEMMAS ((REWRITE-RULE MULU_3264-BVS ((NAT-RANGEP X (QUOTE 32)) (NAT-RANGEP Y (QUOTE 32))) (EQUAL (MULU-V (QUOTE 64) X Y (QUOTE 32)) (QUOTE 0)) NIL) (REWRITE-RULE MULU_1632-BVS ((NAT-RANGEP X (QUOTE 16)) (NAT-RANGEP Y (QUOTE 16))) (EQUAL (MULU-V (QUOTE 32) X Y (QUOTE 16)) (QUOTE 0)) NIL)) TOTALP-LST ((MULU-V . T)) SDEFN (LAMBDA (N SOPD DOPD I) (IF (LESSP (TIMES SOPD DOPD) (EXP (QUOTE 2) N)) (B0) (B1))) LISP-CODE *1*MULU-V SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*MULU-V) IMMEDIATE-DEPENDENTS0 (MULU-V-OFF MULU_3232-BVS MULU_3264-BVS MULU_1632-BVS MULU-V-BITP MULU-CVZNX) EVENT (DEFN MULU-V (N SOPD DOPD I) (IF (LESSP (TIMES SOPD DOPD) (EXP (QUOTE 2) N)) (B0) (B1))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B1 . MULU-V) (IMMEDIATE-DEPENDENTS0 B0 . MULU-V) (IMMEDIATE-DEPENDENTS0 EXP . MULU-V) (DCELL . *1*MULU-V))))) (PUT1-LST (QUOTE *1*MUL&DIV-ADDR-MODEP) (QUOTE (MAIN-EVENT MUL&DIV-ADDR-MODEP))) (PUT1-LST (QUOTE MUL&DIV-ADDR-MODEP) (QUOTE (TYPE-PRESCRIPTION-LST ((MUL&DIV-ADDR-MODEP 3 NIL)) TOTALP-LST ((MUL&DIV-ADDR-MODEP . T)) SDEFN (LAMBDA (INS) (DATA-ADDR-MODEP (S_MODE INS) (S_RN INS))) LISP-CODE *1*MUL&DIV-ADDR-MODEP SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*MUL&DIV-ADDR-MODEP) IMMEDIATE-DEPENDENTS0 (GCD-S0-S0-RFILE-2 GCD-S0-S0-RFILE-1 GCD-S0-S0-2 GCD-S0-S0-1 MODE-GUARDS MUL-DIV_L-INS DIV_W-INS MUL_W-INS) EVENT (DEFN MUL&DIV-ADDR-MODEP (INS) (DATA-ADDR-MODEP (S_MODE INS) (S_RN INS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 S_RN . MUL&DIV-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 S_MODE . MUL&DIV-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 DATA-ADDR-MODEP . MUL&DIV-ADDR-MODEP) (DCELL . *1*MUL&DIV-ADDR-MODEP))))) (PUT1-LST (QUOTE *1*MULS) (QUOTE (MAIN-EVENT MULS))) (PUT1-LST (QUOTE MULS) (QUOTE (TYPE-PRESCRIPTION-LST ((MULS 4 NIL NIL NIL NIL)) TOTALP-LST ((MULS . T)) SDEFN (LAMBDA (N X Y I) (HEAD (INT-TO-NAT (ITIMES (NAT-TO-INT X I) (NAT-TO-INT Y I)) (TIMES (QUOTE 2) I)) N)) LISP-CODE *1*MULS SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*MULS) IMMEDIATE-DEPENDENTS0 (MULS-OFF MULS_3232-BEQ MULS_3264-BEQ MULS_1632-BEQ MULS-N-BITP MULS-Z-BITP MULS-NAT-RANGEP MULS_3232-INT MULS_3264-INT MULS_1632-INT MULS_L_DLDH MULS_L_DL MULS_W-INS MULS-N MULS-Z) EVENT (DEFN MULS (N X Y I) (HEAD (INT-TO-NAT (ITIMES (NAT-TO-INT X I) (NAT-TO-INT Y I)) (TIMES (QUOTE 2) I)) N)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NAT-TO-INT . MULS) (IMMEDIATE-DEPENDENTS0 ITIMES . MULS) (IMMEDIATE-DEPENDENTS0 INT-TO-NAT . MULS) (IMMEDIATE-DEPENDENTS0 HEAD . MULS) (DCELL . *1*MULS))))) (PUT1-LST (QUOTE *1*MULU) (QUOTE (MAIN-EVENT MULU))) (PUT1-LST (QUOTE MULU) (QUOTE (TYPE-PRESCRIPTION-LST ((MULU 4 NIL NIL NIL NIL)) TOTALP-LST ((MULU . T)) SDEFN (LAMBDA (N X Y I) (HEAD (TIMES X Y) N)) LISP-CODE *1*MULU SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*MULU) IMMEDIATE-DEPENDENTS0 (MULU-OFF MULU_3232-BEQ MULU_3264-BEQ MULU_1632-BEQ MULU-N-BITP MULU-Z-BITP MULU-NAT-RANGEP MULU_3232-NAT MULU_3264-NAT MULU_1632-NAT MULU_L_DLDH MULU_L_DL MULU_W-INS MULU-N MULU-Z) EVENT (DEFN MULU (N X Y I) (HEAD (TIMES X Y) N)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 HEAD . MULU) (DCELL . *1*MULU))))) (PUT1-LST (QUOTE *1*AND-INS2) (QUOTE (MAIN-EVENT AND-INS2))) (PUT1-LST (QUOTE AND-INS2) (QUOTE (TYPE-PRESCRIPTION-LST ((AND-INS2 -1 NIL NIL NIL)) TOTALP-LST ((AND-INS2 . T)) SDEFN (LAMBDA (OPLEN INS S) (IF (AND-ADDR-MODEP2 INS) (AND-MAPPING (READ-DN OPLEN (D_RN INS) S) OPLEN INS S) (HALT (MODE-SIGNAL) S))) LISP-CODE *1*AND-INS2 SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214824 SATELLITES (*1*AND-INS2) IMMEDIATE-DEPENDENTS0 (AND-GROUP-H AND-GROUP) EVENT (DEFN AND-INS2 (OPLEN INS S) (IF (AND-ADDR-MODEP2 INS) (AND-MAPPING (READ-DN OPLEN (D_RN INS) S) OPLEN INS S) (HALT (MODE-SIGNAL) S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MODE-SIGNAL . AND-INS2) (IMMEDIATE-DEPENDENTS0 HALT . AND-INS2) (IMMEDIATE-DEPENDENTS0 D_RN . AND-INS2) (IMMEDIATE-DEPENDENTS0 READ-DN . AND-INS2) (IMMEDIATE-DEPENDENTS0 AND-MAPPING . AND-INS2) (IMMEDIATE-DEPENDENTS0 AND-ADDR-MODEP2 . AND-INS2) (DCELL . *1*AND-INS2))))) (PUT1-LST (QUOTE *1*AND-MAPPING) (QUOTE (MAIN-EVENT AND-MAPPING))) (PUT1-LST (QUOTE AND-MAPPING) (QUOTE (TYPE-PRESCRIPTION-LST ((AND-MAPPING -1 NIL NIL NIL NIL)) TOTALP-LST ((AND-MAPPING . T)) SDEFN (LAMBDA (SOPD OPLEN INS S) (IF (MC-HALTP (CAR (MC-INSTATE OPLEN INS S))) (CAR (MC-INSTATE OPLEN INS S)) (MAPPING OPLEN (AND-EFFECT OPLEN SOPD (OPERAND OPLEN (CDR (MC-INSTATE OPLEN INS S)) S) (MC-CCR S)) (MC-INSTATE OPLEN INS S)))) LISP-CODE *1*AND-MAPPING SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214824 SATELLITES (*1*AND-MAPPING) IMMEDIATE-DEPENDENTS0 (BIT-GROUP-H AND-GROUP-H ANDI-INS AND-INS2) EVENT (DEFN AND-MAPPING (SOPD OPLEN INS S) (IF (MC-HALTP (CAR (MC-INSTATE OPLEN INS S))) (CAR (MC-INSTATE OPLEN INS S)) (MAPPING OPLEN (AND-EFFECT OPLEN SOPD (OPERAND OPLEN (CDR (MC-INSTATE OPLEN INS S)) S) (MC-CCR S)) (MC-INSTATE OPLEN INS S)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MC-CCR . AND-MAPPING) (IMMEDIATE-DEPENDENTS0 OPERAND . AND-MAPPING) (IMMEDIATE-DEPENDENTS0 AND-EFFECT . AND-MAPPING) (IMMEDIATE-DEPENDENTS0 MAPPING . AND-MAPPING) (IMMEDIATE-DEPENDENTS0 MC-INSTATE . AND-MAPPING) (IMMEDIATE-DEPENDENTS0 MC-HALTP . AND-MAPPING) (DCELL . *1*AND-MAPPING))))) (PUT1-LST (QUOTE *1*AND-INS1) (QUOTE (MAIN-EVENT AND-INS1))) (PUT1-LST (QUOTE AND-INS1) (QUOTE (TYPE-PRESCRIPTION-LST ((AND-INS1 -1 NIL NIL NIL)) TOTALP-LST ((AND-INS1 . T)) SDEFN (LAMBDA (OPLEN INS S) (IF (AND-ADDR-MODEP1 INS) (IF (MC-HALTP (CAR (MC-INSTATE OPLEN INS S))) (CAR (MC-INSTATE OPLEN INS S)) (D-MAPPING OPLEN (AND-EFFECT OPLEN (OPERAND OPLEN (CDR (MC-INSTATE OPLEN INS S)) S) (READ-DN OPLEN (D_RN INS) S) (MC-CCR S)) (D_RN INS) (CAR (MC-INSTATE OPLEN INS S)))) (HALT (MODE-SIGNAL) S))) LISP-CODE *1*AND-INS1 SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214824 SATELLITES (*1*AND-INS1) IMMEDIATE-DEPENDENTS0 (AND-GROUP-H AND-GROUP) EVENT (DEFN AND-INS1 (OPLEN INS S) (IF (AND-ADDR-MODEP1 INS) (IF (MC-HALTP (CAR (MC-INSTATE OPLEN INS S))) (CAR (MC-INSTATE OPLEN INS S)) (D-MAPPING OPLEN (AND-EFFECT OPLEN (OPERAND OPLEN (CDR (MC-INSTATE OPLEN INS S)) S) (READ-DN OPLEN (D_RN INS) S) (MC-CCR S)) (D_RN INS) (CAR (MC-INSTATE OPLEN INS S)))) (HALT (MODE-SIGNAL) S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MODE-SIGNAL . AND-INS1) (IMMEDIATE-DEPENDENTS0 HALT . AND-INS1) (IMMEDIATE-DEPENDENTS0 MC-CCR . AND-INS1) (IMMEDIATE-DEPENDENTS0 D_RN . AND-INS1) (IMMEDIATE-DEPENDENTS0 READ-DN . AND-INS1) (IMMEDIATE-DEPENDENTS0 OPERAND . AND-INS1) (IMMEDIATE-DEPENDENTS0 AND-EFFECT . AND-INS1) (IMMEDIATE-DEPENDENTS0 D-MAPPING . AND-INS1) (IMMEDIATE-DEPENDENTS0 MC-INSTATE . AND-INS1) (IMMEDIATE-DEPENDENTS0 MC-HALTP . AND-INS1) (IMMEDIATE-DEPENDENTS0 AND-ADDR-MODEP1 . AND-INS1) (DCELL . *1*AND-INS1))))) (PUT1-LST (QUOTE *1*AND-ADDR-MODEP2) (QUOTE (MAIN-EVENT AND-ADDR-MODEP2))) (PUT1-LST (QUOTE AND-ADDR-MODEP2) (QUOTE (TYPE-PRESCRIPTION-LST ((AND-ADDR-MODEP2 3 NIL)) TOTALP-LST ((AND-ADDR-MODEP2 . T)) SDEFN (LAMBDA (INS) (IF (ALTERABLE-ADDR-MODEP (S_MODE INS) (S_RN INS)) (MEMORY-ADDR-MODEP (S_MODE INS) (S_RN INS)) (QUOTE *1*FALSE))) LISP-CODE *1*AND-ADDR-MODEP2 SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*AND-ADDR-MODEP2) IMMEDIATE-DEPENDENTS0 (MODE-GUARDS AND-INS2) EVENT (DEFN AND-ADDR-MODEP2 (INS) (AND (ALTERABLE-ADDR-MODEP (S_MODE INS) (S_RN INS)) (MEMORY-ADDR-MODEP (S_MODE INS) (S_RN INS)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MEMORY-ADDR-MODEP . AND-ADDR-MODEP2) (IMMEDIATE-DEPENDENTS0 S_RN . AND-ADDR-MODEP2) (IMMEDIATE-DEPENDENTS0 S_MODE . AND-ADDR-MODEP2) (IMMEDIATE-DEPENDENTS0 ALTERABLE-ADDR-MODEP . AND-ADDR-MODEP2) (DCELL . *1*AND-ADDR-MODEP2))))) (PUT1-LST (QUOTE *1*AND-ADDR-MODEP1) (QUOTE (MAIN-EVENT AND-ADDR-MODEP1))) (PUT1-LST (QUOTE AND-ADDR-MODEP1) (QUOTE (TYPE-PRESCRIPTION-LST ((AND-ADDR-MODEP1 3 NIL)) TOTALP-LST ((AND-ADDR-MODEP1 . T)) SDEFN (LAMBDA (INS) (DATA-ADDR-MODEP (S_MODE INS) (S_RN INS))) LISP-CODE *1*AND-ADDR-MODEP1 SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*AND-ADDR-MODEP1) IMMEDIATE-DEPENDENTS0 (MODE-GUARDS AND-INS1) EVENT (DEFN AND-ADDR-MODEP1 (INS) (DATA-ADDR-MODEP (S_MODE INS) (S_RN INS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 S_RN . AND-ADDR-MODEP1) (IMMEDIATE-DEPENDENTS0 S_MODE . AND-ADDR-MODEP1) (IMMEDIATE-DEPENDENTS0 DATA-ADDR-MODEP . AND-ADDR-MODEP1) (DCELL . *1*AND-ADDR-MODEP1))))) (PUT1-LST (QUOTE *1*AND-EFFECT) (QUOTE (MAIN-EVENT AND-EFFECT))) (PUT1-LST (QUOTE AND-EFFECT) (QUOTE (TYPE-PRESCRIPTION-LST ((AND-EFFECT 16 NIL NIL NIL NIL)) TOTALP-LST ((AND-EFFECT . T)) SDEFN (LAMBDA (OPLEN SOPD DOPD CCR) (CONS (LOGAND SOPD DOPD) (AND-CVZNX OPLEN SOPD DOPD CCR))) LISP-CODE *1*AND-EFFECT SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*AND-EFFECT) IMMEDIATE-DEPENDENTS0 (BIT-GROUP-H AND-GROUP-H AND-MAPPING AND-INS1) EVENT (DEFN AND-EFFECT (OPLEN SOPD DOPD CCR) (CONS (LOGAND SOPD DOPD) (AND-CVZNX OPLEN SOPD DOPD CCR))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 AND-CVZNX . AND-EFFECT) (IMMEDIATE-DEPENDENTS0 LOGAND . AND-EFFECT) (DCELL . *1*AND-EFFECT))))) (PUT1-LST (QUOTE *1*AND-CVZNX) (QUOTE (MAIN-EVENT AND-CVZNX))) (PUT1-LST (QUOTE AND-CVZNX) (QUOTE (TYPE-PRESCRIPTION-LST ((AND-CVZNX 4 NIL NIL NIL NIL)) TOTALP-LST ((AND-CVZNX . T)) SDEFN (LAMBDA (OPLEN SOPD DOPD CCR) (CVZNX (B0) (B0) (AND-Z OPLEN SOPD DOPD) (AND-N OPLEN SOPD DOPD) (CCR-X CCR))) LISP-CODE *1*AND-CVZNX SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*AND-CVZNX) IMMEDIATE-DEPENDENTS0 (BIT-GROUP-H AND-GROUP-H AND-EFFECT) EVENT (DEFN AND-CVZNX (OPLEN SOPD DOPD CCR) (CVZNX (B0) (B0) (AND-Z OPLEN SOPD DOPD) (AND-N OPLEN SOPD DOPD) (CCR-X CCR))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CCR-X . AND-CVZNX) (IMMEDIATE-DEPENDENTS0 AND-N . AND-CVZNX) (IMMEDIATE-DEPENDENTS0 AND-Z . AND-CVZNX) (IMMEDIATE-DEPENDENTS0 B0 . AND-CVZNX) (IMMEDIATE-DEPENDENTS0 CVZNX . AND-CVZNX) (DCELL . *1*AND-CVZNX))))) (PUT1-LST (QUOTE *1*AND-N) (QUOTE (MAIN-EVENT AND-N))) (PUT1-LST (QUOTE AND-N) (QUOTE (TYPE-PRESCRIPTION-LST ((AND-N 4 NIL NIL NIL)) TOTALP-LST ((AND-N . T)) SDEFN (LAMBDA (OPLEN SOPD DOPD) (MBIT (LOGAND SOPD DOPD) OPLEN)) LISP-CODE *1*AND-N SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*AND-N) IMMEDIATE-DEPENDENTS0 (AND-N-OFF AND-N-BITP AND-CVZNX) EVENT (DEFN AND-N (OPLEN SOPD DOPD) (MBIT (LOGAND SOPD DOPD) OPLEN)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LOGAND . AND-N) (IMMEDIATE-DEPENDENTS0 MBIT . AND-N) (DCELL . *1*AND-N))))) (PUT1-LST (QUOTE *1*AND-Z) (QUOTE (MAIN-EVENT AND-Z))) (PUT1-LST (QUOTE AND-Z) (QUOTE (TYPE-PRESCRIPTION-LST ((AND-Z 4 NIL NIL NIL)) LEMMAS ((REWRITE-RULE AND-Z-COMMUTATIVITY NIL (EQUAL (AND-Z N X Y) (AND-Z N Y X)) ((X . Y)))) TOTALP-LST ((AND-Z . T)) SDEFN (LAMBDA (OPLEN SOPD DOPD) (IF (EQUAL (LOGAND SOPD DOPD) (QUOTE 0)) (B1) (B0))) LISP-CODE *1*AND-Z SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*AND-Z) IMMEDIATE-DEPENDENTS0 (AND-Z-COMMUTATIVITY AND-Z-OFF LOGAND-EOR-BEQ-UINT LOGAND-OR-BEQ-UINT LOGAND-BEQ-UINT AND-Z-BITP AND-CVZNX) EVENT (DEFN AND-Z (OPLEN SOPD DOPD) (IF (EQUAL (LOGAND SOPD DOPD) (QUOTE 0)) (B1) (B0))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B0 . AND-Z) (IMMEDIATE-DEPENDENTS0 B1 . AND-Z) (IMMEDIATE-DEPENDENTS0 LOGAND . AND-Z) (DCELL . *1*AND-Z))))) (PUT1-LST (QUOTE *1*SUB-GROUP) (QUOTE (MAIN-EVENT SUB-GROUP))) (PUT1-LST (QUOTE SUB-GROUP) (QUOTE (TYPE-PRESCRIPTION-LST ((SUB-GROUP -1 NIL NIL NIL)) TOTALP-LST ((SUB-GROUP . T)) SDEFN (LAMBDA (OPMODE INS S) (IF (LESSP OPMODE (QUOTE 4)) (IF (EQUAL OPMODE (QUOTE 3)) (SUBA-INS (W) INS S) (SUB-INS1 (OP-LEN INS) INS S)) (IF (EQUAL OPMODE (QUOTE 7)) (SUBA-INS (L) INS S) (IF (EQUAL (S_MODE INS) (QUOTE 0)) (SUBX-INS1 (OP-LEN INS) INS S) (IF (EQUAL (S_MODE INS) (QUOTE 1)) (SUBX-INS2 (OP-LEN INS) INS S) (SUB-INS2 (OP-LEN INS) INS S)))))) LISP-CODE *1*SUB-GROUP SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214824 SATELLITES (*1*SUB-GROUP) IMMEDIATE-DEPENDENTS0 (SUB-GROUP-H GROUPS EXECUTE-INS) EVENT (DEFN SUB-GROUP (OPMODE INS S) (IF (LESSP OPMODE (QUOTE 4)) (IF (EQUAL OPMODE (QUOTE 3)) (SUBA-INS (W) INS S) (SUB-INS1 (OP-LEN INS) INS S)) (IF (EQUAL OPMODE (QUOTE 7)) (SUBA-INS (L) INS S) (IF (EQUAL (S_MODE INS) (QUOTE 0)) (SUBX-INS1 (OP-LEN INS) INS S) (IF (EQUAL (S_MODE INS) (QUOTE 1)) (SUBX-INS2 (OP-LEN INS) INS S) (SUB-INS2 (OP-LEN INS) INS S)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUB-INS2 . SUB-GROUP) (IMMEDIATE-DEPENDENTS0 SUBX-INS2 . SUB-GROUP) (IMMEDIATE-DEPENDENTS0 SUBX-INS1 . SUB-GROUP) (IMMEDIATE-DEPENDENTS0 S_MODE . SUB-GROUP) (IMMEDIATE-DEPENDENTS0 L . SUB-GROUP) (IMMEDIATE-DEPENDENTS0 OP-LEN . SUB-GROUP) (IMMEDIATE-DEPENDENTS0 SUB-INS1 . SUB-GROUP) (IMMEDIATE-DEPENDENTS0 W . SUB-GROUP) (IMMEDIATE-DEPENDENTS0 SUBA-INS . SUB-GROUP) (DCELL . *1*SUB-GROUP))))) (PUT1-LST (QUOTE *1*SUBX-INS2) (QUOTE (MAIN-EVENT SUBX-INS2))) (PUT1-LST (QUOTE SUBX-INS2) (QUOTE (TYPE-PRESCRIPTION-LST ((SUBX-INS2 16 NIL NIL NIL)) TOTALP-LST ((SUBX-INS2 . T)) SDEFN (LAMBDA (OPLEN INS S) (IF (READ-MEMP (CDR (CDR (ADDR-PREDEC OPLEN (S_RN INS) S))) (MC-MEM S) (OP-SZ OPLEN)) (IF (READ-MEMP (CDR (CDR (ADDR-PREDEC OPLEN (D_RN INS) (CAR (ADDR-PREDEC OPLEN (S_RN INS) S))))) (MC-MEM S) (OP-SZ OPLEN)) (MAPPING OPLEN (SUBX-EFFECT OPLEN (OPERAND OPLEN (CDR (ADDR-PREDEC OPLEN (S_RN INS) S)) (CAR (ADDR-PREDEC OPLEN (S_RN INS) S))) (OPERAND OPLEN (CDR (ADDR-PREDEC OPLEN (D_RN INS) (CAR (ADDR-PREDEC OPLEN (S_RN INS) S)))) (CAR (ADDR-PREDEC OPLEN (D_RN INS) (CAR (ADDR-PREDEC OPLEN (S_RN INS) S))))) (MC-CCR S)) (ADDR-PREDEC OPLEN (D_RN INS) (CAR (ADDR-PREDEC OPLEN (S_RN INS) S)))) (HALT (READ-SIGNAL) S)) (HALT (READ-SIGNAL) S))) LISP-CODE *1*SUBX-INS2 SUBRP *1*FALSE LEVEL-NO 5 IDATE 1000402214824 SATELLITES (*1*SUBX-INS2) IMMEDIATE-DEPENDENTS0 (SUB-GROUP-H SUB-GROUP) EVENT (DEFN SUBX-INS2 (OPLEN INS S) (IF (READ-MEMP (CDR (CDR (ADDR-PREDEC OPLEN (S_RN INS) S))) (MC-MEM S) (OP-SZ OPLEN)) (IF (READ-MEMP (CDR (CDR (ADDR-PREDEC OPLEN (D_RN INS) (CAR (ADDR-PREDEC OPLEN (S_RN INS) S))))) (MC-MEM S) (OP-SZ OPLEN)) (MAPPING OPLEN (SUBX-EFFECT OPLEN (OPERAND OPLEN (CDR (ADDR-PREDEC OPLEN (S_RN INS) S)) (CAR (ADDR-PREDEC OPLEN (S_RN INS) S))) (OPERAND OPLEN (CDR (ADDR-PREDEC OPLEN (D_RN INS) (CAR (ADDR-PREDEC OPLEN (S_RN INS) S)))) (CAR (ADDR-PREDEC OPLEN (D_RN INS) (CAR (ADDR-PREDEC OPLEN (S_RN INS) S))))) (MC-CCR S)) (ADDR-PREDEC OPLEN (D_RN INS) (CAR (ADDR-PREDEC OPLEN (S_RN INS) S)))) (HALT (READ-SIGNAL) S)) (HALT (READ-SIGNAL) S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 READ-SIGNAL . SUBX-INS2) (IMMEDIATE-DEPENDENTS0 HALT . SUBX-INS2) (IMMEDIATE-DEPENDENTS0 MC-CCR . SUBX-INS2) (IMMEDIATE-DEPENDENTS0 OPERAND . SUBX-INS2) (IMMEDIATE-DEPENDENTS0 SUBX-EFFECT . SUBX-INS2) (IMMEDIATE-DEPENDENTS0 MAPPING . SUBX-INS2) (IMMEDIATE-DEPENDENTS0 D_RN . SUBX-INS2) (IMMEDIATE-DEPENDENTS0 OP-SZ . SUBX-INS2) (IMMEDIATE-DEPENDENTS0 MC-MEM . SUBX-INS2) (IMMEDIATE-DEPENDENTS0 S_RN . SUBX-INS2) (IMMEDIATE-DEPENDENTS0 ADDR-PREDEC . SUBX-INS2) (IMMEDIATE-DEPENDENTS0 READ-MEMP . SUBX-INS2) (DCELL . *1*SUBX-INS2))))) (PUT1-LST (QUOTE *1*SUBX-INS1) (QUOTE (MAIN-EVENT SUBX-INS1))) (PUT1-LST (QUOTE SUBX-INS1) (QUOTE (TYPE-PRESCRIPTION-LST ((SUBX-INS1 16 NIL NIL NIL)) TOTALP-LST ((SUBX-INS1 . T)) SDEFN (LAMBDA (OPLEN INS S) (D-MAPPING OPLEN (SUBX-EFFECT OPLEN (READ-DN OPLEN (S_RN INS) S) (READ-DN OPLEN (D_RN INS) S) (MC-CCR S)) (D_RN INS) S)) LISP-CODE *1*SUBX-INS1 SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*SUBX-INS1) IMMEDIATE-DEPENDENTS0 (SUB-GROUP-H SUB-GROUP) EVENT (DEFN SUBX-INS1 (OPLEN INS S) (D-MAPPING OPLEN (SUBX-EFFECT OPLEN (READ-DN OPLEN (S_RN INS) S) (READ-DN OPLEN (D_RN INS) S) (MC-CCR S)) (D_RN INS) S)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MC-CCR . SUBX-INS1) (IMMEDIATE-DEPENDENTS0 D_RN . SUBX-INS1) (IMMEDIATE-DEPENDENTS0 S_RN . SUBX-INS1) (IMMEDIATE-DEPENDENTS0 READ-DN . SUBX-INS1) (IMMEDIATE-DEPENDENTS0 SUBX-EFFECT . SUBX-INS1) (IMMEDIATE-DEPENDENTS0 D-MAPPING . SUBX-INS1) (DCELL . *1*SUBX-INS1))))) (PUT1-LST (QUOTE *1*SUBX-EFFECT) (QUOTE (MAIN-EVENT SUBX-EFFECT))) (PUT1-LST (QUOTE SUBX-EFFECT) (QUOTE (TYPE-PRESCRIPTION-LST ((SUBX-EFFECT 16 NIL NIL NIL NIL)) TOTALP-LST ((SUBX-EFFECT . T)) SDEFN (LAMBDA (OPLEN SOPD DOPD CCR) (CONS (SUBTRACTER OPLEN (CCR-X CCR) SOPD DOPD) (SUBX-CVZNX OPLEN (CCR-Z CCR) (CCR-X CCR) SOPD DOPD))) LISP-CODE *1*SUBX-EFFECT SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*SUBX-EFFECT) IMMEDIATE-DEPENDENTS0 (MISC-GROUP-H SUB-GROUP-H NEGX-INS SUBX-INS2 SUBX-INS1) EVENT (DEFN SUBX-EFFECT (OPLEN SOPD DOPD CCR) (CONS (SUBTRACTER OPLEN (CCR-X CCR) SOPD DOPD) (SUBX-CVZNX OPLEN (CCR-Z CCR) (CCR-X CCR) SOPD DOPD))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CCR-Z . SUBX-EFFECT) (IMMEDIATE-DEPENDENTS0 SUBX-CVZNX . SUBX-EFFECT) (IMMEDIATE-DEPENDENTS0 CCR-X . SUBX-EFFECT) (IMMEDIATE-DEPENDENTS0 SUBTRACTER . SUBX-EFFECT) (DCELL . *1*SUBX-EFFECT))))) (PUT1-LST (QUOTE *1*SUBX-CVZNX) (QUOTE (MAIN-EVENT SUBX-CVZNX))) (PUT1-LST (QUOTE SUBX-CVZNX) (QUOTE (TYPE-PRESCRIPTION-LST ((SUBX-CVZNX 4 NIL NIL NIL NIL NIL)) TOTALP-LST ((SUBX-CVZNX . T)) SDEFN (LAMBDA (OPLEN Z X SOPD DOPD) (CVZNX (SUBX-C OPLEN X SOPD DOPD) (SUBX-V OPLEN X SOPD DOPD) (SUBX-Z OPLEN Z X SOPD DOPD) (SUBX-N OPLEN X SOPD DOPD) (SUBX-C OPLEN X SOPD DOPD))) LISP-CODE *1*SUBX-CVZNX SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*SUBX-CVZNX) IMMEDIATE-DEPENDENTS0 (MISC-GROUP-H SUB-GROUP-H SUBX-EFFECT) EVENT (DEFN SUBX-CVZNX (OPLEN Z X SOPD DOPD) (CVZNX (SUBX-C OPLEN X SOPD DOPD) (SUBX-V OPLEN X SOPD DOPD) (SUBX-Z OPLEN Z X SOPD DOPD) (SUBX-N OPLEN X SOPD DOPD) (SUBX-C OPLEN X SOPD DOPD))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUBX-N . SUBX-CVZNX) (IMMEDIATE-DEPENDENTS0 SUBX-Z . SUBX-CVZNX) (IMMEDIATE-DEPENDENTS0 SUBX-V . SUBX-CVZNX) (IMMEDIATE-DEPENDENTS0 SUBX-C . SUBX-CVZNX) (IMMEDIATE-DEPENDENTS0 CVZNX . SUBX-CVZNX) (DCELL . *1*SUBX-CVZNX))))) (PUT1-LST (QUOTE *1*SUBX-N) (QUOTE (MAIN-EVENT SUBX-N))) (PUT1-LST (QUOTE SUBX-N) (QUOTE (TYPE-PRESCRIPTION-LST ((SUBX-N 4 NIL NIL NIL NIL)) TOTALP-LST ((SUBX-N . T)) SDEFN (LAMBDA (OPLEN X SOPD DOPD) (MBIT (SUBTRACTER OPLEN X SOPD DOPD) OPLEN)) LISP-CODE *1*SUBX-N SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*SUBX-N) IMMEDIATE-DEPENDENTS0 (SUBX-N-OFF SUBX-N-BITP SUBX-CVZNX) EVENT (DEFN SUBX-N (OPLEN X SOPD DOPD) (MBIT (SUBTRACTER OPLEN X SOPD DOPD) OPLEN)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUBTRACTER . SUBX-N) (IMMEDIATE-DEPENDENTS0 MBIT . SUBX-N) (DCELL . *1*SUBX-N))))) (PUT1-LST (QUOTE *1*SUBX-Z) (QUOTE (MAIN-EVENT SUBX-Z))) (PUT1-LST (QUOTE SUBX-Z) (QUOTE (TYPE-PRESCRIPTION-LST ((SUBX-Z 4 NIL NIL NIL NIL NIL)) TOTALP-LST ((SUBX-Z . T)) SDEFN (LAMBDA (OPLEN Z X SOPD DOPD) (IF (EQUAL (SUBTRACTER OPLEN X SOPD DOPD) (QUOTE 0)) (B-AND Z (B1)) (B-AND Z (B0)))) LISP-CODE *1*SUBX-Z SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*SUBX-Z) IMMEDIATE-DEPENDENTS0 (SUBX-Z-OFF SUBX-Z-BITP SUBX-CVZNX) EVENT (DEFN SUBX-Z (OPLEN Z X SOPD DOPD) (B-AND Z (IF (EQUAL (SUBTRACTER OPLEN X SOPD DOPD) (QUOTE 0)) (B1) (B0)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B0 . SUBX-Z) (IMMEDIATE-DEPENDENTS0 B1 . SUBX-Z) (IMMEDIATE-DEPENDENTS0 SUBTRACTER . SUBX-Z) (IMMEDIATE-DEPENDENTS0 B-AND . SUBX-Z) (DCELL . *1*SUBX-Z))))) (PUT1-LST (QUOTE *1*SUBX-V) (QUOTE (MAIN-EVENT SUBX-V))) (PUT1-LST (QUOTE SUBX-V) (QUOTE (TYPE-PRESCRIPTION-LST ((SUBX-V 4 NIL NIL NIL NIL)) LEMMAS ((REWRITE-RULE SUBX-V-LA ((NAT-RANGEP X N) (NAT-RANGEP Y N) (BITP C) (NUMBERP N) (NOT (EQUAL N (QUOTE 0)))) (EQUAL (SUBX-V N C X Y) (IF (INT-RANGEP (IDIFFERENCE (NAT-TO-INT Y N) (IPLUS (NAT-TO-INT X N) C)) N) (QUOTE 0) (QUOTE 1))) NIL) (REWRITE-RULE SUBX-ADDX-V ((NAT-RANGEP X N) (NUMBERP N) (NOT (EQUAL N (QUOTE 0)))) (EQUAL (SUBX-V N Z X Y) (ADDX-V N (B-NOT Z) Y (LOGNOT N X))) NIL)) TOTALP-LST ((SUBX-V . T)) SDEFN (LAMBDA (N X SOPD DOPD) (B-OR (B-AND (B-AND (B-NOT (MBIT SOPD N)) (MBIT DOPD N)) (B-NOT (MBIT (SUBTRACTER N X SOPD DOPD) N))) (B-AND (B-AND (MBIT SOPD N) (B-NOT (MBIT DOPD N))) (MBIT (SUBTRACTER N X SOPD DOPD) N)))) LISP-CODE *1*SUBX-V SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*SUBX-V) IMMEDIATE-DEPENDENTS0 (SUBX-V-OFF SUBX-V-LA SUB-SUBX-V SUBX-ADDX-V SUBX-V-BITP SUBX-CVZNX) EVENT (DEFN SUBX-V (N X SOPD DOPD) (B-OR (B-AND (B-AND (B-NOT (MBIT SOPD N)) (MBIT DOPD N)) (B-NOT (MBIT (SUBTRACTER N X SOPD DOPD) N))) (B-AND (B-AND (MBIT SOPD N) (B-NOT (MBIT DOPD N))) (MBIT (SUBTRACTER N X SOPD DOPD) N)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUBTRACTER . SUBX-V) (IMMEDIATE-DEPENDENTS0 MBIT . SUBX-V) (IMMEDIATE-DEPENDENTS0 B-NOT . SUBX-V) (IMMEDIATE-DEPENDENTS0 B-AND . SUBX-V) (IMMEDIATE-DEPENDENTS0 B-OR . SUBX-V) (DCELL . *1*SUBX-V))))) (PUT1-LST (QUOTE *1*SUBX-C) (QUOTE (MAIN-EVENT SUBX-C))) (PUT1-LST (QUOTE SUBX-C) (QUOTE (TYPE-PRESCRIPTION-LST ((SUBX-C 4 NIL NIL NIL NIL)) LEMMAS ((REWRITE-RULE SUBX-C-LA ((NAT-RANGEP X N) (NAT-RANGEP Y N) (BITP C) (NUMBERP N) (NOT (EQUAL N (QUOTE 0)))) (EQUAL (SUBX-C N C X Y) (IF (LESSP Y (PLUS C X)) (QUOTE 1) (QUOTE 0))) NIL)) TOTALP-LST ((SUBX-C . T)) SDEFN (LAMBDA (N X SOPD DOPD) (B-OR (B-OR (B-AND (MBIT SOPD N) (B-NOT (MBIT DOPD N))) (B-AND (MBIT (SUBTRACTER N X SOPD DOPD) N) (B-NOT (MBIT DOPD N)))) (B-AND (MBIT SOPD N) (MBIT (SUBTRACTER N X SOPD DOPD) N)))) LISP-CODE *1*SUBX-C SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*SUBX-C) IMMEDIATE-DEPENDENTS0 (SUBX-C-OFF SUBX-C-LA SUB-SUBX-C SUBX-C-BITP SUBX-CVZNX) EVENT (DEFN SUBX-C (N X SOPD DOPD) (B-OR (B-OR (B-AND (MBIT SOPD N) (B-NOT (MBIT DOPD N))) (B-AND (MBIT (SUBTRACTER N X SOPD DOPD) N) (B-NOT (MBIT DOPD N)))) (B-AND (MBIT SOPD N) (MBIT (SUBTRACTER N X SOPD DOPD) N)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUBTRACTER . SUBX-C) (IMMEDIATE-DEPENDENTS0 B-NOT . SUBX-C) (IMMEDIATE-DEPENDENTS0 MBIT . SUBX-C) (IMMEDIATE-DEPENDENTS0 B-AND . SUBX-C) (IMMEDIATE-DEPENDENTS0 B-OR . SUBX-C) (DCELL . *1*SUBX-C))))) (PUT1-LST (QUOTE *1*SUBA-INS) (QUOTE (MAIN-EVENT SUBA-INS))) (PUT1-LST (QUOTE SUBA-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((SUBA-INS -1 NIL NIL NIL)) TOTALP-LST ((SUBA-INS . T)) SDEFN (LAMBDA (OPLEN INS S) (IF (SUBA-ADDR-MODEP INS) (IF (MC-HALTP (CAR (MC-INSTATE OPLEN INS S))) (CAR (MC-INSTATE OPLEN INS S)) (WRITE-AN (L) (SUB (L) (EXT OPLEN (OPERAND OPLEN (CDR (MC-INSTATE OPLEN INS S)) S) (L)) (READ-AN (L) (D_RN INS) (CAR (MC-INSTATE OPLEN INS S)))) (D_RN INS) (CAR (MC-INSTATE OPLEN INS S)))) (HALT (MODE-SIGNAL) S))) LISP-CODE *1*SUBA-INS SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214824 SATELLITES (*1*SUBA-INS) IMMEDIATE-DEPENDENTS0 (SUB-GROUP-H SUB-GROUP) EVENT (DEFN SUBA-INS (OPLEN INS S) (IF (SUBA-ADDR-MODEP INS) (IF (MC-HALTP (CAR (MC-INSTATE OPLEN INS S))) (CAR (MC-INSTATE OPLEN INS S)) (WRITE-AN (L) (SUB (L) (EXT OPLEN (OPERAND OPLEN (CDR (MC-INSTATE OPLEN INS S)) S) (L)) (READ-AN (L) (D_RN INS) (CAR (MC-INSTATE OPLEN INS S)))) (D_RN INS) (CAR (MC-INSTATE OPLEN INS S)))) (HALT (MODE-SIGNAL) S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MODE-SIGNAL . SUBA-INS) (IMMEDIATE-DEPENDENTS0 HALT . SUBA-INS) (IMMEDIATE-DEPENDENTS0 D_RN . SUBA-INS) (IMMEDIATE-DEPENDENTS0 READ-AN . SUBA-INS) (IMMEDIATE-DEPENDENTS0 OPERAND . SUBA-INS) (IMMEDIATE-DEPENDENTS0 EXT . SUBA-INS) (IMMEDIATE-DEPENDENTS0 SUB . SUBA-INS) (IMMEDIATE-DEPENDENTS0 L . SUBA-INS) (IMMEDIATE-DEPENDENTS0 WRITE-AN . SUBA-INS) (IMMEDIATE-DEPENDENTS0 MC-INSTATE . SUBA-INS) (IMMEDIATE-DEPENDENTS0 MC-HALTP . SUBA-INS) (IMMEDIATE-DEPENDENTS0 SUBA-ADDR-MODEP . SUBA-INS) (DCELL . *1*SUBA-INS))))) (PUT1-LST (QUOTE *1*SUBA-ADDR-MODEP) (QUOTE (MAIN-EVENT SUBA-ADDR-MODEP))) (PUT1-LST (QUOTE SUBA-ADDR-MODEP) (QUOTE (TYPE-PRESCRIPTION-LST ((SUBA-ADDR-MODEP 3 NIL)) TOTALP-LST ((SUBA-ADDR-MODEP . T)) SDEFN (LAMBDA (INS) (ADDR-MODEP (S_MODE INS) (S_RN INS))) LISP-CODE *1*SUBA-ADDR-MODEP SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*SUBA-ADDR-MODEP) IMMEDIATE-DEPENDENTS0 (MODE-GUARDS SUBA-INS) EVENT (DEFN SUBA-ADDR-MODEP (INS) (ADDR-MODEP (S_MODE INS) (S_RN INS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 S_RN . SUBA-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 S_MODE . SUBA-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 ADDR-MODEP . SUBA-ADDR-MODEP) (DCELL . *1*SUBA-ADDR-MODEP))))) (PUT1-LST (QUOTE *1*SUB-INS2) (QUOTE (MAIN-EVENT SUB-INS2))) (PUT1-LST (QUOTE SUB-INS2) (QUOTE (TYPE-PRESCRIPTION-LST ((SUB-INS2 -1 NIL NIL NIL)) TOTALP-LST ((SUB-INS2 . T)) SDEFN (LAMBDA (OPLEN INS S) (IF (SUB-ADDR-MODEP2 INS) (SUB-MAPPING (READ-DN OPLEN (D_RN INS) S) OPLEN INS S) (HALT (MODE-SIGNAL) S))) LISP-CODE *1*SUB-INS2 SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214824 SATELLITES (*1*SUB-INS2) IMMEDIATE-DEPENDENTS0 (SUB-GROUP-H SUB-GROUP) EVENT (DEFN SUB-INS2 (OPLEN INS S) (IF (SUB-ADDR-MODEP2 INS) (SUB-MAPPING (READ-DN OPLEN (D_RN INS) S) OPLEN INS S) (HALT (MODE-SIGNAL) S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MODE-SIGNAL . SUB-INS2) (IMMEDIATE-DEPENDENTS0 HALT . SUB-INS2) (IMMEDIATE-DEPENDENTS0 D_RN . SUB-INS2) (IMMEDIATE-DEPENDENTS0 READ-DN . SUB-INS2) (IMMEDIATE-DEPENDENTS0 SUB-MAPPING . SUB-INS2) (IMMEDIATE-DEPENDENTS0 SUB-ADDR-MODEP2 . SUB-INS2) (DCELL . *1*SUB-INS2))))) (PUT1-LST (QUOTE *1*SUB-MAPPING) (QUOTE (MAIN-EVENT SUB-MAPPING))) (PUT1-LST (QUOTE SUB-MAPPING) (QUOTE (TYPE-PRESCRIPTION-LST ((SUB-MAPPING -1 NIL NIL NIL NIL)) TOTALP-LST ((SUB-MAPPING . T)) SDEFN (LAMBDA (OPD OPLEN INS S) (IF (MC-HALTP (CAR (MC-INSTATE OPLEN INS S))) (CAR (MC-INSTATE OPLEN INS S)) (MAPPING OPLEN (SUB-EFFECT OPLEN OPD (OPERAND OPLEN (CDR (MC-INSTATE OPLEN INS S)) S)) (MC-INSTATE OPLEN INS S)))) LISP-CODE *1*SUB-MAPPING SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214824 SATELLITES (*1*SUB-MAPPING) IMMEDIATE-DEPENDENTS0 (BIT-GROUP-H SCC-GROUP-H SUB-GROUP-H SUBI-INS SUBQ-INS SUB-INS2) EVENT (DEFN SUB-MAPPING (OPD OPLEN INS S) (IF (MC-HALTP (CAR (MC-INSTATE OPLEN INS S))) (CAR (MC-INSTATE OPLEN INS S)) (MAPPING OPLEN (SUB-EFFECT OPLEN OPD (OPERAND OPLEN (CDR (MC-INSTATE OPLEN INS S)) S)) (MC-INSTATE OPLEN INS S)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OPERAND . SUB-MAPPING) (IMMEDIATE-DEPENDENTS0 SUB-EFFECT . SUB-MAPPING) (IMMEDIATE-DEPENDENTS0 MAPPING . SUB-MAPPING) (IMMEDIATE-DEPENDENTS0 MC-INSTATE . SUB-MAPPING) (IMMEDIATE-DEPENDENTS0 MC-HALTP . SUB-MAPPING) (DCELL . *1*SUB-MAPPING))))) (PUT1-LST (QUOTE *1*SUB-INS1) (QUOTE (MAIN-EVENT SUB-INS1))) (PUT1-LST (QUOTE SUB-INS1) (QUOTE (TYPE-PRESCRIPTION-LST ((SUB-INS1 -1 NIL NIL NIL)) TOTALP-LST ((SUB-INS1 . T)) SDEFN (LAMBDA (OPLEN INS S) (IF (SUB-ADDR-MODEP1 OPLEN INS) (IF (MC-HALTP (CAR (MC-INSTATE OPLEN INS S))) (CAR (MC-INSTATE OPLEN INS S)) (D-MAPPING OPLEN (SUB-EFFECT OPLEN (OPERAND OPLEN (CDR (MC-INSTATE OPLEN INS S)) S) (READ-DN OPLEN (D_RN INS) S)) (D_RN INS) (CAR (MC-INSTATE OPLEN INS S)))) (HALT (MODE-SIGNAL) S))) LISP-CODE *1*SUB-INS1 SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214824 SATELLITES (*1*SUB-INS1) IMMEDIATE-DEPENDENTS0 (SUB-GROUP-H SUB-GROUP) EVENT (DEFN SUB-INS1 (OPLEN INS S) (IF (SUB-ADDR-MODEP1 OPLEN INS) (IF (MC-HALTP (CAR (MC-INSTATE OPLEN INS S))) (CAR (MC-INSTATE OPLEN INS S)) (D-MAPPING OPLEN (SUB-EFFECT OPLEN (OPERAND OPLEN (CDR (MC-INSTATE OPLEN INS S)) S) (READ-DN OPLEN (D_RN INS) S)) (D_RN INS) (CAR (MC-INSTATE OPLEN INS S)))) (HALT (MODE-SIGNAL) S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MODE-SIGNAL . SUB-INS1) (IMMEDIATE-DEPENDENTS0 HALT . SUB-INS1) (IMMEDIATE-DEPENDENTS0 D_RN . SUB-INS1) (IMMEDIATE-DEPENDENTS0 READ-DN . SUB-INS1) (IMMEDIATE-DEPENDENTS0 OPERAND . SUB-INS1) (IMMEDIATE-DEPENDENTS0 SUB-EFFECT . SUB-INS1) (IMMEDIATE-DEPENDENTS0 D-MAPPING . SUB-INS1) (IMMEDIATE-DEPENDENTS0 MC-INSTATE . SUB-INS1) (IMMEDIATE-DEPENDENTS0 MC-HALTP . SUB-INS1) (IMMEDIATE-DEPENDENTS0 SUB-ADDR-MODEP1 . SUB-INS1) (DCELL . *1*SUB-INS1))))) (PUT1-LST (QUOTE *1*SUB-ADDR-MODEP2) (QUOTE (MAIN-EVENT SUB-ADDR-MODEP2))) (PUT1-LST (QUOTE SUB-ADDR-MODEP2) (QUOTE (TYPE-PRESCRIPTION-LST ((SUB-ADDR-MODEP2 3 NIL)) TOTALP-LST ((SUB-ADDR-MODEP2 . T)) SDEFN (LAMBDA (INS) (IF (ALTERABLE-ADDR-MODEP (S_MODE INS) (S_RN INS)) (MEMORY-ADDR-MODEP (S_MODE INS) (S_RN INS)) (QUOTE *1*FALSE))) LISP-CODE *1*SUB-ADDR-MODEP2 SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*SUB-ADDR-MODEP2) IMMEDIATE-DEPENDENTS0 (MODE-GUARDS SUB-INS2) EVENT (DEFN SUB-ADDR-MODEP2 (INS) (AND (ALTERABLE-ADDR-MODEP (S_MODE INS) (S_RN INS)) (MEMORY-ADDR-MODEP (S_MODE INS) (S_RN INS)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MEMORY-ADDR-MODEP . SUB-ADDR-MODEP2) (IMMEDIATE-DEPENDENTS0 S_RN . SUB-ADDR-MODEP2) (IMMEDIATE-DEPENDENTS0 S_MODE . SUB-ADDR-MODEP2) (IMMEDIATE-DEPENDENTS0 ALTERABLE-ADDR-MODEP . SUB-ADDR-MODEP2) (DCELL . *1*SUB-ADDR-MODEP2))))) (PUT1-LST (QUOTE *1*SUB-ADDR-MODEP1) (QUOTE (MAIN-EVENT SUB-ADDR-MODEP1))) (PUT1-LST (QUOTE SUB-ADDR-MODEP1) (QUOTE (TYPE-PRESCRIPTION-LST ((SUB-ADDR-MODEP1 3 NIL NIL)) TOTALP-LST ((SUB-ADDR-MODEP1 . T)) SDEFN (LAMBDA (OPLEN INS) (IF (ADDR-MODEP (S_MODE INS) (S_RN INS)) (IF (BYTE-AN-DIRECT-MODEP OPLEN (S_MODE INS)) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (QUOTE *1*FALSE))) LISP-CODE *1*SUB-ADDR-MODEP1 SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*SUB-ADDR-MODEP1) IMMEDIATE-DEPENDENTS0 (MODE-GUARDS SUB-INS1) EVENT (DEFN SUB-ADDR-MODEP1 (OPLEN INS) (AND (ADDR-MODEP (S_MODE INS) (S_RN INS)) (NOT (BYTE-AN-DIRECT-MODEP OPLEN (S_MODE INS))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BYTE-AN-DIRECT-MODEP . SUB-ADDR-MODEP1) (IMMEDIATE-DEPENDENTS0 S_RN . SUB-ADDR-MODEP1) (IMMEDIATE-DEPENDENTS0 S_MODE . SUB-ADDR-MODEP1) (IMMEDIATE-DEPENDENTS0 ADDR-MODEP . SUB-ADDR-MODEP1) (DCELL . *1*SUB-ADDR-MODEP1))))) (PUT1-LST (QUOTE *1*SUB-EFFECT) (QUOTE (MAIN-EVENT SUB-EFFECT))) (PUT1-LST (QUOTE SUB-EFFECT) (QUOTE (TYPE-PRESCRIPTION-LST ((SUB-EFFECT 16 NIL NIL NIL)) TOTALP-LST ((SUB-EFFECT . T)) SDEFN (LAMBDA (OPLEN SOPD DOPD) (CONS (SUB OPLEN SOPD DOPD) (SUB-CVZNX OPLEN SOPD DOPD))) LISP-CODE *1*SUB-EFFECT SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*SUB-EFFECT) IMMEDIATE-DEPENDENTS0 (MISC-GROUP-H BIT-GROUP-H SCC-GROUP-H SUB-GROUP-H NEG-INS SUB-MAPPING SUB-INS1) EVENT (DEFN SUB-EFFECT (OPLEN SOPD DOPD) (CONS (SUB OPLEN SOPD DOPD) (SUB-CVZNX OPLEN SOPD DOPD))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUB-CVZNX . SUB-EFFECT) (IMMEDIATE-DEPENDENTS0 SUB . SUB-EFFECT) (DCELL . *1*SUB-EFFECT))))) (PUT1-LST (QUOTE *1*SUB-CVZNX) (QUOTE (MAIN-EVENT SUB-CVZNX))) (PUT1-LST (QUOTE SUB-CVZNX) (QUOTE (TYPE-PRESCRIPTION-LST ((SUB-CVZNX 4 NIL NIL NIL)) TOTALP-LST ((SUB-CVZNX . T)) SDEFN (LAMBDA (OPLEN SOPD DOPD) (CVZNX (SUB-C OPLEN SOPD DOPD) (SUB-V OPLEN SOPD DOPD) (SUB-Z OPLEN SOPD DOPD) (SUB-N OPLEN SOPD DOPD) (SUB-C OPLEN SOPD DOPD))) LISP-CODE *1*SUB-CVZNX SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*SUB-CVZNX) IMMEDIATE-DEPENDENTS0 (MISC-GROUP-H BIT-GROUP-H SCC-GROUP-H SUB-GROUP-H SUB-EFFECT) EVENT (DEFN SUB-CVZNX (OPLEN SOPD DOPD) (CVZNX (SUB-C OPLEN SOPD DOPD) (SUB-V OPLEN SOPD DOPD) (SUB-Z OPLEN SOPD DOPD) (SUB-N OPLEN SOPD DOPD) (SUB-C OPLEN SOPD DOPD))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUB-N . SUB-CVZNX) (IMMEDIATE-DEPENDENTS0 SUB-Z . SUB-CVZNX) (IMMEDIATE-DEPENDENTS0 SUB-V . SUB-CVZNX) (IMMEDIATE-DEPENDENTS0 SUB-C . SUB-CVZNX) (IMMEDIATE-DEPENDENTS0 CVZNX . SUB-CVZNX) (DCELL . *1*SUB-CVZNX))))) (PUT1-LST (QUOTE *1*SUB-N) (QUOTE (MAIN-EVENT SUB-N))) (PUT1-LST (QUOTE SUB-N) (QUOTE (TYPE-PRESCRIPTION-LST ((SUB-N 4 NIL NIL NIL)) TOTALP-LST ((SUB-N . T)) SDEFN (LAMBDA (OPLEN SOPD DOPD) (MBIT (SUB OPLEN SOPD DOPD) OPLEN)) LISP-CODE *1*SUB-N SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*SUB-N) IMMEDIATE-DEPENDENTS0 (SUB-N-OFF SUB-BLE SUB-BGT SUB-BLT SUB-BGE SUB-BMI SUB-N-BITP CMP-CVZNX SUB-CVZNX) EVENT (DEFN SUB-N (OPLEN SOPD DOPD) (MBIT (SUB OPLEN SOPD DOPD) OPLEN)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUB . SUB-N) (IMMEDIATE-DEPENDENTS0 MBIT . SUB-N) (DCELL . *1*SUB-N))))) (PUT1-LST (QUOTE *1*SUB-Z) (QUOTE (MAIN-EVENT SUB-Z))) (PUT1-LST (QUOTE SUB-Z) (QUOTE (TYPE-PRESCRIPTION-LST ((SUB-Z 4 NIL NIL NIL)) LEMMAS ((REWRITE-RULE SUB-Z-LA1 ((NAT-RANGEP X N) (NAT-RANGEP Y N)) (EQUAL (SUB-Z N X Y) (IF (EQUAL (NAT-TO-INT X N) (NAT-TO-INT Y N)) (QUOTE 1) (QUOTE 0))) NIL) (REWRITE-RULE SUB-BEQ-EXT ((NAT-RANGEP X N) (NAT-RANGEP Y N) (NOT (LESSP SIZE N)) (NUMBERP N) (NOT (EQUAL N (QUOTE 0)))) (EQUAL (SUB-Z SIZE (EXT N X SIZE) (EXT N Y SIZE)) (SUB-Z N X Y)) NIL) (REWRITE-RULE SUB-Z-LA ((NAT-RANGEP X N) (NAT-RANGEP Y N)) (EQUAL (SUB-Z N X Y) (IF (NUMBERP X) (IF (NUMBERP Y) (IF (EQUAL X Y) (QUOTE 1) (QUOTE 0)) (IF (EQUAL X (QUOTE 0)) (QUOTE 1) (QUOTE 0))) (IF (NUMBERP Y) (IF (EQUAL (QUOTE 0) Y) (QUOTE 1) (QUOTE 0)) (QUOTE 1)))) NIL)) TOTALP-LST ((SUB-Z . T)) SDEFN (LAMBDA (OPLEN SOPD DOPD) (IF (EQUAL (SUB OPLEN SOPD DOPD) (QUOTE 0)) (B1) (B0))) LISP-CODE *1*SUB-Z SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*SUB-Z) IMMEDIATE-DEPENDENTS0 (SUB-BLE SUB-BGT SUB-Z-OFF SUB-Z-LA1 SUB-BEQ-EXT SUB-BEQ-INT-1 SUB-BEQ-INT-0 SUB-BEQ-UINT SUB-BLS SUB-BHI-1 SUB-BHI-0 SUB-BHI-INT SUB-Z-LA SUB-Z-BITP CMP-CVZNX SUB-CVZNX) EVENT (DEFN SUB-Z (OPLEN SOPD DOPD) (IF (EQUAL (SUB OPLEN SOPD DOPD) (QUOTE 0)) (B1) (B0))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B0 . SUB-Z) (IMMEDIATE-DEPENDENTS0 B1 . SUB-Z) (IMMEDIATE-DEPENDENTS0 SUB . SUB-Z) (DCELL . *1*SUB-Z))))) (PUT1-LST (QUOTE *1*SUB-V) (QUOTE (MAIN-EVENT SUB-V))) (PUT1-LST (QUOTE SUB-V) (QUOTE (TYPE-PRESCRIPTION-LST ((SUB-V 4 NIL NIL NIL)) LEMMAS ((REWRITE-RULE SUB-SUBX-V NIL (EQUAL (SUB-V N X Y) (SUBX-V N (QUOTE 0) X Y)) NIL)) TOTALP-LST ((SUB-V . T)) SDEFN (LAMBDA (N SOPD DOPD) (B-OR (B-AND (B-AND (B-NOT (MBIT SOPD N)) (MBIT DOPD N)) (B-NOT (MBIT (SUB N SOPD DOPD) N))) (B-AND (B-AND (MBIT SOPD N) (B-NOT (MBIT DOPD N))) (MBIT (SUB N SOPD DOPD) N)))) LISP-CODE *1*SUB-V SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*SUB-V) IMMEDIATE-DEPENDENTS0 (SUB-V-OFF SUB-BLE SUB-BGT SUB-BLT SUB-BGE SUB-BVS&VC SUB-SUBX-V SUB-V-BITP CMP-CVZNX SUB-CVZNX) EVENT (DEFN SUB-V (N SOPD DOPD) (B-OR (B-AND (B-AND (B-NOT (MBIT SOPD N)) (MBIT DOPD N)) (B-NOT (MBIT (SUB N SOPD DOPD) N))) (B-AND (B-AND (MBIT SOPD N) (B-NOT (MBIT DOPD N))) (MBIT (SUB N SOPD DOPD) N)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUB . SUB-V) (IMMEDIATE-DEPENDENTS0 MBIT . SUB-V) (IMMEDIATE-DEPENDENTS0 B-NOT . SUB-V) (IMMEDIATE-DEPENDENTS0 B-AND . SUB-V) (IMMEDIATE-DEPENDENTS0 B-OR . SUB-V) (DCELL . *1*SUB-V))))) (PUT1-LST (QUOTE *1*SUB-C) (QUOTE (MAIN-EVENT SUB-C))) (PUT1-LST (QUOTE SUB-C) (QUOTE (TYPE-PRESCRIPTION-LST ((SUB-C 4 NIL NIL NIL)) LEMMAS ((REWRITE-RULE SUB-SUBX-C NIL (EQUAL (SUB-C N X Y) (SUBX-C N (QUOTE 0) X Y)) NIL)) TOTALP-LST ((SUB-C . T)) SDEFN (LAMBDA (N SOPD DOPD) (B-OR (B-OR (B-AND (MBIT SOPD N) (B-NOT (MBIT DOPD N))) (B-AND (MBIT (SUB N SOPD DOPD) N) (B-NOT (MBIT DOPD N)))) (B-AND (MBIT SOPD N) (MBIT (SUB N SOPD DOPD) N)))) LISP-CODE *1*SUB-C SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*SUB-C) IMMEDIATE-DEPENDENTS0 (SUB-BCS&CC SUB-BLS SUB-BHI-1 SUB-BHI-0 SUB-BHI-INT SUB-C-OFF SUB-SUBX-C SUB-C-BITP CMP-CVZNX SUB-CVZNX) EVENT (DEFN SUB-C (N SOPD DOPD) (B-OR (B-OR (B-AND (MBIT SOPD N) (B-NOT (MBIT DOPD N))) (B-AND (MBIT (SUB N SOPD DOPD) N) (B-NOT (MBIT DOPD N)))) (B-AND (MBIT SOPD N) (MBIT (SUB N SOPD DOPD) N)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUB . SUB-C) (IMMEDIATE-DEPENDENTS0 B-NOT . SUB-C) (IMMEDIATE-DEPENDENTS0 MBIT . SUB-C) (IMMEDIATE-DEPENDENTS0 B-AND . SUB-C) (IMMEDIATE-DEPENDENTS0 B-OR . SUB-C) (DCELL . *1*SUB-C))))) (PUT1-LST (QUOTE *1*ADD-GROUP) (QUOTE (MAIN-EVENT ADD-GROUP))) (PUT1-LST (QUOTE ADD-GROUP) (QUOTE (TYPE-PRESCRIPTION-LST ((ADD-GROUP -1 NIL NIL NIL)) TOTALP-LST ((ADD-GROUP . T)) SDEFN (LAMBDA (OPMODE INS S) (IF (LESSP OPMODE (QUOTE 4)) (IF (EQUAL OPMODE (QUOTE 3)) (ADDA-INS (W) INS S) (ADD-INS1 (OP-LEN INS) INS S)) (IF (EQUAL OPMODE (QUOTE 7)) (ADDA-INS (L) INS S) (IF (EQUAL (S_MODE INS) (QUOTE 0)) (ADDX-INS1 (OP-LEN INS) INS S) (IF (EQUAL (S_MODE INS) (QUOTE 1)) (ADDX-INS2 (OP-LEN INS) INS S) (ADD-INS2 (OP-LEN INS) INS S)))))) LISP-CODE *1*ADD-GROUP SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214824 SATELLITES (*1*ADD-GROUP) IMMEDIATE-DEPENDENTS0 (ADD-GROUP-H GROUPS EXECUTE-INS) EVENT (DEFN ADD-GROUP (OPMODE INS S) (IF (LESSP OPMODE (QUOTE 4)) (IF (EQUAL OPMODE (QUOTE 3)) (ADDA-INS (W) INS S) (ADD-INS1 (OP-LEN INS) INS S)) (IF (EQUAL OPMODE (QUOTE 7)) (ADDA-INS (L) INS S) (IF (EQUAL (S_MODE INS) (QUOTE 0)) (ADDX-INS1 (OP-LEN INS) INS S) (IF (EQUAL (S_MODE INS) (QUOTE 1)) (ADDX-INS2 (OP-LEN INS) INS S) (ADD-INS2 (OP-LEN INS) INS S)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ADD-INS2 . ADD-GROUP) (IMMEDIATE-DEPENDENTS0 ADDX-INS2 . ADD-GROUP) (IMMEDIATE-DEPENDENTS0 ADDX-INS1 . ADD-GROUP) (IMMEDIATE-DEPENDENTS0 S_MODE . ADD-GROUP) (IMMEDIATE-DEPENDENTS0 L . ADD-GROUP) (IMMEDIATE-DEPENDENTS0 OP-LEN . ADD-GROUP) (IMMEDIATE-DEPENDENTS0 ADD-INS1 . ADD-GROUP) (IMMEDIATE-DEPENDENTS0 W . ADD-GROUP) (IMMEDIATE-DEPENDENTS0 ADDA-INS . ADD-GROUP) (DCELL . *1*ADD-GROUP))))) (PUT1-LST (QUOTE *1*ADDX-INS2) (QUOTE (MAIN-EVENT ADDX-INS2))) (PUT1-LST (QUOTE ADDX-INS2) (QUOTE (TYPE-PRESCRIPTION-LST ((ADDX-INS2 16 NIL NIL NIL)) TOTALP-LST ((ADDX-INS2 . T)) SDEFN (LAMBDA (OPLEN INS S) (IF (READ-MEMP (CDR (CDR (ADDR-PREDEC OPLEN (S_RN INS) S))) (MC-MEM S) (OP-SZ OPLEN)) (IF (READ-MEMP (CDR (CDR (ADDR-PREDEC OPLEN (D_RN INS) (CAR (ADDR-PREDEC OPLEN (S_RN INS) S))))) (MC-MEM S) (OP-SZ OPLEN)) (MAPPING OPLEN (ADDX-EFFECT OPLEN (OPERAND OPLEN (CDR (ADDR-PREDEC OPLEN (S_RN INS) S)) (CAR (ADDR-PREDEC OPLEN (S_RN INS) S))) (OPERAND OPLEN (CDR (ADDR-PREDEC OPLEN (D_RN INS) (CAR (ADDR-PREDEC OPLEN (S_RN INS) S)))) (CAR (ADDR-PREDEC OPLEN (D_RN INS) (CAR (ADDR-PREDEC OPLEN (S_RN INS) S))))) (MC-CCR S)) (ADDR-PREDEC OPLEN (D_RN INS) (CAR (ADDR-PREDEC OPLEN (S_RN INS) S)))) (HALT (READ-SIGNAL) S)) (HALT (READ-SIGNAL) S))) LISP-CODE *1*ADDX-INS2 SUBRP *1*FALSE LEVEL-NO 5 IDATE 1000402214824 SATELLITES (*1*ADDX-INS2) IMMEDIATE-DEPENDENTS0 (ADD-GROUP-H ADD-GROUP) EVENT (DEFN ADDX-INS2 (OPLEN INS S) (IF (READ-MEMP (CDR (CDR (ADDR-PREDEC OPLEN (S_RN INS) S))) (MC-MEM S) (OP-SZ OPLEN)) (IF (READ-MEMP (CDR (CDR (ADDR-PREDEC OPLEN (D_RN INS) (CAR (ADDR-PREDEC OPLEN (S_RN INS) S))))) (MC-MEM S) (OP-SZ OPLEN)) (MAPPING OPLEN (ADDX-EFFECT OPLEN (OPERAND OPLEN (CDR (ADDR-PREDEC OPLEN (S_RN INS) S)) (CAR (ADDR-PREDEC OPLEN (S_RN INS) S))) (OPERAND OPLEN (CDR (ADDR-PREDEC OPLEN (D_RN INS) (CAR (ADDR-PREDEC OPLEN (S_RN INS) S)))) (CAR (ADDR-PREDEC OPLEN (D_RN INS) (CAR (ADDR-PREDEC OPLEN (S_RN INS) S))))) (MC-CCR S)) (ADDR-PREDEC OPLEN (D_RN INS) (CAR (ADDR-PREDEC OPLEN (S_RN INS) S)))) (HALT (READ-SIGNAL) S)) (HALT (READ-SIGNAL) S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 READ-SIGNAL . ADDX-INS2) (IMMEDIATE-DEPENDENTS0 HALT . ADDX-INS2) (IMMEDIATE-DEPENDENTS0 MC-CCR . ADDX-INS2) (IMMEDIATE-DEPENDENTS0 OPERAND . ADDX-INS2) (IMMEDIATE-DEPENDENTS0 ADDX-EFFECT . ADDX-INS2) (IMMEDIATE-DEPENDENTS0 MAPPING . ADDX-INS2) (IMMEDIATE-DEPENDENTS0 D_RN . ADDX-INS2) (IMMEDIATE-DEPENDENTS0 OP-SZ . ADDX-INS2) (IMMEDIATE-DEPENDENTS0 MC-MEM . ADDX-INS2) (IMMEDIATE-DEPENDENTS0 S_RN . ADDX-INS2) (IMMEDIATE-DEPENDENTS0 ADDR-PREDEC . ADDX-INS2) (IMMEDIATE-DEPENDENTS0 READ-MEMP . ADDX-INS2) (DCELL . *1*ADDX-INS2))))) (PUT1-LST (QUOTE *1*ADDX-INS1) (QUOTE (MAIN-EVENT ADDX-INS1))) (PUT1-LST (QUOTE ADDX-INS1) (QUOTE (TYPE-PRESCRIPTION-LST ((ADDX-INS1 16 NIL NIL NIL)) TOTALP-LST ((ADDX-INS1 . T)) SDEFN (LAMBDA (OPLEN INS S) (D-MAPPING OPLEN (ADDX-EFFECT OPLEN (READ-DN OPLEN (S_RN INS) S) (READ-DN OPLEN (D_RN INS) S) (MC-CCR S)) (D_RN INS) S)) LISP-CODE *1*ADDX-INS1 SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*ADDX-INS1) IMMEDIATE-DEPENDENTS0 (ADD-GROUP-H ADD-GROUP) EVENT (DEFN ADDX-INS1 (OPLEN INS S) (D-MAPPING OPLEN (ADDX-EFFECT OPLEN (READ-DN OPLEN (S_RN INS) S) (READ-DN OPLEN (D_RN INS) S) (MC-CCR S)) (D_RN INS) S)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MC-CCR . ADDX-INS1) (IMMEDIATE-DEPENDENTS0 D_RN . ADDX-INS1) (IMMEDIATE-DEPENDENTS0 S_RN . ADDX-INS1) (IMMEDIATE-DEPENDENTS0 READ-DN . ADDX-INS1) (IMMEDIATE-DEPENDENTS0 ADDX-EFFECT . ADDX-INS1) (IMMEDIATE-DEPENDENTS0 D-MAPPING . ADDX-INS1) (DCELL . *1*ADDX-INS1))))) (PUT1-LST (QUOTE *1*ADDX-EFFECT) (QUOTE (MAIN-EVENT ADDX-EFFECT))) (PUT1-LST (QUOTE ADDX-EFFECT) (QUOTE (TYPE-PRESCRIPTION-LST ((ADDX-EFFECT 16 NIL NIL NIL NIL)) TOTALP-LST ((ADDX-EFFECT . T)) SDEFN (LAMBDA (OPLEN SOPD DOPD CCR) (CONS (ADDER OPLEN (CCR-X CCR) DOPD SOPD) (ADDX-CVZNX OPLEN (CCR-Z CCR) (CCR-X CCR) SOPD DOPD))) LISP-CODE *1*ADDX-EFFECT SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*ADDX-EFFECT) IMMEDIATE-DEPENDENTS0 (ADD-GROUP-H ADDX-INS2 ADDX-INS1) EVENT (DEFN ADDX-EFFECT (OPLEN SOPD DOPD CCR) (CONS (ADDER OPLEN (CCR-X CCR) DOPD SOPD) (ADDX-CVZNX OPLEN (CCR-Z CCR) (CCR-X CCR) SOPD DOPD))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CCR-Z . ADDX-EFFECT) (IMMEDIATE-DEPENDENTS0 ADDX-CVZNX . ADDX-EFFECT) (IMMEDIATE-DEPENDENTS0 CCR-X . ADDX-EFFECT) (IMMEDIATE-DEPENDENTS0 ADDER . ADDX-EFFECT) (DCELL . *1*ADDX-EFFECT))))) (PUT1-LST (QUOTE *1*ADDX-CVZNX) (QUOTE (MAIN-EVENT ADDX-CVZNX))) (PUT1-LST (QUOTE ADDX-CVZNX) (QUOTE (TYPE-PRESCRIPTION-LST ((ADDX-CVZNX 4 NIL NIL NIL NIL NIL)) TOTALP-LST ((ADDX-CVZNX . T)) SDEFN (LAMBDA (OPLEN Z X SOPD DOPD) (CVZNX (ADDX-C OPLEN X SOPD DOPD) (ADDX-V OPLEN X SOPD DOPD) (ADDX-Z OPLEN Z X SOPD DOPD) (ADDX-N OPLEN X SOPD DOPD) (ADDX-C OPLEN X SOPD DOPD))) LISP-CODE *1*ADDX-CVZNX SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*ADDX-CVZNX) IMMEDIATE-DEPENDENTS0 (ADD-GROUP-H ADDX-EFFECT) EVENT (DEFN ADDX-CVZNX (OPLEN Z X SOPD DOPD) (CVZNX (ADDX-C OPLEN X SOPD DOPD) (ADDX-V OPLEN X SOPD DOPD) (ADDX-Z OPLEN Z X SOPD DOPD) (ADDX-N OPLEN X SOPD DOPD) (ADDX-C OPLEN X SOPD DOPD))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ADDX-N . ADDX-CVZNX) (IMMEDIATE-DEPENDENTS0 ADDX-Z . ADDX-CVZNX) (IMMEDIATE-DEPENDENTS0 ADDX-V . ADDX-CVZNX) (IMMEDIATE-DEPENDENTS0 ADDX-C . ADDX-CVZNX) (IMMEDIATE-DEPENDENTS0 CVZNX . ADDX-CVZNX) (DCELL . *1*ADDX-CVZNX))))) (PUT1-LST (QUOTE *1*ADDX-N) (QUOTE (MAIN-EVENT ADDX-N))) (PUT1-LST (QUOTE ADDX-N) (QUOTE (TYPE-PRESCRIPTION-LST ((ADDX-N 4 NIL NIL NIL NIL)) TOTALP-LST ((ADDX-N . T)) SDEFN (LAMBDA (OPLEN X SOPD DOPD) (MBIT (ADDER OPLEN X DOPD SOPD) OPLEN)) LISP-CODE *1*ADDX-N SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*ADDX-N) IMMEDIATE-DEPENDENTS0 (ADDX-N-OFF ADDX-N-BITP ADDX-CVZNX) EVENT (DEFN ADDX-N (OPLEN X SOPD DOPD) (MBIT (ADDER OPLEN X DOPD SOPD) OPLEN)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ADDER . ADDX-N) (IMMEDIATE-DEPENDENTS0 MBIT . ADDX-N) (DCELL . *1*ADDX-N))))) (PUT1-LST (QUOTE *1*ADDX-Z) (QUOTE (MAIN-EVENT ADDX-Z))) (PUT1-LST (QUOTE ADDX-Z) (QUOTE (TYPE-PRESCRIPTION-LST ((ADDX-Z 4 NIL NIL NIL NIL NIL)) TOTALP-LST ((ADDX-Z . T)) SDEFN (LAMBDA (OPLEN Z X SOPD DOPD) (IF (EQUAL (ADDER OPLEN X DOPD SOPD) (QUOTE 0)) (B-AND Z (B1)) (B-AND Z (B0)))) LISP-CODE *1*ADDX-Z SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*ADDX-Z) IMMEDIATE-DEPENDENTS0 (ADDX-Z-OFF ADDX-Z-BITP ADDX-CVZNX) EVENT (DEFN ADDX-Z (OPLEN Z X SOPD DOPD) (B-AND Z (IF (EQUAL (ADDER OPLEN X DOPD SOPD) (QUOTE 0)) (B1) (B0)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B0 . ADDX-Z) (IMMEDIATE-DEPENDENTS0 B1 . ADDX-Z) (IMMEDIATE-DEPENDENTS0 ADDER . ADDX-Z) (IMMEDIATE-DEPENDENTS0 B-AND . ADDX-Z) (DCELL . *1*ADDX-Z))))) (PUT1-LST (QUOTE *1*ADDX-V) (QUOTE (MAIN-EVENT ADDX-V))) (PUT1-LST (QUOTE ADDX-V) (QUOTE (TYPE-PRESCRIPTION-LST ((ADDX-V 4 NIL NIL NIL NIL)) LEMMAS ((REWRITE-RULE ADDX-V-LA ((NAT-RANGEP X N) (NAT-RANGEP Y N) (BITP C) (NUMBERP N) (NOT (EQUAL N (QUOTE 0)))) (EQUAL (ADDX-V N C X Y) (IF (INT-RANGEP (IPLUS (NAT-TO-INT X N) (IPLUS (NAT-TO-INT Y N) C)) N) (QUOTE 0) (QUOTE 1))) NIL)) TOTALP-LST ((ADDX-V . T)) SDEFN (LAMBDA (N X SOPD DOPD) (B-OR (B-AND (B-AND (MBIT SOPD N) (MBIT DOPD N)) (B-NOT (MBIT (ADDER N X SOPD DOPD) N))) (B-AND (B-AND (B-NOT (MBIT SOPD N)) (B-NOT (MBIT DOPD N))) (MBIT (ADDER N X SOPD DOPD) N)))) LISP-CODE *1*ADDX-V SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*ADDX-V) IMMEDIATE-DEPENDENTS0 (ADDX-V-OFF ADDX-V-LA SUBX-ADDX-V ADD-ADDX-V ADDX-V-BITP ADDX-CVZNX) EVENT (DEFN ADDX-V (N X SOPD DOPD) (B-OR (B-AND (B-AND (MBIT SOPD N) (MBIT DOPD N)) (B-NOT (MBIT (ADDER N X SOPD DOPD) N))) (B-AND (B-AND (B-NOT (MBIT SOPD N)) (B-NOT (MBIT DOPD N))) (MBIT (ADDER N X SOPD DOPD) N)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ADDER . ADDX-V) (IMMEDIATE-DEPENDENTS0 B-NOT . ADDX-V) (IMMEDIATE-DEPENDENTS0 MBIT . ADDX-V) (IMMEDIATE-DEPENDENTS0 B-AND . ADDX-V) (IMMEDIATE-DEPENDENTS0 B-OR . ADDX-V) (DCELL . *1*ADDX-V))))) (PUT1-LST (QUOTE *1*ADDX-C) (QUOTE (MAIN-EVENT ADDX-C))) (PUT1-LST (QUOTE ADDX-C) (QUOTE (TYPE-PRESCRIPTION-LST ((ADDX-C 4 NIL NIL NIL NIL)) LEMMAS ((REWRITE-RULE ADDX-C-LA ((NAT-RANGEP X N) (NAT-RANGEP Y N) (BITP C) (NUMBERP N) (NOT (EQUAL N (QUOTE 0)))) (EQUAL (ADDX-C N C X Y) (IF (LESSP (PLUS C (PLUS X Y)) (EXP (QUOTE 2) N)) (QUOTE 0) (QUOTE 1))) NIL)) TOTALP-LST ((ADDX-C . T)) SDEFN (LAMBDA (N X SOPD DOPD) (B-OR (B-OR (B-AND (MBIT SOPD N) (MBIT DOPD N)) (B-AND (B-NOT (MBIT (ADDER N X SOPD DOPD) N)) (MBIT DOPD N))) (B-AND (MBIT SOPD N) (B-NOT (MBIT (ADDER N X SOPD DOPD) N))))) LISP-CODE *1*ADDX-C SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*ADDX-C) IMMEDIATE-DEPENDENTS0 (ADDX-C-OFF ADDX-C-LA ADD-ADDX-C ADDX-C-BITP ADDX-CVZNX) EVENT (DEFN ADDX-C (N X SOPD DOPD) (B-OR (B-OR (B-AND (MBIT SOPD N) (MBIT DOPD N)) (B-AND (B-NOT (MBIT (ADDER N X SOPD DOPD) N)) (MBIT DOPD N))) (B-AND (MBIT SOPD N) (B-NOT (MBIT (ADDER N X SOPD DOPD) N))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ADDER . ADDX-C) (IMMEDIATE-DEPENDENTS0 B-NOT . ADDX-C) (IMMEDIATE-DEPENDENTS0 MBIT . ADDX-C) (IMMEDIATE-DEPENDENTS0 B-AND . ADDX-C) (IMMEDIATE-DEPENDENTS0 B-OR . ADDX-C) (DCELL . *1*ADDX-C))))) (PUT1-LST (QUOTE *1*ADDA-INS) (QUOTE (MAIN-EVENT ADDA-INS))) (PUT1-LST (QUOTE ADDA-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((ADDA-INS -1 NIL NIL NIL)) TOTALP-LST ((ADDA-INS . T)) SDEFN (LAMBDA (OPLEN INS S) (IF (ADDA-ADDR-MODEP INS) (IF (MC-HALTP (CAR (MC-INSTATE OPLEN INS S))) (CAR (MC-INSTATE OPLEN INS S)) (WRITE-AN (L) (ADD (L) (READ-AN (L) (D_RN INS) (CAR (MC-INSTATE OPLEN INS S))) (EXT OPLEN (OPERAND OPLEN (CDR (MC-INSTATE OPLEN INS S)) S) (L))) (D_RN INS) (CAR (MC-INSTATE OPLEN INS S)))) (HALT (MODE-SIGNAL) S))) LISP-CODE *1*ADDA-INS SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214824 SATELLITES (*1*ADDA-INS) IMMEDIATE-DEPENDENTS0 (ADD-GROUP-H ADD-GROUP) EVENT (DEFN ADDA-INS (OPLEN INS S) (IF (ADDA-ADDR-MODEP INS) (IF (MC-HALTP (CAR (MC-INSTATE OPLEN INS S))) (CAR (MC-INSTATE OPLEN INS S)) (WRITE-AN (L) (ADD (L) (READ-AN (L) (D_RN INS) (CAR (MC-INSTATE OPLEN INS S))) (EXT OPLEN (OPERAND OPLEN (CDR (MC-INSTATE OPLEN INS S)) S) (L))) (D_RN INS) (CAR (MC-INSTATE OPLEN INS S)))) (HALT (MODE-SIGNAL) S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MODE-SIGNAL . ADDA-INS) (IMMEDIATE-DEPENDENTS0 HALT . ADDA-INS) (IMMEDIATE-DEPENDENTS0 OPERAND . ADDA-INS) (IMMEDIATE-DEPENDENTS0 EXT . ADDA-INS) (IMMEDIATE-DEPENDENTS0 D_RN . ADDA-INS) (IMMEDIATE-DEPENDENTS0 READ-AN . ADDA-INS) (IMMEDIATE-DEPENDENTS0 ADD . ADDA-INS) (IMMEDIATE-DEPENDENTS0 L . ADDA-INS) (IMMEDIATE-DEPENDENTS0 WRITE-AN . ADDA-INS) (IMMEDIATE-DEPENDENTS0 MC-INSTATE . ADDA-INS) (IMMEDIATE-DEPENDENTS0 MC-HALTP . ADDA-INS) (IMMEDIATE-DEPENDENTS0 ADDA-ADDR-MODEP . ADDA-INS) (DCELL . *1*ADDA-INS))))) (PUT1-LST (QUOTE *1*ADDA-ADDR-MODEP) (QUOTE (MAIN-EVENT ADDA-ADDR-MODEP))) (PUT1-LST (QUOTE ADDA-ADDR-MODEP) (QUOTE (TYPE-PRESCRIPTION-LST ((ADDA-ADDR-MODEP 3 NIL)) TOTALP-LST ((ADDA-ADDR-MODEP . T)) SDEFN (LAMBDA (INS) (ADDR-MODEP (S_MODE INS) (S_RN INS))) LISP-CODE *1*ADDA-ADDR-MODEP SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*ADDA-ADDR-MODEP) IMMEDIATE-DEPENDENTS0 (MODE-GUARDS ADDA-INS) EVENT (DEFN ADDA-ADDR-MODEP (INS) (ADDR-MODEP (S_MODE INS) (S_RN INS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 S_RN . ADDA-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 S_MODE . ADDA-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 ADDR-MODEP . ADDA-ADDR-MODEP) (DCELL . *1*ADDA-ADDR-MODEP))))) (PUT1-LST (QUOTE *1*ADD-INS2) (QUOTE (MAIN-EVENT ADD-INS2))) (PUT1-LST (QUOTE ADD-INS2) (QUOTE (TYPE-PRESCRIPTION-LST ((ADD-INS2 -1 NIL NIL NIL)) TOTALP-LST ((ADD-INS2 . T)) SDEFN (LAMBDA (OPLEN INS S) (IF (ADD-ADDR-MODEP2 INS) (ADD-MAPPING (READ-DN OPLEN (D_RN INS) S) OPLEN INS S) (HALT (MODE-SIGNAL) S))) LISP-CODE *1*ADD-INS2 SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214824 SATELLITES (*1*ADD-INS2) IMMEDIATE-DEPENDENTS0 (ADD-GROUP-H ADD-GROUP) EVENT (DEFN ADD-INS2 (OPLEN INS S) (IF (ADD-ADDR-MODEP2 INS) (ADD-MAPPING (READ-DN OPLEN (D_RN INS) S) OPLEN INS S) (HALT (MODE-SIGNAL) S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MODE-SIGNAL . ADD-INS2) (IMMEDIATE-DEPENDENTS0 HALT . ADD-INS2) (IMMEDIATE-DEPENDENTS0 D_RN . ADD-INS2) (IMMEDIATE-DEPENDENTS0 READ-DN . ADD-INS2) (IMMEDIATE-DEPENDENTS0 ADD-MAPPING . ADD-INS2) (IMMEDIATE-DEPENDENTS0 ADD-ADDR-MODEP2 . ADD-INS2) (DCELL . *1*ADD-INS2))))) (PUT1-LST (QUOTE *1*ADD-MAPPING) (QUOTE (MAIN-EVENT ADD-MAPPING))) (PUT1-LST (QUOTE ADD-MAPPING) (QUOTE (TYPE-PRESCRIPTION-LST ((ADD-MAPPING -1 NIL NIL NIL NIL)) TOTALP-LST ((ADD-MAPPING . T)) SDEFN (LAMBDA (OPD OPLEN INS S) (IF (MC-HALTP (CAR (MC-INSTATE OPLEN INS S))) (CAR (MC-INSTATE OPLEN INS S)) (MAPPING OPLEN (ADD-EFFECT OPLEN OPD (OPERAND OPLEN (CDR (MC-INSTATE OPLEN INS S)) S)) (MC-INSTATE OPLEN INS S)))) LISP-CODE *1*ADD-MAPPING SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214824 SATELLITES (*1*ADD-MAPPING) IMMEDIATE-DEPENDENTS0 (BIT-GROUP-H SCC-GROUP-H ADD-GROUP-H ADDI-INS ADDQ-INS ADD-INS2) EVENT (DEFN ADD-MAPPING (OPD OPLEN INS S) (IF (MC-HALTP (CAR (MC-INSTATE OPLEN INS S))) (CAR (MC-INSTATE OPLEN INS S)) (MAPPING OPLEN (ADD-EFFECT OPLEN OPD (OPERAND OPLEN (CDR (MC-INSTATE OPLEN INS S)) S)) (MC-INSTATE OPLEN INS S)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OPERAND . ADD-MAPPING) (IMMEDIATE-DEPENDENTS0 ADD-EFFECT . ADD-MAPPING) (IMMEDIATE-DEPENDENTS0 MAPPING . ADD-MAPPING) (IMMEDIATE-DEPENDENTS0 MC-INSTATE . ADD-MAPPING) (IMMEDIATE-DEPENDENTS0 MC-HALTP . ADD-MAPPING) (DCELL . *1*ADD-MAPPING))))) (PUT1-LST (QUOTE *1*ADD-INS1) (QUOTE (MAIN-EVENT ADD-INS1))) (PUT1-LST (QUOTE ADD-INS1) (QUOTE (TYPE-PRESCRIPTION-LST ((ADD-INS1 -1 NIL NIL NIL)) TOTALP-LST ((ADD-INS1 . T)) SDEFN (LAMBDA (OPLEN INS S) (IF (ADD-ADDR-MODEP1 OPLEN INS) (IF (MC-HALTP (CAR (MC-INSTATE OPLEN INS S))) (CAR (MC-INSTATE OPLEN INS S)) (D-MAPPING OPLEN (ADD-EFFECT OPLEN (OPERAND OPLEN (CDR (MC-INSTATE OPLEN INS S)) S) (READ-DN OPLEN (D_RN INS) S)) (D_RN INS) (CAR (MC-INSTATE OPLEN INS S)))) (HALT (MODE-SIGNAL) S))) LISP-CODE *1*ADD-INS1 SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214824 SATELLITES (*1*ADD-INS1) IMMEDIATE-DEPENDENTS0 (ADD-GROUP-H ADD-GROUP) EVENT (DEFN ADD-INS1 (OPLEN INS S) (IF (ADD-ADDR-MODEP1 OPLEN INS) (IF (MC-HALTP (CAR (MC-INSTATE OPLEN INS S))) (CAR (MC-INSTATE OPLEN INS S)) (D-MAPPING OPLEN (ADD-EFFECT OPLEN (OPERAND OPLEN (CDR (MC-INSTATE OPLEN INS S)) S) (READ-DN OPLEN (D_RN INS) S)) (D_RN INS) (CAR (MC-INSTATE OPLEN INS S)))) (HALT (MODE-SIGNAL) S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MODE-SIGNAL . ADD-INS1) (IMMEDIATE-DEPENDENTS0 HALT . ADD-INS1) (IMMEDIATE-DEPENDENTS0 D_RN . ADD-INS1) (IMMEDIATE-DEPENDENTS0 READ-DN . ADD-INS1) (IMMEDIATE-DEPENDENTS0 OPERAND . ADD-INS1) (IMMEDIATE-DEPENDENTS0 ADD-EFFECT . ADD-INS1) (IMMEDIATE-DEPENDENTS0 D-MAPPING . ADD-INS1) (IMMEDIATE-DEPENDENTS0 MC-INSTATE . ADD-INS1) (IMMEDIATE-DEPENDENTS0 MC-HALTP . ADD-INS1) (IMMEDIATE-DEPENDENTS0 ADD-ADDR-MODEP1 . ADD-INS1) (DCELL . *1*ADD-INS1))))) (PUT1-LST (QUOTE *1*ADD-ADDR-MODEP2) (QUOTE (MAIN-EVENT ADD-ADDR-MODEP2))) (PUT1-LST (QUOTE ADD-ADDR-MODEP2) (QUOTE (TYPE-PRESCRIPTION-LST ((ADD-ADDR-MODEP2 3 NIL)) TOTALP-LST ((ADD-ADDR-MODEP2 . T)) SDEFN (LAMBDA (INS) (IF (ALTERABLE-ADDR-MODEP (S_MODE INS) (S_RN INS)) (MEMORY-ADDR-MODEP (S_MODE INS) (S_RN INS)) (QUOTE *1*FALSE))) LISP-CODE *1*ADD-ADDR-MODEP2 SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*ADD-ADDR-MODEP2) IMMEDIATE-DEPENDENTS0 (MODE-GUARDS ADD-INS2) EVENT (DEFN ADD-ADDR-MODEP2 (INS) (AND (ALTERABLE-ADDR-MODEP (S_MODE INS) (S_RN INS)) (MEMORY-ADDR-MODEP (S_MODE INS) (S_RN INS)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MEMORY-ADDR-MODEP . ADD-ADDR-MODEP2) (IMMEDIATE-DEPENDENTS0 S_RN . ADD-ADDR-MODEP2) (IMMEDIATE-DEPENDENTS0 S_MODE . ADD-ADDR-MODEP2) (IMMEDIATE-DEPENDENTS0 ALTERABLE-ADDR-MODEP . ADD-ADDR-MODEP2) (DCELL . *1*ADD-ADDR-MODEP2))))) (PUT1-LST (QUOTE *1*ADD-ADDR-MODEP1) (QUOTE (MAIN-EVENT ADD-ADDR-MODEP1))) (PUT1-LST (QUOTE ADD-ADDR-MODEP1) (QUOTE (TYPE-PRESCRIPTION-LST ((ADD-ADDR-MODEP1 3 NIL NIL)) TOTALP-LST ((ADD-ADDR-MODEP1 . T)) SDEFN (LAMBDA (OPLEN INS) (IF (ADDR-MODEP (S_MODE INS) (S_RN INS)) (IF (BYTE-AN-DIRECT-MODEP OPLEN (S_MODE INS)) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (QUOTE *1*FALSE))) LISP-CODE *1*ADD-ADDR-MODEP1 SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*ADD-ADDR-MODEP1) IMMEDIATE-DEPENDENTS0 (MODE-GUARDS ADD-INS1) EVENT (DEFN ADD-ADDR-MODEP1 (OPLEN INS) (AND (ADDR-MODEP (S_MODE INS) (S_RN INS)) (NOT (BYTE-AN-DIRECT-MODEP OPLEN (S_MODE INS))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BYTE-AN-DIRECT-MODEP . ADD-ADDR-MODEP1) (IMMEDIATE-DEPENDENTS0 S_RN . ADD-ADDR-MODEP1) (IMMEDIATE-DEPENDENTS0 S_MODE . ADD-ADDR-MODEP1) (IMMEDIATE-DEPENDENTS0 ADDR-MODEP . ADD-ADDR-MODEP1) (DCELL . *1*ADD-ADDR-MODEP1))))) (PUT1-LST (QUOTE *1*ADD-EFFECT) (QUOTE (MAIN-EVENT ADD-EFFECT))) (PUT1-LST (QUOTE ADD-EFFECT) (QUOTE (TYPE-PRESCRIPTION-LST ((ADD-EFFECT 16 NIL NIL NIL)) TOTALP-LST ((ADD-EFFECT . T)) SDEFN (LAMBDA (OPLEN SOPD DOPD) (CONS (ADD OPLEN DOPD SOPD) (ADD-CVZNX OPLEN SOPD DOPD))) LISP-CODE *1*ADD-EFFECT SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*ADD-EFFECT) IMMEDIATE-DEPENDENTS0 (BIT-GROUP-H SCC-GROUP-H ADD-GROUP-H ADD-MAPPING ADD-INS1) EVENT (DEFN ADD-EFFECT (OPLEN SOPD DOPD) (CONS (ADD OPLEN DOPD SOPD) (ADD-CVZNX OPLEN SOPD DOPD))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ADD-CVZNX . ADD-EFFECT) (IMMEDIATE-DEPENDENTS0 ADD . ADD-EFFECT) (DCELL . *1*ADD-EFFECT))))) (PUT1-LST (QUOTE *1*ADD-CVZNX) (QUOTE (MAIN-EVENT ADD-CVZNX))) (PUT1-LST (QUOTE ADD-CVZNX) (QUOTE (TYPE-PRESCRIPTION-LST ((ADD-CVZNX 4 NIL NIL NIL)) TOTALP-LST ((ADD-CVZNX . T)) SDEFN (LAMBDA (OPLEN SOPD DOPD) (CVZNX (ADD-C OPLEN SOPD DOPD) (ADD-V OPLEN SOPD DOPD) (ADD-Z OPLEN SOPD DOPD) (ADD-N OPLEN SOPD DOPD) (ADD-C OPLEN SOPD DOPD))) LISP-CODE *1*ADD-CVZNX SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*ADD-CVZNX) IMMEDIATE-DEPENDENTS0 (BIT-GROUP-H SCC-GROUP-H ADD-GROUP-H ADD-EFFECT) EVENT (DEFN ADD-CVZNX (OPLEN SOPD DOPD) (CVZNX (ADD-C OPLEN SOPD DOPD) (ADD-V OPLEN SOPD DOPD) (ADD-Z OPLEN SOPD DOPD) (ADD-N OPLEN SOPD DOPD) (ADD-C OPLEN SOPD DOPD))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ADD-N . ADD-CVZNX) (IMMEDIATE-DEPENDENTS0 ADD-Z . ADD-CVZNX) (IMMEDIATE-DEPENDENTS0 ADD-V . ADD-CVZNX) (IMMEDIATE-DEPENDENTS0 ADD-C . ADD-CVZNX) (IMMEDIATE-DEPENDENTS0 CVZNX . ADD-CVZNX) (DCELL . *1*ADD-CVZNX))))) (PUT1-LST (QUOTE *1*ADD-N) (QUOTE (MAIN-EVENT ADD-N))) (PUT1-LST (QUOTE ADD-N) (QUOTE (TYPE-PRESCRIPTION-LST ((ADD-N 4 NIL NIL NIL)) TOTALP-LST ((ADD-N . T)) SDEFN (LAMBDA (OPLEN SOPD DOPD) (MBIT (ADD OPLEN DOPD SOPD) OPLEN)) LISP-CODE *1*ADD-N SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*ADD-N) IMMEDIATE-DEPENDENTS0 (ADD-N-OFF ADD-BMI ADD-N-BITP ADD-CVZNX) EVENT (DEFN ADD-N (OPLEN SOPD DOPD) (MBIT (ADD OPLEN DOPD SOPD) OPLEN)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ADD . ADD-N) (IMMEDIATE-DEPENDENTS0 MBIT . ADD-N) (DCELL . *1*ADD-N))))) (PUT1-LST (QUOTE *1*ADD-Z) (QUOTE (MAIN-EVENT ADD-Z))) (PUT1-LST (QUOTE ADD-Z) (QUOTE (TYPE-PRESCRIPTION-LST ((ADD-Z 4 NIL NIL NIL)) TOTALP-LST ((ADD-Z . T)) SDEFN (LAMBDA (OPLEN SOPD DOPD) (IF (EQUAL (ADD OPLEN DOPD SOPD) (QUOTE 0)) (B1) (B0))) LISP-CODE *1*ADD-Z SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*ADD-Z) IMMEDIATE-DEPENDENTS0 (ADD-Z-OFF ADD-Z-BITP ADD-CVZNX) EVENT (DEFN ADD-Z (OPLEN SOPD DOPD) (IF (EQUAL (ADD OPLEN DOPD SOPD) (QUOTE 0)) (B1) (B0))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B0 . ADD-Z) (IMMEDIATE-DEPENDENTS0 B1 . ADD-Z) (IMMEDIATE-DEPENDENTS0 ADD . ADD-Z) (DCELL . *1*ADD-Z))))) (PUT1-LST (QUOTE *1*ADD-V) (QUOTE (MAIN-EVENT ADD-V))) (PUT1-LST (QUOTE ADD-V) (QUOTE (TYPE-PRESCRIPTION-LST ((ADD-V 4 NIL NIL NIL)) LEMMAS ((REWRITE-RULE ADD-ADDX-V NIL (EQUAL (ADD-V N X Y) (ADDX-V N (QUOTE 0) X Y)) NIL)) TOTALP-LST ((ADD-V . T)) SDEFN (LAMBDA (N SOPD DOPD) (B-OR (B-AND (B-AND (MBIT SOPD N) (MBIT DOPD N)) (B-NOT (MBIT (ADD N SOPD DOPD) N))) (B-AND (B-AND (B-NOT (MBIT SOPD N)) (B-NOT (MBIT DOPD N))) (MBIT (ADD N SOPD DOPD) N)))) LISP-CODE *1*ADD-V SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*ADD-V) IMMEDIATE-DEPENDENTS0 (ADD-V-OFF ADD-BVS&VC ADD-ADDX-V ADD-V-BITP ADD-CVZNX) EVENT (DEFN ADD-V (N SOPD DOPD) (B-OR (B-AND (B-AND (MBIT SOPD N) (MBIT DOPD N)) (B-NOT (MBIT (ADD N SOPD DOPD) N))) (B-AND (B-AND (B-NOT (MBIT SOPD N)) (B-NOT (MBIT DOPD N))) (MBIT (ADD N SOPD DOPD) N)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ADD . ADD-V) (IMMEDIATE-DEPENDENTS0 B-NOT . ADD-V) (IMMEDIATE-DEPENDENTS0 MBIT . ADD-V) (IMMEDIATE-DEPENDENTS0 B-AND . ADD-V) (IMMEDIATE-DEPENDENTS0 B-OR . ADD-V) (DCELL . *1*ADD-V))))) (PUT1-LST (QUOTE *1*ADD-C) (QUOTE (MAIN-EVENT ADD-C))) (PUT1-LST (QUOTE ADD-C) (QUOTE (TYPE-PRESCRIPTION-LST ((ADD-C 4 NIL NIL NIL)) LEMMAS ((REWRITE-RULE ADD-ADDX-C NIL (EQUAL (ADD-C N X Y) (ADDX-C N (QUOTE 0) X Y)) NIL)) TOTALP-LST ((ADD-C . T)) SDEFN (LAMBDA (N SOPD DOPD) (B-OR (B-OR (B-AND (MBIT SOPD N) (MBIT DOPD N)) (B-AND (B-NOT (MBIT (ADD N SOPD DOPD) N)) (MBIT DOPD N))) (B-AND (MBIT SOPD N) (B-NOT (MBIT (ADD N SOPD DOPD) N))))) LISP-CODE *1*ADD-C SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*ADD-C) IMMEDIATE-DEPENDENTS0 (ADD-BCS&CC ADD-C-OFF ADD-ADDX-C ADD-C-BITP ADD-CVZNX) EVENT (DEFN ADD-C (N SOPD DOPD) (B-OR (B-OR (B-AND (MBIT SOPD N) (MBIT DOPD N)) (B-AND (B-NOT (MBIT (ADD N SOPD DOPD) N)) (MBIT DOPD N))) (B-AND (MBIT SOPD N) (B-NOT (MBIT (ADD N SOPD DOPD) N))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ADD . ADD-C) (IMMEDIATE-DEPENDENTS0 B-NOT . ADD-C) (IMMEDIATE-DEPENDENTS0 MBIT . ADD-C) (IMMEDIATE-DEPENDENTS0 B-AND . ADD-C) (IMMEDIATE-DEPENDENTS0 B-OR . ADD-C) (DCELL . *1*ADD-C))))) (PUT1-LST (QUOTE *1*MAPPING) (QUOTE (MAIN-EVENT MAPPING))) (PUT1-LST (QUOTE MAPPING) (QUOTE (TYPE-PRESCRIPTION-LST ((MAPPING 16 NIL NIL NIL)) TOTALP-LST ((MAPPING . T)) SDEFN (LAMBDA (OPLEN V&CVZNX S&ADDR) (IF (EQUAL (CAR (CDR S&ADDR)) (QUOTE D)) (D-MAPPING OPLEN V&CVZNX (CDR (CDR S&ADDR)) (CAR S&ADDR)) (IF (EQUAL (CAR (CDR S&ADDR)) (QUOTE A)) (A-MAPPING OPLEN V&CVZNX (CDR (CDR S&ADDR)) (CAR S&ADDR)) (M-MAPPING OPLEN V&CVZNX (CDR (CDR S&ADDR)) (CAR S&ADDR))))) LISP-CODE *1*MAPPING SUBRP *1*FALSE LEVEL-NO 5 IDATE 1000402214824 SATELLITES (*1*MAPPING) IMMEDIATE-DEPENDENTS0 (GCD-S0-S0-RFILE-2 GCD-S0-S0-RFILE-1 GCD-S0-S0-2 GCD-S0-S0-1 GCD-S0-SN-BASE-RFILE-2 GCD-S0-SN-BASE-2 GCD-S0-SN-BASE-RFILE-1 GCD-S0-SN-BASE-1 GCD-S-S0-MEM GCD-S-S0-RFILE GCD-S-S0 MAPPING-H BSET-INS BCLR-INS BCHG-INS EOR-MAPPING SCC-INS NOT-INS TAS-INS NEG-INS NEGX-INS MOVE-FROM-CCR-INS CLR-INS MOVE-MAPPING MEM-ROXR-INS MEM-ROXL-INS MEM-ASR-INS MEM-ASL-INS MEM-LSR-INS MEM-LSL-INS MEM-ROR-INS MEM-ROL-INS OR-MAPPING AND-MAPPING SUBX-INS2 SUB-MAPPING ADDX-INS2 ADD-MAPPING) EVENT (DEFN MAPPING (OPLEN V&CVZNX S&ADDR) (IF (EQUAL (CAR (CDR S&ADDR)) (QUOTE D)) (D-MAPPING OPLEN V&CVZNX (CDR (CDR S&ADDR)) (CAR S&ADDR)) (IF (EQUAL (CAR (CDR S&ADDR)) (QUOTE A)) (A-MAPPING OPLEN V&CVZNX (CDR (CDR S&ADDR)) (CAR S&ADDR)) (M-MAPPING OPLEN V&CVZNX (CDR (CDR S&ADDR)) (CAR S&ADDR))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 M-MAPPING . MAPPING) (IMMEDIATE-DEPENDENTS0 A-MAPPING . MAPPING) (IMMEDIATE-DEPENDENTS0 D-MAPPING . MAPPING) (DCELL . *1*MAPPING))))) (PUT1-LST (QUOTE *1*M-MAPPING) (QUOTE (MAIN-EVENT M-MAPPING))) (PUT1-LST (QUOTE M-MAPPING) (QUOTE (TYPE-PRESCRIPTION-LST ((M-MAPPING 16 NIL NIL NIL NIL)) TOTALP-LST ((M-MAPPING . T)) SDEFN (LAMBDA (OPLEN V&CVZNX ADDR S) (IF (WRITE-MEMP ADDR (MC-MEM S) (OP-SZ OPLEN)) (MC-STATE (MC-STATUS S) (MC-RFILE S) (MC-PC S) (SET-CVZNX (CDR V&CVZNX) (MC-CCR S)) (WRITE-MEM (CAR V&CVZNX) ADDR (MC-MEM S) (OP-SZ OPLEN))) (HALT (WRITE-SIGNAL) S))) LISP-CODE *1*M-MAPPING SUBRP *1*FALSE LEVEL-NO 5 IDATE 1000402214824 SATELLITES (*1*M-MAPPING) IMMEDIATE-DEPENDENTS0 (MAPPING-H MAPPING) EVENT (DEFN M-MAPPING (OPLEN V&CVZNX ADDR S) (IF (WRITE-MEMP ADDR (MC-MEM S) (OP-SZ OPLEN)) (MC-STATE (MC-STATUS S) (MC-RFILE S) (MC-PC S) (SET-CVZNX (CDR V&CVZNX) (MC-CCR S)) (WRITE-MEM (CAR V&CVZNX) ADDR (MC-MEM S) (OP-SZ OPLEN))) (HALT (WRITE-SIGNAL) S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 WRITE-SIGNAL . M-MAPPING) (IMMEDIATE-DEPENDENTS0 HALT . M-MAPPING) (IMMEDIATE-DEPENDENTS0 WRITE-MEM . M-MAPPING) (IMMEDIATE-DEPENDENTS0 MC-CCR . M-MAPPING) (IMMEDIATE-DEPENDENTS0 SET-CVZNX . M-MAPPING) (IMMEDIATE-DEPENDENTS0 MC-PC . M-MAPPING) (IMMEDIATE-DEPENDENTS0 MC-RFILE . M-MAPPING) (IMMEDIATE-DEPENDENTS0 MC-STATUS . M-MAPPING) (IMMEDIATE-DEPENDENTS0 MC-STATE . M-MAPPING) (IMMEDIATE-DEPENDENTS0 OP-SZ . M-MAPPING) (IMMEDIATE-DEPENDENTS0 MC-MEM . M-MAPPING) (IMMEDIATE-DEPENDENTS0 WRITE-MEMP . M-MAPPING) (DCELL . *1*M-MAPPING))))) (PUT1-LST (QUOTE *1*A-MAPPING) (QUOTE (MAIN-EVENT A-MAPPING))) (PUT1-LST (QUOTE A-MAPPING) (QUOTE (TYPE-PRESCRIPTION-LST ((A-MAPPING 16 NIL NIL NIL NIL)) TOTALP-LST ((A-MAPPING . T)) SDEFN (LAMBDA (OPLEN V&CVZNX ADDR S) (MC-STATE (MC-STATUS S) (WRITE-RN OPLEN (CAR V&CVZNX) (PLUS (QUOTE 8) ADDR) (MC-RFILE S)) (MC-PC S) (SET-CVZNX (CDR V&CVZNX) (MC-CCR S)) (MC-MEM S))) LISP-CODE *1*A-MAPPING SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*A-MAPPING) IMMEDIATE-DEPENDENTS0 (MAPPING-H MAPPING) EVENT (DEFN A-MAPPING (OPLEN V&CVZNX ADDR S) (MC-STATE (MC-STATUS S) (WRITE-RN OPLEN (CAR V&CVZNX) (PLUS (QUOTE 8) ADDR) (MC-RFILE S)) (MC-PC S) (SET-CVZNX (CDR V&CVZNX) (MC-CCR S)) (MC-MEM S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MC-MEM . A-MAPPING) (IMMEDIATE-DEPENDENTS0 MC-CCR . A-MAPPING) (IMMEDIATE-DEPENDENTS0 SET-CVZNX . A-MAPPING) (IMMEDIATE-DEPENDENTS0 MC-PC . A-MAPPING) (IMMEDIATE-DEPENDENTS0 MC-RFILE . A-MAPPING) (IMMEDIATE-DEPENDENTS0 WRITE-RN . A-MAPPING) (IMMEDIATE-DEPENDENTS0 MC-STATUS . A-MAPPING) (IMMEDIATE-DEPENDENTS0 MC-STATE . A-MAPPING) (DCELL . *1*A-MAPPING))))) (PUT1-LST (QUOTE *1*D-MAPPING) (QUOTE (MAIN-EVENT D-MAPPING))) (PUT1-LST (QUOTE D-MAPPING) (QUOTE (TYPE-PRESCRIPTION-LST ((D-MAPPING 16 NIL NIL NIL NIL)) TOTALP-LST ((D-MAPPING . T)) SDEFN (LAMBDA (OPLEN V&CVZNX ADDR S) (MC-STATE (MC-STATUS S) (WRITE-RN OPLEN (CAR V&CVZNX) ADDR (MC-RFILE S)) (MC-PC S) (SET-CVZNX (CDR V&CVZNX) (MC-CCR S)) (MC-MEM S))) LISP-CODE *1*D-MAPPING SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*D-MAPPING) IMMEDIATE-DEPENDENTS0 (GCD-S0-S0-RFILE-2 GCD-S0-S0-RFILE-1 GCD-S0-S0-2 GCD-S0-S0-1 GCD-S0-SN-BASE-RFILE-2 GCD-S0-SN-BASE-2 GCD-S0-SN-BASE-RFILE-1 GCD-S0-SN-BASE-1 GCD-S-S0-MEM GCD-S-S0-RFILE GCD-S-S0 STEPI-H MISC-GROUP-H S&R-GROUP-H OR-GROUP-H AND-GROUP-H SUB-GROUP-H ADD-GROUP-H MAPPING-H MOVEQ-INS EXT-INS SWAP-INS EXTB-INS REGISTER-ROXR-INS REGISTER-ROXL-INS REGISTER-ASR-INS REGISTER-ASL-INS REGISTER-LSR-INS REGISTER-LSL-INS REGISTER-ROR-INS REGISTER-ROL-INS OR-INS1 AND-INS1 SUBX-INS1 SUB-INS1 ADDX-INS1 ADD-INS1 MAPPING) EVENT (DEFN D-MAPPING (OPLEN V&CVZNX ADDR S) (MC-STATE (MC-STATUS S) (WRITE-RN OPLEN (CAR V&CVZNX) ADDR (MC-RFILE S)) (MC-PC S) (SET-CVZNX (CDR V&CVZNX) (MC-CCR S)) (MC-MEM S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MC-MEM . D-MAPPING) (IMMEDIATE-DEPENDENTS0 MC-CCR . D-MAPPING) (IMMEDIATE-DEPENDENTS0 SET-CVZNX . D-MAPPING) (IMMEDIATE-DEPENDENTS0 MC-PC . D-MAPPING) (IMMEDIATE-DEPENDENTS0 MC-RFILE . D-MAPPING) (IMMEDIATE-DEPENDENTS0 WRITE-RN . D-MAPPING) (IMMEDIATE-DEPENDENTS0 MC-STATUS . D-MAPPING) (IMMEDIATE-DEPENDENTS0 MC-STATE . D-MAPPING) (DCELL . *1*D-MAPPING))))) (PUT1-LST (QUOTE *1*MC-INSTATE) (QUOTE (MAIN-EVENT MC-INSTATE))) (PUT1-LST (QUOTE MC-INSTATE) (QUOTE (TYPE-PRESCRIPTION-LST ((MC-INSTATE 16 NIL NIL NIL)) TOTALP-LST ((MC-INSTATE . T)) SDEFN (LAMBDA (OPLEN INS S) (IF (EQUAL (CAR (CDR (EFFEC-ADDR OPLEN (S_MODE INS) (S_RN INS) S))) (QUOTE M)) (IF (READ-MEMP (CDR (CDR (EFFEC-ADDR OPLEN (S_MODE INS) (S_RN INS) S))) (MC-MEM S) (OP-SZ OPLEN)) (EFFEC-ADDR OPLEN (S_MODE INS) (S_RN INS) S) (CONS (HALT (READ-SIGNAL) S) (QUOTE NIL))) (EFFEC-ADDR OPLEN (S_MODE INS) (S_RN INS) S))) LISP-CODE *1*MC-INSTATE SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214824 SATELLITES (*1*MC-INSTATE) IMMEDIATE-DEPENDENTS0 (GCD-S0-S0-RFILE-2 GCD-S0-S0-RFILE-1 GCD-S0-S0-2 GCD-S0-S0-1 GCD-S0-SN-BASE-RFILE-2 GCD-S0-SN-BASE-2 GCD-S0-SN-BASE-RFILE-1 GCD-S0-SN-BASE-1 GCD-S-S0-MEM GCD-S-S0-RFILE GCD-S-S0 MC-INSTATE-MEM CMPI-MAPPING BTST-INS BSET-INS BCLR-INS BCHG-INS EOR-MAPPING CMPA-INS CMP-INS SCC-INS NOT-INS MUL-DIV_L-INS TAS-INS TST-INS MOVE-TO-CCR-INS NEG-INS NEGX-INS MOVE-FROM-CCR-INS MOVEA-INS MOVE-INS MEM-ROXR-INS MEM-ROXL-INS MEM-ASR-INS MEM-ASL-INS MEM-LSR-INS MEM-LSL-INS MEM-ROR-INS MEM-ROL-INS DIV_W-INS OR-MAPPING OR-INS1 MUL_W-INS AND-MAPPING AND-INS1 SUBA-INS SUB-MAPPING SUB-INS1 ADDA-INS ADD-MAPPING ADD-INS1) EVENT (DEFN MC-INSTATE (OPLEN INS S) (IF (EQUAL (CAR (CDR (EFFEC-ADDR OPLEN (S_MODE INS) (S_RN INS) S))) (QUOTE M)) (IF (READ-MEMP (CDR (CDR (EFFEC-ADDR OPLEN (S_MODE INS) (S_RN INS) S))) (MC-MEM S) (OP-SZ OPLEN)) (EFFEC-ADDR OPLEN (S_MODE INS) (S_RN INS) S) (CONS (HALT (READ-SIGNAL) S) (QUOTE NIL))) (EFFEC-ADDR OPLEN (S_MODE INS) (S_RN INS) S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 READ-SIGNAL . MC-INSTATE) (IMMEDIATE-DEPENDENTS0 HALT . MC-INSTATE) (IMMEDIATE-DEPENDENTS0 OP-SZ . MC-INSTATE) (IMMEDIATE-DEPENDENTS0 MC-MEM . MC-INSTATE) (IMMEDIATE-DEPENDENTS0 READ-MEMP . MC-INSTATE) (IMMEDIATE-DEPENDENTS0 S_RN . MC-INSTATE) (IMMEDIATE-DEPENDENTS0 S_MODE . MC-INSTATE) (IMMEDIATE-DEPENDENTS0 EFFEC-ADDR . MC-INSTATE) (DCELL . *1*MC-INSTATE))))) (PUT1-LST (QUOTE *1*BYTE-AN-DIRECT-MODEP) (QUOTE (MAIN-EVENT BYTE-AN-DIRECT-MODEP))) (PUT1-LST (QUOTE BYTE-AN-DIRECT-MODEP) (QUOTE (TYPE-PRESCRIPTION-LST ((BYTE-AN-DIRECT-MODEP 3 NIL NIL)) TOTALP-LST ((BYTE-AN-DIRECT-MODEP . T)) SDEFN (LAMBDA (OPLEN MODE) (IF (EQUAL OPLEN (B)) (AN-DIRECT-MODEP MODE) (QUOTE *1*FALSE))) LISP-CODE *1*BYTE-AN-DIRECT-MODEP SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402214824 SATELLITES (*1*BYTE-AN-DIRECT-MODEP) IMMEDIATE-DEPENDENTS0 (CMP-ADDR-MODEP SUBQ-ADDR-MODEP ADDQ-ADDR-MODEP MOVE-ADDR-MODEP SUB-ADDR-MODEP1 ADD-ADDR-MODEP1) EVENT (DEFN BYTE-AN-DIRECT-MODEP (OPLEN MODE) (AND (EQUAL OPLEN (B)) (AN-DIRECT-MODEP MODE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 AN-DIRECT-MODEP . BYTE-AN-DIRECT-MODEP) (IMMEDIATE-DEPENDENTS0 B . BYTE-AN-DIRECT-MODEP) (DCELL . *1*BYTE-AN-DIRECT-MODEP))))) (PUT1-LST (QUOTE *1*IDATA-MODEP) (QUOTE (MAIN-EVENT IDATA-MODEP))) (PUT1-LST (QUOTE IDATA-MODEP) (QUOTE (TYPE-PRESCRIPTION-LST ((IDATA-MODEP 3 NIL NIL)) TOTALP-LST ((IDATA-MODEP . T)) SDEFN (LAMBDA (MODE RN) (IF (EQUAL MODE (QUOTE 7)) (EQUAL RN (QUOTE 4)) (QUOTE *1*FALSE))) LISP-CODE *1*IDATA-MODEP SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402214824 SATELLITES (*1*IDATA-MODEP) IMMEDIATE-DEPENDENTS0 (CMPI-ADDR-MODEP) EVENT (DEFN IDATA-MODEP (MODE RN) (AND (EQUAL MODE (QUOTE 7)) (EQUAL RN (QUOTE 4)))) LOCAL-UNDO-TUPLES ((DCELL . *1*IDATA-MODEP))))) (PUT1-LST (QUOTE *1*PREDEC-MODEP) (QUOTE (MAIN-EVENT PREDEC-MODEP))) (PUT1-LST (QUOTE PREDEC-MODEP) (QUOTE (TYPE-PRESCRIPTION-LST ((PREDEC-MODEP 3 NIL)) TOTALP-LST ((PREDEC-MODEP . T)) SDEFN (LAMBDA (MODE) (EQUAL MODE (QUOTE 4))) LISP-CODE *1*PREDEC-MODEP SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402214824 SATELLITES (*1*PREDEC-MODEP) IMMEDIATE-DEPENDENTS0 (GCD-S-S0-MEM GCD-S-S0-RFILE GCD-S-S0 MISC-GROUP-H MOVEM-RN-EA-INS) EVENT (DEFN PREDEC-MODEP (MODE) (EQUAL MODE (QUOTE 4))) LOCAL-UNDO-TUPLES ((DCELL . *1*PREDEC-MODEP))))) (PUT1-LST (QUOTE *1*POSTINC-MODEP) (QUOTE (MAIN-EVENT POSTINC-MODEP))) (PUT1-LST (QUOTE POSTINC-MODEP) (QUOTE (TYPE-PRESCRIPTION-LST ((POSTINC-MODEP 3 NIL)) TOTALP-LST ((POSTINC-MODEP . T)) SDEFN (LAMBDA (MODE) (EQUAL MODE (QUOTE 3))) LISP-CODE *1*POSTINC-MODEP SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402214824 SATELLITES (*1*POSTINC-MODEP) IMMEDIATE-DEPENDENTS0 (GCD-S0-SN-BASE-RFILE-2 GCD-S0-SN-BASE-2 GCD-S0-SN-BASE-RFILE-1 GCD-S0-SN-BASE-1 MISC-GROUP-H MOVEM-EA-RN-INS) EVENT (DEFN POSTINC-MODEP (MODE) (EQUAL MODE (QUOTE 3))) LOCAL-UNDO-TUPLES ((DCELL . *1*POSTINC-MODEP))))) (PUT1-LST (QUOTE *1*AN-DIRECT-MODEP) (QUOTE (MAIN-EVENT AN-DIRECT-MODEP))) (PUT1-LST (QUOTE AN-DIRECT-MODEP) (QUOTE (TYPE-PRESCRIPTION-LST ((AN-DIRECT-MODEP 3 NIL)) TOTALP-LST ((AN-DIRECT-MODEP . T)) SDEFN (LAMBDA (MODE) (EQUAL MODE (QUOTE 1))) LISP-CODE *1*AN-DIRECT-MODEP SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402214824 SATELLITES (*1*AN-DIRECT-MODEP) IMMEDIATE-DEPENDENTS0 (SCC-GROUP-H SUBQ-INS ADDQ-INS BYTE-AN-DIRECT-MODEP) EVENT (DEFN AN-DIRECT-MODEP (MODE) (EQUAL MODE (QUOTE 1))) LOCAL-UNDO-TUPLES ((DCELL . *1*AN-DIRECT-MODEP))))) (PUT1-LST (QUOTE *1*DN-DIRECT-MODEP) (QUOTE (MAIN-EVENT DN-DIRECT-MODEP))) (PUT1-LST (QUOTE DN-DIRECT-MODEP) (QUOTE (TYPE-PRESCRIPTION-LST ((DN-DIRECT-MODEP 3 NIL)) TOTALP-LST ((DN-DIRECT-MODEP . T)) SDEFN (LAMBDA (MODE) (EQUAL MODE (QUOTE 0))) LISP-CODE *1*DN-DIRECT-MODEP SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402214824 SATELLITES (*1*DN-DIRECT-MODEP) IMMEDIATE-DEPENDENTS0 (BIT-GROUP-H BXXX-OPD BXXX-NUM BXXX-OPLEN) EVENT (DEFN DN-DIRECT-MODEP (MODE) (EQUAL MODE (QUOTE 0))) LOCAL-UNDO-TUPLES ((DCELL . *1*DN-DIRECT-MODEP))))) (PUT1-LST (QUOTE *1*ALTERABLE-ADDR-MODEP) (QUOTE (MAIN-EVENT ALTERABLE-ADDR-MODEP))) (PUT1-LST (QUOTE ALTERABLE-ADDR-MODEP) (QUOTE (TYPE-PRESCRIPTION-LST ((ALTERABLE-ADDR-MODEP 3 NIL NIL)) TOTALP-LST ((ALTERABLE-ADDR-MODEP . T)) SDEFN (LAMBDA (MODE RN) (IF (EQUAL MODE (QUOTE 7)) (IF (EQUAL RN (QUOTE 0)) (QUOTE *1*TRUE) (EQUAL RN (QUOTE 1))) (QUOTE *1*TRUE))) LISP-CODE *1*ALTERABLE-ADDR-MODEP SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402214824 SATELLITES (*1*ALTERABLE-ADDR-MODEP) IMMEDIATE-DEPENDENTS0 (ADDI-ADDR-MODEP SUBI-ADDR-MODEP ANDI-ADDR-MODEP ORI-ADDR-MODEP BSET-ADDR-MODEP BCLR-ADDR-MODEP BCHG-ADDR-MODEP EOR&EORI-ADDR-MODEP SUBQ-ADDR-MODEP ADDQ-ADDR-MODEP SCC-ADDR-MODEP NOT-ADDR-MODEP TAS-ADDR-MODEP MOVEM-RN-EA-ADDR-MODEP NEG-ADDR-MODEP NEGX-ADDR-MODEP MOVE-FROM-CCR-ADDR-MODEP CLR-ADDR-MODEP MOVE-ADDR-MODEP S&R-ADDR-MODEP OR-ADDR-MODEP2 AND-ADDR-MODEP2 SUB-ADDR-MODEP2 ADD-ADDR-MODEP2) EVENT (DEFN ALTERABLE-ADDR-MODEP (MODE RN) (OR (NOT (EQUAL MODE (QUOTE 7))) (OR (EQUAL RN (QUOTE 0)) (EQUAL RN (QUOTE 1))))) LOCAL-UNDO-TUPLES ((DCELL . *1*ALTERABLE-ADDR-MODEP))))) (PUT1-LST (QUOTE *1*CONTROL-ADDR-MODEP) (QUOTE (MAIN-EVENT CONTROL-ADDR-MODEP))) (PUT1-LST (QUOTE CONTROL-ADDR-MODEP) (QUOTE (TYPE-PRESCRIPTION-LST ((CONTROL-ADDR-MODEP 3 NIL NIL)) TOTALP-LST ((CONTROL-ADDR-MODEP . T)) SDEFN (LAMBDA (MODE RN) (IF (EQUAL MODE (QUOTE 7)) (IF (LESSP (QUOTE 3) RN) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (IF (EQUAL MODE (QUOTE 2)) (QUOTE *1*TRUE) (IF (LESSP MODE (QUOTE 5)) (QUOTE *1*FALSE) (QUOTE *1*TRUE))))) LISP-CODE *1*CONTROL-ADDR-MODEP SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402214824 SATELLITES (*1*CONTROL-ADDR-MODEP) IMMEDIATE-DEPENDENTS0 (JSR-ADDR-MODEP JMP-ADDR-MODEP MOVEM-EA-RN-ADDR-MODEP MOVEM-RN-EA-ADDR-MODEP PEA-ADDR-MODEP LEA-ADDR-MODEP) EVENT (DEFN CONTROL-ADDR-MODEP (MODE RN) (IF (EQUAL MODE (QUOTE 7)) (IF (LESSP (QUOTE 3) RN) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (OR (EQUAL MODE (QUOTE 2)) (IF (LESSP MODE (QUOTE 5)) (QUOTE *1*FALSE) (QUOTE *1*TRUE))))) LOCAL-UNDO-TUPLES ((DCELL . *1*CONTROL-ADDR-MODEP))))) (PUT1-LST (QUOTE *1*MEMORY-ADDR-MODEP) (QUOTE (MAIN-EVENT MEMORY-ADDR-MODEP))) (PUT1-LST (QUOTE MEMORY-ADDR-MODEP) (QUOTE (TYPE-PRESCRIPTION-LST ((MEMORY-ADDR-MODEP 3 NIL NIL)) TOTALP-LST ((MEMORY-ADDR-MODEP . T)) SDEFN (LAMBDA (MODE RN) (IF (EQUAL MODE (QUOTE 7)) (IF (LESSP (QUOTE 4) RN) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (IF (LESSP MODE (QUOTE 2)) (QUOTE *1*FALSE) (QUOTE *1*TRUE)))) LISP-CODE *1*MEMORY-ADDR-MODEP SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402214824 SATELLITES (*1*MEMORY-ADDR-MODEP) IMMEDIATE-DEPENDENTS0 (S&R-ADDR-MODEP OR-ADDR-MODEP2 AND-ADDR-MODEP2 SUB-ADDR-MODEP2 ADD-ADDR-MODEP2) EVENT (DEFN MEMORY-ADDR-MODEP (MODE RN) (IF (EQUAL MODE (QUOTE 7)) (IF (LESSP (QUOTE 4) RN) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (IF (LESSP MODE (QUOTE 2)) (QUOTE *1*FALSE) (QUOTE *1*TRUE)))) LOCAL-UNDO-TUPLES ((DCELL . *1*MEMORY-ADDR-MODEP))))) (PUT1-LST (QUOTE *1*DATA-ADDR-MODEP) (QUOTE (MAIN-EVENT DATA-ADDR-MODEP))) (PUT1-LST (QUOTE DATA-ADDR-MODEP) (QUOTE (TYPE-PRESCRIPTION-LST ((DATA-ADDR-MODEP 3 NIL NIL)) TOTALP-LST ((DATA-ADDR-MODEP . T)) SDEFN (LAMBDA (MODE RN) (IF (EQUAL MODE (QUOTE 7)) (IF (LESSP (QUOTE 4) RN) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (IF (EQUAL MODE (QUOTE 1)) (QUOTE *1*FALSE) (QUOTE *1*TRUE)))) LISP-CODE *1*DATA-ADDR-MODEP SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402214824 SATELLITES (*1*DATA-ADDR-MODEP) IMMEDIATE-DEPENDENTS0 (CMPI-ADDR-MODEP ADDI-ADDR-MODEP SUBI-ADDR-MODEP ANDI-ADDR-MODEP ORI-ADDR-MODEP BTST-ADDR-MODEP BSET-ADDR-MODEP BCLR-ADDR-MODEP BCHG-ADDR-MODEP EOR&EORI-ADDR-MODEP SCC-ADDR-MODEP NOT-ADDR-MODEP TAS-ADDR-MODEP TST-ADDR-MODEP MOVE-TO-CCR-ADDR-MODEP NEG-ADDR-MODEP NEGX-ADDR-MODEP MOVE-FROM-CCR-ADDR-MODEP CLR-ADDR-MODEP MOVE-ADDR-MODEP OR-ADDR-MODEP1 MUL&DIV-ADDR-MODEP AND-ADDR-MODEP1) EVENT (DEFN DATA-ADDR-MODEP (MODE RN) (IF (EQUAL MODE (QUOTE 7)) (IF (LESSP (QUOTE 4) RN) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (NOT (EQUAL MODE (QUOTE 1))))) LOCAL-UNDO-TUPLES ((DCELL . *1*DATA-ADDR-MODEP))))) (PUT1-LST (QUOTE *1*ADDR-MODEP) (QUOTE (MAIN-EVENT ADDR-MODEP))) (PUT1-LST (QUOTE ADDR-MODEP) (QUOTE (TYPE-PRESCRIPTION-LST ((ADDR-MODEP 3 NIL NIL)) TOTALP-LST ((ADDR-MODEP . T)) SDEFN (LAMBDA (MODE RN) (IF (EQUAL MODE (QUOTE 7)) (IF (LESSP (QUOTE 4) RN) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (QUOTE *1*TRUE))) LISP-CODE *1*ADDR-MODEP SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402214824 SATELLITES (*1*ADDR-MODEP) IMMEDIATE-DEPENDENTS0 (CMPA-ADDR-MODEP CMP-ADDR-MODEP TST-ADDR-MODEP MOVEA-ADDR-MODEP MOVE-ADDR-MODEP SUBA-ADDR-MODEP SUB-ADDR-MODEP1 ADDA-ADDR-MODEP ADD-ADDR-MODEP1) EVENT (DEFN ADDR-MODEP (MODE RN) (IF (EQUAL MODE (QUOTE 7)) (IF (LESSP (QUOTE 4) RN) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (QUOTE *1*TRUE))) LOCAL-UNDO-TUPLES ((DCELL . *1*ADDR-MODEP))))) (PUT1-LST (QUOTE *1*EFFEC-ADDR) (QUOTE (MAIN-EVENT EFFEC-ADDR))) (PUT1-LST (QUOTE EFFEC-ADDR) (QUOTE (TYPE-PRESCRIPTION-LST ((EFFEC-ADDR 16 NIL NIL NIL NIL)) TOTALP-LST ((EFFEC-ADDR . T)) SDEFN (LAMBDA (OPLEN MODE RN S) (IF (LESSP MODE (QUOTE 4)) (IF (LESSP MODE (QUOTE 2)) (IF (EQUAL MODE (QUOTE 0)) (DN-DIRECT RN S) (AN-DIRECT RN S)) (IF (EQUAL MODE (QUOTE 2)) (ADDR-INDIRECT RN S) (ADDR-POSTINC OPLEN RN S))) (IF (LESSP MODE (QUOTE 6)) (IF (EQUAL MODE (QUOTE 4)) (ADDR-PREDEC OPLEN RN S) (ADDR-DISP (MC-PC S) RN S)) (IF (EQUAL MODE (QUOTE 6)) (ADDR-INDEX (MC-PC S) RN S) (IF (LESSP RN (QUOTE 4)) (IF (LESSP RN (QUOTE 2)) (IF (EQUAL RN (QUOTE 0)) (ABSOLUTE-SHORT (MC-PC S) S) (ABSOLUTE-LONG (MC-PC S) S)) (IF (EQUAL RN (QUOTE 2)) (PC-DISP (MC-PC S) S) (PC-INDEX (MC-PC S) S))) (IMMEDIATE OPLEN (MC-PC S) S)))))) LISP-CODE *1*EFFEC-ADDR SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214824 SATELLITES (*1*EFFEC-ADDR) IMMEDIATE-DEPENDENTS0 (GCD-S0-S0-RFILE-2 GCD-S0-S0-RFILE-1 GCD-S0-S0-2 GCD-S0-S0-1 GCD-S0-SN-BASE-RFILE-2 GCD-S0-SN-BASE-2 GCD-S0-SN-BASE-RFILE-1 GCD-S0-SN-BASE-1 GCD-S-S0-MEM GCD-S-S0-RFILE GCD-S-S0 EFFEC-ADDR-MEM JSR-INS JMP-INS MOVEM-EA-RN-INS MOVEM-RN-EA-INS PEA-INS CLR-INS LEA-INS MOVE-MAPPING MC-INSTATE) EVENT (DEFN EFFEC-ADDR (OPLEN MODE RN S) (IF (LESSP MODE (QUOTE 4)) (IF (LESSP MODE (QUOTE 2)) (IF (EQUAL MODE (QUOTE 0)) (DN-DIRECT RN S) (AN-DIRECT RN S)) (IF (EQUAL MODE (QUOTE 2)) (ADDR-INDIRECT RN S) (ADDR-POSTINC OPLEN RN S))) (IF (LESSP MODE (QUOTE 6)) (IF (EQUAL MODE (QUOTE 4)) (ADDR-PREDEC OPLEN RN S) (ADDR-DISP (MC-PC S) RN S)) (IF (EQUAL MODE (QUOTE 6)) (ADDR-INDEX (MC-PC S) RN S) (IF (LESSP RN (QUOTE 4)) (IF (LESSP RN (QUOTE 2)) (IF (EQUAL RN (QUOTE 0)) (ABSOLUTE-SHORT (MC-PC S) S) (ABSOLUTE-LONG (MC-PC S) S)) (IF (EQUAL RN (QUOTE 2)) (PC-DISP (MC-PC S) S) (PC-INDEX (MC-PC S) S))) (IMMEDIATE OPLEN (MC-PC S) S)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IMMEDIATE . EFFEC-ADDR) (IMMEDIATE-DEPENDENTS0 PC-INDEX . EFFEC-ADDR) (IMMEDIATE-DEPENDENTS0 PC-DISP . EFFEC-ADDR) (IMMEDIATE-DEPENDENTS0 ABSOLUTE-LONG . EFFEC-ADDR) (IMMEDIATE-DEPENDENTS0 ABSOLUTE-SHORT . EFFEC-ADDR) (IMMEDIATE-DEPENDENTS0 ADDR-INDEX . EFFEC-ADDR) (IMMEDIATE-DEPENDENTS0 MC-PC . EFFEC-ADDR) (IMMEDIATE-DEPENDENTS0 ADDR-DISP . EFFEC-ADDR) (IMMEDIATE-DEPENDENTS0 ADDR-PREDEC . EFFEC-ADDR) (IMMEDIATE-DEPENDENTS0 ADDR-POSTINC . EFFEC-ADDR) (IMMEDIATE-DEPENDENTS0 ADDR-INDIRECT . EFFEC-ADDR) (IMMEDIATE-DEPENDENTS0 AN-DIRECT . EFFEC-ADDR) (IMMEDIATE-DEPENDENTS0 DN-DIRECT . EFFEC-ADDR) (DCELL . *1*EFFEC-ADDR))))) (PUT1-LST (QUOTE *1*IMMEDIATE) (QUOTE (MAIN-EVENT IMMEDIATE))) (PUT1-LST (QUOTE IMMEDIATE) (QUOTE (TYPE-PRESCRIPTION-LST ((IMMEDIATE 16 NIL NIL NIL)) TOTALP-LST ((IMMEDIATE . T)) SDEFN (LAMBDA (OPLEN PC S) (IF (EQUAL OPLEN (B)) (IF (PC-WORD-READP PC (MC-MEM S)) (CONS (UPDATE-PC (ADD (L) PC (WSZ)) S) (CONS (QUOTE I) (PC-BYTE-READ (ADD (L) PC (BSZ)) (MC-MEM S)))) (CONS (HALT (PC-SIGNAL) S) (QUOTE NIL))) (IF (PC-READ-MEMP PC (MC-MEM S) (OP-SZ OPLEN)) (CONS (UPDATE-PC (ADD (L) PC (OP-SZ OPLEN)) S) (CONS (QUOTE I) (PC-READ-MEM PC (MC-MEM S) (OP-SZ OPLEN)))) (CONS (HALT (PC-SIGNAL) S) (QUOTE NIL))))) LISP-CODE *1*IMMEDIATE SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214824 SATELLITES (*1*IMMEDIATE) IMMEDIATE-DEPENDENTS0 (IMMEDIATE-MEM CMPI-INS EORI-INS ADDI-INS SUBI-INS ANDI-INS ORI-INS EFFEC-ADDR) EVENT (DEFN IMMEDIATE (OPLEN PC S) (IF (EQUAL OPLEN (B)) (IF (PC-WORD-READP PC (MC-MEM S)) (CONS (UPDATE-PC (ADD (L) PC (WSZ)) S) (CONS (QUOTE I) (PC-BYTE-READ (ADD (L) PC (BSZ)) (MC-MEM S)))) (CONS (HALT (PC-SIGNAL) S) (QUOTE NIL))) (IF (PC-READ-MEMP PC (MC-MEM S) (OP-SZ OPLEN)) (CONS (UPDATE-PC (ADD (L) PC (OP-SZ OPLEN)) S) (CONS (QUOTE I) (PC-READ-MEM PC (MC-MEM S) (OP-SZ OPLEN)))) (CONS (HALT (PC-SIGNAL) S) (QUOTE NIL))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PC-READ-MEM . IMMEDIATE) (IMMEDIATE-DEPENDENTS0 OP-SZ . IMMEDIATE) (IMMEDIATE-DEPENDENTS0 PC-READ-MEMP . IMMEDIATE) (IMMEDIATE-DEPENDENTS0 PC-SIGNAL . IMMEDIATE) (IMMEDIATE-DEPENDENTS0 HALT . IMMEDIATE) (IMMEDIATE-DEPENDENTS0 BSZ . IMMEDIATE) (IMMEDIATE-DEPENDENTS0 PC-BYTE-READ . IMMEDIATE) (IMMEDIATE-DEPENDENTS0 WSZ . IMMEDIATE) (IMMEDIATE-DEPENDENTS0 L . IMMEDIATE) (IMMEDIATE-DEPENDENTS0 ADD . IMMEDIATE) (IMMEDIATE-DEPENDENTS0 UPDATE-PC . IMMEDIATE) (IMMEDIATE-DEPENDENTS0 MC-MEM . IMMEDIATE) (IMMEDIATE-DEPENDENTS0 PC-WORD-READP . IMMEDIATE) (IMMEDIATE-DEPENDENTS0 B . IMMEDIATE) (DCELL . *1*IMMEDIATE))))) (PUT1-LST (QUOTE *1*PC-INDEX) (QUOTE (MAIN-EVENT PC-INDEX))) (PUT1-LST (QUOTE PC-INDEX) (QUOTE (TYPE-PRESCRIPTION-LST ((PC-INDEX 16 NIL NIL)) TOTALP-LST ((PC-INDEX . T)) SDEFN (LAMBDA (PC S) (IF (PC-WORD-READP PC (MC-MEM S)) (PC-INDEX1 PC (PC-WORD-READ PC (MC-MEM S)) S) (CONS (HALT (PC-SIGNAL) S) (QUOTE NIL)))) LISP-CODE *1*PC-INDEX SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214824 SATELLITES (*1*PC-INDEX) IMMEDIATE-DEPENDENTS0 (EFFEC-ADDR-MEM EFFEC-ADDR) EVENT (DEFN PC-INDEX (PC S) (IF (PC-WORD-READP PC (MC-MEM S)) (PC-INDEX1 PC (PC-WORD-READ PC (MC-MEM S)) S) (CONS (HALT (PC-SIGNAL) S) (QUOTE NIL)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PC-SIGNAL . PC-INDEX) (IMMEDIATE-DEPENDENTS0 HALT . PC-INDEX) (IMMEDIATE-DEPENDENTS0 PC-WORD-READ . PC-INDEX) (IMMEDIATE-DEPENDENTS0 PC-INDEX1 . PC-INDEX) (IMMEDIATE-DEPENDENTS0 MC-MEM . PC-INDEX) (IMMEDIATE-DEPENDENTS0 PC-WORD-READP . PC-INDEX) (DCELL . *1*PC-INDEX))))) (PUT1-LST (QUOTE *1*PC-INDEX1) (QUOTE (MAIN-EVENT PC-INDEX1))) (PUT1-LST (QUOTE PC-INDEX1) (QUOTE (TYPE-PRESCRIPTION-LST ((PC-INDEX1 16 NIL NIL NIL)) TOTALP-LST ((PC-INDEX1 . T)) SDEFN (LAMBDA (PC INDEXWD S) (IF (B0P (BITN INDEXWD (QUOTE 8))) (PC-INDEX-DISP PC INDEXWD S) (IF (B0P (BITN INDEXWD (QUOTE 3))) (ADDR-INDEX2 (ADD (L) PC (WSZ)) (BS-PC PC INDEXWD) INDEXWD S) (CONS (HALT (RESERVED-SIGNAL) S) (QUOTE NIL))))) LISP-CODE *1*PC-INDEX1 SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214824 SATELLITES (*1*PC-INDEX1) IMMEDIATE-DEPENDENTS0 (EFFEC-ADDR-MEM PC-INDEX) EVENT (DEFN PC-INDEX1 (PC INDEXWD S) (IF (B0P (BITN INDEXWD (QUOTE 8))) (PC-INDEX-DISP PC INDEXWD S) (IF (B0P (BITN INDEXWD (QUOTE 3))) (ADDR-INDEX2 (ADD (L) PC (WSZ)) (BS-PC PC INDEXWD) INDEXWD S) (CONS (HALT (RESERVED-SIGNAL) S) (QUOTE NIL))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 RESERVED-SIGNAL . PC-INDEX1) (IMMEDIATE-DEPENDENTS0 HALT . PC-INDEX1) (IMMEDIATE-DEPENDENTS0 BS-PC . PC-INDEX1) (IMMEDIATE-DEPENDENTS0 WSZ . PC-INDEX1) (IMMEDIATE-DEPENDENTS0 L . PC-INDEX1) (IMMEDIATE-DEPENDENTS0 ADD . PC-INDEX1) (IMMEDIATE-DEPENDENTS0 ADDR-INDEX2 . PC-INDEX1) (IMMEDIATE-DEPENDENTS0 PC-INDEX-DISP . PC-INDEX1) (IMMEDIATE-DEPENDENTS0 BITN . PC-INDEX1) (IMMEDIATE-DEPENDENTS0 B0P . PC-INDEX1) (DCELL . *1*PC-INDEX1))))) (PUT1-LST (QUOTE *1*BS-PC) (QUOTE (MAIN-EVENT BS-PC))) (PUT1-LST (QUOTE BS-PC) (QUOTE (TYPE-PRESCRIPTION-LST ((BS-PC 4 T NIL)) TOTALP-LST ((BS-PC . T)) SDEFN (LAMBDA (PC INDEXWD) (IF (B0P (BITN INDEXWD (QUOTE 7))) PC (QUOTE 0))) LISP-CODE *1*BS-PC SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*BS-PC) IMMEDIATE-DEPENDENTS0 (EFFEC-ADDR-MEM PC-INDEX1) EVENT (DEFN BS-PC (PC INDEXWD) (IF (B0P (BITN INDEXWD (QUOTE 7))) PC (QUOTE 0))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BITN . BS-PC) (IMMEDIATE-DEPENDENTS0 B0P . BS-PC) (DCELL . *1*BS-PC))))) (PUT1-LST (QUOTE *1*PC-INDEX-DISP) (QUOTE (MAIN-EVENT PC-INDEX-DISP))) (PUT1-LST (QUOTE PC-INDEX-DISP) (QUOTE (TYPE-PRESCRIPTION-LST ((PC-INDEX-DISP 16 NIL NIL NIL)) TOTALP-LST ((PC-INDEX-DISP . T)) SDEFN (LAMBDA (PC INDEXWD S) (CONS (UPDATE-PC (ADD (L) PC (WSZ)) S) (CONS (QUOTE M) (ADD (L) (ADD (L) PC (EXT (B) (HEAD INDEXWD (B)) (L))) (IR-SCALED INDEXWD S))))) LISP-CODE *1*PC-INDEX-DISP SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*PC-INDEX-DISP) IMMEDIATE-DEPENDENTS0 (EFFEC-ADDR-MEM PC-INDEX1) EVENT (DEFN PC-INDEX-DISP (PC INDEXWD S) (CONS (UPDATE-PC (ADD (L) PC (WSZ)) S) (CONS (QUOTE M) (ADD (L) (ADD (L) PC (EXT (B) (HEAD INDEXWD (B)) (L))) (IR-SCALED INDEXWD S))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IR-SCALED . PC-INDEX-DISP) (IMMEDIATE-DEPENDENTS0 HEAD . PC-INDEX-DISP) (IMMEDIATE-DEPENDENTS0 B . PC-INDEX-DISP) (IMMEDIATE-DEPENDENTS0 EXT . PC-INDEX-DISP) (IMMEDIATE-DEPENDENTS0 WSZ . PC-INDEX-DISP) (IMMEDIATE-DEPENDENTS0 L . PC-INDEX-DISP) (IMMEDIATE-DEPENDENTS0 ADD . PC-INDEX-DISP) (IMMEDIATE-DEPENDENTS0 UPDATE-PC . PC-INDEX-DISP) (DCELL . *1*PC-INDEX-DISP))))) (PUT1-LST (QUOTE *1*PC-DISP) (QUOTE (MAIN-EVENT PC-DISP))) (PUT1-LST (QUOTE PC-DISP) (QUOTE (TYPE-PRESCRIPTION-LST ((PC-DISP 16 NIL NIL)) TOTALP-LST ((PC-DISP . T)) SDEFN (LAMBDA (PC S) (IF (PC-WORD-READP PC (MC-MEM S)) (CONS (UPDATE-PC (ADD (L) PC (WSZ)) S) (CONS (QUOTE M) (ADD (L) PC (EXT (W) (PC-WORD-READ PC (MC-MEM S)) (L))))) (CONS (HALT (PC-SIGNAL) S) (QUOTE NIL)))) LISP-CODE *1*PC-DISP SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214824 SATELLITES (*1*PC-DISP) IMMEDIATE-DEPENDENTS0 (EFFEC-ADDR-MEM EFFEC-ADDR) EVENT (DEFN PC-DISP (PC S) (IF (PC-WORD-READP PC (MC-MEM S)) (CONS (UPDATE-PC (ADD (L) PC (WSZ)) S) (CONS (QUOTE M) (ADD (L) PC (EXT (W) (PC-WORD-READ PC (MC-MEM S)) (L))))) (CONS (HALT (PC-SIGNAL) S) (QUOTE NIL)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PC-SIGNAL . PC-DISP) (IMMEDIATE-DEPENDENTS0 HALT . PC-DISP) (IMMEDIATE-DEPENDENTS0 PC-WORD-READ . PC-DISP) (IMMEDIATE-DEPENDENTS0 W . PC-DISP) (IMMEDIATE-DEPENDENTS0 EXT . PC-DISP) (IMMEDIATE-DEPENDENTS0 WSZ . PC-DISP) (IMMEDIATE-DEPENDENTS0 L . PC-DISP) (IMMEDIATE-DEPENDENTS0 ADD . PC-DISP) (IMMEDIATE-DEPENDENTS0 UPDATE-PC . PC-DISP) (IMMEDIATE-DEPENDENTS0 MC-MEM . PC-DISP) (IMMEDIATE-DEPENDENTS0 PC-WORD-READP . PC-DISP) (DCELL . *1*PC-DISP))))) (PUT1-LST (QUOTE *1*ABSOLUTE-LONG) (QUOTE (MAIN-EVENT ABSOLUTE-LONG))) (PUT1-LST (QUOTE ABSOLUTE-LONG) (QUOTE (TYPE-PRESCRIPTION-LST ((ABSOLUTE-LONG 16 NIL NIL)) TOTALP-LST ((ABSOLUTE-LONG . T)) SDEFN (LAMBDA (PC S) (IF (PC-LONG-READP PC (MC-MEM S)) (CONS (UPDATE-PC (ADD (L) PC (LSZ)) S) (CONS (QUOTE M) (PC-LONG-READ PC (MC-MEM S)))) (CONS (HALT (PC-SIGNAL) S) (QUOTE NIL)))) LISP-CODE *1*ABSOLUTE-LONG SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214824 SATELLITES (*1*ABSOLUTE-LONG) IMMEDIATE-DEPENDENTS0 (EFFEC-ADDR-MEM EFFEC-ADDR) EVENT (DEFN ABSOLUTE-LONG (PC S) (IF (PC-LONG-READP PC (MC-MEM S)) (CONS (UPDATE-PC (ADD (L) PC (LSZ)) S) (CONS (QUOTE M) (PC-LONG-READ PC (MC-MEM S)))) (CONS (HALT (PC-SIGNAL) S) (QUOTE NIL)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PC-SIGNAL . ABSOLUTE-LONG) (IMMEDIATE-DEPENDENTS0 HALT . ABSOLUTE-LONG) (IMMEDIATE-DEPENDENTS0 PC-LONG-READ . ABSOLUTE-LONG) (IMMEDIATE-DEPENDENTS0 LSZ . ABSOLUTE-LONG) (IMMEDIATE-DEPENDENTS0 L . ABSOLUTE-LONG) (IMMEDIATE-DEPENDENTS0 ADD . ABSOLUTE-LONG) (IMMEDIATE-DEPENDENTS0 UPDATE-PC . ABSOLUTE-LONG) (IMMEDIATE-DEPENDENTS0 MC-MEM . ABSOLUTE-LONG) (IMMEDIATE-DEPENDENTS0 PC-LONG-READP . ABSOLUTE-LONG) (DCELL . *1*ABSOLUTE-LONG))))) (PUT1-LST (QUOTE *1*ABSOLUTE-SHORT) (QUOTE (MAIN-EVENT ABSOLUTE-SHORT))) (PUT1-LST (QUOTE ABSOLUTE-SHORT) (QUOTE (TYPE-PRESCRIPTION-LST ((ABSOLUTE-SHORT 16 NIL NIL)) TOTALP-LST ((ABSOLUTE-SHORT . T)) SDEFN (LAMBDA (PC S) (IF (PC-WORD-READP PC (MC-MEM S)) (CONS (UPDATE-PC (ADD (L) PC (WSZ)) S) (CONS (QUOTE M) (EXT (W) (PC-WORD-READ PC (MC-MEM S)) (L)))) (CONS (HALT (PC-SIGNAL) S) (QUOTE NIL)))) LISP-CODE *1*ABSOLUTE-SHORT SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214823 SATELLITES (*1*ABSOLUTE-SHORT) IMMEDIATE-DEPENDENTS0 (EFFEC-ADDR-MEM EFFEC-ADDR) EVENT (DEFN ABSOLUTE-SHORT (PC S) (IF (PC-WORD-READP PC (MC-MEM S)) (CONS (UPDATE-PC (ADD (L) PC (WSZ)) S) (CONS (QUOTE M) (EXT (W) (PC-WORD-READ PC (MC-MEM S)) (L)))) (CONS (HALT (PC-SIGNAL) S) (QUOTE NIL)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PC-SIGNAL . ABSOLUTE-SHORT) (IMMEDIATE-DEPENDENTS0 HALT . ABSOLUTE-SHORT) (IMMEDIATE-DEPENDENTS0 PC-WORD-READ . ABSOLUTE-SHORT) (IMMEDIATE-DEPENDENTS0 W . ABSOLUTE-SHORT) (IMMEDIATE-DEPENDENTS0 EXT . ABSOLUTE-SHORT) (IMMEDIATE-DEPENDENTS0 WSZ . ABSOLUTE-SHORT) (IMMEDIATE-DEPENDENTS0 L . ABSOLUTE-SHORT) (IMMEDIATE-DEPENDENTS0 ADD . ABSOLUTE-SHORT) (IMMEDIATE-DEPENDENTS0 UPDATE-PC . ABSOLUTE-SHORT) (IMMEDIATE-DEPENDENTS0 MC-MEM . ABSOLUTE-SHORT) (IMMEDIATE-DEPENDENTS0 PC-WORD-READP . ABSOLUTE-SHORT) (DCELL . *1*ABSOLUTE-SHORT))))) (PUT1-LST (QUOTE *1*ADDR-INDEX) (QUOTE (MAIN-EVENT ADDR-INDEX))) (PUT1-LST (QUOTE ADDR-INDEX) (QUOTE (TYPE-PRESCRIPTION-LST ((ADDR-INDEX 16 NIL NIL NIL)) TOTALP-LST ((ADDR-INDEX . T)) SDEFN (LAMBDA (PC RN S) (IF (PC-WORD-READP PC (MC-MEM S)) (ADDR-INDEX1 (ADD (L) PC (WSZ)) RN (PC-WORD-READ PC (MC-MEM S)) S) (CONS (HALT (PC-SIGNAL) S) (QUOTE NIL)))) LISP-CODE *1*ADDR-INDEX SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214823 SATELLITES (*1*ADDR-INDEX) IMMEDIATE-DEPENDENTS0 (EFFEC-ADDR-MEM EFFEC-ADDR) EVENT (DEFN ADDR-INDEX (PC RN S) (IF (PC-WORD-READP PC (MC-MEM S)) (ADDR-INDEX1 (ADD (L) PC (WSZ)) RN (PC-WORD-READ PC (MC-MEM S)) S) (CONS (HALT (PC-SIGNAL) S) (QUOTE NIL)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PC-SIGNAL . ADDR-INDEX) (IMMEDIATE-DEPENDENTS0 HALT . ADDR-INDEX) (IMMEDIATE-DEPENDENTS0 PC-WORD-READ . ADDR-INDEX) (IMMEDIATE-DEPENDENTS0 WSZ . ADDR-INDEX) (IMMEDIATE-DEPENDENTS0 L . ADDR-INDEX) (IMMEDIATE-DEPENDENTS0 ADD . ADDR-INDEX) (IMMEDIATE-DEPENDENTS0 ADDR-INDEX1 . ADDR-INDEX) (IMMEDIATE-DEPENDENTS0 MC-MEM . ADDR-INDEX) (IMMEDIATE-DEPENDENTS0 PC-WORD-READP . ADDR-INDEX) (DCELL . *1*ADDR-INDEX))))) (PUT1-LST (QUOTE *1*ADDR-INDEX1) (QUOTE (MAIN-EVENT ADDR-INDEX1))) (PUT1-LST (QUOTE ADDR-INDEX1) (QUOTE (TYPE-PRESCRIPTION-LST ((ADDR-INDEX1 16 NIL NIL NIL NIL)) TOTALP-LST ((ADDR-INDEX1 . T)) SDEFN (LAMBDA (PC RN INDEXWD S) (IF (B0P (BITN INDEXWD (QUOTE 8))) (ADDR-INDEX-DISP PC RN INDEXWD S) (IF (B0P (BITN INDEXWD (QUOTE 3))) (ADDR-INDEX2 PC (BS-REGISTER RN INDEXWD S) INDEXWD S) (CONS (HALT (RESERVED-SIGNAL) S) (QUOTE NIL))))) LISP-CODE *1*ADDR-INDEX1 SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214823 SATELLITES (*1*ADDR-INDEX1) IMMEDIATE-DEPENDENTS0 (EFFEC-ADDR-MEM ADDR-INDEX) EVENT (DEFN ADDR-INDEX1 (PC RN INDEXWD S) (IF (B0P (BITN INDEXWD (QUOTE 8))) (ADDR-INDEX-DISP PC RN INDEXWD S) (IF (B0P (BITN INDEXWD (QUOTE 3))) (ADDR-INDEX2 PC (BS-REGISTER RN INDEXWD S) INDEXWD S) (CONS (HALT (RESERVED-SIGNAL) S) (QUOTE NIL))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 RESERVED-SIGNAL . ADDR-INDEX1) (IMMEDIATE-DEPENDENTS0 HALT . ADDR-INDEX1) (IMMEDIATE-DEPENDENTS0 BS-REGISTER . ADDR-INDEX1) (IMMEDIATE-DEPENDENTS0 ADDR-INDEX2 . ADDR-INDEX1) (IMMEDIATE-DEPENDENTS0 ADDR-INDEX-DISP . ADDR-INDEX1) (IMMEDIATE-DEPENDENTS0 BITN . ADDR-INDEX1) (IMMEDIATE-DEPENDENTS0 B0P . ADDR-INDEX1) (DCELL . *1*ADDR-INDEX1))))) (PUT1-LST (QUOTE *1*BS-REGISTER) (QUOTE (MAIN-EVENT BS-REGISTER))) (PUT1-LST (QUOTE BS-REGISTER) (QUOTE (TYPE-PRESCRIPTION-LST ((BS-REGISTER 4 NIL NIL NIL)) TOTALP-LST ((BS-REGISTER . T)) SDEFN (LAMBDA (RN INDEXWD S) (IF (B0P (BITN INDEXWD (QUOTE 7))) (READ-AN (L) RN S) (QUOTE 0))) LISP-CODE *1*BS-REGISTER SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214823 SATELLITES (*1*BS-REGISTER) IMMEDIATE-DEPENDENTS0 (EFFEC-ADDR-MEM ADDR-INDEX1) EVENT (DEFN BS-REGISTER (RN INDEXWD S) (IF (B0P (BITN INDEXWD (QUOTE 7))) (READ-AN (L) RN S) (QUOTE 0))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 L . BS-REGISTER) (IMMEDIATE-DEPENDENTS0 READ-AN . BS-REGISTER) (IMMEDIATE-DEPENDENTS0 BITN . BS-REGISTER) (IMMEDIATE-DEPENDENTS0 B0P . BS-REGISTER) (DCELL . *1*BS-REGISTER))))) (PUT1-LST (QUOTE *1*ADDR-INDEX2) (QUOTE (MAIN-EVENT ADDR-INDEX2))) (PUT1-LST (QUOTE ADDR-INDEX2) (QUOTE (TYPE-PRESCRIPTION-LST ((ADDR-INDEX2 16 NIL NIL NIL NIL)) TOTALP-LST ((ADDR-INDEX2 . T)) SDEFN (LAMBDA (PC ADDR INDEXWD S) (IF (LESSP (BD-SZ INDEXWD) (QUOTE 2)) (IF (EQUAL (BD-SZ INDEXWD) (QUOTE 0)) (CONS (HALT (RESERVED-SIGNAL) S) (QUOTE NIL)) (ADDR-INDEX3 PC ADDR INDEXWD S)) (IF (EQUAL (BD-SZ INDEXWD) (QUOTE 2)) (IF (PC-WORD-READP PC (MC-MEM S)) (ADDR-INDEX3 (ADD (L) PC (WSZ)) (ADD (L) ADDR (EXT (W) (PC-WORD-READ PC (MC-MEM S)) (L))) INDEXWD S) (CONS (HALT (PC-SIGNAL) S) (QUOTE NIL))) (IF (PC-LONG-READP PC (MC-MEM S)) (ADDR-INDEX3 (ADD (L) PC (LSZ)) (ADD (L) ADDR (PC-LONG-READ PC (MC-MEM S))) INDEXWD S) (CONS (HALT (PC-SIGNAL) S) (QUOTE NIL)))))) LISP-CODE *1*ADDR-INDEX2 SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214823 SATELLITES (*1*ADDR-INDEX2) IMMEDIATE-DEPENDENTS0 (ADDR-INDEX2-MEM PC-INDEX1 ADDR-INDEX1) EVENT (DEFN ADDR-INDEX2 (PC ADDR INDEXWD S) (IF (LESSP (BD-SZ INDEXWD) (QUOTE 2)) (IF (EQUAL (BD-SZ INDEXWD) (QUOTE 0)) (CONS (HALT (RESERVED-SIGNAL) S) (QUOTE NIL)) (ADDR-INDEX3 PC ADDR INDEXWD S)) (IF (EQUAL (BD-SZ INDEXWD) (QUOTE 2)) (IF (PC-WORD-READP PC (MC-MEM S)) (ADDR-INDEX3 (ADD (L) PC (WSZ)) (ADD (L) ADDR (EXT (W) (PC-WORD-READ PC (MC-MEM S)) (L))) INDEXWD S) (CONS (HALT (PC-SIGNAL) S) (QUOTE NIL))) (IF (PC-LONG-READP PC (MC-MEM S)) (ADDR-INDEX3 (ADD (L) PC (LSZ)) (ADD (L) ADDR (PC-LONG-READ PC (MC-MEM S))) INDEXWD S) (CONS (HALT (PC-SIGNAL) S) (QUOTE NIL)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PC-LONG-READ . ADDR-INDEX2) (IMMEDIATE-DEPENDENTS0 LSZ . ADDR-INDEX2) (IMMEDIATE-DEPENDENTS0 PC-LONG-READP . ADDR-INDEX2) (IMMEDIATE-DEPENDENTS0 PC-SIGNAL . ADDR-INDEX2) (IMMEDIATE-DEPENDENTS0 PC-WORD-READ . ADDR-INDEX2) (IMMEDIATE-DEPENDENTS0 W . ADDR-INDEX2) (IMMEDIATE-DEPENDENTS0 EXT . ADDR-INDEX2) (IMMEDIATE-DEPENDENTS0 WSZ . ADDR-INDEX2) (IMMEDIATE-DEPENDENTS0 L . ADDR-INDEX2) (IMMEDIATE-DEPENDENTS0 ADD . ADDR-INDEX2) (IMMEDIATE-DEPENDENTS0 MC-MEM . ADDR-INDEX2) (IMMEDIATE-DEPENDENTS0 PC-WORD-READP . ADDR-INDEX2) (IMMEDIATE-DEPENDENTS0 ADDR-INDEX3 . ADDR-INDEX2) (IMMEDIATE-DEPENDENTS0 RESERVED-SIGNAL . ADDR-INDEX2) (IMMEDIATE-DEPENDENTS0 HALT . ADDR-INDEX2) (IMMEDIATE-DEPENDENTS0 BD-SZ . ADDR-INDEX2) (DCELL . *1*ADDR-INDEX2))))) (PUT1-LST (QUOTE *1*BD-SZ) (QUOTE (MAIN-EVENT BD-SZ))) (PUT1-LST (QUOTE BD-SZ) (QUOTE (TYPE-PRESCRIPTION-LST ((BD-SZ 4 NIL)) TOTALP-LST ((BD-SZ . T)) SDEFN (LAMBDA (INDEXWD) (BITS INDEXWD (QUOTE 4) (QUOTE 5))) LISP-CODE *1*BD-SZ SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214823 SATELLITES (*1*BD-SZ) IMMEDIATE-DEPENDENTS0 (ADDR-INDEX2-MEM ADDR-INDEX2) EVENT (DEFN BD-SZ (INDEXWD) (BITS INDEXWD (QUOTE 4) (QUOTE 5))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BITS . BD-SZ) (DCELL . *1*BD-SZ))))) (PUT1-LST (QUOTE *1*ADDR-INDEX3) (QUOTE (MAIN-EVENT ADDR-INDEX3))) (PUT1-LST (QUOTE ADDR-INDEX3) (QUOTE (TYPE-PRESCRIPTION-LST ((ADDR-INDEX3 16 NIL NIL NIL NIL)) TOTALP-LST ((ADDR-INDEX3 . T)) SDEFN (LAMBDA (PC ADDR INDEXWD S) (IF (B0P (BITN INDEXWD (QUOTE 6))) (IF (LESSP (I-IS INDEXWD) (QUOTE 4)) (IF (LESSP (I-IS INDEXWD) (QUOTE 2)) (IF (EQUAL (I-IS INDEXWD) (QUOTE 0)) (ADDR-INDEX-BD PC ADDR INDEXWD S) (MEM-PREINDEX PC ADDR INDEXWD (QUOTE 0) S)) (IF (EQUAL (I-IS INDEXWD) (QUOTE 2)) (MEM-PREINDEX PC ADDR INDEXWD (W) S) (MEM-PREINDEX PC ADDR INDEXWD (L) S))) (IF (LESSP (I-IS INDEXWD) (QUOTE 6)) (IF (EQUAL (I-IS INDEXWD) (QUOTE 4)) (CONS (HALT (RESERVED-SIGNAL) S) (QUOTE NIL)) (MEM-POSTINDEX PC ADDR INDEXWD (QUOTE 0) S)) (IF (EQUAL (I-IS INDEXWD) (QUOTE 6)) (MEM-POSTINDEX PC ADDR INDEXWD (W) S) (MEM-POSTINDEX PC ADDR INDEXWD (L) S)))) (IF (LESSP (I-IS INDEXWD) (QUOTE 4)) (IF (LESSP (I-IS INDEXWD) (QUOTE 2)) (IF (EQUAL (I-IS INDEXWD) (QUOTE 0)) (CONS (UPDATE-PC PC S) (CONS (QUOTE M) ADDR)) (MEM-INDIRECT PC ADDR (QUOTE 0) S)) (IF (EQUAL (I-IS INDEXWD) (QUOTE 2)) (MEM-INDIRECT PC ADDR (W) S) (MEM-INDIRECT PC ADDR (L) S))) (CONS (HALT (RESERVED-SIGNAL) S) (QUOTE NIL))))) LISP-CODE *1*ADDR-INDEX3 SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214823 SATELLITES (*1*ADDR-INDEX3) IMMEDIATE-DEPENDENTS0 (ADDR-INDEX2-MEM ADDR-INDEX2) EVENT (DEFN ADDR-INDEX3 (PC ADDR INDEXWD S) (IF (B0P (BITN INDEXWD (QUOTE 6))) (IF (LESSP (I-IS INDEXWD) (QUOTE 4)) (IF (LESSP (I-IS INDEXWD) (QUOTE 2)) (IF (EQUAL (I-IS INDEXWD) (QUOTE 0)) (ADDR-INDEX-BD PC ADDR INDEXWD S) (MEM-PREINDEX PC ADDR INDEXWD (QUOTE 0) S)) (IF (EQUAL (I-IS INDEXWD) (QUOTE 2)) (MEM-PREINDEX PC ADDR INDEXWD (W) S) (MEM-PREINDEX PC ADDR INDEXWD (L) S))) (IF (LESSP (I-IS INDEXWD) (QUOTE 6)) (IF (EQUAL (I-IS INDEXWD) (QUOTE 4)) (CONS (HALT (RESERVED-SIGNAL) S) (QUOTE NIL)) (MEM-POSTINDEX PC ADDR INDEXWD (QUOTE 0) S)) (IF (EQUAL (I-IS INDEXWD) (QUOTE 6)) (MEM-POSTINDEX PC ADDR INDEXWD (W) S) (MEM-POSTINDEX PC ADDR INDEXWD (L) S)))) (IF (LESSP (I-IS INDEXWD) (QUOTE 4)) (IF (LESSP (I-IS INDEXWD) (QUOTE 2)) (IF (EQUAL (I-IS INDEXWD) (QUOTE 0)) (CONS (UPDATE-PC PC S) (CONS (QUOTE M) ADDR)) (MEM-INDIRECT PC ADDR (QUOTE 0) S)) (IF (EQUAL (I-IS INDEXWD) (QUOTE 2)) (MEM-INDIRECT PC ADDR (W) S) (MEM-INDIRECT PC ADDR (L) S))) (CONS (HALT (RESERVED-SIGNAL) S) (QUOTE NIL))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MEM-INDIRECT . ADDR-INDEX3) (IMMEDIATE-DEPENDENTS0 UPDATE-PC . ADDR-INDEX3) (IMMEDIATE-DEPENDENTS0 MEM-POSTINDEX . ADDR-INDEX3) (IMMEDIATE-DEPENDENTS0 RESERVED-SIGNAL . ADDR-INDEX3) (IMMEDIATE-DEPENDENTS0 HALT . ADDR-INDEX3) (IMMEDIATE-DEPENDENTS0 L . ADDR-INDEX3) (IMMEDIATE-DEPENDENTS0 W . ADDR-INDEX3) (IMMEDIATE-DEPENDENTS0 MEM-PREINDEX . ADDR-INDEX3) (IMMEDIATE-DEPENDENTS0 ADDR-INDEX-BD . ADDR-INDEX3) (IMMEDIATE-DEPENDENTS0 I-IS . ADDR-INDEX3) (IMMEDIATE-DEPENDENTS0 BITN . ADDR-INDEX3) (IMMEDIATE-DEPENDENTS0 B0P . ADDR-INDEX3) (DCELL . *1*ADDR-INDEX3))))) (PUT1-LST (QUOTE *1*I-IS) (QUOTE (MAIN-EVENT I-IS))) (PUT1-LST (QUOTE I-IS) (QUOTE (TYPE-PRESCRIPTION-LST ((I-IS 4 NIL)) TOTALP-LST ((I-IS . T)) SDEFN (LAMBDA (INDEXWD) (BITS INDEXWD (QUOTE 0) (QUOTE 2))) LISP-CODE *1*I-IS SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214823 SATELLITES (*1*I-IS) IMMEDIATE-DEPENDENTS0 (ADDR-INDEX2-MEM ADDR-INDEX3) EVENT (DEFN I-IS (INDEXWD) (BITS INDEXWD (QUOTE 0) (QUOTE 2))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BITS . I-IS) (DCELL . *1*I-IS))))) (PUT1-LST (QUOTE *1*MEM-PREINDEX) (QUOTE (MAIN-EVENT MEM-PREINDEX))) (PUT1-LST (QUOTE MEM-PREINDEX) (QUOTE (TYPE-PRESCRIPTION-LST ((MEM-PREINDEX 16 NIL NIL NIL NIL NIL)) TOTALP-LST ((MEM-PREINDEX . T)) SDEFN (LAMBDA (PC ADDR INDEXWD OLEN S) (MEM-INDIRECT PC (ADD (L) ADDR (IR-SCALED INDEXWD S)) OLEN S)) LISP-CODE *1*MEM-PREINDEX SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214823 SATELLITES (*1*MEM-PREINDEX) IMMEDIATE-DEPENDENTS0 (ADDR-INDEX2-MEM ADDR-INDEX3) EVENT (DEFN MEM-PREINDEX (PC ADDR INDEXWD OLEN S) (MEM-INDIRECT PC (ADD (L) ADDR (IR-SCALED INDEXWD S)) OLEN S)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IR-SCALED . MEM-PREINDEX) (IMMEDIATE-DEPENDENTS0 L . MEM-PREINDEX) (IMMEDIATE-DEPENDENTS0 ADD . MEM-PREINDEX) (IMMEDIATE-DEPENDENTS0 MEM-INDIRECT . MEM-PREINDEX) (DCELL . *1*MEM-PREINDEX))))) (PUT1-LST (QUOTE *1*MEM-POSTINDEX) (QUOTE (MAIN-EVENT MEM-POSTINDEX))) (PUT1-LST (QUOTE MEM-POSTINDEX) (QUOTE (TYPE-PRESCRIPTION-LST ((MEM-POSTINDEX 16 NIL NIL NIL NIL NIL)) TOTALP-LST ((MEM-POSTINDEX . T)) SDEFN (LAMBDA (PC ADDR INDEXWD OLEN S) (IF (LONG-READP ADDR (MC-MEM S)) (IF (PC-READ-MEMP PC (MC-MEM S) (OP-SZ OLEN)) (CONS (UPDATE-PC (ADD (L) PC (OP-SZ OLEN)) S) (CONS (QUOTE M) (ADD (L) (ADD (L) (LONG-READ ADDR (MC-MEM S)) (IR-SCALED INDEXWD S)) (EXT OLEN (PC-READ-MEM PC (MC-MEM S) (OP-SZ OLEN)) (L))))) (CONS (HALT (PC-SIGNAL) S) (QUOTE NIL))) (CONS (HALT (READ-SIGNAL) S) (QUOTE NIL)))) LISP-CODE *1*MEM-POSTINDEX SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214823 SATELLITES (*1*MEM-POSTINDEX) IMMEDIATE-DEPENDENTS0 (ADDR-INDEX2-MEM ADDR-INDEX3) EVENT (DEFN MEM-POSTINDEX (PC ADDR INDEXWD OLEN S) (IF (LONG-READP ADDR (MC-MEM S)) (IF (PC-READ-MEMP PC (MC-MEM S) (OP-SZ OLEN)) (CONS (UPDATE-PC (ADD (L) PC (OP-SZ OLEN)) S) (CONS (QUOTE M) (ADD (L) (ADD (L) (LONG-READ ADDR (MC-MEM S)) (IR-SCALED INDEXWD S)) (EXT OLEN (PC-READ-MEM PC (MC-MEM S) (OP-SZ OLEN)) (L))))) (CONS (HALT (PC-SIGNAL) S) (QUOTE NIL))) (CONS (HALT (READ-SIGNAL) S) (QUOTE NIL)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 READ-SIGNAL . MEM-POSTINDEX) (IMMEDIATE-DEPENDENTS0 PC-SIGNAL . MEM-POSTINDEX) (IMMEDIATE-DEPENDENTS0 HALT . MEM-POSTINDEX) (IMMEDIATE-DEPENDENTS0 PC-READ-MEM . MEM-POSTINDEX) (IMMEDIATE-DEPENDENTS0 EXT . MEM-POSTINDEX) (IMMEDIATE-DEPENDENTS0 IR-SCALED . MEM-POSTINDEX) (IMMEDIATE-DEPENDENTS0 LONG-READ . MEM-POSTINDEX) (IMMEDIATE-DEPENDENTS0 L . MEM-POSTINDEX) (IMMEDIATE-DEPENDENTS0 ADD . MEM-POSTINDEX) (IMMEDIATE-DEPENDENTS0 UPDATE-PC . MEM-POSTINDEX) (IMMEDIATE-DEPENDENTS0 OP-SZ . MEM-POSTINDEX) (IMMEDIATE-DEPENDENTS0 PC-READ-MEMP . MEM-POSTINDEX) (IMMEDIATE-DEPENDENTS0 MC-MEM . MEM-POSTINDEX) (IMMEDIATE-DEPENDENTS0 LONG-READP . MEM-POSTINDEX) (DCELL . *1*MEM-POSTINDEX))))) (PUT1-LST (QUOTE *1*MEM-INDIRECT) (QUOTE (MAIN-EVENT MEM-INDIRECT))) (PUT1-LST (QUOTE MEM-INDIRECT) (QUOTE (TYPE-PRESCRIPTION-LST ((MEM-INDIRECT 16 NIL NIL NIL NIL)) TOTALP-LST ((MEM-INDIRECT . T)) SDEFN (LAMBDA (PC ADDR OLEN S) (IF (LONG-READP ADDR (MC-MEM S)) (IF (PC-READ-MEMP PC (MC-MEM S) (OP-SZ OLEN)) (CONS (UPDATE-PC (ADD (L) PC (OP-SZ OLEN)) S) (CONS (QUOTE M) (ADD (L) (LONG-READ ADDR (MC-MEM S)) (EXT OLEN (PC-READ-MEM PC (MC-MEM S) (OP-SZ OLEN)) (L))))) (CONS (HALT (PC-SIGNAL) S) (QUOTE NIL))) (CONS (HALT (READ-SIGNAL) S) (QUOTE NIL)))) LISP-CODE *1*MEM-INDIRECT SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214823 SATELLITES (*1*MEM-INDIRECT) IMMEDIATE-DEPENDENTS0 (ADDR-INDEX2-MEM ADDR-INDEX3 MEM-PREINDEX) EVENT (DEFN MEM-INDIRECT (PC ADDR OLEN S) (IF (LONG-READP ADDR (MC-MEM S)) (IF (PC-READ-MEMP PC (MC-MEM S) (OP-SZ OLEN)) (CONS (UPDATE-PC (ADD (L) PC (OP-SZ OLEN)) S) (CONS (QUOTE M) (ADD (L) (LONG-READ ADDR (MC-MEM S)) (EXT OLEN (PC-READ-MEM PC (MC-MEM S) (OP-SZ OLEN)) (L))))) (CONS (HALT (PC-SIGNAL) S) (QUOTE NIL))) (CONS (HALT (READ-SIGNAL) S) (QUOTE NIL)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 READ-SIGNAL . MEM-INDIRECT) (IMMEDIATE-DEPENDENTS0 PC-SIGNAL . MEM-INDIRECT) (IMMEDIATE-DEPENDENTS0 HALT . MEM-INDIRECT) (IMMEDIATE-DEPENDENTS0 PC-READ-MEM . MEM-INDIRECT) (IMMEDIATE-DEPENDENTS0 EXT . MEM-INDIRECT) (IMMEDIATE-DEPENDENTS0 LONG-READ . MEM-INDIRECT) (IMMEDIATE-DEPENDENTS0 L . MEM-INDIRECT) (IMMEDIATE-DEPENDENTS0 ADD . MEM-INDIRECT) (IMMEDIATE-DEPENDENTS0 UPDATE-PC . MEM-INDIRECT) (IMMEDIATE-DEPENDENTS0 OP-SZ . MEM-INDIRECT) (IMMEDIATE-DEPENDENTS0 PC-READ-MEMP . MEM-INDIRECT) (IMMEDIATE-DEPENDENTS0 MC-MEM . MEM-INDIRECT) (IMMEDIATE-DEPENDENTS0 LONG-READP . MEM-INDIRECT) (DCELL . *1*MEM-INDIRECT))))) (PUT1-LST (QUOTE *1*ADDR-INDEX-BD) (QUOTE (MAIN-EVENT ADDR-INDEX-BD))) (PUT1-LST (QUOTE ADDR-INDEX-BD) (QUOTE (TYPE-PRESCRIPTION-LST ((ADDR-INDEX-BD 16 NIL NIL NIL NIL)) TOTALP-LST ((ADDR-INDEX-BD . T)) SDEFN (LAMBDA (PC ADDR INDEXWD S) (CONS (UPDATE-PC PC S) (CONS (QUOTE M) (ADD (L) ADDR (IR-SCALED INDEXWD S))))) LISP-CODE *1*ADDR-INDEX-BD SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214823 SATELLITES (*1*ADDR-INDEX-BD) IMMEDIATE-DEPENDENTS0 (ADDR-INDEX2-MEM ADDR-INDEX3) EVENT (DEFN ADDR-INDEX-BD (PC ADDR INDEXWD S) (CONS (UPDATE-PC PC S) (CONS (QUOTE M) (ADD (L) ADDR (IR-SCALED INDEXWD S))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IR-SCALED . ADDR-INDEX-BD) (IMMEDIATE-DEPENDENTS0 L . ADDR-INDEX-BD) (IMMEDIATE-DEPENDENTS0 ADD . ADDR-INDEX-BD) (IMMEDIATE-DEPENDENTS0 UPDATE-PC . ADDR-INDEX-BD) (DCELL . *1*ADDR-INDEX-BD))))) (PUT1-LST (QUOTE *1*ADDR-INDEX-DISP) (QUOTE (MAIN-EVENT ADDR-INDEX-DISP))) (PUT1-LST (QUOTE ADDR-INDEX-DISP) (QUOTE (TYPE-PRESCRIPTION-LST ((ADDR-INDEX-DISP 16 NIL NIL NIL NIL)) TOTALP-LST ((ADDR-INDEX-DISP . T)) SDEFN (LAMBDA (PC RN INDEXWD S) (CONS (UPDATE-PC PC S) (CONS (QUOTE M) (ADD (L) (ADD (L) (READ-AN (L) RN S) (EXT (B) (HEAD INDEXWD (B)) (L))) (IR-SCALED INDEXWD S))))) LISP-CODE *1*ADDR-INDEX-DISP SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214823 SATELLITES (*1*ADDR-INDEX-DISP) IMMEDIATE-DEPENDENTS0 (EFFEC-ADDR-MEM ADDR-INDEX1) EVENT (DEFN ADDR-INDEX-DISP (PC RN INDEXWD S) (CONS (UPDATE-PC PC S) (CONS (QUOTE M) (ADD (L) (ADD (L) (READ-AN (L) RN S) (EXT (B) (HEAD INDEXWD (B)) (L))) (IR-SCALED INDEXWD S))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IR-SCALED . ADDR-INDEX-DISP) (IMMEDIATE-DEPENDENTS0 HEAD . ADDR-INDEX-DISP) (IMMEDIATE-DEPENDENTS0 B . ADDR-INDEX-DISP) (IMMEDIATE-DEPENDENTS0 EXT . ADDR-INDEX-DISP) (IMMEDIATE-DEPENDENTS0 READ-AN . ADDR-INDEX-DISP) (IMMEDIATE-DEPENDENTS0 L . ADDR-INDEX-DISP) (IMMEDIATE-DEPENDENTS0 ADD . ADDR-INDEX-DISP) (IMMEDIATE-DEPENDENTS0 UPDATE-PC . ADDR-INDEX-DISP) (DCELL . *1*ADDR-INDEX-DISP))))) (PUT1-LST (QUOTE *1*IR-SCALED) (QUOTE (MAIN-EVENT IR-SCALED))) (PUT1-LST (QUOTE IR-SCALED) (QUOTE (TYPE-PRESCRIPTION-LST ((IR-SCALED 4 NIL NIL)) TOTALP-LST ((IR-SCALED . T)) SDEFN (LAMBDA (INDEXWD S) (ASL (L) (INDEX-REGISTER INDEXWD S) (BITS INDEXWD (QUOTE 9) (QUOTE 10)))) LISP-CODE *1*IR-SCALED SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214823 SATELLITES (*1*IR-SCALED) IMMEDIATE-DEPENDENTS0 (EFFEC-ADDR-MEM PC-INDEX-DISP MEM-PREINDEX MEM-POSTINDEX ADDR-INDEX-BD ADDR-INDEX-DISP) EVENT (DEFN IR-SCALED (INDEXWD S) (ASL (L) (INDEX-REGISTER INDEXWD S) (BITS INDEXWD (QUOTE 9) (QUOTE 10)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BITS . IR-SCALED) (IMMEDIATE-DEPENDENTS0 INDEX-REGISTER . IR-SCALED) (IMMEDIATE-DEPENDENTS0 L . IR-SCALED) (IMMEDIATE-DEPENDENTS0 ASL . IR-SCALED) (DCELL . *1*IR-SCALED))))) (PUT1-LST (QUOTE *1*INDEX-REGISTER) (QUOTE (MAIN-EVENT INDEX-REGISTER))) (PUT1-LST (QUOTE INDEX-REGISTER) (QUOTE (TYPE-PRESCRIPTION-LST ((INDEX-REGISTER 4 NIL NIL)) TOTALP-LST ((INDEX-REGISTER . T)) SDEFN (LAMBDA (INDEXWD S) (IF (B0P (BITN INDEXWD (QUOTE 15))) (IF (B0P (BITN INDEXWD (QUOTE 11))) (EXT (W) (READ-DN (W) (INDEX-RN INDEXWD) S) (L)) (READ-DN (L) (INDEX-RN INDEXWD) S)) (IF (B0P (BITN INDEXWD (QUOTE 11))) (EXT (W) (READ-AN (W) (INDEX-RN INDEXWD) S) (L)) (READ-AN (L) (INDEX-RN INDEXWD) S)))) LISP-CODE *1*INDEX-REGISTER SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214823 SATELLITES (*1*INDEX-REGISTER) IMMEDIATE-DEPENDENTS0 (EFFEC-ADDR-MEM IR-SCALED) EVENT (DEFN INDEX-REGISTER (INDEXWD S) (IF (B0P (BITN INDEXWD (QUOTE 15))) (IF (B0P (BITN INDEXWD (QUOTE 11))) (EXT (W) (READ-DN (W) (INDEX-RN INDEXWD) S) (L)) (READ-DN (L) (INDEX-RN INDEXWD) S)) (IF (B0P (BITN INDEXWD (QUOTE 11))) (EXT (W) (READ-AN (W) (INDEX-RN INDEXWD) S) (L)) (READ-AN (L) (INDEX-RN INDEXWD) S)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 READ-AN . INDEX-REGISTER) (IMMEDIATE-DEPENDENTS0 L . INDEX-REGISTER) (IMMEDIATE-DEPENDENTS0 INDEX-RN . INDEX-REGISTER) (IMMEDIATE-DEPENDENTS0 READ-DN . INDEX-REGISTER) (IMMEDIATE-DEPENDENTS0 W . INDEX-REGISTER) (IMMEDIATE-DEPENDENTS0 EXT . INDEX-REGISTER) (IMMEDIATE-DEPENDENTS0 BITN . INDEX-REGISTER) (IMMEDIATE-DEPENDENTS0 B0P . INDEX-REGISTER) (DCELL . *1*INDEX-REGISTER))))) (PUT1-LST (QUOTE *1*INDEX-RN) (QUOTE (MAIN-EVENT INDEX-RN))) (PUT1-LST (QUOTE INDEX-RN) (QUOTE (TYPE-PRESCRIPTION-LST ((INDEX-RN 4 NIL)) TOTALP-LST ((INDEX-RN . T)) SDEFN (LAMBDA (INDEXWD) (BITS INDEXWD (QUOTE 12) (QUOTE 14))) LISP-CODE *1*INDEX-RN SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214823 SATELLITES (*1*INDEX-RN) IMMEDIATE-DEPENDENTS0 (EFFEC-ADDR-MEM INDEX-REGISTER) EVENT (DEFN INDEX-RN (INDEXWD) (BITS INDEXWD (QUOTE 12) (QUOTE 14))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BITS . INDEX-RN) (DCELL . *1*INDEX-RN))))) (PUT1-LST (QUOTE *1*ADDR-DISP) (QUOTE (MAIN-EVENT ADDR-DISP))) (PUT1-LST (QUOTE ADDR-DISP) (QUOTE (TYPE-PRESCRIPTION-LST ((ADDR-DISP 16 NIL NIL NIL)) TOTALP-LST ((ADDR-DISP . T)) SDEFN (LAMBDA (PC RN S) (IF (PC-WORD-READP PC (MC-MEM S)) (CONS (UPDATE-PC (ADD (L) PC (WSZ)) S) (CONS (QUOTE M) (ADD (L) (READ-AN (L) RN S) (EXT (W) (PC-WORD-READ PC (MC-MEM S)) (L))))) (CONS (HALT (PC-SIGNAL) S) (QUOTE NIL)))) LISP-CODE *1*ADDR-DISP SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214823 SATELLITES (*1*ADDR-DISP) IMMEDIATE-DEPENDENTS0 (GCD-S0-SN-BASE-RFILE-2 GCD-S0-SN-BASE-2 GCD-S0-SN-BASE-RFILE-1 GCD-S0-SN-BASE-1 GCD-S-S0-MEM GCD-S-S0-RFILE GCD-S-S0 BIT-GROUP-H EFFEC-ADDR-MEM MOVEP-INS EFFEC-ADDR) EVENT (DEFN ADDR-DISP (PC RN S) (IF (PC-WORD-READP PC (MC-MEM S)) (CONS (UPDATE-PC (ADD (L) PC (WSZ)) S) (CONS (QUOTE M) (ADD (L) (READ-AN (L) RN S) (EXT (W) (PC-WORD-READ PC (MC-MEM S)) (L))))) (CONS (HALT (PC-SIGNAL) S) (QUOTE NIL)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PC-SIGNAL . ADDR-DISP) (IMMEDIATE-DEPENDENTS0 HALT . ADDR-DISP) (IMMEDIATE-DEPENDENTS0 PC-WORD-READ . ADDR-DISP) (IMMEDIATE-DEPENDENTS0 W . ADDR-DISP) (IMMEDIATE-DEPENDENTS0 EXT . ADDR-DISP) (IMMEDIATE-DEPENDENTS0 READ-AN . ADDR-DISP) (IMMEDIATE-DEPENDENTS0 WSZ . ADDR-DISP) (IMMEDIATE-DEPENDENTS0 L . ADDR-DISP) (IMMEDIATE-DEPENDENTS0 ADD . ADDR-DISP) (IMMEDIATE-DEPENDENTS0 UPDATE-PC . ADDR-DISP) (IMMEDIATE-DEPENDENTS0 MC-MEM . ADDR-DISP) (IMMEDIATE-DEPENDENTS0 PC-WORD-READP . ADDR-DISP) (DCELL . *1*ADDR-DISP))))) (PUT1-LST (QUOTE *1*ADDR-PREDEC) (QUOTE (MAIN-EVENT ADDR-PREDEC))) (PUT1-LST (QUOTE ADDR-PREDEC) (QUOTE (TYPE-PRESCRIPTION-LST ((ADDR-PREDEC 16 NIL NIL NIL)) TOTALP-LST ((ADDR-PREDEC . T)) SDEFN (LAMBDA (OPLEN RN S) (CONS (WRITE-AN (L) (PRE-EFFECT OPLEN RN (READ-AN (L) RN S)) RN S) (CONS (QUOTE M) (PRE-EFFECT OPLEN RN (READ-AN (L) RN S))))) LISP-CODE *1*ADDR-PREDEC SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214823 SATELLITES (*1*ADDR-PREDEC) IMMEDIATE-DEPENDENTS0 (SUB-GROUP-H ADD-GROUP-H EFFEC-ADDR-MEM SUBX-INS2 ADDX-INS2 EFFEC-ADDR) EVENT (DEFN ADDR-PREDEC (OPLEN RN S) (CONS (WRITE-AN (L) (PRE-EFFECT OPLEN RN (READ-AN (L) RN S)) RN S) (CONS (QUOTE M) (PRE-EFFECT OPLEN RN (READ-AN (L) RN S))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 READ-AN . ADDR-PREDEC) (IMMEDIATE-DEPENDENTS0 PRE-EFFECT . ADDR-PREDEC) (IMMEDIATE-DEPENDENTS0 L . ADDR-PREDEC) (IMMEDIATE-DEPENDENTS0 WRITE-AN . ADDR-PREDEC) (DCELL . *1*ADDR-PREDEC))))) (PUT1-LST (QUOTE *1*ADDR-POSTINC) (QUOTE (MAIN-EVENT ADDR-POSTINC))) (PUT1-LST (QUOTE ADDR-POSTINC) (QUOTE (TYPE-PRESCRIPTION-LST ((ADDR-POSTINC 16 NIL NIL NIL)) TOTALP-LST ((ADDR-POSTINC . T)) SDEFN (LAMBDA (OPLEN RN S) (CONS (WRITE-AN (L) (POST-EFFECT OPLEN RN (READ-AN (L) RN S)) RN S) (CONS (QUOTE M) (READ-AN (L) RN S)))) LISP-CODE *1*ADDR-POSTINC SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214823 SATELLITES (*1*ADDR-POSTINC) IMMEDIATE-DEPENDENTS0 (CMP-GROUP-H EFFEC-ADDR-MEM CMPM-INS CMPM-MAPPING EFFEC-ADDR) EVENT (DEFN ADDR-POSTINC (OPLEN RN S) (CONS (WRITE-AN (L) (POST-EFFECT OPLEN RN (READ-AN (L) RN S)) RN S) (CONS (QUOTE M) (READ-AN (L) RN S)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 READ-AN . ADDR-POSTINC) (IMMEDIATE-DEPENDENTS0 POST-EFFECT . ADDR-POSTINC) (IMMEDIATE-DEPENDENTS0 L . ADDR-POSTINC) (IMMEDIATE-DEPENDENTS0 WRITE-AN . ADDR-POSTINC) (DCELL . *1*ADDR-POSTINC))))) (PUT1-LST (QUOTE *1*ADDR-INDIRECT) (QUOTE (MAIN-EVENT ADDR-INDIRECT))) (PUT1-LST (QUOTE ADDR-INDIRECT) (QUOTE (TYPE-PRESCRIPTION-LST ((ADDR-INDIRECT 16 NIL NIL)) TOTALP-LST ((ADDR-INDIRECT . T)) SDEFN (LAMBDA (RN S) (CONS S (CONS (QUOTE M) (READ-AN (L) RN S)))) LISP-CODE *1*ADDR-INDIRECT SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214823 SATELLITES (*1*ADDR-INDIRECT) IMMEDIATE-DEPENDENTS0 (EFFEC-ADDR-MEM EFFEC-ADDR) EVENT (DEFN ADDR-INDIRECT (RN S) (CONS S (CONS (QUOTE M) (READ-AN (L) RN S)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 L . ADDR-INDIRECT) (IMMEDIATE-DEPENDENTS0 READ-AN . ADDR-INDIRECT) (DCELL . *1*ADDR-INDIRECT))))) (PUT1-LST (QUOTE *1*AN-DIRECT) (QUOTE (MAIN-EVENT AN-DIRECT))) (PUT1-LST (QUOTE AN-DIRECT) (QUOTE (TYPE-PRESCRIPTION-LST ((AN-DIRECT 16 NIL NIL)) TOTALP-LST ((AN-DIRECT . T)) SDEFN (LAMBDA (RN S) (CONS S (CONS (QUOTE A) RN))) LISP-CODE *1*AN-DIRECT SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402214823 SATELLITES (*1*AN-DIRECT) IMMEDIATE-DEPENDENTS0 (EFFEC-ADDR-MEM EFFEC-ADDR) EVENT (DEFN AN-DIRECT (RN S) (CONS S (CONS (QUOTE A) RN))) LOCAL-UNDO-TUPLES ((DCELL . *1*AN-DIRECT))))) (PUT1-LST (QUOTE *1*DN-DIRECT) (QUOTE (MAIN-EVENT DN-DIRECT))) (PUT1-LST (QUOTE DN-DIRECT) (QUOTE (TYPE-PRESCRIPTION-LST ((DN-DIRECT 16 NIL NIL)) TOTALP-LST ((DN-DIRECT . T)) SDEFN (LAMBDA (RN S) (CONS S (CONS (QUOTE D) RN))) LISP-CODE *1*DN-DIRECT SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402214823 SATELLITES (*1*DN-DIRECT) IMMEDIATE-DEPENDENTS0 (GCD-S0-S0-RFILE-2 GCD-S0-S0-RFILE-1 GCD-S0-S0-2 GCD-S0-S0-1 GCD-S0-SN-BASE-RFILE-2 GCD-S0-SN-BASE-2 GCD-S0-SN-BASE-RFILE-1 GCD-S0-SN-BASE-1 GCD-S-S0-MEM GCD-S-S0-RFILE GCD-S-S0 EFFEC-ADDR-MEM EFFEC-ADDR) EVENT (DEFN DN-DIRECT (RN S) (CONS S (CONS (QUOTE D) RN))) LOCAL-UNDO-TUPLES ((DCELL . *1*DN-DIRECT))))) (PUT1-LST (QUOTE *1*PRE-EFFECT) (QUOTE (MAIN-EVENT PRE-EFFECT))) (PUT1-LST (QUOTE PRE-EFFECT) (QUOTE (TYPE-PRESCRIPTION-LST ((PRE-EFFECT 4 NIL NIL NIL)) TOTALP-LST ((PRE-EFFECT . T)) SDEFN (LAMBDA (OPLEN RN ADDR) (IF (EQUAL RN (SP)) (IF (EQUAL OPLEN (B)) (SUB (L) (WSZ) ADDR) (SUB (L) (OP-SZ OPLEN) ADDR)) (SUB (L) (OP-SZ OPLEN) ADDR))) LISP-CODE *1*PRE-EFFECT SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214823 SATELLITES (*1*PRE-EFFECT) IMMEDIATE-DEPENDENTS0 (GCD-S-S0-MEM GCD-S-S0-RFILE GCD-S-S0 MISC-GROUP-H EFFEC-ADDR-MEM MOVEM-PREDEC ADDR-PREDEC) EVENT (DEFN PRE-EFFECT (OPLEN RN ADDR) (IF (AND (EQUAL RN (SP)) (EQUAL OPLEN (B))) (SUB (L) (WSZ) ADDR) (SUB (L) (OP-SZ OPLEN) ADDR))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OP-SZ . PRE-EFFECT) (IMMEDIATE-DEPENDENTS0 WSZ . PRE-EFFECT) (IMMEDIATE-DEPENDENTS0 L . PRE-EFFECT) (IMMEDIATE-DEPENDENTS0 SUB . PRE-EFFECT) (IMMEDIATE-DEPENDENTS0 B . PRE-EFFECT) (IMMEDIATE-DEPENDENTS0 SP . PRE-EFFECT) (DCELL . *1*PRE-EFFECT))))) (PUT1-LST (QUOTE *1*POST-EFFECT) (QUOTE (MAIN-EVENT POST-EFFECT))) (PUT1-LST (QUOTE POST-EFFECT) (QUOTE (TYPE-PRESCRIPTION-LST ((POST-EFFECT 4 NIL NIL NIL)) TOTALP-LST ((POST-EFFECT . T)) SDEFN (LAMBDA (OPLEN RN ADDR) (IF (EQUAL RN (SP)) (IF (EQUAL OPLEN (B)) (ADD (L) ADDR (WSZ)) (ADD (L) ADDR (OP-SZ OPLEN))) (ADD (L) ADDR (OP-SZ OPLEN)))) LISP-CODE *1*POST-EFFECT SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214823 SATELLITES (*1*POST-EFFECT) IMMEDIATE-DEPENDENTS0 (EFFEC-ADDR-MEM ADDR-POSTINC) EVENT (DEFN POST-EFFECT (OPLEN RN ADDR) (IF (AND (EQUAL RN (SP)) (EQUAL OPLEN (B))) (ADD (L) ADDR (WSZ)) (ADD (L) ADDR (OP-SZ OPLEN)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OP-SZ . POST-EFFECT) (IMMEDIATE-DEPENDENTS0 WSZ . POST-EFFECT) (IMMEDIATE-DEPENDENTS0 L . POST-EFFECT) (IMMEDIATE-DEPENDENTS0 ADD . POST-EFFECT) (IMMEDIATE-DEPENDENTS0 B . POST-EFFECT) (IMMEDIATE-DEPENDENTS0 SP . POST-EFFECT) (DCELL . *1*POST-EFFECT))))) (PUT1-LST (QUOTE *1*OPERAND) (QUOTE (MAIN-EVENT OPERAND))) (PUT1-LST (QUOTE OPERAND) (QUOTE (TYPE-PRESCRIPTION-LST ((OPERAND -1 NIL NIL NIL)) TOTALP-LST ((OPERAND . T)) SDEFN (LAMBDA (OPLEN ADDR S) (IF (EQUAL (CAR ADDR) (QUOTE D)) (READ-DN OPLEN (CDR ADDR) S) (IF (EQUAL (CAR ADDR) (QUOTE A)) (READ-AN OPLEN (CDR ADDR) S) (IF (EQUAL (CAR ADDR) (QUOTE M)) (READ-MEM (CDR ADDR) (MC-MEM S) (OP-SZ OPLEN)) (CDR ADDR))))) LISP-CODE *1*OPERAND SUBRP *1*FALSE LEVEL-NO 5 IDATE 1000402214823 SATELLITES (*1*OPERAND) IMMEDIATE-DEPENDENTS0 (GCD-S0-S0-RFILE-2 GCD-S0-S0-RFILE-1 GCD-S0-S0-2 GCD-S0-S0-1 GCD-S0-SN-BASE-RFILE-2 GCD-S0-SN-BASE-2 GCD-S0-SN-BASE-RFILE-1 GCD-S0-SN-BASE-1 GCD-S-S0-MEM GCD-S-S0-RFILE GCD-S-S0 SUB-GROUP-H CMPI-MAPPING BXXX-OPD CMPM-MAPPING EOR-MAPPING CMPA-INS CMP-INS NOT-INS MUL-DIV_L-INS TAS-INS TST-INS MOVE-TO-CCR-INS NEG-INS NEGX-INS MOVEA-INS MOVE-INS MEM-ROXR-INS MEM-ROXL-INS MEM-ASR-INS MEM-ASL-INS MEM-LSR-INS MEM-LSL-INS MEM-ROR-INS MEM-ROL-INS DIV_W-INS OR-MAPPING OR-INS1 MUL_W-INS AND-MAPPING AND-INS1 SUBX-INS2 SUBA-INS SUB-MAPPING SUB-INS1 ADDX-INS2 ADDA-INS ADD-MAPPING ADD-INS1) EVENT (DEFN OPERAND (OPLEN ADDR S) (IF (EQUAL (CAR ADDR) (QUOTE D)) (READ-DN OPLEN (CDR ADDR) S) (IF (EQUAL (CAR ADDR) (QUOTE A)) (READ-AN OPLEN (CDR ADDR) S) (IF (EQUAL (CAR ADDR) (QUOTE M)) (READ-MEM (CDR ADDR) (MC-MEM S) (OP-SZ OPLEN)) (CDR ADDR))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OP-SZ . OPERAND) (IMMEDIATE-DEPENDENTS0 MC-MEM . OPERAND) (IMMEDIATE-DEPENDENTS0 READ-MEM . OPERAND) (IMMEDIATE-DEPENDENTS0 READ-AN . OPERAND) (IMMEDIATE-DEPENDENTS0 READ-DN . OPERAND) (DCELL . *1*OPERAND))))) (PUT1-LST (QUOTE *1*PUSH-SP) (QUOTE (MAIN-EVENT PUSH-SP))) (PUT1-LST (QUOTE PUSH-SP) (QUOTE (TYPE-PRESCRIPTION-LST ((PUSH-SP 16 NIL NIL NIL)) TOTALP-LST ((PUSH-SP . T)) SDEFN (LAMBDA (OPSZ VALUE S) (IF (WRITE-MEMP (SUB (L) OPSZ (READ-SP S)) (MC-MEM S) OPSZ) (UPDATE-MEM (WRITE-MEM VALUE (SUB (L) OPSZ (READ-SP S)) (MC-MEM S) OPSZ) (WRITE-SP (SUB (L) OPSZ (READ-SP S)) S)) (HALT (WRITE-SIGNAL) S))) LISP-CODE *1*PUSH-SP SUBRP *1*FALSE LEVEL-NO 5 IDATE 1000402214823 SATELLITES (*1*PUSH-SP) IMMEDIATE-DEPENDENTS0 (MISC-GROUP-H BCC-GROUP-H BSR-INS JSR-INS PEA-INS) EVENT (DEFN PUSH-SP (OPSZ VALUE S) (IF (WRITE-MEMP (SUB (L) OPSZ (READ-SP S)) (MC-MEM S) OPSZ) (UPDATE-MEM (WRITE-MEM VALUE (SUB (L) OPSZ (READ-SP S)) (MC-MEM S) OPSZ) (WRITE-SP (SUB (L) OPSZ (READ-SP S)) S)) (HALT (WRITE-SIGNAL) S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 WRITE-SIGNAL . PUSH-SP) (IMMEDIATE-DEPENDENTS0 HALT . PUSH-SP) (IMMEDIATE-DEPENDENTS0 WRITE-SP . PUSH-SP) (IMMEDIATE-DEPENDENTS0 WRITE-MEM . PUSH-SP) (IMMEDIATE-DEPENDENTS0 UPDATE-MEM . PUSH-SP) (IMMEDIATE-DEPENDENTS0 MC-MEM . PUSH-SP) (IMMEDIATE-DEPENDENTS0 READ-SP . PUSH-SP) (IMMEDIATE-DEPENDENTS0 L . PUSH-SP) (IMMEDIATE-DEPENDENTS0 SUB . PUSH-SP) (IMMEDIATE-DEPENDENTS0 WRITE-MEMP . PUSH-SP) (DCELL . *1*PUSH-SP))))) (PUT1-LST (QUOTE *1*WRITE-SP) (QUOTE (MAIN-EVENT WRITE-SP))) (PUT1-LST (QUOTE WRITE-SP) (QUOTE (TYPE-PRESCRIPTION-LST ((WRITE-SP 16 NIL NIL)) TOTALP-LST ((WRITE-SP . T)) SDEFN (LAMBDA (VALUE S) (WRITE-AN (L) VALUE (SP) S)) LISP-CODE *1*WRITE-SP SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214823 SATELLITES (*1*WRITE-SP) IMMEDIATE-DEPENDENTS0 (GCD-S0-SN-BASE-RFILE-2 GCD-S0-SN-BASE-2 GCD-S0-SN-BASE-RFILE-1 GCD-S0-SN-BASE-1 GCD-S-S0-MEM GCD-S-S0-RFILE GCD-S-S0 MISC-GROUP-H BCC-GROUP-H RTD-MAPPING UNLK-INS LINK-MAPPING PUSH-SP) EVENT (DEFN WRITE-SP (VALUE S) (WRITE-AN (L) VALUE (SP) S)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SP . WRITE-SP) (IMMEDIATE-DEPENDENTS0 L . WRITE-SP) (IMMEDIATE-DEPENDENTS0 WRITE-AN . WRITE-SP) (DCELL . *1*WRITE-SP))))) (PUT1-LST (QUOTE *1*READ-SP) (QUOTE (MAIN-EVENT READ-SP))) (PUT1-LST (QUOTE READ-SP) (QUOTE (TYPE-PRESCRIPTION-LST ((READ-SP 4 NIL)) TOTALP-LST ((READ-SP . T)) SDEFN (LAMBDA (S) (READ-AN (L) (SP) S)) LISP-CODE *1*READ-SP SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214823 SATELLITES (*1*READ-SP) IMMEDIATE-DEPENDENTS0 (GCD-CORRECTNESS GCD-S0-SN-BASE-RFILE-2 GCD-S0-SN-BASE-2 GCD-S0-SN-BASE-RFILE-1 GCD-S0-SN-BASE-1 GCD-S-S0-MEM GCD-S-S0-RFILE GCD-S-S0 GCD-STATEP MISC-GROUP-H BCC-GROUP-H RTR-INS RTS-INS RTD-INS LINK-MAPPING PUSH-SP) EVENT (DEFN READ-SP (S) (READ-AN (L) (SP) S)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SP . READ-SP) (IMMEDIATE-DEPENDENTS0 L . READ-SP) (IMMEDIATE-DEPENDENTS0 READ-AN . READ-SP) (DCELL . *1*READ-SP))))) (PUT1-LST (QUOTE *1*SP) (QUOTE (MAIN-EVENT SP))) (PUT1-LST (QUOTE SP) (QUOTE (TYPE-PRESCRIPTION-LST ((SP 4)) TOTALP-LST ((SP . T)) SDEFN (LAMBDA NIL (QUOTE 7)) LISP-CODE *1*SP SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402214823 SATELLITES (*1*SP) IMMEDIATE-DEPENDENTS0 (GCD-CORRECTNESS GCD-S0-SN-BASE-RFILE-2 GCD-S0-SN-BASE-2 GCD-S0-SN-BASE-RFILE-1 GCD-S0-SN-BASE-1 GCD-S-S0-MEM GCD-S-S0-RFILE GCD-S-S0 MISC-GROUP-H BCC-GROUP-H EFFEC-ADDR-MEM PRE-EFFECT POST-EFFECT WRITE-SP READ-SP) EVENT (DEFN SP NIL (QUOTE 7)) LOCAL-UNDO-TUPLES ((DCELL . *1*SP))))) (PUT1-LST (QUOTE *1*WRITE-AN) (QUOTE (MAIN-EVENT WRITE-AN))) (PUT1-LST (QUOTE WRITE-AN) (QUOTE (TYPE-PRESCRIPTION-LST ((WRITE-AN 16 NIL NIL NIL NIL)) TOTALP-LST ((WRITE-AN . T)) SDEFN (LAMBDA (OPLEN VALUE AN S) (UPDATE-RFILE (WRITE-RN OPLEN VALUE (PLUS (QUOTE 8) AN) (MC-RFILE S)) S)) LISP-CODE *1*WRITE-AN SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214823 SATELLITES (*1*WRITE-AN) IMMEDIATE-DEPENDENTS0 (GCD-S0-SN-BASE-RFILE-2 GCD-S0-SN-BASE-2 GCD-S0-SN-BASE-RFILE-1 GCD-S0-SN-BASE-1 GCD-S-S0-MEM GCD-S-S0-RFILE GCD-S-S0 MISC-GROUP-H MOVE-GROUP-H BCC-GROUP-H CMP-GROUP-H SCC-GROUP-H AND-GROUP-H SUB-GROUP-H ADD-GROUP-H EFFEC-ADDR-MEM SUBQ-INS ADDQ-INS UNLK-INS LINK-MAPPING MOVEM-EA-RN-INS MOVEM-RN-EA-INS MOVEM-PREDEC LEA-INS MOVEA-INS EXG-DRAR-INS EXG-ARAR-INS SUBA-INS ADDA-INS ADDR-PREDEC ADDR-POSTINC WRITE-SP) EVENT (DEFN WRITE-AN (OPLEN VALUE AN S) (UPDATE-RFILE (WRITE-RN OPLEN VALUE (PLUS (QUOTE 8) AN) (MC-RFILE S)) S)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MC-RFILE . WRITE-AN) (IMMEDIATE-DEPENDENTS0 WRITE-RN . WRITE-AN) (IMMEDIATE-DEPENDENTS0 UPDATE-RFILE . WRITE-AN) (DCELL . *1*WRITE-AN))))) (PUT1-LST (QUOTE *1*WRITE-DN) (QUOTE (MAIN-EVENT WRITE-DN))) (PUT1-LST (QUOTE WRITE-DN) (QUOTE (TYPE-PRESCRIPTION-LST ((WRITE-DN 16 NIL NIL NIL NIL)) TOTALP-LST ((WRITE-DN . T)) SDEFN (LAMBDA (OPLEN VALUE DN S) (UPDATE-RFILE (WRITE-RN OPLEN VALUE DN (MC-RFILE S)) S)) LISP-CODE *1*WRITE-DN SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214823 SATELLITES (*1*WRITE-DN) IMMEDIATE-DEPENDENTS0 (GCD-S0-S0-RFILE-2 GCD-S0-S0-RFILE-1 GCD-S0-S0-2 GCD-S0-S0-1 MISC-GROUP-H BIT-GROUP-H SCC-GROUP-H OR-GROUP-H AND-GROUP-H MOVEP-TO-REG DBCC-LOOP MULS_L_DLDH MULS_L_DL MULU_L_DLDH MULU_L_DL DIVU_L DIVUL_L DIVS_L DIVSL_L DIVU_W-INS DIVS_W-INS EXG-DRAR-INS EXG-DRDR-INS MULS_W-INS MULU_W-INS) EVENT (DEFN WRITE-DN (OPLEN VALUE DN S) (UPDATE-RFILE (WRITE-RN OPLEN VALUE DN (MC-RFILE S)) S)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MC-RFILE . WRITE-DN) (IMMEDIATE-DEPENDENTS0 WRITE-RN . WRITE-DN) (IMMEDIATE-DEPENDENTS0 UPDATE-RFILE . WRITE-DN) (DCELL . *1*WRITE-DN))))) (PUT1-LST (QUOTE *1*READ-AN) (QUOTE (MAIN-EVENT READ-AN))) (PUT1-LST (QUOTE READ-AN) (QUOTE (TYPE-PRESCRIPTION-LST ((READ-AN 4 NIL NIL NIL)) TOTALP-LST ((READ-AN . T)) SDEFN (LAMBDA (OPLEN AN S) (READ-RN OPLEN (PLUS (QUOTE 8) AN) (MC-RFILE S))) LISP-CODE *1*READ-AN SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214823 SATELLITES (*1*READ-AN) IMMEDIATE-DEPENDENTS0 (GCD-CORRECTNESS GCD-S0-SN-RFILE GCD-S0-SN GCD-S0-S0-RFILE-2 GCD-S0-S0-RFILE-1 GCD-S0-S0-2 GCD-S0-S0-1 GCD-S0-SN-BASE-RFILE-2 GCD-S0-SN-BASE-2 GCD-S0-SN-BASE-RFILE-1 GCD-S0-SN-BASE-1 GCD-S-S0-MEM GCD-S-S0-RFILE GCD-S-S0 GCD-S0P RN-SAVED MOVEM-SAVED LINKED-A6 LINKED-RTS-ADDR RTS-ADDR IREAD-AN UREAD-AN MISC-GROUP-H BIT-GROUP-H BCC-GROUP-H CMP-GROUP-H SCC-GROUP-H AND-GROUP-H SUB-GROUP-H ADD-GROUP-H EFFEC-ADDR-MEM CMPA-INS SUBQ-INS ADDQ-INS UNLK-INS LINK-MAPPING MOVEM-EA-RN-INS MOVEM-PREDEC EXG-DRAR-INS EXG-ARAR-INS SUBA-INS ADDA-INS BS-REGISTER ADDR-INDEX-DISP INDEX-REGISTER ADDR-DISP ADDR-PREDEC ADDR-POSTINC ADDR-INDIRECT OPERAND READ-SP) EVENT (DEFN READ-AN (OPLEN AN S) (READ-RN OPLEN (PLUS (QUOTE 8) AN) (MC-RFILE S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MC-RFILE . READ-AN) (IMMEDIATE-DEPENDENTS0 READ-RN . READ-AN) (DCELL . *1*READ-AN))))) (PUT1-LST (QUOTE *1*READ-DN) (QUOTE (MAIN-EVENT READ-DN))) (PUT1-LST (QUOTE READ-DN) (QUOTE (TYPE-PRESCRIPTION-LST ((READ-DN 4 NIL NIL NIL)) TOTALP-LST ((READ-DN . T)) SDEFN (LAMBDA (OPLEN DN S) (READ-RN OPLEN DN (MC-RFILE S))) LISP-CODE *1*READ-DN SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214823 SATELLITES (*1*READ-DN) IMMEDIATE-DEPENDENTS0 (GCD-S0-S0-RFILE-2 GCD-S0-S0-RFILE-1 GCD-S0-S0-2 GCD-S0-S0-1 GCD-S0-SN-BASE-RFILE-2 GCD-S0-SN-BASE-2 GCD-S0-SN-BASE-RFILE-1 GCD-S0-SN-BASE-1 GCD-S-S0 IREAD-DN UREAD-DN MISC-GROUP-H S&R-GROUP-H BIT-GROUP-H CMP-GROUP-H SCC-GROUP-H OR-GROUP-H AND-GROUP-H SUB-GROUP-H ADD-GROUP-H EFFEC-ADDR-MEM D-BIT-SUBGROUP BXXX-OPD MOVEP-TO-MEM EOR-INS CMP-INS DBCC-LOOP MUL_L-INS DIV_L-INS DIVU_L DIVS_L EXT-INS SWAP-INS EXTB-INS REGISTER-ROXR-INS REGISTER-ROXL-INS REGISTER-ASR-INS REGISTER-ASL-INS REGISTER-LSR-INS REGISTER-LSL-INS REGISTER-ROR-INS REGISTER-ROL-INS SR-CNT DIVU_W-INS DIVS_W-INS OR-INS2 OR-INS1 EXG-DRAR-INS EXG-DRDR-INS MULS_W-INS MULU_W-INS AND-INS2 AND-INS1 SUBX-INS1 SUB-INS2 SUB-INS1 ADDX-INS1 ADD-INS2 ADD-INS1 INDEX-REGISTER OPERAND) EVENT (DEFN READ-DN (OPLEN DN S) (READ-RN OPLEN DN (MC-RFILE S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MC-RFILE . READ-DN) (IMMEDIATE-DEPENDENTS0 READ-RN . READ-DN) (DCELL . *1*READ-DN))))) (PUT1-LST (QUOTE *1*UPDATE-MEM) (QUOTE (MAIN-EVENT UPDATE-MEM))) (PUT1-LST (QUOTE UPDATE-MEM) (QUOTE (TYPE-PRESCRIPTION-LST ((UPDATE-MEM 16 NIL NIL)) TOTALP-LST ((UPDATE-MEM . T)) SDEFN (LAMBDA (NEW-MEM S) (MC-STATE (MC-STATUS S) (MC-RFILE S) (MC-PC S) (MC-CCR S) NEW-MEM)) LISP-CODE *1*UPDATE-MEM SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214823 SATELLITES (*1*UPDATE-MEM) IMMEDIATE-DEPENDENTS0 (GCD-S-S0-MEM GCD-S-S0-RFILE GCD-S-S0 MISC-GROUP-H BIT-GROUP-H BCC-GROUP-H MOVEP-TO-MEM LINK-MAPPING MOVEM-RN-EA-INS PUSH-SP) EVENT (DEFN UPDATE-MEM (NEW-MEM S) (MC-STATE (MC-STATUS S) (MC-RFILE S) (MC-PC S) (MC-CCR S) NEW-MEM)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MC-CCR . UPDATE-MEM) (IMMEDIATE-DEPENDENTS0 MC-PC . UPDATE-MEM) (IMMEDIATE-DEPENDENTS0 MC-RFILE . UPDATE-MEM) (IMMEDIATE-DEPENDENTS0 MC-STATUS . UPDATE-MEM) (IMMEDIATE-DEPENDENTS0 MC-STATE . UPDATE-MEM) (DCELL . *1*UPDATE-MEM))))) (PUT1-LST (QUOTE *1*UPDATE-CCR) (QUOTE (MAIN-EVENT UPDATE-CCR))) (PUT1-LST (QUOTE UPDATE-CCR) (QUOTE (TYPE-PRESCRIPTION-LST ((UPDATE-CCR 16 NIL NIL)) TOTALP-LST ((UPDATE-CCR . T)) SDEFN (LAMBDA (NEW-CCR S) (MC-STATE (MC-STATUS S) (MC-RFILE S) (MC-PC S) (SET-CVZNX NEW-CCR (MC-CCR S)) (MC-MEM S))) LISP-CODE *1*UPDATE-CCR SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214823 SATELLITES (*1*UPDATE-CCR) IMMEDIATE-DEPENDENTS0 (GCD-S0-S0-RFILE-2 GCD-S0-S0-RFILE-1 GCD-S0-S0-2 GCD-S0-S0-1 GCD-S0-SN-BASE-RFILE-2 GCD-S0-SN-BASE-2 GCD-S0-SN-BASE-RFILE-1 GCD-S0-SN-BASE-1 MISC-GROUP-H BIT-GROUP-H CMP-GROUP-H OR-GROUP-H AND-GROUP-H CMPI-MAPPING EORI-TO-CCR-INS ANDI-TO-CCR-INS ORI-TO-CCR-INS BTST-INS CMPM-MAPPING CMPA-INS CMP-INS RTR-INS MULS_L_DLDH MULS_L_DL MULU_L_DLDH MULU_L_DL DIVU_L DIVUL_L DIVS_L DIVSL_L TST-INS MOVE-TO-CCR-INS DIVU_W-INS DIVS_W-INS MULS_W-INS MULU_W-INS) EVENT (DEFN UPDATE-CCR (NEW-CCR S) (MC-STATE (MC-STATUS S) (MC-RFILE S) (MC-PC S) (SET-CVZNX NEW-CCR (MC-CCR S)) (MC-MEM S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MC-MEM . UPDATE-CCR) (IMMEDIATE-DEPENDENTS0 MC-CCR . UPDATE-CCR) (IMMEDIATE-DEPENDENTS0 SET-CVZNX . UPDATE-CCR) (IMMEDIATE-DEPENDENTS0 MC-PC . UPDATE-CCR) (IMMEDIATE-DEPENDENTS0 MC-RFILE . UPDATE-CCR) (IMMEDIATE-DEPENDENTS0 MC-STATUS . UPDATE-CCR) (IMMEDIATE-DEPENDENTS0 MC-STATE . UPDATE-CCR) (DCELL . *1*UPDATE-CCR))))) (PUT1-LST (QUOTE *1*UPDATE-PC) (QUOTE (MAIN-EVENT UPDATE-PC))) (PUT1-LST (QUOTE UPDATE-PC) (QUOTE (TYPE-PRESCRIPTION-LST ((UPDATE-PC 16 NIL NIL)) TOTALP-LST ((UPDATE-PC . T)) SDEFN (LAMBDA (NEW-PC S) (MC-STATE (MC-STATUS S) (MC-RFILE S) NEW-PC (MC-CCR S) (MC-MEM S))) LISP-CODE *1*UPDATE-PC SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214823 SATELLITES (*1*UPDATE-PC) IMMEDIATE-DEPENDENTS0 (GCD-S0-S0-RFILE-2 GCD-S0-S0-RFILE-1 GCD-S0-S0-2 GCD-S0-S0-1 GCD-S0-SN-BASE-RFILE-2 GCD-S0-SN-BASE-2 GCD-S0-SN-BASE-RFILE-1 GCD-S0-SN-BASE-1 GCD-S-S0-MEM GCD-S-S0-RFILE GCD-S-S0 STEPI-H MISC-GROUP-H BIT-GROUP-H BCC-GROUP-H SCC-GROUP-H EFFEC-ADDR-MEM IMMEDIATE-MEM ADDR-INDEX2-MEM STEPI EORI-TO-CCR-INS ANDI-TO-CCR-INS ORI-TO-CCR-INS S-BIT-SUBGROUP DBCC-INS DBCC-LOOP BCC-RA-SR BSR-INS JMP-MAPPING RTD-MAPPING LINK_W-INS LINK_L-INS MOVEM-EA-RN-SUBGROUP EXT-SUBGROUP IMMEDIATE PC-INDEX-DISP PC-DISP ABSOLUTE-LONG ABSOLUTE-SHORT ADDR-INDEX3 MEM-POSTINDEX MEM-INDIRECT ADDR-INDEX-BD ADDR-INDEX-DISP ADDR-DISP) EVENT (DEFN UPDATE-PC (NEW-PC S) (MC-STATE (MC-STATUS S) (MC-RFILE S) NEW-PC (MC-CCR S) (MC-MEM S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MC-MEM . UPDATE-PC) (IMMEDIATE-DEPENDENTS0 MC-CCR . UPDATE-PC) (IMMEDIATE-DEPENDENTS0 MC-RFILE . UPDATE-PC) (IMMEDIATE-DEPENDENTS0 MC-STATUS . UPDATE-PC) (IMMEDIATE-DEPENDENTS0 MC-STATE . UPDATE-PC) (DCELL . *1*UPDATE-PC))))) (PUT1-LST (QUOTE *1*UPDATE-RFILE) (QUOTE (MAIN-EVENT UPDATE-RFILE))) (PUT1-LST (QUOTE UPDATE-RFILE) (QUOTE (TYPE-PRESCRIPTION-LST ((UPDATE-RFILE 16 NIL NIL)) TOTALP-LST ((UPDATE-RFILE . T)) SDEFN (LAMBDA (NEW-RFILE S) (MC-STATE (MC-STATUS S) NEW-RFILE (MC-PC S) (MC-CCR S) (MC-MEM S))) LISP-CODE *1*UPDATE-RFILE SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214823 SATELLITES (*1*UPDATE-RFILE) IMMEDIATE-DEPENDENTS0 (GCD-S0-S0-RFILE-2 GCD-S0-S0-RFILE-1 GCD-S0-S0-2 GCD-S0-S0-1 GCD-S0-SN-BASE-RFILE-2 GCD-S0-SN-BASE-2 GCD-S0-SN-BASE-RFILE-1 GCD-S0-SN-BASE-1 GCD-S-S0-MEM GCD-S-S0-RFILE GCD-S-S0 MISC-GROUP-H MOVE-GROUP-H BIT-GROUP-H BCC-GROUP-H CMP-GROUP-H SCC-GROUP-H OR-GROUP-H AND-GROUP-H SUB-GROUP-H ADD-GROUP-H EFFEC-ADDR-MEM MOVEM-EA-RN-INS WRITE-AN WRITE-DN) EVENT (DEFN UPDATE-RFILE (NEW-RFILE S) (MC-STATE (MC-STATUS S) NEW-RFILE (MC-PC S) (MC-CCR S) (MC-MEM S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MC-MEM . UPDATE-RFILE) (IMMEDIATE-DEPENDENTS0 MC-CCR . UPDATE-RFILE) (IMMEDIATE-DEPENDENTS0 MC-PC . UPDATE-RFILE) (IMMEDIATE-DEPENDENTS0 MC-STATUS . UPDATE-RFILE) (IMMEDIATE-DEPENDENTS0 MC-STATE . UPDATE-RFILE) (DCELL . *1*UPDATE-RFILE))))) (PUT1-LST (QUOTE *1*HALT) (QUOTE (MAIN-EVENT HALT))) (PUT1-LST (QUOTE HALT) (QUOTE (TYPE-PRESCRIPTION-LST ((HALT 16 NIL NIL)) TOTALP-LST ((HALT . T)) SDEFN (LAMBDA (SIGNAL S) (MC-STATE SIGNAL (MC-RFILE S) (MC-PC S) (MC-CCR S) (MC-MEM S))) LISP-CODE *1*HALT SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214823 SATELLITES (*1*HALT) IMMEDIATE-DEPENDENTS0 (STEPI-H MISC-GROUP-H S&R-GROUP-H MOVE-GROUP-H MOVE-H BIT-GROUP-H BCC-GROUP-H CMP-GROUP-H SCC-GROUP-H OR-GROUP-H AND-GROUP-H SUB-GROUP-H ADD-GROUP-H MAPPING-H MC-INSTATE-MEM EFFEC-ADDR-MEM IMMEDIATE-MEM ADDR-INDEX2-MEM STEPI EXECUTE-INS BIT-GROUP CMPI-SUBGROUP CMPI-INS EORI-SUBGROUP EORI-TO-CCR-INS EORI-INS ADDI-SUBGROUP ADDI-INS SUBI-SUBGROUP SUBI-INS ANDI-SUBGROUP ANDI-TO-CCR-INS ANDI-INS ORI-SUBGROUP ORI-TO-CCR-INS ORI-INS S-BIT-SUBGROUP BTST-INS BSET-INS BCLR-INS BCHG-INS MOVEP-TO-REG MOVEP-TO-MEM CMPM-INS CMPM-MAPPING EOR-INS CMPA-INS CMP-INS MOVEQ-INS SCC-GROUP SUBQ-INS ADDQ-INS DBCC-INS SCC-INS BCC-GROUP MISC-GROUP NOT-SUBGROUP NOT-INS JSR-INS JMP-INS NOP-SUBGROUP TRAPV-INS RTR-INS RTD-INS RTD-MAPPING UNLK-SUBGROUP UNLK-INS LINK_W-INS LINK_L-INS LINK-MAPPING MOVEM-EA-RN-SUBGROUP MOVEM-EA-RN-INS MUL-DIV_L-INS MULS_L_DLDH MULU_L_DLDH DIV_L-INS DIVU_L DIVS_L DIVSL_L TST-SUBGROUP TAS-INS TST-INS EXT-SUBGROUP MOVEM-RN-EA-INS PEA-SUBGROUP PEA-INS MOVE-TO-CCR-INS NEG-INS NEGX-SUBGROUP NEGX-INS MOVE-FROM-CCR-INS CLR-INS LEA-SUBGROUP LEA-INS MOVEA-INS MOVE-INS BF-SUBGROUP MEM-ROXR-INS MEM-ROXL-INS MEM-ASR-INS MEM-ASL-INS MEM-LSR-INS MEM-LSL-INS MEM-ROR-INS MEM-ROL-INS OR-GROUP DIV_W-INS DIVU_W-INS DIVS_W-INS OR-INS2 OR-INS1 AND-GROUP MUL_W-INS AND-INS2 AND-INS1 SUBX-INS2 SUBA-INS SUB-INS2 SUB-INS1 ADDX-INS2 ADDA-INS ADD-INS2 ADD-INS1 M-MAPPING MC-INSTATE IMMEDIATE PC-INDEX PC-INDEX1 PC-DISP ABSOLUTE-LONG ABSOLUTE-SHORT ADDR-INDEX ADDR-INDEX1 ADDR-INDEX2 ADDR-INDEX3 MEM-POSTINDEX MEM-INDIRECT ADDR-DISP PUSH-SP) EVENT (DEFN HALT (SIGNAL S) (MC-STATE SIGNAL (MC-RFILE S) (MC-PC S) (MC-CCR S) (MC-MEM S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MC-MEM . HALT) (IMMEDIATE-DEPENDENTS0 MC-CCR . HALT) (IMMEDIATE-DEPENDENTS0 MC-PC . HALT) (IMMEDIATE-DEPENDENTS0 MC-RFILE . HALT) (IMMEDIATE-DEPENDENTS0 MC-STATE . HALT) (DCELL . *1*HALT))))) (PUT1-LST (QUOTE *1*SET-X) (QUOTE (MAIN-EVENT SET-X))) (PUT1-LST (QUOTE SET-X) (QUOTE (TYPE-PRESCRIPTION-LST ((SET-X 4 NIL NIL)) TOTALP-LST ((SET-X . T)) SDEFN (LAMBDA (X CCR) (SET-CVZNX (CVZNX (CCR-C CCR) (CCR-V CCR) (CCR-Z CCR) (CCR-N CCR) X) CCR)) LISP-CODE *1*SET-X SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214823 SATELLITES (*1*SET-X) EVENT (DEFN SET-X (X CCR) (SET-CVZNX (CVZNX (CCR-C CCR) (CCR-V CCR) (CCR-Z CCR) (CCR-N CCR) X) CCR)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CCR-N . SET-X) (IMMEDIATE-DEPENDENTS0 CCR-Z . SET-X) (IMMEDIATE-DEPENDENTS0 CCR-V . SET-X) (IMMEDIATE-DEPENDENTS0 CCR-C . SET-X) (IMMEDIATE-DEPENDENTS0 CVZNX . SET-X) (IMMEDIATE-DEPENDENTS0 SET-CVZNX . SET-X) (DCELL . *1*SET-X))))) (PUT1-LST (QUOTE *1*SET-N) (QUOTE (MAIN-EVENT SET-N))) (PUT1-LST (QUOTE SET-N) (QUOTE (TYPE-PRESCRIPTION-LST ((SET-N 4 NIL NIL)) TOTALP-LST ((SET-N . T)) SDEFN (LAMBDA (N CCR) (SET-CVZNX (CVZNX (CCR-C CCR) (CCR-V CCR) (CCR-Z CCR) N (CCR-X CCR)) CCR)) LISP-CODE *1*SET-N SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214823 SATELLITES (*1*SET-N) EVENT (DEFN SET-N (N CCR) (SET-CVZNX (CVZNX (CCR-C CCR) (CCR-V CCR) (CCR-Z CCR) N (CCR-X CCR)) CCR)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CCR-X . SET-N) (IMMEDIATE-DEPENDENTS0 CCR-Z . SET-N) (IMMEDIATE-DEPENDENTS0 CCR-V . SET-N) (IMMEDIATE-DEPENDENTS0 CCR-C . SET-N) (IMMEDIATE-DEPENDENTS0 CVZNX . SET-N) (IMMEDIATE-DEPENDENTS0 SET-CVZNX . SET-N) (DCELL . *1*SET-N))))) (PUT1-LST (QUOTE *1*SET-Z) (QUOTE (MAIN-EVENT SET-Z))) (PUT1-LST (QUOTE SET-Z) (QUOTE (TYPE-PRESCRIPTION-LST ((SET-Z 4 NIL NIL)) TOTALP-LST ((SET-Z . T)) SDEFN (LAMBDA (Z CCR) (SET-CVZNX (CVZNX (CCR-C CCR) (CCR-V CCR) Z (CCR-N CCR) (CCR-X CCR)) CCR)) LISP-CODE *1*SET-Z SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214823 SATELLITES (*1*SET-Z) IMMEDIATE-DEPENDENTS0 (BIT-GROUP-H BTST-INS BSET-EFFECT BCLR-EFFECT BCHG-EFFECT) EVENT (DEFN SET-Z (Z CCR) (SET-CVZNX (CVZNX (CCR-C CCR) (CCR-V CCR) Z (CCR-N CCR) (CCR-X CCR)) CCR)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CCR-X . SET-Z) (IMMEDIATE-DEPENDENTS0 CCR-N . SET-Z) (IMMEDIATE-DEPENDENTS0 CCR-V . SET-Z) (IMMEDIATE-DEPENDENTS0 CCR-C . SET-Z) (IMMEDIATE-DEPENDENTS0 CVZNX . SET-Z) (IMMEDIATE-DEPENDENTS0 SET-CVZNX . SET-Z) (DCELL . *1*SET-Z))))) (PUT1-LST (QUOTE *1*SET-V) (QUOTE (MAIN-EVENT SET-V))) (PUT1-LST (QUOTE SET-V) (QUOTE (TYPE-PRESCRIPTION-LST ((SET-V 4 NIL NIL)) TOTALP-LST ((SET-V . T)) SDEFN (LAMBDA (V CCR) (SET-CVZNX (CVZNX (CCR-C CCR) V (CCR-Z CCR) (CCR-N CCR) (CCR-X CCR)) CCR)) LISP-CODE *1*SET-V SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214823 SATELLITES (*1*SET-V) IMMEDIATE-DEPENDENTS0 (MISC-GROUP-H OR-GROUP-H DIVU_L DIVS_L DIVSL_L DIVU_W-INS DIVS_W-INS) EVENT (DEFN SET-V (V CCR) (SET-CVZNX (CVZNX (CCR-C CCR) V (CCR-Z CCR) (CCR-N CCR) (CCR-X CCR)) CCR)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CCR-X . SET-V) (IMMEDIATE-DEPENDENTS0 CCR-N . SET-V) (IMMEDIATE-DEPENDENTS0 CCR-Z . SET-V) (IMMEDIATE-DEPENDENTS0 CCR-C . SET-V) (IMMEDIATE-DEPENDENTS0 CVZNX . SET-V) (IMMEDIATE-DEPENDENTS0 SET-CVZNX . SET-V) (DCELL . *1*SET-V))))) (PUT1-LST (QUOTE *1*SET-C) (QUOTE (MAIN-EVENT SET-C))) (PUT1-LST (QUOTE SET-C) (QUOTE (TYPE-PRESCRIPTION-LST ((SET-C 4 NIL NIL)) TOTALP-LST ((SET-C . T)) SDEFN (LAMBDA (C CCR) (SET-CVZNX (CVZNX C (CCR-V CCR) (CCR-Z CCR) (CCR-N CCR) (CCR-X CCR)) CCR)) LISP-CODE *1*SET-C SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214823 SATELLITES (*1*SET-C) EVENT (DEFN SET-C (C CCR) (SET-CVZNX (CVZNX C (CCR-V CCR) (CCR-Z CCR) (CCR-N CCR) (CCR-X CCR)) CCR)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CCR-X . SET-C) (IMMEDIATE-DEPENDENTS0 CCR-N . SET-C) (IMMEDIATE-DEPENDENTS0 CCR-Z . SET-C) (IMMEDIATE-DEPENDENTS0 CCR-V . SET-C) (IMMEDIATE-DEPENDENTS0 CVZNX . SET-C) (IMMEDIATE-DEPENDENTS0 SET-CVZNX . SET-C) (DCELL . *1*SET-C))))) (PUT1-LST (QUOTE *1*SET-CVZNX) (QUOTE (MAIN-EVENT SET-CVZNX))) (PUT1-LST (QUOTE SET-CVZNX) (QUOTE (TYPE-PRESCRIPTION-LST ((SET-CVZNX 4 NIL NIL)) LEMMAS ((REWRITE-RULE SET-SET-CVZNX2 NIL (EQUAL (SET-CVZNX (SET-CVZNX X CCR) CCR) (SET-CVZNX X CCR)) NIL) (REWRITE-RULE SET-CVZNX-CCR NIL (EQUAL (SET-CVZNX CCR CCR) (IF (NUMBERP CCR) CCR (QUOTE 0))) NIL) (REWRITE-RULE SET-SET-CVZNX1 NIL (EQUAL (SET-CVZNX X (SET-CVZNX Y CCR)) (SET-CVZNX X CCR)) NIL)) TOTALP-LST ((SET-CVZNX . T)) SDEFN (LAMBDA (CVZNX CCR) (REPLACE (QUOTE 5) CVZNX CCR)) LISP-CODE *1*SET-CVZNX SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214823 SATELLITES (*1*SET-CVZNX) IMMEDIATE-DEPENDENTS0 (SET-CVZNX-OFF SET-CVZNX-NAT-RANGEP SET-SET-CVZNX2 SET-CVZNX-CCR SET-SET-CVZNX1 SET-CVZNX-X SET-CVZNX-N SET-CVZNX-Z SET-CVZNX-V SET-CVZNX-C M-MAPPING A-MAPPING D-MAPPING UPDATE-CCR SET-X SET-N SET-Z SET-V SET-C) EVENT (DEFN SET-CVZNX (CVZNX CCR) (REPLACE (QUOTE 5) CVZNX CCR)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REPLACE . SET-CVZNX) (DCELL . *1*SET-CVZNX))))) (PUT1-LST (QUOTE *1*CVZNX) (QUOTE (MAIN-EVENT CVZNX))) (PUT1-LST (QUOTE CVZNX) (QUOTE (TYPE-PRESCRIPTION-LST ((CVZNX 4 NIL NIL NIL NIL NIL)) TOTALP-LST ((CVZNX . T)) SDEFN (LAMBDA (C V Z N X) (PLUS (FIX-BIT C) (PLUS (TIMES (QUOTE 2) (FIX-BIT V)) (PLUS (TIMES (QUOTE 4) (FIX-BIT Z)) (PLUS (TIMES (QUOTE 8) (FIX-BIT N)) (TIMES (QUOTE 16) (FIX-BIT X))))))) LISP-CODE *1*CVZNX SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402214823 SATELLITES (*1*CVZNX) IMMEDIATE-DEPENDENTS0 (CVZNX-OFF SET-CVZNX-X SET-CVZNX-N SET-CVZNX-Z SET-CVZNX-V SET-CVZNX-C EOR-CVZNX CMP-CVZNX NOT-CVZNX SWAP-CVZNX CLR-CVZNX EXT-CVZNX MOVE-CVZNX ROXR-CVZNX ROXL-CVZNX ASR-CVZNX ASL-CVZNX LSR-CVZNX LSL-CVZNX ROR-CVZNX ROL-CVZNX DIVU-CVZNX DIVS-CVZNX OR-CVZNX MULS-CVZNX MULU-CVZNX AND-CVZNX SUBX-CVZNX SUB-CVZNX ADDX-CVZNX ADD-CVZNX SET-X SET-N SET-Z SET-V SET-C) EVENT (DEFN CVZNX (C V Z N X) (PLUS (FIX-BIT C) (PLUS (TIMES (QUOTE 2) (FIX-BIT V)) (PLUS (TIMES (QUOTE 4) (FIX-BIT Z)) (PLUS (TIMES (QUOTE 8) (FIX-BIT N)) (TIMES (QUOTE 16) (FIX-BIT X))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FIX-BIT . CVZNX) (DCELL . *1*CVZNX))))) (PUT1-LST (QUOTE *1*CCR-X) (QUOTE (MAIN-EVENT CCR-X))) (PUT1-LST (QUOTE CCR-X) (QUOTE (TYPE-PRESCRIPTION-LST ((CCR-X 4 NIL)) LEMMAS ((REWRITE-RULE SET-CVZNX-X NIL (EQUAL (CCR-X (SET-CVZNX (CVZNX C V Z N X) CCR)) (FIX-BIT X)) NIL)) TOTALP-LST ((CCR-X . T)) SDEFN (LAMBDA (CCR) (BITN CCR (QUOTE 4))) LISP-CODE *1*CCR-X SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214823 SATELLITES (*1*CCR-X) IMMEDIATE-DEPENDENTS0 (CCR-X-OFF SET-CVZNX-X EOR-CVZNX CMP-CVZNX NOT-CVZNX SWAP-CVZNX CLR-CVZNX EXT-CVZNX MOVE-CVZNX ROXR-EFFECT ROXL-EFFECT ASR-X ASL-X LSR-X LSL-X ROR-CVZNX ROL-CVZNX DIVU-CVZNX DIVS-CVZNX OR-CVZNX MULS-CVZNX MULU-CVZNX AND-CVZNX SUBX-EFFECT ADDX-EFFECT SET-N SET-Z SET-V SET-C) EVENT (DEFN CCR-X (CCR) (BITN CCR (QUOTE 4))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BITN . CCR-X) (DCELL . *1*CCR-X))))) (PUT1-LST (QUOTE *1*CCR-N) (QUOTE (MAIN-EVENT CCR-N))) (PUT1-LST (QUOTE CCR-N) (QUOTE (TYPE-PRESCRIPTION-LST ((CCR-N 4 NIL)) LEMMAS ((REWRITE-RULE SET-CVZNX-N NIL (EQUAL (CCR-N (SET-CVZNX (CVZNX C V Z N X) CCR)) (FIX-BIT N)) NIL)) TOTALP-LST ((CCR-N . T)) SDEFN (LAMBDA (CCR) (BITN CCR (QUOTE 3))) LISP-CODE *1*CCR-N SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214823 SATELLITES (*1*CCR-N) IMMEDIATE-DEPENDENTS0 (CCR-N-OFF SET-CVZNX-N BRANCH-CC SET-X SET-Z SET-V SET-C) EVENT (DEFN CCR-N (CCR) (BITN CCR (QUOTE 3))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BITN . CCR-N) (DCELL . *1*CCR-N))))) (PUT1-LST (QUOTE *1*CCR-Z) (QUOTE (MAIN-EVENT CCR-Z))) (PUT1-LST (QUOTE CCR-Z) (QUOTE (TYPE-PRESCRIPTION-LST ((CCR-Z 4 NIL)) LEMMAS ((REWRITE-RULE SET-CVZNX-Z NIL (EQUAL (CCR-Z (SET-CVZNX (CVZNX C V Z N X) CCR)) (FIX-BIT Z)) NIL)) TOTALP-LST ((CCR-Z . T)) SDEFN (LAMBDA (CCR) (BITN CCR (QUOTE 2))) LISP-CODE *1*CCR-Z SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214823 SATELLITES (*1*CCR-Z) IMMEDIATE-DEPENDENTS0 (CCR-Z-OFF SET-CVZNX-Z BRANCH-CC SUBX-EFFECT ADDX-EFFECT SET-X SET-N SET-V SET-C) EVENT (DEFN CCR-Z (CCR) (BITN CCR (QUOTE 2))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BITN . CCR-Z) (DCELL . *1*CCR-Z))))) (PUT1-LST (QUOTE *1*CCR-V) (QUOTE (MAIN-EVENT CCR-V))) (PUT1-LST (QUOTE CCR-V) (QUOTE (TYPE-PRESCRIPTION-LST ((CCR-V 4 NIL)) LEMMAS ((REWRITE-RULE SET-CVZNX-V NIL (EQUAL (CCR-V (SET-CVZNX (CVZNX C V Z N X) CCR)) (FIX-BIT V)) NIL)) TOTALP-LST ((CCR-V . T)) SDEFN (LAMBDA (CCR) (BITN CCR (QUOTE 1))) LISP-CODE *1*CCR-V SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214823 SATELLITES (*1*CCR-V) IMMEDIATE-DEPENDENTS0 (CCR-V-OFF SET-CVZNX-V BRANCH-CC TRAPV-INS SET-X SET-N SET-Z SET-C) EVENT (DEFN CCR-V (CCR) (BITN CCR (QUOTE 1))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BITN . CCR-V) (DCELL . *1*CCR-V))))) (PUT1-LST (QUOTE *1*CCR-C) (QUOTE (MAIN-EVENT CCR-C))) (PUT1-LST (QUOTE CCR-C) (QUOTE (TYPE-PRESCRIPTION-LST ((CCR-C 4 NIL)) LEMMAS ((REWRITE-RULE SET-CVZNX-C NIL (EQUAL (CCR-C (SET-CVZNX (CVZNX C V Z N X) CCR)) (FIX-BIT C)) NIL)) TOTALP-LST ((CCR-C . T)) SDEFN (LAMBDA (CCR) (BITN CCR (QUOTE 0))) LISP-CODE *1*CCR-C SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214823 SATELLITES (*1*CCR-C) IMMEDIATE-DEPENDENTS0 (CCR-C-OFF SET-CVZNX-C BRANCH-CC SET-X SET-N SET-Z SET-V) EVENT (DEFN CCR-C (CCR) (BITN CCR (QUOTE 0))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BITN . CCR-C) (DCELL . *1*CCR-C))))) (PUT1-LST (QUOTE *1*WRITE-MEM) (QUOTE (MAIN-EVENT WRITE-MEM))) (PUT1-LST (QUOTE WRITE-MEM) (QUOTE (TYPE-PRESCRIPTION-LST ((WRITE-MEM 16 NIL NIL T NIL)) LEMMAS ((REWRITE-RULE WRITE-WRITE-MEM NIL (EQUAL (WRITE-MEM V2 X (WRITE-MEM V1 X MEM N) N) (WRITE-MEM V2 X MEM N)) NIL) (REWRITE-RULE WRITE-MEM-BYTE-WRITE NIL (EQUAL (WRITE-MEM V2 Y (BYTE-WRITE V1 X MEM) N) (IF (DISJOINT0 Y N X) (BYTE-WRITE V1 X (WRITE-MEM V2 Y MEM N)) (WRITE-MEM V2 Y MEM N))) NIL) (REWRITE-RULE HEAD-WRITE-MEM NIL (EQUAL (WRITE-MEM VALUE (HEAD X (QUOTE 32)) MEM K) (WRITE-MEM VALUE X MEM K)) NIL)) TOTALP-LST ((WRITE-MEM . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE UNCHANGING SELF-REFLEXIVE SELF-REFLEXIVE) SDEFN (LAMBDA (VALUE X MEM K) (IF (EQUAL K (QUOTE 0)) MEM (IF (NUMBERP K) (WRITE-MEM (TAIL VALUE (B)) X (BYTE-WRITE VALUE (ADD (QUOTE 32) X (SUB1 K)) MEM) (SUB1 K)) MEM))) LISP-CODE *1*WRITE-MEM SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((ZEROP K)) NIL) (TESTS-AND-CASES ((NOT (ZEROP K))) (((TAIL VALUE (B)) X (BYTE-WRITE VALUE (ADD (QUOTE 32) X (SUB1 K)) MEM) (SUB1 K))))) LEVEL-NO 5 JUSTIFICATIONS ((JUSTIFICATION (K) (COUNT K) LESSP (ZEROP COUNT-NUMBERP LESSP-SUB1))) IDATE 1000402214823 CONTROLLER-POCKETS (8) SATELLITES (*1*WRITE-MEM) IMMEDIATE-DEPENDENTS0 (WRITE-MEM-MAINTAIN-MOVEP-WRITEP H-INVARIANT WRITE-MEM-OFF READM-WRITE-MEM WRITE-MEM-ILST-ASL WRITE-MEM-LST-ASL WRITE-MEM-ILST-INT WRITE-MEM-LST-INT WRITE-MEM-ILST0 WRITE-MEM-LST0 WRITE-MEM-ILST WRITE-MEM-LST MEM-LST-PUT-VALS MEM-LST-PUT-LST WRITE-MEM-LST-LA WRITE-ELSE-MEM-ILST WRITE-ELSE-MEM-LST BYTE-WRITE=WRITE-MEM-1 WRITE-MEM-MCODE-ADDRP WRITE-MEM-MAINTAIN-RAM-ADDRP WRITE-MEM-MAINTAIN-ROM-ADDRP WRITE-WRITE-MEM WRITE-MEM-BYTE-WRITE READ-WRITE-MEM2 BYTE-READ-WRITE-MEM-LEMMA READ-WRITE-MEM1 READ-WRITE-MEM-END BYTE-READ-WRITE-MEM BYTE-READ-WRITE-MEM-END PC-READ-MEM-WRITE-MEM PC-BYTE-READ-WRITE-MEM WRITE-MEM-MAINTAIN-WRITE-MEMP WRITE-MEM-MAINTAIN-READ-MEMP WRITE-MEM-MAINTAIN-PC-READ-MEMP WRITE-MEM-MAINTAIN-BYTE-WRITEP WRITE-MEM-MAINTAIN-BYTE-READP WRITE-MEM-MAINTAIN-PC-BYTE-READP HEAD-WRITE-MEM LOAD-LST-MEM LINK-MAPPING WRITEM-MEM M-MAPPING PUSH-SP) EVENT (DEFN WRITE-MEM (VALUE X MEM K) (IF (ZEROP K) MEM (WRITE-MEM (TAIL VALUE (B)) X (BYTE-WRITE VALUE (ADD (QUOTE 32) X (SUB1 K)) MEM) (SUB1 K)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ADD . WRITE-MEM) (IMMEDIATE-DEPENDENTS0 BYTE-WRITE . WRITE-MEM) (IMMEDIATE-DEPENDENTS0 B . WRITE-MEM) (IMMEDIATE-DEPENDENTS0 TAIL . WRITE-MEM) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . WRITE-MEM) (DCELL . *1*WRITE-MEM))))) (PUT1-LST (QUOTE *1*BYTE-WRITE) (QUOTE (MAIN-EVENT BYTE-WRITE))) (PUT1-LST (QUOTE BYTE-WRITE) (QUOTE (TYPE-PRESCRIPTION-LST ((BYTE-WRITE 16 NIL NIL NIL)) LEMMAS ((REWRITE-RULE BYTE-WRITE=WRITE-MEM-1 NIL (EQUAL (BYTE-WRITE VALUE ADDR MEM) (WRITE-MEM VALUE ADDR MEM (QUOTE 1))) NIL) (REWRITE-RULE BYTE-WRITE-APP ((NOT (LESSP N (QUOTE 8)))) (EQUAL (BYTE-WRITE (APP N X Y) ADDR MEM) (BYTE-WRITE X ADDR MEM)) NIL) (REWRITE-RULE BYTE-WRITE-WRITE NIL (EQUAL (BYTE-WRITE V2 X (BYTE-WRITE V1 X MEM)) (BYTE-WRITE V2 X MEM)) NIL) (REWRITE-RULE HEAD-BYTE-WRITE NIL (EQUAL (BYTE-WRITE VALUE (HEAD X (QUOTE 32)) MEM) (BYTE-WRITE VALUE X MEM)) NIL)) TOTALP-LST ((BYTE-WRITE . T)) SDEFN (LAMBDA (VALUE X MEM) (CONS (CAR MEM) (WRITE (HEAD VALUE (B)) X (QUOTE 32) (CDR MEM)))) LISP-CODE *1*BYTE-WRITE SUBRP *1*FALSE LEVEL-NO 4 IDATE 1000402214823 SATELLITES (*1*BYTE-WRITE) IMMEDIATE-DEPENDENTS0 (MEM-INDUCT4 MEM-INDUCT3 BYTE-WRITE=WRITE-MEM-1 BYTE-WRITE-MCODE-ADDRP BYTE-WRITE-MAINTAIN-RAM-ADDRP BYTE-WRITE-MAINTAIN-ROM-ADDRP WRITE-MEM-BYTE-WRITE READ-MEM-BYTE-WRITE READ-MEM-BYTE-WRITE-END PC-READ-MEM-BYTE-WRITE BYTE-WRITE-MAINTAIN-WRITE-MEMP BYTE-WRITE-MAINTAIN-READ-MEMP BYTE-WRITE-MAINTAIN-PC-READ-MEMP BYTE-WRITE-OFF BYTE-WRITE-APP BYTE-WRITE-MAINTAIN-BYTE-WRITEP BYTE-WRITE-MAINTAIN-BYTE-READP BYTE-WRITE-MAINTAIN-PC-BYTE-READP PC-BYTE-READ-WRITE BYTE-WRITE-WRITE BYTE-WRITE-WRITE-LA BYTE-READ-WRITE HEAD-WRITE-MEM HEAD-BYTE-WRITE MOVEP-WRITE WRITE-MEM) EVENT (DEFN BYTE-WRITE (VALUE X MEM) (CONS (CAR MEM) (WRITE (HEAD VALUE (B)) X (QUOTE 32) (CDR MEM)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B . BYTE-WRITE) (IMMEDIATE-DEPENDENTS0 HEAD . BYTE-WRITE) (IMMEDIATE-DEPENDENTS0 WRITE . BYTE-WRITE) (DCELL . *1*BYTE-WRITE))))) (PUT1-LST (QUOTE *1*WRITE-MEMP) (QUOTE (MAIN-EVENT WRITE-MEMP))) (PUT1-LST (QUOTE WRITE-MEMP) (QUOTE (TYPE-PRESCRIPTION-LST ((WRITE-MEMP 3 NIL NIL NIL)) LEMMAS ((REWRITE-RULE WRITE-MEMP-RAM1-UINT ((RAM-ADDRP ADDR MEM K) (NOT (LESSP K (PLUS (NAT-TO-UINT I) J)))) (WRITE-MEMP (ADD (QUOTE 32) ADDR I) MEM J) NIL) (REWRITE-RULE STEPN-WRITE-MEMP ((T3 X (MC-MEM S) K)) (EQUAL (WRITE-MEMP X (MC-MEM (STEPN S N)) K) (WRITE-MEMP X (MC-MEM S) K)) NIL) (REWRITE-RULE WRITEM-MEM-MAINTAIN-WRITE-MEMP NIL (EQUAL (WRITE-MEMP X (WRITEM-MEM OPSZ VLST ADDR MEM) N) (WRITE-MEMP X MEM N)) NIL) (REWRITE-RULE WRITE-MEMP-RAM1-ASL ((RAM-ADDRP ADDR MEM N) (EQUAL OPSZ (EXP (QUOTE 2) CNT)) (LESSP (NAT-TO-INT X (QUOTE 32)) (QUOTIENT N OPSZ)) (NUMBERP (NAT-TO-INT X (QUOTE 32)))) (WRITE-MEMP (ADD (QUOTE 32) ADDR (ASL (QUOTE 32) X CNT)) MEM OPSZ) NIL) (REWRITE-RULE WRITE-MEMP-RAM3 ((RAM-ADDRP (ADD (QUOTE 32) ADDR I) MEM K) (NOT (LESSP K (PLUS (INDEX-N H I) J)))) (WRITE-MEMP (ADD (QUOTE 32) ADDR H) MEM J) NIL) (REWRITE-RULE WRITE-MEMP-RAM2 ((RAM-ADDRP (ADD (QUOTE 32) ADDR I) MEM K) (NOT (LESSP K (PLUS (INDEX-N (QUOTE 0) I) J)))) (WRITE-MEMP ADDR MEM J) NIL) (REWRITE-RULE WRITE-MEMP-RAM1-INT ((RAM-ADDRP ADDR MEM K) (NUMBERP (NAT-TO-INT I (QUOTE 32))) (NOT (LESSP K (PLUS (NAT-TO-INT I (QUOTE 32)) J)))) (WRITE-MEMP (ADD (QUOTE 32) ADDR I) MEM J) NIL) (REWRITE-RULE WRITE-MEMP-RAM1 ((RAM-ADDRP ADDR MEM K) (NOT (LESSP K (PLUS I J)))) (WRITE-MEMP (ADD (QUOTE 32) ADDR I) MEM J) NIL) (REWRITE-RULE WRITE-MEMP-RAM0 ((RAM-ADDRP ADDR MEM K) (NOT (LESSP K J))) (WRITE-MEMP ADDR MEM J) NIL) (REWRITE-RULE WRITE-MEMP-LA3 ((WRITE-MEMP ADDR MEM N) (NOT (LESSP N (PLUS I J)))) (WRITE-MEMP (ADD (QUOTE 32) ADDR I) MEM J) NIL) (REWRITE-RULE WRITE-MEMP-LA2 ((WRITE-MEMP ADDR MEM N) (NOT (LESSP N M))) (WRITE-MEMP ADDR MEM M) NIL) (REWRITE-RULE WRITE-MEM-MAINTAIN-WRITE-MEMP NIL (EQUAL (WRITE-MEMP ADDR (WRITE-MEM VALUE X MEM M) N) (WRITE-MEMP ADDR MEM N)) NIL) (REWRITE-RULE BYTE-WRITE-MAINTAIN-WRITE-MEMP NIL (EQUAL (WRITE-MEMP ADDR (BYTE-WRITE VALUE X MEM) N) (WRITE-MEMP ADDR MEM N)) NIL) (REWRITE-RULE HEAD-WRITE-MEMP NIL (EQUAL (WRITE-MEMP (HEAD X (QUOTE 32)) MEM K) (WRITE-MEMP X MEM K)) NIL)) TOTALP-LST ((WRITE-MEMP . T)) QUICK-BLOCK-INFO (UNCHANGING UNCHANGING SELF-REFLEXIVE) SDEFN (LAMBDA (X MEM K) (IF (EQUAL K (QUOTE 0)) (QUOTE *1*TRUE) (IF (NUMBERP K) (IF (BYTE-WRITEP (ADD (QUOTE 32) X (SUB1 K)) MEM) (IF (WRITE-MEMP X MEM (SUB1 K)) (QUOTE *1*TRUE) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*TRUE)))) LISP-CODE *1*WRITE-MEMP SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((ZEROP K)) NIL) (TESTS-AND-CASES ((NOT (ZEROP K))) ((X MEM (SUB1 K))))) LEVEL-NO 5 JUSTIFICATIONS ((JUSTIFICATION (K) (COUNT K) LESSP (ZEROP COUNT-NUMBERP LESSP-SUB1))) IDATE 1000402214823 CONTROLLER-POCKETS (4) SATELLITES (*1*WRITE-MEMP) IMMEDIATE-DEPENDENTS0 (WRITE-MEMP-RAM1-UINT STEPN-WRITE-MEMP WRITEM-MEM-H H-INVARIANT WRITE-MEMP-OFF WRITEM-MEM-MCODE-ADDRP PC-READ-MEM-WRITEM-MEM WRITEM-MEM-MAINTAIN-WRITE-MEMP WRITE-MEMP-RAM1-ASL BYTE-WRITEP=WRITE-MEMP-1 WRITE-MEM-MCODE-ADDRP WRITE-MEMP-RAM3 WRITE-MEMP-RAM2 WRITE-MEMP-RAM1-INT WRITE-MEMP-RAM1 WRITE-MEMP-RAM0 BYTE-WRITEP-RAM2 WRITE-MEMP-LA3 WRITE-MEMP-LA2 WRITE-MEMP-LA1 WRITE-MEMP-LA0 PC-READ-MEM-WRITE-MEM PC-BYTE-READ-WRITE-MEM WRITE-MEMP->READ-MEMP WRITE-MEM-MAINTAIN-WRITE-MEMP BYTE-WRITE-MAINTAIN-WRITE-MEMP HEAD-WRITE-MEMP RAM-ADDRP LINK-MAPPING WRITEMP M-MAPPING PUSH-SP) EVENT (DEFN WRITE-MEMP (X MEM K) (IF (ZEROP K) (QUOTE *1*TRUE) (AND (BYTE-WRITEP (ADD (QUOTE 32) X (SUB1 K)) MEM) (WRITE-MEMP X MEM (SUB1 K))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ADD . WRITE-MEMP) (IMMEDIATE-DEPENDENTS0 BYTE-WRITEP . WRITE-MEMP) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . WRITE-MEMP) (DCELL . *1*WRITE-MEMP))))) (PUT1-LST (QUOTE *1*BYTE-WRITEP) (QUOTE (MAIN-EVENT BYTE-WRITEP))) (PUT1-LST (QUOTE BYTE-WRITEP) (QUOTE (TYPE-PRESCRIPTION-LST ((BYTE-WRITEP 3 NIL NIL)) LEMMAS ((REWRITE-RULE WRITEM-MEM-MAINTAIN-BYTE-WRITEP NIL (EQUAL (BYTE-WRITEP X (WRITEM-MEM OPSZ VLST ADDR MEM)) (BYTE-WRITEP X MEM)) NIL) (REWRITE-RULE BYTE-WRITEP=WRITE-MEMP-1 NIL (EQUAL (BYTE-WRITEP X MEM) (WRITE-MEMP X MEM (QUOTE 1))) NIL) (REWRITE-RULE BYTE-WRITEP-RAM3 ((RAM-ADDRP (ADD (QUOTE 32) ADDR I) MEM K) (LESSP (INDEX-N J I) K)) (BYTE-WRITEP (ADD (QUOTE 32) ADDR J) MEM) NIL) (REWRITE-RULE BYTE-WRITEP-RAM2 ((RAM-ADDRP (ADD (QUOTE 32) ADDR I) MEM K) (LESSP (INDEX-N (QUOTE 0) I) K)) (BYTE-WRITEP ADDR MEM) NIL) (REWRITE-RULE BYTE-WRITEP-RAM1 ((RAM-ADDRP ADDR MEM K) (LESSP J K)) (BYTE-WRITEP (ADD (QUOTE 32) ADDR J) MEM) NIL) (REWRITE-RULE BYTE-WRITEP-RAM0 ((RAM-ADDRP ADDR MEM K) (NUMBERP K) (NOT (EQUAL K (QUOTE 0)))) (BYTE-WRITEP ADDR MEM) NIL) (REWRITE-RULE WRITE-MEMP-LA1 ((WRITE-MEMP ADDR MEM N) (LESSP M N)) (BYTE-WRITEP (ADD (QUOTE 32) ADDR M) MEM) NIL) (REWRITE-RULE WRITE-MEMP-LA0 ((WRITE-MEMP ADDR MEM N) (NUMBERP N) (NOT (EQUAL N (QUOTE 0)))) (BYTE-WRITEP ADDR MEM) NIL) (REWRITE-RULE WRITE-MEM-MAINTAIN-BYTE-WRITEP NIL (EQUAL (BYTE-WRITEP ADDR (WRITE-MEM VALUE X MEM K)) (BYTE-WRITEP ADDR MEM)) NIL) (REWRITE-RULE BYTE-WRITE-MAINTAIN-BYTE-WRITEP NIL (EQUAL (BYTE-WRITEP X (BYTE-WRITE VALUE Y MEM)) (BYTE-WRITEP X MEM)) NIL) (REWRITE-RULE HEAD-BYTE-WRITEP NIL (EQUAL (BYTE-WRITEP (HEAD X (QUOTE 32)) MEM) (BYTE-WRITEP X MEM)) NIL)) TOTALP-LST ((BYTE-WRITEP . T)) SDEFN (LAMBDA (X MEM) (WRITEP X (QUOTE 32) (CAR MEM))) LISP-CODE *1*BYTE-WRITEP SUBRP *1*FALSE LEVEL-NO 4 IDATE 1000402214823 SATELLITES (*1*BYTE-WRITEP) IMMEDIATE-DEPENDENTS0 (WRITEM-MEM-MAINTAIN-BYTE-WRITEP BYTE-WRITEP=WRITE-MEMP-1 BYTE-WRITE-MCODE-ADDRP BYTE-WRITEP-RAM3 BYTE-WRITEP-RAM2 BYTE-WRITEP-RAM1 BYTE-WRITEP-RAM0 WRITE-MEMP-LA1 WRITE-MEMP-LA0 PC-READ-MEM-BYTE-WRITE WRITE-MEM-MAINTAIN-BYTE-WRITEP BYTE-WRITEP-OFF BYTE-WRITE-MAINTAIN-BYTE-WRITEP PC-BYTE-READ-WRITE BYTE-WRITEP->READP HEAD-WRITE-MEMP HEAD-BYTE-WRITEP MOVEP-WRITEP WRITE-MEMP) EVENT (DEFN BYTE-WRITEP (X MEM) (WRITEP X (QUOTE 32) (CAR MEM))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 WRITEP . BYTE-WRITEP) (DCELL . *1*BYTE-WRITEP))))) (PUT1-LST (QUOTE *1*OP-LEN) (QUOTE (MAIN-EVENT OP-LEN))) (PUT1-LST (QUOTE OP-LEN) (QUOTE (TYPE-PRESCRIPTION-LST ((OP-LEN 4 NIL)) TOTALP-LST ((OP-LEN . T)) SDEFN (LAMBDA (INS) (TIMES (B) (EXP (QUOTE 2) (BITS INS (QUOTE 6) (QUOTE 7))))) LISP-CODE *1*OP-LEN SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214823 SATELLITES (*1*OP-LEN) IMMEDIATE-DEPENDENTS0 (GCD-S0-S0-RFILE-2 GCD-S0-S0-RFILE-1 GCD-S0-S0-2 GCD-S0-S0-1 GCD-S0-SN-BASE-RFILE-2 GCD-S0-SN-BASE-2 GCD-S0-SN-BASE-RFILE-1 GCD-S0-SN-BASE-1 STEPI-H EXECUTE-INS BIT-GROUP SCC-GROUP NOT-SUBGROUP TST-SUBGROUP NEG-SUBGROUP NEGX-SUBGROUP CLR-SUBGROUP S&R-GROUP SUB-GROUP ADD-GROUP) EVENT (DEFN OP-LEN (INS) (TIMES (B) (EXP (QUOTE 2) (BITS INS (QUOTE 6) (QUOTE 7))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BITS . OP-LEN) (IMMEDIATE-DEPENDENTS0 EXP . OP-LEN) (IMMEDIATE-DEPENDENTS0 B . OP-LEN) (DCELL . *1*OP-LEN))))) (PUT1-LST (QUOTE *1*COND-FIELD) (QUOTE (MAIN-EVENT COND-FIELD))) (PUT1-LST (QUOTE COND-FIELD) (QUOTE (TYPE-PRESCRIPTION-LST ((COND-FIELD 4 NIL)) TOTALP-LST ((COND-FIELD . T)) SDEFN (LAMBDA (INS) (BITS INS (QUOTE 8) (QUOTE 11))) LISP-CODE *1*COND-FIELD SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214823 SATELLITES (*1*COND-FIELD) IMMEDIATE-DEPENDENTS0 (GCD-S0-S0-RFILE-2 GCD-S0-S0-RFILE-1 GCD-S0-S0-2 GCD-S0-S0-1 GCD-S0-SN-BASE-RFILE-2 GCD-S0-SN-BASE-2 GCD-S0-SN-BASE-RFILE-1 GCD-S0-SN-BASE-1 BCC-GROUP-H SCC-GROUP-H DBCC-INS SCC-INS BCC-GROUP) EVENT (DEFN COND-FIELD (INS) (BITS INS (QUOTE 8) (QUOTE 11))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BITS . COND-FIELD) (DCELL . *1*COND-FIELD))))) (PUT1-LST (QUOTE *1*OPMODE-FIELD) (QUOTE (MAIN-EVENT OPMODE-FIELD))) (PUT1-LST (QUOTE OPMODE-FIELD) (QUOTE (TYPE-PRESCRIPTION-LST ((OPMODE-FIELD 4 NIL)) TOTALP-LST ((OPMODE-FIELD . T)) SDEFN (LAMBDA (INS) (BITS INS (QUOTE 6) (QUOTE 8))) LISP-CODE *1*OPMODE-FIELD SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214823 SATELLITES (*1*OPMODE-FIELD) IMMEDIATE-DEPENDENTS0 (STEPI-H BIT-GROUP-H EXECUTE-INS D-BIT-SUBGROUP) EVENT (DEFN OPMODE-FIELD (INS) (BITS INS (QUOTE 6) (QUOTE 8))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BITS . OPMODE-FIELD) (DCELL . *1*OPMODE-FIELD))))) (PUT1-LST (QUOTE *1*D_RN) (QUOTE (MAIN-EVENT D_RN))) (PUT1-LST (QUOTE D_RN) (QUOTE (TYPE-PRESCRIPTION-LST ((D_RN 4 NIL)) TOTALP-LST ((D_RN . T)) SDEFN (LAMBDA (INS) (BITS INS (QUOTE 9) (QUOTE 11))) LISP-CODE *1*D_RN SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214823 SATELLITES (*1*D_RN) IMMEDIATE-DEPENDENTS0 (GCD-S0-S0-RFILE-2 GCD-S0-S0-RFILE-1 GCD-S0-S0-2 GCD-S0-S0-1 GCD-S0-SN-BASE-RFILE-2 GCD-S0-SN-BASE-2 GCD-S0-SN-BASE-RFILE-1 GCD-S0-SN-BASE-1 GCD-S-S0-MEM GCD-S-S0-RFILE GCD-S-S0 STEPI-H MISC-GROUP-H MOVE-GROUP-H MOVE-H BIT-GROUP-H CMP-GROUP-H SCC-GROUP-H OR-GROUP-H AND-GROUP-H SUB-GROUP-H ADD-GROUP-H D-BIT-SUBGROUP MOVEP-TO-REG MOVEP-TO-MEM CMPM-MAPPING EOR-INS CMPA-INS CMP-INS MOVEQ-INS SUBQ-INS ADDQ-INS LEA-INS MOVEA-INS MOVE-MAPPING MOVE-ADDR-MODEP SR-CNT DIV_W-INS OR-INS2 OR-INS1 MUL_W-INS EXG-DRAR-INS EXG-ARAR-INS EXG-DRDR-INS AND-INS2 AND-INS1 SUBX-INS2 SUBX-INS1 SUBA-INS SUB-INS2 SUB-INS1 ADDX-INS2 ADDX-INS1 ADDA-INS ADD-INS2 ADD-INS1) EVENT (DEFN D_RN (INS) (BITS INS (QUOTE 9) (QUOTE 11))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BITS . D_RN) (DCELL . *1*D_RN))))) (PUT1-LST (QUOTE *1*D_MODE) (QUOTE (MAIN-EVENT D_MODE))) (PUT1-LST (QUOTE D_MODE) (QUOTE (TYPE-PRESCRIPTION-LST ((D_MODE 4 NIL)) TOTALP-LST ((D_MODE . T)) SDEFN (LAMBDA (INS) (BITS INS (QUOTE 6) (QUOTE 8))) LISP-CODE *1*D_MODE SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214823 SATELLITES (*1*D_MODE) IMMEDIATE-DEPENDENTS0 (GCD-S0-S0-RFILE-2 GCD-S0-S0-RFILE-1 GCD-S0-S0-2 GCD-S0-S0-1 GCD-S0-SN-BASE-RFILE-2 GCD-S0-SN-BASE-2 GCD-S0-SN-BASE-RFILE-1 GCD-S0-SN-BASE-1 GCD-S-S0-MEM GCD-S-S0-RFILE GCD-S-S0 MOVE-GROUP-H MOVE-H MOVE-GROUP MOVE-MAPPING MOVE-ADDR-MODEP) EVENT (DEFN D_MODE (INS) (BITS INS (QUOTE 6) (QUOTE 8))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BITS . D_MODE) (DCELL . *1*D_MODE))))) (PUT1-LST (QUOTE *1*S_MODE) (QUOTE (MAIN-EVENT S_MODE))) (PUT1-LST (QUOTE S_MODE) (QUOTE (TYPE-PRESCRIPTION-LST ((S_MODE 4 NIL)) TOTALP-LST ((S_MODE . T)) SDEFN (LAMBDA (INS) (BITS INS (QUOTE 3) (QUOTE 5))) LISP-CODE *1*S_MODE SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214823 SATELLITES (*1*S_MODE) IMMEDIATE-DEPENDENTS0 (GCD-S0-S0-RFILE-2 GCD-S0-S0-RFILE-1 GCD-S0-S0-2 GCD-S0-S0-1 GCD-S0-SN-BASE-RFILE-2 GCD-S0-SN-BASE-2 GCD-S0-SN-BASE-RFILE-1 GCD-S0-SN-BASE-1 GCD-S-S0-MEM GCD-S-S0-RFILE GCD-S-S0 MISC-GROUP-H BIT-GROUP-H CMP-GROUP-H SCC-GROUP-H OR-GROUP-H AND-GROUP-H SUB-GROUP-H ADD-GROUP-H MC-INSTATE-MEM CMPI-ADDR-MODEP ADDI-ADDR-MODEP SUBI-ADDR-MODEP ANDI-ADDR-MODEP ORI-ADDR-MODEP D-BIT-SUBGROUP BTST-INS BTST-ADDR-MODEP BSET-INS BSET-ADDR-MODEP BCLR-INS BCLR-ADDR-MODEP BCHG-INS BCHG-ADDR-MODEP CMP-GROUP EOR&EORI-ADDR-MODEP CMPA-ADDR-MODEP CMP-ADDR-MODEP SCC-GROUP SUBQ-INS SUBQ-ADDR-MODEP ADDQ-INS ADDQ-ADDR-MODEP SCC-ADDR-MODEP NOT-ADDR-MODEP JSR-INS JSR-ADDR-MODEP JMP-INS JMP-ADDR-MODEP MOVEM-EA-RN-INS MOVEM-EA-RN-ADDR-MODEP TAS-ADDR-MODEP TST-ADDR-MODEP EXT-SUBGROUP MOVEM-RN-EA-INS MOVEM-RN-EA-ADDR-MODEP PEA-SUBGROUP PEA-ADDR-MODEP MOVE-TO-CCR-ADDR-MODEP NEG-ADDR-MODEP NEGX-ADDR-MODEP MOVE-FROM-CCR-ADDR-MODEP CLR-INS CLR-ADDR-MODEP LEA-SUBGROUP LEA-ADDR-MODEP MOVEA-ADDR-MODEP MOVE-ADDR-MODEP S&R-ADDR-MODEP OR-GROUP OR-ADDR-MODEP2 OR-ADDR-MODEP1 AND-GROUP MUL&DIV-ADDR-MODEP AND-ADDR-MODEP2 AND-ADDR-MODEP1 SUB-GROUP SUBA-ADDR-MODEP SUB-ADDR-MODEP2 SUB-ADDR-MODEP1 ADD-GROUP ADDA-ADDR-MODEP ADD-ADDR-MODEP2 ADD-ADDR-MODEP1 MC-INSTATE) EVENT (DEFN S_MODE (INS) (BITS INS (QUOTE 3) (QUOTE 5))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BITS . S_MODE) (DCELL . *1*S_MODE))))) (PUT1-LST (QUOTE *1*S_RN) (QUOTE (MAIN-EVENT S_RN))) (PUT1-LST (QUOTE S_RN) (QUOTE (TYPE-PRESCRIPTION-LST ((S_RN 4 NIL)) TOTALP-LST ((S_RN . T)) SDEFN (LAMBDA (INS) (BITS INS (QUOTE 0) (QUOTE 2))) LISP-CODE *1*S_RN SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214823 SATELLITES (*1*S_RN) IMMEDIATE-DEPENDENTS0 (GCD-S0-S0-RFILE-2 GCD-S0-S0-RFILE-1 GCD-S0-S0-2 GCD-S0-S0-1 GCD-S0-SN-BASE-RFILE-2 GCD-S0-SN-BASE-2 GCD-S0-SN-BASE-RFILE-1 GCD-S0-SN-BASE-1 GCD-S-S0-MEM GCD-S-S0-RFILE GCD-S-S0 MISC-GROUP-H S&R-GROUP-H BIT-GROUP-H CMP-GROUP-H SCC-GROUP-H AND-GROUP-H SUB-GROUP-H ADD-GROUP-H MC-INSTATE-MEM CMPI-ADDR-MODEP ADDI-ADDR-MODEP SUBI-ADDR-MODEP ANDI-ADDR-MODEP ORI-ADDR-MODEP BTST-ADDR-MODEP BSET-ADDR-MODEP BCLR-ADDR-MODEP BCHG-ADDR-MODEP MOVEP-INS CMPM-INS EOR&EORI-ADDR-MODEP CMPA-ADDR-MODEP CMP-ADDR-MODEP SCC-GROUP SUBQ-INS SUBQ-ADDR-MODEP ADDQ-INS ADDQ-ADDR-MODEP DBCC-INS SCC-ADDR-MODEP MISC-GROUP NOT-ADDR-MODEP JSR-INS JSR-ADDR-MODEP JMP-INS JMP-ADDR-MODEP UNLK-SUBGROUP MOVEM-EA-RN-INS MOVEM-EA-RN-ADDR-MODEP TAS-ADDR-MODEP TST-ADDR-MODEP MOVEM-RN-EA-INS MOVEM-RN-EA-ADDR-MODEP EXT-INS SWAP-INS PEA-INS PEA-ADDR-MODEP MOVE-TO-CCR-ADDR-MODEP NEG-ADDR-MODEP NEGX-ADDR-MODEP MOVE-FROM-CCR-ADDR-MODEP CLR-INS CLR-ADDR-MODEP EXTB-INS LEA-INS LEA-ADDR-MODEP MOVEA-ADDR-MODEP MOVE-ADDR-MODEP REGISTER-ROXR-INS REGISTER-ROXL-INS REGISTER-ASR-INS REGISTER-ASL-INS REGISTER-LSR-INS REGISTER-LSL-INS REGISTER-ROR-INS REGISTER-ROL-INS S&R-ADDR-MODEP OR-ADDR-MODEP2 OR-ADDR-MODEP1 EXG-DRAR-INS EXG-ARAR-INS EXG-DRDR-INS MUL&DIV-ADDR-MODEP AND-ADDR-MODEP2 AND-ADDR-MODEP1 SUBX-INS2 SUBX-INS1 SUBA-ADDR-MODEP SUB-ADDR-MODEP2 SUB-ADDR-MODEP1 ADDX-INS2 ADDX-INS1 ADDA-ADDR-MODEP ADD-ADDR-MODEP2 ADD-ADDR-MODEP1 MC-INSTATE) EVENT (DEFN S_RN (INS) (BITS INS (QUOTE 0) (QUOTE 2))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BITS . S_RN) (DCELL . *1*S_RN))))) (PUT1-LST (QUOTE *1*PC-LONG-READ) (QUOTE (MAIN-EVENT PC-LONG-READ))) (PUT1-LST (QUOTE PC-LONG-READ) (QUOTE (TYPE-PRESCRIPTION-LST ((PC-LONG-READ 4 NIL NIL)) TOTALP-LST ((PC-LONG-READ . T)) SDEFN (LAMBDA (PC MEM) (PC-READ-MEM PC MEM (LSZ))) LISP-CODE *1*PC-LONG-READ SUBRP *1*FALSE LEVEL-NO 5 IDATE 1000402214823 SATELLITES (*1*PC-LONG-READ) IMMEDIATE-DEPENDENTS0 (MISC-GROUP-H BCC-GROUP-H EFFEC-ADDR-MEM ADDR-INDEX2-MEM BCC-GROUP LINK_L-INS ABSOLUTE-LONG ADDR-INDEX2) EVENT (DEFN PC-LONG-READ (PC MEM) (PC-READ-MEM PC MEM (LSZ))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LSZ . PC-LONG-READ) (IMMEDIATE-DEPENDENTS0 PC-READ-MEM . PC-LONG-READ) (DCELL . *1*PC-LONG-READ))))) (PUT1-LST (QUOTE *1*PC-WORD-READ) (QUOTE (MAIN-EVENT PC-WORD-READ))) (PUT1-LST (QUOTE PC-WORD-READ) (QUOTE (TYPE-PRESCRIPTION-LST ((PC-WORD-READ 4 NIL NIL)) TOTALP-LST ((PC-WORD-READ . T)) SDEFN (LAMBDA (PC MEM) (PC-READ-MEM PC MEM (WSZ))) LISP-CODE *1*PC-WORD-READ SUBRP *1*FALSE LEVEL-NO 5 IDATE 1000402214823 SATELLITES (*1*PC-WORD-READ) IMMEDIATE-DEPENDENTS0 (GCD-S0-S0-RFILE-2 GCD-S0-S0-RFILE-1 GCD-S0-S0-2 GCD-S0-S0-1 GCD-S0-SN-BASE-RFILE-2 GCD-S0-SN-BASE-2 GCD-S0-SN-BASE-RFILE-1 GCD-S0-SN-BASE-1 GCD-S-S0-MEM GCD-S-S0-RFILE GCD-S-S0 STEPI-H MISC-GROUP-H BIT-GROUP-H BCC-GROUP-H SCC-GROUP-H EFFEC-ADDR-MEM ADDR-INDEX2-MEM CURRENT-INS DBCC-LOOP BCC-GROUP RTD-INS LINK_W-INS MOVEM-EA-RN-SUBGROUP EXT-SUBGROUP PC-INDEX PC-DISP ABSOLUTE-SHORT ADDR-INDEX ADDR-INDEX2 ADDR-DISP) EVENT (DEFN PC-WORD-READ (PC MEM) (PC-READ-MEM PC MEM (WSZ))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 WSZ . PC-WORD-READ) (IMMEDIATE-DEPENDENTS0 PC-READ-MEM . PC-WORD-READ) (DCELL . *1*PC-WORD-READ))))) (PUT1-LST (QUOTE *1*PC-READ-MEM) (QUOTE (MAIN-EVENT PC-READ-MEM))) (PUT1-LST (QUOTE PC-READ-MEM) (QUOTE (TYPE-PRESCRIPTION-LST ((PC-READ-MEM 4 NIL NIL NIL)) LEMMAS ((REWRITE-RULE STEPN-PC-READ-MEM ((ROM-ADDRP X (MC-MEM S) K)) (EQUAL (PC-READ-MEM X (MC-MEM (STEPN S N)) K) (PC-READ-MEM X (MC-MEM S) K)) NIL) (REWRITE-RULE PC-READ-MEM-WRITEM-MEM ((WRITE-MEMP ADDR MEM (TIMES OPSZ (LEN VLST))) (PC-READ-MEMP X MEM N)) (EQUAL (PC-READ-MEM X (WRITEM-MEM OPSZ VLST ADDR MEM) N) (PC-READ-MEM X MEM N)) NIL) (REWRITE-RULE PC-READ-MEM-MCODE3 ((MCODE-ADDRP (ADD (QUOTE 32) ADDR I) MEM LST) (NOT (LESSP (LEN LST) (PLUS (INDEX-N J I) K))) (LST-NUMBERP (INDEX-N J I) LST K)) (EQUAL (PC-READ-MEM (ADD (QUOTE 32) ADDR J) MEM K) (READ-LST (INDEX-N J I) LST K)) NIL) (REWRITE-RULE PC-READ-MEM-MCODE2 ((MCODE-ADDRP (ADD (QUOTE 32) ADDR I) MEM LST) (NOT (LESSP (LEN LST) (PLUS (INDEX-N (QUOTE 0) I) K))) (LST-NUMBERP (INDEX-N (QUOTE 0) I) LST K)) (EQUAL (PC-READ-MEM ADDR MEM K) (READ-LST (INDEX-N (QUOTE 0) I) LST K)) NIL) (REWRITE-RULE PC-READ-MEM-MCODE1 ((MCODE-ADDRP ADDR MEM LST) (NOT (LESSP (LEN LST) (PLUS I J))) (LST-NUMBERP I LST J)) (EQUAL (PC-READ-MEM (ADD (QUOTE 32) ADDR I) MEM J) (READ-LST I LST J)) NIL) (REWRITE-RULE PC-READ-MEM-MCODE0 ((MCODE-ADDRP ADDR MEM LST) (NOT (LESSP (LEN LST) J)) (LST-NUMBERP (QUOTE 0) LST J)) (EQUAL (PC-READ-MEM ADDR MEM J) (READ-LST (QUOTE 0) LST J)) NIL) (REWRITE-RULE PC-READ-MEM-WRITE-MEM ((WRITE-MEMP X MEM M) (PC-READ-MEMP Y MEM N)) (EQUAL (PC-READ-MEM Y (WRITE-MEM VALUE X MEM M) N) (PC-READ-MEM Y MEM N)) NIL) (REWRITE-RULE PC-READ-MEM-BYTE-WRITE ((BYTE-WRITEP X MEM) (PC-READ-MEMP Y MEM N)) (EQUAL (PC-READ-MEM Y (BYTE-WRITE VALUE X MEM) N) (PC-READ-MEM Y MEM N)) NIL) (REWRITE-RULE HEAD-PC-READ-MEM NIL (EQUAL (PC-READ-MEM (HEAD X (QUOTE 32)) MEM K) (PC-READ-MEM X MEM K)) NIL)) TOTALP-LST ((PC-READ-MEM . T)) QUICK-BLOCK-INFO (UNCHANGING UNCHANGING SELF-REFLEXIVE) SDEFN (LAMBDA (PC MEM K) (IF (EQUAL K (QUOTE 0)) (QUOTE 0) (IF (NUMBERP K) (APP (B) (PC-BYTE-READ (ADD (QUOTE 32) PC (SUB1 K)) MEM) (PC-READ-MEM PC MEM (SUB1 K))) (QUOTE 0)))) LISP-CODE *1*PC-READ-MEM SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((ZEROP K)) NIL) (TESTS-AND-CASES ((NOT (ZEROP K))) ((PC MEM (SUB1 K))))) LEVEL-NO 5 JUSTIFICATIONS ((JUSTIFICATION (K) (COUNT K) LESSP (ZEROP COUNT-NUMBERP LESSP-SUB1))) IDATE 1000402214823 CONTROLLER-POCKETS (4) SATELLITES (*1*PC-READ-MEM) IMMEDIATE-DEPENDENTS0 (STEPN-PC-READ-MEM PC-READ-MEM-OFF PC-READ-MEM-WRITEM-MEM PC-BYTE-READ=PC-READ-MEM-1 READ->PC-READ-MEM PC-READ-MEM-MCODE3 PC-READ-MEM-MCODE2 PC-READ-MEM-MCODE1 PC-READ-MEM-MCODE0 PC-READ-MEM-WRITE-MEM PC-READ-MEM-BYTE-WRITE PC-READ-MEM-NAT-RANGEP HEAD-PC-READ-MEM IMMEDIATE MEM-POSTINDEX MEM-INDIRECT PC-LONG-READ PC-WORD-READ) EVENT (DEFN PC-READ-MEM (PC MEM K) (IF (ZEROP K) (QUOTE 0) (APP (B) (PC-BYTE-READ (ADD (QUOTE 32) PC (SUB1 K)) MEM) (PC-READ-MEM PC MEM (SUB1 K))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ADD . PC-READ-MEM) (IMMEDIATE-DEPENDENTS0 PC-BYTE-READ . PC-READ-MEM) (IMMEDIATE-DEPENDENTS0 B . PC-READ-MEM) (IMMEDIATE-DEPENDENTS0 APP . PC-READ-MEM) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . PC-READ-MEM) (DCELL . *1*PC-READ-MEM))))) (PUT1-LST (QUOTE *1*PC-BYTE-READ) (QUOTE (MAIN-EVENT PC-BYTE-READ))) (PUT1-LST (QUOTE PC-BYTE-READ) (QUOTE (TYPE-PRESCRIPTION-LST ((PC-BYTE-READ 4 NIL NIL)) LEMMAS ((REWRITE-RULE PC-BYTE-READ=PC-READ-MEM-1 NIL (EQUAL (PC-BYTE-READ ADDR MEM) (PC-READ-MEM ADDR MEM (QUOTE 1))) NIL) (REWRITE-RULE PC-BYTE-READ-MCODE3 ((MCODE-ADDRP (ADD (QUOTE 32) ADDR I) MEM LST) (LESSP (INDEX-N J I) (LEN LST)) (NOT (EQUAL (GET-NTH (INDEX-N J I) LST) (QUOTE -1)))) (EQUAL (PC-BYTE-READ (ADD (QUOTE 32) ADDR J) MEM) (GET-NTH (INDEX-N J I) LST)) NIL) (REWRITE-RULE PC-BYTE-READ-MCODE2 ((MCODE-ADDRP (ADD (QUOTE 32) ADDR I) MEM LST) (LESSP (INDEX-N (QUOTE 0) I) (LEN LST)) (NOT (EQUAL (GET-NTH (INDEX-N (QUOTE 0) I) LST) (QUOTE -1)))) (EQUAL (PC-BYTE-READ ADDR MEM) (GET-NTH (INDEX-N (QUOTE 0) I) LST)) NIL) (REWRITE-RULE PC-BYTE-READ-MCODE1 ((MCODE-ADDRP ADDR MEM LST) (LESSP I (LEN LST)) (NOT (EQUAL (GET-NTH I LST) (QUOTE -1)))) (EQUAL (PC-BYTE-READ (ADD (QUOTE 32) ADDR I) MEM) (GET-NTH I LST)) NIL) (REWRITE-RULE PC-BYTE-READ-MCODE0 ((MCODE-ADDRP ADDR MEM (CONS X LST)) (NOT (EQUAL X (QUOTE -1)))) (EQUAL (PC-BYTE-READ ADDR MEM) X) NIL) (REWRITE-RULE PC-BYTE-READ-WRITE-MEM ((WRITE-MEMP X MEM N) (PC-BYTE-READP Y MEM)) (EQUAL (PC-BYTE-READ Y (WRITE-MEM VALUE X MEM N)) (PC-BYTE-READ Y MEM)) NIL) (REWRITE-RULE PC-BYTE-READ-WRITE ((BYTE-WRITEP X MEM) (PC-BYTE-READP Y MEM)) (EQUAL (PC-BYTE-READ Y (BYTE-WRITE VALUE X MEM)) (PC-BYTE-READ Y MEM)) NIL) (REWRITE-RULE HEAD-BYTE-PC-READ NIL (EQUAL (PC-BYTE-READ (HEAD X (QUOTE 32)) MEM) (PC-BYTE-READ X MEM)) NIL)) TOTALP-LST ((PC-BYTE-READ . T)) SDEFN (LAMBDA (PC MEM) (HEAD (PC-READ PC (QUOTE 32) (CDR MEM)) (B))) LISP-CODE *1*PC-BYTE-READ SUBRP *1*FALSE LEVEL-NO 4 IDATE 1000402214823 SATELLITES (*1*PC-BYTE-READ) IMMEDIATE-DEPENDENTS0 (PC-BYTE-READ=PC-READ-MEM-1 READ->PC-READ-MEM PC-BYTE-READ-MCODE3 PC-BYTE-READ-MCODE2 PC-BYTE-READ-MCODE1 PC-BYTE-READ-MCODE0 MCODE-ADDRP PC-BYTE-READ-WRITE-MEM PC-BYTE-READ-OFF PC-BYTE-READ-WRITE PC-BYTE-READ-NAT-RANGEP HEAD-PC-READ-MEM HEAD-BYTE-PC-READ EORI-TO-CCR-INS ANDI-TO-CCR-INS ORI-TO-CCR-INS S-BIT-SUBGROUP IMMEDIATE PC-READ-MEM) EVENT (DEFN PC-BYTE-READ (PC MEM) (HEAD (PC-READ PC (QUOTE 32) (CDR MEM)) (B))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B . PC-BYTE-READ) (IMMEDIATE-DEPENDENTS0 PC-READ . PC-BYTE-READ) (IMMEDIATE-DEPENDENTS0 HEAD . PC-BYTE-READ) (DCELL . *1*PC-BYTE-READ))))) (PUT1-LST (QUOTE *1*LONG-READ) (QUOTE (MAIN-EVENT LONG-READ))) (PUT1-LST (QUOTE LONG-READ) (QUOTE (TYPE-PRESCRIPTION-LST ((LONG-READ 4 NIL NIL)) TOTALP-LST ((LONG-READ . T)) SDEFN (LAMBDA (X MEM) (READ-MEM X MEM (LSZ))) LISP-CODE *1*LONG-READ SUBRP *1*FALSE LEVEL-NO 5 IDATE 1000402214823 SATELLITES (*1*LONG-READ) IMMEDIATE-DEPENDENTS0 (GCD-S0-SN-BASE-RFILE-2 GCD-S0-SN-BASE-2 GCD-S0-SN-BASE-RFILE-1 GCD-S0-SN-BASE-1 MISC-GROUP-H ADDR-INDEX2-MEM RTD-MAPPING UNLK-INS MEM-POSTINDEX MEM-INDIRECT) EVENT (DEFN LONG-READ (X MEM) (READ-MEM X MEM (LSZ))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LSZ . LONG-READ) (IMMEDIATE-DEPENDENTS0 READ-MEM . LONG-READ) (DCELL . *1*LONG-READ))))) (PUT1-LST (QUOTE *1*WORD-READ) (QUOTE (MAIN-EVENT WORD-READ))) (PUT1-LST (QUOTE WORD-READ) (QUOTE (TYPE-PRESCRIPTION-LST ((WORD-READ 4 NIL NIL)) TOTALP-LST ((WORD-READ . T)) SDEFN (LAMBDA (X MEM) (READ-MEM X MEM (WSZ))) LISP-CODE *1*WORD-READ SUBRP *1*FALSE LEVEL-NO 5 IDATE 1000402214823 SATELLITES (*1*WORD-READ) IMMEDIATE-DEPENDENTS0 (MISC-GROUP-H RTR-INS) EVENT (DEFN WORD-READ (X MEM) (READ-MEM X MEM (WSZ))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 WSZ . WORD-READ) (IMMEDIATE-DEPENDENTS0 READ-MEM . WORD-READ) (DCELL . *1*WORD-READ))))) (PUT1-LST (QUOTE *1*READ-MEM) (QUOTE (MAIN-EVENT READ-MEM))) (PUT1-LST (QUOTE READ-MEM) (QUOTE (TYPE-PRESCRIPTION-LST ((READ-MEM 4 NIL NIL NIL)) LEMMAS ((REWRITE-RULE GCD-CORRECTNESS ((GCD-STATEP S A B) (DISJOINT X K (SUB (QUOTE 32) (QUOTE 12) (READ-SP S)) (QUOTE 24))) (EQUAL (READ-MEM X (MC-MEM (STEPN S (GCD-T A B))) K) (READ-MEM X (MC-MEM S) K)) NIL) (REWRITE-RULE GCD-S0-SN ((GCD-S0P S A B)) (EQUAL (READ-MEM X (MC-MEM (STEPN S (GCD-T1 A B))) K) (READ-MEM X (MC-MEM S) K)) NIL) (REWRITE-RULE GCD-S0-S0-2 ((GCD-S0P S A B) (NUMBERP A) (NOT (EQUAL A (QUOTE 0))) (NUMBERP B) (NOT (EQUAL B (QUOTE 0))) (NOT (LESSP B A))) (EQUAL (READ-MEM X (MC-MEM (STEPN S (QUOTE 9))) L) (READ-MEM X (MC-MEM S) L)) NIL) (REWRITE-RULE GCD-S0-S0-1 ((GCD-S0P S A B) (NUMBERP A) (NOT (EQUAL A (QUOTE 0))) (NUMBERP B) (NOT (EQUAL B (QUOTE 0))) (LESSP B A)) (EQUAL (READ-MEM X (MC-MEM (STEPN S (QUOTE 9))) L) (READ-MEM X (MC-MEM S) L)) NIL) (REWRITE-RULE GCD-S0-SN-BASE-2 ((GCD-S0P S A B) (NUMBERP A) (NOT (EQUAL A (QUOTE 0))) (ZEROP B)) (EQUAL (READ-MEM X (MC-MEM (STEPN S (QUOTE 9))) L) (READ-MEM X (MC-MEM S) L)) NIL) (REWRITE-RULE GCD-S0-SN-BASE-1 ((GCD-S0P S A B) (ZEROP A)) (EQUAL (READ-MEM X (MC-MEM (STEPN S (QUOTE 6))) L) (READ-MEM X (MC-MEM S) L)) NIL) (REWRITE-RULE GCD-S-S0-MEM ((GCD-STATEP S A B) (DISJOINT X L (SUB (QUOTE 32) (QUOTE 12) (READ-SP S)) (QUOTE 24))) (EQUAL (READ-MEM X (MC-MEM (STEPN S (QUOTE 4))) L) (READ-MEM X (MC-MEM S) L)) NIL) (REWRITE-RULE STEPN-READ-MEM ((ROM-ADDRP X (MC-MEM S) K)) (EQUAL (READ-MEM X (MC-MEM (STEPN S N)) K) (READ-MEM X (MC-MEM S) K)) NIL) (REWRITE-RULE READ-MEM-PLUS NIL (EQUAL (READ-MEM ADDR MEM (PLUS M K)) (APP (TIMES (QUOTE 8) K) (READ-MEM (ADD (QUOTE 32) ADDR M) MEM K) (READ-MEM ADDR MEM M))) NIL) (REWRITE-RULE READ-WRITEM-MEM ((DISJOINT ADDR N ADDR1 (TIMES OPSZ (LEN VLST)))) (EQUAL (READ-MEM ADDR (WRITEM-MEM OPSZ VLST ADDR1 MEM) N) (READ-MEM ADDR MEM N)) NIL) (REWRITE-RULE READ-MEM-LST-LA ((MEM-LST OPSZ A MEM N LST) (EQUAL (REMAINDER J OPSZ) (QUOTE 0)) (LESSP (QUOTIENT J OPSZ) N)) (EQUAL (READ-MEM (ADD (QUOTE 32) A J) MEM OPSZ) (GET-NTH (QUOTIENT J OPSZ) LST)) NIL) (REWRITE-RULE READ-MEM-NON-NUMBERP ((NOT (NUMBERP X))) (EQUAL (READ-MEM X MEM K) (READ-MEM (QUOTE 0) MEM K)) NIL) (REWRITE-RULE READ-MEM-MCODE3 ((MCODE-ADDRP (ADD (QUOTE 32) ADDR I) MEM LST) (NOT (LESSP (LEN LST) (PLUS (INDEX-N J I) K))) (LST-NUMBERP (INDEX-N J I) LST K)) (EQUAL (READ-MEM (ADD (QUOTE 32) ADDR J) MEM K) (READ-LST (INDEX-N J I) LST K)) NIL) (REWRITE-RULE READ-MEM-MCODE2 ((MCODE-ADDRP (ADD (QUOTE 32) ADDR I) MEM LST) (NOT (LESSP (LEN LST) (PLUS (INDEX-N (QUOTE 0) I) K))) (LST-NUMBERP (INDEX-N (QUOTE 0) I) LST K)) (EQUAL (READ-MEM ADDR MEM K) (READ-LST (INDEX-N (QUOTE 0) I) LST K)) NIL) (REWRITE-RULE READ-MEM-MCODE1-INT ((MCODE-ADDRP ADDR MEM LST) (NOT (LESSP (LEN LST) (PLUS (NAT-TO-INT I (QUOTE 32)) J))) (NUMBERP (NAT-TO-INT I (QUOTE 32))) (LST-NUMBERP (NAT-TO-INT I (QUOTE 32)) LST J)) (EQUAL (READ-MEM (ADD (QUOTE 32) ADDR I) MEM J) (READ-LST (NAT-TO-INT I (QUOTE 32)) LST J)) NIL) (REWRITE-RULE READ->PC-READ-MEM NIL (EQUAL (READ-MEM X MEM K) (PC-READ-MEM X MEM K)) NIL) (REWRITE-RULE READ-WRITE-MEM2 ((UINT-RANGEP N (QUOTE 32))) (EQUAL (READ-MEM X (WRITE-MEM VALUE X MEM N) N) (HEAD VALUE (TIMES (QUOTE 8) N))) NIL) (REWRITE-RULE READ-WRITE-MEM1 NIL (EQUAL (READ-MEM X (WRITE-MEM VALUE Y MEM K) N) (IF (DISJOINT X N Y K) (READ-MEM X MEM N) (READ-WRITE-MEM-END X VALUE Y MEM K N))) NIL) (REWRITE-RULE READ-MEM-BYTE-WRITE NIL (EQUAL (READ-MEM X (BYTE-WRITE VALUE Y MEM) N) (IF (DISJOINT0 X N Y) (READ-MEM X MEM N) (READ-MEM-BYTE-WRITE-END X N VALUE Y MEM))) NIL) (REWRITE-RULE HEAD-READ-MEM NIL (EQUAL (READ-MEM (HEAD X (QUOTE 32)) MEM K) (READ-MEM X MEM K)) NIL)) TOTALP-LST ((READ-MEM . T)) QUICK-BLOCK-INFO (UNCHANGING UNCHANGING SELF-REFLEXIVE) SDEFN (LAMBDA (X MEM K) (IF (EQUAL K (QUOTE 0)) (QUOTE 0) (IF (NUMBERP K) (APP (B) (BYTE-READ (ADD (QUOTE 32) X (SUB1 K)) MEM) (READ-MEM X MEM (SUB1 K))) (QUOTE 0)))) LISP-CODE *1*READ-MEM SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((ZEROP K)) NIL) (TESTS-AND-CASES ((NOT (ZEROP K))) ((X MEM (SUB1 K))))) LEVEL-NO 5 JUSTIFICATIONS ((JUSTIFICATION (K) (COUNT K) LESSP (ZEROP COUNT-NUMBERP LESSP-SUB1))) IDATE 1000402214823 CONTROLLER-POCKETS (4) SATELLITES (*1*READ-MEM) IMMEDIATE-DEPENDENTS0 (GCD-CORRECTNESS GCD-S0-SN GCD-S0-S0-2 GCD-S0-S0-1 GCD-S0-SN-BASE-2 GCD-S0-SN-BASE-1 GCD-S-S0-MEM READ-MEM-INT-8_16 READ-MEM-INT-16_32 READ-MEM-INT-8_32 RN-SAVED LINKED-A6 LINKED-RTS-ADDR RTS-ADDR IREAD-MEM UREAD-MEM STEPN-READ-MEM READ-MEM-OFF STEPN-MEM-ILST STEPN-MEM-LST STEPN-READM-MEM READ-MEM-PLUS READ-WRITEM-MEM WRITE-MEM-ILST-ASL READ-MEM-ILST-ASL READ-MEM-LST-ASL READ-MEM-ILST-INT READ-MEM-ILST READ-MEM-LST-INT READ-MEM-LST IREAD-MEM-GET0 READ-MEM-LST0 MEM-LST-GET-VALS MEM-LST-GET-VALS0 MEM-LST-GET-LST MEM-LST-GET-LST0 READ-MEM-LST-LA BYTE-READ=READ-MEM-1 READ-MEM-NON-NUMBERP MEM-ILST MEM-LST READ-MEM-MCODE3 READ-MEM-MCODE2 READ-MEM-MCODE1-INT READ->PC-READ-MEM READ-WRITE-MEM2 READ-WRITE-MEM1 READ-WRITE-MEM-END READ-MEM-BYTE-WRITE READ-MEM-BYTE-WRITE-END READ-MEM-NAT-RANGEP HEAD-READ-MEM READM-MEM OPERAND LONG-READ WORD-READ) EVENT (DEFN READ-MEM (X MEM K) (IF (ZEROP K) (QUOTE 0) (APP (B) (BYTE-READ (ADD (QUOTE 32) X (SUB1 K)) MEM) (READ-MEM X MEM (SUB1 K))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ADD . READ-MEM) (IMMEDIATE-DEPENDENTS0 BYTE-READ . READ-MEM) (IMMEDIATE-DEPENDENTS0 B . READ-MEM) (IMMEDIATE-DEPENDENTS0 APP . READ-MEM) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . READ-MEM) (DCELL . *1*READ-MEM))))) (PUT1-LST (QUOTE *1*BYTE-READ) (QUOTE (MAIN-EVENT BYTE-READ))) (PUT1-LST (QUOTE BYTE-READ) (QUOTE (TYPE-PRESCRIPTION-LST ((BYTE-READ 4 NIL NIL)) LEMMAS ((REWRITE-RULE BYTE-READ=READ-MEM-1 NIL (EQUAL (BYTE-READ ADDR MEM) (READ-MEM ADDR MEM (QUOTE 1))) NIL) (REWRITE-RULE BYTE-READ-WRITE-MEM-LEMMA ((NAT-RANGEP Y (QUOTE 32)) (NOT (LESSP Y N))) (EQUAL (BYTE-READ (ADD (QUOTE 32) X Y) (WRITE-MEM VALUE X MEM N)) (BYTE-READ (ADD (QUOTE 32) X Y) MEM)) NIL) (REWRITE-RULE BYTE-READ-WRITE-MEM NIL (EQUAL (BYTE-READ X (WRITE-MEM VALUE Y MEM K)) (IF (DISJOINT X (QUOTE 1) Y K) (BYTE-READ X MEM) (BYTE-READ-WRITE-MEM-END X VALUE Y MEM K))) NIL) (REWRITE-RULE BYTE-READ-WRITE NIL (EQUAL (BYTE-READ X (BYTE-WRITE V Y MEM)) (IF (MOD32-EQ X Y) (IF (NAT-RANGEP V (QUOTE 8)) (IF (NUMBERP V) V (QUOTE 0)) (HEAD V (QUOTE 8))) (BYTE-READ X MEM))) NIL) (REWRITE-RULE HEAD-BYTE-READ NIL (EQUAL (BYTE-READ (HEAD X (QUOTE 32)) MEM) (BYTE-READ X MEM)) NIL)) TOTALP-LST ((BYTE-READ . T)) SDEFN (LAMBDA (X MEM) (HEAD (READ X (QUOTE 32) (CDR MEM)) (B))) LISP-CODE *1*BYTE-READ SUBRP *1*FALSE LEVEL-NO 4 IDATE 1000402214823 SATELLITES (*1*BYTE-READ) IMMEDIATE-DEPENDENTS0 (BYTE-READ=READ-MEM-1 READ->PC-READ-MEM BYTE-READ-WRITE-MEM-LEMMA BYTE-READ-WRITE-MEM BYTE-READ-WRITE-MEM-END BYTE-READ-OFF BYTE-READ-WRITE BYTE-READ-NAT-RANGEP HEAD-READ-MEM HEAD-BYTE-READ MOVEP-READ READ-MEM) EVENT (DEFN BYTE-READ (X MEM) (HEAD (READ X (QUOTE 32) (CDR MEM)) (B))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B . BYTE-READ) (IMMEDIATE-DEPENDENTS0 READ . BYTE-READ) (IMMEDIATE-DEPENDENTS0 HEAD . BYTE-READ) (DCELL . *1*BYTE-READ))))) (PUT1-LST (QUOTE *1*PC-LONG-READP) (QUOTE (MAIN-EVENT PC-LONG-READP))) (PUT1-LST (QUOTE PC-LONG-READP) (QUOTE (TYPE-PRESCRIPTION-LST ((PC-LONG-READP 3 NIL NIL)) TOTALP-LST ((PC-LONG-READP . T)) SDEFN (LAMBDA (X MEM) (PC-READ-MEMP X MEM (LSZ))) LISP-CODE *1*PC-LONG-READP SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214823 SATELLITES (*1*PC-LONG-READP) IMMEDIATE-DEPENDENTS0 (MISC-GROUP-H BCC-GROUP-H EFFEC-ADDR-MEM ADDR-INDEX2-MEM BCC-GROUP LINK_L-INS ABSOLUTE-LONG ADDR-INDEX2) EVENT (DEFN PC-LONG-READP (X MEM) (PC-READ-MEMP X MEM (LSZ))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LSZ . PC-LONG-READP) (IMMEDIATE-DEPENDENTS0 PC-READ-MEMP . PC-LONG-READP) (DCELL . *1*PC-LONG-READP))))) (PUT1-LST (QUOTE *1*PC-WORD-READP) (QUOTE (MAIN-EVENT PC-WORD-READP))) (PUT1-LST (QUOTE PC-WORD-READP) (QUOTE (TYPE-PRESCRIPTION-LST ((PC-WORD-READP 3 NIL NIL)) TOTALP-LST ((PC-WORD-READP . T)) SDEFN (LAMBDA (X MEM) (PC-READ-MEMP X MEM (WSZ))) LISP-CODE *1*PC-WORD-READP SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214823 SATELLITES (*1*PC-WORD-READP) IMMEDIATE-DEPENDENTS0 (GCD-S0-S0-RFILE-2 GCD-S0-S0-RFILE-1 GCD-S0-S0-2 GCD-S0-S0-1 GCD-S0-SN-BASE-RFILE-2 GCD-S0-SN-BASE-2 GCD-S0-SN-BASE-RFILE-1 GCD-S0-SN-BASE-1 GCD-S-S0-MEM GCD-S-S0-RFILE GCD-S-S0 STEPI-H MISC-GROUP-H BIT-GROUP-H BCC-GROUP-H SCC-GROUP-H EFFEC-ADDR-MEM IMMEDIATE-MEM ADDR-INDEX2-MEM STEPI EORI-TO-CCR-INS ANDI-TO-CCR-INS ORI-TO-CCR-INS S-BIT-SUBGROUP DBCC-INS BCC-GROUP RTD-INS LINK_W-INS MOVEM-EA-RN-SUBGROUP EXT-SUBGROUP IMMEDIATE PC-INDEX PC-DISP ABSOLUTE-SHORT ADDR-INDEX ADDR-INDEX2 ADDR-DISP) EVENT (DEFN PC-WORD-READP (X MEM) (PC-READ-MEMP X MEM (WSZ))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 WSZ . PC-WORD-READP) (IMMEDIATE-DEPENDENTS0 PC-READ-MEMP . PC-WORD-READP) (DCELL . *1*PC-WORD-READP))))) (PUT1-LST (QUOTE *1*PC-READ-MEMP) (QUOTE (MAIN-EVENT PC-READ-MEMP))) (PUT1-LST (QUOTE PC-READ-MEMP) (QUOTE (TYPE-PRESCRIPTION-LST ((PC-READ-MEMP 3 NIL NIL NIL)) LEMMAS ((REWRITE-RULE STEPN-PC-READ-MEMP ((T3 X (MC-MEM S) K)) (EQUAL (PC-READ-MEMP X (MC-MEM (STEPN S N)) K) (PC-READ-MEMP X (MC-MEM S) K)) NIL) (REWRITE-RULE WRITEM-MEM-MAINTAIN-PC-READ-MEMP NIL (EQUAL (PC-READ-MEMP X (WRITEM-MEM OPSZ VLST ADDR MEM) N) (PC-READ-MEMP X MEM N)) NIL) (REWRITE-RULE PC-READ-MEMP-ROM3 ((ROM-ADDRP (ADD (QUOTE 32) ADDR I) MEM K) (NOT (LESSP K (PLUS (INDEX-N H I) J)))) (PC-READ-MEMP (ADD (QUOTE 32) ADDR H) MEM J) NIL) (REWRITE-RULE PC-READ-MEMP-ROM2 ((ROM-ADDRP (ADD (QUOTE 32) ADDR I) MEM K) (NOT (LESSP K (PLUS (INDEX-N (QUOTE 0) I) J)))) (PC-READ-MEMP ADDR MEM J) NIL) (REWRITE-RULE PC-READ-MEMP-ROM1 ((ROM-ADDRP ADDR MEM K) (NOT (LESSP K (PLUS I J)))) (PC-READ-MEMP (ADD (QUOTE 32) ADDR I) MEM J) NIL) (REWRITE-RULE PC-READ-MEMP-ROM0 ((ROM-ADDRP ADDR MEM K) (NOT (LESSP K J))) (PC-READ-MEMP ADDR MEM J) NIL) (REWRITE-RULE PC-READ-MEMP-LA3 ((PC-READ-MEMP ADDR MEM K) (NOT (LESSP K (PLUS I J)))) (PC-READ-MEMP (ADD (QUOTE 32) ADDR I) MEM J) NIL) (REWRITE-RULE PC-READ-MEMP-LA2 ((PC-READ-MEMP ADDR MEM K) (NOT (LESSP K J))) (PC-READ-MEMP ADDR MEM J) NIL) (REWRITE-RULE WRITE-MEM-MAINTAIN-PC-READ-MEMP NIL (EQUAL (PC-READ-MEMP ADDR (WRITE-MEM VALUE X MEM M) N) (PC-READ-MEMP ADDR MEM N)) NIL) (REWRITE-RULE BYTE-WRITE-MAINTAIN-PC-READ-MEMP NIL (EQUAL (PC-READ-MEMP ADDR (BYTE-WRITE VALUE X MEM) N) (PC-READ-MEMP ADDR MEM N)) NIL) (REWRITE-RULE HEAD-PC-READ-MEMP NIL (EQUAL (PC-READ-MEMP (HEAD X (QUOTE 32)) MEM K) (PC-READ-MEMP X MEM K)) NIL)) TOTALP-LST ((PC-READ-MEMP . T)) QUICK-BLOCK-INFO (UNCHANGING UNCHANGING SELF-REFLEXIVE) SDEFN (LAMBDA (X MEM K) (IF (EQUAL K (QUOTE 0)) (QUOTE *1*TRUE) (IF (NUMBERP K) (IF (PC-BYTE-READP (ADD (QUOTE 32) X (SUB1 K)) MEM) (IF (PC-READ-MEMP X MEM (SUB1 K)) (QUOTE *1*TRUE) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*TRUE)))) LISP-CODE *1*PC-READ-MEMP SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((ZEROP K)) NIL) (TESTS-AND-CASES ((NOT (ZEROP K))) ((X MEM (SUB1 K))))) LEVEL-NO 6 JUSTIFICATIONS ((JUSTIFICATION (K) (COUNT K) LESSP (ZEROP COUNT-NUMBERP LESSP-SUB1))) IDATE 1000402214823 CONTROLLER-POCKETS (4) SATELLITES (*1*PC-READ-MEMP) IMMEDIATE-DEPENDENTS0 (STEPN-PC-READ-MEMP PC-READ-MEMP-OFF WRITEM-MEM-MCODE-ADDRP PC-READ-MEM-WRITEM-MEM WRITEM-MEM-MAINTAIN-PC-READ-MEMP WRITE-MEM-MCODE-ADDRP BYTE-WRITE-MCODE-ADDRP PC-READ-MEMP-ROM3 PC-READ-MEMP-ROM2 PC-READ-MEMP-ROM1 PC-READ-MEMP-ROM0 PC-BYTE-READP-ROM2 PC-READ-MEMP-LA3 PC-READ-MEMP-LA2 PC-READ-MEMP-LA1 PC-READ-MEMP-LA0 PC-READ-MEM-WRITE-MEM PC-READ-MEM-BYTE-WRITE WRITE-MEMP->READ-MEMP PC-READ-MEMP->READ-MEMP WRITE-MEM-MAINTAIN-PC-READ-MEMP BYTE-WRITE-MAINTAIN-PC-READ-MEMP HEAD-PC-READ-MEMP ROM-ADDRP IMMEDIATE MEM-POSTINDEX MEM-INDIRECT PC-LONG-READP PC-WORD-READP) EVENT (DEFN PC-READ-MEMP (X MEM K) (IF (ZEROP K) (QUOTE *1*TRUE) (AND (PC-BYTE-READP (ADD (QUOTE 32) X (SUB1 K)) MEM) (PC-READ-MEMP X MEM (SUB1 K))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ADD . PC-READ-MEMP) (IMMEDIATE-DEPENDENTS0 PC-BYTE-READP . PC-READ-MEMP) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . PC-READ-MEMP) (DCELL . *1*PC-READ-MEMP))))) (PUT1-LST (QUOTE *1*PC-BYTE-READP) (QUOTE (MAIN-EVENT PC-BYTE-READP))) (PUT1-LST (QUOTE PC-BYTE-READP) (QUOTE (TYPE-PRESCRIPTION-LST ((PC-BYTE-READP 3 NIL NIL)) LEMMAS ((REWRITE-RULE WRITEM-MEM-MAINTAIN-PC-BYTE-READP NIL (EQUAL (PC-BYTE-READP X (WRITEM-MEM OPSZ VLST ADDR MEM)) (PC-BYTE-READP X MEM)) NIL) (REWRITE-RULE PC-BYTE-READP-ROM3 ((ROM-ADDRP (ADD (QUOTE 32) ADDR I) MEM K) (LESSP (INDEX-N J I) K)) (PC-BYTE-READP (ADD (QUOTE 32) ADDR J) MEM) NIL) (REWRITE-RULE PC-BYTE-READP-ROM2 ((ROM-ADDRP (ADD (QUOTE 32) ADDR I) MEM K) (LESSP (INDEX-N (QUOTE 0) I) K)) (PC-BYTE-READP ADDR MEM) NIL) (REWRITE-RULE PC-BYTE-READP-ROM1 ((ROM-ADDRP ADDR MEM K) (LESSP J K)) (PC-BYTE-READP (ADD (QUOTE 32) ADDR J) MEM) NIL) (REWRITE-RULE PC-BYTE-READP-ROM0 ((ROM-ADDRP ADDR MEM K) (NUMBERP K) (NOT (EQUAL K (QUOTE 0)))) (PC-BYTE-READP ADDR MEM) NIL) (REWRITE-RULE PC-READ-MEMP-LA1 ((PC-READ-MEMP ADDR MEM K) (LESSP J K)) (PC-BYTE-READP (ADD (QUOTE 32) ADDR J) MEM) NIL) (REWRITE-RULE PC-READ-MEMP-LA0 ((PC-READ-MEMP ADDR MEM K) (NUMBERP K) (NOT (EQUAL K (QUOTE 0)))) (PC-BYTE-READP ADDR MEM) NIL) (REWRITE-RULE WRITE-MEM-MAINTAIN-PC-BYTE-READP NIL (EQUAL (PC-BYTE-READP ADDR (WRITE-MEM VALUE X MEM K)) (PC-BYTE-READP ADDR MEM)) NIL) (REWRITE-RULE BYTE-WRITE-MAINTAIN-PC-BYTE-READP NIL (EQUAL (PC-BYTE-READP X (BYTE-WRITE VALUE Y MEM)) (PC-BYTE-READP X MEM)) NIL) (REWRITE-RULE HEAD-PC-BYTE-READP NIL (EQUAL (PC-BYTE-READP (HEAD X (QUOTE 32)) MEM) (PC-BYTE-READP X MEM)) NIL)) TOTALP-LST ((PC-BYTE-READP . T)) SDEFN (LAMBDA (X MEM) (PC-READP X (QUOTE 32) (CAR MEM))) LISP-CODE *1*PC-BYTE-READP SUBRP *1*FALSE LEVEL-NO 5 IDATE 1000402214823 SATELLITES (*1*PC-BYTE-READP) IMMEDIATE-DEPENDENTS0 (WRITEM-MEM-MAINTAIN-PC-BYTE-READP PC-BYTE-READP-ROM3 PC-BYTE-READP-ROM2 PC-BYTE-READP-ROM1 PC-BYTE-READP-ROM0 PC-READ-MEMP-LA1 PC-READ-MEMP-LA0 PC-BYTE-READ-WRITE-MEM WRITE-MEM-MAINTAIN-PC-BYTE-READP PC-BYTE-READP-OFF BYTE-WRITE-MAINTAIN-PC-BYTE-READP PC-BYTE-READ-WRITE PC-BYTE-READP->BYTE-READP HEAD-PC-READ-MEMP HEAD-PC-BYTE-READP PC-READ-MEMP) EVENT (DEFN PC-BYTE-READP (X MEM) (PC-READP X (QUOTE 32) (CAR MEM))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PC-READP . PC-BYTE-READP) (DCELL . *1*PC-BYTE-READP))))) (PUT1-LST (QUOTE *1*LONG-READP) (QUOTE (MAIN-EVENT LONG-READP))) (PUT1-LST (QUOTE LONG-READP) (QUOTE (TYPE-PRESCRIPTION-LST ((LONG-READP 3 NIL NIL)) TOTALP-LST ((LONG-READP . T)) SDEFN (LAMBDA (X MEM) (READ-MEMP X MEM (LSZ))) LISP-CODE *1*LONG-READP SUBRP *1*FALSE LEVEL-NO 5 IDATE 1000402214823 SATELLITES (*1*LONG-READP) IMMEDIATE-DEPENDENTS0 (GCD-S0-SN-BASE-RFILE-2 GCD-S0-SN-BASE-2 GCD-S0-SN-BASE-RFILE-1 GCD-S0-SN-BASE-1 MISC-GROUP-H ADDR-INDEX2-MEM RTD-MAPPING UNLK-INS MEM-POSTINDEX MEM-INDIRECT) EVENT (DEFN LONG-READP (X MEM) (READ-MEMP X MEM (LSZ))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LSZ . LONG-READP) (IMMEDIATE-DEPENDENTS0 READ-MEMP . LONG-READP) (DCELL . *1*LONG-READP))))) (PUT1-LST (QUOTE *1*WORD-READP) (QUOTE (MAIN-EVENT WORD-READP))) (PUT1-LST (QUOTE WORD-READP) (QUOTE (TYPE-PRESCRIPTION-LST ((WORD-READP 3 NIL NIL)) TOTALP-LST ((WORD-READP . T)) SDEFN (LAMBDA (X MEM) (READ-MEMP X MEM (WSZ))) LISP-CODE *1*WORD-READP SUBRP *1*FALSE LEVEL-NO 5 IDATE 1000402214823 SATELLITES (*1*WORD-READP) IMMEDIATE-DEPENDENTS0 (MISC-GROUP-H RTR-INS) EVENT (DEFN WORD-READP (X MEM) (READ-MEMP X MEM (WSZ))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 WSZ . WORD-READP) (IMMEDIATE-DEPENDENTS0 READ-MEMP . WORD-READP) (DCELL . *1*WORD-READP))))) (PUT1-LST (QUOTE *1*READ-MEMP) (QUOTE (MAIN-EVENT READ-MEMP))) (PUT1-LST (QUOTE READ-MEMP) (QUOTE (TYPE-PRESCRIPTION-LST ((READ-MEMP 3 NIL NIL NIL)) LEMMAS ((REWRITE-RULE READ-MEMP-RAM1-UINT ((RAM-ADDRP ADDR MEM K) (NOT (LESSP K (PLUS (NAT-TO-UINT I) J)))) (READ-MEMP (ADD (QUOTE 32) ADDR I) MEM J) NIL) (REWRITE-RULE STEPN-READ-MEMP ((T3 X (MC-MEM S) K)) (EQUAL (READ-MEMP X (MC-MEM (STEPN S N)) K) (READ-MEMP X (MC-MEM S) K)) NIL) (REWRITE-RULE WRITEM-MEM-MAINTAIN-READ-MEMP NIL (EQUAL (READ-MEMP X (WRITEM-MEM OPSZ VLST ADDR MEM) N) (READ-MEMP X MEM N)) NIL) (REWRITE-RULE READ-MEMP-ROM1-ASL ((ROM-ADDRP ADDR MEM N) (EQUAL OPSZ (EXP (QUOTE 2) CNT)) (LESSP (NAT-TO-INT X (QUOTE 32)) (QUOTIENT N OPSZ)) (NUMBERP (NAT-TO-INT X (QUOTE 32)))) (READ-MEMP (ADD (QUOTE 32) ADDR (ASL (QUOTE 32) X CNT)) MEM OPSZ) NIL) (REWRITE-RULE READ-MEMP-RAM1-ASL ((RAM-ADDRP ADDR MEM N) (EQUAL OPSZ (EXP (QUOTE 2) CNT)) (LESSP (NAT-TO-INT X (QUOTE 32)) (QUOTIENT N OPSZ)) (NUMBERP (NAT-TO-INT X (QUOTE 32)))) (READ-MEMP (ADD (QUOTE 32) ADDR (ASL (QUOTE 32) X CNT)) MEM OPSZ) NIL) (REWRITE-RULE READ-MEMP-RAM3 ((RAM-ADDRP (ADD (QUOTE 32) ADDR I) MEM K) (NOT (LESSP K (PLUS (INDEX-N H I) J)))) (READ-MEMP (ADD (QUOTE 32) ADDR H) MEM J) NIL) (REWRITE-RULE READ-MEMP-RAM2 ((RAM-ADDRP (ADD (QUOTE 32) ADDR I) MEM K) (NOT (LESSP K (PLUS (INDEX-N (QUOTE 0) I) J)))) (READ-MEMP ADDR MEM J) NIL) (REWRITE-RULE READ-MEMP-RAM1-INT ((RAM-ADDRP ADDR MEM K) (NUMBERP (NAT-TO-INT I (QUOTE 32))) (NOT (LESSP K (PLUS (NAT-TO-INT I (QUOTE 32)) J)))) (READ-MEMP (ADD (QUOTE 32) ADDR I) MEM J) NIL) (REWRITE-RULE READ-MEMP-RAM1 ((RAM-ADDRP ADDR MEM K) (NOT (LESSP K (PLUS I J)))) (READ-MEMP (ADD (QUOTE 32) ADDR I) MEM J) NIL) (REWRITE-RULE READ-MEMP-RAM0 ((RAM-ADDRP ADDR MEM K) (NOT (LESSP K J))) (READ-MEMP ADDR MEM J) NIL) (REWRITE-RULE READ-MEMP-ROM1-INT ((ROM-ADDRP ADDR MEM N) (LESSP (PLUS (NAT-TO-INT X (QUOTE 32)) J) N) (NUMBERP (NAT-TO-INT X (QUOTE 32)))) (READ-MEMP (ADD (QUOTE 32) ADDR X) MEM J) NIL) (REWRITE-RULE READ-MEMP-ROM3 ((ROM-ADDRP (ADD (QUOTE 32) ADDR I) MEM K) (NOT (LESSP K (PLUS (INDEX-N H I) J)))) (READ-MEMP (ADD (QUOTE 32) ADDR H) MEM J) NIL) (REWRITE-RULE READ-MEMP-ROM2 ((ROM-ADDRP (ADD (QUOTE 32) ADDR I) MEM K) (NOT (LESSP K (PLUS (INDEX-N (QUOTE 0) I) J)))) (READ-MEMP ADDR MEM J) NIL) (REWRITE-RULE READ-MEMP-ROM1 ((ROM-ADDRP ADDR MEM K) (NOT (LESSP K (PLUS I J)))) (READ-MEMP (ADD (QUOTE 32) ADDR I) MEM J) NIL) (REWRITE-RULE READ-MEMP-ROM0 ((ROM-ADDRP ADDR MEM K) (NOT (LESSP K J))) (READ-MEMP ADDR MEM J) NIL) (REWRITE-RULE WRITE-MEMP->READ-MEMP ((WRITE-MEMP X MEM N)) (READ-MEMP X MEM N) NIL) (REWRITE-RULE PC-READ-MEMP->READ-MEMP ((PC-READ-MEMP X MEM N)) (READ-MEMP X MEM N) NIL) (REWRITE-RULE WRITE-MEM-MAINTAIN-READ-MEMP NIL (EQUAL (READ-MEMP ADDR (WRITE-MEM VALUE X MEM M) N) (READ-MEMP ADDR MEM N)) NIL) (REWRITE-RULE BYTE-WRITE-MAINTAIN-READ-MEMP NIL (EQUAL (READ-MEMP ADDR (BYTE-WRITE VALUE X MEM) N) (READ-MEMP ADDR MEM N)) NIL) (REWRITE-RULE HEAD-READ-MEMP NIL (EQUAL (READ-MEMP (HEAD X (QUOTE 32)) MEM K) (READ-MEMP X MEM K)) NIL)) TOTALP-LST ((READ-MEMP . T)) QUICK-BLOCK-INFO (UNCHANGING UNCHANGING SELF-REFLEXIVE) SDEFN (LAMBDA (X MEM K) (IF (EQUAL K (QUOTE 0)) (QUOTE *1*TRUE) (IF (NUMBERP K) (IF (BYTE-READP (ADD (QUOTE 32) X (SUB1 K)) MEM) (IF (READ-MEMP X MEM (SUB1 K)) (QUOTE *1*TRUE) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*TRUE)))) LISP-CODE *1*READ-MEMP SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((ZEROP K)) NIL) (TESTS-AND-CASES ((NOT (ZEROP K))) ((X MEM (SUB1 K))))) LEVEL-NO 5 JUSTIFICATIONS ((JUSTIFICATION (K) (COUNT K) LESSP (ZEROP COUNT-NUMBERP LESSP-SUB1))) IDATE 1000402214823 CONTROLLER-POCKETS (4) SATELLITES (*1*READ-MEMP) IMMEDIATE-DEPENDENTS0 (READ-MEMP-RAM1-UINT STEPN-READ-MEMP READ-MEMP-OFF WRITEM-MEM-MAINTAIN-READ-MEMP READ-MEMP-ROM1-ASL READ-MEMP-RAM1-ASL READ-MEMP-RAM3 READ-MEMP-RAM2 READ-MEMP-RAM1-INT READ-MEMP-RAM1 READ-MEMP-RAM0 READ-MEMP-ROM1-INT READ-MEMP-ROM3 READ-MEMP-ROM2 READ-MEMP-ROM1 READ-MEMP-ROM0 WRITE-MEMP->READ-MEMP PC-READ-MEMP->READ-MEMP WRITE-MEM-MAINTAIN-READ-MEMP BYTE-WRITE-MAINTAIN-READ-MEMP HEAD-READ-MEMP CMPM-INS CMPM-MAPPING READMP SUBX-INS2 ADDX-INS2 MC-INSTATE LONG-READP WORD-READP) EVENT (DEFN READ-MEMP (X MEM K) (IF (ZEROP K) (QUOTE *1*TRUE) (AND (BYTE-READP (ADD (QUOTE 32) X (SUB1 K)) MEM) (READ-MEMP X MEM (SUB1 K))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ADD . READ-MEMP) (IMMEDIATE-DEPENDENTS0 BYTE-READP . READ-MEMP) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . READ-MEMP) (DCELL . *1*READ-MEMP))))) (PUT1-LST (QUOTE *1*BYTE-READP) (QUOTE (MAIN-EVENT BYTE-READP))) (PUT1-LST (QUOTE BYTE-READP) (QUOTE (TYPE-PRESCRIPTION-LST ((BYTE-READP 3 NIL NIL)) LEMMAS ((REWRITE-RULE WRITEM-MEM-MAINTAIN-BYTE-READP NIL (EQUAL (BYTE-READP X (WRITEM-MEM OPSZ VLST ADDR MEM)) (BYTE-READP X MEM)) NIL) (REWRITE-RULE BYTE-READP-RAM3 ((RAM-ADDRP (ADD (QUOTE 32) ADDR I) MEM K) (LESSP (INDEX-N J I) K)) (BYTE-READP (ADD (QUOTE 32) ADDR J) MEM) NIL) (REWRITE-RULE BYTE-READP-RAM2 ((RAM-ADDRP (ADD (QUOTE 32) ADDR I) MEM K) (LESSP (INDEX-N (QUOTE 0) I) K)) (BYTE-READP ADDR MEM) NIL) (REWRITE-RULE BYTE-READP-RAM1 ((RAM-ADDRP ADDR MEM K) (LESSP J K)) (BYTE-READP (ADD (QUOTE 32) ADDR J) MEM) NIL) (REWRITE-RULE BYTE-READP-RAM0 ((RAM-ADDRP ADDR MEM K) (NUMBERP K) (NOT (EQUAL K (QUOTE 0)))) (BYTE-READP ADDR MEM) NIL) (REWRITE-RULE BYTE-READP-ROM3 ((ROM-ADDRP (ADD (QUOTE 32) ADDR I) MEM K) (LESSP (INDEX-N J I) K)) (BYTE-READP (ADD (QUOTE 32) ADDR J) MEM) NIL) (REWRITE-RULE BYTE-READP-ROM2 ((ROM-ADDRP (ADD (QUOTE 32) ADDR I) MEM K) (LESSP (INDEX-N (QUOTE 0) I) K)) (BYTE-READP ADDR MEM) NIL) (REWRITE-RULE BYTE-READP-ROM1 ((ROM-ADDRP ADDR MEM K) (LESSP J K)) (BYTE-READP (ADD (QUOTE 32) ADDR J) MEM) NIL) (REWRITE-RULE BYTE-READP-ROM0 ((ROM-ADDRP ADDR MEM K) (NUMBERP K) (NOT (EQUAL K (QUOTE 0)))) (BYTE-READP ADDR MEM) NIL) (REWRITE-RULE WRITE-MEM-MAINTAIN-BYTE-READP NIL (EQUAL (BYTE-READP ADDR (WRITE-MEM VALUE X MEM K)) (BYTE-READP ADDR MEM)) NIL) (REWRITE-RULE BYTE-WRITE-MAINTAIN-BYTE-READP NIL (EQUAL (BYTE-READP X (BYTE-WRITE VALUE Y MEM)) (BYTE-READP X MEM)) NIL) (REWRITE-RULE BYTE-WRITEP->READP ((BYTE-WRITEP X MEM)) (BYTE-READP X MEM) NIL) (REWRITE-RULE PC-BYTE-READP->BYTE-READP ((PC-BYTE-READP X MEM)) (BYTE-READP X MEM) NIL) (REWRITE-RULE HEAD-BYTE-READP NIL (EQUAL (BYTE-READP (HEAD X (QUOTE 32)) MEM) (BYTE-READP X MEM)) NIL)) TOTALP-LST ((BYTE-READP . T)) SDEFN (LAMBDA (X MEM) (READP X (QUOTE 32) (CAR MEM))) LISP-CODE *1*BYTE-READP SUBRP *1*FALSE LEVEL-NO 4 IDATE 1000402214823 SATELLITES (*1*BYTE-READP) IMMEDIATE-DEPENDENTS0 (WRITEM-MEM-MAINTAIN-BYTE-READP BYTE-READP-RAM3 BYTE-READP-RAM2 BYTE-READP-RAM1 BYTE-READP-RAM0 BYTE-READP-ROM3 BYTE-READP-ROM2 BYTE-READP-ROM1 BYTE-READP-ROM0 WRITE-MEM-MAINTAIN-BYTE-READP BYTE-READP-OFF BYTE-WRITE-MAINTAIN-BYTE-READP BYTE-WRITEP->READP PC-BYTE-READP->BYTE-READP HEAD-READ-MEMP HEAD-BYTE-READP MOVEP-READP READ-MEMP) EVENT (DEFN BYTE-READP (X MEM) (READP X (QUOTE 32) (CAR MEM))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 READP . BYTE-READP) (DCELL . *1*BYTE-READP))))) (PUT1-LST (QUOTE *1*MC-HALTP) (QUOTE (MAIN-EVENT MC-HALTP))) (PUT1-LST (QUOTE MC-HALTP) (QUOTE (TYPE-PRESCRIPTION-LST ((MC-HALTP 3 NIL)) TOTALP-LST ((MC-HALTP . T)) SDEFN (LAMBDA (S) (IF (EQUAL (MC-STATUS S) (QUOTE RUNNING)) (QUOTE *1*FALSE) (QUOTE *1*TRUE))) LISP-CODE *1*MC-HALTP SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402214823 SATELLITES (*1*MC-HALTP) IMMEDIATE-DEPENDENTS0 (GCD-S0-S0-RFILE-2 GCD-S0-S0-RFILE-1 GCD-S0-S0-2 GCD-S0-S0-1 GCD-S0-SN-BASE-RFILE-2 GCD-S0-SN-BASE-2 GCD-S0-SN-BASE-RFILE-1 GCD-S0-SN-BASE-1 GCD-S-S0-MEM GCD-S-S0-RFILE GCD-S-S0 STEPN-H MISC-GROUP-H S&R-GROUP-H MOVE-GROUP-H MOVE-H BIT-GROUP-H CMP-GROUP-H SCC-GROUP-H OR-GROUP-H AND-GROUP-H SUB-GROUP-H ADD-GROUP-H STEPN-REWRITER STEPN-REWRITER0 STEPN-LEMMA STEPN CMPI-INS CMPI-MAPPING EORI-INS ADDI-INS SUBI-INS ANDI-INS ORI-INS BTST-INS BSET-INS BCLR-INS BCHG-INS MOVEP-INS EOR-MAPPING CMPA-INS CMP-INS SCC-INS NOT-INS JSR-INS JMP-MAPPING MOVEM-EA-RN-INS MUL-DIV_L-INS TAS-INS TST-INS MOVEM-RN-EA-INS PEA-INS MOVE-TO-CCR-INS NEG-INS NEGX-INS MOVE-FROM-CCR-INS CLR-INS LEA-INS MOVEA-INS MOVE-INS MOVE-MAPPING MEM-ROXR-INS MEM-ROXL-INS MEM-ASR-INS MEM-ASL-INS MEM-LSR-INS MEM-LSL-INS MEM-ROR-INS MEM-ROL-INS DIV_W-INS OR-MAPPING OR-INS1 MUL_W-INS AND-MAPPING AND-INS1 SUBA-INS SUB-MAPPING SUB-INS1 ADDA-INS ADD-MAPPING ADD-INS1) EVENT (DEFN MC-HALTP (S) (NOT (EQUAL (MC-STATUS S) (QUOTE RUNNING)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MC-STATUS . MC-HALTP) (DCELL . *1*MC-HALTP))))) (PUT1-LST (QUOTE *1*LEN) (QUOTE (MAIN-EVENT LEN))) (PUT1-LST (QUOTE LEN) (QUOTE (TYPE-PRESCRIPTION-LST ((LEN 4 NIL)) LEMMAS ((REWRITE-RULE MOVEM-PRE-RNLST-LEN NIL (EQUAL (LEN (MOVEM-PRE-RNLST MASK I LST)) (PLUS (MOVEM-LEN MASK) (LEN LST))) NIL) (REWRITE-RULE MOVEM-RNLST-LEN NIL (EQUAL (LEN (MOVEM-RNLST MASK I)) (MOVEM-LEN MASK)) NIL) (REWRITE-RULE BV-TO-LST-LEN NIL (EQUAL (LEN (BV-TO-LST OPSZ BV N)) (IF (NUMBERP N) N (QUOTE 0))) NIL) (REWRITE-RULE GET-VALS-LEN NIL (EQUAL (LEN (GET-VALS M LST N)) (IF (NUMBERP N) N (QUOTE 0))) NIL) (REWRITE-RULE APPEND-LEN NIL (EQUAL (LEN (APPEND X Y)) (PLUS (LEN X) (LEN Y))) NIL) (REWRITE-RULE READM-RN-LEN NIL (EQUAL (LEN (READM-RN OPLEN RNLST RFILE)) (LEN RNLST)) NIL) (REWRITE-RULE WRITE-RN-LEN NIL (EQUAL (LEN (WRITE-RN OPLEN VALUE RN RFILE)) (IF (LESSP RN (LEN RFILE)) (LEN RFILE) (ADD1 RN))) NIL) (REWRITE-RULE PUT-NTH-LEN NIL (EQUAL (LEN (PUT-NTH VALUE N LST)) (IF (LESSP N (LEN LST)) (LEN LST) (ADD1 N))) NIL)) TOTALP-LST ((LEN . T)) LINEAR-LEMMAS ((LINEAR-LEMMA MEM-LST-LEN ((MEM-LST OPSZ A MEM N LST)) (NOT (LESSP N (LEN LST))) (LEN LST))) QUICK-BLOCK-INFO (SELF-REFLEXIVE) SDEFN (LAMBDA (LST) (IF (LISTP LST) (ADD1 (LEN (CDR LST))) (QUOTE 0))) LISP-CODE *1*LEN SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((NLISTP LST)) NIL) (TESTS-AND-CASES ((NOT (NLISTP LST))) (((CDR LST))))) LEVEL-NO 1 JUSTIFICATIONS ((JUSTIFICATION (LST) (COUNT LST) LESSP (CDR-LESSP NLISTP ZERO CDR-LESSEQP))) IDATE 1000402214823 CONTROLLER-POCKETS (1) SATELLITES (*1*LEN) IMMEDIATE-DEPENDENTS0 (GCD-S0-S0-RFILE-2 GCD-S0-S0-RFILE-1 GCD-S0-S0-2 GCD-S0-S0-1 GCD-S0-SN-BASE-RFILE-2 GCD-S0-SN-BASE-2 GCD-S0-SN-BASE-RFILE-1 GCD-S0-SN-BASE-1 GCD-S-S0-MEM GCD-S-S0-RFILE GCD-S-S0 STEPN-GCD-LOADP STEPN-MCODE-ADDRP MISC-GROUP-H MOVEM-PRE-RNLST-LEN MOVEM-RNLST-LEN WRITEM-MEM-H MEM-LST-MCDR-1 MEM-LST-MCDR MEM-LST-LEN READM-WRITEM-MEM READ-WRITEM-MEM WRITEM-ELSE-MEM-ILST WRITEM-ELSE-MEM-LST WRITEM-MEM-MCODE-ADDRP PC-READ-MEM-WRITEM-MEM GET-VALS-0 PUT-VALS-APPEND GET-VALS-APPEND GET-NTH-APPEND CDR-MCDR MCDR-LISTP-LEN BV-TO-LST-LEN GET-VALS-LEN APPEND-LEN WRITE-MEM-MCODE-ADDRP BYTE-WRITE-MCODE-ADDRP READ-MEM-MCODE3 READ-MEM-MCODE2 READ-MEM-MCODE1-INT PC-READ-MEM-MCODE3 PC-READ-MEM-MCODE2 PC-READ-MEM-MCODE1 PC-READ-MEM-MCODE0 PC-BYTE-READ-MCODE3 PC-BYTE-READ-MCODE2 PC-BYTE-READ-MCODE1 READM-RN-LEN WRITE-RN-LEN PUT-NTH-LEN PUT-GET) EVENT (DEFN LEN (LST) (IF (NLISTP LST) (QUOTE 0) (ADD1 (LEN (CDR LST))))) LOCAL-UNDO-TUPLES ((DCELL . *1*LEN))))) (PUT1-LST (QUOTE *1*MC-MEM) (QUOTE (MAIN-EVENT MC-MEM))) (PUT1-LST (QUOTE MC-MEM) (QUOTE (TYPE-PRESCRIPTION-LST ((MC-MEM -1 NIL)) LEMMAS ((REWRITE-RULE MC-INSTATE-MEM NIL (EQUAL (MC-MEM (CAR (MC-INSTATE OPLEN INS S))) (MC-MEM S)) NIL) (REWRITE-RULE EFFEC-ADDR-MEM NIL (EQUAL (MC-MEM (CAR (EFFEC-ADDR OPLEN MODE RN S))) (MC-MEM S)) NIL) (REWRITE-RULE IMMEDIATE-MEM NIL (EQUAL (MC-MEM (CAR (IMMEDIATE OPLEN PC S))) (MC-MEM S)) NIL) (REWRITE-RULE ADDR-INDEX2-MEM NIL (EQUAL (MC-MEM (CAR (ADDR-INDEX2 PC ADDR INDEXWD S))) (MC-MEM S)) NIL) (REWRITE-RULE MC-MEM-REWRITE NIL (EQUAL (MC-MEM (MC-STATE STATUS RFILE PC CCR MEM)) MEM) NIL)) TOTALP-LST ((MC-MEM . T)) SDEFN (LAMBDA (S) (CAR (CDR (CDR (CDR (CDR S)))))) LISP-CODE *1*MC-MEM SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402214823 SATELLITES (*1*MC-MEM) IMMEDIATE-DEPENDENTS0 (GCD-CORRECTNESS GCD-S0-SN GCD-S0-S0-2 GCD-S0-S0-1 GCD-S0-SN-BASE-2 GCD-S0-SN-BASE-1 GCD-S-S0-MEM GCD-S0P GCD-STATEP GCD-LOAD RN-SAVED MOVEM-SAVED LINKED-A6 LINKED-RTS-ADDR RTS-ADDR STEPN-MCODE-ADDRP STEPN-READ-MEM STEPN-PC-READ-MEM STEPN-RAM-ADDRP STEPN-ROM-ADDRP STEPN-WRITE-MEMP STEPN-READ-MEMP STEPN-PC-READ-MEMP STEPN-H STEPI-P STEPI-H MISC-GROUP-H S&R-GROUP-H MOVE-GROUP-H MOVE-H BIT-GROUP-H BCC-GROUP-H CMP-GROUP-H SCC-GROUP-H OR-GROUP-H AND-GROUP-H SUB-GROUP-H ADD-GROUP-H MAPPING-H MC-INSTATE-MEM EFFEC-ADDR-MEM IMMEDIATE-MEM ADDR-INDEX2-MEM STEPN-MEM-ILST STEPN-MEM-LST STEPN-READM-MEM MC-MEM-OFF MC-MEM-REWRITE STEPI CURRENT-INS EORI-TO-CCR-INS ANDI-TO-CCR-INS ORI-TO-CCR-INS S-BIT-SUBGROUP MOVEP-TO-REG MOVEP-TO-MEM CMPM-INS CMPM-MAPPING DBCC-INS DBCC-LOOP BCC-GROUP RTR-INS RTD-INS RTD-MAPPING UNLK-INS LINK_W-INS LINK_L-INS LINK-MAPPING MOVEM-EA-RN-SUBGROUP MOVEM-EA-RN-INS EXT-SUBGROUP MOVEM-RN-EA-INS SUBX-INS2 ADDX-INS2 M-MAPPING A-MAPPING D-MAPPING MC-INSTATE IMMEDIATE PC-INDEX PC-DISP ABSOLUTE-LONG ABSOLUTE-SHORT ADDR-INDEX ADDR-INDEX2 MEM-POSTINDEX MEM-INDIRECT ADDR-DISP OPERAND PUSH-SP UPDATE-CCR UPDATE-PC UPDATE-RFILE HALT) EVENT (DEFN MC-MEM (S) (CAR (CDR (CDR (CDR (CDR S)))))) LOCAL-UNDO-TUPLES ((DCELL . *1*MC-MEM))))) (PUT1-LST (QUOTE *1*MC-CCR) (QUOTE (MAIN-EVENT MC-CCR))) (PUT1-LST (QUOTE MC-CCR) (QUOTE (TYPE-PRESCRIPTION-LST ((MC-CCR 4 NIL)) LEMMAS ((REWRITE-RULE MC-CCR-REWRITE ((NAT-RANGEP CCR (QUOTE 8))) (EQUAL (MC-CCR (MC-STATE STATUS RFILE PC CCR MEM)) (IF (NUMBERP CCR) CCR (QUOTE 0))) NIL)) TOTALP-LST ((MC-CCR . T)) SDEFN (LAMBDA (S) (HEAD (CAR (CDR (CDR (CDR S)))) (B))) LISP-CODE *1*MC-CCR SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214823 SATELLITES (*1*MC-CCR) IMMEDIATE-DEPENDENTS0 (MC-CCR-OFF MC-CCR-RANGEP MC-CCR-REWRITE CMPI-MAPPING EORI-TO-CCR-INS ANDI-TO-CCR-INS ORI-TO-CCR-INS BTST-INS BSET-INS BCLR-INS BCHG-INS CMPM-MAPPING EOR-MAPPING CMPA-INS CMP-INS MOVEQ-INS DBCC-INS SCC-INS BCC-RA-SR NOT-INS TRAPV-INS MULS_L_DLDH MULS_L_DL MULU_L_DLDH MULU_L_DL DIVU_L DIVUL_L DIVS_L DIVSL_L TAS-INS TST-INS EXT-INS SWAP-INS NEGX-INS MOVE-FROM-CCR-INS CLR-INS EXTB-INS MOVE-MAPPING MEM-ROXR-INS MEM-ROXL-INS REGISTER-ROXR-INS REGISTER-ROXL-INS MEM-ASR-INS MEM-ASL-INS REGISTER-ASR-INS REGISTER-ASL-INS MEM-LSR-INS MEM-LSL-INS REGISTER-LSR-INS REGISTER-LSL-INS MEM-ROR-INS MEM-ROL-INS REGISTER-ROR-INS REGISTER-ROL-INS DIVU_W-INS DIVS_W-INS OR-MAPPING OR-INS1 MULS_W-INS MULU_W-INS AND-MAPPING AND-INS1 SUBX-INS2 SUBX-INS1 ADDX-INS2 ADDX-INS1 M-MAPPING A-MAPPING D-MAPPING UPDATE-MEM UPDATE-CCR UPDATE-PC UPDATE-RFILE HALT) EVENT (DEFN MC-CCR (S) (HEAD (CAR (CDR (CDR (CDR S)))) (B))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B . MC-CCR) (IMMEDIATE-DEPENDENTS0 HEAD . MC-CCR) (DCELL . *1*MC-CCR))))) (PUT1-LST (QUOTE *1*MC-PC) (QUOTE (MAIN-EVENT MC-PC))) (PUT1-LST (QUOTE MC-PC) (QUOTE (TYPE-PRESCRIPTION-LST ((MC-PC 4 NIL)) LEMMAS ((REWRITE-RULE GCD-CORRECTNESS ((GCD-STATEP S A B)) (EQUAL (MC-PC (STEPN S (GCD-T A B))) (RTS-ADDR S)) NIL) (REWRITE-RULE GCD-S0-SN ((GCD-S0P S A B)) (EQUAL (MC-PC (STEPN S (GCD-T1 A B))) (LINKED-RTS-ADDR S)) NIL) (REWRITE-RULE GCD-S0-SN-BASE-2 ((GCD-S0P S A B) (NUMBERP A) (NOT (EQUAL A (QUOTE 0))) (ZEROP B)) (EQUAL (MC-PC (STEPN S (QUOTE 9))) (LINKED-RTS-ADDR S)) NIL) (REWRITE-RULE GCD-S0-SN-BASE-1 ((GCD-S0P S A B) (ZEROP A)) (EQUAL (MC-PC (STEPN S (QUOTE 6))) (LINKED-RTS-ADDR S)) NIL) (REWRITE-RULE MC-PC-REWRITE ((NAT-RANGEP PC (QUOTE 32))) (EQUAL (MC-PC (MC-STATE STATUS RFILE PC CCR MEM)) (IF (NUMBERP PC) PC (QUOTE 0))) NIL)) TOTALP-LST ((MC-PC . T)) SDEFN (LAMBDA (S) (HEAD (CAR (CDR (CDR S))) (L))) LISP-CODE *1*MC-PC SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214823 SATELLITES (*1*MC-PC) IMMEDIATE-DEPENDENTS0 (GCD-CORRECTNESS GCD-S0-SN GCD-S0-SN-BASE-2 GCD-S0-SN-BASE-1 GCD-S0P GCD-STATEP MC-PC-OFF MC-PC-RANGEP MC-PC-REWRITE GCD-EXAMPLE STEPI CMPI-INS EORI-SUBGROUP EORI-INS ADDI-INS SUBI-INS ANDI-SUBGROUP ANDI-INS ORI-SUBGROUP ORI-INS S-BIT-SUBGROUP MOVEP-INS DBCC-INS DBCC-LOOP BCC-GROUP BCC-RA-SR BSR-INS JSR-INS RTD-INS LINK_W-INS LINK_L-INS MOVEM-EA-RN-SUBGROUP EXT-SUBGROUP M-MAPPING A-MAPPING D-MAPPING EFFEC-ADDR UPDATE-MEM UPDATE-CCR UPDATE-RFILE HALT) EVENT (DEFN MC-PC (S) (HEAD (CAR (CDR (CDR S))) (L))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 L . MC-PC) (IMMEDIATE-DEPENDENTS0 HEAD . MC-PC) (DCELL . *1*MC-PC))))) (PUT1-LST (QUOTE *1*MC-RFILE) (QUOTE (MAIN-EVENT MC-RFILE))) (PUT1-LST (QUOTE MC-RFILE) (QUOTE (TYPE-PRESCRIPTION-LST ((MC-RFILE -1 NIL)) LEMMAS ((REWRITE-RULE MC-RFILE-REWRITE NIL (EQUAL (MC-RFILE (MC-STATE STATUS RFILE PC CCR MEM)) RFILE) NIL)) TOTALP-LST ((MC-RFILE . T)) SDEFN (LAMBDA (S) (CAR (CDR S))) LISP-CODE *1*MC-RFILE SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402214823 SATELLITES (*1*MC-RFILE) IMMEDIATE-DEPENDENTS0 (GCD-CORRECTNESS GCD-S0-SN-RFILE GCD-S0-SN GCD-S0-S0-RFILE-2 GCD-S0-S0-RFILE-1 GCD-S0-S0-2 GCD-S0-S0-1 GCD-S0-SN-BASE-RFILE-2 GCD-S0-SN-BASE-2 GCD-S0-SN-BASE-RFILE-1 GCD-S0-SN-BASE-1 GCD-S-S0-RFILE GCD-S-S0 MC-RFILE-OFF MC-RFILE-REWRITE GCD-EXAMPLE MOVEM-EA-RN-INS MOVEM-RN-EA-INS M-MAPPING A-MAPPING D-MAPPING WRITE-AN WRITE-DN READ-AN READ-DN UPDATE-MEM UPDATE-CCR UPDATE-PC HALT) EVENT (DEFN MC-RFILE (S) (CAR (CDR S))) LOCAL-UNDO-TUPLES ((DCELL . *1*MC-RFILE))))) (PUT1-LST (QUOTE *1*MC-STATUS) (QUOTE (MAIN-EVENT MC-STATUS))) (PUT1-LST (QUOTE MC-STATUS) (QUOTE (TYPE-PRESCRIPTION-LST ((MC-STATUS -1 NIL)) LEMMAS ((REWRITE-RULE GCD-CORRECTNESS ((GCD-STATEP S A B)) (EQUAL (MC-STATUS (STEPN S (GCD-T A B))) (QUOTE RUNNING)) NIL) (REWRITE-RULE GCD-S0-SN ((GCD-S0P S A B)) (EQUAL (MC-STATUS (STEPN S (GCD-T1 A B))) (QUOTE RUNNING)) NIL) (REWRITE-RULE GCD-S0-SN-BASE-2 ((GCD-S0P S A B) (NUMBERP A) (NOT (EQUAL A (QUOTE 0))) (ZEROP B)) (EQUAL (MC-STATUS (STEPN S (QUOTE 9))) (QUOTE RUNNING)) NIL) (REWRITE-RULE GCD-S0-SN-BASE-1 ((GCD-S0P S A B) (ZEROP A)) (EQUAL (MC-STATUS (STEPN S (QUOTE 6))) (QUOTE RUNNING)) NIL) (REWRITE-RULE MC-STATUS-REWRITE NIL (EQUAL (MC-STATUS (MC-STATE STATUS RFILE PC CCR MEM)) STATUS) NIL)) TOTALP-LST ((MC-STATUS . T)) SDEFN (LAMBDA (S) (CAR S)) LISP-CODE *1*MC-STATUS SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402214823 SATELLITES (*1*MC-STATUS) IMMEDIATE-DEPENDENTS0 (GCD-CORRECTNESS GCD-S0-SN GCD-S0-SN-BASE-2 GCD-S0-SN-BASE-1 GCD-S0P GCD-STATEP STEPN-H STEPN-REWRITER MC-STATUS-OFF MC-STATUS-REWRITE GCD-EXAMPLE STEPN M-MAPPING A-MAPPING D-MAPPING UPDATE-MEM UPDATE-CCR UPDATE-PC UPDATE-RFILE MC-HALTP) EVENT (DEFN MC-STATUS (S) (CAR S)) LOCAL-UNDO-TUPLES ((DCELL . *1*MC-STATUS))))) (PUT1-LST (QUOTE *1*MC-STATE) (QUOTE (MAIN-EVENT MC-STATE))) (PUT1-LST (QUOTE MC-STATE) (QUOTE (TYPE-PRESCRIPTION-LST ((MC-STATE 16 NIL NIL NIL NIL NIL)) TOTALP-LST ((MC-STATE . T)) SDEFN (LAMBDA (STATUS REGS PC CCR MEM) (CONS STATUS (CONS REGS (CONS PC (CONS CCR (CONS MEM (QUOTE NIL))))))) LISP-CODE *1*MC-STATE SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402214823 SATELLITES (*1*MC-STATE) IMMEDIATE-DEPENDENTS0 (MC-STATE-OFF MC-MEM-REWRITE MC-CCR-REWRITE MC-PC-REWRITE MC-RFILE-REWRITE MC-STATUS-REWRITE GCD-EXAMPLE M-MAPPING A-MAPPING D-MAPPING UPDATE-MEM UPDATE-CCR UPDATE-PC UPDATE-RFILE HALT) EVENT (DEFN MC-STATE (STATUS REGS PC CCR MEM) (CONS STATUS (CONS REGS (CONS PC (CONS CCR (CONS MEM (QUOTE NIL))))))) LOCAL-UNDO-TUPLES ((DCELL . *1*MC-STATE))))) (PUT1-LST (QUOTE *1*WRITE-RN) (QUOTE (MAIN-EVENT WRITE-RN))) (PUT1-LST (QUOTE WRITE-RN) (QUOTE (TYPE-PRESCRIPTION-LST ((WRITE-RN 16 NIL NIL NIL NIL)) LEMMAS ((REWRITE-RULE WRITE-WRITE-RN ((NOT (LESSP N2 N1))) (EQUAL (WRITE-RN N2 V2 RN (WRITE-RN N1 V1 RN RFILE)) (WRITE-RN N2 V2 RN RFILE)) NIL)) TOTALP-LST ((WRITE-RN . T)) SDEFN (LAMBDA (OPLEN VALUE RN REGS) (PUT-NTH (REPLACE OPLEN VALUE (GET-NTH RN REGS)) RN REGS)) LISP-CODE *1*WRITE-RN SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214823 SATELLITES (*1*WRITE-RN) IMMEDIATE-DEPENDENTS0 (READM-WRITE-RN WRITE-RN-OFF WRITE-RN-LEN WRITE-WRITE-RN READ-WRITE-RN READ-WRITE-RN-END WRITEM-RN A-MAPPING D-MAPPING WRITE-AN WRITE-DN) EVENT (DEFN WRITE-RN (OPLEN VALUE RN REGS) (PUT-NTH (REPLACE OPLEN VALUE (GET-NTH RN REGS)) RN REGS)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 GET-NTH . WRITE-RN) (IMMEDIATE-DEPENDENTS0 REPLACE . WRITE-RN) (IMMEDIATE-DEPENDENTS0 PUT-NTH . WRITE-RN) (DCELL . *1*WRITE-RN))))) (PUT1-LST (QUOTE *1*READ-RN) (QUOTE (MAIN-EVENT READ-RN))) (PUT1-LST (QUOTE READ-RN) (QUOTE (TYPE-PRESCRIPTION-LST ((READ-RN 4 NIL NIL NIL)) LEMMAS ((REWRITE-RULE GCD-CORRECTNESS ((GCD-STATEP S A B) (D2-7A2-5P RN) (NOT (LESSP (QUOTE 32) OPLEN))) (EQUAL (READ-RN OPLEN RN (MC-RFILE (STEPN S (GCD-T A B)))) (READ-RN OPLEN RN (MC-RFILE S))) NIL) (REWRITE-RULE GCD-CORRECTNESS ((GCD-STATEP S A B)) (EQUAL (READ-RN (QUOTE 32) (QUOTE 15) (MC-RFILE (STEPN S (GCD-T A B)))) (ADD (QUOTE 32) (READ-AN (QUOTE 32) (QUOTE 7) S) (QUOTE 4))) NIL) (REWRITE-RULE GCD-CORRECTNESS ((GCD-STATEP S A B)) (EQUAL (READ-RN (QUOTE 32) (QUOTE 14) (MC-RFILE (STEPN S (GCD-T A B)))) (READ-RN (QUOTE 32) (QUOTE 14) (MC-RFILE S))) NIL) (REWRITE-RULE GCD-S0-SN-RFILE ((GCD-S0P S A B) (D2-7A2-5P RN) (NOT (LESSP (QUOTE 32) OPLEN))) (EQUAL (READ-RN OPLEN RN (MC-RFILE (STEPN S (GCD-T1 A B)))) (IF (D4-7A2-5P RN) (READ-RN OPLEN RN (MC-RFILE S)) (GET-VLST OPLEN (QUOTE 0) RN (QUOTE (2 3)) (MOVEM-SAVED S (QUOTE 4) (QUOTE 8) (QUOTE 2))))) NIL) (REWRITE-RULE GCD-S0-SN ((GCD-S0P S A B)) (EQUAL (READ-RN (QUOTE 32) (QUOTE 15) (MC-RFILE (STEPN S (GCD-T1 A B)))) (ADD (QUOTE 32) (READ-AN (QUOTE 32) (QUOTE 6) S) (QUOTE 8))) NIL) (REWRITE-RULE GCD-S0-SN ((GCD-S0P S A B)) (EQUAL (READ-RN (QUOTE 32) (QUOTE 14) (MC-RFILE (STEPN S (GCD-T1 A B)))) (LINKED-A6 S)) NIL) (REWRITE-RULE GCD-S0-S0-RFILE-2 ((GCD-S0P S A B) (NUMBERP A) (NOT (EQUAL A (QUOTE 0))) (NUMBERP B) (NOT (EQUAL B (QUOTE 0))) (NOT (LESSP B A)) (D4-7A2-5P RN)) (EQUAL (READ-RN OPLEN RN (MC-RFILE (STEPN S (QUOTE 9)))) (READ-RN OPLEN RN (MC-RFILE S))) NIL) (REWRITE-RULE GCD-S0-S0-RFILE-1 ((GCD-S0P S A B) (NUMBERP A) (NOT (EQUAL A (QUOTE 0))) (NUMBERP B) (NOT (EQUAL B (QUOTE 0))) (LESSP B A) (D4-7A2-5P RN)) (EQUAL (READ-RN OPLEN RN (MC-RFILE (STEPN S (QUOTE 9)))) (READ-RN OPLEN RN (MC-RFILE S))) NIL) (REWRITE-RULE GCD-S0-S0-2 ((GCD-S0P S A B) (NUMBERP A) (NOT (EQUAL A (QUOTE 0))) (NUMBERP B) (NOT (EQUAL B (QUOTE 0))) (NOT (LESSP B A))) (EQUAL (READ-RN OPLEN (QUOTE 14) (MC-RFILE (STEPN S (QUOTE 9)))) (READ-RN OPLEN (QUOTE 14) (MC-RFILE S))) NIL) (REWRITE-RULE GCD-S0-S0-1 ((GCD-S0P S A B) (NUMBERP A) (NOT (EQUAL A (QUOTE 0))) (NUMBERP B) (NOT (EQUAL B (QUOTE 0))) (LESSP B A)) (EQUAL (READ-RN OPLEN (QUOTE 14) (MC-RFILE (STEPN S (QUOTE 9)))) (READ-RN OPLEN (QUOTE 14) (MC-RFILE S))) NIL) (REWRITE-RULE GCD-S0-SN-BASE-RFILE-2 ((GCD-S0P S A B) (NUMBERP A) (NOT (EQUAL A (QUOTE 0))) (ZEROP B) (D2-7A2-5P RN) (NOT (LESSP (QUOTE 32) OPLEN))) (EQUAL (READ-RN OPLEN RN (MC-RFILE (STEPN S (QUOTE 9)))) (IF (D4-7A2-5P RN) (READ-RN OPLEN RN (MC-RFILE S)) (GET-VLST OPLEN (QUOTE 0) RN (QUOTE (2 3)) (MOVEM-SAVED S (QUOTE 4) (QUOTE 8) (QUOTE 2))))) NIL) (REWRITE-RULE GCD-S0-SN-BASE-2 ((GCD-S0P S A B) (NUMBERP A) (NOT (EQUAL A (QUOTE 0))) (ZEROP B)) (EQUAL (READ-RN (QUOTE 32) (QUOTE 15) (MC-RFILE (STEPN S (QUOTE 9)))) (ADD (QUOTE 32) (READ-AN (QUOTE 32) (QUOTE 6) S) (QUOTE 8))) NIL) (REWRITE-RULE GCD-S0-SN-BASE-2 ((GCD-S0P S A B) (NUMBERP A) (NOT (EQUAL A (QUOTE 0))) (ZEROP B)) (EQUAL (READ-RN (QUOTE 32) (QUOTE 14) (MC-RFILE (STEPN S (QUOTE 9)))) (LINKED-A6 S)) NIL) (REWRITE-RULE GCD-S0-SN-BASE-RFILE-1 ((GCD-S0P S A B) (ZEROP A) (D2-7A2-5P RN) (NOT (LESSP (QUOTE 32) OPLEN))) (EQUAL (READ-RN OPLEN RN (MC-RFILE (STEPN S (QUOTE 6)))) (IF (D4-7A2-5P RN) (READ-RN OPLEN RN (MC-RFILE S)) (GET-VLST OPLEN (QUOTE 0) RN (QUOTE (2 3)) (MOVEM-SAVED S (QUOTE 4) (QUOTE 8) (QUOTE 2))))) NIL) (REWRITE-RULE GCD-S0-SN-BASE-1 ((GCD-S0P S A B) (ZEROP A)) (EQUAL (READ-RN (QUOTE 32) (QUOTE 15) (MC-RFILE (STEPN S (QUOTE 6)))) (ADD (QUOTE 32) (READ-AN (QUOTE 32) (QUOTE 6) S) (QUOTE 8))) NIL) (REWRITE-RULE GCD-S0-SN-BASE-1 ((GCD-S0P S A B) (ZEROP A)) (EQUAL (READ-RN (QUOTE 32) (QUOTE 14) (MC-RFILE (STEPN S (QUOTE 6)))) (LINKED-A6 S)) NIL) (REWRITE-RULE GCD-S-S0-RFILE ((GCD-STATEP S A B) (D4-7A2-5P RN)) (EQUAL (READ-RN OPLEN RN (MC-RFILE (STEPN S (QUOTE 4)))) (READ-RN OPLEN RN (MC-RFILE S))) NIL) (REWRITE-RULE GCD-S-S0 ((GCD-STATEP S A B)) (EQUAL (READ-RN (QUOTE 32) (QUOTE 14) (MC-RFILE (STEPN S (QUOTE 4)))) (SUB (QUOTE 32) (QUOTE 4) (READ-SP S))) NIL) (REWRITE-RULE READ-RN-EQUAL* ((EQUAL* (READ-RN OPLEN RN RFILE) X)) (EQUAL (READ-RN OPLEN RN RFILE) X) NIL) (REWRITE-RULE READ-RN-0 ((NOT (NUMBERP RN))) (EQUAL (READ-RN OPLEN RN RFILE) (READ-RN OPLEN (QUOTE 0) RFILE)) NIL) (REWRITE-RULE READ-WRITEM-RN NIL (EQUAL (READ-RN N1 RN (WRITEM-RN N2 VLST RNLST RFILE)) (IF (N-MEMBER RN RNLST) (IF (LESSP N2 N1) (READ-WRITEM-RN-END N1 RN N2 VLST RNLST RFILE) (IF (LESSP (QUOTE 32) N2) (READ-WRITEM-RN-END N1 RN N2 VLST RNLST RFILE) (GET-VLST N1 (QUOTE 0) RN RNLST VLST))) (READ-RN N1 RN RFILE))) NIL) (REWRITE-RULE READ-WRITE-RN NIL (EQUAL (READ-RN N2 RN (WRITE-RN N1 VALUE RM RFILE)) (IF (NUMBERP RM) (IF (NUMBERP RN) (IF (EQUAL RM RN) (IF (LESSP N1 N2) (REPLACE N1 VALUE (READ-RN N2 RN RFILE)) (HEAD VALUE N2)) (READ-RN N2 RN RFILE)) (IF (EQUAL RM (QUOTE 0)) (IF (LESSP N1 N2) (REPLACE N1 VALUE (READ-RN N2 RN RFILE)) (HEAD VALUE N2)) (READ-RN N2 RN RFILE))) (IF (NUMBERP RN) (IF (EQUAL (QUOTE 0) RN) (IF (LESSP N1 N2) (REPLACE N1 VALUE (READ-RN N2 RN RFILE)) (HEAD VALUE N2)) (READ-RN N2 RN RFILE)) (IF (LESSP N1 N2) (REPLACE N1 VALUE (READ-RN N2 RN RFILE)) (HEAD VALUE N2))))) NIL)) TOTALP-LST ((READ-RN . T)) SDEFN (LAMBDA (OPLEN RN REGS) (HEAD (GET-NTH RN REGS) OPLEN)) LISP-CODE *1*READ-RN SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214823 SATELLITES (*1*READ-RN) IMMEDIATE-DEPENDENTS0 (GCD-CORRECTNESS GCD-S0-SN-RFILE GCD-S0-SN GCD-S0-S0-RFILE-2 GCD-S0-S0-RFILE-1 GCD-S0-S0-2 GCD-S0-S0-1 GCD-S0-SN-BASE-RFILE-2 GCD-S0-SN-BASE-2 GCD-S0-SN-BASE-RFILE-1 GCD-S0-SN-BASE-1 GCD-S-S0-RFILE GCD-S-S0 READ-RN-INT-8_16 READ-RN-INT-16_32 READ-RN-INT-8_32 READ-RN-EQUAL* GET-VLST-READM-RN READ-RN-0 READ-WRITEM-RN READ-WRITEM-RN-END READ-RN-OFF READ-WRITE-RN READ-WRITE-RN-END HEAD-READ-RN READ-RN-NAT-RANGEP READM-RN READ-AN READ-DN) EVENT (DEFN READ-RN (OPLEN RN REGS) (HEAD (GET-NTH RN REGS) OPLEN)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 GET-NTH . READ-RN) (IMMEDIATE-DEPENDENTS0 HEAD . READ-RN) (DCELL . *1*READ-RN))))) (PUT1-LST (QUOTE *1*OP-SZ) (QUOTE (MAIN-EVENT OP-SZ))) (PUT1-LST (QUOTE OP-SZ) (QUOTE (TYPE-PRESCRIPTION-LST ((OP-SZ 4 NIL)) TOTALP-LST ((OP-SZ . T)) SDEFN (LAMBDA (OPLEN) (QUOTIENT OPLEN (B))) LISP-CODE *1*OP-SZ SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402214823 SATELLITES (*1*OP-SZ) IMMEDIATE-DEPENDENTS0 (GCD-S0-SN-BASE-RFILE-2 GCD-S0-SN-BASE-2 GCD-S0-SN-BASE-RFILE-1 GCD-S0-SN-BASE-1 GCD-S-S0-MEM GCD-S-S0-RFILE GCD-S-S0 MISC-GROUP-H BIT-GROUP-H CMP-GROUP-H SUB-GROUP-H ADD-GROUP-H MAPPING-H MC-INSTATE-MEM EFFEC-ADDR-MEM IMMEDIATE-MEM ADDR-INDEX2-MEM MOVEP-TO-REG MOVEP-TO-MEM CMPM-INS CMPM-MAPPING MOVEM-EA-RN-INS READMP MOVEM-RN-EA-INS MOVEM-PREDEC WRITEMP SUBX-INS2 ADDX-INS2 M-MAPPING MC-INSTATE IMMEDIATE MEM-POSTINDEX MEM-INDIRECT PRE-EFFECT POST-EFFECT OPERAND) EVENT (DEFN OP-SZ (OPLEN) (QUOTIENT OPLEN (B))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B . OP-SZ) (DCELL . *1*OP-SZ))))) (PUT1-LST (QUOTE *1*PUT-NTH) (QUOTE (MAIN-EVENT PUT-NTH))) (PUT1-LST (QUOTE PUT-NTH) (QUOTE (TYPE-PRESCRIPTION-LST ((PUT-NTH 16 NIL NIL NIL)) LEMMAS ((REWRITE-RULE PUT-LST-INT NIL (EQUAL (PUT-NTH (NAT-TO-INT VALUE N) I (LST-INT N LST)) (LST-INT N (PUT-NTH VALUE I LST))) NIL) (REWRITE-RULE LSTCPY-PUT-NTH ((LESSP I J1)) (EQUAL (PUT-NTH V I (LSTCPY J1 LST1 J2 LST2 N)) (LSTCPY J1 (PUT-NTH V I LST1) J2 LST2 N)) NIL) (REWRITE-RULE PUT-COMMUTATIVITY ((LESSP J I)) (EQUAL (PUT-NTH V1 I (PUT-NTH V2 J LST)) (PUT-NTH V2 J (PUT-NTH V1 I LST))) ((I . J) (V1 . V2))) (REWRITE-RULE PUT-GET ((LESSP N (LEN LST))) (EQUAL (PUT-NTH (GET-NTH N LST) N LST) LST) NIL) (REWRITE-RULE PUT-PUT NIL (EQUAL (PUT-NTH VALUE1 N (PUT-NTH VALUE N LST)) (PUT-NTH VALUE1 N LST)) NIL) (REWRITE-RULE PUT-NTH-0 ((NOT (NUMBERP I))) (EQUAL (PUT-NTH V I LST) (PUT-NTH V (QUOTE 0) LST)) NIL)) TOTALP-LST ((PUT-NTH . T)) QUICK-BLOCK-INFO (UNCHANGING SELF-REFLEXIVE SELF-REFLEXIVE) SDEFN (LAMBDA (VALUE N LST) (IF (EQUAL N (QUOTE 0)) (CONS VALUE (CDR LST)) (IF (NUMBERP N) (CONS (CAR LST) (PUT-NTH VALUE (SUB1 N) (CDR LST))) (CONS VALUE (CDR LST))))) LISP-CODE *1*PUT-NTH SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((ZEROP N)) NIL) (TESTS-AND-CASES ((NOT (ZEROP N))) ((VALUE (SUB1 N) (CDR LST))))) LEVEL-NO 1 JUSTIFICATIONS ((JUSTIFICATION (N) (COUNT N) LESSP (ZEROP COUNT-NUMBERP LESSP-SUB1))) IDATE 1000402214823 CONTROLLER-POCKETS (2) SATELLITES (*1*PUT-NTH) IMMEDIATE-DEPENDENTS0 (SLEN-PUT SLEN-PUT0 PUT-LST-OF-CHRP STRXFRM1 STRTOK-LST0 STRNCPY1 ZERO-LIST ZERO-LIST1 STRCPY2 STRCPY1 STRCPY MEMSET1 PUT-NTH-OFF SWAP PUT-LST-INT MMOV1-LST1 MMOV1-LST LSTCPY-ADD1 LSTCPY1 LSTCPY-PUT-NTH PUT-COMMUTATIVITY LSTCPY-LSTCPY LSTCPY WRITE-MEM-ILST-ASL WRITE-MEM-LST-ASL WRITE-MEM-ILST-INT WRITE-MEM-LST-INT WRITE-MEM-ILST0 WRITE-MEM-LST0 WRITE-MEM-ILST WRITE-MEM-LST MEM-INDUCT4 MEM-INDUCT3 WRITE-MEM-LST-LA PUT-VALS PUT-LST PUT-NTH-LEN PUT-GET PUT-PUT GET-PUT PUT-NTH-0 WRITE-RN) EVENT (DEFN PUT-NTH (VALUE N LST) (IF (ZEROP N) (CONS VALUE (CDR LST)) (CONS (CAR LST) (PUT-NTH VALUE (SUB1 N) (CDR LST))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . PUT-NTH) (DCELL . *1*PUT-NTH))))) (PUT1-LST (QUOTE *1*GET-NTH) (QUOTE (MAIN-EVENT GET-NTH))) (PUT1-LST (QUOTE GET-NTH) (QUOTE (TYPE-PRESCRIPTION-LST ((GET-NTH -1 NIL NIL)) LEMMAS ((REWRITE-RULE GET-SWAP NIL (EQUAL (GET-NTH K (SWAP I J LST)) (IF (NUMBERP K) (IF (NUMBERP I) (IF (EQUAL K I) (GET-NTH J LST) (IF (NUMBERP J) (IF (EQUAL K J) (GET-NTH I LST) (GET-NTH K LST)) (IF (EQUAL K (QUOTE 0)) (GET-NTH I LST) (GET-NTH K LST)))) (IF (EQUAL K (QUOTE 0)) (GET-NTH J LST) (IF (NUMBERP J) (IF (EQUAL K J) (GET-NTH I LST) (GET-NTH K LST)) (GET-NTH K LST)))) (IF (NUMBERP I) (IF (EQUAL (QUOTE 0) I) (GET-NTH J LST) (IF (NUMBERP J) (IF (EQUAL (QUOTE 0) J) (GET-NTH I LST) (GET-NTH K LST)) (GET-NTH I LST))) (GET-NTH J LST)))) NIL) (REWRITE-RULE GET-LST-INT NIL (EQUAL (GET-NTH I (LST-INT N LST)) (NAT-TO-INT (GET-NTH I LST) N)) NIL) (REWRITE-RULE GET-NTH-APPEND NIL (EQUAL (GET-NTH I (APPEND X Y)) (IF (LESSP I (LEN X)) (GET-NTH I X) (GET-NTH (DIFFERENCE I (LEN X)) Y))) NIL) (REWRITE-RULE MCDR-NTH NIL (EQUAL (GET-NTH N (MCDR M LST)) (GET-NTH (PLUS M N) LST)) NIL) (REWRITE-RULE MCAR-NTH NIL (EQUAL (GET-NTH N (MCAR M LST)) (IF (LESSP N M) (GET-NTH N LST) (QUOTE 0))) NIL) (REWRITE-RULE GET-NTH-TAIL-LST NIL (EQUAL (GET-NTH N (TAIL-LST X M)) (GET-NTH (PLUS M N) X)) NIL) (REWRITE-RULE GET-PUT NIL (EQUAL (GET-NTH N (PUT-NTH VALUE M LST)) (IF (NUMBERP M) (IF (NUMBERP N) (IF (EQUAL M N) VALUE (GET-NTH N LST)) (IF (EQUAL M (QUOTE 0)) VALUE (GET-NTH N LST))) (IF (NUMBERP N) (IF (EQUAL (QUOTE 0) N) VALUE (GET-NTH N LST)) VALUE))) NIL) (REWRITE-RULE GET-NTH-NIL NIL (EQUAL (GET-NTH N (QUOTE 0)) (QUOTE 0)) NIL) (REWRITE-RULE GET-NTH-NIL NIL (EQUAL (GET-NTH N (QUOTE NIL)) (QUOTE 0)) NIL) (REWRITE-RULE GET-NTH-0 ((NOT (NUMBERP I))) (EQUAL (GET-NTH I LST) (GET-NTH (QUOTE 0) LST)) NIL)) TOTALP-LST ((GET-NTH . T)) LINEAR-LEMMAS ((LINEAR-LEMMA GET-LST-OF-CHRP ((LST-OF-CHRP LST)) (LESSP (GET-NTH I LST) (QUOTE 256)) (GET-NTH I LST)) (LINEAR-LEMMA MEM-LST-LESSP ((MEM-LST OPSZ A MEM N LST) (EQUAL K (EXP (QUOTE 2) (TIMES (QUOTE 8) OPSZ)))) (LESSP (GET-NTH I LST) K) (GET-NTH I LST))) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE) SDEFN (LAMBDA (N LST) (IF (EQUAL N (QUOTE 0)) (CAR LST) (IF (NUMBERP N) (GET-NTH (SUB1 N) (CDR LST)) (CAR LST)))) LISP-CODE *1*GET-NTH SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((ZEROP N)) NIL) (TESTS-AND-CASES ((NOT (ZEROP N))) (((SUB1 N) (CDR LST))))) LEVEL-NO 1 JUSTIFICATIONS ((JUSTIFICATION (N) (COUNT N) LESSP (ZEROP COUNT-NUMBERP LESSP-SUB1))) IDATE 1000402214823 CONTROLLER-POCKETS (1) SATELLITES (*1*GET-NTH) IMMEDIATE-DEPENDENTS0 (STRINGP-LA SLEN-REC SLEN-ADD1 SLEN-01 SLEN GET-LST-OF-CHRP STRXFRM1 STRTOK-LAST1 STRTOK-LAST0 STRTOK-LST2 STRTOK-LST1 STRTOK-TOK STRSTR* STRSTR1* STRSPN* STRPBRK* STRRCHR* STRCSPN* STRCHR1* STRCHR* MEMCHR* STRLEN* STRSTR STRSTR1 STRPBRK STRSPN STRCHR1 STRRCHR STRCSPN STRCHR STRNCPY1 STRNCMP1 STRNCAT STRCPY2 STRCAT STRCPY1 STRCMP STRCPY STRLEN MEMCMP1 MEMCHR1 GET-NTH-OFF GET-SWAP SWAP GET-LST-INTEGERP GET-LST-INT MMOV1-LST1 MMOV1-LST PUT-GET-VALS-IS-CPY LSTCPY-ADD1 LSTCPY1 LSTCPY-LSTCPY LSTCPY READ-MEM-ILST-ASL READ-MEM-LST-ASL MEM-LST-PUT-VALS GET-VALS-0 READ-MEM-ILST-INT READ-MEM-ILST READ-MEM-LST-INT READ-MEM-LST IREAD-MEM-GET0 READ-MEM-LST0 READ-MEM-LST-LA PUT-VALS-APPEND GET-VALS-APPEND GET-NTH-APPEND GET-VALS-CDR GET-LST-CDR MCDR-NTH MCAR-NTH LST-TO-BV PUT-VALS GET-VALS GET-LST MEM-ILST-INTEGERP MEM-LST-LESSP MEM-LST-NUMBERP MEM-ILST-INT-RANGEP MEM-LST-NAT-RANGEP GET-NTH-TAIL-LST READ-LST0 LST-NUMBERP0 PC-BYTE-READ-MCODE3 PC-BYTE-READ-MCODE2 PC-BYTE-READ-MCODE1 READ-RN-0 READ-WRITE-RN PUT-GET GET-PUT GET-NTH-NIL GET-NTH-0 WRITE-RN READ-RN) EVENT (DEFN GET-NTH (N LST) (IF (ZEROP N) (CAR LST) (GET-NTH (SUB1 N) (CDR LST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . GET-NTH) (DCELL . *1*GET-NTH))))) (PUT1-LST (QUOTE *1*WRITE) (QUOTE (MAIN-EVENT WRITE))) (PUT1-LST (QUOTE WRITE) (QUOTE (TYPE-PRESCRIPTION-LST ((WRITE 16 NIL NIL NIL NIL)) LEMMAS ((REWRITE-RULE WRITE-WRITE NIL (EQUAL (WRITE V2 X N (WRITE V1 X N BT)) (WRITE V2 X N BT)) NIL) (REWRITE-RULE HEAD-WRITE ((NOT (LESSP K N))) (EQUAL (WRITE VALUE (HEAD X K) N BT) (WRITE VALUE X N BT)) NIL)) TOTALP-LST ((WRITE . T)) QUICK-BLOCK-INFO (UNCHANGING UNCHANGING SELF-REFLEXIVE SELF-REFLEXIVE) SDEFN (LAMBDA (VALUE X N BT) (IF (EQUAL N (QUOTE 0)) (MAKE-BT VALUE (BRANCH0 BT) (BRANCH1 BT)) (IF (NUMBERP N) (IF (B0P (BITN X (SUB1 N))) (MAKE-BT (VALUE-FIELD BT) (WRITE VALUE X (SUB1 N) (BRANCH0 BT)) (BRANCH1 BT)) (MAKE-BT (VALUE-FIELD BT) (BRANCH0 BT) (WRITE VALUE X (SUB1 N) (BRANCH1 BT)))) (MAKE-BT VALUE (BRANCH0 BT) (BRANCH1 BT))))) LISP-CODE *1*WRITE SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((ZEROP N)) NIL) (TESTS-AND-CASES ((NOT (ZEROP N)) (B0P (BITN X (SUB1 N)))) ((VALUE X (SUB1 N) (BRANCH0 BT)))) (TESTS-AND-CASES ((NOT (ZEROP N)) (NOT (B0P (BITN X (SUB1 N))))) ((VALUE X (SUB1 N) (BRANCH1 BT))))) LEVEL-NO 4 JUSTIFICATIONS ((JUSTIFICATION (N) (COUNT N) LESSP (ZEROP BCAR TAIL BITN B0 B0P COUNT-NUMBERP LESSP-SUB1))) IDATE 1000402214823 CONTROLLER-POCKETS (4) SATELLITES (*1*WRITE) IMMEDIATE-DEPENDENTS0 (WRITE-WRITE WRITE-WRITE-LA PC-READ-WRITE READ-WRITE HEAD-WRITE BYTE-WRITE) EVENT (DEFN WRITE (VALUE X N BT) (IF (ZEROP N) (MAKE-BT VALUE (BRANCH0 BT) (BRANCH1 BT)) (IF (B0P (BITN X (SUB1 N))) (MAKE-BT (VALUE-FIELD BT) (WRITE VALUE X (SUB1 N) (BRANCH0 BT)) (BRANCH1 BT)) (MAKE-BT (VALUE-FIELD BT) (BRANCH0 BT) (WRITE VALUE X (SUB1 N) (BRANCH1 BT)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 VALUE-FIELD . WRITE) (IMMEDIATE-DEPENDENTS0 BRANCH1 . WRITE) (IMMEDIATE-DEPENDENTS0 BRANCH0 . WRITE) (IMMEDIATE-DEPENDENTS0 MAKE-BT . WRITE) (IMMEDIATE-DEPENDENTS0 BCAR . WRITE) (IMMEDIATE-DEPENDENTS0 TAIL . WRITE) (IMMEDIATE-DEPENDENTS0 BITN . WRITE) (IMMEDIATE-DEPENDENTS0 B0 . WRITE) (IMMEDIATE-DEPENDENTS0 B0P . WRITE) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . WRITE) (DCELL . *1*WRITE))))) (PUT1-LST (QUOTE *1*PC-READ) (QUOTE (MAIN-EVENT PC-READ))) (PUT1-LST (QUOTE PC-READ) (QUOTE (TYPE-PRESCRIPTION-LST ((PC-READ -1 NIL NIL NIL)) LEMMAS ((REWRITE-RULE PC-READ-WRITE ((WRITEP X N MAP) (PC-READP Y N MAP)) (EQUAL (PC-READ Y N (WRITE VALUE X N BT)) (PC-READ Y N BT)) NIL) (REWRITE-RULE HEAD-PC-READ ((NOT (LESSP K N))) (EQUAL (PC-READ (HEAD X K) N BT) (PC-READ X N BT)) NIL)) TOTALP-LST ((PC-READ . T)) SDEFN (LAMBDA (X N BT) (READ X N BT)) LISP-CODE *1*PC-READ SUBRP *1*FALSE LEVEL-NO 4 IDATE 1000402214823 SATELLITES (*1*PC-READ) IMMEDIATE-DEPENDENTS0 (READ->PC-READ-MEM PC-READ-OFF PC-READ-WRITE PC-BYTE-READ-NAT-RANGEP HEAD-PC-READ-MEM HEAD-BYTE-PC-READ HEAD-PC-READ PC-BYTE-READ) EVENT (DEFN PC-READ (X N BT) (READ X N BT)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 READ . PC-READ) (DCELL . *1*PC-READ))))) (PUT1-LST (QUOTE *1*READ) (QUOTE (MAIN-EVENT READ))) (PUT1-LST (QUOTE READ) (QUOTE (TYPE-PRESCRIPTION-LST ((READ -1 NIL NIL NIL)) LEMMAS ((REWRITE-RULE READ-WRITE NIL (EQUAL (READ Y N (WRITE VALUE X N BT)) (IF (MODN-EQ N X Y) VALUE (READ Y N BT))) NIL) (REWRITE-RULE HEAD-READ ((NOT (LESSP K N))) (EQUAL (READ (HEAD X K) N BT) (READ X N BT)) NIL)) TOTALP-LST ((READ . T)) QUICK-BLOCK-INFO (UNCHANGING SELF-REFLEXIVE SELF-REFLEXIVE) SDEFN (LAMBDA (X N BT) (IF (EQUAL N (QUOTE 0)) (VALUE-FIELD BT) (IF (NUMBERP N) (IF (B0P (BITN X (SUB1 N))) (READ X (SUB1 N) (BRANCH0 BT)) (READ X (SUB1 N) (BRANCH1 BT))) (VALUE-FIELD BT)))) LISP-CODE *1*READ SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((ZEROP N)) NIL) (TESTS-AND-CASES ((NOT (ZEROP N)) (B0P (BITN X (SUB1 N)))) ((X (SUB1 N) (BRANCH0 BT)))) (TESTS-AND-CASES ((NOT (ZEROP N)) (NOT (B0P (BITN X (SUB1 N))))) ((X (SUB1 N) (BRANCH1 BT))))) LEVEL-NO 4 JUSTIFICATIONS ((JUSTIFICATION (N) (COUNT N) LESSP (ZEROP BCAR TAIL BITN B0 B0P COUNT-NUMBERP LESSP-SUB1))) IDATE 1000402214823 CONTROLLER-POCKETS (2) SATELLITES (*1*READ) IMMEDIATE-DEPENDENTS0 (PC-READ-WRITE READ-WRITE HEAD-READ BYTE-READ PC-READ) EVENT (DEFN READ (X N BT) (IF (ZEROP N) (VALUE-FIELD BT) (IF (B0P (BITN X (SUB1 N))) (READ X (SUB1 N) (BRANCH0 BT)) (READ X (SUB1 N) (BRANCH1 BT))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BRANCH1 . READ) (IMMEDIATE-DEPENDENTS0 BRANCH0 . READ) (IMMEDIATE-DEPENDENTS0 VALUE-FIELD . READ) (IMMEDIATE-DEPENDENTS0 BCAR . READ) (IMMEDIATE-DEPENDENTS0 TAIL . READ) (IMMEDIATE-DEPENDENTS0 BITN . READ) (IMMEDIATE-DEPENDENTS0 B0 . READ) (IMMEDIATE-DEPENDENTS0 B0P . READ) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . READ) (DCELL . *1*READ))))) (PUT1-LST (QUOTE *1*WRITEP) (QUOTE (MAIN-EVENT WRITEP))) (PUT1-LST (QUOTE WRITEP) (QUOTE (TYPE-PRESCRIPTION-LST ((WRITEP 3 NIL NIL NIL)) LEMMAS ((REWRITE-RULE HEAD-WRITEP ((NOT (LESSP K N))) (EQUAL (WRITEP (HEAD X K) N MAP) (WRITEP X N MAP)) NIL)) TOTALP-LST ((WRITEP . T)) QUICK-BLOCK-INFO (UNCHANGING SELF-REFLEXIVE SELF-REFLEXIVE) SDEFN (LAMBDA (X N MAP) (IF (MEMBER (QUOTE UNAVAILABLE) (VALUE-FIELD MAP)) (QUOTE *1*FALSE) (IF (MEMBER (QUOTE ROM) (VALUE-FIELD MAP)) (QUOTE *1*FALSE) (IF (LISTP MAP) (IF (EQUAL N (QUOTE 0)) (QUOTE *1*TRUE) (IF (NUMBERP N) (IF (B0P (BITN X (SUB1 N))) (WRITEP X (SUB1 N) (BRANCH0 MAP)) (WRITEP X (SUB1 N) (BRANCH1 MAP))) (QUOTE *1*TRUE))) (QUOTE *1*TRUE))))) LISP-CODE *1*WRITEP SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((OR (MEMBER (QUOTE UNAVAILABLE) (VALUE-FIELD MAP)) (MEMBER (QUOTE ROM) (VALUE-FIELD MAP)))) NIL) (TESTS-AND-CASES ((NOT (OR (MEMBER (QUOTE UNAVAILABLE) (VALUE-FIELD MAP)) (MEMBER (QUOTE ROM) (VALUE-FIELD MAP)))) (OR (NLISTP MAP) (ZEROP N))) NIL) (TESTS-AND-CASES ((NOT (OR (MEMBER (QUOTE UNAVAILABLE) (VALUE-FIELD MAP)) (MEMBER (QUOTE ROM) (VALUE-FIELD MAP)))) (NOT (OR (NLISTP MAP) (ZEROP N))) (B0P (BITN X (SUB1 N)))) ((X (SUB1 N) (BRANCH0 MAP)))) (TESTS-AND-CASES ((NOT (OR (MEMBER (QUOTE UNAVAILABLE) (VALUE-FIELD MAP)) (MEMBER (QUOTE ROM) (VALUE-FIELD MAP)))) (NOT (OR (NLISTP MAP) (ZEROP N))) (NOT (B0P (BITN X (SUB1 N))))) ((X (SUB1 N) (BRANCH1 MAP))))) LEVEL-NO 4 JUSTIFICATIONS ((JUSTIFICATION (N) (COUNT N) LESSP (VALUE-FIELD OR NLISTP ZEROP BCAR TAIL BITN B0 B0P COUNT-NUMBERP LESSP-SUB1))) IDATE 1000402214823 CONTROLLER-POCKETS (2) SATELLITES (*1*WRITEP) IMMEDIATE-DEPENDENTS0 (PC-READ-WRITE WRITEP->READP HEAD-WRITEP BYTE-WRITEP) EVENT (DEFN WRITEP (X N MAP) (IF (OR (MEMBER (QUOTE UNAVAILABLE) (VALUE-FIELD MAP)) (MEMBER (QUOTE ROM) (VALUE-FIELD MAP))) (QUOTE *1*FALSE) (IF (OR (NLISTP MAP) (ZEROP N)) (QUOTE *1*TRUE) (IF (B0P (BITN X (SUB1 N))) (WRITEP X (SUB1 N) (BRANCH0 MAP)) (WRITEP X (SUB1 N) (BRANCH1 MAP))))) ((LESSP (COUNT N)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BRANCH1 . WRITEP) (IMMEDIATE-DEPENDENTS0 BRANCH0 . WRITEP) (IMMEDIATE-DEPENDENTS0 VALUE-FIELD . WRITEP) (IMMEDIATE-DEPENDENTS0 BCAR . WRITEP) (IMMEDIATE-DEPENDENTS0 TAIL . WRITEP) (IMMEDIATE-DEPENDENTS0 BITN . WRITEP) (IMMEDIATE-DEPENDENTS0 B0 . WRITEP) (IMMEDIATE-DEPENDENTS0 B0P . WRITEP) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . WRITEP) (DCELL . *1*WRITEP))))) (PUT1-LST (QUOTE *1*PC-READP) (QUOTE (MAIN-EVENT PC-READP))) (PUT1-LST (QUOTE PC-READP) (QUOTE (TYPE-PRESCRIPTION-LST ((PC-READP 3 NIL NIL NIL)) LEMMAS ((REWRITE-RULE HEAD-PC-READP ((NOT (LESSP K N))) (EQUAL (PC-READP (HEAD X K) N MAP) (PC-READP X N MAP)) NIL)) TOTALP-LST ((PC-READP . T)) QUICK-BLOCK-INFO (UNCHANGING SELF-REFLEXIVE SELF-REFLEXIVE) SDEFN (LAMBDA (X N MAP) (IF (MEMBER (QUOTE UNAVAILABLE) (VALUE-FIELD MAP)) (QUOTE *1*FALSE) (IF (MEMBER (QUOTE ROM) (VALUE-FIELD MAP)) (READP X N MAP) (IF (LISTP MAP) (IF (EQUAL N (QUOTE 0)) (QUOTE *1*FALSE) (IF (NUMBERP N) (IF (B0P (BITN X (SUB1 N))) (PC-READP X (SUB1 N) (BRANCH0 MAP)) (PC-READP X (SUB1 N) (BRANCH1 MAP))) (QUOTE *1*FALSE))) (QUOTE *1*FALSE))))) LISP-CODE *1*PC-READP SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((MEMBER (QUOTE UNAVAILABLE) (VALUE-FIELD MAP))) NIL) (TESTS-AND-CASES ((NOT (MEMBER (QUOTE UNAVAILABLE) (VALUE-FIELD MAP))) (MEMBER (QUOTE ROM) (VALUE-FIELD MAP))) NIL) (TESTS-AND-CASES ((NOT (MEMBER (QUOTE UNAVAILABLE) (VALUE-FIELD MAP))) (NOT (MEMBER (QUOTE ROM) (VALUE-FIELD MAP))) (OR (NLISTP MAP) (ZEROP N))) NIL) (TESTS-AND-CASES ((NOT (MEMBER (QUOTE UNAVAILABLE) (VALUE-FIELD MAP))) (NOT (MEMBER (QUOTE ROM) (VALUE-FIELD MAP))) (NOT (OR (NLISTP MAP) (ZEROP N))) (B0P (BITN X (SUB1 N)))) ((X (SUB1 N) (BRANCH0 MAP)))) (TESTS-AND-CASES ((NOT (MEMBER (QUOTE UNAVAILABLE) (VALUE-FIELD MAP))) (NOT (MEMBER (QUOTE ROM) (VALUE-FIELD MAP))) (NOT (OR (NLISTP MAP) (ZEROP N))) (NOT (B0P (BITN X (SUB1 N))))) ((X (SUB1 N) (BRANCH1 MAP))))) LEVEL-NO 5 JUSTIFICATIONS ((JUSTIFICATION (N) (COUNT N) LESSP (VALUE-FIELD MEMBER NLISTP ZEROP OR BCAR TAIL BITN B0 B0P COUNT-NUMBERP LESSP-SUB1))) IDATE 1000402214823 CONTROLLER-POCKETS (2) SATELLITES (*1*PC-READP) IMMEDIATE-DEPENDENTS0 (PC-READ-WRITE PC-READP->READP HEAD-PC-READP PC-BYTE-READP) EVENT (DEFN PC-READP (X N MAP) (IF (MEMBER (QUOTE UNAVAILABLE) (VALUE-FIELD MAP)) (QUOTE *1*FALSE) (IF (MEMBER (QUOTE ROM) (VALUE-FIELD MAP)) (READP X N MAP) (IF (OR (NLISTP MAP) (ZEROP N)) (QUOTE *1*FALSE) (IF (B0P (BITN X (SUB1 N))) (PC-READP X (SUB1 N) (BRANCH0 MAP)) (PC-READP X (SUB1 N) (BRANCH1 MAP)))))) ((LESSP (COUNT N)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BRANCH1 . PC-READP) (IMMEDIATE-DEPENDENTS0 BRANCH0 . PC-READP) (IMMEDIATE-DEPENDENTS0 READP . PC-READP) (IMMEDIATE-DEPENDENTS0 VALUE-FIELD . PC-READP) (IMMEDIATE-DEPENDENTS0 BCAR . PC-READP) (IMMEDIATE-DEPENDENTS0 TAIL . PC-READP) (IMMEDIATE-DEPENDENTS0 BITN . PC-READP) (IMMEDIATE-DEPENDENTS0 B0 . PC-READP) (IMMEDIATE-DEPENDENTS0 B0P . PC-READP) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . PC-READP) (DCELL . *1*PC-READP))))) (PUT1-LST (QUOTE *1*READP) (QUOTE (MAIN-EVENT READP))) (PUT1-LST (QUOTE READP) (QUOTE (TYPE-PRESCRIPTION-LST ((READP 3 NIL NIL NIL)) LEMMAS ((REWRITE-RULE WRITEP->READP ((WRITEP X N MAP)) (READP X N MAP) NIL) (REWRITE-RULE PC-READP->READP ((PC-READP X N MAP)) (READP X N MAP) NIL) (REWRITE-RULE HEAD-READP ((NOT (LESSP K N))) (EQUAL (READP (HEAD X K) N MAP) (READP X N MAP)) NIL)) TOTALP-LST ((READP . T)) QUICK-BLOCK-INFO (UNCHANGING SELF-REFLEXIVE SELF-REFLEXIVE) SDEFN (LAMBDA (X N MAP) (IF (MEMBER (QUOTE UNAVAILABLE) (VALUE-FIELD MAP)) (QUOTE *1*FALSE) (IF (LISTP MAP) (IF (EQUAL N (QUOTE 0)) (QUOTE *1*TRUE) (IF (NUMBERP N) (IF (B0P (BITN X (SUB1 N))) (READP X (SUB1 N) (BRANCH0 MAP)) (READP X (SUB1 N) (BRANCH1 MAP))) (QUOTE *1*TRUE))) (QUOTE *1*TRUE)))) LISP-CODE *1*READP SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((MEMBER (QUOTE UNAVAILABLE) (VALUE-FIELD MAP))) NIL) (TESTS-AND-CASES ((NOT (MEMBER (QUOTE UNAVAILABLE) (VALUE-FIELD MAP))) (OR (NLISTP MAP) (ZEROP N))) NIL) (TESTS-AND-CASES ((NOT (MEMBER (QUOTE UNAVAILABLE) (VALUE-FIELD MAP))) (NOT (OR (NLISTP MAP) (ZEROP N))) (B0P (BITN X (SUB1 N)))) ((X (SUB1 N) (BRANCH0 MAP)))) (TESTS-AND-CASES ((NOT (MEMBER (QUOTE UNAVAILABLE) (VALUE-FIELD MAP))) (NOT (OR (NLISTP MAP) (ZEROP N))) (NOT (B0P (BITN X (SUB1 N))))) ((X (SUB1 N) (BRANCH1 MAP))))) LEVEL-NO 4 JUSTIFICATIONS ((JUSTIFICATION (N) (COUNT N) LESSP (VALUE-FIELD NLISTP ZEROP OR BCAR TAIL BITN B0 B0P COUNT-NUMBERP LESSP-SUB1))) IDATE 1000402214822 CONTROLLER-POCKETS (2) SATELLITES (*1*READP) IMMEDIATE-DEPENDENTS0 (WRITEP->READP PC-READP->READP HEAD-READP BYTE-READP PC-READP) EVENT (DEFN READP (X N MAP) (IF (MEMBER (QUOTE UNAVAILABLE) (VALUE-FIELD MAP)) (QUOTE *1*FALSE) (IF (OR (NLISTP MAP) (ZEROP N)) (QUOTE *1*TRUE) (IF (B0P (BITN X (SUB1 N))) (READP X (SUB1 N) (BRANCH0 MAP)) (READP X (SUB1 N) (BRANCH1 MAP))))) ((LESSP (COUNT N)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BRANCH1 . READP) (IMMEDIATE-DEPENDENTS0 BRANCH0 . READP) (IMMEDIATE-DEPENDENTS0 VALUE-FIELD . READP) (IMMEDIATE-DEPENDENTS0 BCAR . READP) (IMMEDIATE-DEPENDENTS0 TAIL . READP) (IMMEDIATE-DEPENDENTS0 BITN . READP) (IMMEDIATE-DEPENDENTS0 B0 . READP) (IMMEDIATE-DEPENDENTS0 B0P . READP) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . READP) (DCELL . *1*READP))))) (PUT1-LST (QUOTE *1*MAKE-BT) (QUOTE (MAIN-EVENT MAKE-BT))) (PUT1-LST (QUOTE MAKE-BT) (QUOTE (TYPE-PRESCRIPTION-LST ((MAKE-BT 16 NIL NIL NIL)) TOTALP-LST ((MAKE-BT . T)) SDEFN (LAMBDA (VALUE BR0 BR1) (CONS VALUE (CONS BR0 BR1))) LISP-CODE *1*MAKE-BT SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402214822 SATELLITES (*1*MAKE-BT) IMMEDIATE-DEPENDENTS0 (WRITE-WRITE WRITE-WRITE-LA READ-WRITE HEAD-WRITE MAP-UPDATE MAKE-MAP WRITE) EVENT (DEFN MAKE-BT (VALUE BR0 BR1) (CONS VALUE (CONS BR0 BR1))) LOCAL-UNDO-TUPLES ((DCELL . *1*MAKE-BT))))) (PUT1-LST (QUOTE *1*BRANCH1) (QUOTE (MAIN-EVENT BRANCH1))) (PUT1-LST (QUOTE BRANCH1) (QUOTE (TYPE-PRESCRIPTION-LST ((BRANCH1 -1 NIL)) TOTALP-LST ((BRANCH1 . T)) SDEFN (LAMBDA (BT) (IF (LISTP BT) (IF (LISTP (CDR BT)) (CDR (CDR BT)) (QUOTE NIL)) (QUOTE NIL))) LISP-CODE *1*BRANCH1 SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402214822 SATELLITES (*1*BRANCH1) IMMEDIATE-DEPENDENTS0 (WRITE-WRITE WRITE-WRITE-LA READ-WRITE HEAD-WRITE MAP-UPDATE MAKE-MAP WRITE READ WRITEP PC-READP READP) EVENT (DEFN BRANCH1 (BT) (IF (AND (LISTP BT) (LISTP (CDR BT))) (CDR (CDR BT)) (QUOTE NIL))) LOCAL-UNDO-TUPLES ((DCELL . *1*BRANCH1))))) (PUT1-LST (QUOTE *1*BRANCH0) (QUOTE (MAIN-EVENT BRANCH0))) (PUT1-LST (QUOTE BRANCH0) (QUOTE (TYPE-PRESCRIPTION-LST ((BRANCH0 -1 NIL)) TOTALP-LST ((BRANCH0 . T)) SDEFN (LAMBDA (BT) (IF (LISTP BT) (CAR (CDR BT)) (QUOTE NIL))) LISP-CODE *1*BRANCH0 SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402214822 SATELLITES (*1*BRANCH0) IMMEDIATE-DEPENDENTS0 (WRITE-WRITE WRITE-WRITE-LA READ-WRITE HEAD-WRITE MAP-UPDATE MAKE-MAP WRITE READ WRITEP PC-READP READP) EVENT (DEFN BRANCH0 (BT) (IF (LISTP BT) (CAR (CDR BT)) (QUOTE NIL))) LOCAL-UNDO-TUPLES ((DCELL . *1*BRANCH0))))) (PUT1-LST (QUOTE *1*VALUE-FIELD) (QUOTE (MAIN-EVENT VALUE-FIELD))) (PUT1-LST (QUOTE VALUE-FIELD) (QUOTE (TYPE-PRESCRIPTION-LST ((VALUE-FIELD -1 NIL)) TOTALP-LST ((VALUE-FIELD . T)) SDEFN (LAMBDA (BT) (IF (LISTP BT) (CAR BT) (QUOTE 0))) LISP-CODE *1*VALUE-FIELD SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402214822 SATELLITES (*1*VALUE-FIELD) IMMEDIATE-DEPENDENTS0 (WRITE-WRITE WRITE-WRITE-LA PC-READ-WRITE READ-WRITE WRITEP->READP PC-READP->READP HEAD-WRITE HEAD-READ HEAD-WRITEP HEAD-PC-READP HEAD-READP WRITE READ WRITEP PC-READP READP) EVENT (DEFN VALUE-FIELD (BT) (IF (LISTP BT) (CAR BT) (QUOTE 0))) LOCAL-UNDO-TUPLES ((DCELL . *1*VALUE-FIELD))))) (PUT1-LST (QUOTE *1*INT-TO-NAT) (QUOTE (MAIN-EVENT INT-TO-NAT))) (PUT1-LST (QUOTE INT-TO-NAT) (QUOTE (TYPE-PRESCRIPTION-LST ((INT-TO-NAT 4 NIL NIL)) LEMMAS ((REWRITE-RULE NAT-TO-INT-TO-NAT ((NAT-RANGEP X N)) (EQUAL (INT-TO-NAT (NAT-TO-INT X N) N) (IF (NUMBERP X) X (QUOTE 0))) NIL) (REWRITE-RULE INT-TO-NAT-0 NIL (EQUAL (INT-TO-NAT (QUOTE 0) N) (QUOTE 0)) NIL)) TOTALP-LST ((INT-TO-NAT . T)) SDEFN (LAMBDA (X SIZE) (IF (NEGATIVEP X) (DIFFERENCE (EXP (QUOTE 2) SIZE) (NEGATIVE-GUTS X)) (IF (NUMBERP X) X (QUOTE 0)))) LISP-CODE *1*INT-TO-NAT SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214822 SATELLITES (*1*INT-TO-NAT) IMMEDIATE-DEPENDENTS0 (MULS_3232-BEQ MULS_3264-BEQ MULS_1632-BEQ HEAD-INT-CROCK INT-TO-NAT-OFF INT-TO-NAT=0 INT-TO-NAT-TO-INT NAT-TO-INT-TO-NAT INT-TO-NAT-RANGEP INT-TO-NAT-0 PLUS-TO-IPLUS ADDER-INT-END IREM IQUOT MULS) EVENT (DEFN INT-TO-NAT (X SIZE) (IF (NEGATIVEP X) (DIFFERENCE (EXP (QUOTE 2) SIZE) (NEGATIVE-GUTS X)) (FIX X))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EXP . INT-TO-NAT) (DCELL . *1*INT-TO-NAT))))) (PUT1-LST (QUOTE *1*NAT-TO-INT) (QUOTE (MAIN-EVENT NAT-TO-INT))) (PUT1-LST (QUOTE NAT-TO-INT) (QUOTE (TYPE-PRESCRIPTION-LST ((NAT-TO-INT 36 NIL NIL)) LEMMAS ((REWRITE-RULE READ-MEM-INT-8_16 NIL (EQUAL (NAT-TO-INT (READ-MEM X MEM (QUOTE 1)) (QUOTE 16)) (NAT-TO-UINT (READ-MEM X MEM (QUOTE 1)))) NIL) (REWRITE-RULE READ-MEM-INT-16_32 NIL (EQUAL (NAT-TO-INT (READ-MEM X MEM (QUOTE 2)) (QUOTE 32)) (NAT-TO-UINT (READ-MEM X MEM (QUOTE 2)))) NIL) (REWRITE-RULE READ-MEM-INT-8_32 NIL (EQUAL (NAT-TO-INT (READ-MEM X MEM (QUOTE 1)) (QUOTE 32)) (NAT-TO-UINT (READ-MEM X MEM (QUOTE 1)))) NIL) (REWRITE-RULE READ-RN-INT-8_16 NIL (EQUAL (NAT-TO-INT (READ-RN (QUOTE 8) RN RFILE) (QUOTE 16)) (NAT-TO-UINT (READ-RN (QUOTE 8) RN RFILE))) NIL) (REWRITE-RULE READ-RN-INT-16_32 NIL (EQUAL (NAT-TO-INT (READ-RN (QUOTE 16) RN RFILE) (QUOTE 32)) (NAT-TO-UINT (READ-RN (QUOTE 16) RN RFILE))) NIL) (REWRITE-RULE READ-RN-INT-8_32 NIL (EQUAL (NAT-TO-INT (READ-RN (QUOTE 8) RN RFILE) (QUOTE 32)) (NAT-TO-UINT (READ-RN (QUOTE 8) RN RFILE))) NIL) (REWRITE-RULE READ-MEM-ILST-ASL ((MEM-ILST OPSZ A MEM N LST) (EQUAL OPSZ (EXP (QUOTE 2) CNT)) (EQUAL OPLEN (TIMES (QUOTE 8) OPSZ)) (LESSP (NAT-TO-INT I (QUOTE 32)) N) (NUMBERP (NAT-TO-INT I (QUOTE 32)))) (EQUAL (NAT-TO-INT (READ-MEM (ADD (QUOTE 32) A (ASL (QUOTE 32) I CNT)) MEM OPSZ) OPLEN) (GET-NTH (NAT-TO-INT I (QUOTE 32)) LST)) NIL) (REWRITE-RULE READ-MEM-ILST-INT ((MEM-ILST OPSZ A MEM N LST) (EQUAL OPLEN (TIMES (QUOTE 8) OPSZ)) (EQUAL (REMAINDER (NAT-TO-UINT J) OPSZ) (QUOTE 0)) (LESSP (QUOTIENT (NAT-TO-UINT J) OPSZ) N) (NUMBERP (NAT-TO-INT J (QUOTE 32)))) (EQUAL (NAT-TO-INT (READ-MEM (ADD (QUOTE 32) A J) MEM OPSZ) OPLEN) (GET-NTH (QUOTIENT (NAT-TO-UINT J) OPSZ) LST)) NIL) (REWRITE-RULE READ-MEM-ILST ((MEM-ILST OPSZ A MEM N LST) (EQUAL OPLEN (TIMES (QUOTE 8) OPSZ)) (EQUAL (REMAINDER (NAT-TO-UINT J) OPSZ) (QUOTE 0)) (LESSP (QUOTIENT (NAT-TO-UINT J) OPSZ) N)) (EQUAL (NAT-TO-INT (READ-MEM (ADD (QUOTE 32) A J) MEM OPSZ) OPLEN) (GET-NTH (QUOTIENT (NAT-TO-UINT J) OPSZ) LST)) NIL) (REWRITE-RULE IREAD-MEM-GET0 ((MEM-ILST OPSZ A MEM N LST) (NUMBERP N) (NOT (EQUAL N (QUOTE 0))) (EQUAL OPLEN (TIMES (QUOTE 8) OPSZ))) (EQUAL (NAT-TO-INT (READ-MEM A MEM OPSZ) OPLEN) (GET-NTH (QUOTE 0) LST)) NIL) (REWRITE-RULE SUB-INT ((NAT-RANGEP X N) (NAT-RANGEP Y N) (NUMBERP N) (NOT (EQUAL N (QUOTE 0)))) (EQUAL (NAT-TO-INT (ADD N X (NEG N Y)) N) (IF (INT-RANGEP (IDIFFERENCE (NAT-TO-INT X N) (NAT-TO-INT Y N)) N) (IDIFFERENCE (NAT-TO-INT X N) (NAT-TO-INT Y N)) (IF (NEGATIVEP (NAT-TO-INT X N)) (IDIFFERENCE (IPLUS (NAT-TO-INT X N) (EXP (QUOTE 2) N)) (NAT-TO-INT Y N)) (IDIFFERENCE (IPLUS (NAT-TO-INT X N) (MINUS (EXP (QUOTE 2) N))) (NAT-TO-INT Y N))))) NIL) (REWRITE-RULE ADD-INT ((NAT-RANGEP X N) (NAT-RANGEP Y N)) (EQUAL (NAT-TO-INT (ADD N X Y) N) (IF (INT-RANGEP (IPLUS (NAT-TO-INT X N) (NAT-TO-INT Y N)) N) (IPLUS (NAT-TO-INT X N) (NAT-TO-INT Y N)) (IF (NEGATIVEP (NAT-TO-INT X N)) (IPLUS (NAT-TO-INT X N) (IPLUS (NAT-TO-INT Y N) (EXP (QUOTE 2) N))) (IPLUS (NAT-TO-INT X N) (IPLUS (NAT-TO-INT Y N) (MINUS (EXP (QUOTE 2) N))))))) NIL) (REWRITE-RULE SUBTRACTER-INT ((NAT-RANGEP X N) (NAT-RANGEP Y N) (BITP C) (NUMBERP N) (NOT (EQUAL N (QUOTE 0)))) (EQUAL (NAT-TO-INT (SUBTRACTER N C X Y) N) (IF (INT-RANGEP (IDIFFERENCE (NAT-TO-INT Y N) (IPLUS (NAT-TO-INT X N) C)) N) (IDIFFERENCE (NAT-TO-INT Y N) (IPLUS (NAT-TO-INT X N) C)) (IF (NEGATIVEP (NAT-TO-INT Y N)) (IDIFFERENCE (IPLUS (NAT-TO-INT Y N) (EXP (QUOTE 2) N)) (IPLUS (NAT-TO-INT X N) C)) (IDIFFERENCE (IPLUS (NAT-TO-INT Y N) (MINUS (EXP (QUOTE 2) N))) (IPLUS (NAT-TO-INT X N) C))))) NIL) (REWRITE-RULE ADDER-INT ((NAT-RANGEP X N) (NAT-RANGEP Y N) (BITP C)) (EQUAL (NAT-TO-INT (ADDER N C X Y) N) (IF (INT-RANGEP (IPLUS (NAT-TO-INT X N) (IPLUS (NAT-TO-INT Y N) C)) N) (IPLUS (NAT-TO-INT X N) (IPLUS (NAT-TO-INT Y N) C)) (IF (NEGATIVEP (NAT-TO-INT X N)) (IPLUS (NAT-TO-INT X N) (IPLUS (NAT-TO-INT Y N) (IPLUS C (EXP (QUOTE 2) N)))) (IPLUS (NAT-TO-INT X N) (IPLUS (NAT-TO-INT Y N) (IPLUS C (MINUS (EXP (QUOTE 2) N)))))))) NIL) (REWRITE-RULE ADDER-INT-BRIDGE ((NAT-RANGEP X N) (NAT-RANGEP Y N) (BITP C)) (EQUAL (NAT-TO-INT (ADDER N C X Y) N) (ADDER-INT-END N C (NAT-TO-INT X N) (NAT-TO-INT Y N))) NIL) (REWRITE-RULE IQUOT-INT ((INT-RANGEP (IQUOTIENT (NAT-TO-INT Y J) (NAT-TO-INT X I)) N) (NOT (LESSP J N))) (EQUAL (NAT-TO-INT (IQUOT N X I Y J) N) (IQUOTIENT (NAT-TO-INT Y J) (NAT-TO-INT X I))) NIL) (REWRITE-RULE IREM-INT ((NAT-RANGEP X N) (NOT (EQUAL (NAT-TO-INT X N) (QUOTE 0)))) (EQUAL (NAT-TO-INT (IREM N X N Y J) N) (IREMAINDER (NAT-TO-INT Y J) (NAT-TO-INT X N))) NIL) (REWRITE-RULE MULS_3232-INT ((INT-RANGEP (ITIMES (NAT-TO-INT X (QUOTE 32)) (NAT-TO-INT Y (QUOTE 32))) (QUOTE 32))) (EQUAL (NAT-TO-INT (MULS (QUOTE 32) X Y (QUOTE 32)) (QUOTE 32)) (ITIMES (NAT-TO-INT X (QUOTE 32)) (NAT-TO-INT Y (QUOTE 32)))) NIL) (REWRITE-RULE MULS_3264-INT ((NAT-RANGEP X (QUOTE 32)) (NAT-RANGEP Y (QUOTE 32))) (EQUAL (NAT-TO-INT (MULS (QUOTE 64) X Y (QUOTE 32)) (QUOTE 64)) (ITIMES (NAT-TO-INT X (QUOTE 32)) (NAT-TO-INT Y (QUOTE 32)))) NIL) (REWRITE-RULE MULS_1632-INT ((NAT-RANGEP X (QUOTE 16)) (NAT-RANGEP Y (QUOTE 16))) (EQUAL (NAT-TO-INT (MULS (QUOTE 32) X Y (QUOTE 16)) (QUOTE 32)) (ITIMES (NAT-TO-INT X (QUOTE 16)) (NAT-TO-INT Y (QUOTE 16)))) NIL) (REWRITE-RULE INT-TO-NAT-TO-INT ((INTEGERP X) (INT-RANGEP X N)) (EQUAL (NAT-TO-INT (INT-TO-NAT X N) N) (FIX-INT X)) NIL) (REWRITE-RULE NAT-TO-INT-0 NIL (EQUAL (NAT-TO-INT (QUOTE 0) N) (QUOTE 0)) NIL) (REWRITE-RULE EXT-INT ((NAT-RANGEP X N) (LESSP N SIZE)) (EQUAL (NAT-TO-INT (EXT N X SIZE) SIZE) (NAT-TO-INT X N)) NIL) (REWRITE-RULE ASR-INT ((NAT-RANGEP X N)) (EQUAL (NAT-TO-INT (ASR N X I) N) (IF (NEGATIVEP (NAT-TO-INT X N)) (IF (EQUAL (IREMAINDER (NAT-TO-INT X N) (EXP (QUOTE 2) I)) (QUOTE 0)) (IQUOTIENT (NAT-TO-INT X N) (EXP (QUOTE 2) I)) (IPLUS (QUOTE -1) (IQUOTIENT (NAT-TO-INT X N) (EXP (QUOTE 2) I)))) (IQUOTIENT (NAT-TO-INT X N) (EXP (QUOTE 2) I)))) NIL) (REWRITE-RULE ASL-INT ((NAT-RANGEP X N) (INT-RANGEP (NAT-TO-INT X N) (DIFFERENCE N S))) (EQUAL (NAT-TO-INT (ASL N X S) N) (ITIMES (NAT-TO-INT X N) (EXP (QUOTE 2) S))) NIL) (REWRITE-RULE LOGNOT-INT ((NAT-RANGEP X N) (NUMBERP N) (NOT (EQUAL N (QUOTE 0)))) (EQUAL (NAT-TO-INT (LOGNOT N X) N) (IPLUS (QUOTE -1) (INEG (NAT-TO-INT X N)))) NIL)) TOTALP-LST ((NAT-TO-INT . T)) SDEFN (LAMBDA (X N) (IF (LESSP X (EXP (QUOTE 2) (SUB1 N))) (IF (NUMBERP X) X (QUOTE 0)) (MINUS (DIFFERENCE (EXP (QUOTE 2) N) X)))) LISP-CODE *1*NAT-TO-INT SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214822 SATELLITES (*1*NAT-TO-INT) IMMEDIATE-DEPENDENTS0 (READ-MEM-INT-8_16 READ-MEM-INT-16_32 READ-MEM-INT-8_32 READ-RN-INT-8_16 READ-RN-INT-16_32 READ-RN-INT-8_32 DISJOINT-3-INT DISJOINT-2~-INT DISJOINT-2-INT DISJOINT-1-INT PUT-LST-INT GET-LST-INT LST-INT IREAD-AN IREAD-DN IREAD-MEM SCC-GROUP-H WRITE-MEMP-RAM1-ASL READ-MEMP-ROM1-ASL READ-MEMP-RAM1-ASL WRITE-MEM-ILST-ASL WRITE-MEM-LST-ASL READ-MEM-ILST-ASL READ-MEM-LST-ASL WRITE-MEM-ILST-INT WRITE-MEM-LST-INT WRITE-MEM-ILST0 WRITE-MEM-ILST READ-MEM-ILST-INT READ-MEM-ILST READ-MEM-LST-INT IREAD-MEM-GET0 MEM-ILST DISJOINT-11~-ASL DISJOINT-11-ASL DISJOINT-9~-ASL DISJOINT-9-ASL DISJOINT-3~-ASL DISJOINT-3-ASL DISJOINT-2~-ASL DISJOINT-2-ASL READ-MEM-MCODE1-INT READ-MEMP-RAM1-INT WRITE-MEMP-RAM1-INT READ-MEMP-ROM1-INT MOVE-BLE MOVE-BGT SUB-BLE SUB-BGT SUB-Z-LA1 SUB-BLT SUB-BGE EXT-BMI ASR-BMI ASL-BMI MULS_3232-BMI MULS_3264-BMI MULS_1632-BMI ADD-BMI SUB-BMI MOVE-BMI ASL-BVS MULS_3232-BVS ADD-BVS&VC SUB-BVS&VC SUBX-V-LA ADDX-V-LA MBIT-MEANS-NEGATIVEP EXT-BEQ-INT-1 EXT-BEQ-INT-0 ASR-BEQ ASL-BEQ Z-FLAG-LA DIVS-BEQ MULS_3232-BEQ MULS_3264-BEQ MULS_1632-BEQ LOGEOR-BEQ-INT-1 LOGEOR-BEQ-INT-0 LOGOR-BEQ-INT-1 LOGOR-BEQ-INT-0 SUB-BEQ-INT-1 SUB-BEQ-INT-0 MOVE-BEQ-INT-1 MOVE-BEQ-INT-0 SUB-BHI-INT SUB-INT ADD-INT SUBTRACTER-INT ADDER-INT ADDER-INT-BRIDGE DIVS_3232-OVERFLOW DIVS-OVERFLOW IQUOT-INT IREM-INT MULS_3232-INT MULS_3264-INT MULS_1632-INT NAT-TO-INT-OFF NAT-TO-INT= INT-TO-NAT-TO-INT NAT-TO-INT-TO-NAT NAT-TO-INT-RANGEP NAT-TO-INT-INTEGERP NAT-TO-INT-0 PLUS-TO-IPLUS ADDER-INT-END EXT-INT ASR-INT ASL-INT LOGNOT-INT DBCC-LOOP DIV_L-INS ASL-V DIVS_W-INS DIVS-V IREM IQUOT MULS-V MULS) EVENT (DEFN NAT-TO-INT (X N) (IF (LESSP X (EXP (QUOTE 2) (SUB1 N))) (FIX X) (MINUS (DIFFERENCE (EXP (QUOTE 2) N) X)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EXP . NAT-TO-INT) (DCELL . *1*NAT-TO-INT))))) (PUT1-LST (QUOTE *1*INT-RANGEP) (QUOTE (MAIN-EVENT INT-RANGEP))) (PUT1-LST (QUOTE INT-RANGEP) (QUOTE (TYPE-PRESCRIPTION-LST ((INT-RANGEP 3 NIL NIL)) LEMMAS ((REWRITE-RULE IDIFFERENCE-INT-RANGEP ((NUMBERP X) (NUMBERP Y) (INT-RANGEP X N) (INT-RANGEP Y N)) (INT-RANGEP (IDIFFERENCE X Y) N) NIL) (REWRITE-RULE STRINGP-LA ((STRINGP I N LST) (INT-RANGEP N NN) (NOT (EQUAL (GET-NTH I LST) (QUOTE 0)))) (INT-RANGEP (ADD1 I) NN) NIL) (REWRITE-RULE MEM-ILST-INT-RANGEP ((MEM-ILST OPSZ A MEM N LST) (EQUAL OPLEN (TIMES (QUOTE 8) OPSZ))) (INT-RANGEP (GET-NTH I LST) OPLEN) NIL) (REWRITE-RULE MULS-CROCK ((INT-RANGEP X N) (INT-RANGEP Y N) (NUMBERP N) (NOT (EQUAL N (QUOTE 0)))) (INT-RANGEP (ITIMES X Y) (PLUS N N)) NIL) (REWRITE-RULE IREMAINDER-INT-RANGEP ((INT-RANGEP Y N) (INTEGERP Y) (NOT (EQUAL Y (QUOTE 0)))) (INT-RANGEP (IREMAINDER X Y) N) NIL) (REWRITE-RULE IQUOTIENT-INT-RANGEP ((INT-RANGEP X N)) (EQUAL (INT-RANGEP (IQUOTIENT X Y) N) (IF (EQUAL Y (QUOTE -1)) (IF (EQUAL X (MINUS (EXP (QUOTE 2) (SUB1 N)))) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (QUOTE *1*TRUE))) NIL) (REWRITE-RULE REMAINDER-INT-RANGEP ((INT-RANGEP Y N) (NUMBERP Y) (NOT (EQUAL Y (QUOTE 0)))) (INT-RANGEP (REMAINDER X Y) N) NIL) (REWRITE-RULE QUOTIENT-INT-RANGEP ((INT-RANGEP X N)) (INT-RANGEP (QUOTIENT X Y) N) NIL) (REWRITE-RULE DIFFERENCE-INT-RANGEP ((INT-RANGEP X N)) (INT-RANGEP (DIFFERENCE X Y) N) NIL) (REWRITE-RULE SUB1-INT-RANGEP ((INT-RANGEP X N)) (INT-RANGEP (SUB1 X) N) NIL) (REWRITE-RULE INT-RANGEP-OF-0 NIL (INT-RANGEP (QUOTE 0) N) NIL) (REWRITE-RULE ABS-LESSP-INT-RANGEP ((INT-RANGEP X N) (LESSP (ABS Y) (ABS X))) (INT-RANGEP Y N) NIL) (REWRITE-RULE NAT-TO-INT-RANGEP NIL (INT-RANGEP (NAT-TO-INT X N) N) NIL) (REWRITE-RULE INT-RANGEP-LA ((NUMBERP X) (LESSP X (EXP (QUOTE 2) (SUB1 N)))) (INT-RANGEP X N) NIL) (REWRITE-RULE IDIFFERENCE-INT-RANGEP2 ((INTEGERP X) (INTEGERP Y) (INT-RANGEP X N) (INT-RANGEP Y N) (NOT (ILESSP Y X)) (NEGATIVEP Y)) (INT-RANGEP (IDIFFERENCE Y X) N) NIL) (REWRITE-RULE IDIFFERENCE-INT-RANGEP1 ((INT-RANGEP X N) (INT-RANGEP Y N) (NOT (ILESSP X Y)) (NOT (NEGATIVEP Y))) (INT-RANGEP (IDIFFERENCE Y X) N) NIL) (REWRITE-RULE IPLUS-INT-RANGEP2 ((INTEGERP X) (INTEGERP Y) (BITP Z) (INT-RANGEP X N) (INT-RANGEP Y N) (NEGATIVEP X) (NOT (NEGATIVEP Y))) (INT-RANGEP (IPLUS X (IPLUS Y Z)) N) NIL) (REWRITE-RULE IPLUS-INT-RANGEP1 ((INTEGERP X) (INTEGERP Y) (BITP Z) (INT-RANGEP X N) (INT-RANGEP Y N) (NOT (NEGATIVEP X)) (NEGATIVEP Y)) (INT-RANGEP (IPLUS X (IPLUS Y Z)) N) NIL)) TOTALP-LST ((INT-RANGEP . T)) SDEFN (LAMBDA (INT N) (IF (EQUAL N (QUOTE 0)) (EQUAL (FIX-INT INT) (QUOTE 0)) (IF (NUMBERP N) (IF (NEGATIVEP INT) (IF (LESSP (EXP (QUOTE 2) (SUB1 N)) (NEGATIVE-GUTS INT)) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (LESSP INT (EXP (QUOTE 2) (SUB1 N)))) (EQUAL (FIX-INT INT) (QUOTE 0))))) LISP-CODE *1*INT-RANGEP SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214822 SATELLITES (*1*INT-RANGEP) IMMEDIATE-DEPENDENTS0 (IDIFFERENCE-INT-RANGEP STRINGP-LA SCC-GROUP-H MEM-ILST-INT-RANGEP ASL-BMI MULS_3232-BMI ADD-BMI SUB-BMI ASL-BVS MULS_3232-BVS ADD-BVS&VC SUB-BVS&VC SUBX-V-LA ADDX-V-LA ASL-BEQ DIVS-BEQ MULS_3232-BEQ SUB-INT ADD-INT SUBTRACTER-INT ADDER-INT DIVS-OVERFLOW INT-RANGEP-OFF IQUOT-INT MULS_3232-INT MULS_3264-INT MULS_1632-INT MULS-CROCK HEAD-INT-CROCK IREMAINDER-INT-RANGEP IQUOTIENT-INT-RANGEP REMAINDER-INT-RANGEP QUOTIENT-INT-RANGEP DIFFERENCE-INT-RANGEP SUB1-INT-RANGEP INT-RANGEP-OF-0 ABS-LESSP-INT-RANGEP INT-TO-NAT=0 INT-TO-NAT-TO-INT INT-TO-NAT-RANGEP NAT-TO-INT-RANGEP INT-RANGEP-LA IDIFFERENCE-INT-RANGEP2 IDIFFERENCE-INT-RANGEP1 IPLUS-INT-RANGEP2 IPLUS-INT-RANGEP1 ILESSP-CROCK2 ILESSP-CROCK1 ADD-BMI-CROCK2 ADD-BMI-CROCK1 ADDX-V-CROCK2 ADDX-V-CROCK1 PLUS-TO-IPLUS ASL-INT ASL-V DIVS-V MULS-V) EVENT (DEFN INT-RANGEP (INT N) (IF (ZEROP N) (EQUAL (FIX-INT INT) (QUOTE 0)) (IF (NEGATIVEP INT) (IF (LESSP (EXP (QUOTE 2) (SUB1 N)) (NEGATIVE-GUTS INT)) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (LESSP INT (EXP (QUOTE 2) (SUB1 N)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EXP . INT-RANGEP) (IMMEDIATE-DEPENDENTS0 FIX-INT . INT-RANGEP) (DCELL . *1*INT-RANGEP))))) (PUT1-LST (QUOTE *1*UINT-TO-NAT) (QUOTE (MAIN-EVENT UINT-TO-NAT))) (PUT1-LST (QUOTE UINT-TO-NAT) (QUOTE (TYPE-PRESCRIPTION-LST ((UINT-TO-NAT 4 NIL)) LEMMAS ((REWRITE-RULE NAT-TO-UINT-TO-NAT NIL (EQUAL (UINT-TO-NAT (NAT-TO-UINT X)) (IF (NUMBERP X) X (QUOTE 0))) NIL)) TOTALP-LST ((UINT-TO-NAT . T)) SDEFN (LAMBDA (X) (IF (NUMBERP X) X (QUOTE 0))) LISP-CODE *1*UINT-TO-NAT SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402214822 SATELLITES (*1*UINT-TO-NAT) IMMEDIATE-DEPENDENTS0 (UINT-TO-NAT-OFF UINT-TO-NAT-RANGEP UINT-TO-NAT-TO-UINT NAT-TO-UINT-TO-NAT) EVENT (DEFN UINT-TO-NAT (X) (FIX X)) LOCAL-UNDO-TUPLES ((DCELL . *1*UINT-TO-NAT))))) (PUT1-LST (QUOTE *1*NAT-TO-UINT) (QUOTE (MAIN-EVENT NAT-TO-UINT))) (PUT1-LST (QUOTE NAT-TO-UINT) (QUOTE (TYPE-PRESCRIPTION-LST ((NAT-TO-UINT 4 NIL)) LEMMAS ((REWRITE-RULE ADD-UINTXXX ((NAT-RANGEP X N) (NAT-RANGEP Y N) (NOT (LESSP (PLUS (NAT-TO-UINT X) (NAT-TO-UINT Y)) (EXP (QUOTE 2) N)))) (EQUAL (NAT-TO-UINT (ADD N X Y)) (DIFFERENCE (PLUS (NAT-TO-UINT X) (NAT-TO-UINT Y)) (EXP (QUOTE 2) N))) NIL) (REWRITE-RULE ADD-UINTXX ((NAT-RANGEP X N) (NAT-RANGEP Y N) (LESSP (PLUS (NAT-TO-UINT X) (NAT-TO-UINT Y)) (EXP (QUOTE 2) N))) (EQUAL (NAT-TO-UINT (ADD N X Y)) (PLUS (NAT-TO-UINT X) (NAT-TO-UINT Y))) NIL) (REWRITE-RULE READ-MEM-LST-ASL ((MEM-LST OPSZ A MEM N LST) (EQUAL OPSZ (EXP (QUOTE 2) CNT)) (LESSP (NAT-TO-INT I (QUOTE 32)) N) (NUMBERP (NAT-TO-INT I (QUOTE 32)))) (EQUAL (NAT-TO-UINT (READ-MEM (ADD (QUOTE 32) A (ASL (QUOTE 32) I CNT)) MEM OPSZ)) (GET-NTH (NAT-TO-INT I (QUOTE 32)) LST)) NIL) (REWRITE-RULE READ-MEM-LST-INT ((MEM-LST OPSZ A MEM N LST) (EQUAL (REMAINDER (NAT-TO-INT J (QUOTE 32)) OPSZ) (QUOTE 0)) (LESSP (QUOTIENT (NAT-TO-INT J (QUOTE 32)) OPSZ) N) (NUMBERP (NAT-TO-INT J (QUOTE 32)))) (EQUAL (NAT-TO-UINT (READ-MEM (ADD (QUOTE 32) A J) MEM OPSZ)) (GET-NTH (QUOTIENT (NAT-TO-INT J (QUOTE 32)) OPSZ) LST)) NIL) (REWRITE-RULE READ-MEM-LST ((MEM-LST OPSZ A MEM N LST) (EQUAL (REMAINDER (NAT-TO-UINT J) OPSZ) (QUOTE 0)) (LESSP (QUOTIENT (NAT-TO-UINT J) OPSZ) N)) (EQUAL (NAT-TO-UINT (READ-MEM (ADD (QUOTE 32) A J) MEM OPSZ)) (GET-NTH (QUOTIENT (NAT-TO-UINT J) OPSZ) LST)) NIL) (REWRITE-RULE READ-MEM-LST0 ((MEM-LST OPSZ A MEM N LST) (NUMBERP N) (NOT (EQUAL N (QUOTE 0)))) (EQUAL (NAT-TO-UINT (READ-MEM A MEM OPSZ)) (GET-NTH (QUOTE 0) LST)) NIL) (REWRITE-RULE MEM-LST-GET-LST ((MEM-LST (QUOTE 1) A MEM N LST) (NOT (LESSP N (PLUS (NAT-TO-UINT J) K)))) (EQUAL (NAT-TO-UINT (READ-MEM (ADD (QUOTE 32) A J) MEM K)) (GET-LST (QUOTE 1) (NAT-TO-UINT J) LST K)) NIL) (REWRITE-RULE MEM-LST-GET-LST0 ((MEM-LST (QUOTE 1) A MEM N LST) (NOT (LESSP N K))) (EQUAL (NAT-TO-UINT (READ-MEM A MEM K)) (GET-LST (QUOTE 1) (QUOTE 0) LST K)) NIL) (REWRITE-RULE LOGAND-UINT ((EQUAL (EXP (QUOTE 2) (LOG (QUOTE 2) (ADD1 X))) (ADD1 X))) (EQUAL (NAT-TO-UINT (LOGAND X Y)) (REMAINDER (NAT-TO-UINT Y) (ADD1 X))) NIL) (REWRITE-RULE LOGAND-UINT-LA NIL (EQUAL (NAT-TO-UINT (LOGAND (SUB1 (EXP (QUOTE 2) I)) Y)) (REMAINDER (NAT-TO-UINT Y) (EXP (QUOTE 2) I))) NIL) (REWRITE-RULE SUB-UINT ((NAT-RANGEP X N) (NAT-RANGEP Y N)) (EQUAL (NAT-TO-UINT (ADD N X (NEG N Y))) (IF (LESSP (NAT-TO-UINT X) (NAT-TO-UINT Y)) (DIFFERENCE (PLUS (NAT-TO-UINT X) (EXP (QUOTE 2) N)) (NAT-TO-UINT Y)) (DIFFERENCE (NAT-TO-UINT X) (NAT-TO-UINT Y)))) NIL) (REWRITE-RULE ADD-UINT ((NAT-RANGEP X N) (NAT-RANGEP Y N)) (EQUAL (NAT-TO-UINT (ADD N X Y)) (IF (LESSP (PLUS (NAT-TO-UINT X) (NAT-TO-UINT Y)) (EXP (QUOTE 2) N)) (PLUS (NAT-TO-UINT X) (NAT-TO-UINT Y)) (DIFFERENCE (PLUS (NAT-TO-UINT X) (NAT-TO-UINT Y)) (EXP (QUOTE 2) N)))) NIL) (REWRITE-RULE SUBTRACTER-UINT ((NAT-RANGEP X N) (NAT-RANGEP Y N) (BITP C)) (EQUAL (NAT-TO-UINT (SUBTRACTER N C X Y)) (IF (LESSP (NAT-TO-UINT Y) (PLUS C (NAT-TO-UINT X))) (DIFFERENCE (PLUS (NAT-TO-UINT Y) (EXP (QUOTE 2) N)) (PLUS C (NAT-TO-UINT X))) (DIFFERENCE (NAT-TO-UINT Y) (PLUS C (NAT-TO-UINT X))))) NIL) (REWRITE-RULE ADDER-UINT ((NAT-RANGEP X N) (NAT-RANGEP Y N) (BITP C)) (EQUAL (NAT-TO-UINT (ADDER N C X Y)) (IF (LESSP (PLUS C (PLUS (NAT-TO-UINT X) (NAT-TO-UINT Y))) (EXP (QUOTE 2) N)) (PLUS C (PLUS (NAT-TO-UINT X) (NAT-TO-UINT Y))) (DIFFERENCE (PLUS C (PLUS (NAT-TO-UINT X) (NAT-TO-UINT Y))) (EXP (QUOTE 2) N)))) NIL) (REWRITE-RULE QUOT-NAT ((NAT-RANGEP Y N)) (EQUAL (NAT-TO-UINT (QUOT N X Y)) (QUOTIENT (NAT-TO-UINT Y) (NAT-TO-UINT X))) NIL) (REWRITE-RULE REM-NAT ((NAT-RANGEP X N)) (EQUAL (NAT-TO-UINT (REM N X Y)) (IF (EQUAL (NAT-TO-UINT X) (QUOTE 0)) (REMAINDER (NAT-TO-UINT Y) (EXP (QUOTE 2) N)) (REMAINDER (NAT-TO-UINT Y) (NAT-TO-UINT X)))) NIL) (REWRITE-RULE MULU_3232-NAT ((UINT-RANGEP (TIMES (NAT-TO-UINT X) (NAT-TO-UINT Y)) (QUOTE 32))) (EQUAL (NAT-TO-UINT (MULU (QUOTE 32) X Y (QUOTE 32))) (TIMES (NAT-TO-UINT X) (NAT-TO-UINT Y))) NIL) (REWRITE-RULE MULU_3264-NAT ((NAT-RANGEP X (QUOTE 32)) (NAT-RANGEP Y (QUOTE 32))) (EQUAL (NAT-TO-UINT (MULU (QUOTE 64) X Y (QUOTE 32))) (TIMES (NAT-TO-UINT X) (NAT-TO-UINT Y))) NIL) (REWRITE-RULE MULU_1632-NAT ((NAT-RANGEP X (QUOTE 16)) (NAT-RANGEP Y (QUOTE 16))) (EQUAL (NAT-TO-UINT (MULU (QUOTE 32) X Y (QUOTE 16))) (TIMES (NAT-TO-UINT X) (NAT-TO-UINT Y))) NIL) (REWRITE-RULE UINT-TO-NAT-TO-UINT NIL (EQUAL (NAT-TO-UINT (UINT-TO-NAT X)) (IF (NUMBERP X) X (QUOTE 0))) NIL) (REWRITE-RULE LSR-UINT NIL (EQUAL (NAT-TO-UINT (LSR X CNT)) (QUOTIENT (NAT-TO-UINT X) (EXP (QUOTE 2) CNT))) NIL) (REWRITE-RULE LSL-UINT ((UINT-RANGEP X (DIFFERENCE N CNT))) (EQUAL (NAT-TO-UINT (LSL N X CNT)) (TIMES (NAT-TO-UINT X) (EXP (QUOTE 2) CNT))) NIL)) TOTALP-LST ((NAT-TO-UINT . T)) SDEFN (LAMBDA (X) (IF (NUMBERP X) X (QUOTE 0))) LISP-CODE *1*NAT-TO-UINT SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402214822 SATELLITES (*1*NAT-TO-UINT) IMMEDIATE-DEPENDENTS0 (RAM-ADDRP-4 ADD-UINTXXX ADD-UINTXX READ-MEM-INT-8_16 READ-MEM-INT-16_32 READ-MEM-INT-8_32 READ-RN-INT-8_16 READ-RN-INT-16_32 READ-RN-INT-8_32 DISJOINT-7-UINT DISJOINT-5-UINT DISJOINT-3-UINT DISJOINT-2~-UINT DISJOINT-2-UINT DISJOINT-1-UINT WRITE-MEMP-RAM1-UINT READ-MEMP-RAM1-UINT NAT-RANGEP-LA STRTOK-LAST STRTOK-TOK MEMMOVE UREAD-AN UREAD-DN UREAD-MEM NAT-TO-UINT-OFF MEM-LST-MCDR-UINT-1 MEM-LST-MCDR-UINT DISJOINT-LEQ1-UINT DISJOINT-LEQ-UINT WRITE-MEM-ILST-ASL WRITE-MEM-LST-ASL READ-MEM-ILST-ASL READ-MEM-LST-ASL WRITE-MEM-ILST-INT WRITE-MEM-LST-INT WRITE-MEM-ILST0 WRITE-MEM-LST0 WRITE-MEM-ILST WRITE-MEM-LST MEM-LST-PUT-VALS MEM-LST-PUT-LST READ-MEM-ILST-INT READ-MEM-ILST READ-MEM-LST-INT READ-MEM-LST READ-MEM-LST0 MEM-LST-GET-VALS MEM-LST-GET-LST MEM-LST-GET-LST0 MEM-LST-SAME MULU_3232-BVS LSR-1-BCS&CC LSL-1-BCS&CC ADD-BCS&CC SUB-BCS&CC EXT-BEQ-UINT LSR-BEQ LSL-BEQ DIVU-BEQ MULU_3232-BEQ MULU_3264-BEQ MULU_1632-BEQ LOGAND-EOR-BEQ-UINT LOGAND-OR-BEQ-UINT LOGAND-BEQ-UINT LOGEOR-BEQ-UINT LOGOR-BEQ-UINT SUB-BEQ-UINT MOVE-BEQ-UINT SUB-BLS SUB-BHI-1 SUB-BHI-0 LOGAND-UINT LOGAND-UINT-LA SUB-UINT ADD-UINT SUBTRACTER-UINT ADDER-UINT DIVU-OVERFLOW QUOT-NAT REM-NAT MULU_3232-NAT MULU_3264-NAT MULU_1632-NAT NAT-TO-UINT-RANGEP UINT-TO-NAT-TO-UINT NAT-TO-UINT-TO-NAT LSR-UINT LSL-UINT DIV_L-INS DIVU_W-INS) EVENT (DEFN NAT-TO-UINT (X) (FIX X)) LOCAL-UNDO-TUPLES ((DCELL . *1*NAT-TO-UINT))))) (PUT1-LST (QUOTE *1*UINT-RANGEP) (QUOTE (MAIN-EVENT UINT-RANGEP))) (PUT1-LST (QUOTE UINT-RANGEP) (QUOTE (TYPE-PRESCRIPTION-LST ((UINT-RANGEP 3 NIL NIL)) LEMMAS ((REWRITE-RULE NAT-TO-UINT-RANGEP ((NAT-RANGEP X N)) (UINT-RANGEP (NAT-TO-UINT X) N) NIL) (REWRITE-RULE UINT-RANGEP-LA ((LESSP X (EXP (QUOTE 2) N))) (UINT-RANGEP X N) NIL)) TOTALP-LST ((UINT-RANGEP . T)) SDEFN (LAMBDA (X N) (LESSP X (EXP (QUOTE 2) N))) LISP-CODE *1*UINT-RANGEP SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214822 SATELLITES (*1*UINT-RANGEP) IMMEDIATE-DEPENDENTS0 (GCD-S-S0 MISC-GROUP-H OR-GROUP-H READM-WRITEM-MEM WRITE-MEM-ILST-ASL WRITE-MEM-LST-ASL WRITE-MEM-ILST-INT WRITE-MEM-LST-INT WRITE-MEM-ILST0 WRITE-MEM-LST0 WRITE-MEM-ILST WRITE-MEM-LST MEM-LST-PUT-VALS MEM-LST-PUT-LST WRITE-MEM-LST-LA LSL-1-BCS&CC LSL-BEQ MULU_3232-BEQ READ-WRITE-MEM2 DIVU-OVERFLOW MULU_3232-NAT NAT-TO-UINT-RANGEP UINT-RANGEP-LA LSL-UINT) EVENT (DEFN UINT-RANGEP (X N) (LESSP X (EXP (QUOTE 2) N))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EXP . UINT-RANGEP) (DCELL . *1*UINT-RANGEP))))) (PUT1-LST (QUOTE *1*NAT-RANGEP) (QUOTE (MAIN-EVENT NAT-RANGEP))) (PUT1-LST (QUOTE NAT-RANGEP) (QUOTE (TYPE-PRESCRIPTION-LST ((NAT-RANGEP 3 NIL NIL)) LEMMAS ((REWRITE-RULE NAT-RANGEP-LA ((LESSP (NAT-TO-UINT X) (EXP (QUOTE 2) N))) (NAT-RANGEP X N) NIL) (REWRITE-RULE MEM-LST-NAT-RANGEP ((MEM-LST OPSZ A MEM N LST) (NOT (LESSP K (TIMES (QUOTE 8) OPSZ)))) (NAT-RANGEP (GET-NTH I LST) K) NIL) (REWRITE-RULE ADD-TREE-NAT-RANGEP NIL (NAT-RANGEP (EVAL$ (QUOTE *1*TRUE) (ADD-TREE N X) A) (EVAL$ (QUOTE *1*TRUE) N A)) NIL) (REWRITE-RULE READ-MEM-NAT-RANGEP ((NOT (LESSP N (TIMES (QUOTE 8) K)))) (NAT-RANGEP (READ-MEM X MEM K) N) NIL) (REWRITE-RULE PC-READ-MEM-NAT-RANGEP ((EQUAL N (TIMES (QUOTE 8) K))) (NAT-RANGEP (PC-READ-MEM X MEM K) N) NIL) (REWRITE-RULE MC-CCR-RANGEP NIL (NAT-RANGEP (MC-CCR S) (QUOTE 8)) NIL) (REWRITE-RULE MC-PC-RANGEP NIL (NAT-RANGEP (MC-PC S) (QUOTE 32)) NIL) (REWRITE-RULE SET-CVZNX-NAT-RANGEP NIL (EQUAL (NAT-RANGEP (SET-CVZNX X CCR) (QUOTE 8)) (NAT-RANGEP CCR (QUOTE 8))) NIL) (REWRITE-RULE EXT-NAT-RANGEP NIL (NAT-RANGEP (EXT N X SIZE) SIZE) NIL) (REWRITE-RULE NEG-NAT-RANGEP NIL (NAT-RANGEP (NEG N X) N) NIL) (REWRITE-RULE IREM-NAT-RANGEP NIL (NAT-RANGEP (IREM N X I Y J) N) NIL) (REWRITE-RULE IQUOT-NAT-RANGEP NIL (NAT-RANGEP (IQUOT N X I Y J) N) NIL) (REWRITE-RULE REM-NAT-RANGEP NIL (NAT-RANGEP (REM N X Y) N) NIL) (REWRITE-RULE QUOT-NAT-RANGEP NIL (NAT-RANGEP (QUOT N X Y) N) NIL) (REWRITE-RULE MULS-NAT-RANGEP NIL (NAT-RANGEP (MULS N X Y I) N) NIL) (REWRITE-RULE MULU-NAT-RANGEP NIL (NAT-RANGEP (MULU N X Y I) N) NIL) (REWRITE-RULE PC-BYTE-READ-NAT-RANGEP NIL (NAT-RANGEP (PC-BYTE-READ X MEM) (QUOTE 8)) NIL) (REWRITE-RULE BYTE-READ-NAT-RANGEP ((NOT (LESSP N (QUOTE 8)))) (NAT-RANGEP (BYTE-READ X MEM) N) NIL) (REWRITE-RULE READ-RN-NAT-RANGEP NIL (NAT-RANGEP (READ-RN N RN RFILE) N) NIL) (REWRITE-RULE TAIL-NAT-RANGEP NIL (EQUAL (NAT-RANGEP (TAIL X M) N) (NAT-RANGEP X (PLUS M N))) NIL) (REWRITE-RULE HEAD-NAT-RANGEP ((NOT (LESSP N M))) (NAT-RANGEP (HEAD X M) N) NIL) (REWRITE-RULE LOGEOR-NAT-RANGEP ((NAT-RANGEP X N) (NAT-RANGEP Y N)) (NAT-RANGEP (LOGEOR X Y) N) NIL) (REWRITE-RULE LOGOR-NAT-RANGEP NIL (EQUAL (NAT-RANGEP (LOGOR X Y) N) (IF (NAT-RANGEP X N) (NAT-RANGEP Y N) (QUOTE *1*FALSE))) NIL) (REWRITE-RULE LOGAND-NAT-RANGEP ((OR (NAT-RANGEP X N) (NAT-RANGEP Y N))) (NAT-RANGEP (LOGAND X Y) N) NIL) (REWRITE-RULE TIMES-EXP2-NAT-RANGEP NIL (EQUAL (NAT-RANGEP (TIMES X (EXP (QUOTE 2) I)) N) (NAT-RANGEP X (DIFFERENCE N I))) NIL) (REWRITE-RULE QUOTIENT-NAT-RANGEP ((NAT-RANGEP X N)) (NAT-RANGEP (QUOTIENT X Y) N) NIL) (REWRITE-RULE DIFFERENCE-NAT-RANGEP ((NAT-RANGEP X N)) (NAT-RANGEP (DIFFERENCE X Y) N) NIL) (REWRITE-RULE SUB1-TIMES2-NAT-RANGEP NIL (EQUAL (NAT-RANGEP (SUB1 (TIMES (QUOTE 2) X)) (ADD1 N)) (NAT-RANGEP (SUB1 X) N)) NIL) (REWRITE-RULE SUB1-NAT-RANGEP ((NAT-RANGEP X N)) (NAT-RANGEP (SUB1 X) N) NIL) (REWRITE-RULE NAT-PLUS-RANGEP ((NAT-RANGEP X K)) (NAT-RANGEP X (PLUS J K)) NIL) (REWRITE-RULE NAT-PLUS-RANGEP ((NAT-RANGEP X K)) (NAT-RANGEP X (PLUS K J)) NIL) (REWRITE-RULE NAT-RANGEP-0 NIL (EQUAL (NAT-RANGEP X (QUOTE 0)) (IF (EQUAL X (QUOTE 0)) (QUOTE *1*TRUE) (IF (NUMBERP X) (QUOTE *1*FALSE) (QUOTE *1*TRUE)))) NIL) (REWRITE-RULE NAT-RANGEP-UB NIL (EQUAL (NAT-RANGEP (SUB1 (EXP (QUOTE 2) K)) N) (IF (LESSP N K) (QUOTE *1*FALSE) (QUOTE *1*TRUE))) NIL) (REWRITE-RULE NAT-RANGEP-OF-0 NIL (NAT-RANGEP (QUOTE 0) N) NIL) (REWRITE-RULE REPLACE-NAT-RANGEP ((NOT (LESSP N M))) (EQUAL (NAT-RANGEP (REPLACE M X Y) N) (NAT-RANGEP Y N)) NIL) (REWRITE-RULE APP-NAT-RANGEP ((NOT (LESSP N M))) (EQUAL (NAT-RANGEP (APP M X Y) N) (NAT-RANGEP Y (DIFFERENCE N M))) NIL) (REWRITE-RULE SUB-NAT-RANGEP NIL (NAT-RANGEP (SUB N X Y) N) NIL) (REWRITE-RULE ADD-NAT-RANGEP NIL (NAT-RANGEP (ADD N X Y) N) NIL) (REWRITE-RULE SUBTRACTER-NAT-RANGEP NIL (NAT-RANGEP (SUBTRACTER N C Y X) N) NIL) (REWRITE-RULE ADDER-NAT-RANGEP NIL (NAT-RANGEP (ADDER N C X Y) N) NIL) (REWRITE-RULE INT-TO-NAT-RANGEP ((INTEGERP X) (INT-RANGEP X N)) (NAT-RANGEP (INT-TO-NAT X N) N) NIL) (REWRITE-RULE UINT-TO-NAT-RANGEP ((LESSP X (EXP (QUOTE 2) N))) (NAT-RANGEP (UINT-TO-NAT X) N) NIL) (REWRITE-RULE ASR-NAT-RANGEP ((NAT-RANGEP X N)) (NAT-RANGEP (ASR N X CNT) N) NIL) (REWRITE-RULE ASL-NAT-RANGEP NIL (NAT-RANGEP (ASL N X CNT) N) NIL) (REWRITE-RULE LSR-NAT-RANGEP ((NAT-RANGEP X N)) (NAT-RANGEP (LSR X CNT) N) NIL) (REWRITE-RULE LSL-NAT-RANGEP NIL (NAT-RANGEP (LSL N X CNT) N) NIL) (REWRITE-RULE LOGNOT-NAT-RANGEP NIL (NAT-RANGEP (LOGNOT N X) N) NIL) (REWRITE-RULE BV-TO-NAT-RANGEP NIL (NAT-RANGEP (BV-TO-NAT X) (BV-LEN X)) NIL)) TOTALP-LST ((NAT-RANGEP . T)) SDEFN (LAMBDA (NAT N) (LESSP NAT (EXP (QUOTE 2) N))) LISP-CODE *1*NAT-RANGEP SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214822 SATELLITES (*1*NAT-RANGEP) IMMEDIATE-DEPENDENTS0 (GCD-LOAD ADD-UINTXXX ADD-UINTXX READ-MEM-INT-8_16 READ-MEM-INT-16_32 READ-MEM-INT-8_32 NAT-RANGEP-LA SCC-GROUP-H MOD32-EQ-DEDUCTION1 WRITE-MEM-ILST-ASL WRITE-MEM-LST-ASL WRITE-MEM-ILST-INT WRITE-MEM-LST-INT WRITE-MEM-ILST0 WRITE-MEM-LST0 WRITE-MEM-ILST WRITE-MEM-LST MEM-LST-PUT-VALS MEM-LST-PUT-LST DISJOINT-LEQ DISJOINT0-LEQ MEM-LST-LESSP MEM-LST-NAT-RANGEP MOVE-BLE MOVE-BGT SUB-BLE SUB-BGT SUB-Z-LA1 SUB-BLT SUB-BGE EXT-BMI ASR-BMI ASL-BMI MULS_3232-BMI MULS_3264-BMI MULS_1632-BMI ADD-BMI SUB-BMI MOVE-BMI MULS_3264-BVS MULS_1632-BVS MULU_3264-BVS MULU_1632-BVS ADD-BVS&VC SUB-BVS&VC SUBX-V-LA ADDX-V-LA MBIT-MEANS-NEGATIVEP SUBX-ADDX-V LSL-1-BCS&CC ADD-BCS&CC SUB-BCS&CC EXT-BEQ-INT-1 EXT-BEQ-INT-0 EXT-BEQ-UINT ASR-BEQ ASL-BEQ LSR-BEQ LSL-BEQ DIVS-BEQ DIVU-BEQ MULS_3232-BEQ MULS_3264-BEQ MULS_1632-BEQ MULU_3232-BEQ MULU_3264-BEQ MULU_1632-BEQ LOGEOR-BEQ-INT-1 LOGEOR-BEQ-INT-0 LOGOR-BEQ-INT-1 LOGOR-BEQ-INT-0 SUB-BEQ-EXT SUB-BEQ-INT-1 SUB-BEQ-INT-0 SUB-BEQ-UINT MOVE-BEQ-EXT MOVE-BEQ-INT-1 MOVE-BEQ-INT-0 MOVE-BEQ-UINT SUB-BLS SUB-BHI-1 SUB-BHI-0 SUB-BHI-INT SUB-Z-LA SUBX-C-LA ADDX-C-LA ADD-TREE-NAT-RANGEP ADD-NEG-0 READ-WRITE-MEM2 BYTE-READ-WRITE-MEM-LEMMA READ-MEM-NAT-RANGEP PC-READ-MEM-NAT-RANGEP BYTE-READ-WRITE MC-CCR-RANGEP MC-PC-RANGEP MC-CCR-REWRITE MC-PC-REWRITE SET-CVZNX-NAT-RANGEP EXT-NAT-RANGEP NEG-NAT-RANGEP IREM-NAT-RANGEP IQUOT-NAT-RANGEP REM-NAT-RANGEP QUOT-NAT-RANGEP MULS-NAT-RANGEP MULU-NAT-RANGEP NAT-RANGEP-OFF PC-BYTE-READ-NAT-RANGEP BYTE-READ-NAT-RANGEP READ-RN-NAT-RANGEP TAIL-NAT-RANGEP HEAD-NAT-RANGEP LOGEOR-NAT-RANGEP LOGOR-NAT-RANGEP LOGAND-NAT-RANGEP TIMES-EXP2-NAT-RANGEP QUOTIENT-NAT-RANGEP DIFFERENCE-NAT-RANGEP SUB1-TIMES2-NAT-RANGEP SUB1-NAT-RANGEP NAT-PLUS-RANGEP NAT-RANGEP-0 NAT-RANGEP-UB NAT-RANGEP-OF-0 BITN-LOGNOT BITN-0 REPLACE-NAT-RANGEP APP-NAT-RANGEP HEAD-APP-HEAD-TAIL APP-HEAD-TAIL SUB-INT ADD-INT SUBTRACTER-INT ADDER-INT ADDER-INT-BRIDGE ADDY-Y1 ADDY-Y SUB-CANCEL SUB-CANCEL0 ADD-CANCEL0 SUB-EQUAL-0 ADD-SUB-CANCEL SUB-NAT-RANGEP ADD-NAT-RANGEP SUBTRACTER-NAT-RANGEP ADDER-NAT-RANGEP SUB-LEQ-LA SUB-0 SUB-UINT ADD-UINT SUBTRACTER-UINT ADDER-UINT SUBTRACTER-NAT-LA ADDER-NAT-LA SUB-NAT-LA ADD-NAT-LA QUOT-NAT REM-NAT IQUOT-INT IREM-INT MULS_3264-INT MULS_1632-INT MULU_3264-NAT MULU_1632-NAT NAT-TO-INT= NAT-TO-INT-TO-NAT INT-TO-NAT-RANGEP NAT-TO-INT-INTEGERP NAT-TO-UINT-RANGEP UINT-TO-NAT-RANGEP EXT-INT MBIT-MEANS-LESSP ASR-NAT-RANGEP ASR-0 ASL-NAT-RANGEP LSR-NAT-RANGEP LSL-NAT-RANGEP ASR-INT ASR-INT-CROCK ASL-INT APP-0 REPLACE-0 TAIL-LEMMA HEAD-LEMMA TAIL-EQUAL-0 LOGNOT-INT LOGNOT-CANCEL LOGNOT-NAT-RANGEP BV-TO-NAT-RANGEP) EVENT (DEFN NAT-RANGEP (NAT N) (LESSP NAT (EXP (QUOTE 2) N))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EXP . NAT-RANGEP) (DCELL . *1*NAT-RANGEP))))) (PUT1-LST (QUOTE *1*IQUOTIENT) (QUOTE (MAIN-EVENT IQUOTIENT))) (PUT1-LST (QUOTE IQUOTIENT) (QUOTE (TYPE-PRESCRIPTION-LST ((IQUOTIENT 36 NIL NIL)) LEMMAS ((REWRITE-RULE IQUOTIENT-WRT--1 NIL (EQUAL (IQUOTIENT X (QUOTE -1)) (INEG X)) NIL) (REWRITE-RULE IQUOTIENT-WRT-1 NIL (EQUAL (IQUOTIENT X (QUOTE 1)) (FIX-INT X)) NIL)) TOTALP-LST ((IQUOTIENT . T)) SDEFN (LAMBDA (X Y) (IF (NEGP X) (IF (NEGP Y) (QUOTIENT (NEGATIVE-GUTS X) (NEGATIVE-GUTS Y)) (FIX-INT (MINUS (QUOTIENT (NEGATIVE-GUTS X) Y)))) (IF (NEGP Y) (FIX-INT (MINUS (QUOTIENT X (NEGATIVE-GUTS Y)))) (QUOTIENT X Y)))) LISP-CODE *1*IQUOTIENT SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402214822 SATELLITES (*1*IQUOTIENT) IMMEDIATE-DEPENDENTS0 (ASR-BMI ASR-BEQ DIVS-BEQ IQUOTIENT=0 DIVS-OVERFLOW IQUOT-INT IQUOTIENT-OFF IQUOTIENT-WRT--1 IQUOTIENT-WRT-1 IQUOTIENT-INTEGERP IQUOTIENT-INT-RANGEP ASR-INT DIVS-V IQUOT) EVENT (DEFN IQUOTIENT (X Y) (IF (NEGP X) (IF (NEGP Y) (QUOTIENT (NEGATIVE-GUTS X) (NEGATIVE-GUTS Y)) (FIX-INT (MINUS (QUOTIENT (NEGATIVE-GUTS X) Y)))) (IF (NEGP Y) (FIX-INT (MINUS (QUOTIENT X (NEGATIVE-GUTS Y)))) (QUOTIENT X Y)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FIX-INT . IQUOTIENT) (IMMEDIATE-DEPENDENTS0 NEGP . IQUOTIENT) (DCELL . *1*IQUOTIENT))))) (PUT1-LST (QUOTE *1*IREMAINDER) (QUOTE (MAIN-EVENT IREMAINDER))) (PUT1-LST (QUOTE IREMAINDER) (QUOTE (TYPE-PRESCRIPTION-LST ((IREMAINDER 36 NIL NIL)) LEMMAS ((REWRITE-RULE IREMAINDER-WRT--1 NIL (EQUAL (IREMAINDER X (QUOTE -1)) (QUOTE 0)) NIL) (REWRITE-RULE IREMAINDER-WRT-1 NIL (EQUAL (IREMAINDER X (QUOTE 1)) (QUOTE 0)) NIL)) TOTALP-LST ((IREMAINDER . T)) SDEFN (LAMBDA (X Y) (IF (NEGP X) (FIX-INT (MINUS (REMAINDER (NEGATIVE-GUTS X) (ABS Y)))) (REMAINDER X (ABS Y)))) LISP-CODE *1*IREMAINDER SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402214822 SATELLITES (*1*IREMAINDER) IMMEDIATE-DEPENDENTS0 (GCD-S0-S0-2 GCD-S0-S0-1 IREMAINDER-ON ASR-BMI ASR-BEQ IREM-INT IREMAINDER-OFF IREMAINDER-WRT--1 IREMAINDER-WRT-1 IREMAINDER-INTEGERP IREMAINDER-INT-RANGEP ASR-INT IREM) EVENT (DEFN IREMAINDER (X Y) (IF (NEGP X) (FIX-INT (MINUS (REMAINDER (NEGATIVE-GUTS X) (ABS Y)))) (REMAINDER X (ABS Y)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ABS . IREMAINDER) (IMMEDIATE-DEPENDENTS0 FIX-INT . IREMAINDER) (IMMEDIATE-DEPENDENTS0 NEGP . IREMAINDER) (DCELL . *1*IREMAINDER))))) (PUT1-LST (QUOTE *1*ITIMES) (QUOTE (MAIN-EVENT ITIMES))) (PUT1-LST (QUOTE ITIMES) (QUOTE (TYPE-PRESCRIPTION-LST ((ITIMES 36 NIL NIL)) LEMMAS ((REWRITE-RULE ITIMES-ASSOCIATIVITY NIL (EQUAL (ITIMES (ITIMES X Y) Z) (ITIMES X (ITIMES Y Z))) NIL) (REWRITE-RULE ITIMES-COMMUTATIVITY NIL (EQUAL (ITIMES X Y) (ITIMES Y X)) ((X . Y))) (REWRITE-RULE ITIMES-0 NIL (EQUAL (ITIMES (QUOTE 0) X) (QUOTE 0)) NIL)) TOTALP-LST ((ITIMES . T)) SDEFN (LAMBDA (X Y) (IF (NEGP X) (IF (NEGP Y) (TIMES (NEGATIVE-GUTS X) (NEGATIVE-GUTS Y)) (FIX-INT (MINUS (TIMES (NEGATIVE-GUTS X) Y)))) (IF (NEGP Y) (FIX-INT (MINUS (TIMES X (NEGATIVE-GUTS Y)))) (TIMES X Y)))) LISP-CODE *1*ITIMES SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402214822 SATELLITES (*1*ITIMES) IMMEDIATE-DEPENDENTS0 (MULS_3232-BMI MULS_3232-BVS MULS_3232-BEQ MULS_3232-INT MULS_3264-INT MULS_1632-INT MULS-CROCK ITIMES-OFF ITIMES-SIGN ITIMES-EQUAL-CANCELLATION ITIMES-ASSOCIATIVITY ITIMES-COMMUTATIVITY ITIMES-EQUAL-0 ITIMES-0 ITIMES-INTEGERP ASL-INT MULS-V MULS) EVENT (DEFN ITIMES (X Y) (IF (NEGP X) (IF (NEGP Y) (TIMES (NEGATIVE-GUTS X) (NEGATIVE-GUTS Y)) (FIX-INT (MINUS (TIMES (NEGATIVE-GUTS X) Y)))) (IF (NEGP Y) (FIX-INT (MINUS (TIMES X (NEGATIVE-GUTS Y)))) (TIMES X Y)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FIX-INT . ITIMES) (IMMEDIATE-DEPENDENTS0 NEGP . ITIMES) (DCELL . *1*ITIMES))))) (PUT1-LST (QUOTE *1*IDIFFERENCE) (QUOTE (MAIN-EVENT IDIFFERENCE))) (PUT1-LST (QUOTE IDIFFERENCE) (QUOTE (TYPE-PRESCRIPTION-LST ((IDIFFERENCE 36 NIL NIL)) LEMMAS ((REWRITE-RULE IDIFFERENCE-X-X NIL (EQUAL (IDIFFERENCE X X) (QUOTE 0)) NIL)) TOTALP-LST ((IDIFFERENCE . T)) SDEFN (LAMBDA (X Y) (IPLUS X (INEG Y))) LISP-CODE *1*IDIFFERENCE SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402214822 SATELLITES (*1*IDIFFERENCE) IMMEDIATE-DEPENDENTS0 (IDIFFERENCE-OFF IDIFFERENCE-INT-RANGEP STRNCMP1 STRCMP MEMCMP1 SUB-BMI SUB-BVS&VC SUBX-V-LA SUB-INT SUBTRACTER-INT IDIFFERENCE-NEGATIVEP IDIFFERENCE-X-X IDIFFERENCE-INTEGERP IDIFFERENCE-INT-RANGEP2 IDIFFERENCE-INT-RANGEP1) EVENT (DEFN IDIFFERENCE (X Y) (IPLUS X (INEG Y))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INEG . IDIFFERENCE) (IMMEDIATE-DEPENDENTS0 IPLUS . IDIFFERENCE) (DCELL . *1*IDIFFERENCE))))) (PUT1-LST (QUOTE *1*INEG) (QUOTE (MAIN-EVENT INEG))) (PUT1-LST (QUOTE INEG) (QUOTE (TYPE-PRESCRIPTION-LST ((INEG 36 NIL)) LEMMAS ((REWRITE-RULE INEG-IPLUS NIL (EQUAL (INEG (IPLUS X Y)) (IPLUS (INEG X) (INEG Y))) NIL)) TOTALP-LST ((INEG . T)) SDEFN (LAMBDA (X) (IF (IZEROP X) (QUOTE 0) (IF (NEGP X) (NEGATIVE-GUTS X) (MINUS X)))) LISP-CODE *1*INEG SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402214822 SATELLITES (*1*INEG) IMMEDIATE-DEPENDENTS0 (IDIFFERENCE-INT-RANGEP SUB-BVS&VC SUBX-V-LA SUB-INT SUBTRACTER-INT IQUOTIENT-WRT--1 IDIFFERENCE-NEGATIVEP IDIFFERENCE-X-X INEG-IPLUS IDIFFERENCE-INTEGERP INEG-INTEGERP IDIFFERENCE-INT-RANGEP2 IDIFFERENCE-INT-RANGEP1 LOGNOT-INT IDIFFERENCE) EVENT (DEFN INEG (X) (IF (IZEROP X) (QUOTE 0) (IF (NEGP X) (NEGATIVE-GUTS X) (MINUS X)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NEGP . INEG) (IMMEDIATE-DEPENDENTS0 IZEROP . INEG) (DCELL . *1*INEG))))) (PUT1-LST (QUOTE *1*IPLUS) (QUOTE (MAIN-EVENT IPLUS))) (PUT1-LST (QUOTE IPLUS) (QUOTE (TYPE-PRESCRIPTION-LST ((IPLUS 36 NIL NIL)) LEMMAS ((REWRITE-RULE IPLUS-1--1 NIL (EQUAL (IPLUS (QUOTE 1) (IPLUS (QUOTE -1) X)) (FIX-INT X)) NIL) (REWRITE-RULE IPLUS-0 ((IZEROP X)) (EQUAL (IPLUS Y X) (FIX-INT Y)) NIL) (REWRITE-RULE IPLUS-0 ((IZEROP X)) (EQUAL (IPLUS X Y) (FIX-INT Y)) NIL) (REWRITE-RULE IPLUS-ASSOCIATIVITY NIL (EQUAL (IPLUS (IPLUS X Y) Z) (IPLUS X (IPLUS Y Z))) NIL) (REWRITE-RULE IPLUS-COMMUTATIVITY1 NIL (EQUAL (IPLUS X (IPLUS Y Z)) (IPLUS Y (IPLUS X Z))) ((X . Y))) (REWRITE-RULE IPLUS-COMMUTATIVITY NIL (EQUAL (IPLUS X Y) (IPLUS Y X)) ((X . Y)))) TOTALP-LST ((IPLUS . T)) SDEFN (LAMBDA (X Y) (IF (NEGP X) (IF (NEGP Y) (MINUS (PLUS (NEGATIVE-GUTS X) (NEGATIVE-GUTS Y))) (IF (LESSP Y (NEGATIVE-GUTS X)) (MINUS (DIFFERENCE (NEGATIVE-GUTS X) Y)) (DIFFERENCE Y (NEGATIVE-GUTS X)))) (IF (NEGP Y) (IF (LESSP X (NEGATIVE-GUTS Y)) (MINUS (DIFFERENCE (NEGATIVE-GUTS Y) X)) (DIFFERENCE X (NEGATIVE-GUTS Y))) (PLUS X Y)))) LISP-CODE *1*IPLUS SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402214822 SATELLITES (*1*IPLUS) IMMEDIATE-DEPENDENTS0 (IDIFFERENCE-INT-RANGEP SCC-GROUP-H BETWEEN-ILEQ-LA ASR-BMI ADD-BMI ADD-BVS&VC SUBX-V-LA ADDX-V-LA ASR-BEQ SUB-INT ADD-INT SUBTRACTER-INT ADDER-INT IPLUS-OFF IDIFFERENCE-NEGATIVEP IDIFFERENCE-X-X IPLUS-1--1 IPLUS-0 INEG-IPLUS IPLUS-ASSOCIATIVITY IPLUS-COMMUTATIVITY1 IPLUS-COMMUTATIVITY IDIFFERENCE-INTEGERP IPLUS-INTEGERP IDIFFERENCE-INT-RANGEP2 IDIFFERENCE-INT-RANGEP1 IPLUS-INT-RANGEP2 IPLUS-INT-RANGEP1 ILESSP-CROCK2 ILESSP-CROCK1 ADD-BMI-CROCK2 ADD-BMI-CROCK1 ADDX-V-CROCK2 ADDX-V-CROCK1 IPLUS-WITH-CARRY-NON-NEGATIVEP IPLUS-WITH-CARRY-NEGATIVEP PLUS-TO-IPLUS ASR-INT LOGNOT-INT IDIFFERENCE) EVENT (DEFN IPLUS (X Y) (IF (NEGP X) (IF (NEGP Y) (MINUS (PLUS (NEGATIVE-GUTS X) (NEGATIVE-GUTS Y))) (IF (LESSP Y (NEGATIVE-GUTS X)) (MINUS (DIFFERENCE (NEGATIVE-GUTS X) Y)) (DIFFERENCE Y (NEGATIVE-GUTS X)))) (IF (NEGP Y) (IF (LESSP X (NEGATIVE-GUTS Y)) (MINUS (DIFFERENCE (NEGATIVE-GUTS Y) X)) (DIFFERENCE X (NEGATIVE-GUTS Y))) (PLUS X Y)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NEGP . IPLUS) (DCELL . *1*IPLUS))))) (PUT1-LST (QUOTE *1*ILEQ) (QUOTE (MAIN-EVENT ILEQ))) (PUT1-LST (QUOTE ILEQ) (QUOTE (TYPE-PRESCRIPTION-LST ((ILEQ 3 NIL NIL)) TOTALP-LST ((ILEQ . T)) SDEFN (LAMBDA (I J) (IF (ILESSP J I) (QUOTE *1*FALSE) (QUOTE *1*TRUE))) LISP-CODE *1*ILEQ SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402214822 SATELLITES (*1*ILEQ) IMMEDIATE-DEPENDENTS0 (BETWEEN-ILEQ-LA SUB-BHI-INT BETWEEN-ILEQ) EVENT (DEFN ILEQ (I J) (NOT (ILESSP J I))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ILESSP . ILEQ) (DCELL . *1*ILEQ))))) (PUT1-LST (QUOTE *1*ILESSP) (QUOTE (MAIN-EVENT ILESSP))) (PUT1-LST (QUOTE ILESSP) (QUOTE (TYPE-PRESCRIPTION-LST ((ILESSP 3 NIL NIL)) LEMMAS ((REWRITE-RULE ILESSP-ENTAILS-ILEQ ((ILESSP X Y)) (NOT (ILESSP Y X)) NIL) (REWRITE-RULE ILESSP-REFLEX NIL (NOT (ILESSP X X)) NIL) (REWRITE-RULE ILESSP-CROCK2 ((INTEGERP X) (INTEGERP Y) (INT-RANGEP X N) (INT-RANGEP Y N)) (ILESSP (IPLUS Y (MINUS (EXP (QUOTE 2) N))) X) NIL) (REWRITE-RULE ILESSP-CROCK1 ((INTEGERP X) (INTEGERP Y) (INT-RANGEP X N) (INT-RANGEP Y N)) (NOT (ILESSP (IPLUS Y (EXP (QUOTE 2) N)) X)) NIL)) TOTALP-LST ((ILESSP . T)) SDEFN (LAMBDA (I J) (IF (NEGP I) (IF (NEGP J) (LESSP (NEGATIVE-GUTS J) (NEGATIVE-GUTS I)) (QUOTE *1*TRUE)) (IF (NEGP J) (QUOTE *1*FALSE) (LESSP I J)))) LISP-CODE *1*ILESSP SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402214822 SATELLITES (*1*ILESSP) IMMEDIATE-DEPENDENTS0 (GCD-S0-S0-RFILE-2 GCD-S0-S0-RFILE-1 GCD-S0-S0-2 GCD-S0-S0-1 BETWEEN-ILEQ-LA SUB-BLE SUB-BGT SUB-BLT SUB-BGE SUB-BMI SUB-BHI-INT ILESSP-ENTAILS-ILEQ ILESSP-REFLEX IDIFFERENCE-NEGATIVEP IDIFFERENCE-INT-RANGEP2 IDIFFERENCE-INT-RANGEP1 ILESSP-CROCK2 ILESSP-CROCK1 ILEQ) EVENT (DEFN ILESSP (I J) (IF (NEGP I) (IF (NEGP J) (LESSP (NEGATIVE-GUTS J) (NEGATIVE-GUTS I)) (QUOTE *1*TRUE)) (IF (NEGP J) (QUOTE *1*FALSE) (LESSP I J)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NEGP . ILESSP) (DCELL . *1*ILESSP))))) (PUT1-LST (QUOTE *1*ABS) (QUOTE (MAIN-EVENT ABS))) (PUT1-LST (QUOTE ABS) (QUOTE (TYPE-PRESCRIPTION-LST ((ABS 4 NIL)) TOTALP-LST ((ABS . T)) SDEFN (LAMBDA (X) (IF (NEGP X) (NEGATIVE-GUTS X) (IF (NUMBERP X) X (QUOTE 0)))) LISP-CODE *1*ABS SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402214822 SATELLITES (*1*ABS) IMMEDIATE-DEPENDENTS0 (GCD-S0-S0-2 GCD-S0-S0-1 ASR-BMI ASR-BEQ DIVS-BEQ IQUOTIENT=0 IREMAINDER-WRT--1 IREMAINDER-WRT-1 IREMAINDER-INTEGERP IREMAINDER-INT-RANGEP ABS-LESSP-INT-RANGEP ASR-INT IREMAINDER) EVENT (DEFN ABS (X) (IF (NEGP X) (NEGATIVE-GUTS X) (FIX X))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NEGP . ABS) (DCELL . *1*ABS))))) (PUT1-LST (QUOTE *1*IZEROP) (QUOTE (MAIN-EVENT IZEROP))) (PUT1-LST (QUOTE IZEROP) (QUOTE (TYPE-PRESCRIPTION-LST ((IZEROP 3 NIL)) TOTALP-LST ((IZEROP . T)) SDEFN (LAMBDA (X) (EQUAL (FIX-INT X) (QUOTE 0))) LISP-CODE *1*IZEROP SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402214822 SATELLITES (*1*IZEROP) IMMEDIATE-DEPENDENTS0 (IDIFFERENCE-INT-RANGEP SUB-BLE SUB-BGT SUB-BLT SUB-BGE ADD-BVS&VC SUB-BVS&VC SUBX-V-LA ASL-BEQ MULS_3232-BEQ MULS_3264-BEQ MULS_1632-BEQ SUB-INT ADD-INT SUBTRACTER-INT ADDER-INT IQUOTIENT-WRT--1 ITIMES-EQUAL-CANCELLATION ITIMES-EQUAL-0 IDIFFERENCE-NEGATIVEP IDIFFERENCE-X-X IPLUS-0 INEG-IPLUS IDIFFERENCE-INTEGERP INEG-INTEGERP IDIFFERENCE-INT-RANGEP2 IDIFFERENCE-INT-RANGEP1 LOGNOT-INT INEG) EVENT (DEFN IZEROP (X) (EQUAL (FIX-INT X) (QUOTE 0))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FIX-INT . IZEROP) (DCELL . *1*IZEROP))))) (PUT1-LST (QUOTE *1*FIX-INT) (QUOTE (MAIN-EVENT FIX-INT))) (PUT1-LST (QUOTE FIX-INT) (QUOTE (TYPE-PRESCRIPTION-LST ((FIX-INT 4 T)) LEMMAS ((REWRITE-RULE INTEGERP-FIX-INT ((INTEGERP X)) (EQUAL (FIX-INT X) X) NIL)) TOTALP-LST ((FIX-INT . T)) SDEFN (LAMBDA (X) (IF (INTEGERP X) X (QUOTE 0))) LISP-CODE *1*FIX-INT SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402214822 SATELLITES (*1*FIX-INT) IMMEDIATE-DEPENDENTS0 (STRINGP-LA ASR-BMI ASR-BEQ IQUOTIENT=0 SUB-INT ADD-INT SUBTRACTER-INT ADDER-INT MULS-CROCK IQUOTIENT-WRT--1 IREMAINDER-WRT--1 IQUOTIENT-WRT-1 IREMAINDER-WRT-1 ITIMES-SIGN ITIMES-EQUAL-CANCELLATION ITIMES-ASSOCIATIVITY ITIMES-COMMUTATIVITY ITIMES-EQUAL-0 ITIMES-0 IDIFFERENCE-NEGATIVEP IDIFFERENCE-X-X IPLUS-1--1 IPLUS-0 INEG-IPLUS IQUOTIENT-INTEGERP IREMAINDER-INTEGERP ITIMES-INTEGERP IDIFFERENCE-INTEGERP INEG-INTEGERP FIX-INT-INTEGERP INTEGERP-FIX-INT IREMAINDER-INT-RANGEP IQUOTIENT-INT-RANGEP REMAINDER-INT-RANGEP QUOTIENT-INT-RANGEP DIFFERENCE-INT-RANGEP SUB1-INT-RANGEP ABS-LESSP-INT-RANGEP INT-TO-NAT=0 INT-TO-NAT-TO-INT INT-TO-NAT-RANGEP NAT-TO-INT-RANGEP INT-RANGEP-LA IDIFFERENCE-INT-RANGEP2 IDIFFERENCE-INT-RANGEP1 IPLUS-INT-RANGEP2 IPLUS-INT-RANGEP1 ILESSP-CROCK2 ILESSP-CROCK1 ADD-BMI-CROCK2 ADD-BMI-CROCK1 ADDX-V-CROCK1 PLUS-TO-IPLUS ASR-INT ASL-INT LOGNOT-INT INT-RANGEP IQUOTIENT IREMAINDER ITIMES IZEROP) EVENT (DEFN FIX-INT (X) (IF (INTEGERP X) X (QUOTE 0))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INTEGERP . FIX-INT) (DCELL . *1*FIX-INT))))) (PUT1-LST (QUOTE *1*INTEGERP) (QUOTE (MAIN-EVENT INTEGERP))) (PUT1-LST (QUOTE INTEGERP) (QUOTE (TYPE-PRESCRIPTION-LST ((INTEGERP 3 NIL)) LEMMAS ((REWRITE-RULE GET-LST-INTEGERP ((LST-INTEGERP LST)) (INTEGERP (GET-NTH N LST)) NIL) (REWRITE-RULE MEM-ILST-INTEGERP ((MEM-ILST OPSZ A MEM N LST)) (INTEGERP (GET-NTH I LST)) NIL) (REWRITE-RULE IQUOTIENT-INTEGERP NIL (INTEGERP (IQUOTIENT X Y)) NIL) (REWRITE-RULE IREMAINDER-INTEGERP NIL (INTEGERP (IREMAINDER X Y)) NIL) (REWRITE-RULE ITIMES-INTEGERP NIL (INTEGERP (ITIMES X Y)) NIL) (REWRITE-RULE IDIFFERENCE-INTEGERP NIL (INTEGERP (IDIFFERENCE X Y)) NIL) (REWRITE-RULE INEG-INTEGERP NIL (INTEGERP (INEG X)) NIL) (REWRITE-RULE IPLUS-INTEGERP NIL (INTEGERP (IPLUS X Y)) NIL) (REWRITE-RULE NUMBERP-INTEGERP ((NUMBERP X)) (INTEGERP X) NIL) (REWRITE-RULE MINUS-INTEGERP NIL (EQUAL (INTEGERP (MINUS X)) (IF (EQUAL X (QUOTE 0)) (QUOTE *1*FALSE) (NUMBERP X))) NIL) (REWRITE-RULE FIX-INT-INTEGERP NIL (INTEGERP (FIX-INT X)) NIL) (REWRITE-RULE NAT-TO-INT-INTEGERP NIL (EQUAL (INTEGERP (NAT-TO-INT X N)) (NAT-RANGEP X N)) NIL)) TOTALP-LST ((INTEGERP . T)) SDEFN (LAMBDA (X) (IF (NUMBERP X) (QUOTE *1*TRUE) (NEGP X))) LISP-CODE *1*INTEGERP SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402214822 SATELLITES (*1*INTEGERP) IMMEDIATE-DEPENDENTS0 (INTEGERP-ON STRINGP-LA GET-LST-INTEGERP LST-INTEGERP BETWEEN-ILEQ-LA MEM-ILST-INTEGERP IQUOTIENT=0 MULS-CROCK HEAD-INT-CROCK INTEGERP-OFF IQUOTIENT-WRT--1 IQUOTIENT-WRT-1 ITIMES-SIGN ITIMES-EQUAL-CANCELLATION ITIMES-ASSOCIATIVITY ITIMES-EQUAL-0 IDIFFERENCE-NEGATIVEP IDIFFERENCE-X-X IPLUS-1--1 IPLUS-0 INEG-IPLUS IPLUS-COMMUTATIVITY1 IQUOTIENT-INTEGERP IREMAINDER-INTEGERP ITIMES-INTEGERP IDIFFERENCE-INTEGERP INEG-INTEGERP IPLUS-INTEGERP NUMBERP-INTEGERP NEGATIVEP-GUTS0 INTEGERP-MINUS0 MINUS-INTEGERP FIX-INT-INTEGERP INTEGERP-FIX-INT IREMAINDER-INT-RANGEP IQUOTIENT-INT-RANGEP REMAINDER-INT-RANGEP QUOTIENT-INT-RANGEP DIFFERENCE-INT-RANGEP SUB1-INT-RANGEP ABS-LESSP-INT-RANGEP INT-TO-NAT=0 INT-TO-NAT-TO-INT INT-TO-NAT-RANGEP NAT-TO-INT-INTEGERP INT-RANGEP-LA IDIFFERENCE-INT-RANGEP2 IDIFFERENCE-INT-RANGEP1 IPLUS-INT-RANGEP2 IPLUS-INT-RANGEP1 ILESSP-CROCK2 ILESSP-CROCK1 ADD-BMI-CROCK2 ADD-BMI-CROCK1 ADDX-V-CROCK2 ADDX-V-CROCK1 IPLUS-WITH-CARRY-NON-NEGATIVEP IPLUS-WITH-CARRY-NEGATIVEP PLUS-TO-IPLUS ASR-INT ASL-INT LOGNOT-INT FIX-INT) EVENT (DEFN INTEGERP (X) (OR (NUMBERP X) (NEGP X))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NEGP . INTEGERP) (DCELL . *1*INTEGERP))))) (PUT1-LST (QUOTE *1*NEGP) (QUOTE (MAIN-EVENT NEGP))) (PUT1-LST (QUOTE NEGP) (QUOTE (TYPE-PRESCRIPTION-LST ((NEGP 3 NIL)) TOTALP-LST ((NEGP . T)) SDEFN (LAMBDA (I) (IF (NEGATIVEP I) (IF (EQUAL I (QUOTE (*1*QUOTE MINUS 0))) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (QUOTE *1*FALSE))) LISP-CODE *1*NEGP SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402214822 SATELLITES (*1*NEGP) IMMEDIATE-DEPENDENTS0 (GCD-S0-S0-RFILE-2 GCD-S0-S0-RFILE-1 GCD-S0-S0-2 GCD-S0-S0-1 IDIFFERENCE-INT-RANGEP STRINGP-LA BETWEEN-ILEQ-LA SUB-BLE SUB-BGT ASR-BMI SUB-BVS&VC SUBX-V-LA ASR-BEQ DIVS-BEQ IQUOTIENT=0 SUB-BHI-INT SUB-INT SUBTRACTER-INT MULS-CROCK HEAD-INT-CROCK IQUOTIENT-WRT--1 IREMAINDER-WRT--1 IQUOTIENT-WRT-1 IREMAINDER-WRT-1 ITIMES-SIGN ITIMES-EQUAL-CANCELLATION ITIMES-ASSOCIATIVITY ITIMES-COMMUTATIVITY ITIMES-EQUAL-0 ITIMES-0 ILESSP-ENTAILS-ILEQ ILESSP-REFLEX IDIFFERENCE-NEGATIVEP IDIFFERENCE-X-X IPLUS-1--1 IPLUS-0 INEG-IPLUS IPLUS-COMMUTATIVITY1 IPLUS-COMMUTATIVITY IQUOTIENT-INTEGERP IREMAINDER-INTEGERP ITIMES-INTEGERP IDIFFERENCE-INTEGERP INEG-INTEGERP IPLUS-INTEGERP NEGATIVEP-GUTS0 MINUS-INTEGERP FIX-INT-INTEGERP INTEGERP-FIX-INT IREMAINDER-INT-RANGEP IQUOTIENT-INT-RANGEP QUOTIENT-INT-RANGEP DIFFERENCE-INT-RANGEP SUB1-INT-RANGEP ABS-LESSP-INT-RANGEP INT-TO-NAT=0 INT-TO-NAT-TO-INT INT-TO-NAT-RANGEP NAT-TO-INT-INTEGERP IDIFFERENCE-INT-RANGEP2 IDIFFERENCE-INT-RANGEP1 IPLUS-INT-RANGEP2 IPLUS-INT-RANGEP1 ILESSP-CROCK2 ILESSP-CROCK1 ADD-BMI-CROCK2 ADD-BMI-CROCK1 ADDX-V-CROCK2 ADDX-V-CROCK1 IPLUS-WITH-CARRY-NON-NEGATIVEP IPLUS-WITH-CARRY-NEGATIVEP PLUS-TO-IPLUS ASR-INT ASL-INT LOGNOT-INT IQUOTIENT IREMAINDER ITIMES INEG IPLUS ILESSP ABS INTEGERP) EVENT (DEFN NEGP (I) (AND (NEGATIVEP I) (NOT (EQUAL I (QUOTE (*1*QUOTE MINUS 0)))))) LOCAL-UNDO-TUPLES ((DCELL . *1*NEGP))))) (PUT1-LST (QUOTE *1*ASR) (QUOTE (MAIN-EVENT ASR))) (PUT1-LST (QUOTE ASR) (QUOTE (TYPE-PRESCRIPTION-LST ((ASR 4 NIL NIL NIL)) LEMMAS ((REWRITE-RULE ASR-0 ((NAT-RANGEP X N)) (EQUAL (ASR N X (QUOTE 0)) (IF (NUMBERP X) X (QUOTE 0))) NIL)) TOTALP-LST ((ASR . T)) SDEFN (LAMBDA (N X CNT) (IF (LESSP X (EXP (QUOTE 2) (SUB1 N))) (TAIL X CNT) (IF (LESSP N CNT) (SUB1 (EXP (QUOTE 2) N)) (APP (DIFFERENCE N CNT) (TAIL X CNT) (SUB1 (EXP (QUOTE 2) CNT)))))) LISP-CODE *1*ASR SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214822 SATELLITES (*1*ASR) IMMEDIATE-DEPENDENTS0 (ASR-OFF ASR-N-BITP ASR-Z-BITP ASR-NAT-RANGEP ASR-0 ASR-INT ASR-EFFECT ASR-N ASR-Z) EVENT (DEFN ASR (N X CNT) (IF (LESSP X (EXP (QUOTE 2) (SUB1 N))) (TAIL X CNT) (IF (LESSP N CNT) (SUB1 (EXP (QUOTE 2) N)) (APP (DIFFERENCE N CNT) (TAIL X CNT) (SUB1 (EXP (QUOTE 2) CNT)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 APP . ASR) (IMMEDIATE-DEPENDENTS0 TAIL . ASR) (IMMEDIATE-DEPENDENTS0 EXP . ASR) (DCELL . *1*ASR))))) (PUT1-LST (QUOTE *1*LSR) (QUOTE (MAIN-EVENT LSR))) (PUT1-LST (QUOTE LSR) (QUOTE (TYPE-PRESCRIPTION-LST ((LSR 4 NIL NIL)) LEMMAS ((REWRITE-RULE LSR-LSR NIL (EQUAL (LSR (LSR X CNT1) CNT2) (LSR X (PLUS CNT1 CNT2))) NIL) (REWRITE-RULE LSR-0 NIL (EQUAL (LSR X (QUOTE 0)) (IF (NUMBERP X) X (QUOTE 0))) NIL)) TOTALP-LST ((LSR . T)) SDEFN (LAMBDA (X CNT) (TAIL X CNT)) LISP-CODE *1*LSR SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214822 SATELLITES (*1*LSR) IMMEDIATE-DEPENDENTS0 (LSR-OFF LSR-BEQ LSR-N-BITP LSR-Z-BITP LSR-LSR LSR-NAT-RANGEP LSR-0 LSR-UINT LSR-EFFECT LSR-N LSR-Z) EVENT (DEFN LSR (X CNT) (TAIL X CNT)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TAIL . LSR) (DCELL . *1*LSR))))) (PUT1-LST (QUOTE *1*ASL) (QUOTE (MAIN-EVENT ASL))) (PUT1-LST (QUOTE ASL) (QUOTE (TYPE-PRESCRIPTION-LST ((ASL 4 NIL NIL NIL)) LEMMAS ((REWRITE-RULE ASL-ASL NIL (EQUAL (ASL N (ASL N X CNT1) CNT2) (ASL N X (PLUS CNT1 CNT2))) NIL) (REWRITE-RULE ASL-0 NIL (EQUAL (ASL N X (QUOTE 0)) (HEAD X N)) NIL)) TOTALP-LST ((ASL . T)) SDEFN (LAMBDA (LEN X CNT) (HEAD (TIMES X (EXP (QUOTE 2) CNT)) LEN)) LISP-CODE *1*ASL SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214822 SATELLITES (*1*ASL) IMMEDIATE-DEPENDENTS0 (ASL-OFF WRITE-MEMP-RAM1-ASL READ-MEMP-ROM1-ASL READ-MEMP-RAM1-ASL WRITE-MEM-ILST-ASL WRITE-MEM-LST-ASL READ-MEM-ILST-ASL READ-MEM-LST-ASL DISJOINT-11~-ASL DISJOINT-11-ASL DISJOINT-9~-ASL DISJOINT-9-ASL DISJOINT-3~-ASL DISJOINT-3-ASL DISJOINT-2~-ASL DISJOINT-2-ASL ASL-N-BITP ASL-Z-BITP ASL-ASL ASL-NAT-RANGEP ASL-0 ASL-INT ASL-EFFECT ASL-N ASL-Z IR-SCALED) EVENT (DEFN ASL (LEN X CNT) (HEAD (TIMES X (EXP (QUOTE 2) CNT)) LEN)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EXP . ASL) (IMMEDIATE-DEPENDENTS0 HEAD . ASL) (DCELL . *1*ASL))))) (PUT1-LST (QUOTE *1*LSL) (QUOTE (MAIN-EVENT LSL))) (PUT1-LST (QUOTE LSL) (QUOTE (TYPE-PRESCRIPTION-LST ((LSL 4 NIL NIL NIL)) LEMMAS ((REWRITE-RULE LSL-LSL NIL (EQUAL (LSL N (LSL N X CNT1) CNT2) (LSL N X (PLUS CNT1 CNT2))) NIL) (REWRITE-RULE LSL-0 NIL (EQUAL (LSL N X (QUOTE 0)) (HEAD X N)) NIL)) TOTALP-LST ((LSL . T)) SDEFN (LAMBDA (LEN X CNT) (HEAD (TIMES X (EXP (QUOTE 2) CNT)) LEN)) LISP-CODE *1*LSL SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214822 SATELLITES (*1*LSL) IMMEDIATE-DEPENDENTS0 (LSL-OFF LSL-BEQ LSL-N-BITP LSL-Z-BITP LSL-LSL LSL-NAT-RANGEP LSL-0 LSL-UINT LSL-EFFECT LSL-N LSL-Z) EVENT (DEFN LSL (LEN X CNT) (HEAD (TIMES X (EXP (QUOTE 2) CNT)) LEN)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EXP . LSL) (IMMEDIATE-DEPENDENTS0 HEAD . LSL) (DCELL . *1*LSL))))) (PUT1-LST (QUOTE *1*EXT) (QUOTE (MAIN-EVENT EXT))) (PUT1-LST (QUOTE EXT) (QUOTE (TYPE-PRESCRIPTION-LST ((EXT 4 NIL NIL NIL)) LEMMAS ((REWRITE-RULE EXT-LEMMA ((NOT (LESSP N SIZE))) (EQUAL (EXT N X SIZE) (HEAD X SIZE)) NIL) (REWRITE-RULE EXT-0 NIL (EQUAL (EXT N (QUOTE 0) SIZE) (QUOTE 0)) NIL)) TOTALP-LST ((EXT . T)) SDEFN (LAMBDA (N X SIZE) (IF (LESSP N SIZE) (IF (B0P (BITN X (SUB1 N))) (HEAD X N) (APP N X (SUB1 (EXP (QUOTE 2) (DIFFERENCE SIZE N))))) (HEAD X SIZE))) LISP-CODE *1*EXT SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214822 SATELLITES (*1*EXT) IMMEDIATE-DEPENDENTS0 (GCD-S0-S0-RFILE-2 GCD-S0-S0-RFILE-1 GCD-S0-S0-2 GCD-S0-S0-1 GCD-S0-SN-BASE-RFILE-2 GCD-S0-SN-BASE-2 GCD-S0-SN-BASE-RFILE-1 GCD-S0-SN-BASE-1 GCD-S-S0-MEM GCD-S-S0-RFILE GCD-S-S0 MISC-GROUP-H EXT-BEQ-UINT SUB-BEQ-EXT MOVE-BEQ-EXT EXT-EQUAL-0 EXT-EQUAL EXT-OFF EXT-NAT-RANGEP HEAD-EXT EXT-LEMMA EXT-0 EXT-INT CMPA-INS MOVEQ-INS DBCC-LOOP BCC-GROUP RTD-MAPPING LINK_W-INS WRITEM-RN EXT-EFFECT EXT-N EXT-Z MOVEA-INS SUBA-INS ADDA-INS PC-INDEX-DISP PC-DISP ABSOLUTE-SHORT ADDR-INDEX2 MEM-POSTINDEX MEM-INDIRECT ADDR-INDEX-DISP INDEX-REGISTER ADDR-DISP) EVENT (DEFN EXT (N X SIZE) (IF (LESSP N SIZE) (IF (B0P (BITN X (SUB1 N))) (HEAD X N) (APP N X (SUB1 (EXP (QUOTE 2) (DIFFERENCE SIZE N))))) (HEAD X SIZE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EXP . EXT) (IMMEDIATE-DEPENDENTS0 APP . EXT) (IMMEDIATE-DEPENDENTS0 HEAD . EXT) (IMMEDIATE-DEPENDENTS0 BITN . EXT) (IMMEDIATE-DEPENDENTS0 B0P . EXT) (DCELL . *1*EXT))))) (PUT1-LST (QUOTE *1*REPLACE) (QUOTE (MAIN-EVENT REPLACE))) (PUT1-LST (QUOTE REPLACE) (QUOTE (TYPE-PRESCRIPTION-LST ((REPLACE 4 NIL NIL NIL)) LEMMAS ((REWRITE-RULE REPLACE-LEQ ((NOT (LESSP J I))) (EQUAL (REPLACE I (REPLACE J X Y) Z) (REPLACE I X Z)) NIL) (REWRITE-RULE REPLACE-LEQ1 ((NOT (LESSP I J))) (EQUAL (REPLACE I X (REPLACE J Y Z)) (REPLACE I X Z)) NIL) (REWRITE-RULE REPLACE-ASSOCIATIVITY NIL (EQUAL (REPLACE N X (REPLACE N Y Z)) (REPLACE N (REPLACE N X Y) Z)) NIL) (REWRITE-RULE REPLACE-HEAD ((NOT (LESSP M N))) (EQUAL (REPLACE N (HEAD X M) X) (IF (NUMBERP X) X (QUOTE 0))) NIL) (REWRITE-RULE REPLACE-REFLEX NIL (EQUAL (REPLACE N X X) (IF (NUMBERP X) X (QUOTE 0))) NIL) (REWRITE-RULE REPLACE-0 ((NAT-RANGEP X N) (NAT-RANGEP Y N)) (EQUAL (REPLACE N X Y) (IF (NUMBERP X) X (QUOTE 0))) NIL) (REWRITE-RULE REPLACE-0 NIL (EQUAL (REPLACE N X (QUOTE 0)) (HEAD X N)) NIL) (REWRITE-RULE REPLACE-0 NIL (EQUAL (REPLACE (QUOTE 0) X Y) (IF (NUMBERP Y) Y (QUOTE 0))) NIL)) TOTALP-LST ((REPLACE . T)) SDEFN (LAMBDA (N X Y) (APP N X (TAIL Y N))) LISP-CODE *1*REPLACE SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214822 SATELLITES (*1*REPLACE) IMMEDIATE-DEPENDENTS0 (READ-WRITE-RN BITN-REPLACE REPLACE-OFF REPLACE-NAT-RANGEP BCAR-REPLACE REPLACE-LEQ REPLACE-LEQ1 REPLACE-ASSOCIATIVITY REPLACE-HEAD REPLACE-REFLEX TAIL-REPLACE HEAD-REPLACE REPLACE-0 SET-CVZNX WRITE-RN) EVENT (DEFN REPLACE (N X Y) (APP N X (TAIL Y N))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TAIL . REPLACE) (IMMEDIATE-DEPENDENTS0 APP . REPLACE) (DCELL . *1*REPLACE))))) (PUT1-LST (QUOTE *1*APP) (QUOTE (MAIN-EVENT APP))) (PUT1-LST (QUOTE APP) (QUOTE (TYPE-PRESCRIPTION-LST ((APP 4 NIL NIL NIL)) LEMMAS ((REWRITE-RULE HEAD-APP-HEAD-TAIL NIL (EQUAL (APP M (HEAD X M) (HEAD (TAIL X M) N)) (HEAD X (PLUS M N))) NIL) (REWRITE-RULE APP-HEAD-TAIL NIL (EQUAL (APP N (HEAD X N) (TAIL X N)) (IF (NUMBERP X) X (QUOTE 0))) NIL) (REWRITE-RULE APP-ASSOCIATIVITY NIL (EQUAL (APP N1 X (APP N2 Y Z)) (APP (PLUS N1 N2) (APP N1 X Y) Z)) NIL) (REWRITE-RULE APP-0 NIL (EQUAL (APP (QUOTE 0) X Y) (IF (NUMBERP Y) Y (QUOTE 0))) NIL) (REWRITE-RULE APP-0 NIL (EQUAL (APP N (QUOTE 0) Y) (TIMES Y (EXP (QUOTE 2) N))) NIL) (REWRITE-RULE APP-0 NIL (EQUAL (APP N X (QUOTE 0)) (HEAD X N)) NIL)) TOTALP-LST ((APP . T)) SDEFN (LAMBDA (N X Y) (PLUS (HEAD X N) (TIMES Y (EXP (QUOTE 2) N)))) LISP-CODE *1*APP SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214822 SATELLITES (*1*APP) IMMEDIATE-DEPENDENTS0 (READ-MEM-PLUS LST-TO-BV GET-LST READ-LST0 EXT-BEQ-UINT READ-WRITE-MEM2 BYTE-WRITE-APP HEAD-RECURSION HEAD-APP-CANCEL APP-CANCEL BITN-APP APP-OFF REPLACE-NAT-RANGEP APP-NAT-RANGEP HEAD-APP-HEAD-TAIL APP-HEAD-TAIL APP-ASSOCIATIVITY BCAR-REPLACE BCAR-APP HEAD-APP REPLACE-LEQ REPLACE-LEQ1 REPLACE-ASSOCIATIVITY REPLACE-HEAD REPLACE-REFLEX TAIL-REPLACE TAIL-APP HEAD-REPLACE ASR-NAT-RANGEP ASR-INT-CROCK DIFFERENCE-APP-1S LESSP-APP-1S APP-0 REPLACE-0 MOVEP-READ DIVU_L DIVS_L SWAP-EFFECT ROR ROL DIVU_W-INS DIVS_W-INS PC-READ-MEM READ-MEM ASR EXT REPLACE) EVENT (DEFN APP (N X Y) (PLUS (HEAD X N) (TIMES Y (EXP (QUOTE 2) N)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EXP . APP) (IMMEDIATE-DEPENDENTS0 HEAD . APP) (DCELL . *1*APP))))) (PUT1-LST (QUOTE *1*SUB) (QUOTE (MAIN-EVENT SUB))) (PUT1-LST (QUOTE SUB) (QUOTE (TYPE-PRESCRIPTION-LST ((SUB 4 NIL NIL NIL)) LEMMAS ((REWRITE-RULE SUB-NEG NIL (EQUAL (SUB N Y X) (ADD N X (NEG N Y))) NIL) (REWRITE-RULE SUB-SUB1 NIL (EQUAL (SUB N (SUB N Z Y) X) (ADD N X (SUB N Y Z))) NIL) (REWRITE-RULE SUB-SUB NIL (EQUAL (SUB N Z (SUB N Y X)) (SUB N (ADD N Y Z) X)) NIL) (REWRITE-RULE ADD-SUB NIL (EQUAL (SUB N Z (ADD N X Y)) (ADD N X (SUB N Z Y))) NIL) (REWRITE-RULE SUB-ADDER NIL (EQUAL (SUB N Y X) (ADDER N (QUOTE 1) X (LOGNOT N Y))) NIL) (REWRITE-RULE SUB-X-X NIL (EQUAL (SUB N X X) (QUOTE 0)) NIL) (REWRITE-RULE SUB-0 NIL (EQUAL (SUB N (QUOTE 0) X) (HEAD X N)) NIL) (REWRITE-RULE SUB-NAT-LA ((NAT-RANGEP X N) (NAT-RANGEP Y N)) (EQUAL (SUB N X Y) (IF (LESSP Y X) (DIFFERENCE (PLUS Y (EXP (QUOTE 2) N)) X) (DIFFERENCE Y X))) NIL)) TOTALP-LST ((SUB . T)) SDEFN (LAMBDA (N X Y) (HEAD (PLUS Y (DIFFERENCE (EXP (QUOTE 2) N) (HEAD X N))) N)) LISP-CODE *1*SUB SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214822 SATELLITES (*1*SUB) IMMEDIATE-DEPENDENTS0 (GCD-CORRECTNESS GCD-S-S0-MEM GCD-S-S0 GCD-S0P GCD-STATEP RN-SAVED MOVEM-SAVED INDEX-N ADD-TREE-DELETE SUB-NEG NEG-HEAD ADDY-Y1 ADDY-Y SUB-CANCEL SUB-CANCEL0 ADD-COMMUTATIVITY2 SUB-SUB1 SUB-SUB SUB-ADD ADD-SUB SUB-OFF SUB-ADDER SUB-EQUAL-0 ADD-SUB-CANCEL SUB-NAT-RANGEP SUB-LEQ-LA SUB-X-X SUB-0 SUB-NAT-LA NEG SUBQ-INS DBCC-LOOP LINK-MAPPING MOVEM-PREDEC SUBA-INS SUB-EFFECT SUB-N SUB-Z SUB-V SUB-C PRE-EFFECT PUSH-SP) EVENT (DEFN SUB (N X Y) (HEAD (PLUS Y (DIFFERENCE (EXP (QUOTE 2) N) (HEAD X N))) N)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EXP . SUB) (IMMEDIATE-DEPENDENTS0 HEAD . SUB) (DCELL . *1*SUB))))) (PUT1-LST (QUOTE *1*SUBTRACTER) (QUOTE (MAIN-EVENT SUBTRACTER))) (PUT1-LST (QUOTE SUBTRACTER) (QUOTE (TYPE-PRESCRIPTION-LST ((SUBTRACTER 4 NIL NIL NIL NIL)) LEMMAS ((REWRITE-RULE SUBTRACTER-NAT-LA ((NAT-RANGEP X N) (NAT-RANGEP Y N) (BITP C)) (EQUAL (SUBTRACTER N C X Y) (IF (LESSP Y (PLUS C X)) (DIFFERENCE (PLUS Y (EXP (QUOTE 2) N)) (PLUS C X)) (DIFFERENCE Y (PLUS C X)))) NIL)) TOTALP-LST ((SUBTRACTER . T)) SDEFN (LAMBDA (N C X Y) (ADDER N (B-NOT C) Y (LOGNOT N X))) LISP-CODE *1*SUBTRACTER SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214822 SATELLITES (*1*SUBTRACTER) IMMEDIATE-DEPENDENTS0 (SUB-SUBX-V SUBX-ADDX-V SUB-SUBX-C SUBTRACTER-OFF SUBTRACTER-INT SUBTRACTER-NAT-RANGEP SUBTRACTER-UINT SUBTRACTER-NAT-LA SUBX-EFFECT SUBX-N SUBX-Z SUBX-V SUBX-C) EVENT (DEFN SUBTRACTER (N C X Y) (ADDER N (B-NOT C) Y (LOGNOT N X))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LOGNOT . SUBTRACTER) (IMMEDIATE-DEPENDENTS0 B-NOT . SUBTRACTER) (IMMEDIATE-DEPENDENTS0 ADDER . SUBTRACTER) (DCELL . *1*SUBTRACTER))))) (PUT1-LST (QUOTE *1*ADD) (QUOTE (MAIN-EVENT ADD))) (PUT1-LST (QUOTE ADD) (QUOTE (TYPE-PRESCRIPTION-LST ((ADD 4 NIL NIL NIL)) LEMMAS ((REWRITE-RULE ADD-PLUS NIL (EQUAL (ADD N X (ADD N Y Z)) (ADD N X (PLUS Y Z))) NIL) (REWRITE-RULE ADD-NON-NUMBERP ((NOT (NUMBERP I))) (EQUAL (ADD N X I) (HEAD X N)) NIL) (REWRITE-RULE CORRECTNESS-OF-CANCEL-ADD-NEG NIL *1*CANCEL-ADD-NEG NIL) (REWRITE-RULE ADD-NEG-CANCEL NIL (EQUAL (ADD N Y (ADD N (NEG N Y) X)) (HEAD X N)) NIL) (REWRITE-RULE ADD-NEG-CANCEL NIL (EQUAL (ADD N Y (ADD N X (NEG N Y))) (HEAD X N)) NIL) (REWRITE-RULE NEG-CANCEL NIL (EQUAL (ADD N X (NEG N X)) (QUOTE 0)) NIL) (REWRITE-RULE ADDY-Y1 ((NAT-RANGEP X N)) (EQUAL (ADD N Y (SUB N Y X)) (IF (NUMBERP X) X (QUOTE 0))) NIL) (REWRITE-RULE ADDY-Y ((NAT-RANGEP X N)) (EQUAL (ADD N X (SUB N Y Y)) (IF (NUMBERP X) X (QUOTE 0))) NIL) (REWRITE-RULE ADD-COMMUTATIVITY2 NIL (EQUAL (ADD N X (SUB N Z Y)) (ADD N Y (SUB N Z X))) ((X . Y))) (REWRITE-RULE SUB-ADD NIL (EQUAL (ADD N (SUB N Y X) Z) (ADD N X (SUB N Y Z))) NIL) (REWRITE-RULE ADD-NEG-ADDER NIL (EQUAL (ADD N X (NEG N Y)) (ADDER N (QUOTE 1) X (LOGNOT N Y))) NIL) (REWRITE-RULE ADD-ADDER NIL (EQUAL (ADD N X Y) (ADDER N (QUOTE 0) X Y)) NIL) (REWRITE-RULE ADD-HEAD NIL (EQUAL (ADD N X (HEAD Y N)) (ADD N X Y)) NIL) (REWRITE-RULE ADD-HEAD NIL (EQUAL (ADD N (HEAD X N) Y) (ADD N X Y)) NIL) (REWRITE-RULE ADD-COMMUTATIVITY1 NIL (EQUAL (ADD N X (ADD N Y Z)) (ADD N Y (ADD N X Z))) ((X . Y))) (REWRITE-RULE ADD-ASSOCIATIVITY NIL (EQUAL (ADD N (ADD N X Y) Z) (ADD N X (ADD N Y Z))) NIL) (REWRITE-RULE ADD-COMMUTATIVITY NIL (EQUAL (ADD N X Y) (ADD N Y X)) ((X . Y))) (REWRITE-RULE ADD-0 NIL (EQUAL (ADD N (QUOTE 0) X) (HEAD X N)) NIL) (REWRITE-RULE ADD-0 NIL (EQUAL (ADD N X (QUOTE 0)) (HEAD X N)) NIL) (REWRITE-RULE ADD-OF-0 NIL (EQUAL (ADD (QUOTE 0) X Y) (QUOTE 0)) NIL) (REWRITE-RULE ADD-NAT-LA ((NAT-RANGEP X N) (NAT-RANGEP Y N)) (EQUAL (ADD N X Y) (IF (LESSP (PLUS X Y) (EXP (QUOTE 2) N)) (PLUS X Y) (DIFFERENCE (PLUS X Y) (EXP (QUOTE 2) N)))) NIL)) TOTALP-LST ((ADD . T)) LINEAR-LEMMAS ((LINEAR-LEMMA SUB-LEQ-2 ((NOT (LESSP Y X))) (NOT (LESSP (DIFFERENCE Y X) (ADD N (NEG N X) Y))) (ADD N (NEG N X) Y)) (LINEAR-LEMMA SUB-LEQ-2 ((NOT (LESSP Y X))) (NOT (LESSP (DIFFERENCE Y X) (ADD N Y (NEG N X)))) (ADD N Y (NEG N X))) (LINEAR-LEMMA SUB-LEQ-1 ((NOT (LESSP Y (NEG N X)))) (NOT (LESSP (DIFFERENCE Y (NEG N X)) (ADD N X Y))) (ADD N X Y)) (LINEAR-LEMMA SUB-LEQ-1 ((NOT (LESSP Y (NEG N X)))) (NOT (LESSP (DIFFERENCE Y (NEG N X)) (ADD N Y X))) (ADD N Y X)) (LINEAR-LEMMA ADD-LEQ NIL (NOT (LESSP (PLUS X Y) (ADD N X Y))) (ADD N X Y))) SDEFN (LAMBDA (N X Y) (HEAD (PLUS X Y) N)) LISP-CODE *1*ADD SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214822 SATELLITES (*1*ADD) IMMEDIATE-DEPENDENTS0 (GCD-CORRECTNESS GCD-S0-SN GCD-S0-S0-RFILE-2 GCD-S0-S0-RFILE-1 GCD-S0-S0-2 GCD-S0-S0-1 GCD-S0-SN-BASE-RFILE-2 GCD-S0-SN-BASE-2 GCD-S0-SN-BASE-RFILE-1 GCD-S0-SN-BASE-1 GCD-S-S0-MEM GCD-S-S0-RFILE GCD-S-S0 GCD-STATEP RAM-ADDRP-4 RAM-ADDRP-3 ADD-UINTXXX ADD-UINTXX DISJOINT-7-UINT DISJOINT-6-UINT DISJOINT-5-UINT DISJOINT-3-UINT DISJOINT-2~-UINT DISJOINT-2-UINT DISJOINT-1-UINT WRITE-MEMP-RAM1-UINT READ-MEMP-RAM1-UINT DISJOINT-3-INT DISJOINT-2~-INT DISJOINT-2-INT DISJOINT-1-INT STRTOK-LAST1 STRTOK-LAST0 STRTOK-TOK STRSTR1* STRSPN* STRPBRK* STRRCHR* STRCSPN* STRCHR1* STRCHR* MEMCHR* STRLEN* LINKED-RTS-ADDR MISC-GROUP-H ADDR-INDEX2-MEM READ-MEM-PLUS MOD32-EQ-DEDUCTION3 MOD32-EQ-DEDUCTION2 MEM-LST-MCDR-UINT-1 MEM-LST-MCDR-1 MEM-LST-MCDR-UINT MEM-LST-MCDR-0 MEM-LST-MCDR MEM-LST-PLUS WRITE-MEMP-RAM1-ASL READ-MEMP-ROM1-ASL READ-MEMP-RAM1-ASL WRITE-MEM-ILST-ASL WRITE-MEM-LST-ASL READ-MEM-ILST-ASL READ-MEM-LST-ASL WRITE-MEM-ILST-INT WRITE-MEM-LST-INT WRITE-MEM-ILST WRITE-MEM-LST MEM-LST-PUT-VALS MEM-INDUCT4 MEM-LST-PUT-LST MEM-INDUCT3 WRITE-MEM-LST-LA DISJOINT-LEQ DISJOINT0-LEQ READ-MEM-ILST-INT READ-MEM-ILST READ-MEM-LST-INT READ-MEM-LST MEM-LST-GET-VALS MEM-LST-GET-LST READ-MEM-LST-LA MEM-INDUCT2 READ-MEM-NON-NUMBERP MEM-ILST MEM-LST DISJOINT-DEDUCTION3 INDEX-N-DEDUCTION2 INDEX-N-DEDUCTION1 INDEX-N-DEDUCTION0 DISJOINT-DEDUCTION2 DISJOINT-DEDUCTION1 DISJOINT0-DEDUCTION2 DISJOINT0-DEDUCTION1 DISJOINT-11~-ASL DISJOINT-11-ASL DISJOINT-9~-ASL DISJOINT-9-ASL DISJOINT-3~-ASL DISJOINT-3-ASL DISJOINT-2~-ASL DISJOINT-2-ASL DISJOINT-15~ DISJOINT-14~ DISJOINT-13~ DISJOINT-12~ DISJOINT-11~ DISJOINT-10~ DISJOINT-9~ DISJOINT-8~ DISJOINT-7~ DISJOINT-6~ DISJOINT-5~ DISJOINT-4~ DISJOINT-3~ DISJOINT-2~ DISJOINT-1~ DISJOINT-15 DISJOINT-14 DISJOINT-13 DISJOINT-12 DISJOINT-11 DISJOINT-10 DISJOINT-9 DISJOINT-8 DISJOINT-7 DISJOINT-6 DISJOINT-5 DISJOINT-4 DISJOINT-3 DISJOINT-2 DISJOINT-1 DISJOINT-LA3 DISJOINT-LA2 DISJOINT-LA1 DISJOINT-LA0 DISJOINT0-LA2 DISJOINT0-LA0 READ-MEM-MCODE3 READ-MEM-MCODE2 READ-MEM-MCODE1-INT PC-READ-MEM-MCODE3 PC-READ-MEM-MCODE2 PC-READ-MEM-MCODE1 PC-BYTE-READ-MCODE3 PC-BYTE-READ-MCODE2 PC-BYTE-READ-MCODE1 MEM-INDUCT1 READ-MEMP-RAM3 READ-MEMP-RAM2 READ-MEMP-RAM1-INT READ-MEMP-RAM1 BYTE-READP-RAM3 BYTE-READP-RAM2 BYTE-READP-RAM1 WRITE-MEMP-RAM3 WRITE-MEMP-RAM2 WRITE-MEMP-RAM1-INT WRITE-MEMP-RAM1 BYTE-WRITEP-RAM3 BYTE-WRITEP-RAM2 BYTE-WRITEP-RAM1 READ-MEMP-ROM1-INT READ-MEMP-ROM3 READ-MEMP-ROM2 READ-MEMP-ROM1 BYTE-READP-ROM3 BYTE-READP-ROM2 BYTE-READP-ROM1 PC-READ-MEMP-ROM3 PC-READ-MEMP-ROM2 PC-READ-MEMP-ROM1 PC-BYTE-READP-ROM3 PC-BYTE-READP-ROM2 PC-BYTE-READP-ROM1 WRITE-MEMP-LA3 WRITE-MEMP-LA1 PC-READ-MEMP-LA3 PC-READ-MEMP-LA1 ADD-PLUS ADD-NON-NUMBERP MCODE-ADDRP CORRECTNESS-OF-CANCEL-EQUAL-ADD ADD-TREE-ADD-FRINGE ADD-TREE-APPEND EVAL$-ADD-MEMBER ADD-EQUAL-CANCEL-1 SUB-LEQ-2 SUB-LEQ-1 ADD-NEG-CANCEL ADD-NEG-0 SUB-NEG NEG-ADD NEG-CANCEL BYTE-READ-WRITE-MEM-LEMMA SUB-INT ADD-INT ADDY-Y1 ADDY-Y ADD-CANCEL ADD-CANCEL0 ADD-COMMUTATIVITY2 SUB-SUB1 SUB-SUB SUB-ADD ADD-SUB ADD-OFF ADD-NEG-ADDER ADD-ADDER ADD-SUB-CANCEL ADD-HEAD ADD-NAT-RANGEP ADD-LEQ ADD-COMMUTATIVITY1 ADD-ASSOCIATIVITY ADD-COMMUTATIVITY ADD-0 ADD-OF-0 SUB-UINT ADD-UINT ADD-NAT-LA ADD-EVENP DISJOINT DISJOINT0 LOAD-LST-MEM STEPI EORI-TO-CCR-INS ANDI-TO-CCR-INS ORI-TO-CCR-INS S-BIT-SUBGROUP MOVEP-ADDR MOVEP-READ MOVEP-READP MOVEP-WRITE MOVEP-WRITEP ADDQ-INS DBCC-INS DBCC-LOOP BCC-GROUP BCC-RA-SR BSR-INS RTR-INS RTD-MAPPING UNLK-INS LINK_W-INS LINK_L-INS LINK-MAPPING MOVEM-EA-RN-SUBGROUP MOVEM-EA-RN-INS EXT-SUBGROUP WRITEM-MEM READM-MEM ADDA-INS ADD-EFFECT ADD-N ADD-Z ADD-V ADD-C IMMEDIATE PC-INDEX1 PC-INDEX-DISP PC-DISP ABSOLUTE-LONG ABSOLUTE-SHORT ADDR-INDEX ADDR-INDEX2 MEM-PREINDEX MEM-POSTINDEX MEM-INDIRECT ADDR-INDEX-BD ADDR-INDEX-DISP ADDR-DISP POST-EFFECT WRITE-MEM WRITE-MEMP PC-READ-MEM READ-MEM PC-READ-MEMP READ-MEMP) EVENT (DEFN ADD (N X Y) (HEAD (PLUS X Y) N)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 HEAD . ADD) (DCELL . *1*ADD))))) (PUT1-LST (QUOTE *1*ADDER) (QUOTE (MAIN-EVENT ADDER))) (PUT1-LST (QUOTE ADDER) (QUOTE (TYPE-PRESCRIPTION-LST ((ADDER 4 NIL NIL NIL NIL)) LEMMAS ((REWRITE-RULE ADDER-HEAD NIL (EQUAL (ADDER N C X (HEAD Y N)) (ADDER N C X Y)) NIL) (REWRITE-RULE ADDER-HEAD NIL (EQUAL (ADDER N C (HEAD X N) Y) (ADDER N C X Y)) NIL) (REWRITE-RULE ADDER-COMMUTATIVITY1 NIL (EQUAL (ADDER N C X (ADDER N D Y Z)) (ADDER N C Y (ADDER N D X Z))) ((X . Y))) (REWRITE-RULE ADDER-ASSOCIATIVITY NIL (EQUAL (ADDER N D (ADDER N C X Y) Z) (ADDER N C X (ADDER N D Y Z))) NIL) (REWRITE-RULE ADDER-COMMUTATIVITY NIL (EQUAL (ADDER N C X Y) (ADDER N C Y X)) ((X . Y))) (REWRITE-RULE ADDER-SHIFT-CARRY NIL (EQUAL (ADDER N C X (ADDER N D Y Z)) (ADDER N D X (ADDER N C Y Z))) ((C . D))) (REWRITE-RULE ADDER-NAT-LA ((NAT-RANGEP X N) (NAT-RANGEP Y N) (BITP C)) (EQUAL (ADDER N C X Y) (IF (LESSP (PLUS C (PLUS X Y)) (EXP (QUOTE 2) N)) (PLUS C (PLUS X Y)) (DIFFERENCE (PLUS C (PLUS X Y)) (EXP (QUOTE 2) N)))) NIL)) TOTALP-LST ((ADDER . T)) SDEFN (LAMBDA (N C X Y) (HEAD (PLUS C (PLUS X Y)) N)) LISP-CODE *1*ADDER SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214822 SATELLITES (*1*ADDER) IMMEDIATE-DEPENDENTS0 (ADDER-INT ADDER-OFF ADDER-INT-BRIDGE ADD-CANCEL ADDER-CANCEL SUB-CANCEL0 ADD-CANCEL0 ADD-NEG-ADDER SUB-ADDER ADD-ADDER ADDER-HEAD ADDER-NAT-RANGEP ADDER-COMMUTATIVITY1 ADDER-ASSOCIATIVITY ADDER-COMMUTATIVITY ADDER-SHIFT-CARRY ADDER-UINT SUBTRACTER-NAT-LA ADDER-NAT-LA ADDER-LOGNOT BV-ADDER-NAT ADDX-EFFECT ADDX-N ADDX-Z ADDX-V ADDX-C SUBTRACTER) EVENT (DEFN ADDER (N C X Y) (HEAD (PLUS C (PLUS X Y)) N)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 HEAD . ADDER) (DCELL . *1*ADDER))))) (PUT1-LST (QUOTE *1*SETN) (QUOTE (MAIN-EVENT SETN))) (PUT1-LST (QUOTE SETN) (QUOTE (TYPE-PRESCRIPTION-LST ((SETN 4 NIL NIL NIL)) TOTALP-LST ((SETN . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE UNCHANGING) SDEFN (LAMBDA (X N C) (IF (EQUAL N (QUOTE 0)) (PLUS (FIX-BIT C) (TIMES (QUOTE 2) (BCDR X))) (IF (NUMBERP N) (PLUS (BCAR X) (TIMES (QUOTE 2) (SETN (BCDR X) (SUB1 N) C))) (PLUS (FIX-BIT C) (TIMES (QUOTE 2) (BCDR X)))))) LISP-CODE *1*SETN SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((ZEROP N)) NIL) (TESTS-AND-CASES ((NOT (ZEROP N))) (((BCDR X) (SUB1 N) C)))) LEVEL-NO 3 JUSTIFICATIONS ((JUSTIFICATION (N) (COUNT N) LESSP (ZEROP COUNT-NUMBERP LESSP-SUB1))) IDATE 1000402214822 CONTROLLER-POCKETS (2) SATELLITES (*1*SETN) IMMEDIATE-DEPENDENTS0 (BSET-EFFECT BCLR-EFFECT BCHG-EFFECT TAS-EFFECT) EVENT (DEFN SETN (X N C) (IF (ZEROP N) (PLUS (FIX-BIT C) (TIMES (QUOTE 2) (BCDR X))) (PLUS (BCAR X) (TIMES (QUOTE 2) (SETN (BCDR X) (SUB1 N) C))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BCAR . SETN) (IMMEDIATE-DEPENDENTS0 BCDR . SETN) (IMMEDIATE-DEPENDENTS0 FIX-BIT . SETN) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . SETN) (DCELL . *1*SETN))))) (PUT1-LST (QUOTE *1*BITS) (QUOTE (MAIN-EVENT BITS))) (PUT1-LST (QUOTE BITS) (QUOTE (TYPE-PRESCRIPTION-LST ((BITS 4 NIL NIL NIL)) TOTALP-LST ((BITS . T)) SDEFN (LAMBDA (X I J) (HEAD (TAIL X I) (ADD1 (DIFFERENCE J I)))) LISP-CODE *1*BITS SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214822 SATELLITES (*1*BITS) IMMEDIATE-DEPENDENTS0 (GCD-S0-S0-RFILE-2 GCD-S0-S0-RFILE-1 GCD-S0-S0-2 GCD-S0-S0-1 STEPI-H MOVE-GROUP-H MOVE-H OR-GROUP-H AND-GROUP-H MC-INSTATE-MEM EFFEC-ADDR-MEM OPCODE-FIELD BIT-INS MUL-DIV_L-INS DH DL DR DQ LEA-SUBGROUP BD-SZ I-IS IR-SCALED INDEX-RN OP-LEN COND-FIELD OPMODE-FIELD D_RN D_MODE S_MODE S_RN) EVENT (DEFN BITS (X I J) (HEAD (TAIL X I) (ADD1 (DIFFERENCE J I)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TAIL . BITS) (IMMEDIATE-DEPENDENTS0 HEAD . BITS) (DCELL . *1*BITS))))) (PUT1-LST (QUOTE *1*MBIT) (QUOTE (MAIN-EVENT MBIT))) (PUT1-LST (QUOTE MBIT) (QUOTE (TYPE-PRESCRIPTION-LST ((MBIT 4 NIL NIL)) TOTALP-LST ((MBIT . T)) SDEFN (LAMBDA (X N) (BITN X (SUB1 N))) LISP-CODE *1*MBIT SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214822 SATELLITES (*1*MBIT) IMMEDIATE-DEPENDENTS0 (MOVE-BLE MOVE-BGT SUB-BLE SUB-BGT SUB-BLT SUB-BGE EXT-BMI ASR-BMI ASL-BMI MULS_3232-BMI MULS_3264-BMI MULS_1632-BMI ADD-BMI SUB-BMI MOVE-BMI ADDX-V-LA SUB-SUBX-V SUBX-ADDX-V ADD-ADDX-V SUBX-C-LA ADDX-C-LA SUB-SUBX-C ADD-ADDX-C EOR-N-BITP NOT-N-BITP EXT-N-BITP MOVE-N-BITP ASR-N-BITP ASL-N-BITP LSR-N-BITP LSL-N-BITP DIVU-N-BITP DIVS-N-BITP OR-N-BITP MULS-N-BITP MULU-N-BITP AND-N-BITP SUBX-N-BITP SUBX-V-BITP SUBX-C-BITP SUB-N-BITP SUB-V-BITP SUB-C-BITP ADDX-N-BITP ADDX-V-BITP ADDX-C-BITP ADD-N-BITP ADD-V-BITP ADD-C-BITP EOR-N NOT-N EXT-N MOVE-N ASR-N ASL-N LSR-N LSL-N DIVU-N DIVS-N OR-N MULS-N MULU-N AND-N SUBX-N SUBX-V SUBX-C SUB-N SUB-V SUB-C ADDX-N ADDX-V ADDX-C ADD-N ADD-V ADD-C) EVENT (DEFN MBIT (X N) (BITN X (SUB1 N))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BITN . MBIT) (DCELL . *1*MBIT))))) (PUT1-LST (QUOTE *1*BITN) (QUOTE (MAIN-EVENT BITN))) (PUT1-LST (QUOTE BITN) (QUOTE (TYPE-PRESCRIPTION-LST ((BITN 4 NIL NIL)) LEMMAS ((REWRITE-RULE MBIT-MEANS-NEGATIVEP ((NAT-RANGEP X N)) (EQUAL (BITN X (SUB1 N)) (IF (NEGATIVEP (NAT-TO-INT X N)) (QUOTE 1) (QUOTE 0))) NIL) (REWRITE-RULE BITN-LOGNOT ((NAT-RANGEP X N)) (EQUAL (BITN (LOGNOT N X) I) (IF (LESSP I N) (B-NOT (BITN X I)) (QUOTE 0))) NIL) (REWRITE-RULE BITN-REPLACE NIL (EQUAL (BITN (REPLACE N X Y) K) (IF (LESSP K N) (BITN X K) (BITN Y K))) NIL) (REWRITE-RULE BITN-APP NIL (EQUAL (BITN (APP N X Y) K) (IF (LESSP K N) (BITN X K) (BITN Y (DIFFERENCE K N)))) NIL) (REWRITE-RULE BITN-TAIL NIL (EQUAL (BITN (TAIL X I) J) (BITN X (PLUS I J))) NIL) (REWRITE-RULE BITN-HEAD NIL (EQUAL (BITN (HEAD X I) J) (IF (LESSP J I) (BITN X J) (QUOTE 0))) NIL) (REWRITE-RULE BITN-0 ((NOT (NUMBERP X))) (EQUAL (BITN X I) (QUOTE 0)) NIL) (REWRITE-RULE BITN-0 NIL (EQUAL (BITN (QUOTE 0) N) (QUOTE 0)) NIL) (REWRITE-RULE MBIT-MEANS-LESSP ((NAT-RANGEP X N)) (EQUAL (BITN X (SUB1 N)) (IF (LESSP X (EXP (QUOTE 2) (SUB1 N))) (QUOTE 0) (QUOTE 1))) NIL)) TOTALP-LST ((BITN . T)) LINEAR-LEMMAS ((LINEAR-LEMMA BITN-0-1 NIL (LESSP (BITN X N) (QUOTE 2)) (BITN X N))) SDEFN (LAMBDA (X N) (BCAR (TAIL X N))) LISP-CODE *1*BITN SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214822 SATELLITES (*1*BITN) IMMEDIATE-DEPENDENTS0 (GCD-S0-S0-RFILE-2 GCD-S0-S0-RFILE-1 GCD-S0-S0-2 GCD-S0-S0-1 GCD-S0-SN-BASE-RFILE-2 GCD-S0-SN-BASE-2 GCD-S0-SN-BASE-RFILE-1 GCD-S0-SN-BASE-1 GCD-S-S0-MEM GCD-S-S0-RFILE GCD-S-S0 MBIT-MEANS-NEGATIVEP LSR-1-BCS&CC LSL-1-BCS&CC BITN-BITP HEAD-RECURSION WRITE-WRITE WRITE-WRITE-LA PC-READ-WRITE READ-WRITE MODN-EQ WRITEP->READP PC-READP->READP SET-CVZNX-X SET-CVZNX-N SET-CVZNX-Z SET-CVZNX-V SET-CVZNX-C HEAD-WRITE HEAD-READ HEAD-WRITEP HEAD-PC-READP HEAD-READP BITN-LOGNOT BITN-OFF BITN-REPLACE BITN-APP BITN-TAIL BITN-HEAD BITN-0-1 BITN-0 MBIT-MEANS-LESSP BV-MBIT-BITN BV-BITN-BITN MAP-UPDATE BIT-GROUP BTST-INS BSET-EFFECT BCLR-EFFECT BCHG-EFFECT CMP-GROUP MOVEQ-INS SCC-GROUP MISC-GROUP NOP-SUBGROUP UNLK-SUBGROUP MOVEM-EA-RN-SUBGROUP MUL-DIV_L-INS MUL_L-INS DIV_L-INS EXT-SUBGROUP EXT-INS SWAP-N S&R-GROUP REGISTER-SHIFT-ROTATE MEMORY-SHIFT-ROTATE ROXR-N ROXR-C ROXL-N ROXL-C ASR-C LSR-C LSL-C ROR-N ROR-C ROL-N ROL-C SR-CNT OR-GROUP DIV_W-INS AND-GROUP MUL_W-INS PC-INDEX1 BS-PC ADDR-INDEX1 BS-REGISTER ADDR-INDEX3 INDEX-REGISTER CCR-X CCR-N CCR-Z CCR-V CCR-C WRITE READ WRITEP PC-READP READP EXT MBIT) EVENT (DEFN BITN (X N) (BCAR (TAIL X N))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TAIL . BITN) (IMMEDIATE-DEPENDENTS0 BCAR . BITN) (DCELL . *1*BITN))))) (PUT1-LST (QUOTE *1*LOGEOR) (QUOTE (MAIN-EVENT LOGEOR))) (PUT1-LST (QUOTE LOGEOR) (QUOTE (TYPE-PRESCRIPTION-LST ((LOGEOR 4 NIL NIL)) LEMMAS ((REWRITE-RULE LOGEOR-COMMUTATIVITY NIL (EQUAL (LOGEOR X Y) (LOGEOR Y X)) ((X . Y)))) TOTALP-LST ((LOGEOR . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE) SDEFN (LAMBDA (X Y) (IF (EQUAL X (QUOTE 0)) (IF (EQUAL Y (QUOTE 0)) (QUOTE 0) (IF (NUMBERP Y) (PLUS (B-EOR (BCAR X) (BCAR Y)) (TIMES (QUOTE 2) (LOGEOR (BCDR X) (BCDR Y)))) (QUOTE 0))) (IF (NUMBERP X) (PLUS (B-EOR (BCAR X) (BCAR Y)) (TIMES (QUOTE 2) (LOGEOR (BCDR X) (BCDR Y)))) (IF (EQUAL Y (QUOTE 0)) (QUOTE 0) (IF (NUMBERP Y) (PLUS (B-EOR (BCAR X) (BCAR Y)) (TIMES (QUOTE 2) (LOGEOR (BCDR X) (BCDR Y)))) (QUOTE 0)))))) LISP-CODE *1*LOGEOR SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((AND (ZEROP X) (ZEROP Y))) NIL) (TESTS-AND-CASES ((NOT (AND (ZEROP X) (ZEROP Y)))) (((BCDR X) (BCDR Y))))) LEVEL-NO 3 JUSTIFICATIONS ((JUSTIFICATION (Y X) (PLUS X Y) LESSP (ZERO QUOTIENT-LESSP-LINEAR LESSP QUOTIENT-LEQ ZEROP AND BCDR))) IDATE 1000402214822 CONTROLLER-POCKETS (3) SATELLITES (*1*LOGEOR) IMMEDIATE-DEPENDENTS0 (LOGAND-EOR-BEQ-UINT LOGEOR-BEQ-INT-1 EOR-Z-BITP LOGEOR-NAT-RANGEP LOGAND-LOGEOR LOGEOR-COMMUTATIVITY LOGEOR-EQUAL-0 EORI-TO-CCR-INS EOR-EFFECT EOR-Z) EVENT (DEFN LOGEOR (X Y) (IF (AND (ZEROP X) (ZEROP Y)) (QUOTE 0) (PLUS (B-EOR (BCAR X) (BCAR Y)) (TIMES (QUOTE 2) (LOGEOR (BCDR X) (BCDR Y))))) ((LESSP (PLUS X Y)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BCAR . LOGEOR) (IMMEDIATE-DEPENDENTS0 B-EOR . LOGEOR) (IMMEDIATE-DEPENDENTS0 QUOTIENT-LESSP-LINEAR . LOGEOR) (IMMEDIATE-DEPENDENTS0 QUOTIENT-LEQ . LOGEOR) (IMMEDIATE-DEPENDENTS0 BCDR . LOGEOR) (DCELL . *1*LOGEOR))))) (PUT1-LST (QUOTE *1*LOGOR) (QUOTE (MAIN-EVENT LOGOR))) (PUT1-LST (QUOTE LOGOR) (QUOTE (TYPE-PRESCRIPTION-LST ((LOGOR 4 NIL NIL)) LEMMAS ((REWRITE-RULE LOGOR-COMMUTATIVITY NIL (EQUAL (LOGOR X Y) (LOGOR Y X)) ((X . Y)))) TOTALP-LST ((LOGOR . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE) SDEFN (LAMBDA (X Y) (IF (EQUAL X (QUOTE 0)) (IF (NUMBERP Y) Y (QUOTE 0)) (IF (NUMBERP X) (IF (EQUAL Y (QUOTE 0)) X (IF (NUMBERP Y) (PLUS (B-OR (BCAR X) (BCAR Y)) (TIMES (QUOTE 2) (LOGOR (BCDR X) (BCDR Y)))) X)) (IF (NUMBERP Y) Y (QUOTE 0))))) LISP-CODE *1*LOGOR SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((ZEROP X)) NIL) (TESTS-AND-CASES ((NOT (ZEROP X)) (ZEROP Y)) NIL) (TESTS-AND-CASES ((NOT (ZEROP X)) (NOT (ZEROP Y))) (((BCDR X) (BCDR Y))))) LEVEL-NO 3 JUSTIFICATIONS ((JUSTIFICATION (X) (COUNT X) LESSP (ZEROP BCDR COUNT-NUMBERP EQUAL NUMBERP ZERO TIMES-LESSP QUOTIENT-TIMES-LESSP)) (JUSTIFICATION (Y) (COUNT Y) LESSP (ZEROP BCDR COUNT-NUMBERP EQUAL NUMBERP ZERO TIMES-LESSP QUOTIENT-TIMES-LESSP))) IDATE 1000402214822 CONTROLLER-POCKETS (1 2) SATELLITES (*1*LOGOR) IMMEDIATE-DEPENDENTS0 (LOGAND-OR-BEQ-UINT LOGOR-BEQ-INT-1 OR-Z-BITP LOGOR-NAT-RANGEP LOGAND-LOGOR LOGOR-COMMUTATIVITY LOGOR-EQUAL-0 ORI-TO-CCR-INS OR-EFFECT OR-Z) EVENT (DEFN LOGOR (X Y) (IF (ZEROP X) (FIX Y) (IF (ZEROP Y) (FIX X) (PLUS (B-OR (BCAR X) (BCAR Y)) (TIMES (QUOTE 2) (LOGOR (BCDR X) (BCDR Y))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BCAR . LOGOR) (IMMEDIATE-DEPENDENTS0 B-OR . LOGOR) (IMMEDIATE-DEPENDENTS0 BCDR . LOGOR) (IMMEDIATE-DEPENDENTS0 TIMES-LESSP . LOGOR) (IMMEDIATE-DEPENDENTS0 QUOTIENT-TIMES-LESSP . LOGOR) (DCELL . *1*LOGOR))))) (PUT1-LST (QUOTE *1*LOGAND) (QUOTE (MAIN-EVENT LOGAND))) (PUT1-LST (QUOTE LOGAND) (QUOTE (TYPE-PRESCRIPTION-LST ((LOGAND 4 NIL NIL)) LEMMAS ((REWRITE-RULE LOGAND-LOGEOR NIL (EQUAL (LOGAND X (LOGEOR Y Z)) (LOGEOR (LOGAND X Y) (LOGAND X Z))) NIL) (REWRITE-RULE LOGAND-LOGOR NIL (EQUAL (LOGAND X (LOGOR Y Z)) (LOGOR (LOGAND X Y) (LOGAND X Z))) NIL) (REWRITE-RULE LOGAND-COMMUTATIVITY NIL (EQUAL (LOGAND X Y) (LOGAND Y X)) ((X . Y)))) TOTALP-LST ((LOGAND . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE) SDEFN (LAMBDA (X Y) (IF (EQUAL X (QUOTE 0)) (QUOTE 0) (IF (NUMBERP X) (IF (EQUAL Y (QUOTE 0)) (QUOTE 0) (IF (NUMBERP Y) (PLUS (B-AND (BCAR X) (BCAR Y)) (TIMES (QUOTE 2) (LOGAND (BCDR X) (BCDR Y)))) (QUOTE 0))) (QUOTE 0)))) LISP-CODE *1*LOGAND SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((OR (ZEROP X) (ZEROP Y))) NIL) (TESTS-AND-CASES ((NOT (OR (ZEROP X) (ZEROP Y)))) (((BCDR X) (BCDR Y))))) LEVEL-NO 3 JUSTIFICATIONS ((JUSTIFICATION (X) (COUNT X) LESSP (ZEROP OR BCDR COUNT-NUMBERP EQUAL NUMBERP ZERO TIMES-LESSP QUOTIENT-TIMES-LESSP)) (JUSTIFICATION (Y) (COUNT Y) LESSP (ZEROP OR BCDR COUNT-NUMBERP EQUAL NUMBERP ZERO TIMES-LESSP QUOTIENT-TIMES-LESSP))) IDATE 1000402214822 CONTROLLER-POCKETS (1 2) SATELLITES (*1*LOGAND) IMMEDIATE-DEPENDENTS0 (LOGAND-EOR-BEQ-UINT LOGAND-OR-BEQ-UINT LOGAND-BEQ-UINT LOGAND-NAT-RANGEP LOGAND-UINT LOGAND-UINT-LA LOGAND-LOGEOR LOGAND-LOGOR LOGAND-COMMUTATIVITY ANDI-TO-CCR-INS AND-EFFECT AND-N AND-Z) EVENT (DEFN LOGAND (X Y) (IF (OR (ZEROP X) (ZEROP Y)) (QUOTE 0) (PLUS (B-AND (BCAR X) (BCAR Y)) (TIMES (QUOTE 2) (LOGAND (BCDR X) (BCDR Y)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BCAR . LOGAND) (IMMEDIATE-DEPENDENTS0 B-AND . LOGAND) (IMMEDIATE-DEPENDENTS0 BCDR . LOGAND) (IMMEDIATE-DEPENDENTS0 TIMES-LESSP . LOGAND) (IMMEDIATE-DEPENDENTS0 QUOTIENT-TIMES-LESSP . LOGAND) (DCELL . *1*LOGAND))))) (PUT1-LST (QUOTE *1*LOGNOT) (QUOTE (MAIN-EVENT LOGNOT))) (PUT1-LST (QUOTE LOGNOT) (QUOTE (TYPE-PRESCRIPTION-LST ((LOGNOT 4 NIL NIL)) LEMMAS ((REWRITE-RULE ADDER-LOGNOT ((BITP C)) (EQUAL (LOGNOT N (ADDER N C X Y)) (ADDER N (B-NOT C) (LOGNOT N X) (LOGNOT N Y))) NIL) (REWRITE-RULE LOGNOT-LOGNOT NIL (EQUAL (LOGNOT N (LOGNOT N X)) (HEAD X N)) NIL) (REWRITE-RULE LOGNOT-0 ((NOT (NUMBERP X))) (EQUAL (LOGNOT Y X) (LOGNOT Y (QUOTE 0))) NIL) (REWRITE-RULE LOGNOT-0 ((NOT (NUMBERP X))) (EQUAL (LOGNOT X Y) (LOGNOT (QUOTE 0) Y)) NIL)) TOTALP-LST ((LOGNOT . T)) SDEFN (LAMBDA (N X) (SUB1 (DIFFERENCE (EXP (QUOTE 2) N) (HEAD X N)))) LISP-CODE *1*LOGNOT SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214822 SATELLITES (*1*LOGNOT) IMMEDIATE-DEPENDENTS0 (SUBX-ADDX-V BITN-LOGNOT SUB-CANCEL0 ADD-NEG-ADDER SUB-ADDER SUBTRACTER-NAT-LA LOGNOT-OFF ADDER-LOGNOT LOGNOT-INT LOGNOT-CANCEL LOGNOT-LOGNOT LOGNOT-NAT-RANGEP LOGNOT-0 BV-NOT-LOGNOT NOT-EFFECT NOT-N NOT-Z SUBTRACTER) EVENT (DEFN LOGNOT (N X) (SUB1 (DIFFERENCE (EXP (QUOTE 2) N) (HEAD X N)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 HEAD . LOGNOT) (IMMEDIATE-DEPENDENTS0 EXP . LOGNOT) (DCELL . *1*LOGNOT))))) (PUT1-LST (QUOTE *1*TAIL) (QUOTE (MAIN-EVENT TAIL))) (PUT1-LST (QUOTE TAIL) (QUOTE (TYPE-PRESCRIPTION-LST ((TAIL 4 NIL NIL)) LEMMAS ((REWRITE-RULE TAIL-MBIT ((LESSP X (EXP (QUOTE 2) N))) (EQUAL (TAIL X (SUB1 N)) (IF (LESSP X (EXP (QUOTE 2) (SUB1 N))) (QUOTE 0) (QUOTE 1))) NIL) (REWRITE-RULE TAIL-REPLACE NIL (EQUAL (TAIL (REPLACE I X Y) J) (IF (LESSP J I) (REPLACE (DIFFERENCE I J) (TAIL X J) (TAIL Y J)) (TAIL Y J))) NIL) (REWRITE-RULE TAIL-APP NIL (EQUAL (TAIL (APP I X Y) J) (IF (LESSP J I) (APP (DIFFERENCE I J) (TAIL X J) Y) (TAIL Y (DIFFERENCE J I)))) NIL) (REWRITE-RULE TAIL-HEAD NIL (EQUAL (TAIL (HEAD X M) N) (HEAD (TAIL X N) (DIFFERENCE M N))) NIL) (REWRITE-RULE TAIL-TAIL NIL (EQUAL (TAIL (TAIL X M) N) (TAIL X (PLUS M N))) NIL) (REWRITE-RULE TAIL-LEMMA ((NAT-RANGEP X N)) (EQUAL (TAIL X N) (QUOTE 0)) NIL) (REWRITE-RULE TAIL-OF-0 NIL (EQUAL (TAIL X (QUOTE 0)) (IF (NUMBERP X) X (QUOTE 0))) NIL) (REWRITE-RULE TAIL-0 NIL (EQUAL (TAIL (QUOTE 0) N) (QUOTE 0)) NIL)) TOTALP-LST ((TAIL . T)) LINEAR-LEMMAS ((LINEAR-LEMMA TAIL-LEQ NIL (NOT (LESSP X (TAIL X N))) (TAIL X N))) SDEFN (LAMBDA (X N) (QUOTIENT X (EXP (QUOTE 2) N))) LISP-CODE *1*TAIL SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214822 SATELLITES (*1*TAIL) IMMEDIATE-DEPENDENTS0 (MEM-INDUCT4 MEM-INDUCT3 BV-TO-LST PUT-LST MBIT-MEANS-NEGATIVEP TAIL-MBIT WRITE-WRITE-INDUCT HEAD-RECURSION WRITE-WRITE WRITE-WRITE-LA PC-READ-WRITE READ-WRITE WRITEP->READP PC-READP->READP TAIL-NAT-RANGEP HEAD-WRITE HEAD-READ HEAD-WRITEP HEAD-PC-READP HEAD-READP BITN-TAIL TAIL-OFF HEAD-APP-HEAD-TAIL APP-HEAD-TAIL BCAR-REPLACE REPLACE-LEQ REPLACE-LEQ1 REPLACE-ASSOCIATIVITY REPLACE-HEAD REPLACE-REFLEX TAIL-REPLACE TAIL-APP TAIL-HEAD HEAD-REPLACE TAIL-TAIL MBIT-MEANS-LESSP ASR-NAT-RANGEP LSR-LSR LSR-NAT-RANGEP LSR-0 ASR-INT LSR-UINT TAIL-LEMMA TAIL-EQUAL-0 TAIL-LEQ TAIL-LESSP TAIL-OF-0 TAIL-0 BV-MBIT-BITN BV-BITN-BITN MAP-UPDATE MOVEP-WRITE MULS_L_DLDH MULU_L_DLDH SWAP-EFFECT ROR ROL WRITE-MEM WRITE READ WRITEP PC-READP READP ASR LSR REPLACE BITS BITN) EVENT (DEFN TAIL (X N) (QUOTIENT X (EXP (QUOTE 2) N))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EXP . TAIL) (DCELL . *1*TAIL))))) (PUT1-LST (QUOTE *1*HEAD) (QUOTE (MAIN-EVENT HEAD))) (PUT1-LST (QUOTE HEAD) (QUOTE (TYPE-PRESCRIPTION-LST ((HEAD 4 NIL NIL)) LEMMAS ((REWRITE-RULE HEAD-RECURSION NIL (EQUAL (HEAD X (ADD1 N)) (APP N (HEAD X N) (BITN X N))) NIL) (REWRITE-RULE HEAD-READ-RN ((NOT (LESSP N2 N1))) (EQUAL (HEAD (READ-RN N2 RN RFILE) N1) (READ-RN N1 RN RFILE)) NIL) (REWRITE-RULE HEAD-EXT ((NOT (LESSP J I)) (NOT (LESSP K J))) (EQUAL (HEAD (EXT J X K) I) (HEAD X I)) NIL) (REWRITE-RULE HEAD-APP ((NOT (LESSP J I))) (EQUAL (HEAD (APP J X Y) I) (HEAD X I)) NIL) (REWRITE-RULE HEAD-REPLACE NIL (EQUAL (HEAD (REPLACE M X Y) N) (IF (LESSP M N) (REPLACE M X (HEAD Y N)) (HEAD X N))) NIL) (REWRITE-RULE HEAD-PLUS-HEAD NIL (EQUAL (HEAD (PLUS X (HEAD Y N)) N) (HEAD (PLUS X Y) N)) NIL) (REWRITE-RULE HEAD-HEAD NIL (EQUAL (HEAD (HEAD X M) N) (IF (LESSP N M) (HEAD X N) (HEAD X M))) NIL) (REWRITE-RULE HEAD-INT-CROCK ((INTEGERP X) (INT-RANGEP X N) (NOT (LESSP J N))) (EQUAL (HEAD (INT-TO-NAT X J) N) (INT-TO-NAT X N)) NIL) (REWRITE-RULE ASL-INT-CROCK2 ((NOT (LESSP (EXP (QUOTE 2) (SUB1 N)) (TIMES (EXP (QUOTE 2) S) (DIFFERENCE (EXP (QUOTE 2) N) X)))) (LESSP X (EXP (QUOTE 2) N))) (EQUAL (HEAD (TIMES X (EXP (QUOTE 2) S)) N) (DIFFERENCE (EXP (QUOTE 2) N) (TIMES (EXP (QUOTE 2) S) (DIFFERENCE (EXP (QUOTE 2) N) X)))) NIL) (REWRITE-RULE ASL-INT-CROCK1 ((LESSP X (EXP (QUOTE 2) (SUB1 (DIFFERENCE N S))))) (EQUAL (HEAD (TIMES X (EXP (QUOTE 2) S)) N) (TIMES X (EXP (QUOTE 2) S))) NIL) (REWRITE-RULE HEAD-LEMMA ((NAT-RANGEP X N)) (EQUAL (HEAD X N) (IF (NUMBERP X) X (QUOTE 0))) NIL) (REWRITE-RULE HEAD-OF-0 NIL (EQUAL (HEAD X (QUOTE 0)) (QUOTE 0)) NIL) (REWRITE-RULE HEAD-0 NIL (EQUAL (HEAD (QUOTE 0) N) (QUOTE 0)) NIL)) TOTALP-LST ((HEAD . T)) LINEAR-LEMMAS ((LINEAR-LEMMA HEAD-LEQ NIL (NOT (LESSP X (HEAD X N))) (HEAD X N)) (LINEAR-LEMMA HEAD-LESSP NIL (LESSP (HEAD X N) (EXP (QUOTE 2) N)) (HEAD X N))) SDEFN (LAMBDA (X N) (REMAINDER X (EXP (QUOTE 2) N))) LISP-CODE *1*HEAD SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214822 SATELLITES (*1*HEAD) IMMEDIATE-DEPENDENTS0 (GCD-S0-S0-RFILE-2 GCD-S0-S0-RFILE-1 GCD-S0-S0-2 GCD-S0-S0-1 GCD-S0-SN-BASE-RFILE-2 GCD-S0-SN-BASE-2 GCD-S0-SN-BASE-RFILE-1 GCD-S0-SN-BASE-1 MC-INSTATE-MEM MODN-LST MEM-INDUCT4 MEM-INDUCT3 WRITE-MEM-LST-LA BV-TO-LST PUT-LST HEAD-MEM-ILST HEAD-MEM-LST INDEX-N-0 DISJOINT0-DEDUCTION1 DISJOINT-HEAD DISJOINT0-HEAD ADD-NON-NUMBERP EXT-BEQ-UINT MULS_3232-BEQ MULS_3264-BEQ MULS_1632-BEQ MULU_3232-BEQ MULU_3264-BEQ MULU_1632-BEQ CORRECTNESS-OF-CANCEL-EQUAL-ADD ADD-TREE-ADD-FRINGE ADD-EQUAL-CANCEL-1 ADD-NEG-CANCEL NEG-NEG NEG-HEAD READ-WRITE-MEM2 BYTE-READ-WRITE-MEM-LEMMA HEAD-SUB1-LESSP BYTE-READ-WRITE EXT-EQUAL-0 EXT-EQUAL MODN-EQ-EQUAL HEAD-RECURSION HEAD-APP-CANCEL APP-CANCEL GET-VLST READ-WRITE-RN HEAD-READ-RN HEAD-EXT EXT-LEMMA HEAD-NAT-RANGEP HEAD-READM-MEM HEAD-WRITE-MEM HEAD-PC-READ-MEM HEAD-READ-MEM HEAD-WRITE-MEMP HEAD-PC-READ-MEMP HEAD-READ-MEMP HEAD-BYTE-WRITE HEAD-BYTE-PC-READ HEAD-BYTE-READ HEAD-BYTE-WRITEP HEAD-PC-BYTE-READP HEAD-BYTE-READP HEAD-WRITE HEAD-PC-READ HEAD-READ HEAD-WRITEP HEAD-PC-READP HEAD-READP BITN-HEAD HEAD-OFF HEAD-APP-HEAD-TAIL APP-HEAD-TAIL APP-ASSOCIATIVITY BCAR-REPLACE BCAR-APP BCAR-HEAD HEAD-APP REPLACE-LEQ REPLACE-LEQ1 REPLACE-ASSOCIATIVITY REPLACE-HEAD REPLACE-REFLEX TAIL-REPLACE TAIL-APP TAIL-HEAD HEAD-REPLACE HEAD-PLUS-HEAD HEAD-PLUS-CANCEL HEAD-PLUS-CANCEL0 HEAD-HEAD ADDER-INT-BRIDGE ADDY-Y ADD-CANCEL ADDER-CANCEL SUB-CANCEL0 ADD-CANCEL0 ADD-NEG-ADDER SUB-ADDER ADD-ADDER SUB-EQUAL-0 ADD-SUB-CANCEL ADD-HEAD ADDER-HEAD SUB-NAT-RANGEP ADD-NAT-RANGEP ADDER-NAT-RANGEP SUB-LEQ-LA ADD-LEQ ADD-COMMUTATIVITY1 ADD-ASSOCIATIVITY ADD-COMMUTATIVITY SUB-X-X SUB-0 ADD-0 ADD-OF-0 ADDER-COMMUTATIVITY1 ADDER-ASSOCIATIVITY ADDER-COMMUTATIVITY ADDER-SHIFT-CARRY ADD-UINT SUBTRACTER-NAT-LA ADDER-NAT-LA SUB-NAT-LA ADD-NAT-LA QUOT-NAT REM-NAT IQUOT-INT HEAD-INT-CROCK MULU_3232-NAT MULU_3264-NAT MULU_1632-NAT ASR-NAT-RANGEP ASR-0 ASL-ASL ASL-NAT-RANGEP ASL-0 LSL-LSL LSL-NAT-RANGEP LSL-0 DIFFERENCE-APP-1S LESSP-APP-1S ASL-INT ASL-INT-CROCK2 ASL-INT-CROCK1 LSL-UINT APP-0 REPLACE-0 HEAD-LEMMA HEAD-LEQ HEAD-LESSP HEAD-OF-0 HEAD-0 ADDER-LOGNOT LOGNOT-INT LOGNOT-CANCEL LOGNOT-LOGNOT LOGNOT-NAT-RANGEP LOGNOT-0 ADD-EVENP BV-ADDER-NAT BV-NOT-LOGNOT MOD32-EQ GCD-EXAMPLE EXECUTE-INS EORI-SUBGROUP ANDI-SUBGROUP ORI-SUBGROUP BXXX-NUM MOVEQ-INS MULS_L_DLDH MULU_L_DLDH TST-SUBGROUP SWAP-EFFECT MOVE-TO-CCR-INS MOVE-Z ROXR ROR ROL REM QUOT IREM IQUOT MULS MULU PC-INDEX-DISP ADDR-INDEX-DISP BYTE-WRITE PC-BYTE-READ BYTE-READ MC-CCR MC-PC READ-RN ASL LSL EXT APP SUB ADD ADDER BITS LOGNOT) EVENT (DEFN HEAD (X N) (REMAINDER X (EXP (QUOTE 2) N))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EXP . HEAD) (DCELL . *1*HEAD))))) (PUT1-LST (QUOTE *1*BCDR) (QUOTE (MAIN-EVENT BCDR))) (PUT1-LST (QUOTE BCDR) (QUOTE (TYPE-PRESCRIPTION-LST ((BCDR 4 NIL)) LEMMAS ((REWRITE-RULE BCDR-2 NIL (EQUAL (BCDR (PLUS X (TIMES (QUOTE 2) Y))) (PLUS (BCDR X) Y)) NIL) (REWRITE-RULE BCDR-1 NIL (EQUAL (BCDR (ADD1 (TIMES (QUOTE 2) X))) (IF (NUMBERP X) X (QUOTE 0))) NIL) (REWRITE-RULE BCDR-1 NIL (EQUAL (BCDR (TIMES (QUOTE 2) X)) (IF (NUMBERP X) X (QUOTE 0))) NIL) (REWRITE-RULE BCDR-NONNUMBERP ((NOT (NUMBERP X))) (EQUAL (BCDR X) (QUOTE 0)) NIL)) TOTALP-LST ((BCDR . T)) SDEFN (LAMBDA (X) (QUOTIENT X (QUOTE 2))) LISP-CODE *1*BCDR SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402214822 SATELLITES (*1*BCDR) IMMEDIATE-DEPENDENTS0 (MOVEM-PRE-RNLST-LEN MOVEM-RNLST-LEN LOGEOR-NAT-RANGEP LOGOR-NAT-RANGEP LOGAND-UINT-LA LOGAND-LOGEOR LOGAND-LOGOR LOGEOR-COMMUTATIVITY LOGOR-COMMUTATIVITY LOGAND-COMMUTATIVITY LOGEOR-EQUAL-0 LOGOR-EQUAL-0 BCDR-OFF BCDR-LESSP BCDR-2 BCDR-1 BCDR-NONNUMBERP MOD-EQ MOVEM-PRE-RNLST MOVEM-LEN MOVEM-RNLST ROXL SETN LOGEOR LOGOR LOGAND) EVENT (DEFN BCDR (X) (QUOTIENT X (QUOTE 2))) LOCAL-UNDO-TUPLES ((DCELL . *1*BCDR))))) (PUT1-LST (QUOTE *1*BCAR) (QUOTE (MAIN-EVENT BCAR))) (PUT1-LST (QUOTE BCAR) (QUOTE (TYPE-PRESCRIPTION-LST ((BCAR 4 NIL)) LEMMAS ((REWRITE-RULE BCAR-REPLACE NIL (EQUAL (BCAR (REPLACE N X Y)) (IF (EQUAL N (QUOTE 0)) (BCAR Y) (IF (NUMBERP N) (BCAR X) (BCAR Y)))) NIL) (REWRITE-RULE BCAR-APP NIL (EQUAL (BCAR (APP N X Y)) (IF (EQUAL N (QUOTE 0)) (BCAR Y) (IF (NUMBERP N) (BCAR X) (BCAR Y)))) NIL) (REWRITE-RULE BCAR-HEAD NIL (EQUAL (BCAR (HEAD X N)) (IF (EQUAL N (QUOTE 0)) (QUOTE 0) (IF (NUMBERP N) (BCAR X) (QUOTE 0)))) NIL) (REWRITE-RULE BCAR-2 NIL (EQUAL (BCAR (PLUS X (TIMES (QUOTE 2) Y))) (BCAR X)) NIL) (REWRITE-RULE BCAR-1 NIL (EQUAL (BCAR (ADD1 (TIMES (QUOTE 2) X))) (QUOTE 1)) NIL) (REWRITE-RULE BCAR-1 NIL (EQUAL (BCAR (TIMES (QUOTE 2) X)) (QUOTE 0)) NIL) (REWRITE-RULE BCAR-NONNUMBERP ((NOT (NUMBERP X))) (EQUAL (BCAR X) (QUOTE 0)) NIL)) TOTALP-LST ((BCAR . T)) LINEAR-LEMMAS ((LINEAR-LEMMA BCAR-LESSP NIL (LESSP (BCAR X) (QUOTE 2)) (BCAR X))) SDEFN (LAMBDA (X) (REMAINDER X (QUOTE 2))) LISP-CODE *1*BCAR SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402214822 SATELLITES (*1*BCAR) IMMEDIATE-DEPENDENTS0 (MOVEM-PRE-RNLST-LEN MOVEM-RNLST-LEN MBIT-MEANS-NEGATIVEP LSR-1-BCS&CC LSL-1-BCS&CC HEAD-RECURSION WRITE-WRITE WRITE-WRITE-LA PC-READ-WRITE READ-WRITE WRITEP->READP PC-READP->READP LOGEOR-NAT-RANGEP HEAD-WRITE HEAD-READ HEAD-WRITEP HEAD-PC-READP HEAD-READP LOGAND-UINT-LA LOGAND-LOGEOR LOGAND-LOGOR LOGEOR-COMMUTATIVITY LOGEOR-EQUAL-0 LOGOR-EQUAL-0 BITN-0 BCAR-OFF BCAR-LESSP BCAR-REPLACE BCAR-APP BCAR-HEAD BCAR-2 BCAR-1 BCAR-NONNUMBERP MBIT-MEANS-LESSP ADD-EVENP BV-MBIT-BITN BV-BITN-BITN MOD-EQ MAP-UPDATE EVENP MOVEM-PRE-RNLST MOVEM-LEN MOVEM-RNLST ROL-C WRITE READ WRITEP PC-READP READP SETN BITN LOGEOR LOGOR LOGAND) EVENT (DEFN BCAR (X) (REMAINDER X (QUOTE 2))) LOCAL-UNDO-TUPLES ((DCELL . *1*BCAR))))) (PUT1-LST (QUOTE *1*B-EQUAL) (QUOTE (MAIN-EVENT B-EQUAL))) (PUT1-LST (QUOTE B-EQUAL) (QUOTE (TYPE-PRESCRIPTION-LST ((B-EQUAL 3 NIL NIL)) TOTALP-LST ((B-EQUAL . T)) SDEFN (LAMBDA (X Y) (IF (B0P X) (B0P Y) (B1P Y))) LISP-CODE *1*B-EQUAL SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402214822 SATELLITES (*1*B-EQUAL) EVENT (DEFN B-EQUAL (X Y) (IF (B0P X) (B0P Y) (B1P Y))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B1P . B-EQUAL) (IMMEDIATE-DEPENDENTS0 B0P . B-EQUAL) (DCELL . *1*B-EQUAL))))) (PUT1-LST (QUOTE *1*B-EOR) (QUOTE (MAIN-EVENT B-EOR))) (PUT1-LST (QUOTE B-EOR) (QUOTE (TYPE-PRESCRIPTION-LST ((B-EOR 4 NIL NIL)) TOTALP-LST ((B-EOR . T)) SDEFN (LAMBDA (X Y) (IF (B0P X) (IF (B0P Y) (B0) (B1)) (IF (B0P Y) (B1) (B0)))) LISP-CODE *1*B-EOR SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402214822 SATELLITES (*1*B-EOR) IMMEDIATE-DEPENDENTS0 (LOGEOR-BEQ-INT-1 EOR-N-BITP EOR-Z-BITP LOGEOR-NAT-RANGEP LOGAND-LOGEOR LOGEOR-COMMUTATIVITY LOGEOR-EQUAL-0 BV-ADDER&CARRY-NAT BV-ADDER-BRIDGE FIX-BV-ADDER&CARRY BV-ADDER&CARRY BV-ADDER-LEN BV-ADDER-LISTP BV-ADDER EOR-N LOGEOR) EVENT (DEFN B-EOR (X Y) (IF (B0P X) (IF (B0P Y) (B0) (B1)) (IF (B0P Y) (B1) (B0)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B1 . B-EOR) (IMMEDIATE-DEPENDENTS0 B0 . B-EOR) (IMMEDIATE-DEPENDENTS0 B0P . B-EOR) (DCELL . *1*B-EOR))))) (PUT1-LST (QUOTE *1*B-NAND) (QUOTE (MAIN-EVENT B-NAND))) (PUT1-LST (QUOTE B-NAND) (QUOTE (TYPE-PRESCRIPTION-LST ((B-NAND 4 NIL NIL)) TOTALP-LST ((B-NAND . T)) SDEFN (LAMBDA (X Y) (IF (B0P X) (B1) (IF (B0P Y) (B1) (B0)))) LISP-CODE *1*B-NAND SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402214822 SATELLITES (*1*B-NAND) EVENT (DEFN B-NAND (X Y) (IF (B0P X) (B1) (IF (B0P Y) (B1) (B0)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B0 . B-NAND) (IMMEDIATE-DEPENDENTS0 B1 . B-NAND) (IMMEDIATE-DEPENDENTS0 B0P . B-NAND) (DCELL . *1*B-NAND))))) (PUT1-LST (QUOTE *1*B-NOR) (QUOTE (MAIN-EVENT B-NOR))) (PUT1-LST (QUOTE B-NOR) (QUOTE (TYPE-PRESCRIPTION-LST ((B-NOR 4 NIL NIL)) TOTALP-LST ((B-NOR . T)) SDEFN (LAMBDA (X Y) (IF (B0P X) (IF (B0P Y) (B1) (B0)) (B0))) LISP-CODE *1*B-NOR SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402214822 SATELLITES (*1*B-NOR) EVENT (DEFN B-NOR (X Y) (IF (B0P X) (IF (B0P Y) (B1) (B0)) (B0))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B0 . B-NOR) (IMMEDIATE-DEPENDENTS0 B1 . B-NOR) (IMMEDIATE-DEPENDENTS0 B0P . B-NOR) (DCELL . *1*B-NOR))))) (PUT1-LST (QUOTE *1*B-OR) (QUOTE (MAIN-EVENT B-OR))) (PUT1-LST (QUOTE B-OR) (QUOTE (TYPE-PRESCRIPTION-LST ((B-OR 4 NIL NIL)) TOTALP-LST ((B-OR . T)) SDEFN (LAMBDA (X Y) (IF (B0P X) (IF (B0P Y) (B0) (B1)) (B1))) LISP-CODE *1*B-OR SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402214822 SATELLITES (*1*B-OR) IMMEDIATE-DEPENDENTS0 (BLE-BGT MOVE-BLE MOVE-BGT BLT-BGE BLT-V0 BGE-V0 ADDX-V-LA SUB-SUBX-V SUBX-ADDX-V ADD-ADDX-V BLS-BHI SUB-BLS SUBX-C-LA ADDX-C-LA SUB-SUBX-C ADD-ADDX-C OR-N-BITP SUBX-V-BITP SUBX-C-BITP SUB-V-BITP SUB-C-BITP ADDX-V-BITP ADDX-C-BITP ADD-V-BITP ADD-C-BITP LOGOR-NAT-RANGEP LOGAND-LOGOR LOGOR-COMMUTATIVITY LOGOR-EQUAL-0 BV-ADDER&CARRY-NAT BV-ADDER-BRIDGE BV-ADDER&CARRY BV-ADDER BLS BGE BLT BGT BLE OR-N SUBX-V SUBX-C SUB-V SUB-C ADDX-V ADDX-C ADD-V ADD-C LOGOR) EVENT (DEFN B-OR (X Y) (IF (B0P X) (IF (B0P Y) (B0) (B1)) (B1))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B1 . B-OR) (IMMEDIATE-DEPENDENTS0 B0 . B-OR) (IMMEDIATE-DEPENDENTS0 B0P . B-OR) (DCELL . *1*B-OR))))) (PUT1-LST (QUOTE *1*B-AND) (QUOTE (MAIN-EVENT B-AND))) (PUT1-LST (QUOTE B-AND) (QUOTE (TYPE-PRESCRIPTION-LST ((B-AND 4 NIL NIL)) TOTALP-LST ((B-AND . T)) SDEFN (LAMBDA (X Y) (IF (B0P X) (B0) (IF (B0P Y) (B0) (B1)))) LISP-CODE *1*B-AND SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402214822 SATELLITES (*1*B-AND) IMMEDIATE-DEPENDENTS0 (BLE-BGT MOVE-BLE MOVE-BGT BLT-BGE BLT-V0 BGE-V0 ADDX-V-LA SUB-SUBX-V SUBX-ADDX-V ADD-ADDX-V BLS-BHI SUB-BHI-1 SUB-BHI-0 SUB-BHI-INT SUBX-C-LA ADDX-C-LA SUB-SUBX-C ADD-ADDX-C SUBX-Z-BITP SUBX-V-BITP SUBX-C-BITP SUB-V-BITP SUB-C-BITP ADDX-Z-BITP ADDX-V-BITP ADDX-C-BITP ADD-V-BITP ADD-C-BITP LOGAND-NAT-RANGEP LOGAND-UINT-LA LOGAND-LOGEOR LOGAND-LOGOR LOGAND-COMMUTATIVITY BV-ADDER&CARRY-NAT BV-ADDER-BRIDGE BV-ADDER&CARRY BV-ADDER BHI BGE BLT BGT BLE SUBX-Z SUBX-V SUBX-C SUB-V SUB-C ADDX-Z ADDX-V ADDX-C ADD-V ADD-C LOGAND) EVENT (DEFN B-AND (X Y) (IF (B0P X) (B0) (IF (B0P Y) (B0) (B1)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B1 . B-AND) (IMMEDIATE-DEPENDENTS0 B0 . B-AND) (IMMEDIATE-DEPENDENTS0 B0P . B-AND) (DCELL . *1*B-AND))))) (PUT1-LST (QUOTE *1*B-NOT) (QUOTE (MAIN-EVENT B-NOT))) (PUT1-LST (QUOTE B-NOT) (QUOTE (TYPE-PRESCRIPTION-LST ((B-NOT 4 NIL)) TOTALP-LST ((B-NOT . T)) SDEFN (LAMBDA (X) (IF (B0P X) (B1) (B0))) LISP-CODE *1*B-NOT SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402214822 SATELLITES (*1*B-NOT) IMMEDIATE-DEPENDENTS0 (GCD-S0-S0-RFILE-2 GCD-S0-S0-RFILE-1 GCD-S0-S0-2 GCD-S0-S0-1 GCD-S0-SN-BASE-RFILE-2 GCD-S0-SN-BASE-2 BIT-GROUP-H BLE-BGT MOVE-BLE MOVE-BGT BLT-BGE BLT-V0 BGE-V0 SUBX-V-LA ADDX-V-LA SUB-SUBX-V SUBX-ADDX-V ADD-ADDX-V BLS-BHI SUB-BHI-1 SUB-BHI-0 SUB-BHI-INT SUBX-C-LA ADDX-C-LA SUB-SUBX-C ADD-ADDX-C SUBX-V-BITP SUBX-C-BITP SUB-V-BITP SUB-C-BITP ADDX-V-BITP ADDX-C-BITP ADD-V-BITP ADD-C-BITP BITN-LOGNOT SUBTRACTER-INT SUB-SUB1 SUB-SUB SUBTRACTER-NAT-RANGEP SUBTRACTER-NAT-LA ADDER-LOGNOT BV-NOT-LOGNOT BV-BITN-NOT BV-NOT BTST-INS BSET-EFFECT BCLR-EFFECT BCHG-EFFECT BRANCH-CC BHI BGE BLT BGT BLE SUBX-V SUBX-C SUB-V SUB-C ADDX-V ADDX-C ADD-V ADD-C SUBTRACTER) EVENT (DEFN B-NOT (X) (IF (B0P X) (B1) (B0))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B0 . B-NOT) (IMMEDIATE-DEPENDENTS0 B1 . B-NOT) (IMMEDIATE-DEPENDENTS0 B0P . B-NOT) (DCELL . *1*B-NOT))))) (PUT1-LST (QUOTE *1*FIX-BIT) (QUOTE (MAIN-EVENT FIX-BIT))) (PUT1-LST (QUOTE FIX-BIT) (QUOTE (TYPE-PRESCRIPTION-LST ((FIX-BIT 4 NIL)) LEMMAS ((REWRITE-RULE BITP-FIX-BIT ((BITP X)) (EQUAL (FIX-BIT X) X) NIL)) TOTALP-LST ((FIX-BIT . T)) SDEFN (LAMBDA (C) (IF (B0P C) (B0) (B1))) LISP-CODE *1*FIX-BIT SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402214822 SATELLITES (*1*FIX-BIT) IMMEDIATE-DEPENDENTS0 (FIX-BIT-OFF BLT-V0 BGE-V0 EXT-BMI ASR-BMI ASL-BMI MULS_3232-BMI MULS_3264-BMI MULS_1632-BMI ADD-BMI SUB-BMI MOVE-BMI ASL-BVS MULS_3232-BVS MULU_3232-BVS ADD-BVS&VC SUB-BVS&VC LSR-1-BCS&CC LSL-1-BCS&CC ADD-BCS&CC SUB-BCS&CC EXT-BEQ-INT-1 EXT-BEQ-INT-0 EXT-BEQ-UINT ASR-BEQ ASL-BEQ LSR-BEQ LSL-BEQ DIVS-BEQ DIVU-BEQ MULS_3232-BEQ MULS_3264-BEQ MULS_1632-BEQ MULU_3232-BEQ MULU_3264-BEQ MULU_1632-BEQ LOGAND-EOR-BEQ-UINT LOGAND-OR-BEQ-UINT LOGAND-BEQ-UINT LOGEOR-BEQ-INT-1 LOGEOR-BEQ-INT-0 LOGEOR-BEQ-UINT LOGOR-BEQ-INT-1 LOGOR-BEQ-INT-0 LOGOR-BEQ-UINT SUB-BEQ-INT-1 SUB-BEQ-INT-0 SUB-BEQ-UINT MOVE-BEQ-INT-1 MOVE-BEQ-INT-0 MOVE-BEQ-UINT ROXR-C-BITP ROXL-C-BITP FIX-BIT-BITP BITP-FIX-BIT SET-CVZNX-X SET-CVZNX-N SET-CVZNX-Z SET-CVZNX-V SET-CVZNX-C ADDER-INT ADDER-INT-BRIDGE PLUS-TO-IPLUS ADDER-INT-END BV-ADDER-NAT BV-ADDER&CARRY-NAT BV-ADDER-BRIDGE FIX-BV-ADDER&CARRY BV-ADDER&CARRY-LEN BV-ADDER&CARRY BMI BEQ BCS BVS ROXR-C ROXL-C CVZNX SETN) EVENT (DEFN FIX-BIT (C) (IF (B0P C) (B0) (B1))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B1 . FIX-BIT) (IMMEDIATE-DEPENDENTS0 B0 . FIX-BIT) (IMMEDIATE-DEPENDENTS0 B0P . FIX-BIT) (DCELL . *1*FIX-BIT))))) (PUT1-LST (QUOTE *1*B1P) (QUOTE (MAIN-EVENT B1P))) (PUT1-LST (QUOTE B1P) (QUOTE (TYPE-PRESCRIPTION-LST ((B1P 3 NIL)) TOTALP-LST ((B1P . T)) SDEFN (LAMBDA (X) (IF (EQUAL X (B0)) (QUOTE *1*FALSE) (QUOTE *1*TRUE))) LISP-CODE *1*B1P SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402214822 SATELLITES (*1*B1P) IMMEDIATE-DEPENDENTS0 (MISC-GROUP-H MISC-GROUP TRAPV-INS B-EQUAL) EVENT (DEFN B1P (X) (NOT (EQUAL X (B0)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B0 . B1P) (DCELL . *1*B1P))))) (PUT1-LST (QUOTE *1*B0P) (QUOTE (MAIN-EVENT B0P))) (PUT1-LST (QUOTE B0P) (QUOTE (TYPE-PRESCRIPTION-LST ((B0P 3 NIL)) TOTALP-LST ((B0P . T)) SDEFN (LAMBDA (X) (EQUAL X (B0))) LISP-CODE *1*B0P SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402214822 SATELLITES (*1*B0P) IMMEDIATE-DEPENDENTS0 (GCD-S0-S0-RFILE-2 GCD-S0-S0-RFILE-1 GCD-S0-S0-2 GCD-S0-S0-1 GCD-S0-SN-BASE-RFILE-2 GCD-S0-SN-BASE-2 GCD-S0-SN-BASE-RFILE-1 GCD-S0-SN-BASE-1 GCD-S-S0-MEM GCD-S-S0-RFILE GCD-S-S0 STEPI-H MISC-GROUP-H MOVEM-PRE-RNLST-LEN MOVEM-RNLST-LEN S&R-GROUP-H BIT-GROUP-H BCC-GROUP-H CMP-GROUP-H SCC-GROUP-H OR-GROUP-H AND-GROUP-H EFFEC-ADDR-MEM ADDR-INDEX2-MEM BLE-BGT MOVE-BLE MOVE-BGT BLT-BGE BLT-V0 BGE-V0 EXT-BMI ASR-BMI ASL-BMI ADD-BMI SUB-BMI MOVE-BMI ASL-BVS MULS_3232-BVS MULU_3232-BVS ADD-BVS&VC SUB-BVS&VC ADDX-V-LA SUB-SUBX-V SUBX-ADDX-V ADD-ADDX-V LSR-1-BCS&CC LSL-1-BCS&CC ADD-BCS&CC SUB-BCS&CC EXT-BEQ-UINT LSR-BEQ LSL-BEQ DIVS-BEQ DIVU-BEQ MULS_3232-BEQ MULS_3264-BEQ MULS_1632-BEQ MULU_3232-BEQ MULU_3264-BEQ MULU_1632-BEQ LOGAND-EOR-BEQ-UINT LOGAND-OR-BEQ-UINT LOGAND-BEQ-UINT LOGEOR-BEQ-INT-1 LOGEOR-BEQ-INT-0 LOGEOR-BEQ-UINT LOGOR-BEQ-INT-0 LOGOR-BEQ-UINT SUB-BEQ-UINT MOVE-BEQ-INT-0 MOVE-BEQ-UINT BLS-BHI SUB-BLS SUB-BHI-1 SUB-BHI-0 SUB-BHI-INT SUBX-C-LA ADDX-C-LA SUB-SUBX-C ADD-ADDX-C EOR-N-BITP EOR-Z-BITP ROXR-C-BITP ROXL-C-BITP OR-N-BITP SUBX-Z-BITP SUBX-V-BITP SUBX-C-BITP SUB-V-BITP SUB-C-BITP ADDX-Z-BITP ADDX-V-BITP ADDX-C-BITP ADD-V-BITP ADD-C-BITP FIX-BIT-BITP EXT-EQUAL WRITE-WRITE WRITE-WRITE-LA PC-READ-WRITE READ-WRITE WRITEP->READP PC-READP->READP SET-CVZNX-X SET-CVZNX-N SET-CVZNX-Z SET-CVZNX-V SET-CVZNX-C EXT-NAT-RANGEP HEAD-EXT EXT-0 LOGEOR-NAT-RANGEP LOGOR-NAT-RANGEP LOGAND-NAT-RANGEP HEAD-WRITE HEAD-READ HEAD-WRITEP HEAD-PC-READP HEAD-READP LOGAND-LOGEOR LOGAND-LOGOR LOGEOR-COMMUTATIVITY LOGOR-COMMUTATIVITY LOGAND-COMMUTATIVITY LOGEOR-EQUAL-0 LOGOR-EQUAL-0 BITN-LOGNOT SUBTRACTER-NAT-RANGEP PLUS-TO-IPLUS EXT-INT ADD-EVENP BV-ADDER&CARRY-NAT BV-MBIT-BITN BV-BITN-BITN BV-NOT-LOGNOT BV-ADDER-BRIDGE FIX-BV-ADDER&CARRY BV-ADDER&CARRY-LEN BV-TO-NAT-RANGEP BV-BITN-NOT BV-SIZED-TO-NAT-TO-BV-SIZED BV-HEAD-NAT NAT-TO-BV-TO-NAT BV-TO-NAT-TO-BV BV-SIZED-TO-NAT-HEAD NAT-TO-BV-SIZED-HEAD BV-ADDER-LEN BV-HEAD-LEN BV-ADDER-LISTP BV-HEAD-LISTP BIT MAP-UPDATE BIT-GROUP EVENP CMP-GROUP MOVEQ-INS SCC-GROUP DBCC-INS SCC-EFFECT BCC-RA-SR MISC-GROUP NOP-SUBGROUP UNLK-SUBGROUP MOVEM-EA-RN-SUBGROUP MUL-DIV_L-INS MUL_L-INS DIV_L-INS DIVU_L DIVS_L DIVSL_L EXT-SUBGROUP MOVEM-PRE-RNLST MOVEM-LEN MOVEM-RNLST EXT-INS S&R-GROUP REGISTER-SHIFT-ROTATE MEMORY-SHIFT-ROTATE SR-CNT OR-GROUP DIV_W-INS DIVU_W-INS DIVS_W-INS AND-GROUP MUL_W-INS PC-INDEX1 BS-PC ADDR-INDEX1 BS-REGISTER ADDR-INDEX3 INDEX-REGISTER WRITE READ WRITEP PC-READP READP EXT B-EQUAL B-EOR B-NAND B-NOR B-OR B-AND B-NOT FIX-BIT) EVENT (DEFN B0P (X) (EQUAL X (B0))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B0 . B0P) (DCELL . *1*B0P))))) (PUT1-LST (QUOTE *1*B0) (QUOTE (MAIN-EVENT B0))) (PUT1-LST (QUOTE B0) (QUOTE (TYPE-PRESCRIPTION-LST ((B0 4)) TOTALP-LST ((B0 . T)) SDEFN (LAMBDA NIL (QUOTE 0)) LISP-CODE *1*B0 SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402214822 SATELLITES (*1*B0) IMMEDIATE-DEPENDENTS0 (GCD-S0-S0-RFILE-2 GCD-S0-S0-RFILE-1 GCD-S0-S0-2 GCD-S0-S0-1 GCD-S0-SN-BASE-RFILE-2 GCD-S0-SN-BASE-2 GCD-S0-SN-BASE-RFILE-1 GCD-S0-SN-BASE-1 GCD-S-S0-MEM GCD-S-S0-RFILE GCD-S-S0 AND-Z-COMMUTATIVITY STEPI-H MISC-GROUP-H MOVEM-PRE-RNLST-LEN MOVEM-RNLST-LEN S&R-GROUP-H MOVE-H BIT-GROUP-H BCC-GROUP-H CMP-GROUP-H SCC-GROUP-H OR-GROUP-H AND-GROUP-H EFFEC-ADDR-MEM ADDR-INDEX2-MEM BLE-BGT MOVE-BLE MOVE-BGT BLT-BGE BLT-V0 BGE-V0 EXT-BMI ASR-BMI ASL-BMI ADD-BMI SUB-BMI MOVE-BMI ASL-BVS MULS_3232-BVS MULS_3264-BVS MULS_1632-BVS MULU_3232-BVS MULU_3264-BVS MULU_1632-BVS ADD-BVS&VC SUB-BVS&VC ADDX-V-LA SUB-SUBX-V SUBX-ADDX-V ADD-ADDX-V LSR-1-BCS&CC LSR-C-0 LSL-1-BCS&CC LSL-C-0 ADD-BCS&CC SUB-BCS&CC EXT-BEQ-INT-0 EXT-BEQ-UINT ASR-BEQ ASL-BEQ LSR-BEQ LSL-BEQ DIVS-BEQ DIVU-BEQ MULS_3232-BEQ MULS_3264-BEQ MULS_1632-BEQ MULU_3232-BEQ MULU_3264-BEQ MULU_1632-BEQ LOGAND-EOR-BEQ-UINT LOGAND-OR-BEQ-UINT LOGAND-BEQ-UINT LOGEOR-BEQ-INT-1 LOGEOR-BEQ-INT-0 LOGEOR-BEQ-UINT LOGOR-BEQ-INT-0 LOGOR-BEQ-UINT SUB-BEQ-UINT MOVE-BEQ-EXT MOVE-BEQ-INT-0 MOVE-BEQ-UINT BLS-BHI SUB-BLS SUB-BHI-1 SUB-BHI-0 SUB-BHI-INT SUB-Z-LA SUBX-C-LA ADDX-C-LA SUB-SUBX-C ADD-ADDX-C EOR-N-BITP EOR-Z-BITP NOT-Z-BITP SWAP-Z-BITP EXT-Z-BITP MOVE-Z-BITP ROXR-Z-BITP ROXR-C-BITP ROXL-Z-BITP ROXL-C-BITP ASR-Z-BITP ASR-C-BITP ASL-Z-BITP ASL-V-BITP ASL-C-BITP LSR-Z-BITP LSR-C-BITP LSL-Z-BITP LSL-C-BITP ROR-Z-BITP ROR-C-BITP ROL-Z-BITP ROL-C-BITP DIVU-Z-BITP DIVS-Z-BITP OR-N-BITP OR-Z-BITP MULS-Z-BITP MULS-V-BITP MULU-Z-BITP MULU-V-BITP AND-Z-BITP SUBX-Z-BITP SUBX-V-BITP SUBX-C-BITP SUB-Z-BITP SUB-V-BITP SUB-C-BITP ADDX-Z-BITP ADDX-V-BITP ADDX-C-BITP ADD-Z-BITP ADD-V-BITP ADD-C-BITP FIX-BIT-BITP EXT-EQUAL WRITE-WRITE WRITE-WRITE-LA PC-READ-WRITE READ-WRITE WRITEP->READP PC-READP->READP SET-CVZNX-X SET-CVZNX-N SET-CVZNX-Z SET-CVZNX-V SET-CVZNX-C EXT-NAT-RANGEP HEAD-EXT LOGEOR-NAT-RANGEP LOGOR-NAT-RANGEP LOGAND-NAT-RANGEP HEAD-WRITE HEAD-READ HEAD-WRITEP HEAD-PC-READP HEAD-READP LOGAND-LOGEOR LOGAND-LOGOR LOGEOR-COMMUTATIVITY LOGOR-COMMUTATIVITY LOGAND-COMMUTATIVITY LOGEOR-EQUAL-0 LOGOR-EQUAL-0 BITN-LOGNOT SUBTRACTER-NAT-RANGEP DIVS-OVERFLOW DIVU-OVERFLOW PLUS-TO-IPLUS EXT-INT ADD-EVENP BV-ADDER&CARRY-NAT BV-MBIT-BITN BV-BITN-BITN BV-NOT-LOGNOT BV-ADDER-BRIDGE FIX-BV-ADDER&CARRY BV-ADDER&CARRY-LEN BV-TO-NAT-RANGEP BV-BITN-NOT BV-SIZED-TO-NAT-TO-BV-SIZED BV-HEAD-NAT NAT-TO-BV-TO-NAT BV-TO-NAT-TO-BV BV-SIZED-TO-NAT-HEAD NAT-TO-BV-SIZED-HEAD BV-ADDER-LEN BV-HEAD-LEN BV-ADDER-LISTP BV-HEAD-LISTP BV-MBIT BIT MAP-UPDATE BCLR-EFFECT EOR-CVZNX EOR-Z BRANCH-CC NOT-CVZNX NOT-Z MOVEM-PRE-RNLST MOVEM-LEN MOVEM-RNLST SWAP-CVZNX SWAP-Z CLR-CVZNX EXT-CVZNX EXT-Z MOVE-CVZNX MOVE-Z ROXR-CVZNX ROXR-Z ROXL-CVZNX ROXL-Z ASR-CVZNX ASR-Z ASR-C ASL-Z ASL-V LSR-CVZNX LSR-Z LSR-C LSL-CVZNX LSL-Z LSL-C ROR-CVZNX ROR-Z ROR-C ROL-CVZNX ROL-Z ROL-C DIVU-CVZNX DIVU-Z DIVU-V DIVS-CVZNX DIVS-Z DIVS-V OR-CVZNX OR-Z MULS-CVZNX MULS-Z MULS-V MULU-CVZNX MULU-Z MULU-V AND-CVZNX AND-Z SUBX-Z SUB-Z ADDX-Z ADD-Z WRITE READ WRITEP PC-READP READP B-EOR B-NAND B-NOR B-OR B-AND B-NOT FIX-BIT B1P B0P) EVENT (DEFN B0 NIL (QUOTE 0)) LOCAL-UNDO-TUPLES ((DCELL . *1*B0))))) (PUT1-LST (QUOTE *1*B1) (QUOTE (MAIN-EVENT B1))) (PUT1-LST (QUOTE B1) (QUOTE (TYPE-PRESCRIPTION-LST ((B1 4)) TOTALP-LST ((B1 . T)) SDEFN (LAMBDA NIL (QUOTE 1)) LISP-CODE *1*B1 SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402214822 SATELLITES (*1*B1) IMMEDIATE-DEPENDENTS0 (AND-Z-COMMUTATIVITY MISC-GROUP-H BIT-GROUP-H OR-GROUP-H BLE-BGT MOVE-BLE MOVE-BGT BLT-BGE BLT-V0 BGE-V0 EXT-BMI ASR-BMI ASL-BMI ADD-BMI SUB-BMI MOVE-BMI ASL-BVS MULS_3232-BVS MULU_3232-BVS ADD-BVS&VC SUB-BVS&VC ADDX-V-LA SUB-SUBX-V SUBX-ADDX-V ADD-ADDX-V LSR-1-BCS&CC LSL-1-BCS&CC ADD-BCS&CC SUB-BCS&CC EXT-BEQ-INT-1 EXT-BEQ-UINT ASR-BEQ ASL-BEQ LSR-BEQ LSL-BEQ DIVS-BEQ DIVU-BEQ MULS_3232-BEQ MULS_3264-BEQ MULS_1632-BEQ MULU_3232-BEQ MULU_3264-BEQ MULU_1632-BEQ LOGAND-EOR-BEQ-UINT LOGAND-OR-BEQ-UINT LOGAND-BEQ-UINT LOGEOR-BEQ-INT-1 LOGEOR-BEQ-INT-0 LOGEOR-BEQ-UINT LOGOR-BEQ-INT-1 LOGOR-BEQ-INT-0 LOGOR-BEQ-UINT SUB-BEQ-UINT MOVE-BEQ-EXT MOVE-BEQ-INT-1 MOVE-BEQ-INT-0 MOVE-BEQ-UINT BLS-BHI SUB-BLS SUB-BHI-1 SUB-BHI-0 SUB-BHI-INT SUB-Z-LA SUBX-C-LA ADDX-C-LA SUB-SUBX-C ADD-ADDX-C EOR-N-BITP EOR-Z-BITP NOT-Z-BITP SWAP-Z-BITP EXT-Z-BITP MOVE-Z-BITP ROXR-Z-BITP ROXR-C-BITP ROXL-Z-BITP ROXL-C-BITP ASR-Z-BITP ASL-Z-BITP ASL-V-BITP LSR-Z-BITP LSL-Z-BITP ROR-Z-BITP ROL-Z-BITP DIVU-Z-BITP DIVS-Z-BITP OR-N-BITP OR-Z-BITP MULS-Z-BITP MULS-V-BITP MULU-Z-BITP MULU-V-BITP AND-Z-BITP SUBX-Z-BITP SUBX-V-BITP SUBX-C-BITP SUB-Z-BITP SUB-V-BITP SUB-C-BITP ADDX-Z-BITP ADDX-V-BITP ADDX-C-BITP ADD-Z-BITP ADD-V-BITP ADD-C-BITP FIX-BIT-BITP SET-CVZNX-X SET-CVZNX-N SET-CVZNX-Z SET-CVZNX-V SET-CVZNX-C LOGEOR-NAT-RANGEP LOGOR-NAT-RANGEP LOGAND-NAT-RANGEP LOGAND-LOGEOR LOGAND-LOGOR LOGEOR-COMMUTATIVITY LOGOR-COMMUTATIVITY LOGAND-COMMUTATIVITY LOGEOR-EQUAL-0 LOGOR-EQUAL-0 BITN-LOGNOT SUBTRACTER-NAT-RANGEP DIVS-OVERFLOW DIVU-OVERFLOW PLUS-TO-IPLUS BV-ADDER&CARRY-NAT BV-MBIT-BITN BV-BITN-BITN BV-NOT-LOGNOT BV-ADDER-BRIDGE FIX-BV-ADDER&CARRY BV-ADDER&CARRY-LEN BV-TO-NAT-RANGEP BV-BITN-NOT BV-SIZED-TO-NAT-TO-BV-SIZED BV-HEAD-NAT NAT-TO-BV-TO-NAT BV-TO-NAT-TO-BV BV-SIZED-TO-NAT-HEAD NAT-TO-BV-SIZED-HEAD BV-ADDER-LEN BV-HEAD-LEN BV-ADDER-LISTP BV-HEAD-LISTP BIT BSET-EFFECT EOR-Z BRANCH-CC NOT-Z DIVU_L DIVS_L DIVSL_L TAS-EFFECT SWAP-Z CLR-CVZNX EXT-Z MOVE-Z ROXR-Z ROXL-Z ASR-Z ASL-Z ASL-V LSR-Z LSL-Z ROR-Z ROL-Z DIVU_W-INS DIVU-Z DIVU-V DIVS_W-INS DIVS-Z DIVS-V OR-Z MULS-Z MULS-V MULU-Z MULU-V AND-Z SUBX-Z SUB-Z ADDX-Z ADD-Z B-EOR B-NAND B-NOR B-OR B-AND B-NOT FIX-BIT) EVENT (DEFN B1 NIL (QUOTE 1)) LOCAL-UNDO-TUPLES ((DCELL . *1*B1))))) (PUT1-LST (QUOTE *1*BITP) (QUOTE (MAIN-EVENT BITP))) (PUT1-LST (QUOTE BITP) (QUOTE (TYPE-PRESCRIPTION-LST ((BITP 3 NIL)) LEMMAS ((REWRITE-RULE EOR-N-BITP NIL (BITP (EOR-N N S D)) NIL) (REWRITE-RULE EOR-Z-BITP NIL (BITP (EOR-Z N S D)) NIL) (REWRITE-RULE NOT-N-BITP NIL (BITP (NOT-N OPLEN OPD)) NIL) (REWRITE-RULE NOT-Z-BITP NIL (BITP (NOT-Z OPLEN OPD)) NIL) (REWRITE-RULE SWAP-N-BITP NIL (BITP (SWAP-N OPD)) NIL) (REWRITE-RULE SWAP-Z-BITP NIL (BITP (SWAP-Z OPD)) NIL) (REWRITE-RULE EXT-N-BITP NIL (BITP (EXT-N OPLEN OPD SIZE)) NIL) (REWRITE-RULE EXT-Z-BITP NIL (BITP (EXT-Z OPLEN OPD SIZE)) NIL) (REWRITE-RULE MOVE-N-BITP NIL (BITP (MOVE-N OPLEN SOPD)) NIL) (REWRITE-RULE MOVE-Z-BITP NIL (BITP (MOVE-Z OPLEN SOPD)) NIL) (REWRITE-RULE ROXR-N-BITP NIL (BITP (ROXR-N LEN OPD CNT X)) NIL) (REWRITE-RULE ROXR-Z-BITP NIL (BITP (ROXR-Z LEN OPD CNT X)) NIL) (REWRITE-RULE ROXR-C-BITP NIL (BITP (ROXR-C LEN OPD CNT X)) NIL) (REWRITE-RULE ROXL-N-BITP NIL (BITP (ROXL-N LEN OPD CNT X)) NIL) (REWRITE-RULE ROXL-Z-BITP NIL (BITP (ROXL-Z LEN OPD CNT X)) NIL) (REWRITE-RULE ROXL-C-BITP NIL (BITP (ROXL-C LEN OPD CNT X)) NIL) (REWRITE-RULE ASR-N-BITP NIL (BITP (ASR-N LEN X CNT)) NIL) (REWRITE-RULE ASR-Z-BITP NIL (BITP (ASR-Z LEN X CNT)) NIL) (REWRITE-RULE ASR-C-BITP NIL (BITP (ASR-C LEN X CNT)) NIL) (REWRITE-RULE ASL-N-BITP NIL (BITP (ASL-N LEN X CNT)) NIL) (REWRITE-RULE ASL-Z-BITP NIL (BITP (ASL-Z LEN X CNT)) NIL) (REWRITE-RULE ASL-V-BITP NIL (BITP (ASL-V LEN X CNT)) NIL) (REWRITE-RULE ASL-C-BITP NIL (BITP (ASL-C LEN X CNT)) NIL) (REWRITE-RULE LSR-N-BITP NIL (BITP (LSR-N LEN X CNT)) NIL) (REWRITE-RULE LSR-Z-BITP NIL (BITP (LSR-Z LEN X CNT)) NIL) (REWRITE-RULE LSR-C-BITP NIL (BITP (LSR-C LEN X CNT)) NIL) (REWRITE-RULE LSL-N-BITP NIL (BITP (LSL-N LEN X CNT)) NIL) (REWRITE-RULE LSL-Z-BITP NIL (BITP (LSL-Z LEN X CNT)) NIL) (REWRITE-RULE LSL-C-BITP NIL (BITP (LSL-C LEN X CNT)) NIL) (REWRITE-RULE ROR-N-BITP NIL (BITP (ROR-N LEN X CNT)) NIL) (REWRITE-RULE ROR-Z-BITP NIL (BITP (ROR-Z LEN X CNT)) NIL) (REWRITE-RULE ROR-C-BITP NIL (BITP (ROR-C LEN X CNT)) NIL) (REWRITE-RULE ROL-N-BITP NIL (BITP (ROL-N LEN X CNT)) NIL) (REWRITE-RULE ROL-Z-BITP NIL (BITP (ROL-Z LEN X CNT)) NIL) (REWRITE-RULE ROL-C-BITP NIL (BITP (ROL-C LEN X CNT)) NIL) (REWRITE-RULE DIVU-N-BITP NIL (BITP (DIVU-N N S D)) NIL) (REWRITE-RULE DIVU-Z-BITP NIL (BITP (DIVU-Z N S D)) NIL) (REWRITE-RULE DIVS-N-BITP NIL (BITP (DIVS-N N S I D J)) NIL) (REWRITE-RULE DIVS-Z-BITP NIL (BITP (DIVS-Z N S I D J)) NIL) (REWRITE-RULE OR-N-BITP NIL (BITP (OR-N N S D)) NIL) (REWRITE-RULE OR-Z-BITP NIL (BITP (OR-Z N S D)) NIL) (REWRITE-RULE MULS-N-BITP NIL (BITP (MULS-N N S D I)) NIL) (REWRITE-RULE MULS-Z-BITP NIL (BITP (MULS-Z N S D I)) NIL) (REWRITE-RULE MULS-V-BITP NIL (BITP (MULS-V N S D I)) NIL) (REWRITE-RULE MULU-N-BITP NIL (BITP (MULU-N N S D I)) NIL) (REWRITE-RULE MULU-Z-BITP NIL (BITP (MULU-Z N S D I)) NIL) (REWRITE-RULE MULU-V-BITP NIL (BITP (MULU-V N S D I)) NIL) (REWRITE-RULE AND-N-BITP NIL (BITP (AND-N N S D)) NIL) (REWRITE-RULE AND-Z-BITP NIL (BITP (AND-Z N S D)) NIL) (REWRITE-RULE SUBX-N-BITP NIL (BITP (SUBX-N N X S D)) NIL) (REWRITE-RULE SUBX-Z-BITP NIL (BITP (SUBX-Z N Z X S D)) NIL) (REWRITE-RULE SUBX-V-BITP NIL (BITP (SUBX-V N X S D)) NIL) (REWRITE-RULE SUBX-C-BITP NIL (BITP (SUBX-C N X S D)) NIL) (REWRITE-RULE SUB-N-BITP NIL (BITP (SUB-N N X Y)) NIL) (REWRITE-RULE SUB-Z-BITP NIL (BITP (SUB-Z N X Y)) NIL) (REWRITE-RULE SUB-V-BITP NIL (BITP (SUB-V N X Y)) NIL) (REWRITE-RULE SUB-C-BITP NIL (BITP (SUB-C N X Y)) NIL) (REWRITE-RULE ADDX-N-BITP NIL (BITP (ADDX-N N X S D)) NIL) (REWRITE-RULE ADDX-Z-BITP NIL (BITP (ADDX-Z N Z X S D)) NIL) (REWRITE-RULE ADDX-V-BITP NIL (BITP (ADDX-V N X S D)) NIL) (REWRITE-RULE ADDX-C-BITP NIL (BITP (ADDX-C N X S D)) NIL) (REWRITE-RULE ADD-N-BITP NIL (BITP (ADD-N N X Y)) NIL) (REWRITE-RULE ADD-Z-BITP NIL (BITP (ADD-Z N X Y)) NIL) (REWRITE-RULE ADD-V-BITP NIL (BITP (ADD-V N X Y)) NIL) (REWRITE-RULE ADD-C-BITP NIL (BITP (ADD-C N X Y)) NIL) (REWRITE-RULE BITN-BITP NIL (BITP (BITN X N)) NIL) (REWRITE-RULE FIX-BIT-BITP NIL (BITP (FIX-BIT B)) NIL)) TOTALP-LST ((BITP . T)) SDEFN (LAMBDA (X) (IF (EQUAL X (QUOTE 0)) (QUOTE *1*TRUE) (EQUAL X (QUOTE 1)))) LISP-CODE *1*BITP SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402214822 SATELLITES (*1*BITP) IMMEDIATE-DEPENDENTS0 (SUB-BLE SUB-BGT SUB-BLT SUB-BGE ADD-BVS&VC SUB-BVS&VC SUBX-V-LA ADDX-V-LA ADD-BCS&CC SUB-BCS&CC SUB-BLS SUB-BHI-1 SUB-BHI-0 SUB-BHI-INT SUBX-C-LA ADDX-C-LA EOR-N-BITP EOR-Z-BITP NOT-N-BITP NOT-Z-BITP SWAP-N-BITP SWAP-Z-BITP EXT-N-BITP EXT-Z-BITP MOVE-N-BITP MOVE-Z-BITP ROXR-N-BITP ROXR-Z-BITP ROXR-C-BITP ROXL-N-BITP ROXL-Z-BITP ROXL-C-BITP ASR-N-BITP ASR-Z-BITP ASR-C-BITP ASL-N-BITP ASL-Z-BITP ASL-V-BITP ASL-C-BITP LSR-N-BITP LSR-Z-BITP LSR-C-BITP LSL-N-BITP LSL-Z-BITP LSL-C-BITP ROR-N-BITP ROR-Z-BITP ROR-C-BITP ROL-N-BITP ROL-Z-BITP ROL-C-BITP DIVU-N-BITP DIVU-Z-BITP DIVS-N-BITP DIVS-Z-BITP OR-N-BITP OR-Z-BITP MULS-N-BITP MULS-Z-BITP MULS-V-BITP MULU-N-BITP MULU-Z-BITP MULU-V-BITP AND-N-BITP AND-Z-BITP SUBX-N-BITP SUBX-Z-BITP SUBX-V-BITP SUBX-C-BITP SUB-N-BITP SUB-Z-BITP SUB-V-BITP SUB-C-BITP ADDX-N-BITP ADDX-Z-BITP ADDX-V-BITP ADDX-C-BITP ADD-N-BITP ADD-Z-BITP ADD-V-BITP ADD-C-BITP BITN-BITP FIX-BIT-BITP BITP-FIX-BIT SUB-INT ADD-INT SUBTRACTER-INT ADDER-INT ADDER-INT-BRIDGE SUB-SUB1 SUB-SUB SUBTRACTER-UINT ADDER-UINT SUBTRACTER-NAT-LA ADDER-NAT-LA IPLUS-INT-RANGEP2 IPLUS-INT-RANGEP1 ADDX-V-CROCK2 ADDX-V-CROCK1 IPLUS-WITH-CARRY-NON-NEGATIVEP IPLUS-WITH-CARRY-NEGATIVEP ADDER-LOGNOT BV-ADDER-NAT) EVENT (DEFN BITP (X) (OR (EQUAL X (QUOTE 0)) (EQUAL X (QUOTE 1)))) LOCAL-UNDO-TUPLES ((DCELL . *1*BITP))))) (PUT1-LST (QUOTE *1*MODE-SIGNAL) (QUOTE (MAIN-EVENT MODE-SIGNAL))) (PUT1-LST (QUOTE MODE-SIGNAL) (QUOTE (TYPE-PRESCRIPTION-LST ((MODE-SIGNAL 8)) TOTALP-LST ((MODE-SIGNAL . T)) SDEFN (LAMBDA NIL (QUOTE ILLEGAL_ADDRESSING_MODE_IN_CURRENT_INSTRUCTION)) LISP-CODE *1*MODE-SIGNAL SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402214822 SATELLITES (*1*MODE-SIGNAL) IMMEDIATE-DEPENDENTS0 (MISC-GROUP-H S&R-GROUP-H MOVE-GROUP-H MOVE-H BIT-GROUP-H CMP-GROUP-H SCC-GROUP-H OR-GROUP-H AND-GROUP-H SUB-GROUP-H ADD-GROUP-H CMPI-INS EORI-INS ADDI-INS SUBI-INS ANDI-INS ORI-INS BTST-INS BSET-INS BCLR-INS BCHG-INS EOR-INS CMPA-INS CMP-INS SUBQ-INS ADDQ-INS SCC-INS NOT-INS JSR-INS JMP-INS MOVEM-EA-RN-INS MUL-DIV_L-INS TAS-INS TST-INS MOVEM-RN-EA-INS PEA-INS MOVE-TO-CCR-INS NEG-INS NEGX-INS MOVE-FROM-CCR-INS CLR-INS LEA-INS MOVEA-INS MOVE-INS MEM-ROXR-INS MEM-ROXL-INS MEM-ASR-INS MEM-ASL-INS MEM-LSR-INS MEM-LSL-INS MEM-ROR-INS MEM-ROL-INS DIV_W-INS OR-INS2 OR-INS1 MUL_W-INS AND-INS2 AND-INS1 SUBA-INS SUB-INS2 SUB-INS1 ADDA-INS ADD-INS2 ADD-INS1) EVENT (DEFN MODE-SIGNAL NIL (QUOTE ILLEGAL_ADDRESSING_MODE_IN_CURRENT_INSTRUCTION)) LOCAL-UNDO-TUPLES ((DCELL . *1*MODE-SIGNAL))))) (PUT1-LST (QUOTE *1*PC-ODD-SIGNAL) (QUOTE (MAIN-EVENT PC-ODD-SIGNAL))) (PUT1-LST (QUOTE PC-ODD-SIGNAL) (QUOTE (TYPE-PRESCRIPTION-LST ((PC-ODD-SIGNAL 8)) TOTALP-LST ((PC-ODD-SIGNAL . T)) SDEFN (LAMBDA NIL (QUOTE PC_AT_ODD_ADDRESS)) LISP-CODE *1*PC-ODD-SIGNAL SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402214822 SATELLITES (*1*PC-ODD-SIGNAL) IMMEDIATE-DEPENDENTS0 (STEPI-H STEPI) EVENT (DEFN PC-ODD-SIGNAL NIL (QUOTE PC_AT_ODD_ADDRESS)) LOCAL-UNDO-TUPLES ((DCELL . *1*PC-ODD-SIGNAL))))) (PUT1-LST (QUOTE *1*PC-SIGNAL) (QUOTE (MAIN-EVENT PC-SIGNAL))) (PUT1-LST (QUOTE PC-SIGNAL) (QUOTE (TYPE-PRESCRIPTION-LST ((PC-SIGNAL 8)) TOTALP-LST ((PC-SIGNAL . T)) SDEFN (LAMBDA NIL (QUOTE PC_OUTSIDE_ROM)) LISP-CODE *1*PC-SIGNAL SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402214822 SATELLITES (*1*PC-SIGNAL) IMMEDIATE-DEPENDENTS0 (STEPI-H MISC-GROUP-H BIT-GROUP-H BCC-GROUP-H SCC-GROUP-H EFFEC-ADDR-MEM IMMEDIATE-MEM ADDR-INDEX2-MEM STEPI EORI-TO-CCR-INS ANDI-TO-CCR-INS ORI-TO-CCR-INS S-BIT-SUBGROUP DBCC-INS BCC-GROUP RTD-INS LINK_W-INS LINK_L-INS MOVEM-EA-RN-SUBGROUP EXT-SUBGROUP IMMEDIATE PC-INDEX PC-DISP ABSOLUTE-LONG ABSOLUTE-SHORT ADDR-INDEX ADDR-INDEX2 MEM-POSTINDEX MEM-INDIRECT ADDR-DISP) EVENT (DEFN PC-SIGNAL NIL (QUOTE PC_OUTSIDE_ROM)) LOCAL-UNDO-TUPLES ((DCELL . *1*PC-SIGNAL))))) (PUT1-LST (QUOTE *1*RESERVED-SIGNAL) (QUOTE (MAIN-EVENT RESERVED-SIGNAL))) (PUT1-LST (QUOTE RESERVED-SIGNAL) (QUOTE (TYPE-PRESCRIPTION-LST ((RESERVED-SIGNAL 8)) TOTALP-LST ((RESERVED-SIGNAL . T)) SDEFN (LAMBDA NIL (QUOTE MOTOROLA_RESERVED_FOR_FUTURE_DEVELOPMENT)) LISP-CODE *1*RESERVED-SIGNAL SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402214822 SATELLITES (*1*RESERVED-SIGNAL) IMMEDIATE-DEPENDENTS0 (STEPI-H MISC-GROUP-H BIT-GROUP-H AND-GROUP-H EFFEC-ADDR-MEM ADDR-INDEX2-MEM EXECUTE-INS EORI-SUBGROUP EORI-TO-CCR-INS ANDI-SUBGROUP ANDI-TO-CCR-INS ORI-SUBGROUP ORI-TO-CCR-INS S-BIT-SUBGROUP MOVEQ-INS MISC-GROUP MUL-DIV_L-INS LEA-SUBGROUP AND-GROUP PC-INDEX1 ADDR-INDEX1 ADDR-INDEX2 ADDR-INDEX3) EVENT (DEFN RESERVED-SIGNAL NIL (QUOTE MOTOROLA_RESERVED_FOR_FUTURE_DEVELOPMENT)) LOCAL-UNDO-TUPLES ((DCELL . *1*RESERVED-SIGNAL))))) (PUT1-LST (QUOTE *1*WRITE-SIGNAL) (QUOTE (MAIN-EVENT WRITE-SIGNAL))) (PUT1-LST (QUOTE WRITE-SIGNAL) (QUOTE (TYPE-PRESCRIPTION-LST ((WRITE-SIGNAL 8)) TOTALP-LST ((WRITE-SIGNAL . T)) SDEFN (LAMBDA NIL (QUOTE WRITE_ROM_OR_UNAVAILABLE_MEMORY)) LISP-CODE *1*WRITE-SIGNAL SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402214822 SATELLITES (*1*WRITE-SIGNAL) IMMEDIATE-DEPENDENTS0 (MISC-GROUP-H BIT-GROUP-H BCC-GROUP-H MAPPING-H MOVEP-TO-MEM LINK-MAPPING MOVEM-RN-EA-INS M-MAPPING PUSH-SP) EVENT (DEFN WRITE-SIGNAL NIL (QUOTE WRITE_ROM_OR_UNAVAILABLE_MEMORY)) LOCAL-UNDO-TUPLES ((DCELL . *1*WRITE-SIGNAL))))) (PUT1-LST (QUOTE *1*READ-SIGNAL) (QUOTE (MAIN-EVENT READ-SIGNAL))) (PUT1-LST (QUOTE READ-SIGNAL) (QUOTE (TYPE-PRESCRIPTION-LST ((READ-SIGNAL 8)) TOTALP-LST ((READ-SIGNAL . T)) SDEFN (LAMBDA NIL (QUOTE READ_UNAVAILABLE_MEMORY)) LISP-CODE *1*READ-SIGNAL SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402214822 SATELLITES (*1*READ-SIGNAL) IMMEDIATE-DEPENDENTS0 (MISC-GROUP-H BIT-GROUP-H CMP-GROUP-H SUB-GROUP-H ADD-GROUP-H MC-INSTATE-MEM ADDR-INDEX2-MEM MOVEP-TO-REG CMPM-INS CMPM-MAPPING RTR-INS RTD-MAPPING UNLK-INS MOVEM-EA-RN-INS SUBX-INS2 ADDX-INS2 MC-INSTATE MEM-POSTINDEX MEM-INDIRECT) EVENT (DEFN READ-SIGNAL NIL (QUOTE READ_UNAVAILABLE_MEMORY)) LOCAL-UNDO-TUPLES ((DCELL . *1*READ-SIGNAL))))) (PUT1-LST (QUOTE *1*QSZ) (QUOTE (MAIN-EVENT QSZ))) (PUT1-LST (QUOTE QSZ) (QUOTE (TYPE-PRESCRIPTION-LST ((QSZ 4)) TOTALP-LST ((QSZ . T)) SDEFN (LAMBDA NIL (QUOTE 8)) LISP-CODE *1*QSZ SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402214822 SATELLITES (*1*QSZ) EVENT (DEFN QSZ NIL (QUOTE 8)) LOCAL-UNDO-TUPLES ((DCELL . *1*QSZ))))) (PUT1-LST (QUOTE *1*LSZ) (QUOTE (MAIN-EVENT LSZ))) (PUT1-LST (QUOTE LSZ) (QUOTE (TYPE-PRESCRIPTION-LST ((LSZ 4)) TOTALP-LST ((LSZ . T)) SDEFN (LAMBDA NIL (QUOTE 4)) LISP-CODE *1*LSZ SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402214822 SATELLITES (*1*LSZ) IMMEDIATE-DEPENDENTS0 (GCD-S0-SN-BASE-RFILE-2 GCD-S0-SN-BASE-2 GCD-S0-SN-BASE-RFILE-1 GCD-S0-SN-BASE-1 GCD-S-S0-MEM GCD-S-S0-RFILE GCD-S-S0 MISC-GROUP-H BCC-GROUP-H EFFEC-ADDR-MEM ADDR-INDEX2-MEM BCC-GROUP BSR-INS JSR-INS RTD-MAPPING UNLK-INS LINK_L-INS LINK-MAPPING PEA-INS ABSOLUTE-LONG ADDR-INDEX2 PC-LONG-READ LONG-READ PC-LONG-READP LONG-READP) EVENT (DEFN LSZ NIL (QUOTE 4)) LOCAL-UNDO-TUPLES ((DCELL . *1*LSZ))))) (PUT1-LST (QUOTE *1*WSZ) (QUOTE (MAIN-EVENT WSZ))) (PUT1-LST (QUOTE WSZ) (QUOTE (TYPE-PRESCRIPTION-LST ((WSZ 4)) TOTALP-LST ((WSZ . T)) SDEFN (LAMBDA NIL (QUOTE 2)) LISP-CODE *1*WSZ SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402214822 SATELLITES (*1*WSZ) IMMEDIATE-DEPENDENTS0 (GCD-S0-S0-RFILE-2 GCD-S0-S0-RFILE-1 GCD-S0-S0-2 GCD-S0-S0-1 GCD-S0-SN-BASE-RFILE-2 GCD-S0-SN-BASE-2 GCD-S0-SN-BASE-RFILE-1 GCD-S0-SN-BASE-1 GCD-S-S0-MEM GCD-S-S0-RFILE GCD-S-S0 STEPI-H MISC-GROUP-H BIT-GROUP-H BCC-GROUP-H SCC-GROUP-H EFFEC-ADDR-MEM IMMEDIATE-MEM ADDR-INDEX2-MEM STEPI EORI-TO-CCR-INS ANDI-TO-CCR-INS ORI-TO-CCR-INS S-BIT-SUBGROUP MOVEP-READP DBCC-INS DBCC-LOOP BCC-GROUP RTR-INS LINK_W-INS MOVEM-EA-RN-SUBGROUP EXT-SUBGROUP IMMEDIATE PC-INDEX1 PC-INDEX-DISP PC-DISP ABSOLUTE-SHORT ADDR-INDEX ADDR-INDEX2 ADDR-DISP PRE-EFFECT POST-EFFECT PC-WORD-READ WORD-READ PC-WORD-READP WORD-READP) EVENT (DEFN WSZ NIL (QUOTE 2)) LOCAL-UNDO-TUPLES ((DCELL . *1*WSZ))))) (PUT1-LST (QUOTE *1*BSZ) (QUOTE (MAIN-EVENT BSZ))) (PUT1-LST (QUOTE BSZ) (QUOTE (TYPE-PRESCRIPTION-LST ((BSZ 4)) TOTALP-LST ((BSZ . T)) SDEFN (LAMBDA NIL (QUOTE 1)) LISP-CODE *1*BSZ SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402214822 SATELLITES (*1*BSZ) IMMEDIATE-DEPENDENTS0 (BIT-GROUP-H IMMEDIATE-MEM EORI-TO-CCR-INS ANDI-TO-CCR-INS ORI-TO-CCR-INS S-BIT-SUBGROUP MOVEP-ADDR IMMEDIATE) EVENT (DEFN BSZ NIL (QUOTE 1)) LOCAL-UNDO-TUPLES ((DCELL . *1*BSZ))))) (PUT1-LST (QUOTE *1*Q) (QUOTE (MAIN-EVENT Q))) (PUT1-LST (QUOTE Q) (QUOTE (TYPE-PRESCRIPTION-LST ((Q 4)) TOTALP-LST ((Q . T)) SDEFN (LAMBDA NIL (QUOTE 64)) LISP-CODE *1*Q SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402214822 SATELLITES (*1*Q) IMMEDIATE-DEPENDENTS0 (GCD-S0-S0-RFILE-2 GCD-S0-S0-RFILE-1 GCD-S0-S0-2 GCD-S0-S0-1 GCD-S0-SN-BASE-RFILE-2 GCD-S0-SN-BASE-2 GCD-S0-SN-BASE-RFILE-1 GCD-S0-SN-BASE-1 MISC-GROUP-H S&R-GROUP-H BIT-GROUP-H CMP-GROUP-H SCC-GROUP-H OR-GROUP-H AND-GROUP-H CMPI-SUBGROUP EORI-SUBGROUP ADDI-SUBGROUP SUBI-SUBGROUP ANDI-SUBGROUP ORI-SUBGROUP CMP-GROUP SCC-GROUP NOT-SUBGROUP MULS_L_DLDH MULU_L_DLDH DIVS_L TST-SUBGROUP NEG-SUBGROUP NEGX-SUBGROUP CLR-SUBGROUP S&R-GROUP OR-GROUP AND-GROUP) EVENT (DEFN Q NIL (QUOTE 64)) LOCAL-UNDO-TUPLES ((DCELL . *1*Q))))) (PUT1-LST (QUOTE *1*L) (QUOTE (MAIN-EVENT L))) (PUT1-LST (QUOTE L) (QUOTE (TYPE-PRESCRIPTION-LST ((L 4)) TOTALP-LST ((L . T)) SDEFN (LAMBDA NIL (QUOTE 32)) LISP-CODE *1*L SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402214822 SATELLITES (*1*L) IMMEDIATE-DEPENDENTS0 (GCD-CORRECTNESS GCD-S0-S0-RFILE-2 GCD-S0-S0-RFILE-1 GCD-S0-S0-2 GCD-S0-S0-1 GCD-S0-SN-BASE-RFILE-2 GCD-S0-SN-BASE-2 GCD-S0-SN-BASE-RFILE-1 GCD-S0-SN-BASE-1 GCD-S-S0-MEM GCD-S-S0-RFILE GCD-S-S0 MEM-ILST-LST-INTEGERP MEM-LST-INTEGERP STEPI-H MISC-GROUP-H WRITEM-MEM-H MOVE-GROUP-H BIT-GROUP-H MOVEP-WRITE-H WRITE-MEM-MAINTAIN-MOVEP-WRITEP BCC-GROUP-H CMP-GROUP-H SCC-GROUP-H OR-GROUP-H AND-GROUP-H SUB-GROUP-H ADD-GROUP-H EFFEC-ADDR-MEM IMMEDIATE-MEM ADDR-INDEX2-MEM STEPN-READM-MEM MEM-LST-MCDR-1 MEM-LST-MCDR-0 MEM-LST-MCAR-1 MEM-LST-MCAR MEM-LST-PLUS READM-WRITEM-MEM READM-WRITE-MEM READ-WRITEM-MEM WRITEM-ELSE-MEM-ILST WRITEM-ELSE-MEM-LST WRITEM-MEM-MCODE-ADDRP PC-READ-MEM-WRITEM-MEM WRITE-MEM-ILST WRITE-MEM-LST-LA WRITE-ELSE-MEM-ILST WRITE-ELSE-MEM-LST READ-MEM-ILST-INT READ-MEM-ILST READ-MEM-LST-LA MEM-LST-NON-NUMBERP HEAD-MEM-ILST HEAD-MEM-LST READM-MEM-LST MEM-ILST-INTEGERP MEM-ILST-INT-RANGEP MEM-LST-NAT-RANGEP MEM-ILST MEM-LST READ-WRITEM-RN MC-PC-RANGEP MC-PC-REWRITE HEAD-READM-MEM GCD-EXAMPLE STEPI EXECUTE-INS EORI-TO-CCR-INS ANDI-TO-CCR-INS ORI-TO-CCR-INS S-BIT-SUBGROUP D-BIT-SUBGROUP BXXX-OPD BXXX-OPLEN MOVEP-INS MOVEP-ADDR MOVEP-READ MOVEP-READP MOVEP-WRITE MOVEP-WRITEP CMP-GROUP CMPA-INS MOVEQ-INS SUBQ-INS ADDQ-INS DBCC-INS DBCC-LOOP BCC-GROUP BCC-RA-SR BSR-INS JSR-INS JMP-INS RTR-INS RTD-MAPPING UNLK-INS LINK_W-INS LINK_L-INS LINK-MAPPING MOVEM-EA-RN-SUBGROUP MOVEM-EA-RN-INS MUL-DIV_L-INS MUL_L-INS MULS_L_DLDH MULS_L_DL MULU_L_DLDH MULU_L_DL DIV_L-INS DIVU_L DIVUL_L DIVS_L DIVSL_L EXT-SUBGROUP MOVEM-RN-EA-INS MOVEM-PREDEC WRITEM-RN WRITEM-MEM READM-MEM EXT-INS SWAP-INS PEA-INS EXTB-INS LEA-INS MOVEA-INS DIVU_W-INS DIVS_W-INS EXG-DRAR-INS EXG-ARAR-INS EXG-DRDR-INS MULS_W-INS MULU_W-INS SUB-GROUP SUBA-INS ADD-GROUP ADDA-INS IMMEDIATE PC-INDEX1 PC-INDEX-DISP PC-DISP ABSOLUTE-LONG ABSOLUTE-SHORT ADDR-INDEX BS-REGISTER ADDR-INDEX2 ADDR-INDEX3 MEM-PREINDEX MEM-POSTINDEX MEM-INDIRECT ADDR-INDEX-BD ADDR-INDEX-DISP IR-SCALED INDEX-REGISTER ADDR-DISP ADDR-PREDEC ADDR-POSTINC ADDR-INDIRECT PRE-EFFECT POST-EFFECT PUSH-SP WRITE-SP READ-SP MC-PC) EVENT (DEFN L NIL (QUOTE 32)) LOCAL-UNDO-TUPLES ((DCELL . *1*L))))) (PUT1-LST (QUOTE *1*W) (QUOTE (MAIN-EVENT W))) (PUT1-LST (QUOTE W) (QUOTE (TYPE-PRESCRIPTION-LST ((W 4)) TOTALP-LST ((W . T)) SDEFN (LAMBDA NIL (QUOTE 16)) LISP-CODE *1*W SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402214822 SATELLITES (*1*W) IMMEDIATE-DEPENDENTS0 (GCD-S0-SN-BASE-RFILE-2 GCD-S0-SN-BASE-2 GCD-S0-SN-BASE-RFILE-1 GCD-S0-SN-BASE-1 GCD-S-S0-MEM GCD-S-S0-RFILE GCD-S-S0 STEPI-H MISC-GROUP-H S&R-GROUP-H BIT-GROUP-H BCC-GROUP-H CMP-GROUP-H SCC-GROUP-H OR-GROUP-H AND-GROUP-H SUB-GROUP-H ADD-GROUP-H EFFEC-ADDR-MEM ADDR-INDEX2-MEM EXECUTE-INS EORI-SUBGROUP ANDI-SUBGROUP ORI-SUBGROUP MOVEP-INS CMP-GROUP DBCC-LOOP BCC-GROUP RTD-MAPPING LINK_W-INS MOVEM-EA-RN-SUBGROUP EXT-SUBGROUP EXT-INS SWAP-EFFECT MOVE-TO-CCR-INS MOVE-FROM-CCR-INS MEM-ROXR-INS MEM-ROXR-EFFECT MEM-ROXL-INS MEM-ROXL-EFFECT MEM-ASR-INS MEM-ASR-EFFECT MEM-ASL-INS MEM-ASL-EFFECT MEM-LSR-INS MEM-LSR-EFFECT MEM-LSL-INS MEM-LSL-EFFECT MEM-ROR-INS MEM-ROR-EFFECT MEM-ROL-INS MEM-ROL-EFFECT DIV_W-INS DIVU_W-INS DIVS_W-INS AND-GROUP MUL_W-INS MULS_W-INS MULU_W-INS SUB-GROUP ADD-GROUP PC-DISP ABSOLUTE-SHORT ADDR-INDEX2 ADDR-INDEX3 INDEX-REGISTER ADDR-DISP) EVENT (DEFN W NIL (QUOTE 16)) LOCAL-UNDO-TUPLES ((DCELL . *1*W))))) (PUT1-LST (QUOTE *1*B) (QUOTE (MAIN-EVENT B))) (PUT1-LST (QUOTE B) (QUOTE (TYPE-PRESCRIPTION-LST ((B 4)) TOTALP-LST ((B . T)) SDEFN (LAMBDA NIL (QUOTE 8)) LISP-CODE *1*B SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402214822 SATELLITES (*1*B) IMMEDIATE-DEPENDENTS0 (GCD-S0-S0-RFILE-2 GCD-S0-S0-RFILE-1 GCD-S0-S0-2 GCD-S0-S0-1 GCD-S0-SN-BASE-RFILE-2 GCD-S0-SN-BASE-2 GCD-S0-SN-BASE-RFILE-1 GCD-S0-SN-BASE-1 GCD-S-S0-MEM GCD-S-S0-RFILE GCD-S-S0 STEPI-H MISC-GROUP-H BIT-GROUP-H MOVEP-WRITE-H BCC-GROUP-H CMP-GROUP-H SCC-GROUP-H AND-GROUP-H SUB-GROUP-H ADD-GROUP-H MAPPING-H MC-INSTATE-MEM EFFEC-ADDR-MEM IMMEDIATE-MEM READ-MEM-PLUS MEM-LST-PUT-VALS MEM-LST-PUT-LST MEM-LST-GET-VALS MEM-LST-GET-VALS0 MEM-LST-GET-LST MEM-LST-GET-LST0 BYTE-WRITE=WRITE-MEM-1 BYTE-READ=READ-MEM-1 PC-BYTE-READ=PC-READ-MEM-1 READ-MEM-NON-NUMBERP READ->PC-READ-MEM PC-READ-MEM-MCODE1 PC-READ-MEM-MCODE0 READ-LST0 WRITE-WRITE-MEM WRITE-WRITE-INDUCT WRITE-MEM-BYTE-WRITE READ-WRITE-MEM2 BYTE-READ-WRITE-MEM-LEMMA READ-MEM-BYTE-WRITE BYTE-READ-WRITE-MEM PC-READ-MEM-WRITE-MEM PC-READ-MEM-BYTE-WRITE PC-BYTE-READ-WRITE-MEM READ-MEM-NAT-RANGEP PC-READ-MEM-NAT-RANGEP BYTE-WRITE-APP BYTE-WRITE-MAINTAIN-BYTE-WRITEP BYTE-WRITE-MAINTAIN-BYTE-READP BYTE-WRITE-MAINTAIN-PC-BYTE-READP PC-BYTE-READ-WRITE BYTE-WRITE-WRITE BYTE-WRITE-WRITE-LA BYTE-READ-WRITE MC-CCR-RANGEP MC-CCR-REWRITE PC-BYTE-READ-NAT-RANGEP BYTE-READ-NAT-RANGEP HEAD-WRITE-MEM HEAD-PC-READ-MEM HEAD-READ-MEM HEAD-BYTE-WRITE HEAD-BYTE-PC-READ HEAD-BYTE-READ EXECUTE-INS EORI-SUBGROUP ANDI-SUBGROUP ORI-SUBGROUP BTST-INS BSET-INS BCLR-INS BCHG-INS BXXX-OPD BXXX-OPLEN MOVEP-READ MOVEP-WRITE MOVEQ-INS SCC-INS BCC-GROUP TAS-INS TAS-EFFECT TST-ADDR-MODEP EXT-INS MOVE-TO-CCR-INS EXTB-INS SR-CNT AND-GROUP BYTE-AN-DIRECT-MODEP IMMEDIATE PC-INDEX-DISP ADDR-INDEX-DISP PRE-EFFECT POST-EFFECT WRITE-MEM BYTE-WRITE OP-LEN PC-READ-MEM PC-BYTE-READ READ-MEM BYTE-READ MC-CCR OP-SZ) EVENT (DEFN B NIL (QUOTE 8)) LOCAL-UNDO-TUPLES ((DCELL . *1*B))))) (PUT1-LST (QUOTE TA-LEMMA-2) (QUOTE (IDATE 1000402214820 IMMEDIATE-DEPENDENTS0 (GCD-T-UBOUND) EVENT (PROVE-LEMMA TA-LEMMA-2 NIL (IMPLIES (AND (IF (LESSP A1 A) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (IF (LESSP B1 B) (QUOTE *1*FALSE) (QUOTE *1*TRUE))) (IF (LESSP (PLUS X (TIMES Y (PLUS (LOG (QUOTE 2) A1) (LOG (QUOTE 2) B1)))) (PLUS X (TIMES Y (PLUS (LOG (QUOTE 2) A) (LOG (QUOTE 2) B))))) (QUOTE *1*FALSE) (QUOTE *1*TRUE)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LOG-LEQ . TA-LEMMA-2) (IMMEDIATE-DEPENDENTS0 TIMES-LESSP-CANCEL . TA-LEMMA-2) (IMMEDIATE-DEPENDENTS0 PLUS-LESSP-CANCEL-1 . TA-LEMMA-2) (IMMEDIATE-DEPENDENTS0 LOG . TA-LEMMA-2))))) (PUT1-LST (QUOTE TA-LEMMA-1) (QUOTE (IDATE 1000402214820 EVENT (PROVE-LEMMA TA-LEMMA-1 NIL (IMPLIES (IF (LESSP A1 A) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (IF (LESSP (PLUS X (TIMES Y (LOG (QUOTE 2) A1))) (PLUS X (TIMES Y (LOG (QUOTE 2) A)))) (QUOTE *1*FALSE) (QUOTE *1*TRUE)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LOG-LEQ . TA-LEMMA-1) (IMMEDIATE-DEPENDENTS0 TIMES-LESSP-CANCEL . TA-LEMMA-1) (IMMEDIATE-DEPENDENTS0 PLUS-LESSP-CANCEL-1 . TA-LEMMA-1) (IMMEDIATE-DEPENDENTS0 LOG . TA-LEMMA-1))))) (PUT1-LST (QUOTE LOG-LEQ) (QUOTE (IDATE 1000402214820 IMMEDIATE-DEPENDENTS0 (GCD-T-SHRINK-2 GCD-T-SHRINK-1 TA-LEMMA-2 TA-LEMMA-1) EVENT (PROVE-LEMMA LOG-LEQ (REWRITE) (IMPLIES (IF (LESSP Y X) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (NOT (LESSP (LOG B Y) (LOG B X)))) ((INDUCT (QUOTIENT2-INDUCT B X Y)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 QUOTIENT-SHRINK-FAST . LOG-LEQ) (IMMEDIATE-DEPENDENTS0 QUOTIENT-TIMES-LESSP . LOG-LEQ) (IMMEDIATE-DEPENDENTS0 LOG-OF-0 . LOG-LEQ) (IMMEDIATE-DEPENDENTS0 QUOTIENT2-INDUCT . LOG-LEQ) (IMMEDIATE-DEPENDENTS0 LOG . LOG-LEQ) (LINEAR-LEMMAS LOG . LOG-LEQ) (LINEAR-LEMMAS LOG . LOG-LEQ))))) (PUT1-LST (QUOTE *1*QUOTIENT2-INDUCT) (QUOTE (MAIN-EVENT QUOTIENT2-INDUCT))) (PUT1-LST (QUOTE QUOTIENT2-INDUCT) (QUOTE (TYPE-PRESCRIPTION-LST ((QUOTIENT2-INDUCT 4 NIL NIL NIL)) TOTALP-LST ((QUOTIENT2-INDUCT . T)) QUICK-BLOCK-INFO (UNCHANGING SELF-REFLEXIVE SELF-REFLEXIVE) SDEFN (LAMBDA (B X Y) (IF (EQUAL B (QUOTE 0)) (QUOTE 0) (IF (NUMBERP B) (IF (EQUAL B (QUOTE 1)) (QUOTE 0) (IF (EQUAL X (QUOTE 0)) (QUOTE 0) (IF (NUMBERP X) (IF (EQUAL Y (QUOTE 0)) (QUOTE 0) (IF (NUMBERP Y) (QUOTIENT2-INDUCT B (QUOTIENT X B) (QUOTIENT Y B)) (QUOTE 0))) (QUOTE 0)))) (QUOTE 0)))) LISP-CODE *1*QUOTIENT2-INDUCT SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((OR (ZEROP B) (EQUAL B (QUOTE 1)))) NIL) (TESTS-AND-CASES ((NOT (OR (ZEROP B) (EQUAL B (QUOTE 1)))) (OR (ZEROP X) (ZEROP Y))) NIL) (TESTS-AND-CASES ((NOT (OR (ZEROP B) (EQUAL B (QUOTE 1)))) (NOT (OR (ZEROP X) (ZEROP Y)))) ((B (QUOTIENT X B) (QUOTIENT Y B))))) LEVEL-NO 3 JUSTIFICATIONS ((JUSTIFICATION (X) (COUNT X) LESSP (ZEROP OR COUNT-NUMBERP ZERO TIMES-LESSP QUOTIENT-TIMES-LESSP)) (JUSTIFICATION (Y) (COUNT Y) LESSP (ZEROP OR COUNT-NUMBERP ZERO TIMES-LESSP QUOTIENT-TIMES-LESSP))) IDATE 1000402214819 CONTROLLER-POCKETS (2 4) SATELLITES (*1*QUOTIENT2-INDUCT) IMMEDIATE-DEPENDENTS0 (LOG-LEQ) EVENT (DEFN QUOTIENT2-INDUCT (B X Y) (IF (OR (ZEROP B) (EQUAL B (QUOTE 1))) (QUOTE 0) (IF (OR (ZEROP X) (ZEROP Y)) (QUOTE 0) (QUOTIENT2-INDUCT B (QUOTIENT X B) (QUOTIENT Y B))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-LESSP . QUOTIENT2-INDUCT) (IMMEDIATE-DEPENDENTS0 QUOTIENT-TIMES-LESSP . QUOTIENT2-INDUCT) (DCELL . *1*QUOTIENT2-INDUCT))))) (PUT1-LST (QUOTE LOG-QUOTIENT-EXP) (QUOTE (IDATE 1000402214819 EVENT (PROVE-LEMMA LOG-QUOTIENT-EXP (REWRITE) (IMPLIES (LESSP (QUOTE 1) B) (EQUAL (LOG B (QUOTIENT X (EXP B I))) (DIFFERENCE (LOG B X) I)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUB1-OF-1 . LOG-QUOTIENT-EXP) (IMMEDIATE-DEPENDENTS0 EXP-OF-2-0 . LOG-QUOTIENT-EXP) (IMMEDIATE-DEPENDENTS0 QUOTIENT-QUOTIENT . LOG-QUOTIENT-EXP) (IMMEDIATE-DEPENDENTS0 QUOTIENT-TIMES-LESSP . LOG-QUOTIENT-EXP) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . LOG-QUOTIENT-EXP) (IMMEDIATE-DEPENDENTS0 QUOTIENT-EXIT . LOG-QUOTIENT-EXP) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . LOG-QUOTIENT-EXP) (IMMEDIATE-DEPENDENTS0 TIMES-EQUAL-0 . LOG-QUOTIENT-EXP) (IMMEDIATE-DEPENDENTS0 TIMES-ASSOCIATIVITY . LOG-QUOTIENT-EXP) (IMMEDIATE-DEPENDENTS0 QUOTIENT-1 . LOG-QUOTIENT-EXP) (IMMEDIATE-DEPENDENTS0 LOG-EQUAL-0 . LOG-QUOTIENT-EXP) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . LOG-QUOTIENT-EXP) (IMMEDIATE-DEPENDENTS0 QUOTIENT-0 . LOG-QUOTIENT-EXP) (IMMEDIATE-DEPENDENTS0 DIFFERENCE=0 . LOG-QUOTIENT-EXP) (IMMEDIATE-DEPENDENTS0 LOG-OF-0 . LOG-QUOTIENT-EXP) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . LOG-QUOTIENT-EXP) (IMMEDIATE-DEPENDENTS0 REMAINDER-LESSP . LOG-QUOTIENT-EXP) (IMMEDIATE-DEPENDENTS0 REMAINDER-QUOTIENT-ELIM . LOG-QUOTIENT-EXP) (IMMEDIATE-DEPENDENTS0 EXP . LOG-QUOTIENT-EXP) (IMMEDIATE-DEPENDENTS0 LOG . LOG-QUOTIENT-EXP) (LEMMAS LOG . LOG-QUOTIENT-EXP))))) (PUT1-LST (QUOTE LOG-TIMES-EXP-1) (QUOTE (IDATE 1000402214818 EVENT (PROVE-LEMMA LOG-TIMES-EXP-1 (REWRITE) (IMPLIES (AND (LESSP (QUOTE 1) B) (NOT (ZEROP X))) (AND (EQUAL (LOG B (TIMES X B)) (ADD1 (LOG B X))) (EQUAL (LOG B (TIMES B X)) (ADD1 (LOG B X)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . LOG-TIMES-EXP-1) (IMMEDIATE-DEPENDENTS0 QUOTIENT-TIMES . LOG-TIMES-EXP-1) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-LESSP-TIMES . LOG-TIMES-EXP-1) (IMMEDIATE-DEPENDENTS0 LOG . LOG-TIMES-EXP-1) (LEMMAS LOG . LOG-TIMES-EXP-1) (LEMMAS LOG . LOG-TIMES-EXP-1))))) (PUT1-LST (QUOTE LOG-TIMES-EXP) (QUOTE (IDATE 1000402214818 EVENT (PROVE-LEMMA LOG-TIMES-EXP (REWRITE) (IMPLIES (AND (LESSP (QUOTE 1) B) (NOT (ZEROP X))) (AND (EQUAL (LOG B (TIMES X (EXP B N))) (PLUS N (LOG B X))) (EQUAL (LOG B (TIMES (EXP B N) X)) (PLUS N (LOG B X)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-ZERO . LOG-TIMES-EXP) (IMMEDIATE-DEPENDENTS0 LOG-OF-0 . LOG-TIMES-EXP) (IMMEDIATE-DEPENDENTS0 SUB1-OF-1 . LOG-TIMES-EXP) (IMMEDIATE-DEPENDENTS0 LOG-EQUAL-0 . LOG-TIMES-EXP) (IMMEDIATE-DEPENDENTS0 PLUS-EQUAL-0 . LOG-TIMES-EXP) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY1 . LOG-TIMES-EXP) (IMMEDIATE-DEPENDENTS0 QUOTIENT-TIMES . LOG-TIMES-EXP) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-LESSP-TIMES . LOG-TIMES-EXP) (IMMEDIATE-DEPENDENTS0 TIMES-1 . LOG-TIMES-EXP) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . LOG-TIMES-EXP) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . LOG-TIMES-EXP) (IMMEDIATE-DEPENDENTS0 EXP . LOG-TIMES-EXP) (IMMEDIATE-DEPENDENTS0 LOG . LOG-TIMES-EXP) (LEMMAS LOG . LOG-TIMES-EXP) (LEMMAS LOG . LOG-TIMES-EXP))))) (PUT1-LST (QUOTE LOG-EXP) (QUOTE (IDATE 1000402214818 EVENT (PROVE-LEMMA LOG-EXP (REWRITE) (IMPLIES (LESSP (QUOTE 1) B) (EQUAL (LOG B (EXP B N)) (FIX N)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LOG-OF-0 . LOG-EXP) (IMMEDIATE-DEPENDENTS0 SUB1-OF-1 . LOG-EXP) (IMMEDIATE-DEPENDENTS0 QUOTIENT-TIMES . LOG-EXP) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-LESSP-TIMES . LOG-EXP) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . LOG-EXP) (IMMEDIATE-DEPENDENTS0 LOG-OF-1 . LOG-EXP) (IMMEDIATE-DEPENDENTS0 EXP . LOG-EXP) (IMMEDIATE-DEPENDENTS0 LOG . LOG-EXP) (LEMMAS LOG . LOG-EXP))))) (PUT1-LST (QUOTE LOG-EQUAL-0) (QUOTE (IDATE 1000402214818 IMMEDIATE-DEPENDENTS0 (LOG-QUOTIENT-EXP LOG-TIMES-EXP) EVENT (PROVE-LEMMA LOG-EQUAL-0 (REWRITE) (EQUAL (EQUAL (LOG B X) (QUOTE 0)) (OR (ZEROP B) (OR (EQUAL B (QUOTE 1)) (LESSP X B))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-LESSP . LOG-EQUAL-0) (IMMEDIATE-DEPENDENTS0 QUOTIENT-TIMES-LESSP . LOG-EQUAL-0) (IMMEDIATE-DEPENDENTS0 LOG . LOG-EQUAL-0) (LEMMAS EQUAL . LOG-EQUAL-0))))) (PUT1-LST (QUOTE LOG-OF-1) (QUOTE (IDATE 1000402214818 IMMEDIATE-DEPENDENTS0 (LOG-EXP) EVENT (PROVE-LEMMA LOG-OF-1 (REWRITE) (IMPLIES (LESSP (QUOTE 1) B) (EQUAL (LOG B (QUOTE 1)) (QUOTE 0)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LOG . LOG-OF-1) (LEMMAS LOG . LOG-OF-1))))) (PUT1-LST (QUOTE LOG-OF-0) (QUOTE (IDATE 1000402214818 IMMEDIATE-DEPENDENTS0 (LOG-LEQ LOG-QUOTIENT-EXP LOG-TIMES-EXP LOG-EXP) EVENT (PROVE-LEMMA LOG-OF-0 (REWRITE) (EQUAL (LOG B (QUOTE 0)) (QUOTE 0))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LOG . LOG-OF-0) (LEMMAS LOG . LOG-OF-0))))) (PUT1-LST (QUOTE *1*LOG) (QUOTE (MAIN-EVENT LOG))) (PUT1-LST (QUOTE LOG) (QUOTE (TYPE-PRESCRIPTION-LST ((LOG 4 NIL NIL)) LEMMAS ((REWRITE-RULE LOG-QUOTIENT-EXP ((LESSP (QUOTE 1) B)) (EQUAL (LOG B (QUOTIENT X (EXP B I))) (DIFFERENCE (LOG B X) I)) NIL) (REWRITE-RULE LOG-TIMES-EXP-1 ((LESSP (QUOTE 1) B) (NUMBERP X) (NOT (EQUAL X (QUOTE 0)))) (EQUAL (LOG B (TIMES B X)) (ADD1 (LOG B X))) NIL) (REWRITE-RULE LOG-TIMES-EXP-1 ((LESSP (QUOTE 1) B) (NUMBERP X) (NOT (EQUAL X (QUOTE 0)))) (EQUAL (LOG B (TIMES X B)) (ADD1 (LOG B X))) NIL) (REWRITE-RULE LOG-TIMES-EXP ((LESSP (QUOTE 1) B) (NUMBERP X) (NOT (EQUAL X (QUOTE 0)))) (EQUAL (LOG B (TIMES (EXP B N) X)) (PLUS N (LOG B X))) NIL) (REWRITE-RULE LOG-TIMES-EXP ((LESSP (QUOTE 1) B) (NUMBERP X) (NOT (EQUAL X (QUOTE 0)))) (EQUAL (LOG B (TIMES X (EXP B N))) (PLUS N (LOG B X))) NIL) (REWRITE-RULE LOG-EXP ((LESSP (QUOTE 1) B)) (EQUAL (LOG B (EXP B N)) (IF (NUMBERP N) N (QUOTE 0))) NIL) (REWRITE-RULE LOG-OF-1 ((LESSP (QUOTE 1) B)) (EQUAL (LOG B (QUOTE 1)) (QUOTE 0)) NIL) (REWRITE-RULE LOG-OF-0 NIL (EQUAL (LOG B (QUOTE 0)) (QUOTE 0)) NIL)) TOTALP-LST ((LOG . T)) LINEAR-LEMMAS ((LINEAR-LEMMA GCD-T-SHRINK-1 ((NOT (LESSP A B)) (NUMBERP B) (NOT (EQUAL B (QUOTE 0)))) (NOT (LESSP (SUB1 (LOG (QUOTE 2) A)) (LOG (QUOTE 2) (REMAINDER A B)))) (LOG (QUOTE 2) (REMAINDER A B))) (LINEAR-LEMMA LOG-LEQ ((NOT (LESSP Y X))) (NOT (LESSP (LOG B Y) (LOG B X))) (LOG B X)) (LINEAR-LEMMA LOG-LEQ ((NOT (LESSP Y X))) (NOT (LESSP (LOG B Y) (LOG B X))) (LOG B Y))) QUICK-BLOCK-INFO (UNCHANGING SELF-REFLEXIVE) SDEFN (LAMBDA (B X) (IF (EQUAL B (QUOTE 0)) (QUOTE 0) (IF (NUMBERP B) (IF (EQUAL B (QUOTE 1)) (QUOTE 0) (IF (LESSP X B) (QUOTE 0) (ADD1 (LOG B (QUOTIENT X B))))) (QUOTE 0)))) LISP-CODE *1*LOG SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((OR (ZEROP B) (EQUAL B (QUOTE 1)))) NIL) (TESTS-AND-CASES ((NOT (OR (ZEROP B) (EQUAL B (QUOTE 1)))) (LESSP X B)) NIL) (TESTS-AND-CASES ((NOT (OR (ZEROP B) (EQUAL B (QUOTE 1)))) (NOT (LESSP X B))) ((B (QUOTIENT X B))))) LEVEL-NO 3 JUSTIFICATIONS ((JUSTIFICATION (X) (COUNT X) LESSP (ZEROP OR COUNT-NUMBERP ZERO COUNT-NOT-LESSP TIMES-LESSP QUOTIENT-TIMES-LESSP))) IDATE 1000402214818 CONTROLLER-POCKETS (2) SATELLITES (*1*LOG) IMMEDIATE-DEPENDENTS0 (GCD-T-UBOUND GCD-T-UB GCD-T2-UB GCD-T-SHRINK-2 GCD-T-SHRINK-1 LOGAND-EOR-BEQ-UINT LOGAND-OR-BEQ-UINT LOGAND-BEQ-UINT LOGAND-UINT TA-LEMMA-2 TA-LEMMA-1 LOG-LEQ LOG-QUOTIENT-EXP LOG-TIMES-EXP-1 LOG-TIMES-EXP LOG-EXP LOG-EQUAL-0 LOG-OF-1 LOG-OF-0) EVENT (DEFN LOG (B X) (IF (OR (ZEROP B) (EQUAL B (QUOTE 1))) (QUOTE 0) (IF (LESSP X B) (QUOTE 0) (ADD1 (LOG B (QUOTIENT X B)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-LESSP . LOG) (IMMEDIATE-DEPENDENTS0 QUOTIENT-TIMES-LESSP . LOG) (DCELL . *1*LOG))))) (PUT1-LST (QUOTE TIMES-LESSP) (QUOTE (IDATE 1000402214818 IMMEDIATE-DEPENDENTS0 (LESSP-TIMES-LESSP DIFFERENCE-LESSP-CANCEL-1 MEAN-LESSP-LEMMA MOVEM-PRE-RNLST-LEN MOVEM-RNLST-LEN WRITE-MEM-ILST-INT READ-MEM-ILST-INT READ-MEM-ILST TIMES-PLUS-LESSP-CANCEL MBIT-MEANS-NEGATIVEP LSL-1-BCS&CC TAIL-MBIT LOGEOR-BEQ-INT-1 SUB-BHI-INT SUBX-C-LA ADDX-C-LA HEAD-NAT-RANGEP LOGEOR-NAT-RANGEP LOGOR-NAT-RANGEP SUB1-TIMES2-NAT-RANGEP LOGAND-LOGEOR LOGAND-LOGOR LOGOR-COMMUTATIVITY LOGAND-COMMUTATIVITY LOGOR-EQUAL-0 DIVU-OVERFLOW TIMES-LESSP_3 TIMES-LESSP_2 TIMES-LESSP_1 IQUOTIENT-INT-RANGEP QUOTIENT-INT-RANGEP NAT-TO-INT= INT-TO-NAT=0 INT-TO-NAT-RANGEP ILESSP-CROCK2 ADD-BMI-CROCK2 ADDX-V-CROCK2 ADDX-V-CROCK1 PLUS-TO-IPLUS MBIT-MEANS-LESSP ASR-0 ASL-INT ASL-INT-CROCK2 LOGNOT-INT BV-HEAD-NAT NAT-TO-BV-TO-NAT NAT-TO-BV MOVEM-PRE-RNLST MOVEM-LEN MOVEM-RNLST LOGOR LOGAND QUOTIENT2-INDUCT LOG-EQUAL-0 LOG) EVENT (PROVE-LEMMA TIMES-LESSP (REWRITE) (IMPLIES (IF (LESSP Z X) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (EQUAL (LESSP X (TIMES Y Z)) (IF (OR (ZEROP Y) (ZEROP Z)) (QUOTE *1*FALSE) (IF (EQUAL Y (QUOTE 1)) (LESSP X Z) (QUOTE *1*TRUE))))) ((ENABLE TIMES))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . TIMES-LESSP) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . TIMES-LESSP) (IMMEDIATE-DEPENDENTS0 TIMES-1 . TIMES-LESSP) (LEMMAS LESSP . TIMES-LESSP))))) (PUT1-LST (QUOTE REMAINDER-REMAINDER-2) (QUOTE (IDATE 1000402214818 IMMEDIATE-DEPENDENTS0 (BCAR-REPLACE BCAR-APP BCAR-HEAD ADD-EVENP) EVENT (PROVE-LEMMA REMAINDER-REMAINDER-2 (REWRITE) (EQUAL (REMAINDER (REMAINDER X (EXP (QUOTE 2) I)) (QUOTE 2)) (IF (ZEROP I) (QUOTE 0) (REMAINDER X (QUOTE 2)))) ((USE (REMAINDER-REMAINDER-EXP2 (J (QUOTE 1)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-OF-1 . REMAINDER-REMAINDER-2) (IMMEDIATE-DEPENDENTS0 REMAINDER-1 . REMAINDER-REMAINDER-2) (IMMEDIATE-DEPENDENTS0 REMAINDER-REMAINDER-EXP2 . REMAINDER-REMAINDER-2) (IMMEDIATE-DEPENDENTS0 EXP . REMAINDER-REMAINDER-2) (LEMMAS REMAINDER . REMAINDER-REMAINDER-2))))) (PUT1-LST (QUOTE REMAINDER-REMAINDER-EXP2) (QUOTE (IDATE 1000402214818 IMMEDIATE-DEPENDENTS0 (HEAD-RECURSION HEAD-APP-HEAD-TAIL HEAD-APP REPLACE-LEQ REPLACE-ASSOCIATIVITY REPLACE-HEAD HEAD-REPLACE HEAD-HEAD ASL-ASL LSL-LSL ADDER-LOGNOT REMAINDER-REMAINDER-2) EVENT (PROVE-LEMMA REMAINDER-REMAINDER-EXP2 (REWRITE) (EQUAL (REMAINDER (REMAINDER X (EXP (QUOTE 2) I)) (EXP (QUOTE 2) J)) (IF (LESSP I J) (REMAINDER X (EXP (QUOTE 2) I)) (REMAINDER X (EXP (QUOTE 2) J))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-OF-1 . REMAINDER-REMAINDER-EXP2) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . REMAINDER-REMAINDER-EXP2) (IMMEDIATE-DEPENDENTS0 LESSP-PLUS-TIMES-EXP2 . REMAINDER-REMAINDER-EXP2) (IMMEDIATE-DEPENDENTS0 PLUS-ASSOCIATIVITY . REMAINDER-REMAINDER-EXP2) (IMMEDIATE-DEPENDENTS0 REMAINDER-TIMES-EXP2-1 . REMAINDER-REMAINDER-EXP2) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . REMAINDER-REMAINDER-EXP2) (IMMEDIATE-DEPENDENTS0 REMAINDER-1 . REMAINDER-REMAINDER-EXP2) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . REMAINDER-REMAINDER-EXP2) (IMMEDIATE-DEPENDENTS0 REMAINDER-PLUS-TIMES2 . REMAINDER-REMAINDER-EXP2) (IMMEDIATE-DEPENDENTS0 REMAINDER-PLUS-PLUS . REMAINDER-REMAINDER-EXP2) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . REMAINDER-REMAINDER-EXP2) (IMMEDIATE-DEPENDENTS0 REMAINDER-PLUS1 . REMAINDER-REMAINDER-EXP2) (IMMEDIATE-DEPENDENTS0 EXP-OF-2-0 . REMAINDER-REMAINDER-EXP2) (IMMEDIATE-DEPENDENTS0 REMAINDER-EXIT . REMAINDER-REMAINDER-EXP2) (IMMEDIATE-DEPENDENTS0 REMAINDER-0 . REMAINDER-REMAINDER-EXP2) (IMMEDIATE-DEPENDENTS0 REMAINDER-LESSP . REMAINDER-REMAINDER-EXP2) (IMMEDIATE-DEPENDENTS0 REMAINDER-QUOTIENT-ELIM . REMAINDER-REMAINDER-EXP2) (IMMEDIATE-DEPENDENTS0 EXP . REMAINDER-REMAINDER-EXP2) (LEMMAS REMAINDER . REMAINDER-REMAINDER-EXP2))))) (PUT1-LST (QUOTE QUOTIENT-TIMES-EXP2-4) (QUOTE (IDATE 1000402214817 EVENT (PROVE-LEMMA QUOTIENT-TIMES-EXP2-4 (REWRITE) (AND (EQUAL (QUOTIENT (TIMES X (TIMES (EXP (QUOTE 2) I) Y)) (QUOTE 2)) (IF (ZEROP I) (QUOTIENT (TIMES X Y) (QUOTE 2)) (TIMES X (TIMES Y (EXP (QUOTE 2) (SUB1 I)))))) (EQUAL (QUOTIENT (TIMES X (TIMES Y (EXP (QUOTE 2) I))) (QUOTE 2)) (IF (ZEROP I) (QUOTIENT (TIMES X Y) (QUOTE 2)) (TIMES X (TIMES Y (EXP (QUOTE 2) (SUB1 I))))))) ((USE (QUOTIENT-TIMES-EXP2-3 (X (TIMES X Y)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . QUOTIENT-TIMES-EXP2-4) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY1 . QUOTIENT-TIMES-EXP2-4) (IMMEDIATE-DEPENDENTS0 TIMES-1 . QUOTIENT-TIMES-EXP2-4) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . QUOTIENT-TIMES-EXP2-4) (IMMEDIATE-DEPENDENTS0 TIMES-EQUAL-0 . QUOTIENT-TIMES-EXP2-4) (IMMEDIATE-DEPENDENTS0 LESSP-OF-1 . QUOTIENT-TIMES-EXP2-4) (IMMEDIATE-DEPENDENTS0 SUB1-OF-1 . QUOTIENT-TIMES-EXP2-4) (IMMEDIATE-DEPENDENTS0 TIMES-EQUAL-1 . QUOTIENT-TIMES-EXP2-4) (IMMEDIATE-DEPENDENTS0 QUOTIENT-EQUAL-0 . QUOTIENT-TIMES-EXP2-4) (IMMEDIATE-DEPENDENTS0 QUOTIENT-TIMES . QUOTIENT-TIMES-EXP2-4) (IMMEDIATE-DEPENDENTS0 TIMES-ASSOCIATIVITY . QUOTIENT-TIMES-EXP2-4) (IMMEDIATE-DEPENDENTS0 QUOTIENT-TIMES-EXP2-3 . QUOTIENT-TIMES-EXP2-4) (IMMEDIATE-DEPENDENTS0 EXP . QUOTIENT-TIMES-EXP2-4) (LEMMAS QUOTIENT . QUOTIENT-TIMES-EXP2-4) (LEMMAS QUOTIENT . QUOTIENT-TIMES-EXP2-4))))) (PUT1-LST (QUOTE QUOTIENT-TIMES-EXP2-3) (QUOTE (IDATE 1000402214817 IMMEDIATE-DEPENDENTS0 (LOGAND-UINT-LA QUOTIENT-TIMES-EXP2-4) EVENT (PROVE-LEMMA QUOTIENT-TIMES-EXP2-3 (REWRITE) (AND (EQUAL (QUOTIENT (TIMES X (EXP (QUOTE 2) I)) (QUOTE 2)) (IF (ZEROP I) (QUOTIENT X (QUOTE 2)) (TIMES X (EXP (QUOTE 2) (SUB1 I))))) (EQUAL (QUOTIENT (TIMES (EXP (QUOTE 2) I) X) (QUOTE 2)) (IF (ZEROP I) (QUOTIENT X (QUOTE 2)) (TIMES X (EXP (QUOTE 2) (SUB1 I)))))) ((USE (QUOTIENT-TIMES-EXP2-1 (J (QUOTE 1)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 QUOTIENT-EXIT . QUOTIENT-TIMES-EXP2-3) (IMMEDIATE-DEPENDENTS0 LESSP-OF-1 . QUOTIENT-TIMES-EXP2-3) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . QUOTIENT-TIMES-EXP2-3) (IMMEDIATE-DEPENDENTS0 TIMES-1 . QUOTIENT-TIMES-EXP2-3) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . QUOTIENT-TIMES-EXP2-3) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY1 . QUOTIENT-TIMES-EXP2-3) (IMMEDIATE-DEPENDENTS0 QUOTIENT-TIMES . QUOTIENT-TIMES-EXP2-3) (IMMEDIATE-DEPENDENTS0 TIMES-ASSOCIATIVITY . QUOTIENT-TIMES-EXP2-3) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-SUB1 . QUOTIENT-TIMES-EXP2-3) (IMMEDIATE-DEPENDENTS0 QUOTIENT-TIMES-EXP2-1 . QUOTIENT-TIMES-EXP2-3) (IMMEDIATE-DEPENDENTS0 EXP . QUOTIENT-TIMES-EXP2-3) (LEMMAS QUOTIENT . QUOTIENT-TIMES-EXP2-3) (LEMMAS QUOTIENT . QUOTIENT-TIMES-EXP2-3))))) (PUT1-LST (QUOTE QUOTIENT-TIMES-EXP2-2) (QUOTE (IDATE 1000402214816 EVENT (PROVE-LEMMA QUOTIENT-TIMES-EXP2-2 (REWRITE) (EQUAL (QUOTIENT (TIMES (EXP (QUOTE 2) I) X) (EXP (QUOTE 2) J)) (IF (LESSP I J) (QUOTIENT X (EXP (QUOTE 2) (DIFFERENCE J I))) (TIMES X (EXP (QUOTE 2) (DIFFERENCE I J))))) ((USE (QUOTIENT-TIMES-EXP2-1)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . QUOTIENT-TIMES-EXP2-2) (IMMEDIATE-DEPENDENTS0 QUOTIENT-TIMES-EXP2-1 . QUOTIENT-TIMES-EXP2-2) (IMMEDIATE-DEPENDENTS0 EXP . QUOTIENT-TIMES-EXP2-2) (LEMMAS QUOTIENT . QUOTIENT-TIMES-EXP2-2))))) (PUT1-LST (QUOTE QUOTIENT-TIMES-EXP2-1) (QUOTE (IDATE 1000402214816 IMMEDIATE-DEPENDENTS0 (READ-MEM-ILST-ASL READ-MEM-LST-ASL REMAINDER-QUOTIENT-EXP2 QUOTIENT-PLUS-TIMES-EXP2-2 QUOTIENT-PLUS-TIMES-EXP2-1 QUOTIENT-TIMES-EXP2-3 QUOTIENT-TIMES-EXP2-2) EVENT (PROVE-LEMMA QUOTIENT-TIMES-EXP2-1 (REWRITE) (EQUAL (QUOTIENT (TIMES X (EXP (QUOTE 2) I)) (EXP (QUOTE 2) J)) (IF (LESSP I J) (QUOTIENT X (EXP (QUOTE 2) (DIFFERENCE J I))) (TIMES X (EXP (QUOTE 2) (DIFFERENCE I J)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 QUOTIENT-TIMES . QUOTIENT-TIMES-EXP2-1) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-SUB1-SUB1 . QUOTIENT-TIMES-EXP2-1) (IMMEDIATE-DEPENDENTS0 DIFFERENCE=0 . QUOTIENT-TIMES-EXP2-1) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY1 . QUOTIENT-TIMES-EXP2-1) (IMMEDIATE-DEPENDENTS0 QUOTIENT-TIMES-CANCEL . QUOTIENT-TIMES-EXP2-1) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . QUOTIENT-TIMES-EXP2-1) (IMMEDIATE-DEPENDENTS0 TIMES-1 . QUOTIENT-TIMES-EXP2-1) (IMMEDIATE-DEPENDENTS0 QUOTIENT-1 . QUOTIENT-TIMES-EXP2-1) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-EQUAL-TIMES . QUOTIENT-TIMES-EXP2-1) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . QUOTIENT-TIMES-EXP2-1) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . QUOTIENT-TIMES-EXP2-1) (IMMEDIATE-DEPENDENTS0 QUOTIENT-0 . QUOTIENT-TIMES-EXP2-1) (IMMEDIATE-DEPENDENTS0 EXP-OF-2-0 . QUOTIENT-TIMES-EXP2-1) (IMMEDIATE-DEPENDENTS0 QUOTIENT-EXIT . QUOTIENT-TIMES-EXP2-1) (IMMEDIATE-DEPENDENTS0 REMAINDER-LESSP . QUOTIENT-TIMES-EXP2-1) (IMMEDIATE-DEPENDENTS0 REMAINDER-QUOTIENT-ELIM . QUOTIENT-TIMES-EXP2-1) (IMMEDIATE-DEPENDENTS0 EXP . QUOTIENT-TIMES-EXP2-1) (LEMMAS QUOTIENT . QUOTIENT-TIMES-EXP2-1))))) (PUT1-LST (QUOTE REMAINDER-TIMES-EXP2-4) (QUOTE (IDATE 1000402214816 EVENT (PROVE-LEMMA REMAINDER-TIMES-EXP2-4 (REWRITE) (AND (EQUAL (REMAINDER (TIMES X (TIMES (EXP (QUOTE 2) I) Y)) (QUOTE 2)) (IF (ZEROP I) (REMAINDER (TIMES X Y) (QUOTE 2)) (QUOTE 0))) (EQUAL (REMAINDER (TIMES X (TIMES Y (EXP (QUOTE 2) I))) (QUOTE 2)) (IF (ZEROP I) (REMAINDER (TIMES X Y) (QUOTE 2)) (QUOTE 0)))) ((USE (REMAINDER-TIMES-EXP2-3 (X (TIMES X Y)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-ZERO . REMAINDER-TIMES-EXP2-4) (IMMEDIATE-DEPENDENTS0 TIMES-1 . REMAINDER-TIMES-EXP2-4) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . REMAINDER-TIMES-EXP2-4) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY1 . REMAINDER-TIMES-EXP2-4) (IMMEDIATE-DEPENDENTS0 TIMES-ASSOCIATIVITY . REMAINDER-TIMES-EXP2-4) (IMMEDIATE-DEPENDENTS0 REMAINDER-TIMES-EXP2-3 . REMAINDER-TIMES-EXP2-4) (IMMEDIATE-DEPENDENTS0 EXP . REMAINDER-TIMES-EXP2-4) (LEMMAS REMAINDER . REMAINDER-TIMES-EXP2-4) (LEMMAS REMAINDER . REMAINDER-TIMES-EXP2-4))))) (PUT1-LST (QUOTE REMAINDER-TIMES-EXP2-3) (QUOTE (IDATE 1000402214815 IMMEDIATE-DEPENDENTS0 (LOGAND-UINT-LA REMAINDER2-PLUS-TIMES-EXP2 REMAINDER-TIMES-EXP2-4) EVENT (PROVE-LEMMA REMAINDER-TIMES-EXP2-3 (REWRITE) (AND (EQUAL (REMAINDER (TIMES X (EXP (QUOTE 2) I)) (QUOTE 2)) (IF (ZEROP I) (REMAINDER X (QUOTE 2)) (QUOTE 0))) (EQUAL (REMAINDER (TIMES (EXP (QUOTE 2) I) X) (QUOTE 2)) (IF (ZEROP I) (REMAINDER X (QUOTE 2)) (QUOTE 0)))) ((USE (REMAINDER-TIMES-EXP2-1 (J (QUOTE 1)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-EXIT . REMAINDER-TIMES-EXP2-3) (IMMEDIATE-DEPENDENTS0 REMAINDER-1 . REMAINDER-TIMES-EXP2-3) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . REMAINDER-TIMES-EXP2-3) (IMMEDIATE-DEPENDENTS0 REMAINDER-WRT-2 . REMAINDER-TIMES-EXP2-3) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . REMAINDER-TIMES-EXP2-3) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . REMAINDER-TIMES-EXP2-3) (IMMEDIATE-DEPENDENTS0 TIMES-1 . REMAINDER-TIMES-EXP2-3) (IMMEDIATE-DEPENDENTS0 REMAINDER-TIMES-EXP2-1 . REMAINDER-TIMES-EXP2-3) (IMMEDIATE-DEPENDENTS0 EXP . REMAINDER-TIMES-EXP2-3) (LEMMAS REMAINDER . REMAINDER-TIMES-EXP2-3) (LEMMAS REMAINDER . REMAINDER-TIMES-EXP2-3))))) (PUT1-LST (QUOTE REMAINDER-TIMES-EXP2-2) (QUOTE (IDATE 1000402214815 IMMEDIATE-DEPENDENTS0 (ASL-ASL LSL-LSL) EVENT (PROVE-LEMMA REMAINDER-TIMES-EXP2-2 (REWRITE) (EQUAL (REMAINDER (TIMES (EXP (QUOTE 2) I) X) (EXP (QUOTE 2) J)) (TIMES (REMAINDER X (EXP (QUOTE 2) (DIFFERENCE J I))) (EXP (QUOTE 2) I))) ((USE (REMAINDER-TIMES-EXP2-1)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . REMAINDER-TIMES-EXP2-2) (IMMEDIATE-DEPENDENTS0 REMAINDER-TIMES-EXP2-1 . REMAINDER-TIMES-EXP2-2) (IMMEDIATE-DEPENDENTS0 EXP . REMAINDER-TIMES-EXP2-2) (LEMMAS REMAINDER . REMAINDER-TIMES-EXP2-2))))) (PUT1-LST (QUOTE REMAINDER-TIMES-EXP2-1) (QUOTE (IDATE 1000402214815 IMMEDIATE-DEPENDENTS0 (READ-MEM-ILST-ASL READ-MEM-LST-ASL HEAD-RECURSION REMAINDER-QUOTIENT-EXP2 QUOTIENT-PLUS-TIMES-EXP2-2 QUOTIENT-PLUS-TIMES-EXP2-1 REMAINDER-PLUS-TIMES-EXP2-2 REMAINDER-PLUS-TIMES-EXP2-1 ASL-ASL LSL-LSL ASL-INT-CROCK1 LSL-UINT REMAINDER-REMAINDER-EXP2 REMAINDER-TIMES-EXP2-3 REMAINDER-TIMES-EXP2-2) EVENT (PROVE-LEMMA REMAINDER-TIMES-EXP2-1 (REWRITE) (EQUAL (REMAINDER (TIMES X (EXP (QUOTE 2) I)) (EXP (QUOTE 2) J)) (TIMES (REMAINDER X (EXP (QUOTE 2) (DIFFERENCE J I))) (EXP (QUOTE 2) I)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIFFERENCE-SUB1-SUB1 . REMAINDER-TIMES-EXP2-1) (IMMEDIATE-DEPENDENTS0 DIFFERENCE=0 . REMAINDER-TIMES-EXP2-1) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY1 . REMAINDER-TIMES-EXP2-1) (IMMEDIATE-DEPENDENTS0 TIMES-DISTRIBUTES-REMAINDER . REMAINDER-TIMES-EXP2-1) (IMMEDIATE-DEPENDENTS0 TIMES-EQUAL-0 . REMAINDER-TIMES-EXP2-1) (IMMEDIATE-DEPENDENTS0 TIMES-1 . REMAINDER-TIMES-EXP2-1) (IMMEDIATE-DEPENDENTS0 REMAINDER-1 . REMAINDER-TIMES-EXP2-1) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . REMAINDER-TIMES-EXP2-1) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . REMAINDER-TIMES-EXP2-1) (IMMEDIATE-DEPENDENTS0 REMAINDER-0 . REMAINDER-TIMES-EXP2-1) (IMMEDIATE-DEPENDENTS0 EXP-OF-2-0 . REMAINDER-TIMES-EXP2-1) (IMMEDIATE-DEPENDENTS0 REMAINDER-EXIT . REMAINDER-TIMES-EXP2-1) (IMMEDIATE-DEPENDENTS0 REMAINDER-LESSP . REMAINDER-TIMES-EXP2-1) (IMMEDIATE-DEPENDENTS0 REMAINDER-QUOTIENT-ELIM . REMAINDER-TIMES-EXP2-1) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . REMAINDER-TIMES-EXP2-1) (IMMEDIATE-DEPENDENTS0 EXP . REMAINDER-TIMES-EXP2-1) (LEMMAS REMAINDER . REMAINDER-TIMES-EXP2-1))))) (PUT1-LST (QUOTE LESSP-PLUS-EXP2) (QUOTE (IDATE 1000402214815 IMMEDIATE-DEPENDENTS0 (SUB-EQUAL-0 SUB-NAT-LA) EVENT (PROVE-LEMMA LESSP-PLUS-EXP2 (REWRITE) (IMPLIES (LESSP X (EXP (QUOTE 2) I)) (EQUAL (LESSP (PLUS X (EXP (QUOTE 2) I)) (EXP (QUOTE 2) N)) (LESSP I N))) ((USE (LESSP-PLUS-TIMES-EXP2 (Y (QUOTE 1)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-1 . LESSP-PLUS-EXP2) (IMMEDIATE-DEPENDENTS0 DIFFERENCE=0 . LESSP-PLUS-EXP2) (IMMEDIATE-DEPENDENTS0 EXP-OF-2-1 . LESSP-PLUS-EXP2) (IMMEDIATE-DEPENDENTS0 LESSP-PLUS-TIMES-EXP2 . LESSP-PLUS-EXP2) (IMMEDIATE-DEPENDENTS0 EXP . LESSP-PLUS-EXP2) (LEMMAS LESSP . LESSP-PLUS-EXP2))))) (PUT1-LST (QUOTE LESSP-PLUS-TIMES-EXP2) (QUOTE (IDATE 1000402214815 IMMEDIATE-DEPENDENTS0 (REPLACE-NAT-RANGEP APP-NAT-RANGEP REMAINDER-QUOTIENT-EXP2 QUOTIENT-PLUS-TIMES-EXP2-2 REMAINDER-PLUS-TIMES-EXP2-2 ASR-NAT-RANGEP REMAINDER-REMAINDER-EXP2 LESSP-PLUS-EXP2) EVENT (PROVE-LEMMA LESSP-PLUS-TIMES-EXP2 (REWRITE) (IMPLIES (LESSP X (EXP (QUOTE 2) I)) (EQUAL (LESSP (PLUS X (TIMES Y (EXP (QUOTE 2) I))) (EXP (QUOTE 2) N)) (IF (ZEROP Y) (LESSP X (EXP (QUOTE 2) N)) (LESSP Y (EXP (QUOTE 2) (DIFFERENCE N I)))))) ((INDUCT (QUOT2-SUB12-INDUCT X Y* I N)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-EQUAL-0 . LESSP-PLUS-TIMES-EXP2) (IMMEDIATE-DEPENDENTS0 SUB1-OF-1 . LESSP-PLUS-TIMES-EXP2) (IMMEDIATE-DEPENDENTS0 TIMES-DISTRIBUTES-PLUS-NEW . LESSP-PLUS-TIMES-EXP2) (IMMEDIATE-DEPENDENTS0 PLUS-ADD1 . LESSP-PLUS-TIMES-EXP2) (IMMEDIATE-DEPENDENTS0 TIMES2-ADD1-LESSP-CANCEL . LESSP-PLUS-TIMES-EXP2) (IMMEDIATE-DEPENDENTS0 TIMES-EXP2-LESSP . LESSP-PLUS-TIMES-EXP2) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-LESSP-TIMES . LESSP-PLUS-TIMES-EXP2) (IMMEDIATE-DEPENDENTS0 REMAINDER-LESSP . LESSP-PLUS-TIMES-EXP2) (IMMEDIATE-DEPENDENTS0 REMAINDER-QUOTIENT-ELIM . LESSP-PLUS-TIMES-EXP2) (IMMEDIATE-DEPENDENTS0 QUOTIENT-EXIT . LESSP-PLUS-TIMES-EXP2) (IMMEDIATE-DEPENDENTS0 TIMES-LESSP-0 . LESSP-PLUS-TIMES-EXP2) (IMMEDIATE-DEPENDENTS0 QUOTIENT-TIMES-LESSP . LESSP-PLUS-TIMES-EXP2) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-SUB1-SUB1 . LESSP-PLUS-TIMES-EXP2) (IMMEDIATE-DEPENDENTS0 DIFFERENCE=0 . LESSP-PLUS-TIMES-EXP2) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . LESSP-PLUS-TIMES-EXP2) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY1 . LESSP-PLUS-TIMES-EXP2) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . LESSP-PLUS-TIMES-EXP2) (IMMEDIATE-DEPENDENTS0 TIMES-EQUAL-0 . LESSP-PLUS-TIMES-EXP2) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . LESSP-PLUS-TIMES-EXP2) (IMMEDIATE-DEPENDENTS0 EXP-OF-2-0 . LESSP-PLUS-TIMES-EXP2) (IMMEDIATE-DEPENDENTS0 LESSP-OF-1 . LESSP-PLUS-TIMES-EXP2) (IMMEDIATE-DEPENDENTS0 TIMES-1 . LESSP-PLUS-TIMES-EXP2) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . LESSP-PLUS-TIMES-EXP2) (IMMEDIATE-DEPENDENTS0 QUOT2-SUB12-INDUCT . LESSP-PLUS-TIMES-EXP2) (IMMEDIATE-DEPENDENTS0 EXP . LESSP-PLUS-TIMES-EXP2) (LEMMAS LESSP . LESSP-PLUS-TIMES-EXP2))))) (PUT1-LST (QUOTE *1*QUOT2-SUB12-INDUCT) (QUOTE (MAIN-EVENT QUOT2-SUB12-INDUCT))) (PUT1-LST (QUOTE QUOT2-SUB12-INDUCT) (QUOTE (TYPE-PRESCRIPTION-LST ((QUOT2-SUB12-INDUCT 2 NIL NIL NIL NIL)) TOTALP-LST ((QUOT2-SUB12-INDUCT . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE SELF-REFLEXIVE SELF-REFLEXIVE) SDEFN (LAMBDA (X Y I J) (IF (EQUAL I (QUOTE 0)) (QUOTE *1*TRUE) (IF (NUMBERP I) (QUOT2-SUB12-INDUCT (QUOTIENT X (QUOTE 2)) (QUOTIENT Y (QUOTE 2)) (SUB1 I) (SUB1 J)) (QUOTE *1*TRUE)))) LISP-CODE *1*QUOT2-SUB12-INDUCT SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((ZEROP I)) NIL) (TESTS-AND-CASES ((NOT (ZEROP I))) (((QUOTIENT X (QUOTE 2)) (QUOTIENT Y (QUOTE 2)) (SUB1 I) (SUB1 J))))) LEVEL-NO 3 JUSTIFICATIONS ((JUSTIFICATION (I) (COUNT I) LESSP (ZEROP COUNT-NUMBERP LESSP-SUB1))) IDATE 1000402214814 CONTROLLER-POCKETS (4) SATELLITES (*1*QUOT2-SUB12-INDUCT) IMMEDIATE-DEPENDENTS0 (LESSP-PLUS-TIMES-EXP2) EVENT (DEFN QUOT2-SUB12-INDUCT (X Y I J) (IF (ZEROP I) (QUOTE *1*TRUE) (QUOT2-SUB12-INDUCT (QUOTIENT X (QUOTE 2)) (QUOTIENT Y (QUOTE 2)) (SUB1 I) (SUB1 J)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . QUOT2-SUB12-INDUCT) (DCELL . *1*QUOT2-SUB12-INDUCT))))) (PUT1-LST (QUOTE TIMES-DISTRIBUTES-PLUS-OFF) (QUOTE (IDATE 1000402214814 EVENT (TOGGLE TIMES-DISTRIBUTES-PLUS-OFF TIMES-DISTRIBUTES-PLUS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-DISTRIBUTES-PLUS . TIMES-DISTRIBUTES-PLUS-OFF) (DISABLED-LEMMAS NIL TIMES-DISTRIBUTES-PLUS TIMES-DISTRIBUTES-PLUS-OFF . T))))) (PUT1-LST (QUOTE TIMES-DISTRIBUTES-PLUS-NEW) (QUOTE (IDATE 1000402214814 IMMEDIATE-DEPENDENTS0 (BV-ADDER&CARRY-NAT LESSP-PLUS-TIMES-EXP2) EVENT (PROVE-LEMMA TIMES-DISTRIBUTES-PLUS-NEW (REWRITE) (EQUAL (PLUS (TIMES X Y) (TIMES X Z)) (TIMES X (PLUS Y Z)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-DISTRIBUTES-PLUS . TIMES-DISTRIBUTES-PLUS-NEW) (LEMMAS PLUS . TIMES-DISTRIBUTES-PLUS-NEW))))) (PUT1-LST (QUOTE QUOTIENT-QUOTIENT) (QUOTE (IDATE 1000402214814 IMMEDIATE-DEPENDENTS0 (REPLACE-LEQ1 TAIL-REPLACE TAIL-TAIL LSR-LSR LOG-QUOTIENT-EXP) EVENT (PROVE-LEMMA QUOTIENT-QUOTIENT (REWRITE) (EQUAL (QUOTIENT (QUOTIENT X Z) Y) (QUOTIENT X (TIMES Z Y)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY1 . QUOTIENT-QUOTIENT) (IMMEDIATE-DEPENDENTS0 TIMES-DISTRIBUTES-PLUS . QUOTIENT-QUOTIENT) (IMMEDIATE-DEPENDENTS0 REMAINDER-TIMES . QUOTIENT-QUOTIENT) (IMMEDIATE-DEPENDENTS0 TIMES-PLUS-LESSP . QUOTIENT-QUOTIENT) (IMMEDIATE-DEPENDENTS0 QUOTIENT-EXIT . QUOTIENT-QUOTIENT) (IMMEDIATE-DEPENDENTS0 QUOTIENT-TIMES . QUOTIENT-QUOTIENT) (IMMEDIATE-DEPENDENTS0 QUOTIENT-PLUS-PLUS . QUOTIENT-QUOTIENT) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . QUOTIENT-QUOTIENT) (IMMEDIATE-DEPENDENTS0 QUOTIENT-0 . QUOTIENT-QUOTIENT) (IMMEDIATE-DEPENDENTS0 TIMES-EQUAL-0 . QUOTIENT-QUOTIENT) (IMMEDIATE-DEPENDENTS0 REMAINDER-LESSP . QUOTIENT-QUOTIENT) (IMMEDIATE-DEPENDENTS0 REMAINDER-QUOTIENT-ELIM . QUOTIENT-QUOTIENT) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . QUOTIENT-QUOTIENT) (LEMMAS QUOTIENT . QUOTIENT-QUOTIENT))))) (PUT1-LST (QUOTE QUOTIENT-TIMES-LESSP) (QUOTE (IDATE 1000402214814 IMMEDIATE-DEPENDENTS0 (REMAINDER-SHRINK-HALF MEAN-LESSP MISC-GROUP-H MOVEM-PRE-RNLST-LEN MOVEM-RNLST-LEN OR-GROUP-H READ-MEM-ILST-INT READ-MEM-ILST READ-MEM-LST-INT READ-MEM-LST READ-MEM-LST-LA MBIT-MEANS-NEGATIVEP LOGAND-LOGEOR LOGAND-LOGOR LOGOR-COMMUTATIVITY LOGAND-COMMUTATIVITY LOGOR-EQUAL-0 BCDR-LESSP DIVU-OVERFLOW IQUOTIENT-INT-RANGEP QUOTIENT-INT-RANGEP MBIT-MEANS-LESSP ASR-NAT-RANGEP ASR-INT-CROCK QUOTIENT-EXP-LESSP QUOTIENT-DIFF TAIL-LESSP NAT-TO-BV-TO-NAT NAT-TO-BV MOVEM-PRE-RNLST MOVEM-LEN MOVEM-RNLST LOGOR LOGAND LOG-LEQ QUOTIENT2-INDUCT LOG-QUOTIENT-EXP LOG-EQUAL-0 LOG LESSP-PLUS-TIMES-EXP2) EVENT (PROVE-LEMMA QUOTIENT-TIMES-LESSP (REWRITE) (EQUAL (LESSP (QUOTIENT X Z) Y) (IF (ZEROP Z) (NOT (ZEROP Y)) (LESSP X (TIMES Z Y))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-PLUS-LESSP . QUOTIENT-TIMES-LESSP) (IMMEDIATE-DEPENDENTS0 QUOTIENT-EXIT . QUOTIENT-TIMES-LESSP) (IMMEDIATE-DEPENDENTS0 TIMES-EQUAL-0 . QUOTIENT-TIMES-LESSP) (IMMEDIATE-DEPENDENTS0 REMAINDER-LESSP . QUOTIENT-TIMES-LESSP) (IMMEDIATE-DEPENDENTS0 REMAINDER-QUOTIENT-ELIM . QUOTIENT-TIMES-LESSP) (IMMEDIATE-DEPENDENTS0 QUOTIENT-0 . QUOTIENT-TIMES-LESSP) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . QUOTIENT-TIMES-LESSP) (LEMMAS LESSP . QUOTIENT-TIMES-LESSP))))) (PUT1-LST (QUOTE REMAINDER-PLUS-CANCEL) (QUOTE (IDATE 1000402214814 IMMEDIATE-DEPENDENTS0 (HEAD-PLUS-HEAD HEAD-PLUS-CANCEL HEAD-PLUS-CANCEL0 ADD-CANCEL ADDER-CANCEL ADD-SUB-CANCEL ADD-HEAD ADDER-HEAD ADDER-COMMUTATIVITY1 ADDER-COMMUTATIVITY) EVENT (PROVE-LEMMA REMAINDER-PLUS-CANCEL (REWRITE) (EQUAL (EQUAL (REMAINDER (PLUS I J) N) (REMAINDER (PLUS I K) N)) (EQUAL (REMAINDER J N) (REMAINDER K N))) ((INDUCT (PLUS I J)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-SUB1 . REMAINDER-PLUS-CANCEL) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-EQUAL-PLUS . REMAINDER-PLUS-CANCEL) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . REMAINDER-PLUS-CANCEL) (IMMEDIATE-DEPENDENTS0 REMAINDER-ADD1 . REMAINDER-PLUS-CANCEL) (IMMEDIATE-DEPENDENTS0 REMAINDER-0 . REMAINDER-PLUS-CANCEL) (LEMMAS EQUAL . REMAINDER-PLUS-CANCEL))))) (PUT1-LST (QUOTE REMAINDER-PLUS-CANCEL0) (QUOTE (IDATE 1000402214812 IMMEDIATE-DEPENDENTS0 (REMAINDER-REMAINDER ADD-CANCEL0) EVENT (PROVE-LEMMA REMAINDER-PLUS-CANCEL0 (REWRITE) (EQUAL (EQUAL (REMAINDER (PLUS I J) N) I) (IF (ZEROP N) (AND (NUMBERP I) (ZEROP J)) (IF (LESSP I N) (AND (NUMBERP I) (EQUAL (REMAINDER J N) (QUOTE 0))) (QUOTE *1*FALSE)))) ((DISABLE REMAINDER-LESSP-LINEAR))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-ADD1 . REMAINDER-PLUS-CANCEL0) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-PLUS2 . REMAINDER-PLUS-CANCEL0) (IMMEDIATE-DEPENDENTS0 REMAINDER-LESSP . REMAINDER-PLUS-CANCEL0) (IMMEDIATE-DEPENDENTS0 REMAINDER-EXIT . REMAINDER-PLUS-CANCEL0) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-EQUAL-PLUS . REMAINDER-PLUS-CANCEL0) (IMMEDIATE-DEPENDENTS0 REMAINDER-0 . REMAINDER-PLUS-CANCEL0) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . REMAINDER-PLUS-CANCEL0) (IMMEDIATE-DEPENDENTS0 REMAINDER-PLUS1 . REMAINDER-PLUS-CANCEL0) (LEMMAS EQUAL . REMAINDER-PLUS-CANCEL0))))) (PUT1-LST (QUOTE REMAINDER-EXP) (QUOTE (IDATE 1000402214812 IMMEDIATE-DEPENDENTS0 (ADD-NEG-ADDER SUB-EQUAL-0 SUB-LEQ-LA SUB-X-X HEAD-INT-CROCK ASR-INT) EVENT (PROVE-LEMMA REMAINDER-EXP (REWRITE) (IMPLIES (LESSP (QUOTE 1) I) (EQUAL (REMAINDER (EXP I J) (EXP I K)) (IF (LESSP J K) (EXP I J) (QUOTE 0))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-1 . REMAINDER-EXP) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . REMAINDER-EXP) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . REMAINDER-EXP) (IMMEDIATE-DEPENDENTS0 TIMES-DISTRIBUTES-REMAINDER . REMAINDER-EXP) (IMMEDIATE-DEPENDENTS0 TIMES-EQUAL-1 . REMAINDER-EXP) (IMMEDIATE-DEPENDENTS0 REMAINDER-0 . REMAINDER-EXP) (IMMEDIATE-DEPENDENTS0 SUB1-OF-1 . REMAINDER-EXP) (IMMEDIATE-DEPENDENTS0 REMAINDER-ADD1 . REMAINDER-EXP) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . REMAINDER-EXP) (IMMEDIATE-DEPENDENTS0 EXP . REMAINDER-EXP) (LEMMAS REMAINDER . REMAINDER-EXP))))) (PUT1-LST (QUOTE QUOTIENT-EXP) (QUOTE (IDATE 1000402214812 IMMEDIATE-DEPENDENTS0 (ASR-INT) EVENT (PROVE-LEMMA QUOTIENT-EXP (REWRITE) (IMPLIES (LESSP (QUOTE 1) I) (EQUAL (QUOTIENT (EXP I J) (EXP I K)) (IF (LESSP J K) (QUOTE 0) (EXP I (DIFFERENCE J K)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-ZERO . QUOTIENT-EXP) (IMMEDIATE-DEPENDENTS0 SUB1-OF-1 . QUOTIENT-EXP) (IMMEDIATE-DEPENDENTS0 QUOTIENT-X-X . QUOTIENT-EXP) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-SUB1-SUB1 . QUOTIENT-EXP) (IMMEDIATE-DEPENDENTS0 DIFFERENCE=0 . QUOTIENT-EXP) (IMMEDIATE-DEPENDENTS0 QUOTIENT-0 . QUOTIENT-EXP) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . QUOTIENT-EXP) (IMMEDIATE-DEPENDENTS0 QUOTIENT-TIMES-CANCEL . QUOTIENT-EXP) (IMMEDIATE-DEPENDENTS0 TIMES-1 . QUOTIENT-EXP) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . QUOTIENT-EXP) (IMMEDIATE-DEPENDENTS0 LESSP-OF-1 . QUOTIENT-EXP) (IMMEDIATE-DEPENDENTS0 QUOTIENT-1 . QUOTIENT-EXP) (IMMEDIATE-DEPENDENTS0 EXP-LESSP . QUOTIENT-EXP) (IMMEDIATE-DEPENDENTS0 QUOTIENT-EQUAL-0 . QUOTIENT-EXP) (IMMEDIATE-DEPENDENTS0 EXP . QUOTIENT-EXP) (LEMMAS QUOTIENT . QUOTIENT-EXP))))) (PUT1-LST (QUOTE QUOTIENT-DISTRIBUTES-TIMES2-ADD1) (QUOTE (IDATE 1000402214811 IMMEDIATE-DEPENDENTS0 (BV-MBIT-BITN BV-BITN-BITN) EVENT (PROVE-LEMMA QUOTIENT-DISTRIBUTES-TIMES2-ADD1 (REWRITE) (EQUAL (QUOTIENT (ADD1 (TIMES (QUOTE 2) Y)) (TIMES (QUOTE 2) Z)) (QUOTIENT Y Z))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-LESSP-LINEAR . QUOTIENT-DISTRIBUTES-TIMES2-ADD1) (IMMEDIATE-DEPENDENTS0 QUOTIENT-0 . QUOTIENT-DISTRIBUTES-TIMES2-ADD1) (IMMEDIATE-DEPENDENTS0 TIMES-EQUAL-0 . QUOTIENT-DISTRIBUTES-TIMES2-ADD1) (IMMEDIATE-DEPENDENTS0 TIMES-DISTRIBUTES-REMAINDER . QUOTIENT-DISTRIBUTES-TIMES2-ADD1) (IMMEDIATE-DEPENDENTS0 QUOTIENT-TIMES-CANCEL . QUOTIENT-DISTRIBUTES-TIMES2-ADD1) (IMMEDIATE-DEPENDENTS0 QUOTIENT-ADD1 . QUOTIENT-DISTRIBUTES-TIMES2-ADD1) (LEMMAS QUOTIENT . QUOTIENT-DISTRIBUTES-TIMES2-ADD1))))) (PUT1-LST (QUOTE REMAINDER-DISTRIBUTES-TIMES2-ADD1) (QUOTE (IDATE 1000402214811 IMMEDIATE-DEPENDENTS0 (LOGAND-UINT-LA BV-NOT-LOGNOT BV-HEAD-NAT NAT-TO-BV-SIZED-LA0) EVENT (PROVE-LEMMA REMAINDER-DISTRIBUTES-TIMES2-ADD1 (REWRITE) (EQUAL (REMAINDER (ADD1 (TIMES (QUOTE 2) Y)) (TIMES (QUOTE 2) Z)) (ADD1 (TIMES (QUOTE 2) (REMAINDER Y Z))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-LESSP-LINEAR . REMAINDER-DISTRIBUTES-TIMES2-ADD1) (IMMEDIATE-DEPENDENTS0 REMAINDER-0 . REMAINDER-DISTRIBUTES-TIMES2-ADD1) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-EQUAL-TIMES . REMAINDER-DISTRIBUTES-TIMES2-ADD1) (IMMEDIATE-DEPENDENTS0 TIMES-EQUAL-0 . REMAINDER-DISTRIBUTES-TIMES2-ADD1) (IMMEDIATE-DEPENDENTS0 TIMES-DISTRIBUTES-REMAINDER . REMAINDER-DISTRIBUTES-TIMES2-ADD1) (IMMEDIATE-DEPENDENTS0 REMAINDER-ADD1 . REMAINDER-DISTRIBUTES-TIMES2-ADD1) (LEMMAS REMAINDER . REMAINDER-DISTRIBUTES-TIMES2-ADD1))))) (PUT1-LST (QUOTE QUOTIENT-CROCK-OFF) (QUOTE (IDATE 1000402214811 EVENT (TOGGLE QUOTIENT-CROCK-OFF QUOTIENT-CROCK T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 QUOTIENT-CROCK . QUOTIENT-CROCK-OFF) (DISABLED-LEMMAS NIL QUOTIENT-CROCK QUOTIENT-CROCK-OFF . T))))) (PUT1-LST (QUOTE REMAINDER-CROCK-OFF) (QUOTE (IDATE 1000402214811 EVENT (TOGGLE REMAINDER-CROCK-OFF REMAINDER-CROCK T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-CROCK . REMAINDER-CROCK-OFF) (DISABLED-LEMMAS NIL REMAINDER-CROCK REMAINDER-CROCK-OFF . T))))) (PUT1-LST (QUOTE QUOTIENT-TIMES-CANCEL) (QUOTE (IDATE 1000402214811 IMMEDIATE-DEPENDENTS0 (BV-MBIT-BITN BV-BITN-BITN QUOTIENT-TIMES-EXP2-1 QUOTIENT-EXP QUOTIENT-DISTRIBUTES-TIMES2-ADD1) EVENT (PROVE-LEMMA QUOTIENT-TIMES-CANCEL (REWRITE) (EQUAL (QUOTIENT (TIMES X Y) (TIMES X Z)) (IF (ZEROP X) (QUOTE 0) (QUOTIENT Y Z)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY1 . QUOTIENT-TIMES-CANCEL) (IMMEDIATE-DEPENDENTS0 TIMES-DISTRIBUTES-PLUS . QUOTIENT-TIMES-CANCEL) (IMMEDIATE-DEPENDENTS0 TIMES-EQUAL-0 . QUOTIENT-TIMES-CANCEL) (IMMEDIATE-DEPENDENTS0 QUOTIENT-CROCK . QUOTIENT-TIMES-CANCEL) (IMMEDIATE-DEPENDENTS0 QUOTIENT-PLUS-TIMES2 . QUOTIENT-TIMES-CANCEL) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . QUOTIENT-TIMES-CANCEL) (IMMEDIATE-DEPENDENTS0 QUOTIENT-0 . QUOTIENT-TIMES-CANCEL) (IMMEDIATE-DEPENDENTS0 REMAINDER-LESSP . QUOTIENT-TIMES-CANCEL) (IMMEDIATE-DEPENDENTS0 REMAINDER-QUOTIENT-ELIM . QUOTIENT-TIMES-CANCEL) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . QUOTIENT-TIMES-CANCEL) (LEMMAS QUOTIENT . QUOTIENT-TIMES-CANCEL))))) (PUT1-LST (QUOTE QUOTIENT-CROCK) (QUOTE (IDATE 1000402214811 IMMEDIATE-DEPENDENTS0 (QUOTIENT-CROCK-OFF QUOTIENT-TIMES-CANCEL) EVENT (PROVE-LEMMA QUOTIENT-CROCK (REWRITE) (IMPLIES (LESSP Y Z) (EQUAL (QUOTIENT (TIMES Y X) (TIMES X Z)) (QUOTE 0))) ((USE (QUOTIENT-EXIT (I (TIMES X Y)) (J (TIMES X Z)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-LESSP-TIMES . QUOTIENT-CROCK) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . QUOTIENT-CROCK) (IMMEDIATE-DEPENDENTS0 TIMES-EQUAL-0 . QUOTIENT-CROCK) (IMMEDIATE-DEPENDENTS0 QUOTIENT-EQUAL-0 . QUOTIENT-CROCK) (IMMEDIATE-DEPENDENTS0 QUOTIENT-EXIT . QUOTIENT-CROCK) (LEMMAS QUOTIENT . QUOTIENT-CROCK))))) (PUT1-LST (QUOTE TIMES-DISTRIBUTES-REMAINDER) (QUOTE (IDATE 1000402214811 IMMEDIATE-DEPENDENTS0 (HEAD-RECURSION LOGAND-UINT-LA BV-NOT-LOGNOT BV-HEAD-NAT NAT-TO-BV-SIZED-LA0 REMAINDER-TIMES-EXP2-1 REMAINDER-EXP QUOTIENT-DISTRIBUTES-TIMES2-ADD1 REMAINDER-DISTRIBUTES-TIMES2-ADD1) EVENT (PROVE-LEMMA TIMES-DISTRIBUTES-REMAINDER (REWRITE) (EQUAL (REMAINDER (TIMES X Y) (TIMES X Z)) (TIMES X (REMAINDER Y Z)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY1 . TIMES-DISTRIBUTES-REMAINDER) (IMMEDIATE-DEPENDENTS0 TIMES-DISTRIBUTES-PLUS . TIMES-DISTRIBUTES-REMAINDER) (IMMEDIATE-DEPENDENTS0 REMAINDER-CROCK . TIMES-DISTRIBUTES-REMAINDER) (IMMEDIATE-DEPENDENTS0 REMAINDER-PLUS-TIMES2 . TIMES-DISTRIBUTES-REMAINDER) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-EQUAL-TIMES . TIMES-DISTRIBUTES-REMAINDER) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . TIMES-DISTRIBUTES-REMAINDER) (IMMEDIATE-DEPENDENTS0 REMAINDER-0 . TIMES-DISTRIBUTES-REMAINDER) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . TIMES-DISTRIBUTES-REMAINDER) (IMMEDIATE-DEPENDENTS0 REMAINDER-LESSP . TIMES-DISTRIBUTES-REMAINDER) (IMMEDIATE-DEPENDENTS0 REMAINDER-QUOTIENT-ELIM . TIMES-DISTRIBUTES-REMAINDER) (LEMMAS REMAINDER . TIMES-DISTRIBUTES-REMAINDER))))) (PUT1-LST (QUOTE REMAINDER-CROCK) (QUOTE (IDATE 1000402214811 IMMEDIATE-DEPENDENTS0 (REMAINDER-CROCK-OFF TIMES-DISTRIBUTES-REMAINDER) EVENT (PROVE-LEMMA REMAINDER-CROCK (REWRITE) (IMPLIES (LESSP Y Z) (EQUAL (REMAINDER (TIMES Y X) (TIMES X Z)) (TIMES Y X))) ((USE (REMAINDER-EXIT (I (TIMES Y X)) (J (TIMES X Z)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . REMAINDER-CROCK) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-LESSP-TIMES . REMAINDER-CROCK) (IMMEDIATE-DEPENDENTS0 REMAINDER-0 . REMAINDER-CROCK) (IMMEDIATE-DEPENDENTS0 TIMES-DISTRIBUTES-DIFFERENCE . REMAINDER-CROCK) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . REMAINDER-CROCK) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . REMAINDER-CROCK) (IMMEDIATE-DEPENDENTS0 TIMES-EQUAL-0 . REMAINDER-CROCK) (IMMEDIATE-DEPENDENTS0 REMAINDER-EXIT . REMAINDER-CROCK) (LEMMAS REMAINDER . REMAINDER-CROCK))))) (PUT1-LST (QUOTE REMAINDER-PLUS-REMAINDER) (QUOTE (IDATE 1000402214811 EVENT (PROVE-LEMMA REMAINDER-PLUS-REMAINDER (REWRITE) (EQUAL (REMAINDER (PLUS (REMAINDER X Z) (REMAINDER Y Z)) Z) (REMAINDER (PLUS X Y) Z))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . REMAINDER-PLUS-REMAINDER) (IMMEDIATE-DEPENDENTS0 REMAINDER-PLUS-REMAINDER1 . REMAINDER-PLUS-REMAINDER) (LEMMAS REMAINDER . REMAINDER-PLUS-REMAINDER))))) (PUT1-LST (QUOTE REMAINDER-PLUS-REMAINDER2) (QUOTE (IDATE 1000402214811 IMMEDIATE-DEPENDENTS0 (ADDER-HEAD ADDER-COMMUTATIVITY1 ADDER-ASSOCIATIVITY ADDER-SHIFT-CARRY) EVENT (PROVE-LEMMA REMAINDER-PLUS-REMAINDER2 (REWRITE) (EQUAL (REMAINDER (PLUS X (PLUS Y (REMAINDER Z K))) K) (REMAINDER (PLUS X (PLUS Y Z)) K))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-ADD1-1 . REMAINDER-PLUS-REMAINDER2) (IMMEDIATE-DEPENDENTS0 REMAINDER-ADD1 . REMAINDER-PLUS-REMAINDER2) (IMMEDIATE-DEPENDENTS0 REMAINDER-PLUS-REMAINDER1 . REMAINDER-PLUS-REMAINDER2) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY1 . REMAINDER-PLUS-REMAINDER2) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-EQUAL-PLUS . REMAINDER-PLUS-REMAINDER2) (IMMEDIATE-DEPENDENTS0 REMAINDER-0 . REMAINDER-PLUS-REMAINDER2) (IMMEDIATE-DEPENDENTS0 REMAINDER-PLUS1 . REMAINDER-PLUS-REMAINDER2) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . REMAINDER-PLUS-REMAINDER2) (IMMEDIATE-DEPENDENTS0 REMAINDER-PLUS-PLUS . REMAINDER-PLUS-REMAINDER2) (IMMEDIATE-DEPENDENTS0 REMAINDER-LESSP . REMAINDER-PLUS-REMAINDER2) (IMMEDIATE-DEPENDENTS0 REMAINDER-QUOTIENT-ELIM . REMAINDER-PLUS-REMAINDER2) (LEMMAS REMAINDER . REMAINDER-PLUS-REMAINDER2))))) (PUT1-LST (QUOTE REMAINDER-DIFFERENCE-REMAINDER1) (QUOTE (IDATE 1000402214809 IMMEDIATE-DEPENDENTS0 (SUB-LEQ-LA SUB-X-X) EVENT (PROVE-LEMMA REMAINDER-DIFFERENCE-REMAINDER1 (REWRITE) (IMPLIES (IF (LESSP X Y) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (EQUAL (REMAINDER (DIFFERENCE X (REMAINDER Y Z)) Z) (REMAINDER (DIFFERENCE X Y) Z)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIFFERENCE-DIFFERENCE2 . REMAINDER-DIFFERENCE-REMAINDER1) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-DIFFERENCE1 . REMAINDER-DIFFERENCE-REMAINDER1) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS . REMAINDER-DIFFERENCE-REMAINDER1) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . REMAINDER-DIFFERENCE-REMAINDER1) (IMMEDIATE-DEPENDENTS0 REMAINDER-EXIT . REMAINDER-DIFFERENCE-REMAINDER1) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . REMAINDER-DIFFERENCE-REMAINDER1) (IMMEDIATE-DEPENDENTS0 REMAINDER-0 . REMAINDER-DIFFERENCE-REMAINDER1) (IMMEDIATE-DEPENDENTS0 REMAINDER-LESSP . REMAINDER-DIFFERENCE-REMAINDER1) (IMMEDIATE-DEPENDENTS0 REMAINDER-QUOTIENT-ELIM . REMAINDER-DIFFERENCE-REMAINDER1) (LEMMAS REMAINDER . REMAINDER-DIFFERENCE-REMAINDER1))))) (PUT1-LST (QUOTE REMAINDER-PLUS-REMAINDER1) (QUOTE (IDATE 1000402214809 IMMEDIATE-DEPENDENTS0 (HEAD-PLUS-HEAD ADD-NEG-ADDER ADD-HEAD ADDER-HEAD ADD-COMMUTATIVITY1 ADD-ASSOCIATIVITY REMAINDER-PLUS-REMAINDER REMAINDER-PLUS-REMAINDER2) EVENT (PROVE-LEMMA REMAINDER-PLUS-REMAINDER1 (REWRITE) (EQUAL (REMAINDER (PLUS X (REMAINDER Y Z)) Z) (REMAINDER (PLUS X Y) Z))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . REMAINDER-PLUS-REMAINDER1) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY1 . REMAINDER-PLUS-REMAINDER1) (IMMEDIATE-DEPENDENTS0 REMAINDER-PLUS-PLUS-TIMES2 . REMAINDER-PLUS-REMAINDER1) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-EQUAL-PLUS . REMAINDER-PLUS-REMAINDER1) (IMMEDIATE-DEPENDENTS0 REMAINDER-0 . REMAINDER-PLUS-REMAINDER1) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . REMAINDER-PLUS-REMAINDER1) (IMMEDIATE-DEPENDENTS0 REMAINDER-PLUS1 . REMAINDER-PLUS-REMAINDER1) (IMMEDIATE-DEPENDENTS0 REMAINDER-LESSP . REMAINDER-PLUS-REMAINDER1) (IMMEDIATE-DEPENDENTS0 REMAINDER-QUOTIENT-ELIM . REMAINDER-PLUS-REMAINDER1) (LEMMAS REMAINDER . REMAINDER-PLUS-REMAINDER1))))) (PUT1-LST (QUOTE QUOTIENT-SHRINK-FAST) (QUOTE (IDATE 1000402214809 IMMEDIATE-DEPENDENTS0 (WRITE-MEMP-RAM1-ASL READ-MEMP-ROM1-ASL READ-MEMP-RAM1-ASL QUOTIENT-DIFF REMAINDER-DIFF LOG-LEQ) EVENT (PROVE-LEMMA QUOTIENT-SHRINK-FAST (REWRITE) (NOT (LESSP X (TIMES Y (QUOTIENT X Y))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-ZERO . QUOTIENT-SHRINK-FAST) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . QUOTIENT-SHRINK-FAST) (IMMEDIATE-DEPENDENTS0 REMAINDER-LESSP . QUOTIENT-SHRINK-FAST) (IMMEDIATE-DEPENDENTS0 REMAINDER-QUOTIENT-ELIM . QUOTIENT-SHRINK-FAST) (LINEAR-LEMMAS TIMES . QUOTIENT-SHRINK-FAST))))) (PUT1-LST (QUOTE TIMES-PLUS-LESSP) (QUOTE (IDATE 1000402214809 IMMEDIATE-DEPENDENTS0 (PLUS-TO-IPLUS QUOTIENT-QUOTIENT QUOTIENT-TIMES-LESSP) EVENT (PROVE-LEMMA TIMES-PLUS-LESSP (REWRITE) (IMPLIES (LESSP X D) (EQUAL (LESSP (PLUS X (TIMES B D)) (TIMES C D)) (LESSP B C))) ((ENABLE TIMES))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-EQUAL-0 . TIMES-PLUS-LESSP) (IMMEDIATE-DEPENDENTS0 SUB1-OF-1 . TIMES-PLUS-LESSP) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-LESSP-PLUS . TIMES-PLUS-LESSP) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY1 . TIMES-PLUS-LESSP) (IMMEDIATE-DEPENDENTS0 PLUS-EQUAL-0 . TIMES-PLUS-LESSP) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . TIMES-PLUS-LESSP) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . TIMES-PLUS-LESSP) (LEMMAS LESSP . TIMES-PLUS-LESSP))))) (PUT1-LST (QUOTE QUOTIENT-ADD1) (QUOTE (IDATE 1000402214809 IMMEDIATE-DEPENDENTS0 (BCDR-1 BV-MBIT-BITN NAT-TO-BV-SIZED-LA0 QUOTIENT-DISTRIBUTES-TIMES2-ADD1) EVENT (PROVE-LEMMA QUOTIENT-ADD1 (REWRITE) (EQUAL (QUOTIENT (ADD1 M) N) (IF (ZEROP N) (QUOTE 0) (IF (EQUAL (REMAINDER M N) (SUB1 N)) (ADD1 (QUOTIENT M N)) (QUOTIENT M N))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIFFERENCE-LESSP1 . QUOTIENT-ADD1) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . QUOTIENT-ADD1) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-EQUAL-PLUS . QUOTIENT-ADD1) (IMMEDIATE-DEPENDENTS0 QUOTIENT-EXIT . QUOTIENT-ADD1) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . QUOTIENT-ADD1) (IMMEDIATE-DEPENDENTS0 REMAINDER-TIMES . QUOTIENT-ADD1) (IMMEDIATE-DEPENDENTS0 QUOTIENT-X-X . QUOTIENT-ADD1) (IMMEDIATE-DEPENDENTS0 QUOTIENT-TIMES . QUOTIENT-ADD1) (IMMEDIATE-DEPENDENTS0 PLUS-ADD1 . QUOTIENT-ADD1) (IMMEDIATE-DEPENDENTS0 QUOTIENT-PLUS-ADD1 . QUOTIENT-ADD1) (IMMEDIATE-DEPENDENTS0 REMAINDER-EXIT . QUOTIENT-ADD1) (IMMEDIATE-DEPENDENTS0 SUB1-OF-1 . QUOTIENT-ADD1) (IMMEDIATE-DEPENDENTS0 QUOTIENT-1 . QUOTIENT-ADD1) (IMMEDIATE-DEPENDENTS0 REMAINDER-LESSP . QUOTIENT-ADD1) (IMMEDIATE-DEPENDENTS0 REMAINDER-QUOTIENT-ELIM . QUOTIENT-ADD1) (IMMEDIATE-DEPENDENTS0 QUOTIENT-0 . QUOTIENT-ADD1) (LEMMAS QUOTIENT . QUOTIENT-ADD1))))) (PUT1-LST (QUOTE REMAINDER-ADD1) (QUOTE (IDATE 1000402214808 IMMEDIATE-DEPENDENTS0 (BCAR-1 SUB-CANCEL0 SUBTRACTER-NAT-LA ADDER-NAT-LA PLUS-TO-IPLUS ADDER-LOGNOT BV-ADDER-NAT BV-MBIT-BITN BV-BITN-BITN NAT-TO-BV-SIZED-LA0 REMAINDER-PLUS-CANCEL REMAINDER-PLUS-CANCEL0 REMAINDER-EXP REMAINDER-DISTRIBUTES-TIMES2-ADD1 REMAINDER-PLUS-REMAINDER2) EVENT (PROVE-LEMMA REMAINDER-ADD1 (REWRITE) (EQUAL (REMAINDER (ADD1 M) N) (IF (ZEROP N) (ADD1 M) (IF (EQUAL (REMAINDER M N) (SUB1 N)) (QUOTE 0) (ADD1 (REMAINDER M N)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIFFERENCE-LESSP1 . REMAINDER-ADD1) (IMMEDIATE-DEPENDENTS0 REMAINDER-1 . REMAINDER-ADD1) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . REMAINDER-ADD1) (IMMEDIATE-DEPENDENTS0 REMAINDER-TIMES . REMAINDER-ADD1) (IMMEDIATE-DEPENDENTS0 REMAINDER-X-X . REMAINDER-ADD1) (IMMEDIATE-DEPENDENTS0 REMAINDER-PLUS-ADD1 . REMAINDER-ADD1) (IMMEDIATE-DEPENDENTS0 REMAINDER-EXIT . REMAINDER-ADD1) (IMMEDIATE-DEPENDENTS0 SUB1-OF-1 . REMAINDER-ADD1) (IMMEDIATE-DEPENDENTS0 REMAINDER-LESSP . REMAINDER-ADD1) (IMMEDIATE-DEPENDENTS0 REMAINDER-QUOTIENT-ELIM . REMAINDER-ADD1) (IMMEDIATE-DEPENDENTS0 REMAINDER-0 . REMAINDER-ADD1) (LEMMAS REMAINDER . REMAINDER-ADD1))))) (PUT1-LST (QUOTE REMAINDER-QUOTIENT-ELIM) (QUOTE (IDATE 1000402214808 IMMEDIATE-DEPENDENTS0 (REMAINDER-SHRINK-HALF REMAINDER-REMAINDER WRITE-MEMP-RAM1-ASL READ-MEMP-ROM1-ASL READ-MEMP-RAM1-ASL DISJOINT-11~-ASL DISJOINT-11-ASL DISJOINT-9~-ASL DISJOINT-9-ASL DISJOINT-3~-ASL DISJOINT-3-ASL DISJOINT-2~-ASL DISJOINT-2-ASL HEAD-RECURSION LOGAND-UINT-LA LOGEOR-EQUAL-0 APP-HEAD-TAIL REPLACE-HEAD REPLACE-REFLEX REMAINDER-QUOTIENT-EXP2 QUOTIENT-PLUS-TIMES-EXP2-2 REMAINDER-PLUS-TIMES-EXP2-2 REMAINDER-LEQ IREMAINDER-INT-RANGEP ASR-NAT-RANGEP HEAD-LEQ ADDER-LOGNOT NAT-TO-BV-TO-NAT NAT-TO-BV-SIZED-LA0 LOG-QUOTIENT-EXP REMAINDER-REMAINDER-EXP2 QUOTIENT-TIMES-EXP2-1 REMAINDER-TIMES-EXP2-1 LESSP-PLUS-TIMES-EXP2 QUOTIENT-QUOTIENT QUOTIENT-TIMES-LESSP QUOTIENT-TIMES-CANCEL TIMES-DISTRIBUTES-REMAINDER REMAINDER-PLUS-REMAINDER2 REMAINDER-DIFFERENCE-REMAINDER1 REMAINDER-PLUS-REMAINDER1 QUOTIENT-SHRINK-FAST QUOTIENT-ADD1 REMAINDER-ADD1) EVENT (PROVE-LEMMA REMAINDER-QUOTIENT-ELIM (ELIM) (IMPLIES (AND (NOT (ZEROP Y)) (NUMBERP X)) (EQUAL (PLUS (REMAINDER X Y) (TIMES Y (QUOTIENT X Y))) X))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-ADD1 . REMAINDER-QUOTIENT-ELIM) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS . REMAINDER-QUOTIENT-ELIM) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-PLUS2 . REMAINDER-QUOTIENT-ELIM) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY1 . REMAINDER-QUOTIENT-ELIM) (IMMEDIATE-DEPENDENTS0 REMAINDER-EXIT . REMAINDER-QUOTIENT-ELIM) (IMMEDIATE-DEPENDENTS0 QUOTIENT-EXIT . REMAINDER-QUOTIENT-ELIM) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . REMAINDER-QUOTIENT-ELIM) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . REMAINDER-QUOTIENT-ELIM) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . REMAINDER-QUOTIENT-ELIM) (ELIMINATE-DESTRUCTORS-DESTS . REMAINDER) (ELIMINATE-DESTRUCTORS-SEQ . REMAINDER) (ELIMINATE-DESTRUCTORS-DESTS . QUOTIENT) (ELIMINATE-DESTRUCTORS-SEQ . QUOTIENT))))) (PUT1-LST (QUOTE REMAINDER-QUOTIENT) (QUOTE (IDATE 1000402214808 IMMEDIATE-DEPENDENTS0 (QUOTIENT-DIFF REMAINDER-DIFF) EVENT (PROVE-LEMMA REMAINDER-QUOTIENT (REWRITE) (EQUAL (PLUS (TIMES Y (QUOTIENT X Y)) (REMAINDER X Y)) (FIX X))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-ADD1 . REMAINDER-QUOTIENT) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS . REMAINDER-QUOTIENT) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-PLUS2 . REMAINDER-QUOTIENT) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY1 . REMAINDER-QUOTIENT) (IMMEDIATE-DEPENDENTS0 REMAINDER-EXIT . REMAINDER-QUOTIENT) (IMMEDIATE-DEPENDENTS0 QUOTIENT-EXIT . REMAINDER-QUOTIENT) (IMMEDIATE-DEPENDENTS0 REMAINDER-0 . REMAINDER-QUOTIENT) (IMMEDIATE-DEPENDENTS0 QUOTIENT-0 . REMAINDER-QUOTIENT) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . REMAINDER-QUOTIENT) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . REMAINDER-QUOTIENT) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . REMAINDER-QUOTIENT) (LEMMAS PLUS . REMAINDER-QUOTIENT))))) (PUT1-LST (QUOTE QUOTIENT-SUB1) (QUOTE (IDATE 1000402214808 IMMEDIATE-DEPENDENTS0 (MEM-LST-GET-VALS MEM-LST-GET-VALS0 MEM-LST-GET-LST MEM-LST-GET-LST0 LOGAND-UINT-LA) EVENT (PROVE-LEMMA QUOTIENT-SUB1 (REWRITE) (EQUAL (QUOTIENT (SUB1 M) N) (IF (EQUAL (REMAINDER M N) (QUOTE 0)) (SUB1 (QUOTIENT M N)) (QUOTIENT M N)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIFFERENCE=0 . QUOTIENT-SUB1) (IMMEDIATE-DEPENDENTS0 QUOTIENT-EQUAL-0 . QUOTIENT-SUB1) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . QUOTIENT-SUB1) (IMMEDIATE-DEPENDENTS0 PLUS-ADD1 . QUOTIENT-SUB1) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-X-X . QUOTIENT-SUB1) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-SUB1-SUB1 . QUOTIENT-SUB1) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-LESSP1 . QUOTIENT-SUB1) (IMMEDIATE-DEPENDENTS0 QUOTIENT-LEQ . QUOTIENT-SUB1) (IMMEDIATE-DEPENDENTS0 LESSP-OF-1 . QUOTIENT-SUB1) (IMMEDIATE-DEPENDENTS0 QUOTIENT-EXIT . QUOTIENT-SUB1) (IMMEDIATE-DEPENDENTS0 REMAINDER-EXIT . QUOTIENT-SUB1) (IMMEDIATE-DEPENDENTS0 QUOTIENT-0 . QUOTIENT-SUB1) (IMMEDIATE-DEPENDENTS0 REMAINDER-0 . QUOTIENT-SUB1) (LEMMAS QUOTIENT . QUOTIENT-SUB1))))) (PUT1-LST (QUOTE REMAINDER-SUB1) (QUOTE (IDATE 1000402214806 IMMEDIATE-DEPENDENTS0 (MEM-LST-GET-VALS MEM-LST-GET-VALS0 MEM-LST-GET-LST MEM-LST-GET-LST0 LOGAND-UINT-LA LOGNOT-LOGNOT REMAINDER-PLUS-CANCEL) EVENT (PROVE-LEMMA REMAINDER-SUB1 (REWRITE) (EQUAL (REMAINDER (SUB1 M) N) (IF (ZEROP N) (SUB1 M) (IF (EQUAL (REMAINDER M N) (QUOTE 0)) (IF (ZEROP M) (QUOTE 0) (SUB1 N)) (SUB1 (REMAINDER M N)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIFFERENCE-X-X . REMAINDER-SUB1) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-SUB1-SUB1 . REMAINDER-SUB1) (IMMEDIATE-DEPENDENTS0 DIFFERENCE=0 . REMAINDER-SUB1) (IMMEDIATE-DEPENDENTS0 SUB1-OF-1 . REMAINDER-SUB1) (IMMEDIATE-DEPENDENTS0 LESSP-OF-1 . REMAINDER-SUB1) (IMMEDIATE-DEPENDENTS0 REMAINDER-EXIT . REMAINDER-SUB1) (IMMEDIATE-DEPENDENTS0 REMAINDER-0 . REMAINDER-SUB1) (LEMMAS REMAINDER . REMAINDER-SUB1))))) (PUT1-LST (QUOTE QUOTIENT-DIFFERENCE-OFF) (QUOTE (IDATE 1000402214805 EVENT (TOGGLE QUOTIENT-DIFFERENCE-OFF QUOTIENT-DIFFERENCE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 QUOTIENT-DIFFERENCE . QUOTIENT-DIFFERENCE-OFF) (DISABLED-LEMMAS NIL QUOTIENT-DIFFERENCE QUOTIENT-DIFFERENCE-OFF . T))))) (PUT1-LST (QUOTE REMAINDER-DIFFERENCE-OFF) (QUOTE (IDATE 1000402214805 EVENT (TOGGLE REMAINDER-DIFFERENCE-OFF REMAINDER-DIFFERENCE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-DIFFERENCE . REMAINDER-DIFFERENCE-OFF) (DISABLED-LEMMAS NIL REMAINDER-DIFFERENCE REMAINDER-DIFFERENCE-OFF . T))))) (PUT1-LST (QUOTE QUOTIENT-DIFFERENCE-TIMES2) (QUOTE (IDATE 1000402214805 IMMEDIATE-DEPENDENTS0 (QUOTIENT-DIFF) EVENT (PROVE-LEMMA QUOTIENT-DIFFERENCE-TIMES2 (REWRITE) (EQUAL (QUOTIENT (DIFFERENCE X (TIMES Y Z)) Y) (IF (LESSP X (TIMES Y Z)) (QUOTE 0) (DIFFERENCE (QUOTIENT X Y) (FIX Z))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 QUOTIENT-0 . QUOTIENT-DIFFERENCE-TIMES2) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . QUOTIENT-DIFFERENCE-TIMES2) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . QUOTIENT-DIFFERENCE-TIMES2) (IMMEDIATE-DEPENDENTS0 REMAINDER-TIMES . QUOTIENT-DIFFERENCE-TIMES2) (IMMEDIATE-DEPENDENTS0 QUOTIENT-TIMES . QUOTIENT-DIFFERENCE-TIMES2) (IMMEDIATE-DEPENDENTS0 QUOTIENT-DIFFERENCE . QUOTIENT-DIFFERENCE-TIMES2) (LEMMAS QUOTIENT . QUOTIENT-DIFFERENCE-TIMES2))))) (PUT1-LST (QUOTE QUOTIENT-DIFFERENCE-TIMES1) (QUOTE (IDATE 1000402214805 EVENT (PROVE-LEMMA QUOTIENT-DIFFERENCE-TIMES1 (REWRITE) (EQUAL (QUOTIENT (DIFFERENCE X (TIMES Y Z)) Z) (IF (LESSP X (TIMES Y Z)) (QUOTE 0) (DIFFERENCE (QUOTIENT X Z) (FIX Y))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . QUOTIENT-DIFFERENCE-TIMES1) (IMMEDIATE-DEPENDENTS0 QUOTIENT-0 . QUOTIENT-DIFFERENCE-TIMES1) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . QUOTIENT-DIFFERENCE-TIMES1) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . QUOTIENT-DIFFERENCE-TIMES1) (IMMEDIATE-DEPENDENTS0 REMAINDER-TIMES . QUOTIENT-DIFFERENCE-TIMES1) (IMMEDIATE-DEPENDENTS0 QUOTIENT-TIMES . QUOTIENT-DIFFERENCE-TIMES1) (IMMEDIATE-DEPENDENTS0 QUOTIENT-DIFFERENCE . QUOTIENT-DIFFERENCE-TIMES1) (LEMMAS QUOTIENT . QUOTIENT-DIFFERENCE-TIMES1))))) (PUT1-LST (QUOTE QUOTIENT-DIFFERENCE) (QUOTE (IDATE 1000402214805 IMMEDIATE-DEPENDENTS0 (MEAN-DIFFERENCE-1 QUOTIENT-DIFFERENCE-OFF QUOTIENT-DIFFERENCE-TIMES2 QUOTIENT-DIFFERENCE-TIMES1) EVENT (PROVE-LEMMA QUOTIENT-DIFFERENCE (REWRITE) (IMPLIES (EQUAL (REMAINDER Y Z) (QUOTE 0)) (EQUAL (QUOTIENT (DIFFERENCE X Y) Z) (IF (LESSP X Y) (QUOTE 0) (DIFFERENCE (QUOTIENT X Z) (QUOTIENT Y Z)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIFFERENCE=0 . QUOTIENT-DIFFERENCE) (IMMEDIATE-DEPENDENTS0 QUOTIENT-LEQ . QUOTIENT-DIFFERENCE) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-DIFFERENCE2 . QUOTIENT-DIFFERENCE) (IMMEDIATE-DEPENDENTS0 REMAINDER-X-X . QUOTIENT-DIFFERENCE) (IMMEDIATE-DEPENDENTS0 QUOTIENT-X-X . QUOTIENT-DIFFERENCE) (IMMEDIATE-DEPENDENTS0 PLUS-ADD1 . QUOTIENT-DIFFERENCE) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . QUOTIENT-DIFFERENCE) (IMMEDIATE-DEPENDENTS0 QUOTIENT-DIFFERENCE-PLUS1 . QUOTIENT-DIFFERENCE) (IMMEDIATE-DEPENDENTS0 REMAINDER-EXIT . QUOTIENT-DIFFERENCE) (IMMEDIATE-DEPENDENTS0 QUOTIENT-EQUAL-0 . QUOTIENT-DIFFERENCE) (IMMEDIATE-DEPENDENTS0 QUOTIENT-EXIT . QUOTIENT-DIFFERENCE) (IMMEDIATE-DEPENDENTS0 REMAINDER-0 . QUOTIENT-DIFFERENCE) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . QUOTIENT-DIFFERENCE) (IMMEDIATE-DEPENDENTS0 QUOTIENT-0 . QUOTIENT-DIFFERENCE) (LEMMAS QUOTIENT . QUOTIENT-DIFFERENCE))))) (PUT1-LST (QUOTE QUOTIENT-DIFFERENCE-PLUS2) (QUOTE (IDATE 1000402214805 EVENT (PROVE-LEMMA QUOTIENT-DIFFERENCE-PLUS2 (REWRITE) (IMPLIES (AND (NOT (LESSP Y Z)) (EQUAL (REMAINDER X W) (QUOTE 0))) (EQUAL (QUOTIENT (DIFFERENCE (PLUS X Y) Z) W) (PLUS (QUOTIENT (DIFFERENCE Y Z) W) (QUOTIENT X W)))) ((USE (QUOTIENT-DIFFERENCE-PLUS1 (X Y) (Y X))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . QUOTIENT-DIFFERENCE-PLUS2) (IMMEDIATE-DEPENDENTS0 QUOTIENT-DIFFERENCE-PLUS1 . QUOTIENT-DIFFERENCE-PLUS2) (LEMMAS QUOTIENT . QUOTIENT-DIFFERENCE-PLUS2))))) (PUT1-LST (QUOTE QUOTIENT-DIFFERENCE-PLUS1) (QUOTE (IDATE 1000402214804 IMMEDIATE-DEPENDENTS0 (QUOTIENT-DIFFERENCE QUOTIENT-DIFFERENCE-PLUS2) EVENT (PROVE-LEMMA QUOTIENT-DIFFERENCE-PLUS1 (REWRITE) (IMPLIES (AND (NOT (LESSP X Z)) (EQUAL (REMAINDER Y W) (QUOTE 0))) (EQUAL (QUOTIENT (DIFFERENCE (PLUS X Y) Z) W) (PLUS (QUOTIENT (DIFFERENCE X Z) W) (QUOTIENT Y W))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-OF-1 . QUOTIENT-DIFFERENCE-PLUS1) (IMMEDIATE-DEPENDENTS0 REMAINDER-0 . QUOTIENT-DIFFERENCE-PLUS1) (IMMEDIATE-DEPENDENTS0 QUOTIENT-0 . QUOTIENT-DIFFERENCE-PLUS1) (IMMEDIATE-DEPENDENTS0 QUOTIENT-PLUS-ADD1 . QUOTIENT-DIFFERENCE-PLUS1) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . QUOTIENT-DIFFERENCE-PLUS1) (LEMMAS QUOTIENT . QUOTIENT-DIFFERENCE-PLUS1))))) (PUT1-LST (QUOTE QUOTIENT-PLUS-ADD1) (QUOTE (IDATE 1000402214804 IMMEDIATE-DEPENDENTS0 (QUOTIENT-ADD1 QUOTIENT-DIFFERENCE-PLUS1) EVENT (PROVE-LEMMA QUOTIENT-PLUS-ADD1 (REWRITE) (IMPLIES (EQUAL (REMAINDER I J) (QUOTE 0)) (EQUAL (QUOTIENT (ADD1 (PLUS X I)) J) (PLUS (QUOTIENT (ADD1 X) J) (QUOTIENT I J)))) ((USE (QUOTIENT-PLUS-PLUS (X (QUOTE 1)) (Y X))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . QUOTIENT-PLUS-ADD1) (IMMEDIATE-DEPENDENTS0 PLUS-ADD1 . QUOTIENT-PLUS-ADD1) (IMMEDIATE-DEPENDENTS0 QUOTIENT-PLUS-PLUS . QUOTIENT-PLUS-ADD1) (LEMMAS QUOTIENT . QUOTIENT-PLUS-ADD1))))) (PUT1-LST (QUOTE QUOTIENT-PLUS-PLUS) (QUOTE (IDATE 1000402214803 IMMEDIATE-DEPENDENTS0 (REMAINDER-QUOTIENT-EXP2 QUOTIENT-PLUS-TIMES-EXP2-2 QUOTIENT-QUOTIENT QUOTIENT-PLUS-ADD1) EVENT (PROVE-LEMMA QUOTIENT-PLUS-PLUS (REWRITE) (IMPLIES (EQUAL (REMAINDER I J) (QUOTE 0)) (EQUAL (QUOTIENT (PLUS X (PLUS Y I)) J) (PLUS (QUOTIENT (PLUS X Y) J) (QUOTIENT I J))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . QUOTIENT-PLUS-PLUS) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY1 . QUOTIENT-PLUS-PLUS) (IMMEDIATE-DEPENDENTS0 QUOTIENT-PLUS2 . QUOTIENT-PLUS-PLUS) (LEMMAS QUOTIENT . QUOTIENT-PLUS-PLUS))))) (PUT1-LST (QUOTE QUOTIENT-PLUS-TIMES2) (QUOTE (IDATE 1000402214803 IMMEDIATE-DEPENDENTS0 (QUOTIENT-TIMES-CANCEL) EVENT (PROVE-LEMMA QUOTIENT-PLUS-TIMES2 (REWRITE) (EQUAL (QUOTIENT (PLUS X (TIMES Z Y)) Y) (PLUS (QUOTIENT X Y) (IF (ZEROP Y) (QUOTE 0) (FIX Z))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . QUOTIENT-PLUS-TIMES2) (IMMEDIATE-DEPENDENTS0 QUOTIENT-0 . QUOTIENT-PLUS-TIMES2) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . QUOTIENT-PLUS-TIMES2) (IMMEDIATE-DEPENDENTS0 QUOTIENT-PLUS-TIMES1 . QUOTIENT-PLUS-TIMES2) (LEMMAS QUOTIENT . QUOTIENT-PLUS-TIMES2))))) (PUT1-LST (QUOTE QUOTIENT-PLUS-TIMES1) (QUOTE (IDATE 1000402214803 IMMEDIATE-DEPENDENTS0 (BCDR-2 REPLACE-ASSOCIATIVITY BV-TO-NAT-TO-BV QUOTIENT-PLUS-TIMES2) EVENT (PROVE-LEMMA QUOTIENT-PLUS-TIMES1 (REWRITE) (EQUAL (QUOTIENT (PLUS X (TIMES Y Z)) Y) (PLUS (QUOTIENT X Y) (IF (ZEROP Y) (QUOTE 0) (FIX Z))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-TIMES . QUOTIENT-PLUS-TIMES1) (IMMEDIATE-DEPENDENTS0 QUOTIENT-TIMES . QUOTIENT-PLUS-TIMES1) (IMMEDIATE-DEPENDENTS0 QUOTIENT-PLUS1 . QUOTIENT-PLUS-TIMES1) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-EQUAL-PLUS . QUOTIENT-PLUS-TIMES1) (LEMMAS QUOTIENT . QUOTIENT-PLUS-TIMES1))))) (PUT1-LST (QUOTE QUOTIENT-TIMES) (QUOTE (IDATE 1000402214803 IMMEDIATE-DEPENDENTS0 (MEAN-DIFFERENCE-2 MEAN-DIFFERENCE-1 BCDR-1 BV-TO-NAT-TO-BV NAT-TO-BV-SIZED-LA0 LOG-TIMES-EXP-1 LOG-TIMES-EXP LOG-EXP QUOTIENT-TIMES-EXP2-4 QUOTIENT-TIMES-EXP2-3 QUOTIENT-TIMES-EXP2-1 QUOTIENT-QUOTIENT QUOTIENT-ADD1 QUOTIENT-DIFFERENCE-TIMES2 QUOTIENT-DIFFERENCE-TIMES1 QUOTIENT-PLUS-TIMES1) EVENT (PROVE-LEMMA QUOTIENT-TIMES (REWRITE) (AND (EQUAL (QUOTIENT (TIMES X Y) Y) (IF (ZEROP Y) (QUOTE 0) (FIX X))) (EQUAL (QUOTIENT (TIMES Y X) Y) (IF (ZEROP Y) (QUOTE 0) (FIX X)))) ((INDUCT (TIMES X Y)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-ADD1 . QUOTIENT-TIMES) (IMMEDIATE-DEPENDENTS0 REMAINDER-X-X . QUOTIENT-TIMES) (IMMEDIATE-DEPENDENTS0 QUOTIENT-X-X . QUOTIENT-TIMES) (IMMEDIATE-DEPENDENTS0 PLUS-ADD1 . QUOTIENT-TIMES) (IMMEDIATE-DEPENDENTS0 QUOTIENT-PLUS2 . QUOTIENT-TIMES) (IMMEDIATE-DEPENDENTS0 SUB1-OF-1 . QUOTIENT-TIMES) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . QUOTIENT-TIMES) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-LESSP-TIMES . QUOTIENT-TIMES) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . QUOTIENT-TIMES) (IMMEDIATE-DEPENDENTS0 QUOTIENT-0 . QUOTIENT-TIMES) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . QUOTIENT-TIMES) (LEMMAS QUOTIENT . QUOTIENT-TIMES) (LEMMAS QUOTIENT . QUOTIENT-TIMES))))) (PUT1-LST (QUOTE QUOTIENT-PLUS2) (QUOTE (IDATE 1000402214803 IMMEDIATE-DEPENDENTS0 (MEM-LST-GET-VALS MEM-LST-GET-LST QUOTIENT-DIFF-LA QUOTIENT-PLUS-PLUS QUOTIENT-TIMES) EVENT (PROVE-LEMMA QUOTIENT-PLUS2 (REWRITE) (IMPLIES (EQUAL (REMAINDER I J) (QUOTE 0)) (EQUAL (QUOTIENT (PLUS I X) J) (PLUS (QUOTIENT I J) (QUOTIENT X J)))) ((USE (QUOTIENT-PLUS1)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . QUOTIENT-PLUS2) (IMMEDIATE-DEPENDENTS0 QUOTIENT-PLUS1 . QUOTIENT-PLUS2) (LEMMAS QUOTIENT . QUOTIENT-PLUS2))))) (PUT1-LST (QUOTE QUOTIENT-PLUS1) (QUOTE (IDATE 1000402214803 IMMEDIATE-DEPENDENTS0 (QUOTIENT-PLUS-TIMES-EXP2-1 QUOTIENT-PLUS-TIMES1 QUOTIENT-PLUS2) EVENT (PROVE-LEMMA QUOTIENT-PLUS1 (REWRITE) (IMPLIES (EQUAL (REMAINDER I J) (QUOTE 0)) (EQUAL (QUOTIENT (PLUS X I) J) (PLUS (QUOTIENT X J) (QUOTIENT I J))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIFFERENCE-PLUS1 . QUOTIENT-PLUS1) (IMMEDIATE-DEPENDENTS0 PLUS-ADD1-1 . QUOTIENT-PLUS1) (IMMEDIATE-DEPENDENTS0 REMAINDER-EXIT . QUOTIENT-PLUS1) (IMMEDIATE-DEPENDENTS0 QUOTIENT-EXIT . QUOTIENT-PLUS1) (IMMEDIATE-DEPENDENTS0 REMAINDER-0 . QUOTIENT-PLUS1) (IMMEDIATE-DEPENDENTS0 QUOTIENT-0 . QUOTIENT-PLUS1) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . QUOTIENT-PLUS1) (LEMMAS QUOTIENT . QUOTIENT-PLUS1))))) (PUT1-LST (QUOTE REMAINDER-DIFFERENCE-TIMES2) (QUOTE (IDATE 1000402214803 IMMEDIATE-DEPENDENTS0 (REMAINDER-DIFF) EVENT (PROVE-LEMMA REMAINDER-DIFFERENCE-TIMES2 (REWRITE) (EQUAL (REMAINDER (DIFFERENCE X (TIMES Y Z)) Y) (IF (LESSP X (TIMES Y Z)) (QUOTE 0) (REMAINDER X Y)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-TIMES . REMAINDER-DIFFERENCE-TIMES2) (IMMEDIATE-DEPENDENTS0 REMAINDER-DIFFERENCE . REMAINDER-DIFFERENCE-TIMES2) (LEMMAS REMAINDER . REMAINDER-DIFFERENCE-TIMES2))))) (PUT1-LST (QUOTE REMAINDER-DIFFERENCE-TIMES1) (QUOTE (IDATE 1000402214803 EVENT (PROVE-LEMMA REMAINDER-DIFFERENCE-TIMES1 (REWRITE) (EQUAL (REMAINDER (DIFFERENCE X (TIMES Y Z)) Z) (IF (LESSP X (TIMES Y Z)) (QUOTE 0) (REMAINDER X Z)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-TIMES . REMAINDER-DIFFERENCE-TIMES1) (IMMEDIATE-DEPENDENTS0 REMAINDER-DIFFERENCE . REMAINDER-DIFFERENCE-TIMES1) (LEMMAS REMAINDER . REMAINDER-DIFFERENCE-TIMES1))))) (PUT1-LST (QUOTE REMAINDER-DIFFERENCE) (QUOTE (IDATE 1000402214803 IMMEDIATE-DEPENDENTS0 (REMAINDER-DIFFERENCE-OFF REMAINDER-DIFFERENCE-TIMES2 REMAINDER-DIFFERENCE-TIMES1) EVENT (PROVE-LEMMA REMAINDER-DIFFERENCE (REWRITE) (IMPLIES (EQUAL (REMAINDER Y Z) (QUOTE 0)) (EQUAL (REMAINDER (DIFFERENCE X Y) Z) (IF (LESSP X Y) (QUOTE 0) (REMAINDER X Z))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIFFERENCE-DIFFERENCE2 . REMAINDER-DIFFERENCE) (IMMEDIATE-DEPENDENTS0 REMAINDER-X-X . REMAINDER-DIFFERENCE) (IMMEDIATE-DEPENDENTS0 REMAINDER-PLUS-DIFFERENCE1 . REMAINDER-DIFFERENCE) (IMMEDIATE-DEPENDENTS0 REMAINDER-EXIT . REMAINDER-DIFFERENCE) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . REMAINDER-DIFFERENCE) (IMMEDIATE-DEPENDENTS0 REMAINDER-0 . REMAINDER-DIFFERENCE) (LEMMAS REMAINDER . REMAINDER-DIFFERENCE))))) (PUT1-LST (QUOTE REMAINDER-PLUS-PLUS-TIMES2) (QUOTE (IDATE 1000402214802 IMMEDIATE-DEPENDENTS0 (REMAINDER-PLUS-TIMES-EXP2-2 ADDER-LOGNOT REMAINDER-PLUS-REMAINDER1) EVENT (PROVE-LEMMA REMAINDER-PLUS-PLUS-TIMES2 (REWRITE) (EQUAL (REMAINDER (PLUS X (PLUS W (TIMES Z Y))) Y) (REMAINDER (PLUS X W) Y))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . REMAINDER-PLUS-PLUS-TIMES2) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY1 . REMAINDER-PLUS-PLUS-TIMES2) (IMMEDIATE-DEPENDENTS0 REMAINDER-PLUS-PLUS-TIMES1 . REMAINDER-PLUS-PLUS-TIMES2) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . REMAINDER-PLUS-PLUS-TIMES2) (LEMMAS REMAINDER . REMAINDER-PLUS-PLUS-TIMES2))))) (PUT1-LST (QUOTE REMAINDER-PLUS-PLUS-TIMES1) (QUOTE (IDATE 1000402214802 IMMEDIATE-DEPENDENTS0 (REMAINDER-REMAINDER REMAINDER-PLUS-PLUS-TIMES2) EVENT (PROVE-LEMMA REMAINDER-PLUS-PLUS-TIMES1 (REWRITE) (EQUAL (REMAINDER (PLUS X (PLUS W (TIMES Y Z))) Y) (REMAINDER (PLUS X W) Y))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY1 . REMAINDER-PLUS-PLUS-TIMES1) (IMMEDIATE-DEPENDENTS0 REMAINDER-TIMES . REMAINDER-PLUS-PLUS-TIMES1) (IMMEDIATE-DEPENDENTS0 REMAINDER-PLUS-PLUS . REMAINDER-PLUS-PLUS-TIMES1) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . REMAINDER-PLUS-PLUS-TIMES1) (LEMMAS REMAINDER . REMAINDER-PLUS-PLUS-TIMES1))))) (PUT1-LST (QUOTE REMAINDER-PLUS-DIFFERENCE2) (QUOTE (IDATE 1000402214802 IMMEDIATE-DEPENDENTS0 (PLUS-TO-IPLUS) EVENT (PROVE-LEMMA REMAINDER-PLUS-DIFFERENCE2 (REWRITE) (IMPLIES (AND (NOT (LESSP Y Z)) (EQUAL (REMAINDER X W) (QUOTE 0))) (EQUAL (REMAINDER (DIFFERENCE (PLUS X Y) Z) W) (REMAINDER (DIFFERENCE Y Z) W)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIFFERENCE-PLUS1 . REMAINDER-PLUS-DIFFERENCE2) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-DIFFERENCE1 . REMAINDER-PLUS-DIFFERENCE2) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . REMAINDER-PLUS-DIFFERENCE2) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . REMAINDER-PLUS-DIFFERENCE2) (IMMEDIATE-DEPENDENTS0 REMAINDER-EXIT . REMAINDER-PLUS-DIFFERENCE2) (IMMEDIATE-DEPENDENTS0 REMAINDER-0 . REMAINDER-PLUS-DIFFERENCE2) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-EQUAL-CANCEL-1 . REMAINDER-PLUS-DIFFERENCE2) (LEMMAS REMAINDER . REMAINDER-PLUS-DIFFERENCE2))))) (PUT1-LST (QUOTE REMAINDER-PLUS-DIFFERENCE1) (QUOTE (IDATE 1000402214802 IMMEDIATE-DEPENDENTS0 (REMAINDER-DIFFERENCE) EVENT (PROVE-LEMMA REMAINDER-PLUS-DIFFERENCE1 (REWRITE) (IMPLIES (AND (NOT (LESSP X Z)) (EQUAL (REMAINDER Y W) (QUOTE 0))) (EQUAL (REMAINDER (DIFFERENCE (PLUS X Y) Z) W) (REMAINDER (DIFFERENCE X Z) W)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-OF-1 . REMAINDER-PLUS-DIFFERENCE1) (IMMEDIATE-DEPENDENTS0 REMAINDER-0 . REMAINDER-PLUS-DIFFERENCE1) (IMMEDIATE-DEPENDENTS0 REMAINDER-PLUS-ADD1 . REMAINDER-PLUS-DIFFERENCE1) (LEMMAS REMAINDER . REMAINDER-PLUS-DIFFERENCE1))))) (PUT1-LST (QUOTE REMAINDER-PLUS-ADD1) (QUOTE (IDATE 1000402214802 IMMEDIATE-DEPENDENTS0 (ADDER-INT-BRIDGE REMAINDER-ADD1 REMAINDER-PLUS-DIFFERENCE1) EVENT (PROVE-LEMMA REMAINDER-PLUS-ADD1 (REWRITE) (IMPLIES (EQUAL (REMAINDER I J) (QUOTE 0)) (EQUAL (REMAINDER (ADD1 (PLUS X I)) J) (REMAINDER (ADD1 X) J))) ((USE (REMAINDER-PLUS-PLUS (X (QUOTE 1)) (Y X))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . REMAINDER-PLUS-ADD1) (IMMEDIATE-DEPENDENTS0 PLUS-ADD1 . REMAINDER-PLUS-ADD1) (IMMEDIATE-DEPENDENTS0 REMAINDER-PLUS-PLUS . REMAINDER-PLUS-ADD1) (LEMMAS REMAINDER . REMAINDER-PLUS-ADD1))))) (PUT1-LST (QUOTE REMAINDER-PLUS-PLUS) (QUOTE (IDATE 1000402214802 IMMEDIATE-DEPENDENTS0 (HEAD-RECURSION REMAINDER-REMAINDER-EXP2 REMAINDER-PLUS-REMAINDER2 REMAINDER-PLUS-PLUS-TIMES1 REMAINDER-PLUS-ADD1) EVENT (PROVE-LEMMA REMAINDER-PLUS-PLUS (REWRITE) (IMPLIES (EQUAL (REMAINDER I J) (QUOTE 0)) (EQUAL (REMAINDER (PLUS X (PLUS Y I)) J) (REMAINDER (PLUS X Y) J)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . REMAINDER-PLUS-PLUS) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY1 . REMAINDER-PLUS-PLUS) (IMMEDIATE-DEPENDENTS0 REMAINDER-PLUS2 . REMAINDER-PLUS-PLUS) (LEMMAS REMAINDER . REMAINDER-PLUS-PLUS))))) (PUT1-LST (QUOTE REMAINDER-PLUS-TIMES2) (QUOTE (IDATE 1000402214802 IMMEDIATE-DEPENDENTS0 (NAT-TO-BV-SIZED-LA0 REMAINDER-REMAINDER-EXP2 TIMES-DISTRIBUTES-REMAINDER) EVENT (PROVE-LEMMA REMAINDER-PLUS-TIMES2 (REWRITE) (EQUAL (REMAINDER (PLUS X (TIMES Z Y)) Y) (REMAINDER X Y))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . REMAINDER-PLUS-TIMES2) (IMMEDIATE-DEPENDENTS0 REMAINDER-PLUS-TIMES1 . REMAINDER-PLUS-TIMES2) (LEMMAS REMAINDER . REMAINDER-PLUS-TIMES2))))) (PUT1-LST (QUOTE REMAINDER-PLUS-TIMES1) (QUOTE (IDATE 1000402214802 IMMEDIATE-DEPENDENTS0 (BCAR-2 REPLACE-ASSOCIATIVITY BV-TO-NAT-TO-BV REMAINDER-PLUS-TIMES2) EVENT (PROVE-LEMMA REMAINDER-PLUS-TIMES1 (REWRITE) (EQUAL (REMAINDER (PLUS X (TIMES Y Z)) Y) (REMAINDER X Y))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-TIMES . REMAINDER-PLUS-TIMES1) (IMMEDIATE-DEPENDENTS0 REMAINDER-PLUS1 . REMAINDER-PLUS-TIMES1) (LEMMAS REMAINDER . REMAINDER-PLUS-TIMES1))))) (PUT1-LST (QUOTE REMAINDER-TIMES) (QUOTE (IDATE 1000402214802 IMMEDIATE-DEPENDENTS0 (REMAINDER-REMAINDER MEAN-DIFFERENCE-2 MEAN-DIFFERENCE-1 BCDR-1 BCAR-1 QUOTIENT-DIFF ASL-INT-CROCK2 BV-BITN-BITN BV-TO-NAT-TO-BV NAT-TO-BV-SIZED-LA0 QUOTIENT-QUOTIENT QUOTIENT-ADD1 REMAINDER-ADD1 QUOTIENT-DIFFERENCE-TIMES2 QUOTIENT-DIFFERENCE-TIMES1 QUOTIENT-PLUS-TIMES1 REMAINDER-DIFFERENCE-TIMES2 REMAINDER-DIFFERENCE-TIMES1 REMAINDER-PLUS-PLUS-TIMES1 REMAINDER-PLUS-TIMES1) EVENT (PROVE-LEMMA REMAINDER-TIMES (REWRITE) (AND (EQUAL (REMAINDER (TIMES X Y) Y) (QUOTE 0)) (EQUAL (REMAINDER (TIMES Y X) Y) (QUOTE 0))) ((INDUCT (TIMES X Y)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-ADD1 . REMAINDER-TIMES) (IMMEDIATE-DEPENDENTS0 REMAINDER-X-X . REMAINDER-TIMES) (IMMEDIATE-DEPENDENTS0 REMAINDER-PLUS2 . REMAINDER-TIMES) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . REMAINDER-TIMES) (IMMEDIATE-DEPENDENTS0 REMAINDER-0 . REMAINDER-TIMES) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . REMAINDER-TIMES) (LEMMAS REMAINDER . REMAINDER-TIMES) (LEMMAS REMAINDER . REMAINDER-TIMES))))) (PUT1-LST (QUOTE REMAINDER-PLUS2) (QUOTE (IDATE 1000402214802 IMMEDIATE-DEPENDENTS0 (MEM-LST-GET-VALS MEM-LST-GET-LST LOGAND-UINT-LA REMAINDER-PLUS-TIMES-EXP2-2 ADDER-INT-BRIDGE SUB-LEQ-LA ADD-OF-0 SUBTRACTER-NAT-LA REMAINDER-DIFF-LA ADDER-LOGNOT ADD-EVENP NAT-TO-BV-SIZED-LA0 REMAINDER-PLUS-PLUS REMAINDER-TIMES) EVENT (PROVE-LEMMA REMAINDER-PLUS2 (REWRITE) (IMPLIES (EQUAL (REMAINDER I J) (QUOTE 0)) (EQUAL (REMAINDER (PLUS I X) J) (REMAINDER X J)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIFFERENCE-PLUS1 . REMAINDER-PLUS2) (IMMEDIATE-DEPENDENTS0 REMAINDER-EXIT . REMAINDER-PLUS2) (IMMEDIATE-DEPENDENTS0 REMAINDER-0 . REMAINDER-PLUS2) (LEMMAS REMAINDER . REMAINDER-PLUS2))))) (PUT1-LST (QUOTE REMAINDER-PLUS1) (QUOTE (IDATE 1000402214802 IMMEDIATE-DEPENDENTS0 (HEAD-RECURSION REMAINDER-PLUS-TIMES-EXP2-2 REMAINDER2-PLUS-TIMES-EXP2 REMAINDER-PLUS-TIMES-EXP2-1 HEAD-PLUS-CANCEL0 ADDER-INT-BRIDGE ADDER-LOGNOT REMAINDER-REMAINDER-EXP2 REMAINDER-PLUS-CANCEL0 REMAINDER-PLUS-REMAINDER2 REMAINDER-PLUS-REMAINDER1 REMAINDER-PLUS-TIMES1) EVENT (PROVE-LEMMA REMAINDER-PLUS1 (REWRITE) (IMPLIES (EQUAL (REMAINDER I J) (QUOTE 0)) (EQUAL (REMAINDER (PLUS X I) J) (REMAINDER X J)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIFFERENCE-PLUS1 . REMAINDER-PLUS1) (IMMEDIATE-DEPENDENTS0 REMAINDER-EXIT . REMAINDER-PLUS1) (IMMEDIATE-DEPENDENTS0 REMAINDER-0 . REMAINDER-PLUS1) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . REMAINDER-PLUS1) (LEMMAS REMAINDER . REMAINDER-PLUS1))))) (PUT1-LST (QUOTE REMAINDER-WRT-2) (QUOTE (IDATE 1000402214802 IMMEDIATE-DEPENDENTS0 (MEAN-DIFFERENCE-2 LSR-1-BCS&CC LOGEOR-EQUAL-0 BV-MBIT-BITN BV-BITN-BITN NAT-TO-BV-TO-NAT NAT-TO-BV-SIZED-HEAD REMAINDER-TIMES-EXP2-3) EVENT (PROVE-LEMMA REMAINDER-WRT-2 (REWRITE) (LESSP (REMAINDER N (QUOTE 2)) (QUOTE 2))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-LESSP . REMAINDER-WRT-2) (LINEAR-LEMMAS REMAINDER . REMAINDER-WRT-2))))) (PUT1-LST (QUOTE QUOTIENT-LEQ) (QUOTE (IDATE 1000402214802 IMMEDIATE-DEPENDENTS0 (QUOTIENT-NAT-RANGEP LOGEOR-COMMUTATIVITY LOGEOR-EQUAL-0 QUOT-NAT IQUOTIENT-INT-RANGEP ASR-NAT-RANGEP LSR-NAT-RANGEP ASR-INT QUOTIENT-DIFF-LA TAIL-LEQ LOGEOR QUOTIENT-SUB1 QUOTIENT-DIFFERENCE) EVENT (PROVE-LEMMA QUOTIENT-LEQ (REWRITE) (NOT (LESSP I (QUOTIENT I J)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 QUOTIENT-EXIT . QUOTIENT-LEQ) (IMMEDIATE-DEPENDENTS0 QUOTIENT-0 . QUOTIENT-LEQ) (LINEAR-LEMMAS QUOTIENT . QUOTIENT-LEQ))))) (PUT1-LST (QUOTE QUOTIENT-LESSP-LINEAR) (QUOTE (IDATE 1000402214801 IMMEDIATE-DEPENDENTS0 (LOGEOR-COMMUTATIVITY LOGEOR-EQUAL-0 LOGEOR) EVENT (PROVE-LEMMA QUOTIENT-LESSP-LINEAR (REWRITE) (IMPLIES (AND (NOT (ZEROP X)) (LESSP (QUOTE 1) Y)) (LESSP (QUOTIENT X Y) X))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 QUOTIENT-LESSP . QUOTIENT-LESSP-LINEAR) (LINEAR-LEMMAS QUOTIENT . QUOTIENT-LESSP-LINEAR))))) (PUT1-LST (QUOTE REMAINDER-LESSP-LINEAR) (QUOTE (IDATE 1000402214801 IMMEDIATE-DEPENDENTS0 (GCD-T1-T2 GCD-T2-UB GCD-T2 GCD-IS-CD GCD-INDUCT GCD-T1 GCD S&R-GROUP-H HEAD-APP-HEAD-TAIL APP-HEAD-TAIL APP-ASSOCIATIVITY REPLACE-LEQ1 TAIL-REPLACE TAIL-APP HEAD-REPLACE REMAINDER-QUOTIENT-EXP2 HEAD-PLUS-CANCEL0 ADDER-INT-BRIDGE ADD-NEG-ADDER SUB-ADDER SUB-NAT-RANGEP SUB-LEQ-LA SUB-X-X REM-NAT IREMAINDER-INT-RANGEP REMAINDER-INT-RANGEP ASR-INT DIFFERENCE-APP-1S REMAINDER-DIFF QUOTIENT-DIFF-LA ASL-INT-CROCK1 HEAD-LEQ ADDER-LOGNOT LOGNOT-LOGNOT LOGNOT-NAT-RANGEP BV-ADDER-NAT BV-NOT-LOGNOT NAT-TO-BV-SIZED-SIZED-TO-NAT QUOTIENT-DISTRIBUTES-TIMES2-ADD1 REMAINDER-DISTRIBUTES-TIMES2-ADD1) EVENT (PROVE-LEMMA REMAINDER-LESSP-LINEAR (REWRITE) (IMPLIES (NOT (ZEROP Y)) (LESSP (REMAINDER X Y) Y))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-LESSP . REMAINDER-LESSP-LINEAR) (LINEAR-LEMMAS REMAINDER . REMAINDER-LESSP-LINEAR))))) (PUT1-LST (QUOTE QUOTIENT-LESSP) (QUOTE (IDATE 1000402214801 IMMEDIATE-DEPENDENTS0 (QUOTIENT-LESSP-LINEAR) EVENT (PROVE-LEMMA QUOTIENT-LESSP (REWRITE) (EQUAL (LESSP (QUOTIENT M N) M) (AND (NOT (ZEROP M)) (OR (ZEROP N) (NOT (EQUAL N (QUOTE 1))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIFFERENCE=0 . QUOTIENT-LESSP) (IMMEDIATE-DEPENDENTS0 QUOTIENT-EQUAL-0 . QUOTIENT-LESSP) (IMMEDIATE-DEPENDENTS0 SUB1-OF-1 . QUOTIENT-LESSP) (IMMEDIATE-DEPENDENTS0 QUOTIENT-EXIT . QUOTIENT-LESSP) (IMMEDIATE-DEPENDENTS0 QUOTIENT-1 . QUOTIENT-LESSP) (IMMEDIATE-DEPENDENTS0 QUOTIENT-0 . QUOTIENT-LESSP) (LEMMAS LESSP . QUOTIENT-LESSP))))) (PUT1-LST (QUOTE REMAINDER-LESSP) (QUOTE (IDATE 1000402214801 IMMEDIATE-DEPENDENTS0 (REMAINDER-SHRINK-HALF REMAINDER-REMAINDER WRITE-MEMP-RAM1-ASL READ-MEMP-ROM1-ASL READ-MEMP-RAM1-ASL DISJOINT-11~-ASL DISJOINT-11-ASL DISJOINT-9~-ASL DISJOINT-9-ASL DISJOINT-3~-ASL DISJOINT-3-ASL DISJOINT-2~-ASL DISJOINT-2-ASL HEAD-RECURSION LOGAND-UINT-LA LOGEOR-EQUAL-0 APP-HEAD-TAIL BCAR-LESSP REPLACE-HEAD REPLACE-REFLEX REMAINDER-QUOTIENT-EXP2 QUOTIENT-PLUS-TIMES-EXP2-2 REMAINDER-PLUS-TIMES-EXP2-2 ADD-NEG-ADDER ADD-NAT-RANGEP ADDER-NAT-RANGEP REMAINDER-LEQ IREMAINDER-INT-RANGEP ASR-NAT-RANGEP ASL-NAT-RANGEP LSL-NAT-RANGEP ASR-INT QUOTIENT-DIFF REMAINDER-DIFF HEAD-LEQ HEAD-LESSP ADDER-LOGNOT LOGNOT-LOGNOT BV-NOT-LOGNOT NAT-TO-BV-TO-NAT NAT-TO-BV-SIZED-LA0 LOG-QUOTIENT-EXP REMAINDER-REMAINDER-EXP2 QUOTIENT-TIMES-EXP2-1 REMAINDER-TIMES-EXP2-1 LESSP-PLUS-TIMES-EXP2 QUOTIENT-QUOTIENT QUOTIENT-TIMES-LESSP REMAINDER-PLUS-CANCEL0 QUOTIENT-TIMES-CANCEL TIMES-DISTRIBUTES-REMAINDER REMAINDER-PLUS-REMAINDER2 REMAINDER-DIFFERENCE-REMAINDER1 REMAINDER-PLUS-REMAINDER1 QUOTIENT-SHRINK-FAST QUOTIENT-ADD1 REMAINDER-ADD1 REMAINDER-WRT-2 REMAINDER-LESSP-LINEAR) EVENT (PROVE-LEMMA REMAINDER-LESSP (REWRITE GENERALIZE) (EQUAL (LESSP (REMAINDER X Y) Y) (NOT (ZEROP Y)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-EXIT . REMAINDER-LESSP) (IMMEDIATE-DEPENDENTS0 REMAINDER-0 . REMAINDER-LESSP) (GENERALIZE-LEMMAS NIL . REMAINDER-LESSP) (LEMMAS LESSP . REMAINDER-LESSP))))) (PUT1-LST (QUOTE QUOTIENT-GENERALIZE-OFF) (QUOTE (IDATE 1000402214801 EVENT (TOGGLE QUOTIENT-GENERALIZE-OFF QUOTIENT-GENERALIZE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 QUOTIENT-GENERALIZE . QUOTIENT-GENERALIZE-OFF) (DISABLED-LEMMAS NIL QUOTIENT-GENERALIZE QUOTIENT-GENERALIZE-OFF . T))))) (PUT1-LST (QUOTE QUOTIENT-GENERALIZE) (QUOTE (IDATE 1000402214801 IMMEDIATE-DEPENDENTS0 (REMAINDER-SHRINK-HALF QUOTIENT-GENERALIZE-OFF) EVENT (PROVE-LEMMA QUOTIENT-GENERALIZE (GENERALIZE) (EQUAL (EQUAL (QUOTIENT M N) (QUOTE 0)) (IF (OR (ZEROP M) (ZEROP N)) (QUOTE *1*TRUE) (LESSP M N)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 QUOTIENT-EQUAL-0 . QUOTIENT-GENERALIZE) (GENERALIZE-LEMMAS NIL . QUOTIENT-GENERALIZE))))) (PUT1-LST (QUOTE QUOTIENT-2X-ADD1) (QUOTE (IDATE 1000402214801 EVENT (PROVE-LEMMA QUOTIENT-2X-ADD1 (REWRITE) (EQUAL (QUOTIENT (PLUS X (ADD1 X)) (QUOTE 2)) (FIX X))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . QUOTIENT-2X-ADD1) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-SUB1 . QUOTIENT-2X-ADD1) (IMMEDIATE-DEPENDENTS0 LESSP-OF-1 . QUOTIENT-2X-ADD1) (IMMEDIATE-DEPENDENTS0 PLUS-ADD1-1 . QUOTIENT-2X-ADD1) (LEMMAS QUOTIENT . QUOTIENT-2X-ADD1))))) (PUT1-LST (QUOTE REMAINDER-2X-ADD1) (QUOTE (IDATE 1000402214801 EVENT (PROVE-LEMMA REMAINDER-2X-ADD1 (REWRITE) (EQUAL (REMAINDER (PLUS X (ADD1 X)) (QUOTE 2)) (QUOTE 1))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . REMAINDER-2X-ADD1) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-SUB1 . REMAINDER-2X-ADD1) (IMMEDIATE-DEPENDENTS0 LESSP-OF-1 . REMAINDER-2X-ADD1) (IMMEDIATE-DEPENDENTS0 PLUS-ADD1-1 . REMAINDER-2X-ADD1) (LEMMAS REMAINDER . REMAINDER-2X-ADD1))))) (PUT1-LST (QUOTE QUOTIENT-2X) (QUOTE (IDATE 1000402214801 EVENT (PROVE-LEMMA QUOTIENT-2X (REWRITE) (EQUAL (QUOTIENT (PLUS X X) (QUOTE 2)) (FIX X))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . QUOTIENT-2X) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-SUB1 . QUOTIENT-2X) (IMMEDIATE-DEPENDENTS0 LESSP-OF-1 . QUOTIENT-2X) (LEMMAS QUOTIENT . QUOTIENT-2X))))) (PUT1-LST (QUOTE REMAINDER-2X) (QUOTE (IDATE 1000402214801 EVENT (PROVE-LEMMA REMAINDER-2X (REWRITE) (EQUAL (REMAINDER (PLUS X X) (QUOTE 2)) (QUOTE 0))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . REMAINDER-2X) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-SUB1 . REMAINDER-2X) (IMMEDIATE-DEPENDENTS0 LESSP-OF-1 . REMAINDER-2X) (LEMMAS REMAINDER . REMAINDER-2X))))) (PUT1-LST (QUOTE QUOTIENT-EQUAL-0) (QUOTE (IDATE 1000402214801 IMMEDIATE-DEPENDENTS0 (MEAN-DIFFERENCE-2 MEAN-DIFFERENCE-1 WRITE-MEMP-RAM1-ASL READ-MEMP-ROM1-ASL READ-MEMP-RAM1-ASL DISJOINT-11~-ASL DISJOINT-11-ASL DISJOINT-9~-ASL DISJOINT-9-ASL DISJOINT-3~-ASL DISJOINT-3-ASL DISJOINT-2~-ASL DISJOINT-2-ASL ASR-BMI ASR-BEQ IQUOTIENT=0 DIVU-BEQ LOGEOR-EQUAL-0 LOGOR-EQUAL-0 BCDR-NONNUMBERP QUOTIENT-PLUS-TIMES-EXP2-2 IQUOTIENT-INTEGERP IQUOTIENT-INT-RANGEP QUOTIENT-DIFF TAIL-LEMMA TAIL-EQUAL-0 QUOTIENT-TIMES-EXP2-4 QUOTIENT-EXP QUOTIENT-CROCK QUOTIENT-SUB1 QUOTIENT-DIFFERENCE QUOTIENT-LESSP QUOTIENT-GENERALIZE) EVENT (PROVE-LEMMA QUOTIENT-EQUAL-0 (REWRITE) (EQUAL (EQUAL (QUOTIENT M N) (QUOTE 0)) (OR (ZEROP M) (OR (ZEROP N) (LESSP M N))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIFFERENCE-X-X . QUOTIENT-EQUAL-0) (IMMEDIATE-DEPENDENTS0 QUOTIENT-X-X . QUOTIENT-EQUAL-0) (IMMEDIATE-DEPENDENTS0 QUOTIENT-EXIT . QUOTIENT-EQUAL-0) (IMMEDIATE-DEPENDENTS0 QUOTIENT-0 . QUOTIENT-EQUAL-0) (LEMMAS EQUAL . QUOTIENT-EQUAL-0))))) (PUT1-LST (QUOTE QUOTIENT-X-X) (QUOTE (IDATE 1000402214801 IMMEDIATE-DEPENDENTS0 (QUOTIENT-EXP QUOTIENT-ADD1 QUOTIENT-DIFFERENCE QUOTIENT-TIMES QUOTIENT-EQUAL-0) EVENT (PROVE-LEMMA QUOTIENT-X-X (REWRITE) (EQUAL (QUOTIENT X X) (IF (ZEROP X) (QUOTE 0) (QUOTE 1)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 QUOTIENT-0 . QUOTIENT-X-X) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-X-X . QUOTIENT-X-X) (LEMMAS QUOTIENT . QUOTIENT-X-X))))) (PUT1-LST (QUOTE REMAINDER-X-X) (QUOTE (IDATE 1000402214801 IMMEDIATE-DEPENDENTS0 (GCD-T1-T2 GCD-IS-CD SUB-LEQ-LA REMAINDER-ADD1 QUOTIENT-DIFFERENCE QUOTIENT-TIMES REMAINDER-DIFFERENCE REMAINDER-TIMES) EVENT (PROVE-LEMMA REMAINDER-X-X (REWRITE) (EQUAL (REMAINDER X X) (QUOTE 0))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-0 . REMAINDER-X-X) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-X-X . REMAINDER-X-X) (LEMMAS REMAINDER . REMAINDER-X-X))))) (PUT1-LST (QUOTE QUOTIENT-1) (QUOTE (IDATE 1000402214801 IMMEDIATE-DEPENDENTS0 (READ-MEM-ILST-ASL READ-MEM-LST-ASL MEM-LST-GET-VALS MEM-LST-GET-VALS0 MEM-LST-GET-LST MEM-LST-GET-LST0 MBIT-MEANS-NEGATIVEP TAIL-MBIT HEAD-RECURSION BCAR-REPLACE REPLACE-LEQ1 TAIL-REPLACE REMAINDER-QUOTIENT-EXP2 QUOTIENT-PLUS-TIMES-EXP2-2 IQUOTIENT-WRT--1 IQUOTIENT-WRT-1 IQUOTIENT-INT-RANGEP MBIT-MEANS-LESSP ASR-NAT-RANGEP LSR-0 ASR-INT-CROCK TAIL-OF-0 BV-BITN-BITN LOG-QUOTIENT-EXP QUOTIENT-TIMES-EXP2-1 QUOTIENT-EXP QUOTIENT-ADD1 QUOTIENT-LESSP) EVENT (PROVE-LEMMA QUOTIENT-1 (REWRITE) (AND (EQUAL (QUOTIENT (QUOTE 1) X) (IF (EQUAL X (QUOTE 1)) (QUOTE 1) (QUOTE 0))) (EQUAL (QUOTIENT M (QUOTE 1)) (FIX M))) ((EXPAND (QUOTIENT (QUOTE 1) X)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIFFERENCE-SUB1 . QUOTIENT-1) (IMMEDIATE-DEPENDENTS0 QUOTIENT-EXIT . QUOTIENT-1) (IMMEDIATE-DEPENDENTS0 LESSP-OF-1 . QUOTIENT-1) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . QUOTIENT-1) (IMMEDIATE-DEPENDENTS0 QUOTIENT-0 . QUOTIENT-1) (LEMMAS QUOTIENT . QUOTIENT-1) (LEMMAS QUOTIENT . QUOTIENT-1))))) (PUT1-LST (QUOTE REMAINDER-1) (QUOTE (IDATE 1000402214801 IMMEDIATE-DEPENDENTS0 (READ-MEM-ILST-ASL READ-MEM-LST-ASL MEM-LST-GET-VALS MEM-LST-GET-VALS0 MEM-LST-GET-LST MEM-LST-GET-LST0 HEAD-RECURSION LOGAND-UINT LOGAND-UINT-LA HEAD-APP-HEAD-TAIL APP-ASSOCIATIVITY BCAR-REPLACE BCAR-APP REPLACE-ASSOCIATIVITY TAIL-HEAD REMAINDER-QUOTIENT-EXP2 QUOTIENT-PLUS-TIMES-EXP2-2 QUOTIENT-PLUS-TIMES-EXP2-1 REMAINDER-PLUS-TIMES-EXP2-2 REMAINDER-PLUS-TIMES-EXP2-1 HEAD-HEAD ADDER-INT-BRIDGE ADD-OF-0 IREMAINDER-WRT--1 IREMAINDER-WRT-1 PLUS-TO-IPLUS DIFFERENCE-APP-1S LESSP-APP-1S ASL-INT-CROCK1 HEAD-OF-0 LOGNOT-0 BV-HEAD-NAT NAT-TO-BV-SIZED-LA0 REMAINDER-REMAINDER-2 REMAINDER-REMAINDER-EXP2 REMAINDER-TIMES-EXP2-3 REMAINDER-TIMES-EXP2-1 REMAINDER-EXP REMAINDER-ADD1) EVENT (PROVE-LEMMA REMAINDER-1 (REWRITE) (AND (EQUAL (REMAINDER (QUOTE 1) X) (IF (EQUAL X (QUOTE 1)) (QUOTE 0) (QUOTE 1))) (EQUAL (REMAINDER X (QUOTE 1)) (QUOTE 0))) ((EXPAND (REMAINDER (QUOTE 1) X)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-EXIT . REMAINDER-1) (IMMEDIATE-DEPENDENTS0 LESSP-OF-1 . REMAINDER-1) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . REMAINDER-1) (IMMEDIATE-DEPENDENTS0 REMAINDER-0 . REMAINDER-1) (LEMMAS REMAINDER . REMAINDER-1) (LEMMAS REMAINDER . REMAINDER-1))))) (PUT1-LST (QUOTE QUOTIENT-0) (QUOTE (IDATE 1000402214801 IMMEDIATE-DEPENDENTS0 (WRITE-MEMP-RAM1-ASL READ-MEMP-ROM1-ASL READ-MEMP-RAM1-ASL READ-MEM-ILST-INT READ-MEM-ILST READ-MEM-LST-INT READ-MEM-LST READ-MEM-LST-LA REPLACE-ASSOCIATIVITY REMAINDER-QUOTIENT-EXP2 QUOT-NAT IQUOTIENT-INT-RANGEP QUOTIENT-INT-RANGEP ASR-NAT-RANGEP ASR-INT QUOTIENT-DIFF QUOTIENT-DIFF-LA LSR-UINT TAIL-0 BV-BITN-BITN LOG-QUOTIENT-EXP QUOTIENT-TIMES-EXP2-1 QUOTIENT-QUOTIENT QUOTIENT-TIMES-LESSP QUOTIENT-EXP QUOTIENT-DISTRIBUTES-TIMES2-ADD1 QUOTIENT-TIMES-CANCEL QUOTIENT-ADD1 REMAINDER-QUOTIENT QUOTIENT-SUB1 QUOTIENT-DIFFERENCE-TIMES2 QUOTIENT-DIFFERENCE-TIMES1 QUOTIENT-DIFFERENCE QUOTIENT-DIFFERENCE-PLUS1 QUOTIENT-PLUS-TIMES2 QUOTIENT-TIMES QUOTIENT-PLUS1 QUOTIENT-LEQ QUOTIENT-LESSP QUOTIENT-EQUAL-0 QUOTIENT-X-X QUOTIENT-1) EVENT (PROVE-LEMMA QUOTIENT-0 (REWRITE) (AND (EQUAL (QUOTIENT (QUOTE 0) X) (QUOTE 0)) (EQUAL (QUOTIENT X (QUOTE 0)) (QUOTE 0)))) LOCAL-UNDO-TUPLES ((LEMMAS QUOTIENT . QUOTIENT-0) (LEMMAS QUOTIENT . QUOTIENT-0))))) (PUT1-LST (QUOTE REMAINDER-0) (QUOTE (IDATE 1000402214801 IMMEDIATE-DEPENDENTS0 (GCD-IS-CD REMAINDER-REMAINDER S&R-GROUP-H READ-MEM-ILST-INT READ-MEM-ILST READ-MEM-LST-LA ADD-NON-NUMBERP LOGAND-EOR-BEQ-UINT LOGAND-OR-BEQ-UINT LOGAND-BEQ-UINT LOGAND-UINT LOGAND-UINT-LA REMAINDER-QUOTIENT-EXP2 REMAINDER-PLUS-TIMES-EXP2-2 HEAD-PLUS-CANCEL0 ADDER-INT-BRIDGE ADD-NEG-ADDER SUB-ADDER ADD-SUB-CANCEL SUB-NAT-RANGEP SUB-LEQ-LA REMAINDER-LEQ SUB-0 ADD-0 SUBTRACTER-NAT-LA SUB-NAT-LA REM-NAT IREMAINDER-INTEGERP PLUS-TO-IPLUS ASR-NAT-RANGEP ASL-0 LSL-0 QUOTIENT-DIFF REMAINDER-DIFF QUOTIENT-DIFF-LA ASL-INT-CROCK2 REMAINDER-DIFF-LA HEAD-0 ADDER-LOGNOT LOGNOT-LOGNOT LOGNOT-0 NAT-TO-BV-SIZED-LA0 REMAINDER-REMAINDER-EXP2 REMAINDER-TIMES-EXP2-1 REMAINDER-PLUS-CANCEL REMAINDER-PLUS-CANCEL0 REMAINDER-EXP REMAINDER-DISTRIBUTES-TIMES2-ADD1 TIMES-DISTRIBUTES-REMAINDER REMAINDER-CROCK REMAINDER-PLUS-REMAINDER2 REMAINDER-DIFFERENCE-REMAINDER1 REMAINDER-PLUS-REMAINDER1 REMAINDER-ADD1 REMAINDER-QUOTIENT QUOTIENT-SUB1 REMAINDER-SUB1 QUOTIENT-DIFFERENCE QUOTIENT-DIFFERENCE-PLUS1 QUOTIENT-PLUS1 REMAINDER-DIFFERENCE REMAINDER-PLUS-DIFFERENCE2 REMAINDER-PLUS-DIFFERENCE1 REMAINDER-TIMES REMAINDER-PLUS2 REMAINDER-PLUS1 REMAINDER-LESSP REMAINDER-X-X REMAINDER-1) EVENT (PROVE-LEMMA REMAINDER-0 (REWRITE) (AND (EQUAL (REMAINDER (QUOTE 0) X) (QUOTE 0)) (EQUAL (REMAINDER X (QUOTE 0)) (FIX X)))) LOCAL-UNDO-TUPLES ((LEMMAS REMAINDER . REMAINDER-0) (LEMMAS REMAINDER . REMAINDER-0))))) (PUT1-LST (QUOTE QUOTIENT-EXIT) (QUOTE (IDATE 1000402214801 IMMEDIATE-DEPENDENTS0 (QUOTIENT-EXIT-OFF WRITE-MEMP-RAM1-ASL READ-MEMP-ROM1-ASL READ-MEMP-RAM1-ASL READ-MEM-ILST-INT READ-MEM-ILST READ-MEM-LST-LA DISJOINT-11~-ASL DISJOINT-11-ASL DISJOINT-9~-ASL DISJOINT-9-ASL DISJOINT-3~-ASL DISJOINT-3-ASL DISJOINT-2~-ASL DISJOINT-2-ASL MBIT-MEANS-NEGATIVEP TAIL-MBIT ASR-BEQ IQUOTIENT=0 HEAD-RECURSION LOGAND-UINT-LA LOGEOR-EQUAL-0 LOGOR-EQUAL-0 APP-HEAD-TAIL REPLACE-HEAD REPLACE-REFLEX REMAINDER-QUOTIENT-EXP2 QUOTIENT-PLUS-TIMES-EXP2-2 IQUOTIENT-INTEGERP MBIT-MEANS-LESSP ASR-INT QUOTIENT-DIFF REMAINDER-DIFF QUOTIENT-DIFF-LA LSR-UINT NAT-TO-BV-SIZED-HEAD NAT-TO-BV-SIZED-LA0 LOG-QUOTIENT-EXP QUOTIENT-TIMES-EXP2-3 QUOTIENT-TIMES-EXP2-1 LESSP-PLUS-TIMES-EXP2 QUOTIENT-QUOTIENT QUOTIENT-TIMES-LESSP QUOTIENT-CROCK QUOTIENT-ADD1 REMAINDER-QUOTIENT-ELIM REMAINDER-QUOTIENT QUOTIENT-SUB1 QUOTIENT-DIFFERENCE QUOTIENT-PLUS1 QUOTIENT-LEQ QUOTIENT-LESSP QUOTIENT-EQUAL-0 QUOTIENT-1) EVENT (PROVE-LEMMA QUOTIENT-EXIT (REWRITE) (IMPLIES (LESSP I J) (EQUAL (QUOTIENT I J) (QUOTE 0)))) LOCAL-UNDO-TUPLES ((LEMMAS QUOTIENT . QUOTIENT-EXIT))))) (PUT1-LST (QUOTE REMAINDER-EXIT) (QUOTE (IDATE 1000402214801 IMMEDIATE-DEPENDENTS0 (REMAINDER-EXIT-OFF READ-MEM-ILST-INT READ-MEM-ILST ADD-NON-NUMBERP ASR-BMI MBIT-MEANS-NEGATIVEP ASR-BEQ HEAD-RECURSION LOGEOR-EQUAL-0 LOGOR-EQUAL-0 APP-HEAD-TAIL BCAR-REPLACE BCAR-APP BCAR-NONNUMBERP REPLACE-HEAD REPLACE-REFLEX REMAINDER-QUOTIENT-EXP2 REMAINDER-PLUS-TIMES-EXP2-2 HEAD-PLUS-CANCEL0 ADDER-INT-BRIDGE ADDY-Y SUB-CANCEL0 ADD-NEG-ADDER SUB-EQUAL-0 ADD-SUB-CANCEL SUB-0 ADD-0 ADD-UINT ADDER-NAT-LA SUB-NAT-LA ADD-NAT-LA QUOT-NAT REM-NAT HEAD-INT-CROCK MULU_3232-NAT MULU_3264-NAT MULU_1632-NAT IREMAINDER-INT-RANGEP PLUS-TO-IPLUS MBIT-MEANS-LESSP ASR-NAT-RANGEP ASR-0 ASL-0 LSL-0 ASR-INT QUOTIENT-DIFF REMAINDER-DIFF QUOTIENT-DIFF-LA ASL-INT-CROCK1 REMAINDER-DIFF-LA LSL-UINT HEAD-LEMMA HEAD-LEQ ADDER-LOGNOT LOGNOT-INT LOGNOT-CANCEL LOGNOT-0 BV-ADDER-NAT NAT-TO-BV-SIZED-HEAD NAT-TO-BV-SIZED-LA0 REMAINDER-REMAINDER-EXP2 REMAINDER-TIMES-EXP2-3 REMAINDER-TIMES-EXP2-1 REMAINDER-PLUS-CANCEL0 REMAINDER-CROCK REMAINDER-DIFFERENCE-REMAINDER1 QUOTIENT-ADD1 REMAINDER-ADD1 REMAINDER-QUOTIENT-ELIM REMAINDER-QUOTIENT QUOTIENT-SUB1 REMAINDER-SUB1 QUOTIENT-DIFFERENCE QUOTIENT-PLUS1 REMAINDER-DIFFERENCE REMAINDER-PLUS-DIFFERENCE2 REMAINDER-PLUS2 REMAINDER-PLUS1 REMAINDER-LESSP REMAINDER-1) EVENT (PROVE-LEMMA REMAINDER-EXIT (REWRITE) (IMPLIES (LESSP I J) (EQUAL (REMAINDER I J) (FIX I)))) LOCAL-UNDO-TUPLES ((LEMMAS REMAINDER . REMAINDER-EXIT))))) (PUT1-LST (QUOTE TIMES-EXP2-LESSP) (QUOTE (IDATE 1000402214801 IMMEDIATE-DEPENDENTS0 (TIMES-EXP2-NAT-RANGEP ASL-INT ASL-INT-CROCK2 LESSP-PLUS-TIMES-EXP2) EVENT (PROVE-LEMMA TIMES-EXP2-LESSP (REWRITE) (EQUAL (LESSP (TIMES I (EXP (QUOTE 2) J)) (EXP (QUOTE 2) K)) (LESSP I (EXP (QUOTE 2) (DIFFERENCE K J))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIFFERENCE-SUB1-SUB1 . TIMES-EXP2-LESSP) (IMMEDIATE-DEPENDENTS0 DIFFERENCE=0 . TIMES-EXP2-LESSP) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY1 . TIMES-EXP2-LESSP) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-LESSP-TIMES . TIMES-EXP2-LESSP) (IMMEDIATE-DEPENDENTS0 SUB1-OF-1 . TIMES-EXP2-LESSP) (IMMEDIATE-DEPENDENTS0 TIMES-LESSP-0 . TIMES-EXP2-LESSP) (IMMEDIATE-DEPENDENTS0 TIMES-1 . TIMES-EXP2-LESSP) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . TIMES-EXP2-LESSP) (IMMEDIATE-DEPENDENTS0 EXP-OF-2-0 . TIMES-EXP2-LESSP) (IMMEDIATE-DEPENDENTS0 TIMES-EQUAL-0 . TIMES-EXP2-LESSP) (IMMEDIATE-DEPENDENTS0 LESSP-OF-1 . TIMES-EXP2-LESSP) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . TIMES-EXP2-LESSP) (IMMEDIATE-DEPENDENTS0 EXP . TIMES-EXP2-LESSP) (LEMMAS LESSP . TIMES-EXP2-LESSP))))) (PUT1-LST (QUOTE TIMES-OFF) (QUOTE (IDATE 1000402214801 EVENT (TOGGLE TIMES-OFF TIMES T) LOCAL-UNDO-TUPLES ((DISABLED-LEMMAS NIL TIMES TIMES-OFF . T))))) (PUT1-LST (QUOTE EXP-LESSP) (QUOTE (IDATE 1000402214801 IMMEDIATE-DEPENDENTS0 (ADD-BCS&CC EXT-NAT-RANGEP NAT-PLUS-RANGEP EXP2-LEQ ADD-SUB-CANCEL SUB-NAT-LA EXP2-LESSP-CROCK IQUOTIENT-INT-RANGEP EXP2-LESSP ASR-INT DIFFERENCE-APP-1S ADDER-LOGNOT QUOTIENT-EXP) EVENT (PROVE-LEMMA EXP-LESSP (REWRITE) (EQUAL (LESSP (EXP X Y) (EXP X Z)) (IF (ZEROP X) (AND (NOT (ZEROP Y)) (ZEROP Z)) (IF (EQUAL X (QUOTE 1)) (QUOTE *1*FALSE) (LESSP Y Z))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-OF-1 . EXP-LESSP) (IMMEDIATE-DEPENDENTS0 TIMES-EQUAL-0 . EXP-LESSP) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-LESSP-TIMES . EXP-LESSP) (IMMEDIATE-DEPENDENTS0 EXP-OF-2-0 . EXP-LESSP) (IMMEDIATE-DEPENDENTS0 TIMES-LESSP-1 . EXP-LESSP) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . EXP-LESSP) (IMMEDIATE-DEPENDENTS0 EXP-OF-0 . EXP-LESSP) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . EXP-LESSP) (IMMEDIATE-DEPENDENTS0 EXP-OF-1 . EXP-LESSP) (IMMEDIATE-DEPENDENTS0 EXP . EXP-LESSP) (LEMMAS LESSP . EXP-LESSP))))) (PUT1-LST (QUOTE EXP-OF-2-1) (QUOTE (IDATE 1000402214801 IMMEDIATE-DEPENDENTS0 (SUBX-C-LA ADD-SUB-CANCEL ADDX-V-CROCK2 ASL-INT-CROCK2 LESSP-PLUS-EXP2) EVENT (PROVE-LEMMA EXP-OF-2-1 (REWRITE) (EQUAL (LESSP (QUOTE 1) (EXP (QUOTE 2) N)) (NOT (ZEROP N)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUB1-OF-1 . EXP-OF-2-1) (IMMEDIATE-DEPENDENTS0 TIMES-1 . EXP-OF-2-1) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . EXP-OF-2-1) (IMMEDIATE-DEPENDENTS0 EXP-OF-2-0 . EXP-OF-2-1) (IMMEDIATE-DEPENDENTS0 EXP . EXP-OF-2-1) (LEMMAS LESSP . EXP-OF-2-1))))) (PUT1-LST (QUOTE EXP-OF-2-0) (QUOTE (IDATE 1000402214801 IMMEDIATE-DEPENDENTS0 (STRINGP-LA WRITE-MEMP-RAM1-ASL READ-MEMP-ROM1-ASL READ-MEMP-RAM1-ASL WRITE-MEM-ILST-ASL DISJOINT-11~-ASL DISJOINT-11-ASL DISJOINT-9~-ASL DISJOINT-9-ASL DISJOINT-3~-ASL DISJOINT-3-ASL DISJOINT-2~-ASL DISJOINT-2-ASL ADD-NON-NUMBERP ASR-BMI ASL-BMI MBIT-MEANS-NEGATIVEP TAIL-MBIT EXT-BEQ-UINT ASR-BEQ ASL-BEQ Z-FLAG-LA LSL-BEQ LOGEOR-BEQ-INT-1 LOGEOR-BEQ-INT-0 LOGOR-BEQ-INT-0 MOVE-BEQ-INT-0 SUB-BHI-INT SUBX-C-LA READ-WRITE-MEM2 HEAD-RECURSION NAT-PLUS-RANGEP NAT-RANGEP-UB NAT-RANGEP-OF-0 LOGAND-UINT-LA BITN-0 REPLACE-NAT-RANGEP APP-NAT-RANGEP HEAD-APP-HEAD-TAIL APP-HEAD-TAIL APP-ASSOCIATIVITY REPLACE-LEQ1 REPLACE-HEAD REPLACE-REFLEX TAIL-REPLACE TAIL-APP HEAD-REPLACE REMAINDER-QUOTIENT-EXP2 QUOTIENT-PLUS-TIMES-EXP2-2 REMAINDER-PLUS-TIMES-EXP2-2 HEAD-PLUS-CANCEL0 ADDER-INT-BRIDGE ADD-CANCEL0 ADD-NEG-ADDER SUB-ADDER SUB-NAT-RANGEP ADD-NAT-RANGEP ADDER-NAT-RANGEP SUB-LEQ-LA SUB-X-X SUB-0 ADD-0 SUB-UINT SUBTRACTER-NAT-LA MULS-CROCK TIMES-LESSP_3 HEAD-INT-CROCK IREMAINDER-INT-RANGEP IQUOTIENT-INT-RANGEP INT-RANGEP-OF-0 NAT-TO-INT= INT-TO-NAT=0 NAT-TO-INT-TO-NAT INT-TO-NAT-RANGEP NAT-TO-INT-RANGEP NAT-TO-INT-0 ADDX-V-CROCK2 PLUS-TO-IPLUS EXT-INT MBIT-MEANS-LESSP ASR-NAT-RANGEP ASL-NAT-RANGEP ASL-0 LSL-NAT-RANGEP LSL-0 ASR-INT DIFFERENCE-APP-1S LESSP-APP-1S LESSP-TIMES-EXP-1S QUOTIENT-EXP-LESSP ASL-INT ASL-INT-CROCK2 ASL-INT-CROCK1 LSR-UINT APP-0 REPLACE-0 TAIL-EQUAL-0 HEAD-LEQ TAIL-LESSP HEAD-LESSP ADDER-LOGNOT LOGNOT-INT LOGNOT-LOGNOT LOGNOT-NAT-RANGEP LOGNOT-0 BV-MBIT-BITN BV-NOT-LOGNOT NAT-TO-BV-SIZED-SIZED-TO-NAT NAT-TO-BV-SIZED-TO-NAT BV-HEAD-NAT NAT-TO-BV-SIZED-LA0 LOG-QUOTIENT-EXP REMAINDER-REMAINDER-EXP2 QUOTIENT-TIMES-EXP2-1 REMAINDER-TIMES-EXP2-1 LESSP-PLUS-TIMES-EXP2 TIMES-EXP2-LESSP EXP-LESSP EXP-OF-2-1) EVENT (PROVE-LEMMA EXP-OF-2-0 (REWRITE) (IMPLIES (NOT (ZEROP M)) (NOT (LESSP (EXP M N) (QUOTE 1))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-EQUAL-0 . EXP-OF-2-0) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . EXP-OF-2-0) (IMMEDIATE-DEPENDENTS0 LESSP-OF-1 . EXP-OF-2-0) (IMMEDIATE-DEPENDENTS0 EXP . EXP-OF-2-0) (LINEAR-LEMMAS EXP . EXP-OF-2-0))))) (PUT1-LST (QUOTE EXP-EXP) (QUOTE (IDATE 1000402214801 EVENT (PROVE-LEMMA EXP-EXP (REWRITE) (EQUAL (EXP (EXP X Y) Z) (EXP X (TIMES Y Z)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EXP-PLUS . EXP-EXP) (IMMEDIATE-DEPENDENTS0 EXP-TIMES . EXP-EXP) (IMMEDIATE-DEPENDENTS0 EXP-OF-1 . EXP-EXP) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . EXP-EXP) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . EXP-EXP) (IMMEDIATE-DEPENDENTS0 EXP . EXP-EXP) (LEMMAS EXP . EXP-EXP))))) (PUT1-LST (QUOTE EXP-TIMES) (QUOTE (IDATE 1000402214801 IMMEDIATE-DEPENDENTS0 (EXP-EXP) EVENT (PROVE-LEMMA EXP-TIMES (REWRITE) (EQUAL (EXP (TIMES X Y) Z) (TIMES (EXP X Z) (EXP Y Z)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-ASSOCIATIVITY . EXP-TIMES) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY1 . EXP-TIMES) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . EXP-TIMES) (IMMEDIATE-DEPENDENTS0 EXP . EXP-TIMES) (LEMMAS EXP . EXP-TIMES))))) (PUT1-LST (QUOTE EXP-PLUS) (QUOTE (IDATE 1000402214801 IMMEDIATE-DEPENDENTS0 (MULU_3264-BVS MULU_1632-BVS TAIL-NAT-RANGEP REPLACE-NAT-RANGEP APP-ASSOCIATIVITY REPLACE-LEQ1 TAIL-REPLACE QUOTIENT-PLUS-TIMES-EXP2-2 REMAINDER-PLUS-TIMES-EXP2-2 TAIL-TAIL TIMES-LESSP_4 TIMES-LESSP_3 MULU_3264-NAT MULU_1632-NAT ASR-NAT-RANGEP ASL-ASL LSR-LSR LSL-LSL ASR-INT-CROCK DIFFERENCE-APP-1S QUOTIENT-EXP-LESSP ASL-INT EXP-EXP) EVENT (PROVE-LEMMA EXP-PLUS (REWRITE) (EQUAL (TIMES (EXP X Y) (EXP X Z)) (EXP X (PLUS Y Z)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . EXP-PLUS) (IMMEDIATE-DEPENDENTS0 TIMES-ASSOCIATIVITY . EXP-PLUS) (IMMEDIATE-DEPENDENTS0 TIMES-1 . EXP-PLUS) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . EXP-PLUS) (IMMEDIATE-DEPENDENTS0 EXP . EXP-PLUS) (LEMMAS TIMES . EXP-PLUS))))) (PUT1-LST (QUOTE EXP-OF-1) (QUOTE (IDATE 1000402214801 IMMEDIATE-DEPENDENTS0 (EXP-LESSP EXP-EXP) EVENT (PROVE-LEMMA EXP-OF-1 (REWRITE) (EQUAL (EXP (QUOTE 1) K) (QUOTE 1))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . EXP-OF-1) (IMMEDIATE-DEPENDENTS0 EXP . EXP-OF-1) (LEMMAS EXP . EXP-OF-1))))) (PUT1-LST (QUOTE EXP-OF-0) (QUOTE (IDATE 1000402214801 IMMEDIATE-DEPENDENTS0 (EXP-LESSP) EVENT (PROVE-LEMMA EXP-OF-0 (REWRITE) (EQUAL (EXP (QUOTE 0) K) (IF (ZEROP K) (QUOTE 1) (QUOTE 0)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-ZERO . EXP-OF-0) (IMMEDIATE-DEPENDENTS0 EXP . EXP-OF-0) (LEMMAS EXP . EXP-OF-0))))) (PUT1-LST (QUOTE *1*EXP) (QUOTE (MAIN-EVENT EXP))) (PUT1-LST (QUOTE EXP) (QUOTE (TYPE-PRESCRIPTION-LST ((EXP 4 NIL NIL)) LEMMAS ((REWRITE-RULE EXP-EXP NIL (EQUAL (EXP (EXP X Y) Z) (EXP X (TIMES Y Z))) NIL) (REWRITE-RULE EXP-TIMES NIL (EQUAL (EXP (TIMES X Y) Z) (TIMES (EXP X Z) (EXP Y Z))) NIL) (REWRITE-RULE EXP-OF-1 NIL (EQUAL (EXP (QUOTE 1) K) (QUOTE 1)) NIL) (REWRITE-RULE EXP-OF-0 NIL (EQUAL (EXP (QUOTE 0) K) (IF (EQUAL K (QUOTE 0)) (QUOTE 1) (IF (NUMBERP K) (QUOTE 0) (QUOTE 1)))) NIL)) TOTALP-LST ((EXP . T)) LINEAR-LEMMAS ((LINEAR-LEMMA EXP2-LEQ ((NOT (LESSP J I))) (NOT (LESSP (EXP (QUOTE 2) J) (EXP (QUOTE 2) I))) (EXP (QUOTE 2) I)) (LINEAR-LEMMA EXP2-LEQ ((NOT (LESSP J I))) (NOT (LESSP (EXP (QUOTE 2) J) (EXP (QUOTE 2) I))) (EXP (QUOTE 2) J)) (LINEAR-LEMMA EXP2-LESSP-CROCK ((NUMBERP I) (NOT (EQUAL I (QUOTE 0))) (NOT (LESSP K I))) (LESSP (EXP (QUOTE 2) (SUB1 I)) (EXP (QUOTE 2) K)) (EXP (QUOTE 2) K)) (LINEAR-LEMMA EXP2-LESSP-CROCK ((NUMBERP I) (NOT (EQUAL I (QUOTE 0))) (NOT (LESSP K I))) (LESSP (EXP (QUOTE 2) (SUB1 I)) (EXP (QUOTE 2) K)) (EXP (QUOTE 2) (SUB1 I))) (LINEAR-LEMMA EXP2-LESSP ((LESSP I J)) (LESSP (EXP (QUOTE 2) I) (EXP (QUOTE 2) J)) (EXP (QUOTE 2) I)) (LINEAR-LEMMA EXP2-LESSP ((LESSP I J)) (LESSP (EXP (QUOTE 2) I) (EXP (QUOTE 2) J)) (EXP (QUOTE 2) J)) (LINEAR-LEMMA EXP-OF-2-0 ((NUMBERP M) (NOT (EQUAL M (QUOTE 0)))) (NOT (LESSP (EXP M N) (QUOTE 1))) (EXP M N))) QUICK-BLOCK-INFO (UNCHANGING SELF-REFLEXIVE) SDEFN (LAMBDA (X Y) (IF (EQUAL Y (QUOTE 0)) (QUOTE 1) (IF (NUMBERP Y) (TIMES X (EXP X (SUB1 Y))) (QUOTE 1)))) LISP-CODE *1*EXP SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((ZEROP Y)) NIL) (TESTS-AND-CASES ((NOT (ZEROP Y))) ((X (SUB1 Y))))) LEVEL-NO 3 JUSTIFICATIONS ((JUSTIFICATION (Y) (COUNT Y) LESSP (ZEROP COUNT-NUMBERP LESSP-SUB1))) IDATE 1000402214801 CONTROLLER-POCKETS (2) SATELLITES (*1*EXP) IMMEDIATE-DEPENDENTS0 (GCD-T-UBOUND ADD-UINTXXX ADD-UINTXX READ-MEM-INT-8_16 READ-MEM-INT-16_32 READ-MEM-INT-8_32 READ-RN-INT-8_16 READ-RN-INT-16_32 READ-RN-INT-8_32 DISJOINT-3-INT DISJOINT-2~-INT DISJOINT-2-INT DISJOINT-1-INT NAT-RANGEP-LA STEPI-H MISC-GROUP-H S&R-GROUP-H SCC-GROUP-H OR-GROUP-H READM-WRITEM-MEM WRITE-MEMP-RAM1-ASL READ-MEMP-ROM1-ASL READ-MEMP-RAM1-ASL WRITE-MEM-ILST-ASL WRITE-MEM-LST-ASL READ-MEM-ILST-ASL READ-MEM-LST-ASL WRITE-MEM-ILST-INT WRITE-MEM-LST-INT WRITE-MEM-ILST0 WRITE-MEM-LST0 WRITE-MEM-ILST WRITE-MEM-LST MEM-LST-PUT-VALS MEM-LST-PUT-LST WRITE-MEM-LST-LA DISJOINT-LEQ DISJOINT0-LEQ READ-MEM-ILST-INT READ-MEM-LST-INT MEM-LST-LESSP DISJOINT-11~-ASL DISJOINT-11-ASL DISJOINT-9~-ASL DISJOINT-9-ASL DISJOINT-3~-ASL DISJOINT-3-ASL DISJOINT-2~-ASL DISJOINT-2-ASL READ-MEM-MCODE1-INT READ-MEMP-RAM1-INT WRITE-MEMP-RAM1-INT READ-MEMP-ROM1-INT MULU_3232-BVS MULU_3264-BVS MULU_1632-BVS MBIT-MEANS-NEGATIVEP LSL-1-BCS&CC TAIL-MBIT ADD-BCS&CC EXT-BEQ-UINT ASR-BEQ LSR-BEQ MULU_3232-BEQ LOGAND-EOR-BEQ-UINT LOGAND-OR-BEQ-UINT LOGAND-BEQ-UINT LOGEOR-BEQ-INT-1 LOGEOR-BEQ-INT-0 SUB-BHI-INT SUBX-C-LA ADDX-C-LA READ-WRITE-MEM2 BYTE-READ-WRITE-MEM-LEMMA MODN-EQ-EQUAL HEAD-RECURSION HEAD-READ-RN HEAD-EXT PC-BYTE-READ-NAT-RANGEP HEAD-NAT-RANGEP LOGEOR-NAT-RANGEP LOGOR-NAT-RANGEP LOGAND-NAT-RANGEP TIMES-EXP2-NAT-RANGEP SUB1-TIMES2-NAT-RANGEP NAT-RANGEP-0 NAT-RANGEP-UB LOGAND-UINT LOGAND-UINT-LA BITN-LOGNOT REPLACE-NAT-RANGEP HEAD-APP-HEAD-TAIL APP-ASSOCIATIVITY BCAR-REPLACE BCAR-APP REPLACE-LEQ1 REPLACE-ASSOCIATIVITY TAIL-REPLACE TAIL-HEAD REMAINDER-QUOTIENT-EXP2 QUOTIENT-PLUS-TIMES-EXP2-2 EXP2-LEQ QUOTIENT-PLUS-TIMES-EXP2-1 REMAINDER-PLUS-TIMES-EXP2-2 REMAINDER2-PLUS-TIMES-EXP2 REMAINDER-PLUS-TIMES-EXP2-1 HEAD-HEAD SUB-INT ADD-INT SUBTRACTER-INT ADDER-INT ADD-OF-0 SUB-UINT ADD-UINT SUBTRACTER-UINT ADDER-UINT SUBTRACTER-NAT-LA ADDER-NAT-LA SUB-NAT-LA ADD-NAT-LA DIVS_3232-OVERFLOW REM-NAT IQUOT-INT MULS_3232-INT MULS_3264-INT MULS_1632-INT TIMES-LESSP_4 TIMES-LESSP_3 HEAD-INT-CROCK EXP2-LESSP-CROCK MULU_3232-NAT MULU_3264-NAT MULU_1632-NAT IQUOTIENT-INT-RANGEP NAT-TO-INT= INT-TO-NAT=0 INT-TO-NAT-TO-INT NAT-TO-INT-TO-NAT INT-TO-NAT-RANGEP NAT-TO-INT-RANGEP NAT-TO-INT-INTEGERP NAT-TO-INT-0 UINT-TO-NAT-RANGEP INT-RANGEP-LA UINT-RANGEP-LA ILESSP-CROCK2 ILESSP-CROCK1 ADD-BMI-CROCK2 ADD-BMI-CROCK1 ADDX-V-CROCK2 ADDX-V-CROCK1 PLUS-TO-IPLUS ADDER-INT-END EXT-INT EXP2-LESSP MBIT-MEANS-LESSP ASR-NAT-RANGEP ASR-0 ASL-0 LSR-0 LSL-0 ASR-INT ASR-INT-CROCK DIFFERENCE-APP-1S LESSP-APP-1S LESSP-TIMES-EXP-1S QUOTIENT-EXP-LESSP ASL-INT ASL-INT-CROCK2 ASL-INT-CROCK1 LSR-UINT LSL-UINT APP-0 REPLACE-0 TAIL-LESSP HEAD-LESSP TAIL-OF-0 HEAD-OF-0 LOGNOT-INT LOGNOT-0 BV-MBIT-BITN BV-BITN-BITN BV-NOT-LOGNOT BV-TO-NAT-RANGEP NAT-TO-BV-SIZED-SIZED-TO-NAT NAT-TO-BV-SIZED-TO-NAT BV-HEAD-NAT NAT-TO-BV-SIZED-LA0 GCD-EXAMPLE ROXR DIVU-V MULU-V OP-LEN INT-TO-NAT NAT-TO-INT INT-RANGEP UINT-RANGEP NAT-RANGEP ASR ASL LSL EXT APP SUB LOGNOT TAIL HEAD LOG-QUOTIENT-EXP LOG-TIMES-EXP LOG-EXP REMAINDER-REMAINDER-2 REMAINDER-REMAINDER-EXP2 QUOTIENT-TIMES-EXP2-4 QUOTIENT-TIMES-EXP2-3 QUOTIENT-TIMES-EXP2-2 QUOTIENT-TIMES-EXP2-1 REMAINDER-TIMES-EXP2-4 REMAINDER-TIMES-EXP2-3 REMAINDER-TIMES-EXP2-2 REMAINDER-TIMES-EXP2-1 LESSP-PLUS-EXP2 LESSP-PLUS-TIMES-EXP2 REMAINDER-EXP QUOTIENT-EXP TIMES-EXP2-LESSP EXP-LESSP EXP-OF-2-1 EXP-OF-2-0 EXP-EXP EXP-TIMES EXP-PLUS EXP-OF-1 EXP-OF-0) EVENT (DEFN EXP (X Y) (IF (ZEROP Y) (QUOTE 1) (TIMES X (EXP X (SUB1 Y))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . EXP) (DCELL . *1*EXP))))) (PUT1-LST (QUOTE CORRECTNESS-OF-CANCEL-EQUAL-TIMES) (QUOTE (IDATE 1000402214759 IMMEDIATE-DEPENDENTS0 (PLUS-TIMES-EQUAL LOGAND-UINT-LA LOGAND-LOGEOR LOGAND-LOGOR REPLACE-LEQ1 REPLACE-ASSOCIATIVITY TAIL-REPLACE ITIMES-EQUAL-CANCELLATION ASL-ASL LSL-LSL ASL-INT-CROCK1 QUOTIENT-TIMES-EXP2-1 REMAINDER-DISTRIBUTES-TIMES2-ADD1 TIMES-DISTRIBUTES-REMAINDER) EVENT (PROVE-LEMMA CORRECTNESS-OF-CANCEL-EQUAL-TIMES ((META EQUAL)) (EQUAL (EVAL$ (QUOTE *1*TRUE) X A) (EVAL$ (QUOTE *1*TRUE) (CANCEL-EQUAL-TIMES X) A))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ZEROP-MAKES-EQUAL-TRUE-BRIDGE . CORRECTNESS-OF-CANCEL-EQUAL-TIMES) (IMMEDIATE-DEPENDENTS0 SUBBAGP-BAGINT2 . CORRECTNESS-OF-CANCEL-EQUAL-TIMES) (IMMEDIATE-DEPENDENTS0 SUBBAGP-BAGINT1 . CORRECTNESS-OF-CANCEL-EQUAL-TIMES) (IMMEDIATE-DEPENDENTS0 EVAL$-EQUAL-TIMES-TREE-BAGDIFF . CORRECTNESS-OF-CANCEL-EQUAL-TIMES) (IMMEDIATE-DEPENDENTS0 TIMES-EQUAL-0 . CORRECTNESS-OF-CANCEL-EQUAL-TIMES) (IMMEDIATE-DEPENDENTS0 EVAL$-TIMES-FRINGE-MEMBER-ZERO . CORRECTNESS-OF-CANCEL-EQUAL-TIMES) (IMMEDIATE-DEPENDENTS0 EVAL$-QUOTE . CORRECTNESS-OF-CANCEL-EQUAL-TIMES) (IMMEDIATE-DEPENDENTS0 NUMBERP-EVAL$-TIMES . CORRECTNESS-OF-CANCEL-EQUAL-TIMES) (IMMEDIATE-DEPENDENTS0 TIMES-TREE-TIMES-FRINGE . CORRECTNESS-OF-CANCEL-EQUAL-TIMES) (IMMEDIATE-DEPENDENTS0 EQUAL-1-TIMES-TREE-DELETE . CORRECTNESS-OF-CANCEL-EQUAL-TIMES) (IMMEDIATE-DEPENDENTS0 CANCEL-EQUAL-TIMES . CORRECTNESS-OF-CANCEL-EQUAL-TIMES) (LEMMAS EQUAL . CORRECTNESS-OF-CANCEL-EQUAL-TIMES))))) (PUT1-LST (QUOTE *1*CANCEL-EQUAL-TIMES) (QUOTE (MAIN-EVENT CANCEL-EQUAL-TIMES))) (PUT1-LST (QUOTE CANCEL-EQUAL-TIMES) (QUOTE (TYPE-PRESCRIPTION-LST ((CANCEL-EQUAL-TIMES 16 T)) TOTALP-LST ((CANCEL-EQUAL-TIMES . T)) SDEFN (LAMBDA (X) (IF (EQUAL (CAR X) (QUOTE EQUAL)) (IF (EQUAL (CAR (CAR (CDR X))) (QUOTE TIMES)) (IF (EQUAL (CAR (CAR (CDR (CDR X)))) (QUOTE TIMES)) (IF (LISTP (BAGINT (TIMES-FRINGE (CAR (CDR X))) (TIMES-FRINGE (CAR (CDR (CDR X)))))) (CONS (QUOTE IF) (CONS (AND-NOT-ZEROP-TREE (BAGINT (TIMES-FRINGE (CAR (CDR X))) (TIMES-FRINGE (CAR (CDR (CDR X)))))) (CONS (CONS (QUOTE EQUAL) (CONS (TIMES-TREE (BAGDIFF (TIMES-FRINGE (CAR (CDR X))) (BAGINT (TIMES-FRINGE (CAR (CDR X))) (TIMES-FRINGE (CAR (CDR (CDR X))))))) (CONS (TIMES-TREE (BAGDIFF (TIMES-FRINGE (CAR (CDR (CDR X)))) (BAGINT (TIMES-FRINGE (CAR (CDR X))) (TIMES-FRINGE (CAR (CDR (CDR X))))))) (QUOTE NIL)))) (QUOTE ((TRUE)))))) X) (IF (LISTP (CAR (CDR X))) (IF (MEMBER (CAR (CDR (CDR X))) (TIMES-FRINGE (CAR (CDR X)))) (CONS (QUOTE AND) (CONS (CONS (QUOTE NUMBERP) (CONS (CAR (CDR (CDR X))) (QUOTE NIL))) (CONS (CONS (QUOTE OR) (CONS (CONS (QUOTE EQUAL) (CONS (CAR (CDR (CDR X))) (QUOTE ((QUOTE 0))))) (CONS (CONS (QUOTE EQUAL) (CONS (TIMES-TREE (DELETE (CAR (CDR (CDR X))) (TIMES-FRINGE (CAR (CDR X))))) (QUOTE ((QUOTE 1))))) (QUOTE NIL)))) (QUOTE NIL)))) X) X)) (IF (LISTP (CAR (CDR (CDR X)))) (IF (EQUAL (CAR (CAR (CDR (CDR X)))) (QUOTE TIMES)) (IF (MEMBER (CAR (CDR X)) (TIMES-FRINGE (CAR (CDR (CDR X))))) (CONS (QUOTE AND) (CONS (CONS (QUOTE NUMBERP) (CONS (CAR (CDR X)) (QUOTE NIL))) (CONS (CONS (QUOTE OR) (CONS (CONS (QUOTE EQUAL) (CONS (CAR (CDR X)) (QUOTE ((QUOTE 0))))) (CONS (CONS (QUOTE EQUAL) (CONS (TIMES-TREE (DELETE (CAR (CDR X)) (TIMES-FRINGE (CAR (CDR (CDR X)))))) (QUOTE ((QUOTE 1))))) (QUOTE NIL)))) (QUOTE NIL)))) X) X) X)) X)) LISP-CODE *1*CANCEL-EQUAL-TIMES SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402214756 SATELLITES (*1*CANCEL-EQUAL-TIMES) IMMEDIATE-DEPENDENTS0 (CORRECTNESS-OF-CANCEL-EQUAL-TIMES) EVENT (DEFN CANCEL-EQUAL-TIMES (X) (IF (EQUAL (CAR X) (QUOTE EQUAL)) (IF (AND (EQUAL (CAR (CAR (CDR X))) (QUOTE TIMES)) (EQUAL (CAR (CAR (CDR (CDR X)))) (QUOTE TIMES))) (IF (LISTP (BAGINT (TIMES-FRINGE (CAR (CDR X))) (TIMES-FRINGE (CAR (CDR (CDR X)))))) (CONS (QUOTE IF) (CONS (AND-NOT-ZEROP-TREE (BAGINT (TIMES-FRINGE (CAR (CDR X))) (TIMES-FRINGE (CAR (CDR (CDR X)))))) (CONS (CONS (QUOTE EQUAL) (CONS (TIMES-TREE (BAGDIFF (TIMES-FRINGE (CAR (CDR X))) (BAGINT (TIMES-FRINGE (CAR (CDR X))) (TIMES-FRINGE (CAR (CDR (CDR X))))))) (CONS (TIMES-TREE (BAGDIFF (TIMES-FRINGE (CAR (CDR (CDR X)))) (BAGINT (TIMES-FRINGE (CAR (CDR X))) (TIMES-FRINGE (CAR (CDR (CDR X))))))) (QUOTE NIL)))) (QUOTE ((TRUE)))))) X) (IF (AND (LISTP (CAR (CDR X))) (AND (EQUAL (CAR (CAR (CDR X))) (QUOTE TIMES)) (MEMBER (CAR (CDR (CDR X))) (TIMES-FRINGE (CAR (CDR X)))))) (CONS (QUOTE AND) (CONS (CONS (QUOTE NUMBERP) (CONS (CAR (CDR (CDR X))) (QUOTE NIL))) (CONS (CONS (QUOTE OR) (CONS (CONS (QUOTE EQUAL) (CONS (CAR (CDR (CDR X))) (QUOTE ((QUOTE 0))))) (CONS (CONS (QUOTE EQUAL) (CONS (TIMES-TREE (DELETE (CAR (CDR (CDR X))) (TIMES-FRINGE (CAR (CDR X))))) (QUOTE ((QUOTE 1))))) (QUOTE NIL)))) (QUOTE NIL)))) (IF (AND (LISTP (CAR (CDR (CDR X)))) (AND (EQUAL (CAR (CAR (CDR (CDR X)))) (QUOTE TIMES)) (MEMBER (CAR (CDR X)) (TIMES-FRINGE (CAR (CDR (CDR X))))))) (CONS (QUOTE AND) (CONS (CONS (QUOTE NUMBERP) (CONS (CAR (CDR X)) (QUOTE NIL))) (CONS (CONS (QUOTE OR) (CONS (CONS (QUOTE EQUAL) (CONS (CAR (CDR X)) (QUOTE ((QUOTE 0))))) (CONS (CONS (QUOTE EQUAL) (CONS (TIMES-TREE (DELETE (CAR (CDR X)) (TIMES-FRINGE (CAR (CDR (CDR X)))))) (QUOTE ((QUOTE 1))))) (QUOTE NIL)))) (QUOTE NIL)))) X))) X)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DELETE . CANCEL-EQUAL-TIMES) (IMMEDIATE-DEPENDENTS0 BAGDIFF . CANCEL-EQUAL-TIMES) (IMMEDIATE-DEPENDENTS0 TIMES-TREE . CANCEL-EQUAL-TIMES) (IMMEDIATE-DEPENDENTS0 AND-NOT-ZEROP-TREE . CANCEL-EQUAL-TIMES) (IMMEDIATE-DEPENDENTS0 TIMES-FRINGE . CANCEL-EQUAL-TIMES) (IMMEDIATE-DEPENDENTS0 BAGINT . CANCEL-EQUAL-TIMES) (DCELL . *1*CANCEL-EQUAL-TIMES))))) (PUT1-LST (QUOTE EQUAL-1-TIMES-TREE-DELETE) (QUOTE (IDATE 1000402214756 IMMEDIATE-DEPENDENTS0 (CORRECTNESS-OF-CANCEL-EQUAL-TIMES) EVENT (PROVE-LEMMA EQUAL-1-TIMES-TREE-DELETE (REWRITE) (IMPLIES (MEMBER W X) (EQUAL (EQUAL (EVAL$ (QUOTE *1*TRUE) (TIMES-TREE (DELETE W X)) A) (QUOTE 1)) (IF (ZEROP (EVAL$ (QUOTE *1*TRUE) W A)) (EQUAL-1-EVAL$-TIMES-TREE-DELETE-END W X A) (EQUAL (EVAL$ (QUOTE *1*TRUE) (TIMES-TREE X) A) (EVAL$ (QUOTE *1*TRUE) W A)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EVAL$-TIMES-MEMBER . EQUAL-1-TIMES-TREE-DELETE) (IMMEDIATE-DEPENDENTS0 TIMES-EQUAL-CANCEL0 . EQUAL-1-TIMES-TREE-DELETE) (IMMEDIATE-DEPENDENTS0 EQUAL-1-EVAL$-TIMES-TREE-DELETE-END . EQUAL-1-TIMES-TREE-DELETE) (IMMEDIATE-DEPENDENTS0 DELETE . EQUAL-1-TIMES-TREE-DELETE) (IMMEDIATE-DEPENDENTS0 TIMES-TREE . EQUAL-1-TIMES-TREE-DELETE) (LEMMAS EQUAL . EQUAL-1-TIMES-TREE-DELETE))))) (PUT1-LST (QUOTE *1*EQUAL-1-EVAL$-TIMES-TREE-DELETE-END) (QUOTE (MAIN-EVENT EQUAL-1-EVAL$-TIMES-TREE-DELETE-END))) (PUT1-LST (QUOTE EQUAL-1-EVAL$-TIMES-TREE-DELETE-END) (QUOTE (TYPE-PRESCRIPTION-LST ((EQUAL-1-EVAL$-TIMES-TREE-DELETE-END 3 NIL NIL NIL)) TOTALP-LST ((EQUAL-1-EVAL$-TIMES-TREE-DELETE-END)) SDEFN (LAMBDA (W X A) (EQUAL (EVAL$ (QUOTE *1*TRUE) (TIMES-TREE (DELETE W X)) A) (QUOTE 1))) LISP-CODE *1*EQUAL-1-EVAL$-TIMES-TREE-DELETE-END SUBRP *1*FALSE LEVEL-NO 4 IDATE 1000402214756 SATELLITES (*1*EQUAL-1-EVAL$-TIMES-TREE-DELETE-END) IMMEDIATE-DEPENDENTS0 (EQUAL-1-TIMES-TREE-DELETE) EVENT (DEFN EQUAL-1-EVAL$-TIMES-TREE-DELETE-END (W X A) (EQUAL (EVAL$ (QUOTE *1*TRUE) (TIMES-TREE (DELETE W X)) A) (QUOTE 1))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DELETE . EQUAL-1-EVAL$-TIMES-TREE-DELETE-END) (IMMEDIATE-DEPENDENTS0 TIMES-TREE . EQUAL-1-EVAL$-TIMES-TREE-DELETE-END) (DCELL . *1*EQUAL-1-EVAL$-TIMES-TREE-DELETE-END))))) (PUT1-LST (QUOTE ZEROP-MAKES-EQUAL-TRUE-BRIDGE) (QUOTE (IDATE 1000402214756 IMMEDIATE-DEPENDENTS0 (CORRECTNESS-OF-CANCEL-EQUAL-TIMES) EVENT (PROVE-LEMMA ZEROP-MAKES-EQUAL-TRUE-BRIDGE (REWRITE) (IMPLIES (NOT (EVAL$ (QUOTE *1*TRUE) (AND-NOT-ZEROP-TREE (BAGINT (TIMES-FRINGE (CONS (QUOTE TIMES) X)) (TIMES-FRINGE (CONS (QUOTE TIMES) Y)))) A)) (EQUAL (EQUAL (TIMES (EVAL$ (QUOTE *1*TRUE) (CAR X) A) (EVAL$ (QUOTE *1*TRUE) (CAR (CDR X)) A)) (TIMES (EVAL$ (QUOTE *1*TRUE) (CAR Y) A) (EVAL$ (QUOTE *1*TRUE) (CAR (CDR Y)) A))) (QUOTE *1*TRUE))) ((USE (ZEROP-MAKES-TIMES-TREE-ZERO (X (BAGINT (TIMES-FRINGE (CONS (QUOTE TIMES) X)) (TIMES-FRINGE (CONS (QUOTE TIMES) Y)))) (Y (TIMES-FRINGE (CONS (QUOTE TIMES) X)))) (ZEROP-MAKES-TIMES-TREE-ZERO (X (BAGINT (TIMES-FRINGE (CONS (QUOTE TIMES) X)) (TIMES-FRINGE (CONS (QUOTE TIMES) Y)))) (Y (TIMES-FRINGE (CONS (QUOTE TIMES) Y))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUBBAGP-BAGINT1 . ZEROP-MAKES-EQUAL-TRUE-BRIDGE) (IMMEDIATE-DEPENDENTS0 TIMES-TREE-TIMES-FRINGE . ZEROP-MAKES-EQUAL-TRUE-BRIDGE) (IMMEDIATE-DEPENDENTS0 EVAL$-TIMES-TREE-APPEND . ZEROP-MAKES-EQUAL-TRUE-BRIDGE) (IMMEDIATE-DEPENDENTS0 TIMES-EQUAL-0 . ZEROP-MAKES-EQUAL-TRUE-BRIDGE) (IMMEDIATE-DEPENDENTS0 SUBBAGP-BAGINT2 . ZEROP-MAKES-EQUAL-TRUE-BRIDGE) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . ZEROP-MAKES-EQUAL-TRUE-BRIDGE) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . ZEROP-MAKES-EQUAL-TRUE-BRIDGE) (IMMEDIATE-DEPENDENTS0 ZEROP-MAKES-TIMES-TREE-ZERO . ZEROP-MAKES-EQUAL-TRUE-BRIDGE) (IMMEDIATE-DEPENDENTS0 TIMES-FRINGE . ZEROP-MAKES-EQUAL-TRUE-BRIDGE) (IMMEDIATE-DEPENDENTS0 BAGINT . ZEROP-MAKES-EQUAL-TRUE-BRIDGE) (IMMEDIATE-DEPENDENTS0 AND-NOT-ZEROP-TREE . ZEROP-MAKES-EQUAL-TRUE-BRIDGE) (LEMMAS EQUAL . ZEROP-MAKES-EQUAL-TRUE-BRIDGE))))) (PUT1-LST (QUOTE EVAL$-EQUAL-TIMES-TREE-BAGDIFF) (QUOTE (IDATE 1000402214756 IMMEDIATE-DEPENDENTS0 (CORRECTNESS-OF-CANCEL-EQUAL-TIMES) EVENT (PROVE-LEMMA EVAL$-EQUAL-TIMES-TREE-BAGDIFF (REWRITE) (IMPLIES (AND (EVAL$ (QUOTE *1*TRUE) (AND-NOT-ZEROP-TREE X) A) (AND (SUBBAGP X Y) (SUBBAGP X Z))) (EQUAL (EQUAL (EVAL$ (QUOTE *1*TRUE) (TIMES-TREE (BAGDIFF Y X)) A) (EVAL$ (QUOTE *1*TRUE) (TIMES-TREE (BAGDIFF Z X)) A)) (EQUAL (EVAL$ (QUOTE *1*TRUE) (TIMES-TREE Y) A) (EVAL$ (QUOTE *1*TRUE) (TIMES-TREE Z) A))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EVAL$-TIMES-MEMBER . EVAL$-EQUAL-TIMES-TREE-BAGDIFF) (IMMEDIATE-DEPENDENTS0 EVAL$-TIMES-TREE-NUMBERP . EVAL$-EQUAL-TIMES-TREE-BAGDIFF) (IMMEDIATE-DEPENDENTS0 TIMES-EQUAL-CANCEL . EVAL$-EQUAL-TIMES-TREE-BAGDIFF) (IMMEDIATE-DEPENDENTS0 SUBBAGP-CDR2 . EVAL$-EQUAL-TIMES-TREE-BAGDIFF) (IMMEDIATE-DEPENDENTS0 BAGDIFF . EVAL$-EQUAL-TIMES-TREE-BAGDIFF) (IMMEDIATE-DEPENDENTS0 TIMES-TREE . EVAL$-EQUAL-TIMES-TREE-BAGDIFF) (IMMEDIATE-DEPENDENTS0 SUBBAGP . EVAL$-EQUAL-TIMES-TREE-BAGDIFF) (IMMEDIATE-DEPENDENTS0 AND-NOT-ZEROP-TREE . EVAL$-EQUAL-TIMES-TREE-BAGDIFF) (LEMMAS EQUAL . EVAL$-EQUAL-TIMES-TREE-BAGDIFF))))) (PUT1-LST (QUOTE LESSP-1-TIMES-TREE-DELETE-OFF) (QUOTE (IDATE 1000402214755 EVENT (TOGGLE LESSP-1-TIMES-TREE-DELETE-OFF LESSP-1-TIMES-TREE-DELETE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-1-TIMES-TREE-DELETE . LESSP-1-TIMES-TREE-DELETE-OFF) (DISABLED-LEMMAS NIL LESSP-1-TIMES-TREE-DELETE LESSP-1-TIMES-TREE-DELETE-OFF . T))))) (PUT1-LST (QUOTE AND-NOT-ZEROP-TREE-DELETE-OFF) (QUOTE (IDATE 1000402214755 EVENT (TOGGLE AND-NOT-ZEROP-TREE-DELETE-OFF AND-NOT-ZEROP-TREE-DELETE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 AND-NOT-ZEROP-TREE-DELETE . AND-NOT-ZEROP-TREE-DELETE-OFF) (DISABLED-LEMMAS NIL AND-NOT-ZEROP-TREE-DELETE AND-NOT-ZEROP-TREE-DELETE-OFF . T))))) (PUT1-LST (QUOTE CORRECTNESS-OF-CANCEL-LESSP-TIMES) (QUOTE (IDATE 1000402214755 IMMEDIATE-DEPENDENTS0 (LESSP-TIMES-LESSP DIFFERENCE-LESSP-CANCEL-1 WRITEM-MEM-H PUT-GET-LST-IS-CPY READ-WRITEM-MEM WRITEM-ELSE-MEM-ILST WRITEM-ELSE-MEM-LST WRITEM-MEM-MCODE-ADDRP PC-READ-MEM-WRITEM-MEM WRITE-MEMP-RAM1-ASL READ-MEMP-ROM1-ASL READ-MEMP-RAM1-ASL TIMES-LESSP-CANCEL1 MEM-LST-LESSP TIMES-PLUS-LESSP-CANCEL PC-READ-MEM-NAT-RANGEP PLUS-TIMES-EQUAL LOGEOR-NAT-RANGEP LOGOR-NAT-RANGEP LESSP-TIMES-EXP-1S ASL-INT-CROCK2 BV-HEAD-NAT LOG-TIMES-EXP-1 LOG-TIMES-EXP LOG-EXP LESSP-PLUS-TIMES-EXP2 QUOTIENT-CROCK REMAINDER-CROCK QUOTIENT-TIMES TIMES-EXP2-LESSP EXP-LESSP) EVENT (PROVE-LEMMA CORRECTNESS-OF-CANCEL-LESSP-TIMES ((META LESSP)) (EQUAL (EVAL$ (QUOTE *1*TRUE) X A) (EVAL$ (QUOTE *1*TRUE) (CANCEL-LESSP-TIMES X) A))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 AND-NOT-ZEROP-TREE-DELETE . CORRECTNESS-OF-CANCEL-LESSP-TIMES) (IMMEDIATE-DEPENDENTS0 SUBBAGP-BAGINT2 . CORRECTNESS-OF-CANCEL-LESSP-TIMES) (IMMEDIATE-DEPENDENTS0 SUBBAGP-BAGINT1 . CORRECTNESS-OF-CANCEL-LESSP-TIMES) (IMMEDIATE-DEPENDENTS0 EVAL$-LESSP-TIMES-TREE-BAGDIFF . CORRECTNESS-OF-CANCEL-LESSP-TIMES) (IMMEDIATE-DEPENDENTS0 ZEROP-MAKES-LESSP-FALSE-BRIDGE . CORRECTNESS-OF-CANCEL-LESSP-TIMES) (IMMEDIATE-DEPENDENTS0 EVAL$-TIMES-FRINGE-MEMBER-ZERO . CORRECTNESS-OF-CANCEL-LESSP-TIMES) (IMMEDIATE-DEPENDENTS0 EVAL$-QUOTE . CORRECTNESS-OF-CANCEL-LESSP-TIMES) (IMMEDIATE-DEPENDENTS0 NUMBERP-EVAL$-TIMES . CORRECTNESS-OF-CANCEL-LESSP-TIMES) (IMMEDIATE-DEPENDENTS0 TIMES-TREE-TIMES-FRINGE . CORRECTNESS-OF-CANCEL-LESSP-TIMES) (IMMEDIATE-DEPENDENTS0 LESSP-1-TIMES-TREE-DELETE . CORRECTNESS-OF-CANCEL-LESSP-TIMES) (IMMEDIATE-DEPENDENTS0 CANCEL-LESSP-TIMES . CORRECTNESS-OF-CANCEL-LESSP-TIMES) (LEMMAS LESSP . CORRECTNESS-OF-CANCEL-LESSP-TIMES))))) (PUT1-LST (QUOTE *1*CANCEL-LESSP-TIMES) (QUOTE (MAIN-EVENT CANCEL-LESSP-TIMES))) (PUT1-LST (QUOTE CANCEL-LESSP-TIMES) (QUOTE (TYPE-PRESCRIPTION-LST ((CANCEL-LESSP-TIMES 16 T)) TOTALP-LST ((CANCEL-LESSP-TIMES . T)) SDEFN (LAMBDA (X) (IF (LISTP X) (IF (EQUAL (CAR X) (QUOTE LESSP)) (IF (EQUAL (CAR (CAR (CDR X))) (QUOTE TIMES)) (IF (EQUAL (CAR (CAR (CDR (CDR X)))) (QUOTE TIMES)) (IF (LISTP (BAGINT (TIMES-FRINGE (CAR (CDR X))) (TIMES-FRINGE (CAR (CDR (CDR X)))))) (CONS (QUOTE AND) (CONS (AND-NOT-ZEROP-TREE (BAGINT (TIMES-FRINGE (CAR (CDR X))) (TIMES-FRINGE (CAR (CDR (CDR X)))))) (CONS (CONS (QUOTE LESSP) (CONS (TIMES-TREE (BAGDIFF (TIMES-FRINGE (CAR (CDR X))) (BAGINT (TIMES-FRINGE (CAR (CDR X))) (TIMES-FRINGE (CAR (CDR (CDR X))))))) (CONS (TIMES-TREE (BAGDIFF (TIMES-FRINGE (CAR (CDR (CDR X)))) (BAGINT (TIMES-FRINGE (CAR (CDR X))) (TIMES-FRINGE (CAR (CDR (CDR X))))))) (QUOTE NIL)))) (QUOTE NIL)))) X) (IF (LISTP (CAR (CDR X))) (IF (MEMBER (CAR (CDR (CDR X))) (TIMES-FRINGE (CAR (CDR X)))) (CONS (QUOTE AND) (CONS (CONS (QUOTE NOT) (CONS (CONS (QUOTE ZEROP) (CONS (CAR (CDR (CDR X))) (QUOTE NIL))) (QUOTE NIL))) (CONS (CONS (QUOTE NOT) (CONS (AND-NOT-ZEROP-TREE (DELETE (CAR (CDR (CDR X))) (TIMES-FRINGE (CAR (CDR X))))) (QUOTE NIL))) (QUOTE NIL)))) X) X)) (IF (LISTP (CAR (CDR (CDR X)))) (IF (EQUAL (CAR (CAR (CDR (CDR X)))) (QUOTE TIMES)) (IF (MEMBER (CAR (CDR X)) (TIMES-FRINGE (CAR (CDR (CDR X))))) (CONS (QUOTE AND) (CONS (CONS (QUOTE NOT) (CONS (CONS (QUOTE ZEROP) (CONS (CAR (CDR X)) (QUOTE NIL))) (QUOTE NIL))) (CONS (CONS (QUOTE LESSP) (CONS (QUOTE (QUOTE 1)) (CONS (TIMES-TREE (DELETE (CAR (CDR X)) (TIMES-FRINGE (CAR (CDR (CDR X)))))) (QUOTE NIL)))) (QUOTE NIL)))) X) X) X)) X) X)) LISP-CODE *1*CANCEL-LESSP-TIMES SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402214753 SATELLITES (*1*CANCEL-LESSP-TIMES) IMMEDIATE-DEPENDENTS0 (CORRECTNESS-OF-CANCEL-LESSP-TIMES) EVENT (DEFN CANCEL-LESSP-TIMES (X) (IF (AND (LISTP X) (EQUAL (CAR X) (QUOTE LESSP))) (IF (AND (EQUAL (CAR (CAR (CDR X))) (QUOTE TIMES)) (EQUAL (CAR (CAR (CDR (CDR X)))) (QUOTE TIMES))) (IF (LISTP (BAGINT (TIMES-FRINGE (CAR (CDR X))) (TIMES-FRINGE (CAR (CDR (CDR X)))))) (CONS (QUOTE AND) (CONS (AND-NOT-ZEROP-TREE (BAGINT (TIMES-FRINGE (CAR (CDR X))) (TIMES-FRINGE (CAR (CDR (CDR X)))))) (CONS (CONS (QUOTE LESSP) (CONS (TIMES-TREE (BAGDIFF (TIMES-FRINGE (CAR (CDR X))) (BAGINT (TIMES-FRINGE (CAR (CDR X))) (TIMES-FRINGE (CAR (CDR (CDR X))))))) (CONS (TIMES-TREE (BAGDIFF (TIMES-FRINGE (CAR (CDR (CDR X)))) (BAGINT (TIMES-FRINGE (CAR (CDR X))) (TIMES-FRINGE (CAR (CDR (CDR X))))))) (QUOTE NIL)))) (QUOTE NIL)))) X) (IF (AND (LISTP (CAR (CDR X))) (AND (EQUAL (CAR (CAR (CDR X))) (QUOTE TIMES)) (MEMBER (CAR (CDR (CDR X))) (TIMES-FRINGE (CAR (CDR X)))))) (CONS (QUOTE AND) (CONS (CONS (QUOTE NOT) (CONS (CONS (QUOTE ZEROP) (CONS (CAR (CDR (CDR X))) (QUOTE NIL))) (QUOTE NIL))) (CONS (CONS (QUOTE NOT) (CONS (AND-NOT-ZEROP-TREE (DELETE (CAR (CDR (CDR X))) (TIMES-FRINGE (CAR (CDR X))))) (QUOTE NIL))) (QUOTE NIL)))) (IF (AND (LISTP (CAR (CDR (CDR X)))) (AND (EQUAL (CAR (CAR (CDR (CDR X)))) (QUOTE TIMES)) (MEMBER (CAR (CDR X)) (TIMES-FRINGE (CAR (CDR (CDR X))))))) (CONS (QUOTE AND) (CONS (CONS (QUOTE NOT) (CONS (CONS (QUOTE ZEROP) (CONS (CAR (CDR X)) (QUOTE NIL))) (QUOTE NIL))) (CONS (CONS (QUOTE LESSP) (CONS (QUOTE (QUOTE 1)) (CONS (TIMES-TREE (DELETE (CAR (CDR X)) (TIMES-FRINGE (CAR (CDR (CDR X)))))) (QUOTE NIL)))) (QUOTE NIL)))) X))) X)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DELETE . CANCEL-LESSP-TIMES) (IMMEDIATE-DEPENDENTS0 BAGDIFF . CANCEL-LESSP-TIMES) (IMMEDIATE-DEPENDENTS0 TIMES-TREE . CANCEL-LESSP-TIMES) (IMMEDIATE-DEPENDENTS0 AND-NOT-ZEROP-TREE . CANCEL-LESSP-TIMES) (IMMEDIATE-DEPENDENTS0 TIMES-FRINGE . CANCEL-LESSP-TIMES) (IMMEDIATE-DEPENDENTS0 BAGINT . CANCEL-LESSP-TIMES) (DCELL . *1*CANCEL-LESSP-TIMES))))) (PUT1-LST (QUOTE EVAL$-TIMES-FRINGE-MEMBER-ZERO) (QUOTE (IDATE 1000402214753 IMMEDIATE-DEPENDENTS0 (CORRECTNESS-OF-CANCEL-EQUAL-TIMES CORRECTNESS-OF-CANCEL-LESSP-TIMES) EVENT (PROVE-LEMMA EVAL$-TIMES-FRINGE-MEMBER-ZERO (REWRITE) (IMPLIES (AND (MEMBER E (TIMES-FRINGE (CONS (QUOTE TIMES) X))) (ZEROP (EVAL$ (QUOTE *1*TRUE) E A))) (EQUAL (TIMES (EVAL$ (QUOTE *1*TRUE) (CAR X) A) (EVAL$ (QUOTE *1*TRUE) (CAR (CDR X)) A)) (QUOTE 0))) ((USE (EVAL$-TIMES-MEMBER (X (TIMES-FRINGE (CONS (QUOTE TIMES) X))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EVAL$-TIMES-TREE-NUMBERP . EVAL$-TIMES-FRINGE-MEMBER-ZERO) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . EVAL$-TIMES-FRINGE-MEMBER-ZERO) (IMMEDIATE-DEPENDENTS0 TIMES-TREE-TIMES-FRINGE . EVAL$-TIMES-FRINGE-MEMBER-ZERO) (IMMEDIATE-DEPENDENTS0 EVAL$-TIMES-TREE-APPEND . EVAL$-TIMES-FRINGE-MEMBER-ZERO) (IMMEDIATE-DEPENDENTS0 TIMES-EQUAL-0 . EVAL$-TIMES-FRINGE-MEMBER-ZERO) (IMMEDIATE-DEPENDENTS0 EVAL$-TIMES-MEMBER . EVAL$-TIMES-FRINGE-MEMBER-ZERO) (IMMEDIATE-DEPENDENTS0 TIMES-FRINGE . EVAL$-TIMES-FRINGE-MEMBER-ZERO) (LEMMAS TIMES . EVAL$-TIMES-FRINGE-MEMBER-ZERO))))) (PUT1-LST (QUOTE LESSP-1-TIMES-TREE-DELETE) (QUOTE (IDATE 1000402214753 IMMEDIATE-DEPENDENTS0 (LESSP-1-TIMES-TREE-DELETE-OFF CORRECTNESS-OF-CANCEL-LESSP-TIMES) EVENT (PROVE-LEMMA LESSP-1-TIMES-TREE-DELETE (REWRITE) (IMPLIES (MEMBER W X) (EQUAL (LESSP (QUOTE 1) (EVAL$ (QUOTE *1*TRUE) (TIMES-TREE (DELETE W X)) A)) (IF (ZEROP (EVAL$ (QUOTE *1*TRUE) W A)) (LESSP-1-TIMES-TREE-DELETE-END W X A) (LESSP (EVAL$ (QUOTE *1*TRUE) W A) (EVAL$ (QUOTE *1*TRUE) (TIMES-TREE X) A)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EVAL$-TIMES-MEMBER . LESSP-1-TIMES-TREE-DELETE) (IMMEDIATE-DEPENDENTS0 EVAL$-TIMES-TREE-NUMBERP . LESSP-1-TIMES-TREE-DELETE) (IMMEDIATE-DEPENDENTS0 TIMES-LESSP-CANCEL0 . LESSP-1-TIMES-TREE-DELETE) (IMMEDIATE-DEPENDENTS0 LESSP-1-TIMES-TREE-DELETE-END . LESSP-1-TIMES-TREE-DELETE) (IMMEDIATE-DEPENDENTS0 DELETE . LESSP-1-TIMES-TREE-DELETE) (IMMEDIATE-DEPENDENTS0 TIMES-TREE . LESSP-1-TIMES-TREE-DELETE) (LEMMAS LESSP . LESSP-1-TIMES-TREE-DELETE))))) (PUT1-LST (QUOTE *1*LESSP-1-TIMES-TREE-DELETE-END) (QUOTE (MAIN-EVENT LESSP-1-TIMES-TREE-DELETE-END))) (PUT1-LST (QUOTE LESSP-1-TIMES-TREE-DELETE-END) (QUOTE (TYPE-PRESCRIPTION-LST ((LESSP-1-TIMES-TREE-DELETE-END 3 NIL NIL NIL)) TOTALP-LST ((LESSP-1-TIMES-TREE-DELETE-END)) SDEFN (LAMBDA (W X A) (LESSP (QUOTE 1) (EVAL$ (QUOTE *1*TRUE) (TIMES-TREE (DELETE W X)) A))) LISP-CODE *1*LESSP-1-TIMES-TREE-DELETE-END SUBRP *1*FALSE LEVEL-NO 4 IDATE 1000402214753 SATELLITES (*1*LESSP-1-TIMES-TREE-DELETE-END) IMMEDIATE-DEPENDENTS0 (LESSP-1-TIMES-TREE-DELETE) EVENT (DEFN LESSP-1-TIMES-TREE-DELETE-END (W X A) (LESSP (QUOTE 1) (EVAL$ (QUOTE *1*TRUE) (TIMES-TREE (DELETE W X)) A))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DELETE . LESSP-1-TIMES-TREE-DELETE-END) (IMMEDIATE-DEPENDENTS0 TIMES-TREE . LESSP-1-TIMES-TREE-DELETE-END) (DCELL . *1*LESSP-1-TIMES-TREE-DELETE-END))))) (PUT1-LST (QUOTE AND-NOT-ZEROP-TREE-LESSP-OFF) (QUOTE (IDATE 1000402214753 EVENT (TOGGLE AND-NOT-ZEROP-TREE-LESSP-OFF AND-NOT-ZEROP-TREE-LESSP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 AND-NOT-ZEROP-TREE-LESSP . AND-NOT-ZEROP-TREE-LESSP-OFF) (DISABLED-LEMMAS NIL AND-NOT-ZEROP-TREE-LESSP AND-NOT-ZEROP-TREE-LESSP-OFF . T))))) (PUT1-LST (QUOTE AND-NOT-ZEROP-TREE-DELETE) (QUOTE (IDATE 1000402214753 IMMEDIATE-DEPENDENTS0 (AND-NOT-ZEROP-TREE-DELETE-OFF CORRECTNESS-OF-CANCEL-LESSP-TIMES) EVENT (PROVE-LEMMA AND-NOT-ZEROP-TREE-DELETE (REWRITE) (IMPLIES (MEMBER W X) (EQUAL (EVAL$ (QUOTE *1*TRUE) (AND-NOT-ZEROP-TREE (DELETE W X)) A) (IF (ZEROP (EVAL$ (QUOTE *1*TRUE) W A)) (EVAL$-AND-NOT-ZEROP-TREE-END W X A) (NOT (LESSP (EVAL$ (QUOTE *1*TRUE) (TIMES-TREE X) A) (EVAL$ (QUOTE *1*TRUE) W A))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EVAL$-TIMES-TREE-NUMBERP . AND-NOT-ZEROP-TREE-DELETE) (IMMEDIATE-DEPENDENTS0 LESSP-OF-1 . AND-NOT-ZEROP-TREE-DELETE) (IMMEDIATE-DEPENDENTS0 AND-NOT-ZEROP-TREE-LESSP . AND-NOT-ZEROP-TREE-DELETE) (IMMEDIATE-DEPENDENTS0 EVAL$-TIMES-MEMBER . AND-NOT-ZEROP-TREE-DELETE) (IMMEDIATE-DEPENDENTS0 TIMES-LESSP-CANCEL0 . AND-NOT-ZEROP-TREE-DELETE) (IMMEDIATE-DEPENDENTS0 TIMES-TREE . AND-NOT-ZEROP-TREE-DELETE) (IMMEDIATE-DEPENDENTS0 EVAL$-AND-NOT-ZEROP-TREE-END . AND-NOT-ZEROP-TREE-DELETE) (IMMEDIATE-DEPENDENTS0 DELETE . AND-NOT-ZEROP-TREE-DELETE) (IMMEDIATE-DEPENDENTS0 AND-NOT-ZEROP-TREE . AND-NOT-ZEROP-TREE-DELETE) (LEMMAS EVAL$ . AND-NOT-ZEROP-TREE-DELETE))))) (PUT1-LST (QUOTE *1*EVAL$-AND-NOT-ZEROP-TREE-END) (QUOTE (MAIN-EVENT EVAL$-AND-NOT-ZEROP-TREE-END))) (PUT1-LST (QUOTE EVAL$-AND-NOT-ZEROP-TREE-END) (QUOTE (TYPE-PRESCRIPTION-LST ((EVAL$-AND-NOT-ZEROP-TREE-END -1 NIL NIL NIL)) TOTALP-LST ((EVAL$-AND-NOT-ZEROP-TREE-END)) SDEFN (LAMBDA (W X A) (EVAL$ (QUOTE *1*TRUE) (AND-NOT-ZEROP-TREE (DELETE W X)) A)) LISP-CODE *1*EVAL$-AND-NOT-ZEROP-TREE-END SUBRP *1*FALSE LEVEL-NO 4 IDATE 1000402214753 SATELLITES (*1*EVAL$-AND-NOT-ZEROP-TREE-END) IMMEDIATE-DEPENDENTS0 (AND-NOT-ZEROP-TREE-DELETE) EVENT (DEFN EVAL$-AND-NOT-ZEROP-TREE-END (W X A) (EVAL$ (QUOTE *1*TRUE) (AND-NOT-ZEROP-TREE (DELETE W X)) A)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DELETE . EVAL$-AND-NOT-ZEROP-TREE-END) (IMMEDIATE-DEPENDENTS0 AND-NOT-ZEROP-TREE . EVAL$-AND-NOT-ZEROP-TREE-END) (DCELL . *1*EVAL$-AND-NOT-ZEROP-TREE-END))))) (PUT1-LST (QUOTE AND-NOT-ZEROP-TREE-LESSP) (QUOTE (IDATE 1000402214753 IMMEDIATE-DEPENDENTS0 (AND-NOT-ZEROP-TREE-LESSP-OFF AND-NOT-ZEROP-TREE-DELETE) EVENT (PROVE-LEMMA AND-NOT-ZEROP-TREE-LESSP (REWRITE) (EQUAL (EVAL$ (QUOTE *1*TRUE) (AND-NOT-ZEROP-TREE X) A) (NOT (LESSP (EVAL$ (QUOTE *1*TRUE) (TIMES-TREE X) A) (QUOTE 1))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-ZERO . AND-NOT-ZEROP-TREE-LESSP) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . AND-NOT-ZEROP-TREE-LESSP) (IMMEDIATE-DEPENDENTS0 TIMES-EQUAL-0 . AND-NOT-ZEROP-TREE-LESSP) (IMMEDIATE-DEPENDENTS0 EVAL$-QUOTE . AND-NOT-ZEROP-TREE-LESSP) (IMMEDIATE-DEPENDENTS0 EVAL$-TIMES-TREE-NUMBERP . AND-NOT-ZEROP-TREE-LESSP) (IMMEDIATE-DEPENDENTS0 LESSP-OF-1 . AND-NOT-ZEROP-TREE-LESSP) (IMMEDIATE-DEPENDENTS0 TIMES-TREE . AND-NOT-ZEROP-TREE-LESSP) (IMMEDIATE-DEPENDENTS0 AND-NOT-ZEROP-TREE . AND-NOT-ZEROP-TREE-LESSP) (LEMMAS EVAL$ . AND-NOT-ZEROP-TREE-LESSP))))) (PUT1-LST (QUOTE ZEROP-MAKES-LESSP-FALSE-BRIDGE) (QUOTE (IDATE 1000402214753 IMMEDIATE-DEPENDENTS0 (CORRECTNESS-OF-CANCEL-LESSP-TIMES) EVENT (PROVE-LEMMA ZEROP-MAKES-LESSP-FALSE-BRIDGE (REWRITE) (IMPLIES (NOT (EVAL$ (QUOTE *1*TRUE) (AND-NOT-ZEROP-TREE (BAGINT (TIMES-FRINGE (CONS (QUOTE TIMES) X)) (TIMES-FRINGE (CONS (QUOTE TIMES) Y)))) A)) (EQUAL (LESSP (TIMES (EVAL$ (QUOTE *1*TRUE) (CAR X) A) (EVAL$ (QUOTE *1*TRUE) (CAR (CDR X)) A)) (TIMES (EVAL$ (QUOTE *1*TRUE) (CAR Y) A) (EVAL$ (QUOTE *1*TRUE) (CAR (CDR Y)) A))) (QUOTE *1*FALSE))) ((USE (ZEROP-MAKES-TIMES-TREE-ZERO (X (BAGINT (TIMES-FRINGE (CONS (QUOTE TIMES) X)) (TIMES-FRINGE (CONS (QUOTE TIMES) Y)))) (Y (TIMES-FRINGE (CONS (QUOTE TIMES) X)))) (ZEROP-MAKES-TIMES-TREE-ZERO (X (BAGINT (TIMES-FRINGE (CONS (QUOTE TIMES) X)) (TIMES-FRINGE (CONS (QUOTE TIMES) Y)))) (Y (TIMES-FRINGE (CONS (QUOTE TIMES) Y))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUBBAGP-BAGINT1 . ZEROP-MAKES-LESSP-FALSE-BRIDGE) (IMMEDIATE-DEPENDENTS0 TIMES-TREE-TIMES-FRINGE . ZEROP-MAKES-LESSP-FALSE-BRIDGE) (IMMEDIATE-DEPENDENTS0 EVAL$-TIMES-TREE-APPEND . ZEROP-MAKES-LESSP-FALSE-BRIDGE) (IMMEDIATE-DEPENDENTS0 TIMES-EQUAL-0 . ZEROP-MAKES-LESSP-FALSE-BRIDGE) (IMMEDIATE-DEPENDENTS0 SUBBAGP-BAGINT2 . ZEROP-MAKES-LESSP-FALSE-BRIDGE) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . ZEROP-MAKES-LESSP-FALSE-BRIDGE) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . ZEROP-MAKES-LESSP-FALSE-BRIDGE) (IMMEDIATE-DEPENDENTS0 ZEROP-MAKES-TIMES-TREE-ZERO . ZEROP-MAKES-LESSP-FALSE-BRIDGE) (IMMEDIATE-DEPENDENTS0 TIMES-FRINGE . ZEROP-MAKES-LESSP-FALSE-BRIDGE) (IMMEDIATE-DEPENDENTS0 BAGINT . ZEROP-MAKES-LESSP-FALSE-BRIDGE) (IMMEDIATE-DEPENDENTS0 AND-NOT-ZEROP-TREE . ZEROP-MAKES-LESSP-FALSE-BRIDGE) (LEMMAS LESSP . ZEROP-MAKES-LESSP-FALSE-BRIDGE))))) (PUT1-LST (QUOTE EVAL$-LESSP-TIMES-TREE-BAGDIFF) (QUOTE (IDATE 1000402214753 IMMEDIATE-DEPENDENTS0 (CORRECTNESS-OF-CANCEL-LESSP-TIMES) EVENT (PROVE-LEMMA EVAL$-LESSP-TIMES-TREE-BAGDIFF (REWRITE) (IMPLIES (AND (EVAL$ (QUOTE *1*TRUE) (AND-NOT-ZEROP-TREE X) A) (AND (SUBBAGP X Y) (SUBBAGP X Z))) (EQUAL (LESSP (EVAL$ (QUOTE *1*TRUE) (TIMES-TREE (BAGDIFF Y X)) A) (EVAL$ (QUOTE *1*TRUE) (TIMES-TREE (BAGDIFF Z X)) A)) (LESSP (EVAL$ (QUOTE *1*TRUE) (TIMES-TREE Y) A) (EVAL$ (QUOTE *1*TRUE) (TIMES-TREE Z) A))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EVAL$-TIMES-MEMBER . EVAL$-LESSP-TIMES-TREE-BAGDIFF) (IMMEDIATE-DEPENDENTS0 TIMES-LESSP-CANCEL . EVAL$-LESSP-TIMES-TREE-BAGDIFF) (IMMEDIATE-DEPENDENTS0 SUBBAGP-CDR2 . EVAL$-LESSP-TIMES-TREE-BAGDIFF) (IMMEDIATE-DEPENDENTS0 BAGDIFF . EVAL$-LESSP-TIMES-TREE-BAGDIFF) (IMMEDIATE-DEPENDENTS0 TIMES-TREE . EVAL$-LESSP-TIMES-TREE-BAGDIFF) (IMMEDIATE-DEPENDENTS0 SUBBAGP . EVAL$-LESSP-TIMES-TREE-BAGDIFF) (IMMEDIATE-DEPENDENTS0 AND-NOT-ZEROP-TREE . EVAL$-LESSP-TIMES-TREE-BAGDIFF) (LEMMAS LESSP . EVAL$-LESSP-TIMES-TREE-BAGDIFF))))) (PUT1-LST (QUOTE TIMES-TREE-TIMES-FRINGE) (QUOTE (IDATE 1000402214752 IMMEDIATE-DEPENDENTS0 (CORRECTNESS-OF-CANCEL-EQUAL-TIMES ZEROP-MAKES-EQUAL-TRUE-BRIDGE CORRECTNESS-OF-CANCEL-LESSP-TIMES EVAL$-TIMES-FRINGE-MEMBER-ZERO ZEROP-MAKES-LESSP-FALSE-BRIDGE) EVENT (PROVE-LEMMA TIMES-TREE-TIMES-FRINGE (REWRITE) (EQUAL (EVAL$ (QUOTE *1*TRUE) (TIMES-TREE (TIMES-FRINGE X)) A) (FIX (EVAL$ (QUOTE *1*TRUE) X A))) ((INDUCT (TIMES-FRINGE X)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EVAL$-TIMES-TREE-APPEND . TIMES-TREE-TIMES-FRINGE) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . TIMES-TREE-TIMES-FRINGE) (IMMEDIATE-DEPENDENTS0 CADR-EVAL$-LIST . TIMES-TREE-TIMES-FRINGE) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . TIMES-TREE-TIMES-FRINGE) (IMMEDIATE-DEPENDENTS0 NUMBERP-EVAL$-TIMES . TIMES-TREE-TIMES-FRINGE) (IMMEDIATE-DEPENDENTS0 TIMES-FRINGE . TIMES-TREE-TIMES-FRINGE) (IMMEDIATE-DEPENDENTS0 TIMES-TREE . TIMES-TREE-TIMES-FRINGE) (LEMMAS EVAL$ . TIMES-TREE-TIMES-FRINGE))))) (PUT1-LST (QUOTE EVAL$-TIMES-TREE-APPEND) (QUOTE (IDATE 1000402214752 IMMEDIATE-DEPENDENTS0 (ZEROP-MAKES-EQUAL-TRUE-BRIDGE EVAL$-TIMES-FRINGE-MEMBER-ZERO ZEROP-MAKES-LESSP-FALSE-BRIDGE TIMES-TREE-TIMES-FRINGE) EVENT (PROVE-LEMMA EVAL$-TIMES-TREE-APPEND (REWRITE) (EQUAL (EVAL$ (QUOTE *1*TRUE) (TIMES-TREE (APPEND X Y)) A) (TIMES (EVAL$ (QUOTE *1*TRUE) (TIMES-TREE X) A) (EVAL$ (QUOTE *1*TRUE) (TIMES-TREE Y) A)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-EQUAL-CANCEL0 . EVAL$-TIMES-TREE-APPEND) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY1 . EVAL$-TIMES-TREE-APPEND) (IMMEDIATE-DEPENDENTS0 TIMES-EQUAL-0 . EVAL$-TIMES-TREE-APPEND) (IMMEDIATE-DEPENDENTS0 TIMES-EQUAL-CANCEL . EVAL$-TIMES-TREE-APPEND) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . EVAL$-TIMES-TREE-APPEND) (IMMEDIATE-DEPENDENTS0 EVAL$-TIMES-TREE-NUMBERP . EVAL$-TIMES-TREE-APPEND) (IMMEDIATE-DEPENDENTS0 EVAL$-QUOTE . EVAL$-TIMES-TREE-APPEND) (IMMEDIATE-DEPENDENTS0 TIMES-EQUAL-1 . EVAL$-TIMES-TREE-APPEND) (IMMEDIATE-DEPENDENTS0 TIMES-1 . EVAL$-TIMES-TREE-APPEND) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . EVAL$-TIMES-TREE-APPEND) (IMMEDIATE-DEPENDENTS0 TIMES-TREE . EVAL$-TIMES-TREE-APPEND) (LEMMAS EVAL$ . EVAL$-TIMES-TREE-APPEND))))) (PUT1-LST (QUOTE ZEROP-MAKES-TIMES-TREE-ZERO) (QUOTE (IDATE 1000402214751 IMMEDIATE-DEPENDENTS0 (ZEROP-MAKES-EQUAL-TRUE-BRIDGE ZEROP-MAKES-LESSP-FALSE-BRIDGE) EVENT (PROVE-LEMMA ZEROP-MAKES-TIMES-TREE-ZERO (REWRITE) (IMPLIES (AND (NOT (EVAL$ (QUOTE *1*TRUE) (AND-NOT-ZEROP-TREE X) A)) (SUBBAGP X Y)) (EQUAL (EVAL$ (QUOTE *1*TRUE) (TIMES-TREE Y) A) (QUOTE 0)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . ZEROP-MAKES-TIMES-TREE-ZERO) (IMMEDIATE-DEPENDENTS0 EVAL$-TIMES-TREE-NUMBERP . ZEROP-MAKES-TIMES-TREE-ZERO) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . ZEROP-MAKES-TIMES-TREE-ZERO) (IMMEDIATE-DEPENDENTS0 EVAL$-TIMES-MEMBER . ZEROP-MAKES-TIMES-TREE-ZERO) (IMMEDIATE-DEPENDENTS0 TIMES-TREE . ZEROP-MAKES-TIMES-TREE-ZERO) (IMMEDIATE-DEPENDENTS0 SUBBAGP . ZEROP-MAKES-TIMES-TREE-ZERO) (IMMEDIATE-DEPENDENTS0 AND-NOT-ZEROP-TREE . ZEROP-MAKES-TIMES-TREE-ZERO) (LEMMAS EVAL$ . ZEROP-MAKES-TIMES-TREE-ZERO))))) (PUT1-LST (QUOTE EVAL$-TIMES-MEMBER) (QUOTE (IDATE 1000402214751 IMMEDIATE-DEPENDENTS0 (EQUAL-1-TIMES-TREE-DELETE EVAL$-EQUAL-TIMES-TREE-BAGDIFF EVAL$-TIMES-FRINGE-MEMBER-ZERO LESSP-1-TIMES-TREE-DELETE AND-NOT-ZEROP-TREE-DELETE EVAL$-LESSP-TIMES-TREE-BAGDIFF ZEROP-MAKES-TIMES-TREE-ZERO) EVENT (PROVE-LEMMA EVAL$-TIMES-MEMBER (REWRITE) (IMPLIES (MEMBER E X) (EQUAL (EVAL$ (QUOTE *1*TRUE) (TIMES-TREE X) A) (TIMES (EVAL$ (QUOTE *1*TRUE) E A) (EVAL$ (QUOTE *1*TRUE) (TIMES-TREE (DELETE E X)) A))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY1 . EVAL$-TIMES-MEMBER) (IMMEDIATE-DEPENDENTS0 DELETE-NON-MEMBER . EVAL$-TIMES-MEMBER) (IMMEDIATE-DEPENDENTS0 TIMES-EQUAL-0 . EVAL$-TIMES-MEMBER) (IMMEDIATE-DEPENDENTS0 TIMES-1 . EVAL$-TIMES-MEMBER) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . EVAL$-TIMES-MEMBER) (IMMEDIATE-DEPENDENTS0 TIMES-EQUAL-CANCEL . EVAL$-TIMES-MEMBER) (IMMEDIATE-DEPENDENTS0 EVAL$-QUOTE . EVAL$-TIMES-MEMBER) (IMMEDIATE-DEPENDENTS0 TIMES-EQUAL-CANCEL0 . EVAL$-TIMES-MEMBER) (IMMEDIATE-DEPENDENTS0 EVAL$-TIMES-TREE-NUMBERP . EVAL$-TIMES-MEMBER) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . EVAL$-TIMES-MEMBER) (IMMEDIATE-DEPENDENTS0 DELETE . EVAL$-TIMES-MEMBER) (IMMEDIATE-DEPENDENTS0 TIMES-TREE . EVAL$-TIMES-MEMBER) (LEMMAS EVAL$ . EVAL$-TIMES-MEMBER))))) (PUT1-LST (QUOTE EVAL$-TIMES-TREE-NUMBERP) (QUOTE (IDATE 1000402214748 IMMEDIATE-DEPENDENTS0 (EVAL$-EQUAL-TIMES-TREE-BAGDIFF EVAL$-TIMES-FRINGE-MEMBER-ZERO LESSP-1-TIMES-TREE-DELETE AND-NOT-ZEROP-TREE-DELETE AND-NOT-ZEROP-TREE-LESSP EVAL$-TIMES-TREE-APPEND ZEROP-MAKES-TIMES-TREE-ZERO EVAL$-TIMES-MEMBER) EVENT (PROVE-LEMMA EVAL$-TIMES-TREE-NUMBERP (REWRITE) (NUMBERP (EVAL$ (QUOTE *1*TRUE) (TIMES-TREE X) A))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EVAL$-QUOTE . EVAL$-TIMES-TREE-NUMBERP) (IMMEDIATE-DEPENDENTS0 TIMES-TREE . EVAL$-TIMES-TREE-NUMBERP) (LEMMAS NUMBERP . EVAL$-TIMES-TREE-NUMBERP))))) (PUT1-LST (QUOTE NUMBERP-EVAL$-TIMES) (QUOTE (IDATE 1000402214748 IMMEDIATE-DEPENDENTS0 (CORRECTNESS-OF-CANCEL-EQUAL-TIMES CORRECTNESS-OF-CANCEL-LESSP-TIMES TIMES-TREE-TIMES-FRINGE) EVENT (PROVE-LEMMA NUMBERP-EVAL$-TIMES (REWRITE) (IMPLIES (EQUAL (CAR X) (QUOTE TIMES)) (NUMBERP (EVAL$ (QUOTE *1*TRUE) X A)))) LOCAL-UNDO-TUPLES ((LEMMAS NUMBERP . NUMBERP-EVAL$-TIMES))))) (PUT1-LST (QUOTE *1*AND-NOT-ZEROP-TREE) (QUOTE (MAIN-EVENT AND-NOT-ZEROP-TREE))) (PUT1-LST (QUOTE AND-NOT-ZEROP-TREE) (QUOTE (TYPE-PRESCRIPTION-LST ((AND-NOT-ZEROP-TREE 16 NIL)) TOTALP-LST ((AND-NOT-ZEROP-TREE . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE) SDEFN (LAMBDA (X) (IF (LISTP X) (IF (LISTP (CDR X)) (CONS (QUOTE AND) (CONS (CONS (QUOTE NOT) (CONS (CONS (QUOTE ZEROP) (CONS (CAR X) (QUOTE NIL))) (QUOTE NIL))) (CONS (AND-NOT-ZEROP-TREE (CDR X)) (QUOTE NIL)))) (CONS (QUOTE NOT) (CONS (CONS (QUOTE ZEROP) (CONS (CAR X) (QUOTE NIL))) (QUOTE NIL)))) (QUOTE (TRUE)))) LISP-CODE *1*AND-NOT-ZEROP-TREE SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((NLISTP X)) NIL) (TESTS-AND-CASES ((NOT (NLISTP X)) (NLISTP (CDR X))) NIL) (TESTS-AND-CASES ((NOT (NLISTP X)) (NOT (NLISTP (CDR X)))) (((CDR X))))) LEVEL-NO 1 JUSTIFICATIONS ((JUSTIFICATION (X) (COUNT X) LESSP (CDR-LESSP NLISTP ZERO CDR-LESSEQP))) IDATE 1000402214748 CONTROLLER-POCKETS (1) SATELLITES (*1*AND-NOT-ZEROP-TREE) IMMEDIATE-DEPENDENTS0 (CANCEL-EQUAL-TIMES ZEROP-MAKES-EQUAL-TRUE-BRIDGE EVAL$-EQUAL-TIMES-TREE-BAGDIFF CANCEL-LESSP-TIMES AND-NOT-ZEROP-TREE-DELETE EVAL$-AND-NOT-ZEROP-TREE-END AND-NOT-ZEROP-TREE-LESSP ZEROP-MAKES-LESSP-FALSE-BRIDGE EVAL$-LESSP-TIMES-TREE-BAGDIFF ZEROP-MAKES-TIMES-TREE-ZERO) EVENT (DEFN AND-NOT-ZEROP-TREE (X) (IF (NLISTP X) (QUOTE (TRUE)) (IF (NLISTP (CDR X)) (CONS (QUOTE NOT) (CONS (CONS (QUOTE ZEROP) (CONS (CAR X) (QUOTE NIL))) (QUOTE NIL))) (CONS (QUOTE AND) (CONS (CONS (QUOTE NOT) (CONS (CONS (QUOTE ZEROP) (CONS (CAR X) (QUOTE NIL))) (QUOTE NIL))) (CONS (AND-NOT-ZEROP-TREE (CDR X)) (QUOTE NIL))))))) LOCAL-UNDO-TUPLES ((DCELL . *1*AND-NOT-ZEROP-TREE))))) (PUT1-LST (QUOTE *1*TIMES-TREE) (QUOTE (MAIN-EVENT TIMES-TREE))) (PUT1-LST (QUOTE TIMES-TREE) (QUOTE (TYPE-PRESCRIPTION-LST ((TIMES-TREE 16 NIL)) TOTALP-LST ((TIMES-TREE . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE) SDEFN (LAMBDA (X) (IF (LISTP X) (IF (LISTP (CDR X)) (IF (LISTP (CDR (CDR X))) (CONS (QUOTE TIMES) (CONS (CAR X) (CONS (TIMES-TREE (CDR X)) (QUOTE NIL)))) (CONS (QUOTE TIMES) (CONS (CAR X) (CONS (CAR (CDR X)) (QUOTE NIL))))) (CONS (QUOTE FIX) (CONS (CAR X) (QUOTE NIL)))) (QUOTE (QUOTE 1)))) LISP-CODE *1*TIMES-TREE SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((NLISTP X)) NIL) (TESTS-AND-CASES ((NOT (NLISTP X)) (NLISTP (CDR X))) NIL) (TESTS-AND-CASES ((NOT (NLISTP X)) (NOT (NLISTP (CDR X))) (NLISTP (CDR (CDR X)))) NIL) (TESTS-AND-CASES ((NOT (NLISTP X)) (NOT (NLISTP (CDR X))) (NOT (NLISTP (CDR (CDR X))))) (((CDR X))))) LEVEL-NO 1 JUSTIFICATIONS ((JUSTIFICATION (X) (COUNT X) LESSP (CDR-LESSP NLISTP ZERO CDR-LESSEQP))) IDATE 1000402214748 CONTROLLER-POCKETS (1) SATELLITES (*1*TIMES-TREE) IMMEDIATE-DEPENDENTS0 (CANCEL-EQUAL-TIMES EQUAL-1-TIMES-TREE-DELETE EQUAL-1-EVAL$-TIMES-TREE-DELETE-END EVAL$-EQUAL-TIMES-TREE-BAGDIFF CANCEL-LESSP-TIMES LESSP-1-TIMES-TREE-DELETE LESSP-1-TIMES-TREE-DELETE-END AND-NOT-ZEROP-TREE-DELETE AND-NOT-ZEROP-TREE-LESSP EVAL$-LESSP-TIMES-TREE-BAGDIFF TIMES-TREE-TIMES-FRINGE EVAL$-TIMES-TREE-APPEND ZEROP-MAKES-TIMES-TREE-ZERO EVAL$-TIMES-MEMBER EVAL$-TIMES-TREE-NUMBERP) EVENT (DEFN TIMES-TREE (X) (IF (NLISTP X) (QUOTE (QUOTE 1)) (IF (NLISTP (CDR X)) (CONS (QUOTE FIX) (CONS (CAR X) (QUOTE NIL))) (IF (NLISTP (CDR (CDR X))) (CONS (QUOTE TIMES) (CONS (CAR X) (CONS (CAR (CDR X)) (QUOTE NIL)))) (CONS (QUOTE TIMES) (CONS (CAR X) (CONS (TIMES-TREE (CDR X)) (QUOTE NIL)))))))) LOCAL-UNDO-TUPLES ((DCELL . *1*TIMES-TREE))))) (PUT1-LST (QUOTE *1*TIMES-FRINGE) (QUOTE (MAIN-EVENT TIMES-FRINGE))) (PUT1-LST (QUOTE TIMES-FRINGE) (QUOTE (TYPE-PRESCRIPTION-LST ((TIMES-FRINGE 16 NIL)) TOTALP-LST ((TIMES-FRINGE . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE) SDEFN (LAMBDA (X) (IF (LISTP X) (IF (EQUAL (CAR X) (QUOTE TIMES)) (APPEND (TIMES-FRINGE (CAR (CDR X))) (TIMES-FRINGE (CAR (CDR (CDR X))))) (CONS X (QUOTE NIL))) (CONS X (QUOTE NIL)))) LISP-CODE *1*TIMES-FRINGE SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((AND (LISTP X) (EQUAL (CAR X) (QUOTE TIMES)))) (((CAR (CDR (CDR X)))) ((CAR (CDR X))))) (TESTS-AND-CASES ((NOT (AND (LISTP X) (EQUAL (CAR X) (QUOTE TIMES))))) NIL)) LEVEL-NO 2 JUSTIFICATIONS ((JUSTIFICATION (X) (COUNT X) LESSP (CDR-LESSP AND ZERO CDR-LESSEQP CAR-LESSEQP))) IDATE 1000402214748 CONTROLLER-POCKETS (1) SATELLITES (*1*TIMES-FRINGE) IMMEDIATE-DEPENDENTS0 (CANCEL-EQUAL-TIMES ZEROP-MAKES-EQUAL-TRUE-BRIDGE CANCEL-LESSP-TIMES EVAL$-TIMES-FRINGE-MEMBER-ZERO ZEROP-MAKES-LESSP-FALSE-BRIDGE TIMES-TREE-TIMES-FRINGE) EVENT (DEFN TIMES-FRINGE (X) (IF (AND (LISTP X) (EQUAL (CAR X) (QUOTE TIMES))) (APPEND (TIMES-FRINGE (CAR (CDR X))) (TIMES-FRINGE (CAR (CDR (CDR X))))) (CONS X (QUOTE NIL)))) LOCAL-UNDO-TUPLES ((DCELL . *1*TIMES-FRINGE))))) (PUT1-LST (QUOTE TIMES2-ADD1-LESSP-CANCEL) (QUOTE (IDATE 1000402214748 IMMEDIATE-DEPENDENTS0 (LOGEOR-NAT-RANGEP LOGOR-NAT-RANGEP SUB1-TIMES2-NAT-RANGEP BV-HEAD-NAT LESSP-PLUS-TIMES-EXP2) EVENT (PROVE-LEMMA TIMES2-ADD1-LESSP-CANCEL (REWRITE) (EQUAL (LESSP (ADD1 (TIMES (QUOTE 2) I)) (TIMES (QUOTE 2) J)) (LESSP I J))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-OF-1 . TIMES2-ADD1-LESSP-CANCEL) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . TIMES2-ADD1-LESSP-CANCEL) (IMMEDIATE-DEPENDENTS0 SUB1-OF-1 . TIMES2-ADD1-LESSP-CANCEL) (IMMEDIATE-DEPENDENTS0 TIMES-1 . TIMES2-ADD1-LESSP-CANCEL) (IMMEDIATE-DEPENDENTS0 PLUS-EQUAL-0 . TIMES2-ADD1-LESSP-CANCEL) (LEMMAS LESSP . TIMES2-ADD1-LESSP-CANCEL))))) (PUT1-LST (QUOTE TIMES-DISTRIBUTES-DIFFERENCE1) (QUOTE (IDATE 1000402214748 IMMEDIATE-DEPENDENTS0 (PUT-GET-LST-IS-CPY PLUS-TO-IPLUS ASL-INT-CROCK2) EVENT (PROVE-LEMMA TIMES-DISTRIBUTES-DIFFERENCE1 (REWRITE) (EQUAL (DIFFERENCE (TIMES Y X) (TIMES Z X)) (TIMES X (DIFFERENCE Y Z)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . TIMES-DISTRIBUTES-DIFFERENCE1) (IMMEDIATE-DEPENDENTS0 TIMES-DISTRIBUTES-DIFFERENCE . TIMES-DISTRIBUTES-DIFFERENCE1) (LEMMAS DIFFERENCE . TIMES-DISTRIBUTES-DIFFERENCE1))))) (PUT1-LST (QUOTE TIMES-DISTRIBUTES-DIFFERENCE) (QUOTE (IDATE 1000402214748 IMMEDIATE-DEPENDENTS0 (TIMES-SUB1 ASL-INT-CROCK2 BV-NOT-LOGNOT REMAINDER-CROCK TIMES-DISTRIBUTES-DIFFERENCE1) EVENT (PROVE-LEMMA TIMES-DISTRIBUTES-DIFFERENCE (REWRITE) (EQUAL (DIFFERENCE (TIMES X Y) (TIMES X Z)) (TIMES X (DIFFERENCE Y Z))) ((INDUCT (DIFFERENCE Y Z)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS . TIMES-DISTRIBUTES-DIFFERENCE) (IMMEDIATE-DEPENDENTS0 TIMES-ADD1 . TIMES-DISTRIBUTES-DIFFERENCE) (IMMEDIATE-DEPENDENTS0 TIMES-EQUAL-0 . TIMES-DISTRIBUTES-DIFFERENCE) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . TIMES-DISTRIBUTES-DIFFERENCE) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . TIMES-DISTRIBUTES-DIFFERENCE) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . TIMES-DISTRIBUTES-DIFFERENCE) (LEMMAS DIFFERENCE . TIMES-DISTRIBUTES-DIFFERENCE))))) (PUT1-LST (QUOTE TIMES-LESSP-LINEAR) (QUOTE (IDATE 1000402214747 IMMEDIATE-DEPENDENTS0 (TIMES-LESSP_2 ASL-INT) EVENT (PROVE-LEMMA TIMES-LESSP-LINEAR (REWRITE) (IMPLIES (NOT (LESSP I J)) (NOT (LESSP (TIMES A I) (TIMES A J))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-LESSP-CANCEL . TIMES-LESSP-LINEAR) (LINEAR-LEMMAS TIMES . TIMES-LESSP-LINEAR) (LINEAR-LEMMAS TIMES . TIMES-LESSP-LINEAR))))) (PUT1-LST (QUOTE TIMES-LESSP-CANCEL-1) (QUOTE (IDATE 1000402214747 IMMEDIATE-DEPENDENTS0 (GCD-T-SHRINK-2 TIMES-LESSP-CANCEL1) EVENT (PROVE-LEMMA TIMES-LESSP-CANCEL-1 (REWRITE) (EQUAL (LESSP (TIMES X Y) (PLUS X (TIMES X Z))) (AND (NOT (ZEROP X)) (IF (LESSP Z Y) (QUOTE *1*FALSE) (QUOTE *1*TRUE))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUB1-OF-1 . TIMES-LESSP-CANCEL-1) (IMMEDIATE-DEPENDENTS0 TIMES-1 . TIMES-LESSP-CANCEL-1) (IMMEDIATE-DEPENDENTS0 PLUS-ADD1 . TIMES-LESSP-CANCEL-1) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . TIMES-LESSP-CANCEL-1) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . TIMES-LESSP-CANCEL-1) (LEMMAS LESSP . TIMES-LESSP-CANCEL-1))))) (PUT1-LST (QUOTE EQUAL-IFF-OFF) (QUOTE (IDATE 1000402214747 EVENT (TOGGLE EQUAL-IFF-OFF EQUAL-IFF T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EQUAL-IFF . EQUAL-IFF-OFF) (DISABLED-LEMMAS NIL EQUAL-IFF EQUAL-IFF-OFF . T))))) (PUT1-LST (QUOTE TIMES-LESSP-CANCEL) (QUOTE (IDATE 1000402214747 IMMEDIATE-DEPENDENTS0 (TIMES-LESSP-CANCEL1 TA-LEMMA-2 TA-LEMMA-1 EVAL$-LESSP-TIMES-TREE-BAGDIFF TIMES-LESSP-LINEAR) EVENT (PROVE-LEMMA TIMES-LESSP-CANCEL (REWRITE) (EQUAL (LESSP (TIMES X Y) (TIMES X Z)) (AND (NOT (ZEROP X)) (LESSP Y Z)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUB1-OF-1 . TIMES-LESSP-CANCEL) (IMMEDIATE-DEPENDENTS0 TIMES-1 . TIMES-LESSP-CANCEL) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . TIMES-LESSP-CANCEL) (IMMEDIATE-DEPENDENTS0 BOOLEAN . TIMES-LESSP-CANCEL) (IMMEDIATE-DEPENDENTS0 EQUAL-IFF . TIMES-LESSP-CANCEL) (LEMMAS LESSP . TIMES-LESSP-CANCEL))))) (PUT1-LST (QUOTE TIMES-LESSP-CANCEL0) (QUOTE (IDATE 1000402214747 IMMEDIATE-DEPENDENTS0 (LESSP-1-TIMES-TREE-DELETE AND-NOT-ZEROP-TREE-DELETE) EVENT (PROVE-LEMMA TIMES-LESSP-CANCEL0 (REWRITE) (AND (EQUAL (LESSP (TIMES X Y) X) (AND (NOT (ZEROP X)) (ZEROP Y))) (EQUAL (LESSP X (TIMES X Y)) (AND (NOT (ZEROP X)) (AND (NOT (ZEROP Y)) (NOT (EQUAL Y (QUOTE 1)))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-1 . TIMES-LESSP-CANCEL0) (IMMEDIATE-DEPENDENTS0 LESSP-OF-1 . TIMES-LESSP-CANCEL0) (IMMEDIATE-DEPENDENTS0 SUB1-OF-1 . TIMES-LESSP-CANCEL0) (IMMEDIATE-DEPENDENTS0 TIMES-EQUAL-0 . TIMES-LESSP-CANCEL0) (IMMEDIATE-DEPENDENTS0 PLUS-EQUAL-0 . TIMES-LESSP-CANCEL0) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . TIMES-LESSP-CANCEL0) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . TIMES-LESSP-CANCEL0) (IMMEDIATE-DEPENDENTS0 BOOLEAN . TIMES-LESSP-CANCEL0) (IMMEDIATE-DEPENDENTS0 EQUAL-IFF . TIMES-LESSP-CANCEL0) (LEMMAS LESSP . TIMES-LESSP-CANCEL0) (LEMMAS LESSP . TIMES-LESSP-CANCEL0))))) (PUT1-LST (QUOTE TIMES-LESSP-1) (QUOTE (IDATE 1000402214747 IMMEDIATE-DEPENDENTS0 (ASL-INT-CROCK2 EXP-LESSP) EVENT (PROVE-LEMMA TIMES-LESSP-1 (REWRITE) (EQUAL (LESSP (QUOTE 1) (TIMES X Y)) (AND (NOT (ZEROP X)) (AND (NOT (ZEROP Y)) (NOT (AND (EQUAL X (QUOTE 1)) (EQUAL Y (QUOTE 1)))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUB1-OF-1 . TIMES-LESSP-1) (IMMEDIATE-DEPENDENTS0 TIMES-1 . TIMES-LESSP-1) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . TIMES-LESSP-1) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . TIMES-LESSP-1) (IMMEDIATE-DEPENDENTS0 BOOLEAN . TIMES-LESSP-1) (IMMEDIATE-DEPENDENTS0 EQUAL-IFF . TIMES-LESSP-1) (LEMMAS LESSP . TIMES-LESSP-1))))) (PUT1-LST (QUOTE TIMES-LESSP-0) (QUOTE (IDATE 1000402214747 IMMEDIATE-DEPENDENTS0 (LESSP-PLUS-TIMES-EXP2 TIMES-EXP2-LESSP) EVENT (PROVE-LEMMA TIMES-LESSP-0 (REWRITE) (EQUAL (LESSP (QUOTE 0) (TIMES X Y)) (AND (LESSP (QUOTE 0) X) (LESSP (QUOTE 0) Y)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-EQUAL-0 . TIMES-LESSP-0) (IMMEDIATE-DEPENDENTS0 BOOLEAN . TIMES-LESSP-0) (IMMEDIATE-DEPENDENTS0 EQUAL-IFF . TIMES-LESSP-0) (LEMMAS LESSP . TIMES-LESSP-0))))) (PUT1-LST (QUOTE TIMES-EQUAL-CANCEL) (QUOTE (IDATE 1000402214747 IMMEDIATE-DEPENDENTS0 (EVAL$-EQUAL-TIMES-TREE-BAGDIFF EVAL$-TIMES-TREE-APPEND EVAL$-TIMES-MEMBER) EVENT (PROVE-LEMMA TIMES-EQUAL-CANCEL (REWRITE) (EQUAL (EQUAL (TIMES X Y) (TIMES X Z)) (OR (ZEROP X) (EQUAL (FIX Y) (FIX Z)))) ((INDUCT (DIFFERENCE Y Z)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUB1-OF-1 . TIMES-EQUAL-CANCEL) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-EQUAL-PLUS . TIMES-EQUAL-CANCEL) (IMMEDIATE-DEPENDENTS0 TIMES-ADD1 . TIMES-EQUAL-CANCEL) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . TIMES-EQUAL-CANCEL) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . TIMES-EQUAL-CANCEL) (IMMEDIATE-DEPENDENTS0 TIMES-EQUAL-0 . TIMES-EQUAL-CANCEL) (IMMEDIATE-DEPENDENTS0 BOOLEAN . TIMES-EQUAL-CANCEL) (IMMEDIATE-DEPENDENTS0 EQUAL-IFF . TIMES-EQUAL-CANCEL) (LEMMAS EQUAL . TIMES-EQUAL-CANCEL))))) (PUT1-LST (QUOTE TIMES-EQUAL-CANCEL0) (QUOTE (IDATE 1000402214747 IMMEDIATE-DEPENDENTS0 (EQUAL-1-TIMES-TREE-DELETE EVAL$-TIMES-TREE-APPEND EVAL$-TIMES-MEMBER) EVENT (PROVE-LEMMA TIMES-EQUAL-CANCEL0 (REWRITE) (AND (EQUAL (EQUAL (TIMES X Y) Y) (AND (NUMBERP Y) (IF (EQUAL Y (QUOTE 0)) (QUOTE *1*TRUE) (EQUAL X (QUOTE 1))))) (EQUAL (EQUAL (TIMES Y X) Y) (AND (NUMBERP Y) (IF (EQUAL Y (QUOTE 0)) (QUOTE *1*TRUE) (EQUAL X (QUOTE 1))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-EQUAL-PLUS . TIMES-EQUAL-CANCEL0) (IMMEDIATE-DEPENDENTS0 SUB1-OF-1 . TIMES-EQUAL-CANCEL0) (IMMEDIATE-DEPENDENTS0 TIMES-EQUAL-0 . TIMES-EQUAL-CANCEL0) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . TIMES-EQUAL-CANCEL0) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . TIMES-EQUAL-CANCEL0) (LEMMAS EQUAL . TIMES-EQUAL-CANCEL0) (LEMMAS EQUAL . TIMES-EQUAL-CANCEL0))))) (PUT1-LST (QUOTE EQUAL-IFF) (QUOTE (IDATE 1000402214746 IMMEDIATE-DEPENDENTS0 (REPLACE-NAT-RANGEP EQUAL-IFF-OFF TIMES-LESSP-CANCEL TIMES-LESSP-CANCEL0 TIMES-LESSP-1 TIMES-LESSP-0 TIMES-EQUAL-CANCEL) EVENT (PROVE-LEMMA EQUAL-IFF (REWRITE) (IMPLIES (AND (BOOLEAN P) (BOOLEAN Q)) (EQUAL (EQUAL P Q) (IFF P Q)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BOOLEAN . EQUAL-IFF) (LEMMAS EQUAL . EQUAL-IFF))))) (PUT1-LST (QUOTE *1*BOOLEAN) (QUOTE (MAIN-EVENT BOOLEAN))) (PUT1-LST (QUOTE BOOLEAN) (QUOTE (TYPE-PRESCRIPTION-LST ((BOOLEAN 3 NIL)) TOTALP-LST ((BOOLEAN . T)) SDEFN (LAMBDA (X) (IF (TRUEP X) (QUOTE *1*TRUE) (FALSEP X))) LISP-CODE *1*BOOLEAN SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402214746 SATELLITES (*1*BOOLEAN) IMMEDIATE-DEPENDENTS0 (REPLACE-NAT-RANGEP TIMES-LESSP-CANCEL TIMES-LESSP-CANCEL0 TIMES-LESSP-1 TIMES-LESSP-0 TIMES-EQUAL-CANCEL EQUAL-IFF) EVENT (DEFN BOOLEAN (X) (OR (TRUEP X) (FALSEP X))) LOCAL-UNDO-TUPLES ((DCELL . *1*BOOLEAN))))) (PUT1-LST (QUOTE TIMES-ASSOCIATIVITY) (QUOTE (IDATE 1000402214746 IMMEDIATE-DEPENDENTS0 (REMAINDER-REMAINDER ASL-ASL LSL-LSL LESSP-TIMES-EXP-1S LOG-QUOTIENT-EXP QUOTIENT-TIMES-EXP2-4 QUOTIENT-TIMES-EXP2-3 REMAINDER-TIMES-EXP2-4 EXP-TIMES EXP-PLUS) EVENT (PROVE-LEMMA TIMES-ASSOCIATIVITY (REWRITE) (EQUAL (TIMES (TIMES X Y) Z) (TIMES X (TIMES Y Z)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . TIMES-ASSOCIATIVITY) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY1 . TIMES-ASSOCIATIVITY) (LEMMAS TIMES . TIMES-ASSOCIATIVITY))))) (PUT1-LST (QUOTE TIMES-ADD1-SUB1) (QUOTE (IDATE 1000402214746 IMMEDIATE-DEPENDENTS0 (BV-NOT-LOGNOT) EVENT (PROVE-LEMMA TIMES-ADD1-SUB1 (REWRITE) (EQUAL (ADD1 (TIMES A (SUB1 B))) (IF (OR (ZEROP A) (ZEROP B)) (QUOTE 1) (DIFFERENCE (TIMES A B) (SUB1 A))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUB1-OF-1 . TIMES-ADD1-SUB1) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . TIMES-ADD1-SUB1) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . TIMES-ADD1-SUB1) (LEMMAS ADD1 . TIMES-ADD1-SUB1))))) (PUT1-LST (QUOTE TIMES-1) (QUOTE (IDATE 1000402214746 IMMEDIATE-DEPENDENTS0 (REMAINDER-SHRINK-HALF DIFFERENCE-CANCEL-1 READ-MEM-ILST-ASL READ-MEM-LST-ASL MEM-LST-PUT-VALS MEM-LST-PUT-LST PLUS-TIMES-LESSP TIMES-PLUS-LESSP-CANCEL HEAD-RECURSION LOGAND-UINT-LA REMAINDER-QUOTIENT-EXP2 QUOTIENT-PLUS-TIMES-EXP2-2 REMAINDER-PLUS-TIMES-EXP2-2 TIMES-LESSP_2 ASL-0 LSL-0 LESSP-TIMES-EXP-1S ASL-INT ASL-INT-CROCK2 APP-0 REPLACE-0 LOG-TIMES-EXP TIMES-LESSP QUOTIENT-TIMES-EXP2-4 QUOTIENT-TIMES-EXP2-3 QUOTIENT-TIMES-EXP2-1 REMAINDER-TIMES-EXP2-4 REMAINDER-TIMES-EXP2-3 REMAINDER-TIMES-EXP2-1 LESSP-PLUS-EXP2 LESSP-PLUS-TIMES-EXP2 QUOTIENT-EXP TIMES-EXP2-LESSP EXP-OF-2-1 EXP-PLUS EVAL$-TIMES-TREE-APPEND EVAL$-TIMES-MEMBER TIMES2-ADD1-LESSP-CANCEL TIMES-LESSP-CANCEL-1 TIMES-LESSP-CANCEL TIMES-LESSP-CANCEL0 TIMES-LESSP-1) EVENT (PROVE-LEMMA TIMES-1 (REWRITE) (EQUAL (TIMES (QUOTE 1) X) (FIX X))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . TIMES-1) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . TIMES-1) (LEMMAS TIMES . TIMES-1))))) (PUT1-LST (QUOTE TIMES-EQUAL-1) (QUOTE (IDATE 1000402214746 IMMEDIATE-DEPENDENTS0 (MEAN-LESSP-LEMMA SUBX-C-LA SUB1-TIMES2-NAT-RANGEP LOGAND-UINT-LA ADDX-V-CROCK2 PLUS-TO-IPLUS QUOTIENT-TIMES-EXP2-4 REMAINDER-EXP EVAL$-TIMES-TREE-APPEND) EVENT (PROVE-LEMMA TIMES-EQUAL-1 (REWRITE) (EQUAL (EQUAL (TIMES X Y) (QUOTE 1)) (AND (EQUAL X (QUOTE 1)) (EQUAL Y (QUOTE 1)))) ((INDUCT (TIMES X Y)) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((LEMMAS EQUAL . TIMES-EQUAL-1))))) (PUT1-LST (QUOTE TIMES-EQUAL-0) (QUOTE (IDATE 1000402214746 IMMEDIATE-DEPENDENTS0 (REMAINDER-SHRINK-HALF LESSP-TIMES-LESSP REMAINDER-REMAINDER MEAN-LESSP-LEMMA MEM-LST-MCDR-UINT-1 MEM-LST-MCDR-UINT WRITE-MEMP-RAM1-ASL READ-MEMP-ROM1-ASL READ-MEMP-RAM1-ASL TIMES-LESSP-CANCEL1 WRITE-MEM-ILST-ASL WRITE-MEM-ILST-INT WRITE-MEM-LST-INT READ-MEM-ILST-INT TIMES-PLUS-LESSP-CANCEL EXT-BEQ-UINT LSL-BEQ MULU_3232-BEQ MULU_3264-BEQ MULU_1632-BEQ SUBX-C-LA ADDX-C-LA PLUS-TIMES-EQUAL SUB1-TIMES2-NAT-RANGEP LOGAND-UINT-LA LOGAND-LOGEOR LOGAND-LOGOR LOGEOR-EQUAL-0 LOGOR-EQUAL-0 REMAINDER-QUOTIENT-EXP2 MULS-CROCK TIMES-LESSP_2 ITIMES-SIGN ITIMES-EQUAL-CANCELLATION ITIMES-ASSOCIATIVITY ITIMES-COMMUTATIVITY ITIMES-EQUAL-0 ITIMES-INTEGERP INT-TO-NAT-RANGEP ILESSP-CROCK2 ILESSP-CROCK1 ADD-BMI-CROCK2 ADD-BMI-CROCK1 ADDX-V-CROCK2 ADDX-V-CROCK1 PLUS-TO-IPLUS ASR-NAT-RANGEP LESSP-APP-1S LESSP-TIMES-EXP-1S ASL-INT ASL-INT-CROCK2 LOGNOT-INT BV-NOT-LOGNOT BV-HEAD-NAT BV-TO-NAT-TO-BV LOG-QUOTIENT-EXP QUOTIENT-TIMES-EXP2-4 REMAINDER-TIMES-EXP2-1 LESSP-PLUS-TIMES-EXP2 QUOTIENT-QUOTIENT QUOTIENT-TIMES-LESSP QUOTIENT-DISTRIBUTES-TIMES2-ADD1 REMAINDER-DISTRIBUTES-TIMES2-ADD1 QUOTIENT-TIMES-CANCEL QUOTIENT-CROCK REMAINDER-CROCK TIMES-PLUS-LESSP TIMES-EXP2-LESSP EXP-LESSP EXP-OF-2-0 CORRECTNESS-OF-CANCEL-EQUAL-TIMES ZEROP-MAKES-EQUAL-TRUE-BRIDGE EVAL$-TIMES-FRINGE-MEMBER-ZERO AND-NOT-ZEROP-TREE-LESSP ZEROP-MAKES-LESSP-FALSE-BRIDGE EVAL$-TIMES-TREE-APPEND EVAL$-TIMES-MEMBER TIMES-DISTRIBUTES-DIFFERENCE TIMES-LESSP-CANCEL0 TIMES-LESSP-0 TIMES-EQUAL-CANCEL TIMES-EQUAL-CANCEL0) EVENT (PROVE-LEMMA TIMES-EQUAL-0 (REWRITE) (EQUAL (EQUAL (TIMES X Y) (QUOTE 0)) (OR (ZEROP X) (ZEROP Y)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUB1-OF-1 . TIMES-EQUAL-0) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . TIMES-EQUAL-0) (IMMEDIATE-DEPENDENTS0 PLUS-EQUAL-0 . TIMES-EQUAL-0) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . TIMES-EQUAL-0) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . TIMES-EQUAL-0) (LEMMAS EQUAL . TIMES-EQUAL-0))))) (PUT1-LST (QUOTE TIMES-COMMUTATIVITY1) (QUOTE (IDATE 1000402214746 IMMEDIATE-DEPENDENTS0 (HEAD-RECURSION LOGAND-UINT-LA APP-ASSOCIATIVITY QUOTIENT-PLUS-TIMES-EXP2-2 REMAINDER-PLUS-TIMES-EXP2-2 ITIMES-ASSOCIATIVITY ASL-ASL LSL-LSL ASL-INT-CROCK2 LOG-TIMES-EXP QUOTIENT-TIMES-EXP2-4 QUOTIENT-TIMES-EXP2-3 QUOTIENT-TIMES-EXP2-1 REMAINDER-TIMES-EXP2-4 REMAINDER-TIMES-EXP2-1 LESSP-PLUS-TIMES-EXP2 QUOTIENT-QUOTIENT QUOTIENT-TIMES-CANCEL TIMES-DISTRIBUTES-REMAINDER TIMES-EXP2-LESSP EXP-TIMES EVAL$-TIMES-TREE-APPEND EVAL$-TIMES-MEMBER TIMES-ASSOCIATIVITY) EVENT (PROVE-LEMMA TIMES-COMMUTATIVITY1 (REWRITE) (EQUAL (TIMES X (TIMES Y Z)) (TIMES Y (TIMES X Z)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-DISTRIBUTES-PLUS . TIMES-COMMUTATIVITY1) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . TIMES-COMMUTATIVITY1) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . TIMES-COMMUTATIVITY1) (LEMMAS TIMES . TIMES-COMMUTATIVITY1))))) (PUT1-LST (QUOTE TIMES-COMMUTATIVITY) (QUOTE (IDATE 1000402214746 IMMEDIATE-DEPENDENTS0 (DIFFERENCE-LESSP-CANCEL-2 DIFFERENCE-LESSP-CANCEL-1 PLUS3-TIMES-SUB1 PLUS2-TIMES-SUB1 PLUS-TIMES-SUB1 MISC-GROUP-H WRITEM-MEM-H S&R-GROUP-H OR-GROUP-H STEPN-MEM-ILST STEPN-MEM-LST STEPN-READM-MEM PUT-GET-LST-IS-CPY LSTMCPY-CPY MEM-LST-MCDR-UINT-1 MEM-LST-MCDR-UINT MEM-LST-MCDR MEM-LST-MCAR-1 MEM-LST-PLUS READM-WRITEM-MEM READM-WRITE-MEM READ-WRITEM-MEM WRITEM-ELSE-MEM-ILST WRITEM-ELSE-MEM-LST WRITEM-MEM-MCODE-ADDRP PC-READ-MEM-WRITEM-MEM WRITE-MEMP-RAM1-ASL READ-MEMP-ROM1-ASL READ-MEMP-RAM1-ASL TIMES-LESSP-CANCEL1 WRITE-MEM-ILST-ASL WRITE-MEM-LST-ASL READ-MEM-ILST-ASL READ-MEM-LST-ASL WRITE-MEM-ILST-INT WRITE-MEM-LST-INT WRITE-MEM-ILST0 WRITE-MEM-LST0 WRITE-MEM-ILST WRITE-MEM-LST WRITE-MEM-LST-LA PLUS-TIMES-LESSP WRITE-ELSE-MEM-ILST WRITE-ELSE-MEM-LST READ-MEM-ILST-INT READ-MEM-ILST READ-MEM-LST-INT READ-MEM-LST READ-MEM-LST-LA DISJOINT-11~-ASL DISJOINT-11-ASL DISJOINT-9~-ASL DISJOINT-9-ASL DISJOINT-3~-ASL DISJOINT-3-ASL DISJOINT-2~-ASL DISJOINT-2-ASL TIMES-PLUS-LESSP-CANCEL MULU_3232-BVS MBIT-MEANS-NEGATIVEP EXT-BEQ-UINT MULU-N-BITP MULU-Z-BITP MULU-V-BITP HEAD-RECURSION PLUS-TIMES-EQUAL LOGAND-UINT-LA HEAD-APP-HEAD-TAIL APP-HEAD-TAIL APP-ASSOCIATIVITY REPLACE-ASSOCIATIVITY REPLACE-HEAD REPLACE-REFLEX REMAINDER-QUOTIENT-EXP2 QUOTIENT-PLUS-TIMES-EXP2-2 REMAINDER-PLUS-TIMES-EXP2-2 DIVU-OVERFLOW MULS-CROCK TIMES-LESSP_4 TIMES-LESSP_3 TIMES-LESSP_2 MULU_3232-NAT MULU_3264-NAT MULU_1632-NAT TIMES-LESSP_1 ITIMES-SIGN ITIMES-EQUAL-CANCELLATION ITIMES-ASSOCIATIVITY ITIMES-COMMUTATIVITY ITIMES-EQUAL-0 ITIMES-INTEGERP IREMAINDER-INT-RANGEP PLUS-TO-IPLUS MBIT-MEANS-LESSP ASL-ASL ASL-0 LSL-LSL LSL-0 TIMES-SUB1 LESSP-APP-1S LESSP-TIMES-EXP-1S QUOTIENT-DIFF REMAINDER-DIFF ASL-INT ASL-INT-CROCK2 ASL-INT-CROCK1 LSL-UINT APP-0 REPLACE-0 TAIL-LESSP ADDER-LOGNOT NAT-TO-BV-SIZED-LA0 LOG-QUOTIENT-EXP LOG-TIMES-EXP-1 LOG-TIMES-EXP TIMES-LESSP REMAINDER-REMAINDER-EXP2 QUOTIENT-TIMES-EXP2-4 QUOTIENT-TIMES-EXP2-3 QUOTIENT-TIMES-EXP2-2 QUOTIENT-TIMES-EXP2-1 REMAINDER-TIMES-EXP2-4 REMAINDER-TIMES-EXP2-3 REMAINDER-TIMES-EXP2-2 REMAINDER-TIMES-EXP2-1 LESSP-PLUS-TIMES-EXP2 QUOTIENT-QUOTIENT QUOTIENT-TIMES-LESSP REMAINDER-EXP QUOTIENT-EXP QUOTIENT-TIMES-CANCEL QUOTIENT-CROCK TIMES-DISTRIBUTES-REMAINDER REMAINDER-CROCK REMAINDER-DIFFERENCE-REMAINDER1 REMAINDER-PLUS-REMAINDER1 QUOTIENT-SHRINK-FAST REMAINDER-QUOTIENT-ELIM REMAINDER-QUOTIENT QUOTIENT-DIFFERENCE-TIMES1 QUOTIENT-PLUS-TIMES2 QUOTIENT-TIMES REMAINDER-PLUS-PLUS-TIMES2 REMAINDER-PLUS-TIMES2 REMAINDER-TIMES TIMES-EXP2-LESSP EXP-PLUS ZEROP-MAKES-EQUAL-TRUE-BRIDGE AND-NOT-ZEROP-TREE-LESSP ZEROP-MAKES-LESSP-FALSE-BRIDGE TIMES-TREE-TIMES-FRINGE EVAL$-TIMES-TREE-APPEND ZEROP-MAKES-TIMES-TREE-ZERO EVAL$-TIMES-MEMBER TIMES-DISTRIBUTES-DIFFERENCE1 TIMES-DISTRIBUTES-DIFFERENCE TIMES-LESSP-CANCEL0 TIMES-LESSP-1 TIMES-EQUAL-CANCEL TIMES-EQUAL-CANCEL0 TIMES-ASSOCIATIVITY TIMES-ADD1-SUB1 TIMES-EQUAL-0 TIMES-COMMUTATIVITY1) EVENT (PROVE-LEMMA TIMES-COMMUTATIVITY (REWRITE) (EQUAL (TIMES X Z) (TIMES Z X))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-ADD1 . TIMES-COMMUTATIVITY) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . TIMES-COMMUTATIVITY) (LEMMAS TIMES . TIMES-COMMUTATIVITY))))) (PUT1-LST (QUOTE TIMES-ADD1) (QUOTE (IDATE 1000402214746 IMMEDIATE-DEPENDENTS0 (DIFFERENCE-LESSP-CANCEL-2 DIFFERENCE-LESSP-CANCEL-1 PLUS3-TIMES-SUB1 PLUS2-TIMES-SUB1 PLUS-TIMES-SUB1 MEAN-LESSP-LEMMA WRITEM-MEM-H STEPN-READM-MEM READ-MEM-PLUS LSTMCPY-CPY MEM-LST-PLUS READM-WRITEM-MEM READ-WRITEM-MEM WRITEM-ELSE-MEM-ILST WRITEM-ELSE-MEM-LST WRITEM-MEM-MCODE-ADDRP PC-READ-MEM-WRITEM-MEM TIMES-LESSP-CANCEL1 MEM-LST-PUT-VALS MEM-LST-PUT-LST PLUS-TIMES-LESSP TIMES-PLUS-LESSP-CANCEL READ-WRITE-MEM2 READ-MEM-NAT-RANGEP PC-READ-MEM-NAT-RANGEP HEAD-RECURSION PLUS-TIMES-EQUAL SUB1-TIMES2-NAT-RANGEP BCAR-REPLACE BCAR-APP TIMES-LESSP_2 TIMES-LESSP_1 TIMES-SUB1 BV-ADDER&CARRY-NAT REMAINDER-QUOTIENT-ELIM REMAINDER-QUOTIENT QUOTIENT-TIMES REMAINDER-TIMES TIMES-DISTRIBUTES-DIFFERENCE TIMES-EQUAL-CANCEL TIMES-COMMUTATIVITY) EVENT (PROVE-LEMMA TIMES-ADD1 (REWRITE) (EQUAL (TIMES X (ADD1 Y)) (PLUS X (TIMES X Y)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-ZERO . TIMES-ADD1) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . TIMES-ADD1) (LEMMAS TIMES . TIMES-ADD1))))) (PUT1-LST (QUOTE TIMES-DISTRIBUTES-PLUS) (QUOTE (IDATE 1000402214746 IMMEDIATE-DEPENDENTS0 (APP-ASSOCIATIVITY QUOTIENT-PLUS-TIMES-EXP2-2 REMAINDER-PLUS-TIMES-EXP2-2 TIMES-DISTRIBUTES-PLUS-OFF TIMES-DISTRIBUTES-PLUS-NEW QUOTIENT-QUOTIENT QUOTIENT-TIMES-CANCEL TIMES-DISTRIBUTES-REMAINDER TIMES-COMMUTATIVITY1) EVENT (PROVE-LEMMA TIMES-DISTRIBUTES-PLUS (REWRITE) (EQUAL (TIMES X (PLUS Y Z)) (PLUS (TIMES X Y) (TIMES X Z)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-ASSOCIATIVITY . TIMES-DISTRIBUTES-PLUS) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY1 . TIMES-DISTRIBUTES-PLUS) (IMMEDIATE-DEPENDENTS0 PLUS-EQUAL-0 . TIMES-DISTRIBUTES-PLUS) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . TIMES-DISTRIBUTES-PLUS) (LEMMAS TIMES . TIMES-DISTRIBUTES-PLUS))))) (PUT1-LST (QUOTE TIMES-ZERO) (QUOTE (IDATE 1000402214746 IMMEDIATE-DEPENDENTS0 (REMAINDER-SHRINK-HALF DIFFERENCE-LESSP-CANCEL-2 DIFFERENCE-LESSP-CANCEL-1 PLUS3-TIMES-SUB1 PLUS2-TIMES-SUB1 PLUS-TIMES-SUB1 MEAN-DIFFERENCE-1 MEAN-LESSP-LEMMA WRITEM-MEM-H STEPN-MEM-ILST STEPN-MEM-LST STEPN-READM-MEM READ-MEM-PLUS PUT-GET-LST-IS-CPY LSTMCPY-CPY MEM-LST-MCDR-UINT-1 MEM-LST-MCDR MEM-LST-MCAR-1 MEM-LST-PLUS READM-WRITEM-MEM READM-WRITE-MEM READ-WRITEM-MEM WRITEM-ELSE-MEM-ILST WRITEM-ELSE-MEM-LST WRITEM-MEM-MCODE-ADDRP PC-READ-MEM-WRITEM-MEM WRITE-MEMP-RAM1-ASL READ-MEMP-ROM1-ASL READ-MEMP-RAM1-ASL TIMES-LESSP-CANCEL1 WRITE-MEM-ILST-ASL WRITE-MEM-LST-ASL READ-MEM-ILST-ASL READ-MEM-LST-ASL WRITE-MEM-ILST0 WRITE-MEM-LST0 WRITE-MEM-ILST MEM-LST-PUT-VALS MEM-LST-PUT-LST WRITE-MEM-LST-LA PLUS-TIMES-LESSP WRITE-ELSE-MEM-ILST WRITE-ELSE-MEM-LST READ-MEM-ILST-INT READ-MEM-ILST READ-MEM-LST-LA DISJOINT-11~-ASL DISJOINT-11-ASL DISJOINT-9~-ASL DISJOINT-9-ASL DISJOINT-3~-ASL DISJOINT-3-ASL DISJOINT-2~-ASL DISJOINT-2-ASL TIMES-PLUS-LESSP-CANCEL MULU_3232-BVS LSL-BEQ MULU_3232-BEQ MULU_3264-BEQ MULU_1632-BEQ LOGEOR-BEQ-INT-1 EOR-Z-BITP READ-WRITE-MEM2 READ-MEM-NAT-RANGEP PC-READ-MEM-NAT-RANGEP HEAD-RECURSION PLUS-TIMES-EQUAL SUB1-TIMES2-NAT-RANGEP LOGAND-UINT-LA LOGAND-LOGEOR LOGEOR-EQUAL-0 HEAD-APP-HEAD-TAIL APP-HEAD-TAIL APP-ASSOCIATIVITY BCAR-REPLACE BCAR-APP REPLACE-HEAD REPLACE-REFLEX REMAINDER-QUOTIENT-EXP2 QUOTIENT-PLUS-TIMES-EXP2-2 QUOTIENT-PLUS-TIMES-EXP2-1 REMAINDER-PLUS-TIMES-EXP2-2 REMAINDER-PLUS-TIMES-EXP2-1 DIVU-OVERFLOW MULS-CROCK TIMES-LESSP_4 TIMES-LESSP_3 TIMES-LESSP_2 MULU_3232-NAT MULU_3264-NAT MULU_1632-NAT TIMES-LESSP_1 ITIMES-EQUAL-CANCELLATION ITIMES-ASSOCIATIVITY ITIMES-EQUAL-0 ITIMES-0 ITIMES-INTEGERP PLUS-TO-IPLUS ASR-NAT-RANGEP TIMES-SUB1 LESSP-TIMES-EXP-1S QUOTIENT-DIFF REMAINDER-DIFF ASL-INT ASL-INT-CROCK2 APP-0 REPLACE-0 LOG-QUOTIENT-EXP LOG-TIMES-EXP TIMES-LESSP REMAINDER-REMAINDER-EXP2 QUOTIENT-TIMES-EXP2-4 QUOTIENT-TIMES-EXP2-1 REMAINDER-TIMES-EXP2-4 REMAINDER-TIMES-EXP2-3 REMAINDER-TIMES-EXP2-1 LESSP-PLUS-TIMES-EXP2 QUOTIENT-QUOTIENT REMAINDER-EXP QUOTIENT-EXP QUOTIENT-TIMES-CANCEL TIMES-DISTRIBUTES-REMAINDER REMAINDER-CROCK QUOTIENT-SHRINK-FAST TIMES-PLUS-LESSP REMAINDER-QUOTIENT-ELIM REMAINDER-QUOTIENT QUOTIENT-DIFFERENCE-TIMES2 QUOTIENT-DIFFERENCE-TIMES1 QUOTIENT-TIMES REMAINDER-TIMES EXP-LESSP EXP-EXP EXP-OF-0 ZEROP-MAKES-EQUAL-TRUE-BRIDGE EVAL$-TIMES-FRINGE-MEMBER-ZERO AND-NOT-ZEROP-TREE-LESSP ZEROP-MAKES-LESSP-FALSE-BRIDGE TIMES-TREE-TIMES-FRINGE EVAL$-TIMES-TREE-APPEND ZEROP-MAKES-TIMES-TREE-ZERO EVAL$-TIMES-MEMBER TIMES-DISTRIBUTES-DIFFERENCE TIMES-LESSP-CANCEL-1 TIMES-LESSP-CANCEL TIMES-LESSP-CANCEL0 TIMES-LESSP-1 TIMES-EQUAL-CANCEL TIMES-EQUAL-CANCEL0 TIMES-ADD1-SUB1 TIMES-1 TIMES-EQUAL-0 TIMES-COMMUTATIVITY1 TIMES-COMMUTATIVITY TIMES-ADD1 TIMES-DISTRIBUTES-PLUS) EVENT (PROVE-LEMMA TIMES-ZERO (REWRITE) (IMPLIES (OR (ZEROP X) (ZEROP Y)) (EQUAL (TIMES X Y) (QUOTE 0)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . TIMES-ZERO) (LEMMAS TIMES . TIMES-ZERO))))) (PUT1-LST (QUOTE PLUS-LESSP-CANCEL-2) (QUOTE (IDATE 1000402214746 EVENT (PROVE-LEMMA PLUS-LESSP-CANCEL-2 (REWRITE) (EQUAL (LESSP (PLUS Y X) (PLUS X Z)) (LESSP Y Z))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . PLUS-LESSP-CANCEL-2) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-LESSP-PLUS . PLUS-LESSP-CANCEL-2) (LEMMAS LESSP . PLUS-LESSP-CANCEL-2))))) (PUT1-LST (QUOTE CORRECTNESS-OF-CANCEL-LESSP-PLUS) (QUOTE (IDATE 1000402214746 IMMEDIATE-DEPENDENTS0 (GCD-T1-T2 GCD-T2-UB GCD-T2 REMAINDER-SHRINK-HALF GCD-IS-CD GCD-INDUCT GCD-T1 GCD TIMES-PLUS-LESSP-CANCEL NAT-PLUS-RANGEP HEAD-APP-HEAD-TAIL APP-ASSOCIATIVITY SUB-LEQ-LA SUB-0 DIFFERENCE-APP-1S TIMES-PLUS-LESSP PLUS-LESSP-CANCEL-2) EVENT (PROVE-LEMMA CORRECTNESS-OF-CANCEL-LESSP-PLUS ((META LESSP)) (EQUAL (EVAL$ (QUOTE *1*TRUE) X A) (EVAL$ (QUOTE *1*TRUE) (CANCEL-LESSP-PLUS X) A)) ((DISABLE EVAL$))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUBBAGP-BAGINT1 . CORRECTNESS-OF-CANCEL-LESSP-PLUS) (IMMEDIATE-DEPENDENTS0 PLUS-TREE-BAGDIFF . CORRECTNESS-OF-CANCEL-LESSP-PLUS) (IMMEDIATE-DEPENDENTS0 SUBBAGP-BAGINT2 . CORRECTNESS-OF-CANCEL-LESSP-PLUS) (IMMEDIATE-DEPENDENTS0 BRIDGE-TO-SUBBAGP-IMPLIES-PLUS-TREE-GEQ . CORRECTNESS-OF-CANCEL-LESSP-PLUS) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-LESSP-CANCEL . CORRECTNESS-OF-CANCEL-LESSP-PLUS) (IMMEDIATE-DEPENDENTS0 MEMBER-IMPLIES-PLUS-TREE-GREATEREQP . CORRECTNESS-OF-CANCEL-LESSP-PLUS) (IMMEDIATE-DEPENDENTS0 EVAL$-QUOTE . CORRECTNESS-OF-CANCEL-LESSP-PLUS) (IMMEDIATE-DEPENDENTS0 NUMBERP-EVAL$-PLUS . CORRECTNESS-OF-CANCEL-LESSP-PLUS) (IMMEDIATE-DEPENDENTS0 PLUS-TREE-PLUS-FRINGE . CORRECTNESS-OF-CANCEL-LESSP-PLUS) (IMMEDIATE-DEPENDENTS0 PLUS-TREE-DELETE . CORRECTNESS-OF-CANCEL-LESSP-PLUS) (IMMEDIATE-DEPENDENTS0 DIFFERENCE=0 . CORRECTNESS-OF-CANCEL-LESSP-PLUS) (IMMEDIATE-DEPENDENTS0 CANCEL-LESSP-PLUS . CORRECTNESS-OF-CANCEL-LESSP-PLUS) (LEMMAS LESSP . CORRECTNESS-OF-CANCEL-LESSP-PLUS))))) (PUT1-LST (QUOTE *1*CANCEL-LESSP-PLUS) (QUOTE (MAIN-EVENT CANCEL-LESSP-PLUS))) (PUT1-LST (QUOTE CANCEL-LESSP-PLUS) (QUOTE (TYPE-PRESCRIPTION-LST ((CANCEL-LESSP-PLUS 16 T)) TOTALP-LST ((CANCEL-LESSP-PLUS . T)) SDEFN (LAMBDA (X) (IF (LISTP X) (IF (EQUAL (CAR X) (QUOTE LESSP)) (IF (LISTP (CAR (CDR X))) (IF (EQUAL (CAR (CAR (CDR X))) (QUOTE PLUS)) (IF (LISTP (CAR (CDR (CDR X)))) (IF (EQUAL (CAR (CAR (CDR (CDR X)))) (QUOTE PLUS)) (CONS (QUOTE LESSP) (CONS (PLUS-TREE (BAGDIFF (PLUS-FRINGE (CAR (CDR X))) (BAGINT (PLUS-FRINGE (CAR (CDR X))) (PLUS-FRINGE (CAR (CDR (CDR X))))))) (CONS (PLUS-TREE (BAGDIFF (PLUS-FRINGE (CAR (CDR (CDR X)))) (BAGINT (PLUS-FRINGE (CAR (CDR X))) (PLUS-FRINGE (CAR (CDR (CDR X))))))) (QUOTE NIL)))) (IF (MEMBER (CAR (CDR (CDR X))) (PLUS-FRINGE (CAR (CDR X)))) (QUOTE (QUOTE *1*FALSE)) X)) (IF (MEMBER (CAR (CDR (CDR X))) (PLUS-FRINGE (CAR (CDR X)))) (QUOTE (QUOTE *1*FALSE)) X)) (IF (LISTP (CAR (CDR (CDR X)))) (IF (EQUAL (CAR (CAR (CDR (CDR X)))) (QUOTE PLUS)) (IF (MEMBER (CAR (CDR X)) (PLUS-FRINGE (CAR (CDR (CDR X))))) (CONS (QUOTE NOT) (CONS (CONS (QUOTE ZEROP) (CONS (PLUS-TREE (DELETE (CAR (CDR X)) (PLUS-FRINGE (CAR (CDR (CDR X)))))) (QUOTE NIL))) (QUOTE NIL))) X) X) X)) (IF (LISTP (CAR (CDR (CDR X)))) (IF (EQUAL (CAR (CAR (CDR (CDR X)))) (QUOTE PLUS)) (IF (MEMBER (CAR (CDR X)) (PLUS-FRINGE (CAR (CDR (CDR X))))) (CONS (QUOTE NOT) (CONS (CONS (QUOTE ZEROP) (CONS (PLUS-TREE (DELETE (CAR (CDR X)) (PLUS-FRINGE (CAR (CDR (CDR X)))))) (QUOTE NIL))) (QUOTE NIL))) X) X) X)) X) X)) LISP-CODE *1*CANCEL-LESSP-PLUS SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402214745 SATELLITES (*1*CANCEL-LESSP-PLUS) IMMEDIATE-DEPENDENTS0 (CORRECTNESS-OF-CANCEL-LESSP-PLUS) EVENT (DEFN CANCEL-LESSP-PLUS (X) (IF (AND (LISTP X) (EQUAL (CAR X) (QUOTE LESSP))) (IF (AND (LISTP (CAR (CDR X))) (AND (EQUAL (CAR (CAR (CDR X))) (QUOTE PLUS)) (AND (LISTP (CAR (CDR (CDR X)))) (EQUAL (CAR (CAR (CDR (CDR X)))) (QUOTE PLUS))))) (CONS (QUOTE LESSP) (CONS (PLUS-TREE (BAGDIFF (PLUS-FRINGE (CAR (CDR X))) (BAGINT (PLUS-FRINGE (CAR (CDR X))) (PLUS-FRINGE (CAR (CDR (CDR X))))))) (CONS (PLUS-TREE (BAGDIFF (PLUS-FRINGE (CAR (CDR (CDR X)))) (BAGINT (PLUS-FRINGE (CAR (CDR X))) (PLUS-FRINGE (CAR (CDR (CDR X))))))) (QUOTE NIL)))) (IF (AND (LISTP (CAR (CDR X))) (AND (EQUAL (CAR (CAR (CDR X))) (QUOTE PLUS)) (MEMBER (CAR (CDR (CDR X))) (PLUS-FRINGE (CAR (CDR X)))))) (QUOTE (QUOTE *1*FALSE)) (IF (AND (LISTP (CAR (CDR (CDR X)))) (AND (EQUAL (CAR (CAR (CDR (CDR X)))) (QUOTE PLUS)) (MEMBER (CAR (CDR X)) (PLUS-FRINGE (CAR (CDR (CDR X))))))) (CONS (QUOTE NOT) (CONS (CONS (QUOTE ZEROP) (CONS (PLUS-TREE (DELETE (CAR (CDR X)) (PLUS-FRINGE (CAR (CDR (CDR X)))))) (QUOTE NIL))) (QUOTE NIL))) X))) X)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DELETE . CANCEL-LESSP-PLUS) (IMMEDIATE-DEPENDENTS0 BAGINT . CANCEL-LESSP-PLUS) (IMMEDIATE-DEPENDENTS0 PLUS-FRINGE . CANCEL-LESSP-PLUS) (IMMEDIATE-DEPENDENTS0 BAGDIFF . CANCEL-LESSP-PLUS) (IMMEDIATE-DEPENDENTS0 PLUS-TREE . CANCEL-LESSP-PLUS) (DCELL . *1*CANCEL-LESSP-PLUS))))) (PUT1-LST (QUOTE CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS) (QUOTE (IDATE 1000402214745 IMMEDIATE-DEPENDENTS0 (DIFFERENCE-LESSP-CANCEL-2 DIFFERENCE-LESSP-CANCEL-1 DIFFERENCE-CANCEL-1 MEM-LST-MCAR-2 WRITE-MEM-ILST WRITE-MEM-LST-LA READ-MEM-ILST-INT READ-MEM-ILST READ-MEM-LST-LA PC-READ-MEM-NAT-RANGEP REPLACE-NAT-RANGEP HEAD-APP-HEAD-TAIL APP-ASSOCIATIVITY REPLACE-LEQ1 TAIL-REPLACE REMAINDER-QUOTIENT-EXP2 QUOTIENT-PLUS-TIMES-EXP2-2 REMAINDER-PLUS-TIMES-EXP2-2 ADD-NEG-ADDER SUB-ADDER SUB-EQUAL-0 ADD-SUB-CANCEL SUB-NAT-RANGEP SUB-LEQ-LA SUB-X-X SUB-0 SUB-UINT SUB-NAT-LA INT-TO-NAT-TO-INT PLUS-TO-IPLUS EXT-INT ASR-NAT-RANGEP ASR-INT ASR-INT-CROCK TIMES-SUB1 QUOTIENT-EXP-LESSP QUOTIENT-DIFF-LA ASL-INT ASL-INT-CROCK2 REMAINDER-DIFF-LA REMAINDER-DIFFERENCE-REMAINDER1 REMAINDER-QUOTIENT-ELIM REMAINDER-QUOTIENT TIMES-DISTRIBUTES-DIFFERENCE) EVENT (PROVE-LEMMA CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS ((META DIFFERENCE)) (EQUAL (EVAL$ (QUOTE *1*TRUE) X A) (EVAL$ (QUOTE *1*TRUE) (CANCEL-DIFFERENCE-PLUS X) A)) ((DISABLE EVAL$))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUBBAGP-BAGINT1 . CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS) (IMMEDIATE-DEPENDENTS0 PLUS-TREE-BAGDIFF . CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS) (IMMEDIATE-DEPENDENTS0 SUBBAGP-BAGINT2 . CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS) (IMMEDIATE-DEPENDENTS0 BRIDGE-TO-SUBBAGP-IMPLIES-PLUS-TREE-GEQ . CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-PLUS-CANCEL0 . CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-PLUS1 . CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-DIFFERENCE2 . CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS) (IMMEDIATE-DEPENDENTS0 NUMBERP-EVAL$-PLUS . CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS) (IMMEDIATE-DEPENDENTS0 PLUS-TREE-DELETE . CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS) (IMMEDIATE-DEPENDENTS0 PLUS-TREE-PLUS-FRINGE . CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS) (IMMEDIATE-DEPENDENTS0 MEMBER-IMPLIES-PLUS-TREE-GREATEREQP . CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS) (IMMEDIATE-DEPENDENTS0 EVAL$-QUOTE . CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS) (IMMEDIATE-DEPENDENTS0 CANCEL-DIFFERENCE-PLUS . CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS) (LEMMAS DIFFERENCE . CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS))))) (PUT1-LST (QUOTE *1*CANCEL-DIFFERENCE-PLUS) (QUOTE (MAIN-EVENT CANCEL-DIFFERENCE-PLUS))) (PUT1-LST (QUOTE CANCEL-DIFFERENCE-PLUS) (QUOTE (TYPE-PRESCRIPTION-LST ((CANCEL-DIFFERENCE-PLUS 16 T)) TOTALP-LST ((CANCEL-DIFFERENCE-PLUS . T)) SDEFN (LAMBDA (X) (IF (LISTP X) (IF (EQUAL (CAR X) (QUOTE DIFFERENCE)) (IF (LISTP (CAR (CDR X))) (IF (EQUAL (CAR (CAR (CDR X))) (QUOTE PLUS)) (IF (LISTP (CAR (CDR (CDR X)))) (IF (EQUAL (CAR (CAR (CDR (CDR X)))) (QUOTE PLUS)) (CONS (QUOTE DIFFERENCE) (CONS (PLUS-TREE (BAGDIFF (PLUS-FRINGE (CAR (CDR X))) (BAGINT (PLUS-FRINGE (CAR (CDR X))) (PLUS-FRINGE (CAR (CDR (CDR X))))))) (CONS (PLUS-TREE (BAGDIFF (PLUS-FRINGE (CAR (CDR (CDR X)))) (BAGINT (PLUS-FRINGE (CAR (CDR X))) (PLUS-FRINGE (CAR (CDR (CDR X))))))) (QUOTE NIL)))) (IF (MEMBER (CAR (CDR (CDR X))) (PLUS-FRINGE (CAR (CDR X)))) (PLUS-TREE (DELETE (CAR (CDR (CDR X))) (PLUS-FRINGE (CAR (CDR X))))) X)) (IF (MEMBER (CAR (CDR (CDR X))) (PLUS-FRINGE (CAR (CDR X)))) (PLUS-TREE (DELETE (CAR (CDR (CDR X))) (PLUS-FRINGE (CAR (CDR X))))) X)) (IF (LISTP (CAR (CDR (CDR X)))) (IF (EQUAL (CAR (CAR (CDR (CDR X)))) (QUOTE PLUS)) (IF (MEMBER (CAR (CDR X)) (PLUS-FRINGE (CAR (CDR (CDR X))))) (QUOTE (QUOTE 0)) X) X) X)) (IF (LISTP (CAR (CDR (CDR X)))) (IF (EQUAL (CAR (CAR (CDR (CDR X)))) (QUOTE PLUS)) (IF (MEMBER (CAR (CDR X)) (PLUS-FRINGE (CAR (CDR (CDR X))))) (QUOTE (QUOTE 0)) X) X) X)) X) X)) LISP-CODE *1*CANCEL-DIFFERENCE-PLUS SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402214745 SATELLITES (*1*CANCEL-DIFFERENCE-PLUS) IMMEDIATE-DEPENDENTS0 (CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS) EVENT (DEFN CANCEL-DIFFERENCE-PLUS (X) (IF (AND (LISTP X) (EQUAL (CAR X) (QUOTE DIFFERENCE))) (IF (AND (LISTP (CAR (CDR X))) (AND (EQUAL (CAR (CAR (CDR X))) (QUOTE PLUS)) (AND (LISTP (CAR (CDR (CDR X)))) (EQUAL (CAR (CAR (CDR (CDR X)))) (QUOTE PLUS))))) (CONS (QUOTE DIFFERENCE) (CONS (PLUS-TREE (BAGDIFF (PLUS-FRINGE (CAR (CDR X))) (BAGINT (PLUS-FRINGE (CAR (CDR X))) (PLUS-FRINGE (CAR (CDR (CDR X))))))) (CONS (PLUS-TREE (BAGDIFF (PLUS-FRINGE (CAR (CDR (CDR X)))) (BAGINT (PLUS-FRINGE (CAR (CDR X))) (PLUS-FRINGE (CAR (CDR (CDR X))))))) (QUOTE NIL)))) (IF (AND (LISTP (CAR (CDR X))) (AND (EQUAL (CAR (CAR (CDR X))) (QUOTE PLUS)) (MEMBER (CAR (CDR (CDR X))) (PLUS-FRINGE (CAR (CDR X)))))) (PLUS-TREE (DELETE (CAR (CDR (CDR X))) (PLUS-FRINGE (CAR (CDR X))))) (IF (AND (LISTP (CAR (CDR (CDR X)))) (AND (EQUAL (CAR (CAR (CDR (CDR X)))) (QUOTE PLUS)) (MEMBER (CAR (CDR X)) (PLUS-FRINGE (CAR (CDR (CDR X))))))) (QUOTE (QUOTE 0)) X))) X)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DELETE . CANCEL-DIFFERENCE-PLUS) (IMMEDIATE-DEPENDENTS0 BAGINT . CANCEL-DIFFERENCE-PLUS) (IMMEDIATE-DEPENDENTS0 PLUS-FRINGE . CANCEL-DIFFERENCE-PLUS) (IMMEDIATE-DEPENDENTS0 BAGDIFF . CANCEL-DIFFERENCE-PLUS) (IMMEDIATE-DEPENDENTS0 PLUS-TREE . CANCEL-DIFFERENCE-PLUS) (DCELL . *1*CANCEL-DIFFERENCE-PLUS))))) (PUT1-LST (QUOTE CORRECTNESS-OF-CANCEL-EQUAL-PLUS) (QUOTE (IDATE 1000402214745 IMMEDIATE-DEPENDENTS0 (PLUS3-TIMES-SUB1 PLUS2-TIMES-SUB1 CMP-GROUP-H SUB-GROUP-H ADD-GROUP-H PLUS-TIMES-EQUAL LOGAND-UINT-LA LOGOR-COMMUTATIVITY LOGAND-COMMUTATIVITY APP-ASSOCIATIVITY REPLACE-LEQ1 REPLACE-ASSOCIATIVITY TAIL-REPLACE QUOTIENT-PLUS-TIMES-EXP2-1 PLUS-NUMBERP INEG-IPLUS IPLUS-COMMUTATIVITY1 ADDER-LOGNOT BV-SIZED-TO-NAT-HEAD REMAINDER-PLUS-CANCEL REMAINDER-PLUS-CANCEL0 REMAINDER-PLUS-REMAINDER2 REMAINDER-PLUS-REMAINDER1 QUOTIENT-ADD1 QUOTIENT-PLUS-TIMES1 TIMES-EQUAL-CANCEL TIMES-EQUAL-CANCEL0) EVENT (PROVE-LEMMA CORRECTNESS-OF-CANCEL-EQUAL-PLUS ((META EQUAL)) (EQUAL (EVAL$ (QUOTE *1*TRUE) X A) (EVAL$ (QUOTE *1*TRUE) (CANCEL-EQUAL-PLUS X) A)) ((DISABLE EVAL$))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUBBAGP-BAGINT1 . CORRECTNESS-OF-CANCEL-EQUAL-PLUS) (IMMEDIATE-DEPENDENTS0 PLUS-TREE-BAGDIFF . CORRECTNESS-OF-CANCEL-EQUAL-PLUS) (IMMEDIATE-DEPENDENTS0 SUBBAGP-BAGINT2 . CORRECTNESS-OF-CANCEL-EQUAL-PLUS) (IMMEDIATE-DEPENDENTS0 BRIDGE-TO-SUBBAGP-IMPLIES-PLUS-TREE-GEQ . CORRECTNESS-OF-CANCEL-EQUAL-PLUS) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-EQUAL-CANCEL-1 . CORRECTNESS-OF-CANCEL-EQUAL-PLUS) (IMMEDIATE-DEPENDENTS0 NUMBERP-EVAL$-PLUS . CORRECTNESS-OF-CANCEL-EQUAL-PLUS) (IMMEDIATE-DEPENDENTS0 MEMBER-IMPLIES-PLUS-TREE-GREATEREQP . CORRECTNESS-OF-CANCEL-EQUAL-PLUS) (IMMEDIATE-DEPENDENTS0 EVAL$-QUOTE . CORRECTNESS-OF-CANCEL-EQUAL-PLUS) (IMMEDIATE-DEPENDENTS0 MEMBER-IMPLIES-NUMBERP . CORRECTNESS-OF-CANCEL-EQUAL-PLUS) (IMMEDIATE-DEPENDENTS0 PLUS-TREE-PLUS-FRINGE . CORRECTNESS-OF-CANCEL-EQUAL-PLUS) (IMMEDIATE-DEPENDENTS0 PLUS-TREE-DELETE . CORRECTNESS-OF-CANCEL-EQUAL-PLUS) (IMMEDIATE-DEPENDENTS0 DIFFERENCE=0 . CORRECTNESS-OF-CANCEL-EQUAL-PLUS) (IMMEDIATE-DEPENDENTS0 CANCEL-EQUAL-PLUS . CORRECTNESS-OF-CANCEL-EQUAL-PLUS) (LEMMAS EQUAL . CORRECTNESS-OF-CANCEL-EQUAL-PLUS))))) (PUT1-LST (QUOTE *1*CANCEL-EQUAL-PLUS) (QUOTE (MAIN-EVENT CANCEL-EQUAL-PLUS))) (PUT1-LST (QUOTE CANCEL-EQUAL-PLUS) (QUOTE (TYPE-PRESCRIPTION-LST ((CANCEL-EQUAL-PLUS 16 T)) TOTALP-LST ((CANCEL-EQUAL-PLUS . T)) SDEFN (LAMBDA (X) (IF (LISTP X) (IF (EQUAL (CAR X) (QUOTE EQUAL)) (IF (LISTP (CAR (CDR X))) (IF (EQUAL (CAR (CAR (CDR X))) (QUOTE PLUS)) (IF (LISTP (CAR (CDR (CDR X)))) (IF (EQUAL (CAR (CAR (CDR (CDR X)))) (QUOTE PLUS)) (CONS (QUOTE EQUAL) (CONS (PLUS-TREE (BAGDIFF (PLUS-FRINGE (CAR (CDR X))) (BAGINT (PLUS-FRINGE (CAR (CDR X))) (PLUS-FRINGE (CAR (CDR (CDR X))))))) (CONS (PLUS-TREE (BAGDIFF (PLUS-FRINGE (CAR (CDR (CDR X)))) (BAGINT (PLUS-FRINGE (CAR (CDR X))) (PLUS-FRINGE (CAR (CDR (CDR X))))))) (QUOTE NIL)))) (IF (MEMBER (CAR (CDR (CDR X))) (PLUS-FRINGE (CAR (CDR X)))) (CONS (QUOTE IF) (CONS (CONS (QUOTE NUMBERP) (CONS (CAR (CDR (CDR X))) (QUOTE NIL))) (CONS (CONS (QUOTE EQUAL) (CONS (PLUS-TREE (DELETE (CAR (CDR (CDR X))) (PLUS-FRINGE (CAR (CDR X))))) (QUOTE ((QUOTE 0))))) (QUOTE ((QUOTE *1*FALSE)))))) X)) (IF (MEMBER (CAR (CDR (CDR X))) (PLUS-FRINGE (CAR (CDR X)))) (CONS (QUOTE IF) (CONS (CONS (QUOTE NUMBERP) (CONS (CAR (CDR (CDR X))) (QUOTE NIL))) (CONS (CONS (QUOTE EQUAL) (CONS (PLUS-TREE (DELETE (CAR (CDR (CDR X))) (PLUS-FRINGE (CAR (CDR X))))) (QUOTE ((QUOTE 0))))) (QUOTE ((QUOTE *1*FALSE)))))) X)) (IF (LISTP (CAR (CDR (CDR X)))) (IF (EQUAL (CAR (CAR (CDR (CDR X)))) (QUOTE PLUS)) (IF (MEMBER (CAR (CDR X)) (PLUS-FRINGE (CAR (CDR (CDR X))))) (CONS (QUOTE IF) (CONS (CONS (QUOTE NUMBERP) (CONS (CAR (CDR X)) (QUOTE NIL))) (CONS (CONS (QUOTE EQUAL) (CONS (QUOTE (QUOTE 0)) (CONS (PLUS-TREE (DELETE (CAR (CDR X)) (PLUS-FRINGE (CAR (CDR (CDR X)))))) (QUOTE NIL)))) (QUOTE ((QUOTE *1*FALSE)))))) X) X) X)) (IF (LISTP (CAR (CDR (CDR X)))) (IF (EQUAL (CAR (CAR (CDR (CDR X)))) (QUOTE PLUS)) (IF (MEMBER (CAR (CDR X)) (PLUS-FRINGE (CAR (CDR (CDR X))))) (CONS (QUOTE IF) (CONS (CONS (QUOTE NUMBERP) (CONS (CAR (CDR X)) (QUOTE NIL))) (CONS (CONS (QUOTE EQUAL) (CONS (QUOTE (QUOTE 0)) (CONS (PLUS-TREE (DELETE (CAR (CDR X)) (PLUS-FRINGE (CAR (CDR (CDR X)))))) (QUOTE NIL)))) (QUOTE ((QUOTE *1*FALSE)))))) X) X) X)) X) X)) LISP-CODE *1*CANCEL-EQUAL-PLUS SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402214744 SATELLITES (*1*CANCEL-EQUAL-PLUS) IMMEDIATE-DEPENDENTS0 (CORRECTNESS-OF-CANCEL-EQUAL-PLUS) EVENT (DEFN CANCEL-EQUAL-PLUS (X) (IF (AND (LISTP X) (EQUAL (CAR X) (QUOTE EQUAL))) (IF (AND (LISTP (CAR (CDR X))) (AND (EQUAL (CAR (CAR (CDR X))) (QUOTE PLUS)) (AND (LISTP (CAR (CDR (CDR X)))) (EQUAL (CAR (CAR (CDR (CDR X)))) (QUOTE PLUS))))) (CONS (QUOTE EQUAL) (CONS (PLUS-TREE (BAGDIFF (PLUS-FRINGE (CAR (CDR X))) (BAGINT (PLUS-FRINGE (CAR (CDR X))) (PLUS-FRINGE (CAR (CDR (CDR X))))))) (CONS (PLUS-TREE (BAGDIFF (PLUS-FRINGE (CAR (CDR (CDR X)))) (BAGINT (PLUS-FRINGE (CAR (CDR X))) (PLUS-FRINGE (CAR (CDR (CDR X))))))) (QUOTE NIL)))) (IF (AND (LISTP (CAR (CDR X))) (AND (EQUAL (CAR (CAR (CDR X))) (QUOTE PLUS)) (MEMBER (CAR (CDR (CDR X))) (PLUS-FRINGE (CAR (CDR X)))))) (CONS (QUOTE IF) (CONS (CONS (QUOTE NUMBERP) (CONS (CAR (CDR (CDR X))) (QUOTE NIL))) (CONS (CONS (QUOTE EQUAL) (CONS (PLUS-TREE (DELETE (CAR (CDR (CDR X))) (PLUS-FRINGE (CAR (CDR X))))) (QUOTE ((QUOTE 0))))) (QUOTE ((QUOTE *1*FALSE)))))) (IF (AND (LISTP (CAR (CDR (CDR X)))) (AND (EQUAL (CAR (CAR (CDR (CDR X)))) (QUOTE PLUS)) (MEMBER (CAR (CDR X)) (PLUS-FRINGE (CAR (CDR (CDR X))))))) (CONS (QUOTE IF) (CONS (CONS (QUOTE NUMBERP) (CONS (CAR (CDR X)) (QUOTE NIL))) (CONS (CONS (QUOTE EQUAL) (CONS (QUOTE (QUOTE 0)) (CONS (PLUS-TREE (DELETE (CAR (CDR X)) (PLUS-FRINGE (CAR (CDR (CDR X)))))) (QUOTE NIL)))) (QUOTE ((QUOTE *1*FALSE)))))) X))) X)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DELETE . CANCEL-EQUAL-PLUS) (IMMEDIATE-DEPENDENTS0 BAGINT . CANCEL-EQUAL-PLUS) (IMMEDIATE-DEPENDENTS0 PLUS-FRINGE . CANCEL-EQUAL-PLUS) (IMMEDIATE-DEPENDENTS0 BAGDIFF . CANCEL-EQUAL-PLUS) (IMMEDIATE-DEPENDENTS0 PLUS-TREE . CANCEL-EQUAL-PLUS) (DCELL . *1*CANCEL-EQUAL-PLUS))))) (PUT1-LST (QUOTE LISTP-EVAL$) (QUOTE (IDATE 1000402214744 EVENT (PROVE-LEMMA LISTP-EVAL$ (REWRITE) (EQUAL (LISTP (EVAL$ (QUOTE LIST) X A)) (LISTP X))) LOCAL-UNDO-TUPLES ((LEMMAS LISTP . LISTP-EVAL$))))) (PUT1-LST (QUOTE EVAL$-QUOTE) (QUOTE (IDATE 1000402214744 IMMEDIATE-DEPENDENTS0 (CORRECTNESS-OF-CANCEL-EQUAL-ADD ADD-TREE-DELETE-EQUAL ADD-TREE-APPEND ADD-TREE-NAT-RANGEP EVAL$-ADD-MEMBER NUMBERP-EVAL$-ADD-TREE CORRECTNESS-OF-CANCEL-EQUAL-TIMES CORRECTNESS-OF-CANCEL-LESSP-TIMES AND-NOT-ZEROP-TREE-LESSP EVAL$-TIMES-TREE-APPEND EVAL$-TIMES-MEMBER EVAL$-TIMES-TREE-NUMBERP CORRECTNESS-OF-CANCEL-LESSP-PLUS CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS CORRECTNESS-OF-CANCEL-EQUAL-PLUS) EVENT (PROVE-LEMMA EVAL$-QUOTE (REWRITE) (EQUAL (EVAL$ (QUOTE *1*TRUE) (CONS (QUOTE QUOTE) ARGS) A) (CAR ARGS))) LOCAL-UNDO-TUPLES ((LEMMAS EVAL$ . EVAL$-QUOTE))))) (PUT1-LST (QUOTE CADR-EVAL$-LIST) (QUOTE (IDATE 1000402214744 IMMEDIATE-DEPENDENTS0 (CORRECTNESS-OF-CANCEL-ADD-NEG TIMES-TREE-TIMES-FRINGE) EVENT (PROVE-LEMMA CADR-EVAL$-LIST (REWRITE) (AND (EQUAL (CAR (EVAL$ (QUOTE LIST) X A)) (EVAL$ (QUOTE *1*TRUE) (CAR X) A)) (EQUAL (CDR (EVAL$ (QUOTE LIST) X A)) (IF (LISTP X) (EVAL$ (QUOTE LIST) (CDR X) A) (QUOTE 0))))) LOCAL-UNDO-TUPLES ((LEMMAS CDR . CADR-EVAL$-LIST) (LEMMAS CAR . CADR-EVAL$-LIST))))) (PUT1-LST (QUOTE MEMBER-IMPLIES-NUMBERP) (QUOTE (IDATE 1000402214744 IMMEDIATE-DEPENDENTS0 (CORRECTNESS-OF-CANCEL-EQUAL-PLUS) EVENT (PROVE-LEMMA MEMBER-IMPLIES-NUMBERP (REWRITE) (IMPLIES (AND (MEMBER C (PLUS-FRINGE X)) (NUMBERP (EVAL$ (QUOTE *1*TRUE) C A))) (NUMBERP (EVAL$ (QUOTE *1*TRUE) X A))) ((INDUCT (PLUS-FRINGE X)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NUMBERP-EVAL$-PLUS . MEMBER-IMPLIES-NUMBERP) (IMMEDIATE-DEPENDENTS0 PLUS-FRINGE . MEMBER-IMPLIES-NUMBERP) (LEMMAS NUMBERP . MEMBER-IMPLIES-NUMBERP))))) (PUT1-LST (QUOTE PLUS-TREE-PLUS-FRINGE) (QUOTE (IDATE 1000402214744 IMMEDIATE-DEPENDENTS0 (CORRECTNESS-OF-CANCEL-LESSP-PLUS CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS CORRECTNESS-OF-CANCEL-EQUAL-PLUS) EVENT (PROVE-LEMMA PLUS-TREE-PLUS-FRINGE (REWRITE) (EQUAL (EVAL$ (QUOTE *1*TRUE) (PLUS-TREE (PLUS-FRINGE X)) A) (FIX (EVAL$ (QUOTE *1*TRUE) X A))) ((INDUCT (PLUS-FRINGE X)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-EQUAL-CANCEL0 . PLUS-TREE-PLUS-FRINGE) (IMMEDIATE-DEPENDENTS0 NUMBERP-EVAL$-BRIDGE . PLUS-TREE-PLUS-FRINGE) (IMMEDIATE-DEPENDENTS0 EVAL$-PLUS-TREE-APPEND . PLUS-TREE-PLUS-FRINGE) (IMMEDIATE-DEPENDENTS0 NUMBERP-EVAL$-PLUS . PLUS-TREE-PLUS-FRINGE) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . PLUS-TREE-PLUS-FRINGE) (IMMEDIATE-DEPENDENTS0 PLUS-FRINGE . PLUS-TREE-PLUS-FRINGE) (IMMEDIATE-DEPENDENTS0 PLUS-TREE . PLUS-TREE-PLUS-FRINGE) (LEMMAS EVAL$ . PLUS-TREE-PLUS-FRINGE))))) (PUT1-LST (QUOTE EVAL$-PLUS-TREE-APPEND) (QUOTE (IDATE 1000402214744 IMMEDIATE-DEPENDENTS0 (PLUS-TREE-PLUS-FRINGE) EVENT (PROVE-LEMMA EVAL$-PLUS-TREE-APPEND (REWRITE) (EQUAL (EVAL$ (QUOTE *1*TRUE) (PLUS-TREE (APPEND X Y)) A) (PLUS (EVAL$ (QUOTE *1*TRUE) (PLUS-TREE X) A) (EVAL$ (QUOTE *1*TRUE) (PLUS-TREE Y) A)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY1 . EVAL$-PLUS-TREE-APPEND) (IMMEDIATE-DEPENDENTS0 NUMBERP-EVAL$-BRIDGE . EVAL$-PLUS-TREE-APPEND) (IMMEDIATE-DEPENDENTS0 PLUS-EQUAL-CANCEL0 . EVAL$-PLUS-TREE-APPEND) (IMMEDIATE-DEPENDENTS0 PLUS-EQUAL-CANCEL . EVAL$-PLUS-TREE-APPEND) (IMMEDIATE-DEPENDENTS0 NUMBERP-EVAL$-PLUS-TREE . EVAL$-PLUS-TREE-APPEND) (IMMEDIATE-DEPENDENTS0 PLUS-EQUAL-0 . EVAL$-PLUS-TREE-APPEND) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . EVAL$-PLUS-TREE-APPEND) (IMMEDIATE-DEPENDENTS0 PLUS-TREE . EVAL$-PLUS-TREE-APPEND) (LEMMAS EVAL$ . EVAL$-PLUS-TREE-APPEND))))) (PUT1-LST (QUOTE BRIDGE-TO-SUBBAGP-IMPLIES-PLUS-TREE-GEQ) (QUOTE (IDATE 1000402214743 IMMEDIATE-DEPENDENTS0 (CORRECTNESS-OF-CANCEL-LESSP-PLUS CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS CORRECTNESS-OF-CANCEL-EQUAL-PLUS) EVENT (PROVE-LEMMA BRIDGE-TO-SUBBAGP-IMPLIES-PLUS-TREE-GEQ (REWRITE) (IMPLIES (AND (SUBBAGP Y (PLUS-FRINGE Z)) (EQUAL (EVAL$ (QUOTE *1*TRUE) Z A) (EVAL$ (QUOTE *1*TRUE) (PLUS-TREE (PLUS-FRINGE Z)) A))) (EQUAL (LESSP (EVAL$ (QUOTE *1*TRUE) Z A) (EVAL$ (QUOTE *1*TRUE) (PLUS-TREE Y) A)) (QUOTE *1*FALSE)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUBBAGP-IMPLIES-PLUS-TREE-GEQ . BRIDGE-TO-SUBBAGP-IMPLIES-PLUS-TREE-GEQ) (IMMEDIATE-DEPENDENTS0 PLUS-TREE . BRIDGE-TO-SUBBAGP-IMPLIES-PLUS-TREE-GEQ) (IMMEDIATE-DEPENDENTS0 PLUS-FRINGE . BRIDGE-TO-SUBBAGP-IMPLIES-PLUS-TREE-GEQ) (IMMEDIATE-DEPENDENTS0 SUBBAGP . BRIDGE-TO-SUBBAGP-IMPLIES-PLUS-TREE-GEQ) (LEMMAS LESSP . BRIDGE-TO-SUBBAGP-IMPLIES-PLUS-TREE-GEQ))))) (PUT1-LST (QUOTE NUMBERP-EVAL$-BRIDGE) (QUOTE (IDATE 1000402214743 IMMEDIATE-DEPENDENTS0 (PLUS-TREE-PLUS-FRINGE EVAL$-PLUS-TREE-APPEND) EVENT (PROVE-LEMMA NUMBERP-EVAL$-BRIDGE (REWRITE) (IMPLIES (EQUAL (EVAL$ (QUOTE *1*TRUE) Z A) (EVAL$ (QUOTE *1*TRUE) (PLUS-TREE X) A)) (NUMBERP (EVAL$ (QUOTE *1*TRUE) Z A)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NUMBERP-EVAL$-PLUS-TREE . NUMBERP-EVAL$-BRIDGE) (IMMEDIATE-DEPENDENTS0 PLUS-TREE . NUMBERP-EVAL$-BRIDGE) (LEMMAS NUMBERP . NUMBERP-EVAL$-BRIDGE))))) (PUT1-LST (QUOTE PLUS-TREE-BAGDIFF) (QUOTE (IDATE 1000402214743 IMMEDIATE-DEPENDENTS0 (CORRECTNESS-OF-CANCEL-LESSP-PLUS CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS CORRECTNESS-OF-CANCEL-EQUAL-PLUS) EVENT (PROVE-LEMMA PLUS-TREE-BAGDIFF (REWRITE) (IMPLIES (SUBBAGP X Y) (EQUAL (EVAL$ (QUOTE *1*TRUE) (PLUS-TREE (BAGDIFF Y X)) A) (DIFFERENCE (EVAL$ (QUOTE *1*TRUE) (PLUS-TREE Y) A) (EVAL$ (QUOTE *1*TRUE) (PLUS-TREE X) A))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . PLUS-TREE-BAGDIFF) (IMMEDIATE-DEPENDENTS0 SUBBAGP-IMPLIES-PLUS-TREE-GEQ . PLUS-TREE-BAGDIFF) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . PLUS-TREE-BAGDIFF) (IMMEDIATE-DEPENDENTS0 SUBBAGP-CDR2 . PLUS-TREE-BAGDIFF) (IMMEDIATE-DEPENDENTS0 NUMBERP-EVAL$-PLUS-TREE . PLUS-TREE-BAGDIFF) (IMMEDIATE-DEPENDENTS0 PLUS-TREE-DELETE . PLUS-TREE-BAGDIFF) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-DIFFERENCE1 . PLUS-TREE-BAGDIFF) (IMMEDIATE-DEPENDENTS0 BAGDIFF . PLUS-TREE-BAGDIFF) (IMMEDIATE-DEPENDENTS0 PLUS-TREE . PLUS-TREE-BAGDIFF) (IMMEDIATE-DEPENDENTS0 SUBBAGP . PLUS-TREE-BAGDIFF) (LEMMAS EVAL$ . PLUS-TREE-BAGDIFF))))) (PUT1-LST (QUOTE SUBBAGP-IMPLIES-PLUS-TREE-GEQ) (QUOTE (IDATE 1000402214742 IMMEDIATE-DEPENDENTS0 (BRIDGE-TO-SUBBAGP-IMPLIES-PLUS-TREE-GEQ PLUS-TREE-BAGDIFF) EVENT (PROVE-LEMMA SUBBAGP-IMPLIES-PLUS-TREE-GEQ (REWRITE) (IMPLIES (SUBBAGP X Y) (NOT (LESSP (EVAL$ (QUOTE *1*TRUE) (PLUS-TREE Y) A) (EVAL$ (QUOTE *1*TRUE) (PLUS-TREE X) A))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUBBAGP-CDR2 . SUBBAGP-IMPLIES-PLUS-TREE-GEQ) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . SUBBAGP-IMPLIES-PLUS-TREE-GEQ) (IMMEDIATE-DEPENDENTS0 MEMBER-IMPLIES-PLUS-TREE-GREATEREQP . SUBBAGP-IMPLIES-PLUS-TREE-GEQ) (IMMEDIATE-DEPENDENTS0 PLUS-TREE-DELETE . SUBBAGP-IMPLIES-PLUS-TREE-GEQ) (IMMEDIATE-DEPENDENTS0 PLUS-TREE . SUBBAGP-IMPLIES-PLUS-TREE-GEQ) (IMMEDIATE-DEPENDENTS0 SUBBAGP . SUBBAGP-IMPLIES-PLUS-TREE-GEQ) (LINEAR-LEMMAS EVAL$ . SUBBAGP-IMPLIES-PLUS-TREE-GEQ) (LINEAR-LEMMAS EVAL$ . SUBBAGP-IMPLIES-PLUS-TREE-GEQ))))) (PUT1-LST (QUOTE PLUS-TREE-DELETE) (QUOTE (IDATE 1000402214742 IMMEDIATE-DEPENDENTS0 (CORRECTNESS-OF-CANCEL-LESSP-PLUS CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS CORRECTNESS-OF-CANCEL-EQUAL-PLUS PLUS-TREE-BAGDIFF SUBBAGP-IMPLIES-PLUS-TREE-GEQ) EVENT (PROVE-LEMMA PLUS-TREE-DELETE (REWRITE) (EQUAL (EVAL$ (QUOTE *1*TRUE) (PLUS-TREE (DELETE X Y)) A) (IF (MEMBER X Y) (DIFFERENCE (EVAL$ (QUOTE *1*TRUE) (PLUS-TREE Y) A) (EVAL$ (QUOTE *1*TRUE) X A)) (EVAL$ (QUOTE *1*TRUE) (PLUS-TREE Y) A)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-EQUAL-CANCEL . PLUS-TREE-DELETE) (IMMEDIATE-DEPENDENTS0 PLUS-EQUAL-0 . PLUS-TREE-DELETE) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . PLUS-TREE-DELETE) (IMMEDIATE-DEPENDENTS0 PLUS-EQUAL-CANCEL0 . PLUS-TREE-DELETE) (IMMEDIATE-DEPENDENTS0 MEMBER-IMPLIES-PLUS-TREE-GREATEREQP . PLUS-TREE-DELETE) (IMMEDIATE-DEPENDENTS0 DIFFERENCE=0 . PLUS-TREE-DELETE) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-EQUAL-CANCEL-0 . PLUS-TREE-DELETE) (IMMEDIATE-DEPENDENTS0 NUMBERP-EVAL$-PLUS-TREE . PLUS-TREE-DELETE) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-PLUS-CANCEL0 . PLUS-TREE-DELETE) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-X-X . PLUS-TREE-DELETE) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . PLUS-TREE-DELETE) (IMMEDIATE-DEPENDENTS0 DELETE-NON-MEMBER . PLUS-TREE-DELETE) (IMMEDIATE-DEPENDENTS0 DELETE . PLUS-TREE-DELETE) (IMMEDIATE-DEPENDENTS0 PLUS-TREE . PLUS-TREE-DELETE) (LEMMAS EVAL$ . PLUS-TREE-DELETE))))) (PUT1-LST (QUOTE MEMBER-IMPLIES-PLUS-TREE-GREATEREQP) (QUOTE (IDATE 1000402214740 IMMEDIATE-DEPENDENTS0 (CORRECTNESS-OF-CANCEL-LESSP-PLUS CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS CORRECTNESS-OF-CANCEL-EQUAL-PLUS SUBBAGP-IMPLIES-PLUS-TREE-GEQ PLUS-TREE-DELETE) EVENT (PROVE-LEMMA MEMBER-IMPLIES-PLUS-TREE-GREATEREQP (REWRITE) (IMPLIES (MEMBER X Y) (NOT (LESSP (EVAL$ (QUOTE *1*TRUE) (PLUS-TREE Y) A) (EVAL$ (QUOTE *1*TRUE) X A))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-TREE . MEMBER-IMPLIES-PLUS-TREE-GREATEREQP) (LINEAR-LEMMAS EVAL$ . MEMBER-IMPLIES-PLUS-TREE-GREATEREQP) (LINEAR-LEMMAS EVAL$ . MEMBER-IMPLIES-PLUS-TREE-GREATEREQP))))) (PUT1-LST (QUOTE NUMBERP-EVAL$-PLUS-TREE) (QUOTE (IDATE 1000402214740 IMMEDIATE-DEPENDENTS0 (EVAL$-PLUS-TREE-APPEND NUMBERP-EVAL$-BRIDGE PLUS-TREE-BAGDIFF PLUS-TREE-DELETE) EVENT (PROVE-LEMMA NUMBERP-EVAL$-PLUS-TREE (REWRITE) (NUMBERP (EVAL$ (QUOTE *1*TRUE) (PLUS-TREE L) A))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-TREE . NUMBERP-EVAL$-PLUS-TREE) (LEMMAS NUMBERP . NUMBERP-EVAL$-PLUS-TREE))))) (PUT1-LST (QUOTE NUMBERP-EVAL$-PLUS) (QUOTE (IDATE 1000402214740 IMMEDIATE-DEPENDENTS0 (CORRECTNESS-OF-CANCEL-LESSP-PLUS CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS CORRECTNESS-OF-CANCEL-EQUAL-PLUS MEMBER-IMPLIES-NUMBERP PLUS-TREE-PLUS-FRINGE) EVENT (PROVE-LEMMA NUMBERP-EVAL$-PLUS (REWRITE) (IMPLIES (EQUAL (CAR X) (QUOTE PLUS)) (NUMBERP (EVAL$ (QUOTE *1*TRUE) X A)))) LOCAL-UNDO-TUPLES ((LEMMAS NUMBERP . NUMBERP-EVAL$-PLUS))))) (PUT1-LST (QUOTE *1*PLUS-TREE) (QUOTE (MAIN-EVENT PLUS-TREE))) (PUT1-LST (QUOTE PLUS-TREE) (QUOTE (TYPE-PRESCRIPTION-LST ((PLUS-TREE 16 NIL)) TOTALP-LST ((PLUS-TREE . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE) SDEFN (LAMBDA (L) (IF (LISTP L) (IF (LISTP (CDR L)) (IF (LISTP (CDR (CDR L))) (CONS (QUOTE PLUS) (CONS (CAR L) (CONS (PLUS-TREE (CDR L)) (QUOTE NIL)))) (CONS (QUOTE PLUS) (CONS (CAR L) (CONS (CAR (CDR L)) (QUOTE NIL))))) (CONS (QUOTE FIX) (CONS (CAR L) (QUOTE NIL)))) (QUOTE (QUOTE 0)))) LISP-CODE *1*PLUS-TREE SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((NLISTP L)) NIL) (TESTS-AND-CASES ((NOT (NLISTP L)) (NLISTP (CDR L))) NIL) (TESTS-AND-CASES ((NOT (NLISTP L)) (NOT (NLISTP (CDR L))) (NLISTP (CDR (CDR L)))) NIL) (TESTS-AND-CASES ((NOT (NLISTP L)) (NOT (NLISTP (CDR L))) (NOT (NLISTP (CDR (CDR L))))) (((CDR L))))) LEVEL-NO 1 JUSTIFICATIONS ((JUSTIFICATION (L) (COUNT L) LESSP (CDR-LESSP NLISTP ZERO CDR-LESSEQP))) IDATE 1000402214740 CONTROLLER-POCKETS (1) SATELLITES (*1*PLUS-TREE) IMMEDIATE-DEPENDENTS0 (CANCEL-LESSP-PLUS CANCEL-DIFFERENCE-PLUS CANCEL-EQUAL-PLUS PLUS-TREE-PLUS-FRINGE EVAL$-PLUS-TREE-APPEND BRIDGE-TO-SUBBAGP-IMPLIES-PLUS-TREE-GEQ NUMBERP-EVAL$-BRIDGE PLUS-TREE-BAGDIFF SUBBAGP-IMPLIES-PLUS-TREE-GEQ PLUS-TREE-DELETE MEMBER-IMPLIES-PLUS-TREE-GREATEREQP NUMBERP-EVAL$-PLUS-TREE) EVENT (DEFN PLUS-TREE (L) (IF (NLISTP L) (QUOTE (QUOTE 0)) (IF (NLISTP (CDR L)) (CONS (QUOTE FIX) (CONS (CAR L) (QUOTE NIL))) (IF (NLISTP (CDR (CDR L))) (CONS (QUOTE PLUS) (CONS (CAR L) (CONS (CAR (CDR L)) (QUOTE NIL)))) (CONS (QUOTE PLUS) (CONS (CAR L) (CONS (PLUS-TREE (CDR L)) (QUOTE NIL)))))))) LOCAL-UNDO-TUPLES ((DCELL . *1*PLUS-TREE))))) (PUT1-LST (QUOTE *1*PLUS-FRINGE) (QUOTE (MAIN-EVENT PLUS-FRINGE))) (PUT1-LST (QUOTE PLUS-FRINGE) (QUOTE (TYPE-PRESCRIPTION-LST ((PLUS-FRINGE 16 NIL)) TOTALP-LST ((PLUS-FRINGE . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE) SDEFN (LAMBDA (X) (IF (LISTP X) (IF (EQUAL (CAR X) (QUOTE PLUS)) (APPEND (PLUS-FRINGE (CAR (CDR X))) (PLUS-FRINGE (CAR (CDR (CDR X))))) (CONS X (QUOTE NIL))) (CONS X (QUOTE NIL)))) LISP-CODE *1*PLUS-FRINGE SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((AND (LISTP X) (EQUAL (CAR X) (QUOTE PLUS)))) (((CAR (CDR (CDR X)))) ((CAR (CDR X))))) (TESTS-AND-CASES ((NOT (AND (LISTP X) (EQUAL (CAR X) (QUOTE PLUS))))) NIL)) LEVEL-NO 2 JUSTIFICATIONS ((JUSTIFICATION (X) (COUNT X) LESSP (CDR-LESSP AND ZERO CDR-LESSEQP CAR-LESSEQP))) IDATE 1000402214740 CONTROLLER-POCKETS (1) SATELLITES (*1*PLUS-FRINGE) IMMEDIATE-DEPENDENTS0 (CANCEL-LESSP-PLUS CANCEL-DIFFERENCE-PLUS CANCEL-EQUAL-PLUS MEMBER-IMPLIES-NUMBERP PLUS-TREE-PLUS-FRINGE BRIDGE-TO-SUBBAGP-IMPLIES-PLUS-TREE-GEQ) EVENT (DEFN PLUS-FRINGE (X) (IF (AND (LISTP X) (EQUAL (CAR X) (QUOTE PLUS))) (APPEND (PLUS-FRINGE (CAR (CDR X))) (PLUS-FRINGE (CAR (CDR (CDR X))))) (CONS X (QUOTE NIL)))) LOCAL-UNDO-TUPLES ((DCELL . *1*PLUS-FRINGE))))) (PUT1-LST (QUOTE DIFFERENCE-LESSP-CANCEL) (QUOTE (IDATE 1000402214740 IMMEDIATE-DEPENDENTS0 (DIFFERENCE-LESSP-CANCEL-2 DIFFERENCE-LESSP-CANCEL-1 EXT-NAT-RANGEP REMAINDER-QUOTIENT-EXP2 SUB-LEQ-LA CORRECTNESS-OF-CANCEL-LESSP-PLUS) EVENT (PROVE-LEMMA DIFFERENCE-LESSP-CANCEL (REWRITE) (EQUAL (LESSP (DIFFERENCE A C) (DIFFERENCE B C)) (IF (IF (LESSP A C) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (LESSP A B) (LESSP C B)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIFFERENCE-SUB1-SUB1 . DIFFERENCE-LESSP-CANCEL) (IMMEDIATE-DEPENDENTS0 SUB1-OF-1 . DIFFERENCE-LESSP-CANCEL) (IMMEDIATE-DEPENDENTS0 LESSP-OF-1 . DIFFERENCE-LESSP-CANCEL) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . DIFFERENCE-LESSP-CANCEL) (IMMEDIATE-DEPENDENTS0 DIFFERENCE=0 . DIFFERENCE-LESSP-CANCEL) (LEMMAS LESSP . DIFFERENCE-LESSP-CANCEL))))) (PUT1-LST (QUOTE DIFFERENCE-EQUAL-CANCEL-1) (QUOTE (IDATE 1000402214740 IMMEDIATE-DEPENDENTS0 (IPLUS-COMMUTATIVITY1 REMAINDER-PLUS-DIFFERENCE2 CORRECTNESS-OF-CANCEL-EQUAL-PLUS) EVENT (PROVE-LEMMA DIFFERENCE-EQUAL-CANCEL-1 (REWRITE) (EQUAL (EQUAL (DIFFERENCE X Z) (DIFFERENCE Y Z)) (IF (LESSP X Z) (NOT (LESSP Z Y)) (IF (LESSP Y Z) (NOT (LESSP Z X)) (EQUAL (FIX X) (FIX Y)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIFFERENCE-X-X . DIFFERENCE-EQUAL-CANCEL-1) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . DIFFERENCE-EQUAL-CANCEL-1) (IMMEDIATE-DEPENDENTS0 DIFFERENCE=0 . DIFFERENCE-EQUAL-CANCEL-1) (LEMMAS EQUAL . DIFFERENCE-EQUAL-CANCEL-1))))) (PUT1-LST (QUOTE DIFFERENCE-EQUAL-CANCEL-0) (QUOTE (IDATE 1000402214740 IMMEDIATE-DEPENDENTS0 (PLUS-TREE-DELETE) EVENT (PROVE-LEMMA DIFFERENCE-EQUAL-CANCEL-0 (REWRITE) (EQUAL (EQUAL X (DIFFERENCE X Y)) (AND (NUMBERP X) (OR (EQUAL X (QUOTE 0)) (ZEROP Y))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . DIFFERENCE-EQUAL-CANCEL-0) (LEMMAS EQUAL . DIFFERENCE-EQUAL-CANCEL-0))))) (PUT1-LST (QUOTE DIFFERENCE=0) (QUOTE (IDATE 1000402214740 IMMEDIATE-DEPENDENTS0 (DIFFERENCE-LESSP-CANCEL-1 MEAN-DIFFERENCE-2 MEAN-DIFFERENCE-1 STRSTR-BOUNDS STRSTR1* STRSTR1 MEM-LST-MCDR-1 SUB-BHI-INT ADDX-C-LA BITN-REPLACE BITN-APP BITN-HEAD ADD-NEG-ADDER SUB-EQUAL-0 ADD-SUB-CANCEL SUBTRACTER-NAT-LA INEG-IPLUS IPLUS-COMMUTATIVITY1 IDIFFERENCE-INTEGERP IPLUS-INTEGERP INT-TO-NAT=0 NAT-TO-INT-TO-NAT NAT-TO-INT-INTEGERP ILESSP-CROCK2 ADD-BMI-CROCK2 ADDX-V-CROCK2 ADDX-V-CROCK1 PLUS-TO-IPLUS EXT-INT ASR-INT QUOTIENT-DIFF REMAINDER-DIFF QUOTIENT-DIFF-LA ASL-INT ASL-INT-CROCK2 ASL-INT-CROCK1 REMAINDER-DIFF-LA ADDER-LOGNOT LOGNOT-INT LOGNOT-LOGNOT BV-NOT-LOGNOT LOG-QUOTIENT-EXP QUOTIENT-TIMES-EXP2-1 REMAINDER-TIMES-EXP2-1 LESSP-PLUS-EXP2 LESSP-PLUS-TIMES-EXP2 QUOTIENT-EXP QUOTIENT-SUB1 REMAINDER-SUB1 QUOTIENT-DIFFERENCE QUOTIENT-LESSP TIMES-EXP2-LESSP CORRECTNESS-OF-CANCEL-LESSP-PLUS CORRECTNESS-OF-CANCEL-EQUAL-PLUS PLUS-TREE-DELETE DIFFERENCE-LESSP-CANCEL DIFFERENCE-EQUAL-CANCEL-1) EVENT (PROVE-LEMMA DIFFERENCE=0 (REWRITE) (EQUAL (EQUAL (QUOTE 0) (DIFFERENCE X Y)) (NOT (LESSP Y X)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . DIFFERENCE=0) (LEMMAS EQUAL . DIFFERENCE=0))))) (PUT1-LST (QUOTE DIFFERENCE-LESSP1) (QUOTE (IDATE 1000402214740 IMMEDIATE-DEPENDENTS0 (SUBX-C-LA IPLUS-COMMUTATIVITY1 DIFFERENCE-INT-RANGEP IPLUS-INT-RANGEP2 IPLUS-INT-RANGEP1 PLUS-TO-IPLUS ASR-INT QUOTIENT-ADD1 REMAINDER-ADD1 QUOTIENT-SUB1) EVENT (PROVE-LEMMA DIFFERENCE-LESSP1 (REWRITE) (IMPLIES (LESSP X Z) (EQUAL (LESSP (DIFFERENCE X Y) Z) (QUOTE *1*TRUE)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . DIFFERENCE-LESSP1) (LEMMAS LESSP . DIFFERENCE-LESSP1))))) (PUT1-LST (QUOTE DIFFERENCE-LESSP) (QUOTE (IDATE 1000402214740 IMMEDIATE-DEPENDENTS0 (ADD-NEG-ADDER ADD-SUB-CANCEL SUB-NAT-RANGEP SUB-LEQ-LA SUB-UINT INT-TO-NAT-RANGEP PLUS-TO-IPLUS QUOTIENT-DIFF-LA ASL-INT-CROCK2 REMAINDER-DIFF-LA LOGNOT-LOGNOT) EVENT (PROVE-LEMMA DIFFERENCE-LESSP (REWRITE) (EQUAL (LESSP (DIFFERENCE M N) M) (AND (NOT (ZEROP M)) (NOT (ZEROP N))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . DIFFERENCE-LESSP) (LEMMAS LESSP . DIFFERENCE-LESSP))))) (PUT1-LST (QUOTE DIFFERENCE-PLUS-CANCEL-ADD1) (QUOTE (IDATE 1000402214740 IMMEDIATE-DEPENDENTS0 (DIFFERENCE-CANCEL-4294967295) EVENT (PROVE-LEMMA DIFFERENCE-PLUS-CANCEL-ADD1 (REWRITE) (EQUAL (DIFFERENCE (PLUS Y X) (ADD1 Y)) (SUB1 X))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-OF-1 . DIFFERENCE-PLUS-CANCEL-ADD1) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . DIFFERENCE-PLUS-CANCEL-ADD1) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . DIFFERENCE-PLUS-CANCEL-ADD1) (IMMEDIATE-DEPENDENTS0 SUB1-OF-1 . DIFFERENCE-PLUS-CANCEL-ADD1) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-SUB1 . DIFFERENCE-PLUS-CANCEL-ADD1) (LEMMAS DIFFERENCE . DIFFERENCE-PLUS-CANCEL-ADD1))))) (PUT1-LST (QUOTE DIFFERENCE-PLUS-CANCEL1) (QUOTE (IDATE 1000402214740 EVENT (PROVE-LEMMA DIFFERENCE-PLUS-CANCEL1 (REWRITE) (EQUAL (DIFFERENCE (PLUS X Y) (PLUS X Z)) (DIFFERENCE Y Z))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-LESSP-CANCEL-1 . DIFFERENCE-PLUS-CANCEL1) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . DIFFERENCE-PLUS-CANCEL1) (LEMMAS DIFFERENCE . DIFFERENCE-PLUS-CANCEL1))))) (PUT1-LST (QUOTE DIFFERENCE-DIFFERENCE2) (QUOTE (IDATE 1000402214740 IMMEDIATE-DEPENDENTS0 (ASR-N-BITP REMAINDER-QUOTIENT-EXP2 IPLUS-COMMUTATIVITY1 INT-TO-NAT-TO-INT ADD-BMI-CROCK2 ADD-BMI-CROCK1 ADDX-V-CROCK2 ADDX-V-CROCK1 PLUS-TO-IPLUS ASR-NAT-RANGEP ASL-INT ASL-INT-CROCK2 REMAINDER-DIFFERENCE-REMAINDER1 QUOTIENT-DIFFERENCE REMAINDER-DIFFERENCE CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS) EVENT (PROVE-LEMMA DIFFERENCE-DIFFERENCE2 (REWRITE) (IMPLIES (NOT (LESSP Y Z)) (EQUAL (DIFFERENCE X (DIFFERENCE Y Z)) (DIFFERENCE (PLUS X Z) Y))) ((INDUCT (DIFFERENCE Y Z)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIFFERENCE-SUB1-SUB1 . DIFFERENCE-DIFFERENCE2) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . DIFFERENCE-DIFFERENCE2) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . DIFFERENCE-DIFFERENCE2) (IMMEDIATE-DEPENDENTS0 PLUS-EQUAL-0 . DIFFERENCE-DIFFERENCE2) (LEMMAS DIFFERENCE . DIFFERENCE-DIFFERENCE2))))) (PUT1-LST (QUOTE DIFFERENCE-DIFFERENCE1) (QUOTE (IDATE 1000402214740 IMMEDIATE-DEPENDENTS0 (MEM-LST-MCDR-UINT-1 ADD-NEG-ADDER SUB-ADDER SUB-EQUAL-0 ADD-SUB-CANCEL SUB-NAT-RANGEP SUB-LEQ-LA SUB-UINT SUB-NAT-LA IPLUS-COMMUTATIVITY1 ADD-BMI-CROCK2 ADD-BMI-CROCK1 ADDX-V-CROCK2 ADDX-V-CROCK1 PLUS-TO-IPLUS ASL-ASL LSL-LSL QUOTIENT-DIFF REMAINDER-DIFF QUOTIENT-DIFF-LA REMAINDER-DIFF-LA LOGNOT-INT LOGNOT-LOGNOT REMAINDER-DIFFERENCE-REMAINDER1 REMAINDER-PLUS-DIFFERENCE2 PLUS-TREE-BAGDIFF) EVENT (PROVE-LEMMA DIFFERENCE-DIFFERENCE1 (REWRITE) (EQUAL (DIFFERENCE (DIFFERENCE X Y) Z) (DIFFERENCE X (PLUS Y Z)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . DIFFERENCE-DIFFERENCE1) (LEMMAS DIFFERENCE . DIFFERENCE-DIFFERENCE1))))) (PUT1-LST (QUOTE DIFFERENCE-PLUS2) (QUOTE (IDATE 1000402214739 IMMEDIATE-DEPENDENTS0 (READ-MEM-ILST-INT READ-MEM-ILST READ-MEM-LST-LA NEG-HEAD REPLACE-NAT-RANGEP REPLACE-LEQ1 TAIL-REPLACE QUOTIENT-PLUS-TIMES-EXP2-2 REMAINDER-PLUS-TIMES-EXP2-2 ADD-NEG-ADDER SUB-ADDER SUB-EQUAL-0 SUB-NAT-RANGEP SUB-LEQ-LA SUB-X-X SUB-UINT SUB-NAT-LA IPLUS-COMMUTATIVITY1 ADD-BMI-CROCK2 ADD-BMI-CROCK1 ADDX-V-CROCK2 ADDX-V-CROCK1 PLUS-TO-IPLUS EXT-INT ASR-NAT-RANGEP QUOTIENT-EXP-LESSP QUOTIENT-DIFF-LA ASL-INT REMAINDER-DIFF-LA REMAINDER-PLUS-CANCEL0 REMAINDER-QUOTIENT-ELIM REMAINDER-QUOTIENT) EVENT (PROVE-LEMMA DIFFERENCE-PLUS2 (REWRITE) (IMPLIES (NOT (LESSP Y Z)) (EQUAL (PLUS X (DIFFERENCE Y Z)) (DIFFERENCE (PLUS X Y) Z)))) LOCAL-UNDO-TUPLES ((LEMMAS PLUS . DIFFERENCE-PLUS2))))) (PUT1-LST (QUOTE DIFFERENCE-PLUS1) (QUOTE (IDATE 1000402214739 IMMEDIATE-DEPENDENTS0 (MEM-LST-MCAR-2 REMAINDER-QUOTIENT-EXP2 PLUS-TO-IPLUS ASR-INT ASR-INT-CROCK QUOTIENT-PLUS1 REMAINDER-PLUS-DIFFERENCE2 REMAINDER-PLUS2 REMAINDER-PLUS1 CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS) EVENT (PROVE-LEMMA DIFFERENCE-PLUS1 (REWRITE) (IMPLIES (NOT (LESSP X Y)) (EQUAL (PLUS (DIFFERENCE X Y) Z) (DIFFERENCE (PLUS X Z) Y)))) LOCAL-UNDO-TUPLES ((LEMMAS PLUS . DIFFERENCE-PLUS1))))) (PUT1-LST (QUOTE DIFFERENCE-PLUS-CANCEL0) (QUOTE (IDATE 1000402214739 IMMEDIATE-DEPENDENTS0 (CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS PLUS-TREE-DELETE) EVENT (PROVE-LEMMA DIFFERENCE-PLUS-CANCEL0 (REWRITE) (AND (EQUAL (DIFFERENCE (PLUS X Y) X) (FIX Y)) (EQUAL (DIFFERENCE (PLUS Y X) X) (FIX Y)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . DIFFERENCE-PLUS-CANCEL0) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . DIFFERENCE-PLUS-CANCEL0) (LEMMAS DIFFERENCE . DIFFERENCE-PLUS-CANCEL0) (LEMMAS DIFFERENCE . DIFFERENCE-PLUS-CANCEL0))))) (PUT1-LST (QUOTE DIFFERENCE-X-X) (QUOTE (IDATE 1000402214739 IMMEDIATE-DEPENDENTS0 (PUT-GET-VALS-IS-CPY READ-MEM-ILST-ASL READ-MEM-LST-ASL MEM-LST-PUT-VALS HEAD-RECURSION LOGAND-UINT-LA REPLACE-ASSOCIATIVITY REMAINDER-QUOTIENT-EXP2 QUOTIENT-PLUS-TIMES-EXP2-2 REMAINDER-PLUS-TIMES-EXP2-2 ADDER-UINT IDIFFERENCE-X-X ASL-INT-CROCK2 REMAINDER-DIFF-LA ADDER-LOGNOT LOGNOT-LOGNOT QUOTIENT-SUB1 REMAINDER-SUB1 QUOTIENT-EQUAL-0 QUOTIENT-X-X REMAINDER-X-X PLUS-TREE-DELETE DIFFERENCE-EQUAL-CANCEL-1) EVENT (PROVE-LEMMA DIFFERENCE-X-X (REWRITE) (EQUAL (DIFFERENCE X X) (QUOTE 0))) LOCAL-UNDO-TUPLES ((LEMMAS DIFFERENCE . DIFFERENCE-X-X))))) (PUT1-LST (QUOTE DIFFERENCE-0) (QUOTE (IDATE 1000402214739 IMMEDIATE-DEPENDENTS0 (DIFFERENCE-LESSP-CANCEL-1 DIFFERENCE-CANCEL-4294967292 MEAN-DIFFERENCE-2 MEAN-DIFFERENCE-1 DIFFERENCE-IS-1 DIFFERENCE-CANCEL-1 STRSTR-BOUNDS STRSTR1* STRSTR1 S&R-GROUP-H BETWEEN-ILEQ-LA MEM-LST-MCDR-1 MEM-LST-MCDR PLUS-DIFFERENCE MEM-LST-MCAR-2 WRITE-MEM-ILST WRITE-MEM-LST-LA READ-MEM-ILST-INT READ-MEM-ILST READ-MEM-LST-LA PUT-VALS-APPEND GET-VALS-APPEND GET-NTH-APPEND MBIT-MEANS-NEGATIVEP LOGEOR-BEQ-INT-1 SUB-BHI-INT DIFFERENCE-NAT-RANGEP TAIL-HEAD QUOTIENT-PLUS-TIMES-EXP2-2 QUOTIENT-PLUS-TIMES-EXP2-1 REMAINDER-PLUS-TIMES-EXP2-1 ADD-SUB-CANCEL SUB-LEQ-LA SUB-UINT SUBTRACTER-UINT SUBTRACTER-NAT-LA SUB-NAT-LA IPLUS-1--1 IPLUS-0 INEG-IPLUS IPLUS-COMMUTATIVITY1 DIFFERENCE-INT-RANGEP NAT-TO-INT= NAT-TO-INT-TO-NAT NAT-TO-INT-RANGEP IDIFFERENCE-INT-RANGEP1 IPLUS-INT-RANGEP1 ILESSP-CROCK2 ILESSP-CROCK1 ADD-BMI-CROCK2 ADD-BMI-CROCK1 ADDX-V-CROCK2 ADDX-V-CROCK1 IPLUS-WITH-CARRY-NEGATIVEP PLUS-TO-IPLUS ASL-ASL LSL-LSL ASR-INT-CROCK DIFFERENCE-APP-1S TIMES-SUB1 QUOTIENT-DIFF REMAINDER-DIFF QUOTIENT-DIFF-LA ASL-INT ASL-INT-CROCK2 ASL-INT-CROCK1 REMAINDER-DIFF-LA ADDER-LOGNOT LOG-QUOTIENT-EXP REMAINDER-REMAINDER-EXP2 QUOTIENT-TIMES-EXP2-3 QUOTIENT-TIMES-EXP2-1 REMAINDER-TIMES-EXP2-3 REMAINDER-TIMES-EXP2-1 LESSP-PLUS-TIMES-EXP2 QUOTIENT-EXP REMAINDER-CROCK REMAINDER-DIFFERENCE-REMAINDER1 QUOTIENT-SUB1 QUOTIENT-DIFFERENCE-TIMES2 QUOTIENT-DIFFERENCE-TIMES1 QUOTIENT-DIFFERENCE QUOTIENT-TIMES REMAINDER-DIFFERENCE REMAINDER-PLUS-DIFFERENCE2 QUOTIENT-1 REMAINDER-1 TIMES-EXP2-LESSP TIMES-DISTRIBUTES-DIFFERENCE CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS PLUS-TREE-BAGDIFF PLUS-TREE-DELETE DIFFERENCE-LESSP-CANCEL DIFFERENCE-EQUAL-CANCEL-1 DIFFERENCE-EQUAL-CANCEL-0 DIFFERENCE=0 DIFFERENCE-LESSP1 DIFFERENCE-LESSP DIFFERENCE-PLUS-CANCEL-ADD1 DIFFERENCE-PLUS-CANCEL1 DIFFERENCE-DIFFERENCE2 DIFFERENCE-DIFFERENCE1 DIFFERENCE-PLUS-CANCEL0) EVENT (PROVE-LEMMA DIFFERENCE-0 (REWRITE) (IMPLIES (IF (LESSP Y X) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (EQUAL (DIFFERENCE X Y) (QUOTE 0)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-OF-1 . DIFFERENCE-0) (LEMMAS DIFFERENCE . DIFFERENCE-0))))) (PUT1-LST (QUOTE DIFFERENCE-SUB1-SUB1) (QUOTE (IDATE 1000402214739 IMMEDIATE-DEPENDENTS0 (MEM-LST-MCDR-1 ADDX-C-LA ADDX-V-CROCK1 PLUS-TO-IPLUS ASL-INT ADDER-LOGNOT QUOTIENT-TIMES-EXP2-1 REMAINDER-TIMES-EXP2-1 LESSP-PLUS-TIMES-EXP2 QUOTIENT-EXP QUOTIENT-SUB1 REMAINDER-SUB1 TIMES-EXP2-LESSP DIFFERENCE-LESSP-CANCEL DIFFERENCE-DIFFERENCE2) EVENT (PROVE-LEMMA DIFFERENCE-SUB1-SUB1 (REWRITE) (EQUAL (SUB1 (DIFFERENCE X (SUB1 Y))) (IF (ZEROP Y) (SUB1 X) (IF (LESSP X Y) (QUOTE 0) (DIFFERENCE X Y))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-OF-1 . DIFFERENCE-SUB1-SUB1) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-SUB1 . DIFFERENCE-SUB1-SUB1) (IMMEDIATE-DEPENDENTS0 SUB1-OF-1 . DIFFERENCE-SUB1-SUB1) (LEMMAS SUB1 . DIFFERENCE-SUB1-SUB1))))) (PUT1-LST (QUOTE DIFFERENCE-SUB1) (QUOTE (IDATE 1000402214739 IMMEDIATE-DEPENDENTS0 (LESSP-SLEN-MCDR-0 BETWEEN-ILEQ-LA LSL-1-BCS&CC SUBTRACTER-NAT-LA IPLUS-1--1 IPLUS-INT-RANGEP1 ADDX-V-CROCK2 IPLUS-WITH-CARRY-NEGATIVEP PLUS-TO-IPLUS TIMES-SUB1 BV-NOT-LOGNOT QUOTIENT-TIMES-EXP2-3 QUOTIENT-2X-ADD1 REMAINDER-2X-ADD1 QUOTIENT-2X REMAINDER-2X QUOTIENT-1 DIFFERENCE-PLUS-CANCEL-ADD1 DIFFERENCE-SUB1-SUB1) EVENT (PROVE-LEMMA DIFFERENCE-SUB1 (REWRITE) (EQUAL (DIFFERENCE X (QUOTE 1)) (SUB1 X))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-OF-1 . DIFFERENCE-SUB1) (LEMMAS DIFFERENCE . DIFFERENCE-SUB1))))) (PUT1-LST (QUOTE SUB1-OF-1) (QUOTE (IDATE 1000402214739 IMMEDIATE-DEPENDENTS0 (GCD-T1-T2 GCD-T-SHRINK-2 GCD-T-SHRINK-1 DIFFERENCE-LESSP-CANCEL-1 MEAN-DIFFERENCE-2 MEAN-DIFFERENCE-1 MEMCHR-BOUNDS STRXFRM1 MEMCHR* STRNCPY1 ZERO-LIST1 STRNCMP1 STRCPY2 MEMSET1 MEMCMP1 MEMCHR1 MEAN-LESSP-LEMMA MISC-GROUP-H BIT-GROUP-H OR-GROUP-H AND-GROUP-H EFFEC-ADDR-MEM ADDR-INDEX2-MEM BETWEEN-ILEQ-LA WRITE-MEM-ILST WRITE-MEM-LST-LA READ-MEM-ILST-INT READ-MEM-ILST READ-MEM-LST-LA GET-VALS-APPEND DISJOINT-X-X DISJOINT0-X-X TIMES-PLUS-LESSP-CANCEL WRITE-MEMP-LA2 WRITE-MEMP-LA0 PC-READ-MEMP-LA2 PC-READ-MEMP-LA0 LSL-1-BCS&CC EXT-BEQ-UINT SUBX-C-LA BYTE-READ-WRITE-MEM-LEMMA EXT-EQUAL HEAD-RECURSION PLUS-TIMES-EQUAL GET-PUT SUB1-TIMES2-NAT-RANGEP NAT-RANGEP-UB LOGAND-UINT-LA LOGEOR-EQUAL-0 LOGOR-EQUAL-0 ADD-SUB-CANCEL SUBTRACTER-UINT ADDER-UINT TIMES-LESSP_2 IPLUS-INT-RANGEP1 ADDX-V-CROCK2 ADDX-V-CROCK1 IPLUS-WITH-CARRY-NEGATIVEP PLUS-TO-IPLUS ASR-NAT-RANGEP ASR-INT LESSP-APP-1S LESSP-TIMES-EXP-1S ADDER-LOGNOT NAT-TO-BV-SIZED-LA0 BV-HEAD-LISTP LOG-QUOTIENT-EXP LOG-TIMES-EXP LOG-EXP QUOTIENT-TIMES-EXP2-4 LESSP-PLUS-TIMES-EXP2 REMAINDER-EXP QUOTIENT-EXP TIMES-PLUS-LESSP QUOTIENT-ADD1 REMAINDER-ADD1 REMAINDER-SUB1 QUOTIENT-TIMES QUOTIENT-LESSP TIMES-EXP2-LESSP EXP-OF-2-1 TIMES2-ADD1-LESSP-CANCEL TIMES-LESSP-CANCEL-1 TIMES-LESSP-CANCEL TIMES-LESSP-CANCEL0 TIMES-LESSP-1 TIMES-EQUAL-CANCEL TIMES-EQUAL-CANCEL0 TIMES-ADD1-SUB1 TIMES-EQUAL-0 DIFFERENCE-LESSP-CANCEL DIFFERENCE-PLUS-CANCEL-ADD1 DIFFERENCE-SUB1-SUB1) EVENT (PROVE-LEMMA SUB1-OF-1 (REWRITE) (EQUAL (EQUAL (SUB1 X) (QUOTE 0)) (OR (ZEROP X) (EQUAL X (QUOTE 1))))) LOCAL-UNDO-TUPLES ((LEMMAS EQUAL . SUB1-OF-1))))) (PUT1-LST (QUOTE PLUS-EQUAL-0) (QUOTE (IDATE 1000402214739 IMMEDIATE-DEPENDENTS0 (REMAINDER-SHRINK-HALF DISJOINT-LEQ1-UINT DISJOINT-LEQ-UINT WRITE-MEMP-RAM1-ASL READ-MEMP-ROM1-ASL READ-MEMP-RAM1-ASL TIMES-LESSP-CANCEL1 SUBX-C-LA PLUS-TIMES-EQUAL LOGAND-UINT-LA LOGEOR-EQUAL-0 LOGOR-EQUAL-0 ADD-SUB-CANCEL SUBTRACTER-UINT SUBTRACTER-NAT-LA MULS-CROCK TIMES-LESSP_2 INEG-IPLUS IPLUS-COMMUTATIVITY1 IDIFFERENCE-INTEGERP IPLUS-INTEGERP IREMAINDER-INT-RANGEP ILESSP-CROCK2 ADD-BMI-CROCK2 ADDX-V-CROCK2 PLUS-TO-IPLUS DIFFERENCE-APP-1S LESSP-APP-1S LESSP-TIMES-EXP-1S ADDER-LOGNOT BV-TO-NAT-TO-BV LOG-TIMES-EXP LESSP-PLUS-TIMES-EXP2 TIMES-PLUS-LESSP TIMES2-ADD1-LESSP-CANCEL TIMES-LESSP-CANCEL0 TIMES-EQUAL-0 TIMES-DISTRIBUTES-PLUS EVAL$-PLUS-TREE-APPEND PLUS-TREE-DELETE DIFFERENCE-DIFFERENCE2) EVENT (PROVE-LEMMA PLUS-EQUAL-0 (REWRITE) (EQUAL (EQUAL (PLUS X Y) (QUOTE 0)) (AND (ZEROP X) (ZEROP Y)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . PLUS-EQUAL-0) (LEMMAS EQUAL . PLUS-EQUAL-0))))) (PUT1-LST (QUOTE PLUS-LESSP-CANCEL-ADD1) (QUOTE (IDATE 1000402214739 IMMEDIATE-DEPENDENTS0 (LESSP-CANCEL-4294967295) EVENT (PROVE-LEMMA PLUS-LESSP-CANCEL-ADD1 (REWRITE) (EQUAL (LESSP (PLUS Y X) (ADD1 Y)) (ZEROP X))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . PLUS-LESSP-CANCEL-ADD1) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . PLUS-LESSP-CANCEL-ADD1) (LEMMAS LESSP . PLUS-LESSP-CANCEL-ADD1))))) (PUT1-LST (QUOTE PLUS-LESSP-CANCEL-1) (QUOTE (IDATE 1000402214739 IMMEDIATE-DEPENDENTS0 (GCD-T-UBOUND GCD-T-SHRINK-2 LESSP-CANCEL-4294967292 TA-LEMMA-2 TA-LEMMA-1 DIFFERENCE-PLUS-CANCEL1) EVENT (PROVE-LEMMA PLUS-LESSP-CANCEL-1 (REWRITE) (EQUAL (LESSP (PLUS X Y) (PLUS X Z)) (LESSP Y Z))) LOCAL-UNDO-TUPLES ((LEMMAS LESSP . PLUS-LESSP-CANCEL-1))))) (PUT1-LST (QUOTE PLUS-LESSP-CANCEL-0) (QUOTE (IDATE 1000402214739 EVENT (PROVE-LEMMA PLUS-LESSP-CANCEL-0 (REWRITE) (EQUAL (LESSP X (PLUS X Y)) (NOT (ZEROP Y)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-OF-1 . PLUS-LESSP-CANCEL-0) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . PLUS-LESSP-CANCEL-0) (LEMMAS LESSP . PLUS-LESSP-CANCEL-0))))) (PUT1-LST (QUOTE PLUS-EQUAL-CANCEL) (QUOTE (IDATE 1000402214739 IMMEDIATE-DEPENDENTS0 (EVAL$-PLUS-TREE-APPEND PLUS-TREE-DELETE) EVENT (PROVE-LEMMA PLUS-EQUAL-CANCEL (REWRITE) (EQUAL (EQUAL (PLUS X Y) (PLUS X Z)) (EQUAL (FIX Y) (FIX Z)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-EQUAL-CANCEL0 . PLUS-EQUAL-CANCEL) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . PLUS-EQUAL-CANCEL) (LEMMAS EQUAL . PLUS-EQUAL-CANCEL))))) (PUT1-LST (QUOTE PLUS-EQUAL-CANCEL0) (QUOTE (IDATE 1000402214739 IMMEDIATE-DEPENDENTS0 (PLUS-TREE-PLUS-FRINGE EVAL$-PLUS-TREE-APPEND PLUS-TREE-DELETE PLUS-EQUAL-CANCEL) EVENT (PROVE-LEMMA PLUS-EQUAL-CANCEL0 (REWRITE) (EQUAL (EQUAL (PLUS X Y) X) (AND (NUMBERP X) (ZEROP Y)))) LOCAL-UNDO-TUPLES ((LEMMAS EQUAL . PLUS-EQUAL-CANCEL0))))) (PUT1-LST (QUOTE PLUS-ASSOCIATIVITY) (QUOTE (IDATE 1000402214739 IMMEDIATE-DEPENDENTS0 (REMAINDER-REMAINDER WRITE-MEM-ILST WRITE-MEM-LST-LA REMAINDER-QUOTIENT-EXP2 PLUS-TO-IPLUS ADDER-LOGNOT BV-ADDER&CARRY-NAT REMAINDER-REMAINDER-EXP2 TIMES-DISTRIBUTES-PLUS) EVENT (PROVE-LEMMA PLUS-ASSOCIATIVITY (REWRITE) (EQUAL (PLUS (PLUS X Y) Z) (PLUS X (PLUS Y Z)))) LOCAL-UNDO-TUPLES ((LEMMAS PLUS . PLUS-ASSOCIATIVITY))))) (PUT1-LST (QUOTE PLUS-COMMUTATIVITY1) (QUOTE (IDATE 1000402214739 IMMEDIATE-DEPENDENTS0 (DIFFERENCE-LESSP-CANCEL-2 DISJOINT0-DEDUCTION2 DISJOINT0-DEDUCTION1 ADD-COMMUTATIVITY1 ADD-ASSOCIATIVITY ADDER-COMMUTATIVITY1 ADDER-ASSOCIATIVITY ADDER-SHIFT-CARRY IPLUS-COMMUTATIVITY1 PLUS-TO-IPLUS BV-ADDER&CARRY-NAT REMAINDER-PLUS-REMAINDER2 REMAINDER-PLUS-REMAINDER1 TIMES-PLUS-LESSP REMAINDER-QUOTIENT-ELIM REMAINDER-QUOTIENT QUOTIENT-PLUS-PLUS REMAINDER-PLUS-PLUS-TIMES2 REMAINDER-PLUS-PLUS-TIMES1 REMAINDER-PLUS-PLUS TIMES-DISTRIBUTES-PLUS EVAL$-PLUS-TREE-APPEND) EVENT (PROVE-LEMMA PLUS-COMMUTATIVITY1 (REWRITE) (EQUAL (PLUS X (PLUS Y Z)) (PLUS Y (PLUS X Z)))) LOCAL-UNDO-TUPLES ((LEMMAS PLUS . PLUS-COMMUTATIVITY1))))) (PUT1-LST (QUOTE PLUS-COMMUTATIVITY) (QUOTE (IDATE 1000402214739 IMMEDIATE-DEPENDENTS0 (GCD-T1-T2 GCD-T2-UB GCD-T2 GCD-IS-CD REMAINDER-REMAINDER GCD-INDUCT GCD-T1 GCD RAM-ADDRP-4 RAM-ADDRP-3 DIFFERENCE-LESSP-CANCEL-2 PLUS3-TIMES-SUB1 PLUS2-TIMES-SUB1 PLUS-TIMES-SUB1 MEAN-DIFFERENCE-2 MEAN-DIFFERENCE-1 DISJOINT-7-UINT DISJOINT-5-UINT DISJOINT-3-UINT DISJOINT-2~-UINT DISJOINT-2-UINT DISJOINT-1-UINT WRITE-MEMP-RAM1-UINT READ-MEMP-RAM1-UINT DISJOINT-3-INT DISJOINT-2~-INT DISJOINT-2-INT DISJOINT-1-INT MEMCHR-BOUNDS LESSP-SLEN-MCDR-0 LESSP-SLEN-MCDR MEAN-LESSP MEAN-LESSP-LEMMA STEPN-MCODE-ADDRP MISC-GROUP-H MOVEM-PRE-RNLST-LEN S&R-GROUP-H READ-MEM-PLUS LSTCPY-ADD1 LSTCPY-LSTCPY MEM-LST-MCDR-UINT-1 PLUS-DIFFERENCE MEM-LST-MCAR-2 MEM-LST-MCAR-1 MEM-LST-PLUS DISJOINT-LEQ1-UINT DISJOINT-LEQ-UINT WRITE-MEMP-RAM1-ASL READ-MEMP-ROM1-ASL READ-MEMP-RAM1-ASL TIMES-LESSP-CANCEL1 WRITE-MEM-ILST MEM-LST-PUT-VALS MEM-LST-PUT-LST WRITE-MEM-LST-LA PLUS-TIMES-LESSP DISJOINT-LEQ DISJOINT0-LEQ READ-MEM-ILST-INT READ-MEM-ILST MEM-LST-GET-VALS MEM-LST-GET-LST READ-MEM-LST-LA GET-VALS-MCAR GET-VALS-MCDR GET-VALS-CDR GET-LST-MCAR GET-LST-MCDR GET-LST-CDR BV-TO-LST-LEN GET-VALS-LEN APPEND-LEN DISJOINT0-DEDUCTION2 DISJOINT0-DEDUCTION1 DISJOINT-11~-ASL DISJOINT-11-ASL DISJOINT-9~-ASL DISJOINT-9-ASL DISJOINT-3~-ASL DISJOINT-3-ASL DISJOINT-2~-ASL DISJOINT-2-ASL TIMES-PLUS-LESSP-CANCEL DISJOINT-15 DISJOINT-14 DISJOINT-13 DISJOINT-12 DISJOINT-11 DISJOINT-10 DISJOINT-9 DISJOINT-8 DISJOINT-7 DISJOINT-6 DISJOINT-5 DISJOINT-4 DISJOINT-LA3 DISJOINT-LA2 DISJOINT0-LA2 READ-MEM-MCODE3 READ-MEM-MCODE2 READ-MEM-MCODE1-INT PC-READ-MEM-MCODE3 PC-READ-MEM-MCODE2 PC-READ-MEM-MCODE1 READ-MEMP-RAM3 READ-MEMP-RAM2 READ-MEMP-RAM1-INT RAM-ADDRP-LA2 WRITE-MEMP-RAM3 WRITE-MEMP-RAM2 WRITE-MEMP-RAM1-INT READ-MEMP-ROM1-INT READ-MEMP-ROM3 READ-MEMP-ROM2 ROM-ADDRP-LA2 PC-READ-MEMP-ROM3 PC-READ-MEMP-ROM2 WRITE-MEMP-LA3 PC-READ-MEMP-LA3 ADD-NON-NUMBERP ADD-BCS&CC ASR-N-BITP HEAD-RECURSION PLUS-TIMES-EQUAL LOGEOR-NAT-RANGEP LOGOR-NAT-RANGEP LOGAND-NAT-RANGEP NAT-PLUS-RANGEP LOGAND-UINT-LA LOGAND-LOGEOR LOGAND-LOGOR LOGEOR-COMMUTATIVITY LOGOR-COMMUTATIVITY LOGAND-COMMUTATIVITY LOGEOR-EQUAL-0 LOGOR-EQUAL-0 HEAD-APP-HEAD-TAIL APP-ASSOCIATIVITY BCAR-REPLACE BCAR-APP BCDR-2 REPLACE-LEQ1 TAIL-REPLACE TAIL-APP REMAINDER-QUOTIENT-EXP2 QUOTIENT-PLUS-TIMES-EXP2-2 HEAD-PLUS-CANCEL0 ADDER-INT-BRIDGE ADD-NEG-ADDER SUB-ADDER ADD-SUB-CANCEL ADD-HEAD ADDER-HEAD SUB-NAT-RANGEP SUB-LEQ-LA ADD-ASSOCIATIVITY ADD-COMMUTATIVITY ADD-0 ADDER-ASSOCIATIVITY ADDER-COMMUTATIVITY SUB-UINT ADD-UINT SUBTRACTER-UINT ADDER-UINT SUBTRACTER-NAT-LA SUB-NAT-LA TIMES-LESSP_4 TIMES-LESSP_3 IDIFFERENCE-NEGATIVEP INEG-IPLUS IPLUS-COMMUTATIVITY1 IPLUS-COMMUTATIVITY IDIFFERENCE-INTEGERP INT-TO-NAT-TO-INT IDIFFERENCE-INT-RANGEP1 IPLUS-INT-RANGEP2 IPLUS-INT-RANGEP1 ILESSP-CROCK2 ADD-BMI-CROCK2 ADD-BMI-CROCK1 ADDX-V-CROCK2 ADDX-V-CROCK1 IPLUS-WITH-CARRY-NON-NEGATIVEP PLUS-TO-IPLUS ASR-NAT-RANGEP ASR-INT ASR-INT-CROCK DIFFERENCE-APP-1S LESSP-APP-1S LESSP-TIMES-EXP-1S QUOTIENT-DIFF-LA ASL-INT-CROCK2 REMAINDER-DIFF-LA APP-0 REPLACE-0 ADDER-LOGNOT LOGNOT-INT BV-ADDER&CARRY-NAT BV-MBIT-BITN BV-BITN-BITN BV-NOT-LOGNOT BV-TO-NAT-RANGEP BV-HEAD-NAT NAT-TO-BV-TO-NAT BV-TO-NAT-TO-BV BV-SIZED-TO-NAT-HEAD REMAINDER-REMAINDER-EXP2 LESSP-PLUS-TIMES-EXP2 REMAINDER-PLUS-CANCEL REMAINDER-PLUS-CANCEL0 REMAINDER-PLUS-REMAINDER REMAINDER-PLUS-REMAINDER2 REMAINDER-PLUS-REMAINDER1 TIMES-PLUS-LESSP QUOTIENT-ADD1 REMAINDER-QUOTIENT-ELIM REMAINDER-QUOTIENT QUOTIENT-DIFFERENCE QUOTIENT-DIFFERENCE-PLUS2 QUOTIENT-DIFFERENCE-PLUS1 QUOTIENT-PLUS-ADD1 QUOTIENT-PLUS-PLUS QUOTIENT-PLUS-TIMES2 QUOTIENT-PLUS2 QUOTIENT-PLUS1 REMAINDER-PLUS-PLUS-TIMES2 REMAINDER-PLUS-PLUS-TIMES1 REMAINDER-PLUS-DIFFERENCE2 REMAINDER-PLUS-ADD1 REMAINDER-PLUS-PLUS REMAINDER-PLUS1 QUOTIENT-2X-ADD1 REMAINDER-2X-ADD1 QUOTIENT-2X REMAINDER-2X TIMES2-ADD1-LESSP-CANCEL TIMES-LESSP-CANCEL-1 TIMES-1 TIMES-EQUAL-0 TIMES-ADD1 TIMES-ZERO PLUS-LESSP-CANCEL-2 PLUS-TREE-PLUS-FRINGE EVAL$-PLUS-TREE-APPEND PLUS-TREE-BAGDIFF SUBBAGP-IMPLIES-PLUS-TREE-GEQ PLUS-TREE-DELETE DIFFERENCE-PLUS-CANCEL-ADD1 DIFFERENCE-DIFFERENCE2 DIFFERENCE-PLUS-CANCEL0 PLUS-EQUAL-0 PLUS-LESSP-CANCEL-ADD1 PLUS-LESSP-CANCEL-0 PLUS-EQUAL-CANCEL) EVENT (PROVE-LEMMA PLUS-COMMUTATIVITY (REWRITE) (EQUAL (PLUS X Y) (PLUS Y X))) LOCAL-UNDO-TUPLES ((LEMMAS PLUS . PLUS-COMMUTATIVITY))))) (PUT1-LST (QUOTE PLUS-ADD1-1) (QUOTE (IDATE 1000402214739 IMMEDIATE-DEPENDENTS0 (LESSP-SLEN-MCDR PLUS-ADD1-1-OFF LSTCPY-LSTCPY MEM-LST-MCAR-1 MEM-LST-PUT-VALS MEM-LST-PUT-LST APPEND-LEN MULS_3264-BVS MULS_1632-BVS MULU_3264-BVS MULU_1632-BVS MULS_3264-INT MULS_1632-INT MULU_3264-NAT MULU_1632-NAT ADDX-V-CROCK2 ADDX-V-CROCK1 IPLUS-WITH-CARRY-NON-NEGATIVEP PLUS-TO-IPLUS BV-ADDER&CARRY-NAT REMAINDER-PLUS-REMAINDER2 QUOTIENT-PLUS1 QUOTIENT-2X-ADD1 REMAINDER-2X-ADD1) EVENT (PROVE-LEMMA PLUS-ADD1-1 (REWRITE) (EQUAL (PLUS X (ADD1 Y)) (ADD1 (PLUS X Y)))) LOCAL-UNDO-TUPLES ((LEMMAS PLUS . PLUS-ADD1-1))))) (PUT1-LST (QUOTE PLUS-ADD1) (QUOTE (IDATE 1000402214739 IMMEDIATE-DEPENDENTS0 (MEAN-DIFFERENCE-1 MEMCHR-BOUNDS LESSP-SLEN-MCDR-0 MEAN-LESSP-LEMMA STEPN-MCODE-ADDRP BETWEEN-ILEQ-LA GET-VALS-0 PLUS-TIMES-LESSP BV-TO-LST-LEN GET-VALS-LEN TIMES-PLUS-LESSP-CANCEL DISJOINT-LA0 DISJOINT0-LA0 WRITE-MEM-MCODE-ADDRP BYTE-WRITE-MCODE-ADDRP PC-BYTE-READ-MCODE1 BYTE-WRITEP-RAM2 PC-BYTE-READP-ROM2 WRITE-MEMP-LA1 PC-READ-MEMP-LA1 ASR-BMI ASR-BEQ SUBX-C-LA ADDX-C-LA HEAD-RECURSION LOGEOR-NAT-RANGEP LOGOR-NAT-RANGEP SUB1-TIMES2-NAT-RANGEP LOGAND-UINT-LA LOGAND-LOGEOR LOGAND-LOGOR LOGEOR-EQUAL-0 ADDER-INT-BRIDGE SUB-CANCEL0 ADD-NEG-ADDER SUB-ADDER ADD-SUB-CANCEL SUBTRACTER-UINT ADDER-UINT SUBTRACTER-NAT-LA ADDER-NAT-LA IPLUS-1--1 IPLUS-INT-RANGEP2 ADDX-V-CROCK2 ADDX-V-CROCK1 IPLUS-WITH-CARRY-NON-NEGATIVEP PLUS-TO-IPLUS ASR-INT QUOTIENT-DIFF-LA ADDER-LOGNOT LOGNOT-INT BV-ADDER-NAT BV-ADDER&CARRY-NAT BV-MBIT-BITN BV-BITN-BITN BV-NOT-LOGNOT BV-HEAD-NAT NAT-TO-BV-TO-NAT NAT-TO-BV-SIZED-LA0 LESSP-PLUS-TIMES-EXP2 QUOTIENT-ADD1 QUOTIENT-SUB1 QUOTIENT-DIFFERENCE QUOTIENT-PLUS-ADD1 QUOTIENT-TIMES REMAINDER-PLUS-ADD1 TIMES-LESSP-CANCEL-1) EVENT (PROVE-LEMMA PLUS-ADD1 (REWRITE) (EQUAL (PLUS (QUOTE 1) X) (ADD1 X))) LOCAL-UNDO-TUPLES ((LEMMAS PLUS . PLUS-ADD1))))) (PUT1-LST (QUOTE LESSP-SUB1) (QUOTE (IDATE 1000402214739 IMMEDIATE-DEPENDENTS0 (LESSP-TIMES-LESSP STRSTR-BOUNDS SLEN-ADD1 PUT-LST-OF-CHRP STRXFRM1 STRSTR1* MEMCHR* STRSTR1 STRNCPY1 ZERO-LIST1 STRNCMP1 STRCPY2 MEMSET1 MEMCMP1 MEMCHR1 MEM-ILST-LST-INTEGERP MEM-LST-INTEGERP PUT-LST-INT GET-LST-INT STEPN-H S&R-GROUP-H STEPN-MEM-ILST STEPN-MEM-LST STEPN-READM-MEM MMOVN-LST1 MMOVN-LST MMOV1-LST1 MMOV1-LST LSTCPY-CPY1 LSTCPY1 LSTMCPY-CPY LSTMCPY LSTCPY-LSTCPY LSTCPY MEM-LST-LEN MEM-LST-MCAR READM-WRITE-MEM GET-VALS-0 MEM-INDUCT4 MEM-INDUCT3 WRITE-ELSE-MEM-ILST WRITE-ELSE-MEM-LST MEM-INDUCT2 GET-NTH-APPEND GET-VALS-MCDR GET-VALS-CDR GET-LST-MCDR GET-LST-CDR MCDR-NTH MCAR-NTH MCDR-MCDR CDR-MCDR MCDR-LISTP-LEN BV-TO-LST-PROPER-LSTP GET-VALS-PROPER-LSTP BV-TO-LST-LEN GET-VALS-LEN MCDR MCAR LST-TO-BV BV-TO-LST PUT-VALS GET-VALS PUT-LST GET-LST MEM-LST-NON-NUMBERP READ-MEM-NON-NUMBERP HEAD-MEM-ILST HEAD-MEM-LST READM-MEM-LST MEM-ILST-INTEGERP MEM-LST-NUMBERP MEM-ILST-INT-RANGEP MEM-LST-NAT-RANGEP MEM-ILST MEM-LST DISJOINT-DEDUCTION2 DISJOINT-DEDUCTION1 DISJOINT-DEDUCTION0 DISJOINT-X-X DISJOINT0-DEDUCTION1 DISJOINT0-X-X TIMES-PLUS-LESSP-CANCEL DISJOINT-COMMUTATIVITY DISJOINT-LA0 DISJOINT0-LA1 DISJOINT0-LA0 DISJOINT-HEAD DISJOINT0-HEAD READ->PC-READ-MEM PC-READ-MEM-MCODE1 GET-NTH-TAIL-LST TAIL-LST READ-LST0 LST-NUMBERP0 MEM-INDUCT1 BYTE-WRITEP-RAM2 PC-BYTE-READP-ROM2 WRITE-MEMP-LA2 WRITE-MEMP-LA1 WRITE-MEMP-LA0 PC-READ-MEMP-LA2 PC-READ-MEMP-LA1 PC-READ-MEMP-LA0 SUBX-ADDX-V ADD-BCS&CC ASL-N-BITP LSL-N-BITP DIVU-N-BITP DIVS-N-BITP MULS-N-BITP MULU-N-BITP WRITE-WRITE-INDUCT BYTE-READ-WRITE-MEM-LEMMA READ-WRITE-MEM1 READ-MEM-BYTE-WRITE PC-READ-MEM-WRITE-MEM PC-READ-MEM-BYTE-WRITE WRITE-MEMP->READ-MEMP PC-READ-MEMP->READ-MEMP WRITE-MEM-MAINTAIN-WRITE-MEMP WRITE-MEM-MAINTAIN-READ-MEMP WRITE-MEM-MAINTAIN-PC-READ-MEMP BYTE-WRITE-MAINTAIN-WRITE-MEMP BYTE-WRITE-MAINTAIN-READ-MEMP BYTE-WRITE-MAINTAIN-PC-READ-MEMP WRITE-MEM-MAINTAIN-BYTE-WRITEP WRITE-MEM-MAINTAIN-BYTE-READP WRITE-MEM-MAINTAIN-PC-BYTE-READP PC-READ-MEM-NAT-RANGEP MEM-INDUCT0 MODN-EQ-EQUAL WRITE-WRITE WRITE-WRITE-LA PC-READ-WRITE READ-WRITE MODN-EQ WRITEP->READP PC-READP->READP PUT-NTH-LEN PUT-PUT GET-PUT GET-NTH-NIL HEAD-NAT-RANGEP NAT-PLUS-RANGEP NAT-RANGEP-UB HEAD-READM-MEM HEAD-WRITE-MEM HEAD-PC-READ-MEM HEAD-READ-MEM HEAD-WRITE-MEMP HEAD-PC-READ-MEMP HEAD-READ-MEMP HEAD-WRITE HEAD-READ HEAD-WRITEP HEAD-PC-READP HEAD-READP ADD-SUB-CANCEL ADDER-UINT SUBTRACTER-NAT-LA ASR-NAT-RANGEP ADDER-LOGNOT BV-BITN-BITN BV-BITN-NOT BV-SIZED-TO-NAT-TO-BV-SIZED BV-HEAD-NAT BV-TO-NAT-TO-BV BV-SIZED-TO-NAT-HEAD NAT-TO-BV-SIZED-HEAD NAT-TO-BV-SIZED-LA0 NAT-TO-BV-SIZED-LEN BV-HEAD-LEN BV-HEAD-LISTP NAT-TO-BV-SIZED BV-SIZED-TO-NAT BV-BITN BV-TAIL BV-HEAD DISJOINT DISJOINT0 MOD-EQ MAP-UPDATE STEPN MOVEP-READ MOVEP-READP MOVEP-WRITE MOVEP-WRITEP READM-MEM WRITE-MEM WRITE-MEMP PC-READ-MEM READ-MEM PC-READ-MEMP READ-MEMP PUT-NTH GET-NTH WRITE READ WRITEP PC-READP READP SETN LOG-QUOTIENT-EXP LOG-TIMES-EXP LOG-EXP QUOT2-SUB12-INDUCT REMAINDER-EXP QUOTIENT-ADD1 REMAINDER-ADD1 EXP-LESSP EXP-OF-2-1 EXP-OF-2-0 EXP-EXP EXP-TIMES EXP-PLUS EXP-OF-1 EXP PLUS-LESSP-CANCEL-ADD1) EVENT (PROVE-LEMMA LESSP-SUB1 (REWRITE) (EQUAL (LESSP (SUB1 X) X) (NOT (ZEROP X)))) LOCAL-UNDO-TUPLES ((LEMMAS LESSP . LESSP-SUB1))))) (PUT1-LST (QUOTE LESSP-OF-1) (QUOTE (IDATE 1000402214739 IMMEDIATE-DEPENDENTS0 (GCD-T-SHRINK-2 GCD-T-SHRINK-1 LESSP-TIMES-LESSP MEAN-DIFFERENCE-2 MEAN-DIFFERENCE-1 STRSTR-BOUNDS MEMCHR-BOUNDS SLEN-01 STRSTR1* STRSTR1 MISC-GROUP-H BIT-GROUP-H OR-GROUP-H AND-GROUP-H EFFEC-ADDR-MEM ADDR-INDEX2-MEM BETWEEN-ILEQ-LA PUT-COMMUTATIVITY MEM-LST-MCAR-1 MEM-LST-MCAR PLUS-TIMES-LESSP GET-VALS-APPEND MCAR-MCAR TIMES-PLUS-LESSP-CANCEL DISJOINT-LA0 DISJOINT0-LA1 DISJOINT0-LA0 PC-READ-MEM-MCODE1 PC-READ-MEM-MCODE0 WRITE-MEMP-LA2 WRITE-MEMP-LA1 PC-READ-MEMP-LA2 PC-READ-MEMP-LA1 MBIT-MEANS-NEGATIVEP LSR-1-BCS&CC LSL-1-BCS&CC TAIL-MBIT EXT-BEQ-UINT LOGEOR-BEQ-INT-1 HEAD-RECURSION PLUS-TIMES-EQUAL HEAD-NAT-RANGEP LOGEOR-NAT-RANGEP LOGOR-NAT-RANGEP LOGAND-NAT-RANGEP SUB1-TIMES2-NAT-RANGEP SUB1-NAT-RANGEP NAT-RANGEP-0 NAT-RANGEP-UB HEAD-WRITE HEAD-READ HEAD-WRITEP HEAD-PC-READP HEAD-READP LOGAND-UINT-LA LOGEOR-EQUAL-0 LOGOR-EQUAL-0 BITN-LOGNOT REPLACE-NAT-RANGEP REMAINDER-QUOTIENT-EXP2 QUOTIENT-PLUS-TIMES-EXP2-2 REMAINDER-PLUS-TIMES-EXP2-2 REMAINDER2-PLUS-TIMES-EXP2 SUBTRACTER-NAT-LA TIMES-LESSP_2 TIMES-LESSP_1 IPLUS-1--1 SUB1-INT-RANGEP NAT-TO-INT= NAT-TO-INT-TO-NAT NAT-TO-INT-RANGEP NAT-TO-INT-INTEGERP INT-RANGEP-LA IPLUS-INT-RANGEP1 PLUS-TO-IPLUS EXT-INT MBIT-MEANS-LESSP ASR-NAT-RANGEP ASR-0 ASR-INT-CROCK LESSP-APP-1S LESSP-TIMES-EXP-1S QUOTIENT-EXP-LESSP ASL-INT ASL-INT-CROCK2 ASL-INT-CROCK1 LOGNOT-INT BV-HEAD-NAT NAT-TO-BV-SIZED-LA0 REMAINDER-REMAINDER-2 REMAINDER-REMAINDER-EXP2 QUOTIENT-TIMES-EXP2-4 QUOTIENT-TIMES-EXP2-3 LESSP-PLUS-TIMES-EXP2 QUOTIENT-EXP QUOTIENT-SUB1 REMAINDER-SUB1 QUOTIENT-DIFFERENCE-PLUS1 REMAINDER-PLUS-DIFFERENCE1 QUOTIENT-2X-ADD1 REMAINDER-2X-ADD1 QUOTIENT-2X REMAINDER-2X QUOTIENT-1 REMAINDER-1 TIMES-EXP2-LESSP EXP-LESSP EXP-OF-2-0 AND-NOT-ZEROP-TREE-DELETE AND-NOT-ZEROP-TREE-LESSP TIMES2-ADD1-LESSP-CANCEL TIMES-LESSP-CANCEL0 DIFFERENCE-LESSP-CANCEL DIFFERENCE-PLUS-CANCEL-ADD1 DIFFERENCE-0 DIFFERENCE-SUB1-SUB1 DIFFERENCE-SUB1 PLUS-LESSP-CANCEL-0) EVENT (PROVE-LEMMA LESSP-OF-1 (REWRITE) (EQUAL (LESSP X (QUOTE 1)) (ZEROP X))) LOCAL-UNDO-TUPLES ((LEMMAS LESSP . LESSP-OF-1))))) (PUT1-LST (QUOTE SUBBAGP-BAGINT2) (QUOTE (IDATE 1000402214739 IMMEDIATE-DEPENDENTS0 (CORRECTNESS-OF-CANCEL-EQUAL-ADD CORRECTNESS-OF-CANCEL-EQUAL-TIMES ZEROP-MAKES-EQUAL-TRUE-BRIDGE CORRECTNESS-OF-CANCEL-LESSP-TIMES ZEROP-MAKES-LESSP-FALSE-BRIDGE CORRECTNESS-OF-CANCEL-LESSP-PLUS CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS CORRECTNESS-OF-CANCEL-EQUAL-PLUS) EVENT (PROVE-LEMMA SUBBAGP-BAGINT2 (REWRITE) (SUBBAGP (BAGINT X Y) Y)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUBBAGP-CDR2 . SUBBAGP-BAGINT2) (IMMEDIATE-DEPENDENTS0 BAGINT . SUBBAGP-BAGINT2) (IMMEDIATE-DEPENDENTS0 SUBBAGP . SUBBAGP-BAGINT2) (LEMMAS SUBBAGP . SUBBAGP-BAGINT2))))) (PUT1-LST (QUOTE SUBBAGP-BAGINT1) (QUOTE (IDATE 1000402214739 IMMEDIATE-DEPENDENTS0 (CORRECTNESS-OF-CANCEL-EQUAL-ADD CORRECTNESS-OF-CANCEL-EQUAL-TIMES ZEROP-MAKES-EQUAL-TRUE-BRIDGE CORRECTNESS-OF-CANCEL-LESSP-TIMES ZEROP-MAKES-LESSP-FALSE-BRIDGE CORRECTNESS-OF-CANCEL-LESSP-PLUS CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS CORRECTNESS-OF-CANCEL-EQUAL-PLUS) EVENT (PROVE-LEMMA SUBBAGP-BAGINT1 (REWRITE) (SUBBAGP (BAGINT X Y) X)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUBBAGP-CDR2 . SUBBAGP-BAGINT1) (IMMEDIATE-DEPENDENTS0 DELETE . SUBBAGP-BAGINT1) (IMMEDIATE-DEPENDENTS0 BAGINT . SUBBAGP-BAGINT1) (IMMEDIATE-DEPENDENTS0 SUBBAGP . SUBBAGP-BAGINT1) (LEMMAS SUBBAGP . SUBBAGP-BAGINT1))))) (PUT1-LST (QUOTE SUBBAGP-CDR2) (QUOTE (IDATE 1000402214739 IMMEDIATE-DEPENDENTS0 (ADD-TREE-BAGDIFF EVAL$-EQUAL-TIMES-TREE-BAGDIFF EVAL$-LESSP-TIMES-TREE-BAGDIFF PLUS-TREE-BAGDIFF SUBBAGP-IMPLIES-PLUS-TREE-GEQ SUBBAGP-BAGINT2 SUBBAGP-BAGINT1) EVENT (PROVE-LEMMA SUBBAGP-CDR2 (REWRITE) (IMPLIES (SUBBAGP X (CDR Y)) (SUBBAGP X Y))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DELETE . SUBBAGP-CDR2) (IMMEDIATE-DEPENDENTS0 DELETE-NON-MEMBER . SUBBAGP-CDR2) (IMMEDIATE-DEPENDENTS0 SUBBAGP-CDR1 . SUBBAGP-CDR2) (IMMEDIATE-DEPENDENTS0 SUBBAGP . SUBBAGP-CDR2) (LEMMAS SUBBAGP . SUBBAGP-CDR2))))) (PUT1-LST (QUOTE SUBBAGP-CDR1) (QUOTE (IDATE 1000402214739 IMMEDIATE-DEPENDENTS0 (SUBBAGP-CDR2) EVENT (PROVE-LEMMA SUBBAGP-CDR1 (REWRITE) (IMPLIES (SUBBAGP X Y) (SUBBAGP (CDR X) Y))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUBBAGP-DELETE . SUBBAGP-CDR1) (IMMEDIATE-DEPENDENTS0 SUBBAGP . SUBBAGP-CDR1) (LEMMAS SUBBAGP . SUBBAGP-CDR1))))) (PUT1-LST (QUOTE SUBBAGP-DELETE) (QUOTE (IDATE 1000402214739 IMMEDIATE-DEPENDENTS0 (SUBBAGP-CDR1) EVENT (PROVE-LEMMA SUBBAGP-DELETE (REWRITE) (IMPLIES (SUBBAGP X (DELETE U Y)) (SUBBAGP X Y))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MEMBER-DELETE . SUBBAGP-DELETE) (IMMEDIATE-DEPENDENTS0 DELETE-COMMUTATIVITY . SUBBAGP-DELETE) (IMMEDIATE-DEPENDENTS0 DELETE . SUBBAGP-DELETE) (IMMEDIATE-DEPENDENTS0 SUBBAGP . SUBBAGP-DELETE) (LEMMAS SUBBAGP . SUBBAGP-DELETE))))) (PUT1-LST (QUOTE DELETE-COMMUTATIVITY) (QUOTE (IDATE 1000402214739 IMMEDIATE-DEPENDENTS0 (SUBBAGP-DELETE) EVENT (PROVE-LEMMA DELETE-COMMUTATIVITY (REWRITE) (EQUAL (DELETE X (DELETE Y Z)) (DELETE Y (DELETE X Z)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DELETE-NON-MEMBER . DELETE-COMMUTATIVITY) (IMMEDIATE-DEPENDENTS0 DELETE . DELETE-COMMUTATIVITY) (LEMMAS DELETE . DELETE-COMMUTATIVITY))))) (PUT1-LST (QUOTE MEMBER-DELETE) (QUOTE (IDATE 1000402214739 IMMEDIATE-DEPENDENTS0 (SUBBAGP-DELETE) EVENT (PROVE-LEMMA MEMBER-DELETE (REWRITE) (IMPLIES (MEMBER X (DELETE U V)) (MEMBER X V))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DELETE-NON-MEMBER . MEMBER-DELETE) (IMMEDIATE-DEPENDENTS0 DELETE . MEMBER-DELETE) (LEMMAS MEMBER . MEMBER-DELETE))))) (PUT1-LST (QUOTE DELETE-NON-MEMBER) (QUOTE (IDATE 1000402214739 IMMEDIATE-DEPENDENTS0 (EVAL$-ADD-MEMBER EVAL$-TIMES-MEMBER PLUS-TREE-DELETE SUBBAGP-CDR2 DELETE-COMMUTATIVITY MEMBER-DELETE) EVENT (PROVE-LEMMA DELETE-NON-MEMBER (REWRITE) (IMPLIES (NOT (MEMBER X Y)) (EQUAL (DELETE X Y) Y))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DELETE . DELETE-NON-MEMBER) (LEMMAS DELETE . DELETE-NON-MEMBER))))) (PUT1-LST (QUOTE *1*BAGINT) (QUOTE (MAIN-EVENT BAGINT))) (PUT1-LST (QUOTE BAGINT) (QUOTE (TYPE-PRESCRIPTION-LST ((BAGINT 24 NIL NIL)) TOTALP-LST ((BAGINT . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE QUESTIONABLE) SDEFN (LAMBDA (X Y) (IF (LISTP X) (IF (MEMBER (CAR X) Y) (CONS (CAR X) (BAGINT (CDR X) (DELETE (CAR X) Y))) (BAGINT (CDR X) Y)) (QUOTE NIL))) LISP-CODE *1*BAGINT SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((LISTP X) (MEMBER (CAR X) Y)) (((CDR X) (DELETE (CAR X) Y)))) (TESTS-AND-CASES ((LISTP X) (NOT (MEMBER (CAR X) Y))) (((CDR X) Y))) (TESTS-AND-CASES ((NOT (LISTP X))) NIL)) LEVEL-NO 2 JUSTIFICATIONS ((JUSTIFICATION (X) (COUNT X) LESSP (ZERO CDR-LESSP))) IDATE 1000402214739 CONTROLLER-POCKETS (1) SATELLITES (*1*BAGINT) IMMEDIATE-DEPENDENTS0 (CANCEL-EQUAL-ADD CANCEL-EQUAL-TIMES ZEROP-MAKES-EQUAL-TRUE-BRIDGE CANCEL-LESSP-TIMES ZEROP-MAKES-LESSP-FALSE-BRIDGE CANCEL-LESSP-PLUS CANCEL-DIFFERENCE-PLUS CANCEL-EQUAL-PLUS SUBBAGP-BAGINT2 SUBBAGP-BAGINT1) EVENT (DEFN BAGINT (X Y) (IF (LISTP X) (IF (MEMBER (CAR X) Y) (CONS (CAR X) (BAGINT (CDR X) (DELETE (CAR X) Y))) (BAGINT (CDR X) Y)) (QUOTE NIL))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DELETE . BAGINT) (DCELL . *1*BAGINT))))) (PUT1-LST (QUOTE *1*BAGDIFF) (QUOTE (MAIN-EVENT BAGDIFF))) (PUT1-LST (QUOTE BAGDIFF) (QUOTE (TYPE-PRESCRIPTION-LST ((BAGDIFF -1 T NIL)) TOTALP-LST ((BAGDIFF . T)) QUICK-BLOCK-INFO (QUESTIONABLE SELF-REFLEXIVE) SDEFN (LAMBDA (X Y) (IF (LISTP Y) (IF (MEMBER (CAR Y) X) (BAGDIFF (DELETE (CAR Y) X) (CDR Y)) (BAGDIFF X (CDR Y))) X)) LISP-CODE *1*BAGDIFF SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((LISTP Y) (MEMBER (CAR Y) X)) (((DELETE (CAR Y) X) (CDR Y)))) (TESTS-AND-CASES ((LISTP Y) (NOT (MEMBER (CAR Y) X))) ((X (CDR Y)))) (TESTS-AND-CASES ((NOT (LISTP Y))) NIL)) LEVEL-NO 2 JUSTIFICATIONS ((JUSTIFICATION (Y) (COUNT Y) LESSP (ZERO CDR-LESSP))) IDATE 1000402214739 CONTROLLER-POCKETS (2) SATELLITES (*1*BAGDIFF) IMMEDIATE-DEPENDENTS0 (CANCEL-EQUAL-ADD ADD-TREE-BAGDIFF CANCEL-EQUAL-TIMES EVAL$-EQUAL-TIMES-TREE-BAGDIFF CANCEL-LESSP-TIMES EVAL$-LESSP-TIMES-TREE-BAGDIFF CANCEL-LESSP-PLUS CANCEL-DIFFERENCE-PLUS CANCEL-EQUAL-PLUS PLUS-TREE-BAGDIFF) EVENT (DEFN BAGDIFF (X Y) (IF (LISTP Y) (IF (MEMBER (CAR Y) X) (BAGDIFF (DELETE (CAR Y) X) (CDR Y)) (BAGDIFF X (CDR Y))) X)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DELETE . BAGDIFF) (DCELL . *1*BAGDIFF))))) (PUT1-LST (QUOTE *1*SUBBAGP) (QUOTE (MAIN-EVENT SUBBAGP))) (PUT1-LST (QUOTE SUBBAGP) (QUOTE (TYPE-PRESCRIPTION-LST ((SUBBAGP 3 NIL NIL)) LEMMAS ((REWRITE-RULE SUBBAGP-BAGINT2 NIL (SUBBAGP (BAGINT X Y) Y) NIL) (REWRITE-RULE SUBBAGP-BAGINT1 NIL (SUBBAGP (BAGINT X Y) X) NIL) (REWRITE-RULE SUBBAGP-CDR2 ((SUBBAGP X (CDR Y))) (SUBBAGP X Y) NIL) (REWRITE-RULE SUBBAGP-CDR1 ((SUBBAGP X Y)) (SUBBAGP (CDR X) Y) NIL) (REWRITE-RULE SUBBAGP-DELETE ((SUBBAGP X (DELETE U Y))) (SUBBAGP X Y) NIL)) TOTALP-LST ((SUBBAGP . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE) SDEFN (LAMBDA (X Y) (IF (LISTP X) (IF (MEMBER (CAR X) Y) (SUBBAGP (CDR X) (DELETE (CAR X) Y)) (QUOTE *1*FALSE)) (QUOTE *1*TRUE))) LISP-CODE *1*SUBBAGP SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((LISTP X) (MEMBER (CAR X) Y)) (((CDR X) (DELETE (CAR X) Y)))) (TESTS-AND-CASES ((LISTP X) (NOT (MEMBER (CAR X) Y))) NIL) (TESTS-AND-CASES ((NOT (LISTP X))) NIL)) LEVEL-NO 2 JUSTIFICATIONS ((JUSTIFICATION (X) (COUNT X) LESSP (ZERO CDR-LESSP))) IDATE 1000402214739 CONTROLLER-POCKETS (1) SATELLITES (*1*SUBBAGP) IMMEDIATE-DEPENDENTS0 (ADD-TREE-BAGDIFF EVAL$-EQUAL-TIMES-TREE-BAGDIFF EVAL$-LESSP-TIMES-TREE-BAGDIFF ZEROP-MAKES-TIMES-TREE-ZERO BRIDGE-TO-SUBBAGP-IMPLIES-PLUS-TREE-GEQ PLUS-TREE-BAGDIFF SUBBAGP-IMPLIES-PLUS-TREE-GEQ SUBBAGP-BAGINT2 SUBBAGP-BAGINT1 SUBBAGP-CDR2 SUBBAGP-CDR1 SUBBAGP-DELETE) EVENT (DEFN SUBBAGP (X Y) (IF (LISTP X) (IF (MEMBER (CAR X) Y) (SUBBAGP (CDR X) (DELETE (CAR X) Y)) (QUOTE *1*FALSE)) (QUOTE *1*TRUE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DELETE . SUBBAGP) (DCELL . *1*SUBBAGP))))) (PUT1-LST (QUOTE *1*DELETE) (QUOTE (MAIN-EVENT DELETE))) (PUT1-LST (QUOTE DELETE) (QUOTE (TYPE-PRESCRIPTION-LST ((DELETE -1 NIL T)) LEMMAS ((REWRITE-RULE DELETE-COMMUTATIVITY NIL (EQUAL (DELETE X (DELETE Y Z)) (DELETE Y (DELETE X Z))) ((X . Y))) (REWRITE-RULE DELETE-NON-MEMBER ((NOT (MEMBER X Y))) (EQUAL (DELETE X Y) Y) NIL)) TOTALP-LST ((DELETE . T)) QUICK-BLOCK-INFO (UNCHANGING SELF-REFLEXIVE) SDEFN (LAMBDA (X Y) (IF (LISTP Y) (IF (EQUAL X (CAR Y)) (CDR Y) (CONS (CAR Y) (DELETE X (CDR Y)))) Y)) LISP-CODE *1*DELETE SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((LISTP Y) (EQUAL X (CAR Y))) NIL) (TESTS-AND-CASES ((LISTP Y) (NOT (EQUAL X (CAR Y)))) ((X (CDR Y)))) (TESTS-AND-CASES ((NOT (LISTP Y))) NIL)) LEVEL-NO 1 JUSTIFICATIONS ((JUSTIFICATION (Y) (COUNT Y) LESSP (ZERO CDR-LESSP))) IDATE 1000402214739 CONTROLLER-POCKETS (2) SATELLITES (*1*DELETE) IMMEDIATE-DEPENDENTS0 (CANCEL-ADD-NEG ADD-TREE-DELETE ADD-TREE-DELETE-COND EVAL$-ADD-MEMBER CANCEL-EQUAL-TIMES EQUAL-1-TIMES-TREE-DELETE EQUAL-1-EVAL$-TIMES-TREE-DELETE-END CANCEL-LESSP-TIMES LESSP-1-TIMES-TREE-DELETE LESSP-1-TIMES-TREE-DELETE-END AND-NOT-ZEROP-TREE-DELETE EVAL$-AND-NOT-ZEROP-TREE-END EVAL$-TIMES-MEMBER CANCEL-LESSP-PLUS CANCEL-DIFFERENCE-PLUS CANCEL-EQUAL-PLUS PLUS-TREE-DELETE SUBBAGP-BAGINT1 SUBBAGP-CDR2 SUBBAGP-DELETE DELETE-COMMUTATIVITY MEMBER-DELETE DELETE-NON-MEMBER BAGINT BAGDIFF SUBBAGP) EVENT (DEFN DELETE (X Y) (IF (LISTP Y) (IF (EQUAL X (CAR Y)) (CDR Y) (CONS (CAR Y) (DELETE X (CDR Y)))) Y)) LOCAL-UNDO-TUPLES ((DCELL . *1*DELETE))))) (PUT1-LST (QUOTE *1*SUBSET) (QUOTE (MAIN-EVENT SUBSET))) (PUT1-LST (QUOTE SUBSET) (QUOTE (TYPE-PRESCRIPTION-LST ((SUBSET 3 NIL NIL)) TOTALP-LST ((SUBSET . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE UNCHANGING) SDEFN (LAMBDA (X Y) (IF (LISTP X) (IF (MEMBER (CAR X) Y) (SUBSET (CDR X) Y) (QUOTE *1*FALSE)) (QUOTE *1*TRUE))) LISP-CODE *1*SUBSET SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((LISTP X) (MEMBER (CAR X) Y)) (((CDR X) Y))) (TESTS-AND-CASES ((LISTP X) (NOT (MEMBER (CAR X) Y))) NIL) (TESTS-AND-CASES ((NOT (LISTP X))) NIL)) LEVEL-NO 2 JUSTIFICATIONS ((JUSTIFICATION (X) (COUNT X) LESSP (ZERO CDR-LESSP))) IDATE 1000402214739 CONTROLLER-POCKETS (1) SATELLITES (*1*SUBSET) EVENT (DEFN SUBSET (X Y) (IF (LISTP X) (IF (MEMBER (CAR X) Y) (SUBSET (CDR X) Y) (QUOTE *1*FALSE)) (QUOTE *1*TRUE))) LOCAL-UNDO-TUPLES ((DCELL . *1*SUBSET))))) (PUT1-LST (QUOTE *1*IDENTITY) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE IDENTITY) (QUOTE (TYPE-PRESCRIPTION-LST ((IDENTITY 0 T)) TOTALP-LST ((IDENTITY . T)) SDEFN (LAMBDA (X) X) LISP-CODE *1*IDENTITY SUBRP *1*TRUE LEVEL-NO 0 MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE REWRITE-EVAL$) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE REWRITE-CAR-V&C$) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE REWRITE-V&C-APPLY$) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE REWRITE-V&C$) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE REWRITE-APPLY-SUBR) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE REWRITE-APPLY$) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE REWRITE-CAR-V&C-APPLY$) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*FOR) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE FOR) (QUOTE (TYPE-PRESCRIPTION-LST ((FOR -1 NIL NIL NIL NIL T NIL)) TOTALP-LST ((FOR)) QUICK-BLOCK-INFO (UNCHANGING SELF-REFLEXIVE UNCHANGING UNCHANGING UNCHANGING UNCHANGING) SDEFN (LAMBDA (VAR RANGE CONDITION OP BODY ALIST) (IF (LISTP RANGE) (IF (EVAL$ (QUOTE *1*TRUE) CONDITION (CONS (CONS VAR (CAR RANGE)) ALIST)) (QUANTIFIER-OPERATION OP (EVAL$ (QUOTE *1*TRUE) BODY (CONS (CONS VAR (CAR RANGE)) ALIST)) (FOR VAR (CDR RANGE) CONDITION OP BODY ALIST)) (FOR VAR (CDR RANGE) CONDITION OP BODY ALIST)) (QUANTIFIER-INITIAL-VALUE OP))) LISP-CODE *1*FOR SUBRP *1*FALSE BODY (IF (NLISTP RANGE) (QUANTIFIER-INITIAL-VALUE OP) (IF (EVAL$ (QUOTE *1*TRUE) CONDITION (CONS (CONS VAR (CAR RANGE)) ALIST)) (QUANTIFIER-OPERATION OP (EVAL$ (QUOTE *1*TRUE) BODY (CONS (CONS VAR (CAR RANGE)) ALIST)) (FOR VAR (CDR RANGE) CONDITION OP BODY ALIST)) (FOR VAR (CDR RANGE) CONDITION OP BODY ALIST))) INDUCTION-MACHINE ((TESTS-AND-CASES ((NLISTP RANGE)) NIL) (TESTS-AND-CASES ((NOT (NLISTP RANGE)) (EVAL$ (QUOTE *1*TRUE) CONDITION (CONS (CONS VAR (CAR RANGE)) ALIST))) ((VAR (CDR RANGE) CONDITION OP BODY ALIST))) (TESTS-AND-CASES ((NOT (NLISTP RANGE)) (NOT (EVAL$ (QUOTE *1*TRUE) CONDITION (CONS (CONS VAR (CAR RANGE)) ALIST)))) ((VAR (CDR RANGE) CONDITION OP BODY ALIST)))) LEVEL-NO 5 JUSTIFICATIONS ((JUSTIFICATION (RANGE) (COUNT RANGE) LESSP (CDR-LESSP NLISTP ZERO CDR-LESSEQP))) CONTROLLER-POCKETS (2) MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*QUANTIFIER-OPERATION) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE QUANTIFIER-OPERATION) (QUOTE (TYPE-PRESCRIPTION-LST ((QUANTIFIER-OPERATION 23 NIL T T)) TOTALP-LST ((QUANTIFIER-OPERATION . T)) SDEFN (LAMBDA (FN ARG REST) (IF (EQUAL FN (QUOTE ADD-TO-SET)) (ADD-TO-SET ARG REST) (IF (EQUAL FN (QUOTE ALWAYS)) (IF ARG (IF REST (QUOTE *1*TRUE) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (IF (EQUAL FN (QUOTE APPEND)) (APPEND ARG REST) (IF (EQUAL FN (QUOTE COLLECT)) (CONS ARG REST) (IF (EQUAL FN (QUOTE COUNT)) (IF ARG (ADD1 REST) REST) (IF (EQUAL FN (QUOTE DO-RETURN)) ARG (IF (EQUAL FN (QUOTE EXISTS)) (IF ARG (QUOTE *1*TRUE) (IF REST (QUOTE *1*TRUE) (QUOTE *1*FALSE))) (IF (EQUAL FN (QUOTE MAX)) (MAX ARG REST) (IF (EQUAL FN (QUOTE SUM)) (PLUS ARG REST) (IF (EQUAL FN (QUOTE MULTIPLY)) (TIMES ARG REST) (IF (EQUAL FN (QUOTE UNION)) (UNION ARG REST) (QUOTE 0))))))))))))) LISP-CODE *1*QUANTIFIER-OPERATION SUBRP *1*TRUE LEVEL-NO 2 MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*UNION) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE UNION) (QUOTE (TYPE-PRESCRIPTION-LST ((UNION 16 NIL T)) TOTALP-LST ((UNION . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE UNCHANGING) SDEFN (LAMBDA (X Y) (IF (LISTP X) (IF (MEMBER (CAR X) Y) (UNION (CDR X) Y) (CONS (CAR X) (UNION (CDR X) Y))) Y)) LISP-CODE *1*UNION SUBRP *1*TRUE INDUCTION-MACHINE ((TESTS-AND-CASES ((LISTP X) (MEMBER (CAR X) Y)) (((CDR X) Y))) (TESTS-AND-CASES ((LISTP X) (NOT (MEMBER (CAR X) Y))) (((CDR X) Y))) (TESTS-AND-CASES ((NOT (LISTP X))) NIL)) LEVEL-NO 2 JUSTIFICATIONS ((JUSTIFICATION (X) (COUNT X) LESSP (ZERO CDR-LESSP))) CONTROLLER-POCKETS (1) MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE NUMBERP-MAX) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*MAX) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE MAX) (QUOTE (TYPE-PRESCRIPTION-LST ((NUMBERP-MAX 4 NIL NIL) (MAX 4 NIL T)) TOTALP-LST ((MAX . T)) SDEFN (LAMBDA (X Y) (IF (LESSP X Y) Y (IF (NUMBERP X) X (QUOTE 0)))) LISP-CODE *1*MAX SUBRP *1*TRUE LEVEL-NO 0 MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*APPEND) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE APPEND) (QUOTE (TYPE-PRESCRIPTION-LST ((APPEND 16 NIL T)) TOTALP-LST ((APPEND . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE UNCHANGING) SDEFN (LAMBDA (X Y) (IF (LISTP X) (CONS (CAR X) (APPEND (CDR X) Y)) Y)) LISP-CODE *1*APPEND SUBRP *1*TRUE INDUCTION-MACHINE ((TESTS-AND-CASES ((LISTP X)) (((CDR X) Y))) (TESTS-AND-CASES ((NOT (LISTP X))) NIL)) LEVEL-NO 1 JUSTIFICATIONS ((JUSTIFICATION (X) (COUNT X) LESSP (ZERO CDR-LESSP))) CONTROLLER-POCKETS (1) MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*ADD-TO-SET) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE ADD-TO-SET) (QUOTE (TYPE-PRESCRIPTION-LST ((ADD-TO-SET 16 NIL T)) TOTALP-LST ((ADD-TO-SET . T)) SDEFN (LAMBDA (X SET) (IF (MEMBER X SET) SET (CONS X SET))) LISP-CODE *1*ADD-TO-SET SUBRP *1*TRUE LEVEL-NO 1 MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*QUANTIFIER-INITIAL-VALUE) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE QUANTIFIER-INITIAL-VALUE) (QUOTE (TYPE-PRESCRIPTION-LST ((QUANTIFIER-INITIAL-VALUE -1 NIL)) TOTALP-LST ((QUANTIFIER-INITIAL-VALUE . T)) SDEFN (LAMBDA (FN) (CDR (ASSOC FN (QUOTE ((ADD-TO-SET) (ALWAYS . *1*TRUE) (APPEND) (COLLECT) (COUNT . 0) (DO-RETURN) (EXISTS . *1*FALSE) (MAX . 0) (SUM . 0) (MULTIPLY . 1) (UNION)))))) LISP-CODE *1*QUANTIFIER-INITIAL-VALUE SUBRP *1*TRUE LEVEL-NO 1 MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE NOT-SUBRP-APPLY-SUBR) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE SUBRP-BODY) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE SUBRP-FORMALS) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE NOT-LITATOM-BODY) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE NOT-LITATOM-FORMALS) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE NOT-LITATOM-SUBRP) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*EVAL$) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE EVAL$) (QUOTE (TYPE-PRESCRIPTION-LST ((EVAL$ -1 NIL T NIL)) LEMMAS ((REWRITE-RULE ADD-TREE-DELETE ((MEMBER X Y)) (EQUAL (EVAL$ (QUOTE *1*TRUE) (ADD-TREE N (DELETE X Y)) A) (SUB (EVAL$ (QUOTE *1*TRUE) N A) (EVAL$ (QUOTE *1*TRUE) X A) (EVAL$ (QUOTE *1*TRUE) (ADD-TREE N Y) A))) NIL) (REWRITE-RULE ADD-TREE-DELETE-EQUAL ((MEMBER X Y)) (EQUAL (EVAL$ (QUOTE *1*TRUE) (ADD-TREE-DELETE-COND N X Y) A) (EQUAL (EVAL$ (QUOTE *1*TRUE) (ADD-TREE N Y) A) (EVAL$ (QUOTE *1*TRUE) X A))) NIL) (REWRITE-RULE ADD-TREE-ADD-FRINGE NIL (EQUAL (EVAL$ (QUOTE *1*TRUE) (ADD-TREE N (ADD-FRINGE N X)) A) (HEAD (EVAL$ (QUOTE *1*TRUE) X A) (EVAL$ (QUOTE *1*TRUE) N A))) NIL) (REWRITE-RULE ADD-TREE-APPEND NIL (EQUAL (EVAL$ (QUOTE *1*TRUE) (ADD-TREE N (APPEND X Y)) A) (ADD (EVAL$ (QUOTE *1*TRUE) N A) (EVAL$ (QUOTE *1*TRUE) (ADD-TREE N X) A) (EVAL$ (QUOTE *1*TRUE) (ADD-TREE N Y) A))) NIL) (REWRITE-RULE EVAL$-ADD-MEMBER ((MEMBER E X)) (EQUAL (EVAL$ (QUOTE *1*TRUE) (ADD-TREE N X) A) (ADD (EVAL$ (QUOTE *1*TRUE) N A) (EVAL$ (QUOTE *1*TRUE) E A) (EVAL$ (QUOTE *1*TRUE) (ADD-TREE N (DELETE E X)) A))) NIL) (REWRITE-RULE AND-NOT-ZEROP-TREE-DELETE ((MEMBER W X)) (EQUAL (EVAL$ (QUOTE *1*TRUE) (AND-NOT-ZEROP-TREE (DELETE W X)) A) (IF (EQUAL (EVAL$ (QUOTE *1*TRUE) W A) (QUOTE 0)) (EVAL$-AND-NOT-ZEROP-TREE-END W X A) (IF (NUMBERP (EVAL$ (QUOTE *1*TRUE) W A)) (IF (LESSP (EVAL$ (QUOTE *1*TRUE) (TIMES-TREE X) A) (EVAL$ (QUOTE *1*TRUE) W A)) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (EVAL$-AND-NOT-ZEROP-TREE-END W X A)))) NIL) (REWRITE-RULE AND-NOT-ZEROP-TREE-LESSP NIL (EQUAL (EVAL$ (QUOTE *1*TRUE) (AND-NOT-ZEROP-TREE X) A) (IF (LESSP (EVAL$ (QUOTE *1*TRUE) (TIMES-TREE X) A) (QUOTE 1)) (QUOTE *1*FALSE) (QUOTE *1*TRUE))) NIL) (REWRITE-RULE TIMES-TREE-TIMES-FRINGE NIL (EQUAL (EVAL$ (QUOTE *1*TRUE) (TIMES-TREE (TIMES-FRINGE X)) A) (IF (NUMBERP (EVAL$ (QUOTE *1*TRUE) X A)) (EVAL$ (QUOTE *1*TRUE) X A) (QUOTE 0))) NIL) (REWRITE-RULE EVAL$-TIMES-TREE-APPEND NIL (EQUAL (EVAL$ (QUOTE *1*TRUE) (TIMES-TREE (APPEND X Y)) A) (TIMES (EVAL$ (QUOTE *1*TRUE) (TIMES-TREE X) A) (EVAL$ (QUOTE *1*TRUE) (TIMES-TREE Y) A))) NIL) (REWRITE-RULE ZEROP-MAKES-TIMES-TREE-ZERO ((NOT (EVAL$ (QUOTE *1*TRUE) (AND-NOT-ZEROP-TREE X) A)) (SUBBAGP X Y)) (EQUAL (EVAL$ (QUOTE *1*TRUE) (TIMES-TREE Y) A) (QUOTE 0)) NIL) (REWRITE-RULE EVAL$-TIMES-MEMBER ((MEMBER E X)) (EQUAL (EVAL$ (QUOTE *1*TRUE) (TIMES-TREE X) A) (TIMES (EVAL$ (QUOTE *1*TRUE) E A) (EVAL$ (QUOTE *1*TRUE) (TIMES-TREE (DELETE E X)) A))) NIL) (REWRITE-RULE EVAL$-QUOTE NIL (EQUAL (EVAL$ (QUOTE *1*TRUE) (CONS (QUOTE QUOTE) ARGS) A) (CAR ARGS)) NIL) (REWRITE-RULE PLUS-TREE-PLUS-FRINGE NIL (EQUAL (EVAL$ (QUOTE *1*TRUE) (PLUS-TREE (PLUS-FRINGE X)) A) (IF (NUMBERP (EVAL$ (QUOTE *1*TRUE) X A)) (EVAL$ (QUOTE *1*TRUE) X A) (QUOTE 0))) NIL) (REWRITE-RULE EVAL$-PLUS-TREE-APPEND NIL (EQUAL (EVAL$ (QUOTE *1*TRUE) (PLUS-TREE (APPEND X Y)) A) (PLUS (EVAL$ (QUOTE *1*TRUE) (PLUS-TREE X) A) (EVAL$ (QUOTE *1*TRUE) (PLUS-TREE Y) A))) NIL) (REWRITE-RULE PLUS-TREE-BAGDIFF ((SUBBAGP X Y)) (EQUAL (EVAL$ (QUOTE *1*TRUE) (PLUS-TREE (BAGDIFF Y X)) A) (DIFFERENCE (EVAL$ (QUOTE *1*TRUE) (PLUS-TREE Y) A) (EVAL$ (QUOTE *1*TRUE) (PLUS-TREE X) A))) NIL) (REWRITE-RULE PLUS-TREE-DELETE NIL (EQUAL (EVAL$ (QUOTE *1*TRUE) (PLUS-TREE (DELETE X Y)) A) (IF (MEMBER X Y) (DIFFERENCE (EVAL$ (QUOTE *1*TRUE) (PLUS-TREE Y) A) (EVAL$ (QUOTE *1*TRUE) X A)) (EVAL$ (QUOTE *1*TRUE) (PLUS-TREE Y) A))) NIL)) TOTALP-LST ((EVAL$)) LINEAR-LEMMAS ((LINEAR-LEMMA SUBBAGP-IMPLIES-PLUS-TREE-GEQ ((SUBBAGP X Y)) (NOT (LESSP (EVAL$ (QUOTE *1*TRUE) (PLUS-TREE Y) A) (EVAL$ (QUOTE *1*TRUE) (PLUS-TREE X) A))) (EVAL$ (QUOTE *1*TRUE) (PLUS-TREE X) A)) (LINEAR-LEMMA SUBBAGP-IMPLIES-PLUS-TREE-GEQ ((SUBBAGP X Y)) (NOT (LESSP (EVAL$ (QUOTE *1*TRUE) (PLUS-TREE Y) A) (EVAL$ (QUOTE *1*TRUE) (PLUS-TREE X) A))) (EVAL$ (QUOTE *1*TRUE) (PLUS-TREE Y) A)) (LINEAR-LEMMA MEMBER-IMPLIES-PLUS-TREE-GREATEREQP ((MEMBER X Y)) (NOT (LESSP (EVAL$ (QUOTE *1*TRUE) (PLUS-TREE Y) A) (EVAL$ (QUOTE *1*TRUE) X A))) (EVAL$ (QUOTE *1*TRUE) X A)) (LINEAR-LEMMA MEMBER-IMPLIES-PLUS-TREE-GREATEREQP ((MEMBER X Y)) (NOT (LESSP (EVAL$ (QUOTE *1*TRUE) (PLUS-TREE Y) A) (EVAL$ (QUOTE *1*TRUE) X A))) (EVAL$ (QUOTE *1*TRUE) (PLUS-TREE Y) A))) QUICK-BLOCK-INFO (QUESTIONABLE SELF-REFLEXIVE UNCHANGING) SDEFN (LAMBDA (FLG X A) (IF (EQUAL FLG (QUOTE LIST)) (IF (LISTP X) (CONS (EVAL$ (QUOTE *1*TRUE) (CAR X) A) (EVAL$ (QUOTE LIST) (CDR X) A)) (QUOTE NIL)) (IF (LITATOM X) (CDR (ASSOC X A)) (IF (LISTP X) (IF (EQUAL (CAR X) (QUOTE QUOTE)) (CAR (CDR X)) (APPLY$ (CAR X) (EVAL$ (QUOTE LIST) (CDR X) A))) X)))) LISP-CODE *1*EVAL$ SUBRP *1*FALSE BODY (IF (EQUAL FLG (QUOTE LIST)) (IF (NLISTP X) (QUOTE NIL) (CONS (EVAL$ (QUOTE *1*TRUE) (CAR X) A) (EVAL$ (QUOTE LIST) (CDR X) A))) (IF (LITATOM X) (CDR (ASSOC X A)) (IF (NLISTP X) X (IF (EQUAL (CAR X) (QUOTE QUOTE)) (CAR (CDR X)) (APPLY$ (CAR X) (EVAL$ (QUOTE LIST) (CDR X) A)))))) INDUCTION-MACHINE ((TESTS-AND-CASES ((EQUAL FLG (QUOTE LIST)) (NLISTP X)) NIL) (TESTS-AND-CASES ((EQUAL FLG (QUOTE LIST)) (NOT (NLISTP X))) (((QUOTE LIST) (CDR X) A) ((QUOTE *1*TRUE) (CAR X) A))) (TESTS-AND-CASES ((NOT (EQUAL FLG (QUOTE LIST))) (LITATOM X)) NIL) (TESTS-AND-CASES ((NOT (EQUAL FLG (QUOTE LIST))) (NOT (LITATOM X)) (NLISTP X)) NIL) (TESTS-AND-CASES ((NOT (EQUAL FLG (QUOTE LIST))) (NOT (LITATOM X)) (NOT (NLISTP X)) (EQUAL (CAR X) (QUOTE QUOTE))) NIL) (TESTS-AND-CASES ((NOT (EQUAL FLG (QUOTE LIST))) (NOT (LITATOM X)) (NOT (NLISTP X)) (NOT (EQUAL (CAR X) (QUOTE QUOTE)))) (((QUOTE LIST) (CDR X) A)))) LEVEL-NO 4 JUSTIFICATIONS ((JUSTIFICATION (X) (COUNT X) LESSP (CAR-LESSP CAR-LESSEQP CDR-LESSP NLISTP ZERO CDR-LESSEQP))) CONTROLLER-POCKETS (2) MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*APPLY$) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE APPLY$) (QUOTE (TYPE-PRESCRIPTION-LST ((APPLY$ -1 NIL NIL)) TOTALP-LST ((APPLY$)) SDEFN (LAMBDA (FN ARGS) (CAR (V&C-APPLY$ FN (PAIRLIST ARGS (QUOTE 0))))) LISP-CODE *1*APPLY$ SUBRP *1*FALSE BODY (CAR (V&C-APPLY$ FN (PAIRLIST ARGS (QUOTE 0)))) LEVEL-NO 3 MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*V&C-APPLY$) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE V&C-APPLY$) (QUOTE (TYPE-PRESCRIPTION-LST ((V&C-APPLY$ 17 NIL NIL)) TOTALP-LST ((V&C-APPLY$)) SDEFN (LAMBDA (FN ARGS) (IF (EQUAL FN (QUOTE IF)) (IF (CAR ARGS) (IF (CAR (CAR ARGS)) (FIX-COST (CAR (CDR ARGS)) (ADD1 (CDR (CAR ARGS)))) (FIX-COST (CAR (CDR (CDR ARGS))) (ADD1 (CDR (CAR ARGS))))) (QUOTE *1*FALSE)) (IF (MEMBER (QUOTE *1*FALSE) ARGS) (QUOTE *1*FALSE) (IF (SUBRP FN) (CONS (APPLY-SUBR FN (STRIP-CARS ARGS)) (ADD1 (SUM-CDRS ARGS))) (FIX-COST (V&C$ (QUOTE *1*TRUE) (BODY FN) (PAIRLIST (FORMALS FN) (STRIP-CARS ARGS))) (ADD1 (SUM-CDRS ARGS))))))) LISP-CODE *1*V&C-APPLY$ SUBRP *1*FALSE BODY (IF (EQUAL FN (QUOTE IF)) (IF (CAR ARGS) (FIX-COST (IF (CAR (CAR ARGS)) (CAR (CDR ARGS)) (CAR (CDR (CDR ARGS)))) (ADD1 (CDR (CAR ARGS)))) (QUOTE *1*FALSE)) (IF (MEMBER (QUOTE *1*FALSE) ARGS) (QUOTE *1*FALSE) (IF (SUBRP FN) (CONS (APPLY-SUBR FN (STRIP-CARS ARGS)) (ADD1 (SUM-CDRS ARGS))) (FIX-COST (V&C$ (QUOTE *1*TRUE) (BODY FN) (PAIRLIST (FORMALS FN) (STRIP-CARS ARGS))) (ADD1 (SUM-CDRS ARGS)))))) LEVEL-NO 3 MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*V&C$) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE V&C$) (QUOTE (TYPE-PRESCRIPTION-LST ((V&C$ 25 NIL NIL NIL)) TOTALP-LST ((V&C$)) QUICK-BLOCK-INFO (QUESTIONABLE SELF-REFLEXIVE QUESTIONABLE) SDEFN (LAMBDA (FLG X VA) (IF (EQUAL FLG (QUOTE LIST)) (IF (NLISTP X) (QUOTE NIL) (CONS (V&C$ (QUOTE *1*TRUE) (CAR X) VA) (V&C$ (QUOTE LIST) (CDR X) VA))) (IF (LITATOM X) (CONS (CDR (ASSOC X VA)) (QUOTE 0)) (IF (NLISTP X) (CONS X (QUOTE 0)) (IF (EQUAL (CAR X) (QUOTE QUOTE)) (CONS (CAR (CDR X)) (QUOTE 0)) (V&C-APPLY$ (CAR X) (V&C$ (QUOTE LIST) (CDR X) VA))))))) LISP-CODE *1*V&C$ SUBRP *1*FALSE BODY (IF (EQUAL FLG (QUOTE LIST)) (IF (NLISTP X) (QUOTE NIL) (CONS (V&C$ (QUOTE *1*TRUE) (CAR X) VA) (V&C$ (QUOTE LIST) (CDR X) VA))) (IF (LITATOM X) (CONS (CDR (ASSOC X VA)) (QUOTE 0)) (IF (NLISTP X) (CONS X (QUOTE 0)) (IF (EQUAL (CAR X) (QUOTE QUOTE)) (CONS (CAR (CDR X)) (QUOTE 0)) (IF (EQUAL (CAR X) (QUOTE IF)) (IF (V&C$ (QUOTE *1*TRUE) (CAR (CDR X)) VA) (FIX-COST (IF (CAR (V&C$ (QUOTE *1*TRUE) (CAR (CDR X)) VA)) (V&C$ (QUOTE *1*TRUE) (CAR (CDR (CDR X))) VA) (V&C$ (QUOTE *1*TRUE) (CAR (CDR (CDR (CDR X)))) VA)) (ADD1 (CDR (V&C$ (QUOTE *1*TRUE) (CAR (CDR X)) VA)))) (QUOTE *1*FALSE)) (IF (MEMBER (QUOTE *1*FALSE) (V&C$ (QUOTE LIST) (CDR X) VA)) (QUOTE *1*FALSE) (IF (SUBRP (CAR X)) (CONS (APPLY-SUBR (CAR X) (STRIP-CARS (V&C$ (QUOTE LIST) (CDR X) VA))) (ADD1 (SUM-CDRS (V&C$ (QUOTE LIST) (CDR X) VA)))) (FIX-COST (V&C$ (QUOTE *1*TRUE) (BODY (CAR X)) (PAIRLIST (FORMALS (CAR X)) (STRIP-CARS (V&C$ (QUOTE LIST) (CDR X) VA)))) (ADD1 (SUM-CDRS (V&C$ (QUOTE LIST) (CDR X) VA))))))))))) INDUCTION-MACHINE ((TESTS-AND-CASES ((EQUAL FLG (QUOTE LIST)) (NLISTP X)) NIL) (TESTS-AND-CASES ((EQUAL FLG (QUOTE LIST)) (NOT (NLISTP X))) (((QUOTE LIST) (CDR X) VA) ((QUOTE *1*TRUE) (CAR X) VA))) (TESTS-AND-CASES ((NOT (EQUAL FLG (QUOTE LIST))) (LITATOM X)) NIL) (TESTS-AND-CASES ((NOT (EQUAL FLG (QUOTE LIST))) (NOT (LITATOM X)) (NLISTP X)) NIL) (TESTS-AND-CASES ((NOT (EQUAL FLG (QUOTE LIST))) (NOT (LITATOM X)) (NOT (NLISTP X)) (EQUAL (CAR X) (QUOTE QUOTE))) NIL) (TESTS-AND-CASES ((NOT (EQUAL FLG (QUOTE LIST))) (NOT (LITATOM X)) (NOT (NLISTP X)) (NOT (EQUAL (CAR X) (QUOTE QUOTE))) (EQUAL (CAR X) (QUOTE IF)) (V&C$ (QUOTE *1*TRUE) (CAR (CDR X)) VA)) (((QUOTE *1*TRUE) (CAR (CDR (CDR (CDR X)))) VA) ((QUOTE *1*TRUE) (CAR (CDR (CDR X))) VA) ((QUOTE *1*TRUE) (CAR (CDR X)) VA))) (TESTS-AND-CASES ((NOT (EQUAL FLG (QUOTE LIST))) (NOT (LITATOM X)) (NOT (NLISTP X)) (NOT (EQUAL (CAR X) (QUOTE QUOTE))) (EQUAL (CAR X) (QUOTE IF)) (NOT (V&C$ (QUOTE *1*TRUE) (CAR (CDR X)) VA))) (((QUOTE *1*TRUE) (CAR (CDR X)) VA))) (TESTS-AND-CASES ((NOT (EQUAL FLG (QUOTE LIST))) (NOT (LITATOM X)) (NOT (NLISTP X)) (NOT (EQUAL (CAR X) (QUOTE QUOTE))) (NOT (EQUAL (CAR X) (QUOTE IF))) (MEMBER (QUOTE *1*FALSE) (V&C$ (QUOTE LIST) (CDR X) VA))) (((QUOTE LIST) (CDR X) VA))) (TESTS-AND-CASES ((NOT (EQUAL FLG (QUOTE LIST))) (NOT (LITATOM X)) (NOT (NLISTP X)) (NOT (EQUAL (CAR X) (QUOTE QUOTE))) (NOT (EQUAL (CAR X) (QUOTE IF))) (NOT (MEMBER (QUOTE *1*FALSE) (V&C$ (QUOTE LIST) (CDR X) VA))) (SUBRP (CAR X))) (((QUOTE LIST) (CDR X) VA))) (TESTS-AND-CASES ((NOT (EQUAL FLG (QUOTE LIST))) (NOT (LITATOM X)) (NOT (NLISTP X)) (NOT (EQUAL (CAR X) (QUOTE QUOTE))) (NOT (EQUAL (CAR X) (QUOTE IF))) (NOT (MEMBER (QUOTE *1*FALSE) (V&C$ (QUOTE LIST) (CDR X) VA))) (NOT (SUBRP (CAR X)))) (((QUOTE *1*TRUE) (BODY (CAR X)) (PAIRLIST (FORMALS (CAR X)) (STRIP-CARS (V&C$ (QUOTE LIST) (CDR X) VA)))) ((QUOTE LIST) (CDR X) VA)))) LEVEL-NO 3 CONTROLLER-POCKETS (2) MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*SUM-CDRS) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE SUM-CDRS) (QUOTE (TYPE-PRESCRIPTION-LST ((SUM-CDRS 4 NIL)) TOTALP-LST ((SUM-CDRS . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE) SDEFN (LAMBDA (L) (IF (LISTP L) (PLUS (CDR (CAR L)) (SUM-CDRS (CDR L))) (QUOTE 0))) LISP-CODE *1*SUM-CDRS SUBRP *1*TRUE INDUCTION-MACHINE ((TESTS-AND-CASES ((NLISTP L)) NIL) (TESTS-AND-CASES ((NOT (NLISTP L))) (((CDR L))))) LEVEL-NO 2 JUSTIFICATIONS ((JUSTIFICATION (L) (COUNT L) LESSP (CDR-LESSP NLISTP ZERO CDR-LESSEQP))) CONTROLLER-POCKETS (1) MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*STRIP-CARS) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE STRIP-CARS) (QUOTE (TYPE-PRESCRIPTION-LST ((STRIP-CARS 24 NIL)) TOTALP-LST ((STRIP-CARS . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE) SDEFN (LAMBDA (L) (IF (LISTP L) (CONS (CAR (CAR L)) (STRIP-CARS (CDR L))) (QUOTE NIL))) LISP-CODE *1*STRIP-CARS SUBRP *1*TRUE INDUCTION-MACHINE ((TESTS-AND-CASES ((NLISTP L)) NIL) (TESTS-AND-CASES ((NOT (NLISTP L))) (((CDR L))))) LEVEL-NO 1 JUSTIFICATIONS ((JUSTIFICATION (L) (COUNT L) LESSP (CDR-LESSP NLISTP ZERO CDR-LESSEQP))) CONTROLLER-POCKETS (1) MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*FIX-COST) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE FIX-COST) (QUOTE (TYPE-PRESCRIPTION-LST ((FIX-COST 17 NIL NIL)) TOTALP-LST ((FIX-COST . T)) SDEFN (LAMBDA (X N) (IF X (CONS (CAR X) (PLUS N (CDR X))) (QUOTE *1*FALSE))) LISP-CODE *1*FIX-COST SUBRP *1*TRUE LEVEL-NO 1 MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*BODY) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE BODY) (QUOTE (TYPE-PRESCRIPTION-LST ((BODY -1 NIL)) LEMMAS ((REWRITE-RULE SUBRP-BODY ((SUBRP FN)) (EQUAL (BODY FN) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE NOT-LITATOM-BODY ((NOT (LITATOM FN))) (EQUAL (BODY FN) (QUOTE *1*FALSE)) NIL)) TOTALP-LST ((BODY . T)) LISP-CODE *1*BODY SUBRP *1*TRUE LEVEL-NO 0 MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*FORMALS) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE FORMALS) (QUOTE (TYPE-PRESCRIPTION-LST ((FORMALS -1 NIL)) LEMMAS ((REWRITE-RULE SUBRP-FORMALS ((SUBRP FN)) (EQUAL (FORMALS FN) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE NOT-LITATOM-FORMALS ((NOT (LITATOM FN))) (EQUAL (FORMALS FN) (QUOTE *1*FALSE)) NIL)) TOTALP-LST ((FORMALS . T)) LISP-CODE *1*FORMALS SUBRP *1*TRUE LEVEL-NO 0 MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*APPLY-SUBR) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE APPLY-SUBR) (QUOTE (TYPE-PRESCRIPTION-LST ((APPLY-SUBR -1 NIL NIL)) LEMMAS ((REWRITE-RULE NOT-SUBRP-APPLY-SUBR ((NOT (SUBRP FN))) (EQUAL (APPLY-SUBR FN X) (QUOTE *1*FALSE)) NIL)) TOTALP-LST ((APPLY-SUBR . T)) LISP-CODE *1*APPLY-SUBR SUBRP *1*TRUE LEVEL-NO 0 MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE SUBRP-BOOLEAN) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*SUBRP) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE SUBRP) (QUOTE (TYPE-PRESCRIPTION-LST ((SUBRP-BOOLEAN 3 NIL) (SUBRP -1 NIL)) LEMMAS ((REWRITE-RULE NOT-LITATOM-SUBRP ((NOT (LITATOM FN))) (EQUAL (SUBRP FN) (QUOTE *1*FALSE)) NIL)) TOTALP-LST ((SUBRP . T)) LISP-CODE *1*SUBRP SUBRP *1*TRUE LEVEL-NO 0 MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*PAIRLIST) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE PAIRLIST) (QUOTE (TYPE-PRESCRIPTION-LST ((PAIRLIST 24 NIL NIL)) TOTALP-LST ((PAIRLIST . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE) SDEFN (LAMBDA (X Y) (IF (LISTP X) (CONS (CONS (CAR X) (CAR Y)) (PAIRLIST (CDR X) (CDR Y))) (QUOTE NIL))) LISP-CODE *1*PAIRLIST SUBRP *1*TRUE INDUCTION-MACHINE ((TESTS-AND-CASES ((LISTP X)) (((CDR X) (CDR Y)))) (TESTS-AND-CASES ((NOT (LISTP X))) NIL)) LEVEL-NO 1 JUSTIFICATIONS ((JUSTIFICATION (X) (COUNT X) LESSP (ZERO CDR-LESSP))) CONTROLLER-POCKETS (1) MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*ASSOC) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE ASSOC) (QUOTE (TYPE-PRESCRIPTION-LST ((ASSOC -1 NIL NIL)) TOTALP-LST ((ASSOC . T)) QUICK-BLOCK-INFO (UNCHANGING SELF-REFLEXIVE) SDEFN (LAMBDA (X L) (IF (LISTP L) (IF (EQUAL X (CAR (CAR L))) (CAR L) (ASSOC X (CDR L))) (QUOTE *1*FALSE))) LISP-CODE *1*ASSOC SUBRP *1*TRUE INDUCTION-MACHINE ((TESTS-AND-CASES ((NLISTP L)) NIL) (TESTS-AND-CASES ((NOT (NLISTP L)) (EQUAL X (CAR (CAR L)))) NIL) (TESTS-AND-CASES ((NOT (NLISTP L)) (NOT (EQUAL X (CAR (CAR L))))) ((X (CDR L))))) LEVEL-NO 1 JUSTIFICATIONS ((JUSTIFICATION (L) (COUNT L) LESSP (CDR-LESSP NLISTP ZERO CDR-LESSEQP))) CONTROLLER-POCKETS (2) MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*ORDINALP) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE ORDINALP) (QUOTE (TYPE-PRESCRIPTION-LST ((ORDINALP 3 NIL)) TOTALP-LST ((ORDINALP . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE) SDEFN (LAMBDA (X) (IF (LISTP X) (IF (ORDINALP (CAR X)) (IF (EQUAL (CAR X) (QUOTE 0)) (QUOTE *1*FALSE) (IF (ORDINALP (CDR X)) (IF (LISTP (CDR X)) (IF (ORD-LESSP (CAR X) (CAR (CDR X))) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (QUOTE *1*TRUE)) (QUOTE *1*FALSE))) (QUOTE *1*FALSE)) (NUMBERP X))) LISP-CODE *1*ORDINALP SUBRP *1*TRUE INDUCTION-MACHINE ((TESTS-AND-CASES ((LISTP X)) (((CDR X)) ((CAR X)))) (TESTS-AND-CASES ((NOT (LISTP X))) NIL)) LEVEL-NO 2 JUSTIFICATIONS ((JUSTIFICATION (X) (COUNT X) LESSP (CAR-LESSP ZERO CDR-LESSP))) CONTROLLER-POCKETS (1) MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*ORD-LESSP) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE ORD-LESSP) (QUOTE (TYPE-PRESCRIPTION-LST ((ORD-LESSP 3 NIL NIL)) TOTALP-LST ((ORD-LESSP . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE) SDEFN (LAMBDA (X Y) (IF (LISTP X) (IF (LISTP Y) (IF (ORD-LESSP (CAR X) (CAR Y)) (QUOTE *1*TRUE) (IF (EQUAL (CAR X) (CAR Y)) (IF (ORD-LESSP (CDR X) (CDR Y)) (QUOTE *1*TRUE) (QUOTE *1*FALSE)) (QUOTE *1*FALSE))) (QUOTE *1*FALSE)) (IF (LISTP Y) (QUOTE *1*TRUE) (LESSP X Y)))) LISP-CODE *1*ORD-LESSP SUBRP *1*TRUE INDUCTION-MACHINE ((TESTS-AND-CASES ((NOT (LISTP X)) (NOT (LISTP Y))) NIL) (TESTS-AND-CASES ((NOT (LISTP X)) (LISTP Y)) NIL) (TESTS-AND-CASES ((LISTP X) (NOT (LISTP Y))) NIL) (TESTS-AND-CASES ((LISTP X) (LISTP Y) (ORD-LESSP (CAR X) (CAR Y))) (((CAR X) (CAR Y)))) (TESTS-AND-CASES ((LISTP X) (LISTP Y) (NOT (ORD-LESSP (CAR X) (CAR Y)))) (((CAR X) (CAR Y)) ((CDR X) (CDR Y))))) LEVEL-NO 1 JUSTIFICATIONS ((JUSTIFICATION (X) (COUNT X) LESSP (CDR-LESSP ZERO CAR-LESSP)) (JUSTIFICATION (Y) (COUNT Y) LESSP (CDR-LESSP ZERO CAR-LESSP))) CONTROLLER-POCKETS (1 2) MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*IFF) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE IFF) (QUOTE (TYPE-PRESCRIPTION-LST ((IFF 3 NIL NIL)) TOTALP-LST ((IFF . T)) SDEFN (LAMBDA (P Q) (IF P (IF Q (QUOTE *1*TRUE) (QUOTE *1*FALSE)) (IF Q (QUOTE *1*FALSE) (QUOTE *1*TRUE)))) LISP-CODE *1*IFF SUBRP *1*TRUE LEVEL-NO 0 MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*MEMBER) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE MEMBER) (QUOTE (TYPE-PRESCRIPTION-LST ((MEMBER 3 NIL NIL)) LEMMAS ((REWRITE-RULE MEMBER-DELETE ((MEMBER X (DELETE U V))) (MEMBER X V) NIL)) TOTALP-LST ((MEMBER . T)) QUICK-BLOCK-INFO (UNCHANGING SELF-REFLEXIVE) SDEFN (LAMBDA (X LST) (IF (LISTP LST) (IF (EQUAL X (CAR LST)) (QUOTE *1*TRUE) (MEMBER X (CDR LST))) (QUOTE *1*FALSE))) LISP-CODE *1*MEMBER SUBRP *1*TRUE INDUCTION-MACHINE ((TESTS-AND-CASES ((NLISTP LST)) NIL) (TESTS-AND-CASES ((NOT (NLISTP LST)) (EQUAL X (CAR LST))) NIL) (TESTS-AND-CASES ((NOT (NLISTP LST)) (NOT (EQUAL X (CAR LST)))) ((X (CDR LST))))) LEVEL-NO 1 JUSTIFICATIONS ((JUSTIFICATION (LST) (COUNT LST) LESSP (CDR-LESSP NLISTP ZERO CDR-LESSEQP))) CONTROLLER-POCKETS (2) MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*REMAINDER) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE REMAINDER) (QUOTE (TYPE-PRESCRIPTION-LST ((REMAINDER 4 NIL NIL)) LEMMAS ((REWRITE-RULE GCD-IS-CD NIL (EQUAL (REMAINDER B (GCD A B)) (QUOTE 0)) NIL) (REWRITE-RULE GCD-IS-CD NIL (EQUAL (REMAINDER A (GCD A B)) (QUOTE 0)) NIL) (REWRITE-RULE REMAINDER-REMAINDER ((EQUAL (REMAINDER B C) (QUOTE 0))) (EQUAL (REMAINDER (REMAINDER A B) C) (REMAINDER A C)) NIL) (REWRITE-RULE REMAINDER-PLUS-TIMES-EXP2-2 ((LESSP X (EXP (QUOTE 2) I)) (NOT (LESSP J I))) (EQUAL (REMAINDER (PLUS X (TIMES Y (EXP (QUOTE 2) I))) (EXP (QUOTE 2) J)) (IF (LESSP I J) (PLUS X (TIMES (REMAINDER Y (EXP (QUOTE 2) (DIFFERENCE J I))) (EXP (QUOTE 2) I))) (IF (NUMBERP X) X (QUOTE 0)))) NIL) (REWRITE-RULE REMAINDER2-PLUS-TIMES-EXP2 ((NUMBERP I) (NOT (EQUAL I (QUOTE 0)))) (EQUAL (REMAINDER (PLUS X (TIMES Y (EXP (QUOTE 2) I))) (QUOTE 2)) (REMAINDER X (QUOTE 2))) NIL) (REWRITE-RULE REMAINDER-PLUS-TIMES-EXP2-1 ((NOT (LESSP I J))) (EQUAL (REMAINDER (PLUS X (TIMES Y (EXP (QUOTE 2) I))) (EXP (QUOTE 2) J)) (REMAINDER X (EXP (QUOTE 2) J))) NIL) (REWRITE-RULE REMAINDER-DIFF ((EQUAL (REMAINDER X Z) (QUOTE 0))) (EQUAL (REMAINDER (DIFFERENCE X Y) Z) (IF (LESSP Y X) (IF (EQUAL (REMAINDER Y Z) (QUOTE 0)) (QUOTE 0) (DIFFERENCE Z (REMAINDER Y Z))) (QUOTE 0))) NIL) (REWRITE-RULE REMAINDER-REMAINDER-2 NIL (EQUAL (REMAINDER (REMAINDER X (EXP (QUOTE 2) I)) (QUOTE 2)) (IF (EQUAL I (QUOTE 0)) (QUOTE 0) (IF (NUMBERP I) (REMAINDER X (QUOTE 2)) (QUOTE 0)))) NIL) (REWRITE-RULE REMAINDER-REMAINDER-EXP2 NIL (EQUAL (REMAINDER (REMAINDER X (EXP (QUOTE 2) I)) (EXP (QUOTE 2) J)) (IF (LESSP I J) (REMAINDER X (EXP (QUOTE 2) I)) (REMAINDER X (EXP (QUOTE 2) J)))) NIL) (REWRITE-RULE REMAINDER-TIMES-EXP2-4 NIL (EQUAL (REMAINDER (TIMES X (TIMES Y (EXP (QUOTE 2) I))) (QUOTE 2)) (IF (EQUAL I (QUOTE 0)) (REMAINDER (TIMES X Y) (QUOTE 2)) (IF (NUMBERP I) (QUOTE 0) (REMAINDER (TIMES X Y) (QUOTE 2))))) NIL) (REWRITE-RULE REMAINDER-TIMES-EXP2-4 NIL (EQUAL (REMAINDER (TIMES X (TIMES (EXP (QUOTE 2) I) Y)) (QUOTE 2)) (IF (EQUAL I (QUOTE 0)) (REMAINDER (TIMES X Y) (QUOTE 2)) (IF (NUMBERP I) (QUOTE 0) (REMAINDER (TIMES X Y) (QUOTE 2))))) NIL) (REWRITE-RULE REMAINDER-TIMES-EXP2-3 NIL (EQUAL (REMAINDER (TIMES (EXP (QUOTE 2) I) X) (QUOTE 2)) (IF (EQUAL I (QUOTE 0)) (REMAINDER X (QUOTE 2)) (IF (NUMBERP I) (QUOTE 0) (REMAINDER X (QUOTE 2))))) NIL) (REWRITE-RULE REMAINDER-TIMES-EXP2-3 NIL (EQUAL (REMAINDER (TIMES X (EXP (QUOTE 2) I)) (QUOTE 2)) (IF (EQUAL I (QUOTE 0)) (REMAINDER X (QUOTE 2)) (IF (NUMBERP I) (QUOTE 0) (REMAINDER X (QUOTE 2))))) NIL) (REWRITE-RULE REMAINDER-TIMES-EXP2-2 NIL (EQUAL (REMAINDER (TIMES (EXP (QUOTE 2) I) X) (EXP (QUOTE 2) J)) (TIMES (REMAINDER X (EXP (QUOTE 2) (DIFFERENCE J I))) (EXP (QUOTE 2) I))) NIL) (REWRITE-RULE REMAINDER-TIMES-EXP2-1 NIL (EQUAL (REMAINDER (TIMES X (EXP (QUOTE 2) I)) (EXP (QUOTE 2) J)) (TIMES (REMAINDER X (EXP (QUOTE 2) (DIFFERENCE J I))) (EXP (QUOTE 2) I))) NIL) (REWRITE-RULE REMAINDER-EXP ((LESSP (QUOTE 1) I)) (EQUAL (REMAINDER (EXP I J) (EXP I K)) (IF (LESSP J K) (EXP I J) (QUOTE 0))) NIL) (REWRITE-RULE REMAINDER-DISTRIBUTES-TIMES2-ADD1 NIL (EQUAL (REMAINDER (ADD1 (TIMES (QUOTE 2) Y)) (TIMES (QUOTE 2) Z)) (ADD1 (TIMES (QUOTE 2) (REMAINDER Y Z)))) NIL) (REWRITE-RULE TIMES-DISTRIBUTES-REMAINDER NIL (EQUAL (REMAINDER (TIMES X Y) (TIMES X Z)) (TIMES X (REMAINDER Y Z))) NIL) (REWRITE-RULE REMAINDER-CROCK ((LESSP Y Z)) (EQUAL (REMAINDER (TIMES Y X) (TIMES X Z)) (TIMES Y X)) NIL) (REWRITE-RULE REMAINDER-PLUS-REMAINDER NIL (EQUAL (REMAINDER (PLUS (REMAINDER X Z) (REMAINDER Y Z)) Z) (REMAINDER (PLUS X Y) Z)) NIL) (REWRITE-RULE REMAINDER-PLUS-REMAINDER2 NIL (EQUAL (REMAINDER (PLUS X (PLUS Y (REMAINDER Z K))) K) (REMAINDER (PLUS X (PLUS Y Z)) K)) NIL) (REWRITE-RULE REMAINDER-DIFFERENCE-REMAINDER1 ((NOT (LESSP X Y))) (EQUAL (REMAINDER (DIFFERENCE X (REMAINDER Y Z)) Z) (REMAINDER (DIFFERENCE X Y) Z)) NIL) (REWRITE-RULE REMAINDER-PLUS-REMAINDER1 NIL (EQUAL (REMAINDER (PLUS X (REMAINDER Y Z)) Z) (REMAINDER (PLUS X Y) Z)) NIL) (REWRITE-RULE REMAINDER-ADD1 NIL (EQUAL (REMAINDER (ADD1 M) N) (IF (EQUAL N (QUOTE 0)) (ADD1 M) (IF (NUMBERP N) (IF (EQUAL (REMAINDER M N) (SUB1 N)) (QUOTE 0) (ADD1 (REMAINDER M N))) (ADD1 M)))) NIL) (REWRITE-RULE REMAINDER-SUB1 NIL (EQUAL (REMAINDER (SUB1 M) N) (IF (EQUAL N (QUOTE 0)) (SUB1 M) (IF (NUMBERP N) (IF (EQUAL (REMAINDER M N) (QUOTE 0)) (IF (EQUAL M (QUOTE 0)) (QUOTE 0) (IF (NUMBERP M) (SUB1 N) (QUOTE 0))) (SUB1 (REMAINDER M N))) (SUB1 M)))) NIL) (REWRITE-RULE REMAINDER-DIFFERENCE-TIMES2 NIL (EQUAL (REMAINDER (DIFFERENCE X (TIMES Y Z)) Y) (IF (LESSP X (TIMES Y Z)) (QUOTE 0) (REMAINDER X Y))) NIL) (REWRITE-RULE REMAINDER-DIFFERENCE-TIMES1 NIL (EQUAL (REMAINDER (DIFFERENCE X (TIMES Y Z)) Z) (IF (LESSP X (TIMES Y Z)) (QUOTE 0) (REMAINDER X Z))) NIL) (REWRITE-RULE REMAINDER-DIFFERENCE ((EQUAL (REMAINDER Y Z) (QUOTE 0))) (EQUAL (REMAINDER (DIFFERENCE X Y) Z) (IF (LESSP X Y) (QUOTE 0) (REMAINDER X Z))) NIL) (REWRITE-RULE REMAINDER-PLUS-PLUS-TIMES2 NIL (EQUAL (REMAINDER (PLUS X (PLUS W (TIMES Z Y))) Y) (REMAINDER (PLUS X W) Y)) NIL) (REWRITE-RULE REMAINDER-PLUS-PLUS-TIMES1 NIL (EQUAL (REMAINDER (PLUS X (PLUS W (TIMES Y Z))) Y) (REMAINDER (PLUS X W) Y)) NIL) (REWRITE-RULE REMAINDER-PLUS-DIFFERENCE2 ((NOT (LESSP Y Z)) (EQUAL (REMAINDER X W) (QUOTE 0))) (EQUAL (REMAINDER (DIFFERENCE (PLUS X Y) Z) W) (REMAINDER (DIFFERENCE Y Z) W)) NIL) (REWRITE-RULE REMAINDER-PLUS-DIFFERENCE1 ((NOT (LESSP X Z)) (EQUAL (REMAINDER Y W) (QUOTE 0))) (EQUAL (REMAINDER (DIFFERENCE (PLUS X Y) Z) W) (REMAINDER (DIFFERENCE X Z) W)) NIL) (REWRITE-RULE REMAINDER-PLUS-ADD1 ((EQUAL (REMAINDER I J) (QUOTE 0))) (EQUAL (REMAINDER (ADD1 (PLUS X I)) J) (REMAINDER (ADD1 X) J)) NIL) (REWRITE-RULE REMAINDER-PLUS-PLUS ((EQUAL (REMAINDER I J) (QUOTE 0))) (EQUAL (REMAINDER (PLUS X (PLUS Y I)) J) (REMAINDER (PLUS X Y) J)) NIL) (REWRITE-RULE REMAINDER-PLUS-TIMES2 NIL (EQUAL (REMAINDER (PLUS X (TIMES Z Y)) Y) (REMAINDER X Y)) NIL) (REWRITE-RULE REMAINDER-PLUS-TIMES1 NIL (EQUAL (REMAINDER (PLUS X (TIMES Y Z)) Y) (REMAINDER X Y)) NIL) (REWRITE-RULE REMAINDER-TIMES NIL (EQUAL (REMAINDER (TIMES Y X) Y) (QUOTE 0)) NIL) (REWRITE-RULE REMAINDER-TIMES NIL (EQUAL (REMAINDER (TIMES X Y) Y) (QUOTE 0)) NIL) (REWRITE-RULE REMAINDER-PLUS2 ((EQUAL (REMAINDER I J) (QUOTE 0))) (EQUAL (REMAINDER (PLUS I X) J) (REMAINDER X J)) NIL) (REWRITE-RULE REMAINDER-PLUS1 ((EQUAL (REMAINDER I J) (QUOTE 0))) (EQUAL (REMAINDER (PLUS X I) J) (REMAINDER X J)) NIL) (REWRITE-RULE REMAINDER-2X-ADD1 NIL (EQUAL (REMAINDER (PLUS X (ADD1 X)) (QUOTE 2)) (QUOTE 1)) NIL) (REWRITE-RULE REMAINDER-2X NIL (EQUAL (REMAINDER (PLUS X X) (QUOTE 2)) (QUOTE 0)) NIL) (REWRITE-RULE REMAINDER-X-X NIL (EQUAL (REMAINDER X X) (QUOTE 0)) NIL) (REWRITE-RULE REMAINDER-1 NIL (EQUAL (REMAINDER X (QUOTE 1)) (QUOTE 0)) NIL) (REWRITE-RULE REMAINDER-1 NIL (EQUAL (REMAINDER (QUOTE 1) X) (IF (EQUAL X (QUOTE 1)) (QUOTE 0) (QUOTE 1))) NIL) (REWRITE-RULE REMAINDER-0 NIL (EQUAL (REMAINDER X (QUOTE 0)) (IF (NUMBERP X) X (QUOTE 0))) NIL) (REWRITE-RULE REMAINDER-0 NIL (EQUAL (REMAINDER (QUOTE 0) X) (QUOTE 0)) NIL) (REWRITE-RULE REMAINDER-EXIT ((LESSP I J)) (EQUAL (REMAINDER I J) (IF (NUMBERP I) I (QUOTE 0))) NIL)) TOTALP-LST ((REMAINDER . T)) LINEAR-LEMMAS ((LINEAR-LEMMA REMAINDER-SHRINK-HALF ((NOT (LESSP A B)) (NUMBERP B) (NOT (EQUAL B (QUOTE 0)))) (NOT (LESSP (QUOTIENT A (QUOTE 2)) (REMAINDER A B))) (REMAINDER A B)) (LINEAR-LEMMA REMAINDER-LEQ NIL (NOT (LESSP X (REMAINDER X Y))) (REMAINDER X Y)) (LINEAR-LEMMA REMAINDER-WRT-2 NIL (LESSP (REMAINDER N (QUOTE 2)) (QUOTE 2)) (REMAINDER N (QUOTE 2))) (LINEAR-LEMMA REMAINDER-LESSP-LINEAR ((NUMBERP Y) (NOT (EQUAL Y (QUOTE 0)))) (LESSP (REMAINDER X Y) Y) (REMAINDER X Y))) QUICK-BLOCK-INFO (SELF-REFLEXIVE UNCHANGING) SDEFN (LAMBDA (I J) (IF (EQUAL J (QUOTE 0)) (IF (NUMBERP I) I (QUOTE 0)) (IF (NUMBERP J) (IF (LESSP I J) (IF (NUMBERP I) I (QUOTE 0)) (REMAINDER (DIFFERENCE I J) J)) (IF (NUMBERP I) I (QUOTE 0))))) LISP-CODE *1*REMAINDER SUBRP *1*TRUE INDUCTION-MACHINE ((TESTS-AND-CASES ((ZEROP J)) NIL) (TESTS-AND-CASES ((NOT (ZEROP J)) (LESSP I J)) NIL) (TESTS-AND-CASES ((NOT (ZEROP J)) (NOT (LESSP I J))) (((DIFFERENCE I J) J)))) LEVEL-NO 2 JUSTIFICATIONS ((JUSTIFICATION (I) (COUNT I) LESSP (ZERO COUNT-NOT-LESSP ZEROP COUNT-NUMBERP))) ELIMINATE-DESTRUCTORS-SEQ (REWRITE-RULE REMAINDER-QUOTIENT-ELIM ((NUMBERP Y) (NOT (EQUAL Y (QUOTE 0))) (NUMBERP X)) (EQUAL (PLUS (REMAINDER X Y) (TIMES Y (QUOTIENT X Y))) X) NIL) ELIMINATE-DESTRUCTORS-DESTS ((REMAINDER X Y) (QUOTIENT X Y)) CONTROLLER-POCKETS (1) MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*QUOTIENT) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE QUOTIENT) (QUOTE (TYPE-PRESCRIPTION-LST ((QUOTIENT 4 NIL NIL)) LEMMAS ((REWRITE-RULE REMAINDER-QUOTIENT-EXP2 NIL (EQUAL (QUOTIENT (REMAINDER X (EXP (QUOTE 2) I)) (EXP (QUOTE 2) J)) (IF (LESSP J I) (REMAINDER (QUOTIENT X (EXP (QUOTE 2) J)) (EXP (QUOTE 2) (DIFFERENCE I J))) (QUOTE 0))) NIL) (REWRITE-RULE QUOTIENT-PLUS-TIMES-EXP2-2 ((NOT (LESSP J I)) (LESSP X (EXP (QUOTE 2) I))) (EQUAL (QUOTIENT (PLUS X (TIMES Y (EXP (QUOTE 2) I))) (EXP (QUOTE 2) J)) (QUOTIENT Y (EXP (QUOTE 2) (DIFFERENCE J I)))) NIL) (REWRITE-RULE QUOTIENT-PLUS-TIMES-EXP2-1 ((LESSP J I)) (EQUAL (QUOTIENT (PLUS X (TIMES Y (EXP (QUOTE 2) I))) (EXP (QUOTE 2) J)) (PLUS (QUOTIENT X (EXP (QUOTE 2) J)) (TIMES Y (EXP (QUOTE 2) (DIFFERENCE I J))))) NIL) (REWRITE-RULE QUOTIENT-DIFF ((EQUAL (REMAINDER X Z) (QUOTE 0))) (EQUAL (QUOTIENT (DIFFERENCE X Y) Z) (IF (EQUAL (REMAINDER Y Z) (QUOTE 0)) (DIFFERENCE (QUOTIENT X Z) (QUOTIENT Y Z)) (SUB1 (DIFFERENCE (QUOTIENT X Z) (QUOTIENT Y Z))))) NIL) (REWRITE-RULE QUOTIENT-TIMES-EXP2-4 NIL (EQUAL (QUOTIENT (TIMES X (TIMES Y (EXP (QUOTE 2) I))) (QUOTE 2)) (IF (EQUAL I (QUOTE 0)) (QUOTIENT (TIMES X Y) (QUOTE 2)) (IF (NUMBERP I) (TIMES X (TIMES Y (EXP (QUOTE 2) (SUB1 I)))) (QUOTIENT (TIMES X Y) (QUOTE 2))))) NIL) (REWRITE-RULE QUOTIENT-TIMES-EXP2-4 NIL (EQUAL (QUOTIENT (TIMES X (TIMES (EXP (QUOTE 2) I) Y)) (QUOTE 2)) (IF (EQUAL I (QUOTE 0)) (QUOTIENT (TIMES X Y) (QUOTE 2)) (IF (NUMBERP I) (TIMES X (TIMES Y (EXP (QUOTE 2) (SUB1 I)))) (QUOTIENT (TIMES X Y) (QUOTE 2))))) NIL) (REWRITE-RULE QUOTIENT-TIMES-EXP2-3 NIL (EQUAL (QUOTIENT (TIMES (EXP (QUOTE 2) I) X) (QUOTE 2)) (IF (EQUAL I (QUOTE 0)) (QUOTIENT X (QUOTE 2)) (IF (NUMBERP I) (TIMES X (EXP (QUOTE 2) (SUB1 I))) (QUOTIENT X (QUOTE 2))))) NIL) (REWRITE-RULE QUOTIENT-TIMES-EXP2-3 NIL (EQUAL (QUOTIENT (TIMES X (EXP (QUOTE 2) I)) (QUOTE 2)) (IF (EQUAL I (QUOTE 0)) (QUOTIENT X (QUOTE 2)) (IF (NUMBERP I) (TIMES X (EXP (QUOTE 2) (SUB1 I))) (QUOTIENT X (QUOTE 2))))) NIL) (REWRITE-RULE QUOTIENT-TIMES-EXP2-2 NIL (EQUAL (QUOTIENT (TIMES (EXP (QUOTE 2) I) X) (EXP (QUOTE 2) J)) (IF (LESSP I J) (QUOTIENT X (EXP (QUOTE 2) (DIFFERENCE J I))) (TIMES X (EXP (QUOTE 2) (DIFFERENCE I J))))) NIL) (REWRITE-RULE QUOTIENT-TIMES-EXP2-1 NIL (EQUAL (QUOTIENT (TIMES X (EXP (QUOTE 2) I)) (EXP (QUOTE 2) J)) (IF (LESSP I J) (QUOTIENT X (EXP (QUOTE 2) (DIFFERENCE J I))) (TIMES X (EXP (QUOTE 2) (DIFFERENCE I J))))) NIL) (REWRITE-RULE QUOTIENT-QUOTIENT NIL (EQUAL (QUOTIENT (QUOTIENT X Z) Y) (QUOTIENT X (TIMES Z Y))) NIL) (REWRITE-RULE QUOTIENT-EXP ((LESSP (QUOTE 1) I)) (EQUAL (QUOTIENT (EXP I J) (EXP I K)) (IF (LESSP J K) (QUOTE 0) (EXP I (DIFFERENCE J K)))) NIL) (REWRITE-RULE QUOTIENT-DISTRIBUTES-TIMES2-ADD1 NIL (EQUAL (QUOTIENT (ADD1 (TIMES (QUOTE 2) Y)) (TIMES (QUOTE 2) Z)) (QUOTIENT Y Z)) NIL) (REWRITE-RULE QUOTIENT-TIMES-CANCEL NIL (EQUAL (QUOTIENT (TIMES X Y) (TIMES X Z)) (IF (EQUAL X (QUOTE 0)) (QUOTE 0) (IF (NUMBERP X) (QUOTIENT Y Z) (QUOTE 0)))) NIL) (REWRITE-RULE QUOTIENT-CROCK ((LESSP Y Z)) (EQUAL (QUOTIENT (TIMES Y X) (TIMES X Z)) (QUOTE 0)) NIL) (REWRITE-RULE QUOTIENT-ADD1 NIL (EQUAL (QUOTIENT (ADD1 M) N) (IF (EQUAL N (QUOTE 0)) (QUOTE 0) (IF (NUMBERP N) (IF (EQUAL (REMAINDER M N) (SUB1 N)) (ADD1 (QUOTIENT M N)) (QUOTIENT M N)) (QUOTE 0)))) NIL) (REWRITE-RULE QUOTIENT-SUB1 NIL (EQUAL (QUOTIENT (SUB1 M) N) (IF (EQUAL (REMAINDER M N) (QUOTE 0)) (SUB1 (QUOTIENT M N)) (QUOTIENT M N))) NIL) (REWRITE-RULE QUOTIENT-DIFFERENCE-TIMES2 NIL (EQUAL (QUOTIENT (DIFFERENCE X (TIMES Y Z)) Y) (IF (LESSP X (TIMES Y Z)) (QUOTE 0) (IF (NUMBERP Z) (DIFFERENCE (QUOTIENT X Y) Z) (DIFFERENCE (QUOTIENT X Y) (QUOTE 0))))) NIL) (REWRITE-RULE QUOTIENT-DIFFERENCE-TIMES1 NIL (EQUAL (QUOTIENT (DIFFERENCE X (TIMES Y Z)) Z) (IF (LESSP X (TIMES Y Z)) (QUOTE 0) (IF (NUMBERP Y) (DIFFERENCE (QUOTIENT X Z) Y) (DIFFERENCE (QUOTIENT X Z) (QUOTE 0))))) NIL) (REWRITE-RULE QUOTIENT-DIFFERENCE ((EQUAL (REMAINDER Y Z) (QUOTE 0))) (EQUAL (QUOTIENT (DIFFERENCE X Y) Z) (IF (LESSP X Y) (QUOTE 0) (DIFFERENCE (QUOTIENT X Z) (QUOTIENT Y Z)))) NIL) (REWRITE-RULE QUOTIENT-DIFFERENCE-PLUS2 ((NOT (LESSP Y Z)) (EQUAL (REMAINDER X W) (QUOTE 0))) (EQUAL (QUOTIENT (DIFFERENCE (PLUS X Y) Z) W) (PLUS (QUOTIENT (DIFFERENCE Y Z) W) (QUOTIENT X W))) NIL) (REWRITE-RULE QUOTIENT-DIFFERENCE-PLUS1 ((NOT (LESSP X Z)) (EQUAL (REMAINDER Y W) (QUOTE 0))) (EQUAL (QUOTIENT (DIFFERENCE (PLUS X Y) Z) W) (PLUS (QUOTIENT (DIFFERENCE X Z) W) (QUOTIENT Y W))) NIL) (REWRITE-RULE QUOTIENT-PLUS-ADD1 ((EQUAL (REMAINDER I J) (QUOTE 0))) (EQUAL (QUOTIENT (ADD1 (PLUS X I)) J) (PLUS (QUOTIENT (ADD1 X) J) (QUOTIENT I J))) NIL) (REWRITE-RULE QUOTIENT-PLUS-PLUS ((EQUAL (REMAINDER I J) (QUOTE 0))) (EQUAL (QUOTIENT (PLUS X (PLUS Y I)) J) (PLUS (QUOTIENT (PLUS X Y) J) (QUOTIENT I J))) NIL) (REWRITE-RULE QUOTIENT-PLUS-TIMES2 NIL (EQUAL (QUOTIENT (PLUS X (TIMES Z Y)) Y) (IF (EQUAL Y (QUOTE 0)) (PLUS (QUOTIENT X Y) (QUOTE 0)) (IF (NUMBERP Y) (IF (NUMBERP Z) (PLUS (QUOTIENT X Y) Z) (PLUS (QUOTIENT X Y) (QUOTE 0))) (PLUS (QUOTIENT X Y) (QUOTE 0))))) NIL) (REWRITE-RULE QUOTIENT-PLUS-TIMES1 NIL (EQUAL (QUOTIENT (PLUS X (TIMES Y Z)) Y) (IF (EQUAL Y (QUOTE 0)) (PLUS (QUOTIENT X Y) (QUOTE 0)) (IF (NUMBERP Y) (IF (NUMBERP Z) (PLUS (QUOTIENT X Y) Z) (PLUS (QUOTIENT X Y) (QUOTE 0))) (PLUS (QUOTIENT X Y) (QUOTE 0))))) NIL) (REWRITE-RULE QUOTIENT-TIMES NIL (EQUAL (QUOTIENT (TIMES Y X) Y) (IF (EQUAL Y (QUOTE 0)) (QUOTE 0) (IF (NUMBERP Y) (IF (NUMBERP X) X (QUOTE 0)) (QUOTE 0)))) NIL) (REWRITE-RULE QUOTIENT-TIMES NIL (EQUAL (QUOTIENT (TIMES X Y) Y) (IF (EQUAL Y (QUOTE 0)) (QUOTE 0) (IF (NUMBERP Y) (IF (NUMBERP X) X (QUOTE 0)) (QUOTE 0)))) NIL) (REWRITE-RULE QUOTIENT-PLUS2 ((EQUAL (REMAINDER I J) (QUOTE 0))) (EQUAL (QUOTIENT (PLUS I X) J) (PLUS (QUOTIENT I J) (QUOTIENT X J))) NIL) (REWRITE-RULE QUOTIENT-PLUS1 ((EQUAL (REMAINDER I J) (QUOTE 0))) (EQUAL (QUOTIENT (PLUS X I) J) (PLUS (QUOTIENT X J) (QUOTIENT I J))) NIL) (REWRITE-RULE QUOTIENT-2X-ADD1 NIL (EQUAL (QUOTIENT (PLUS X (ADD1 X)) (QUOTE 2)) (IF (NUMBERP X) X (QUOTE 0))) NIL) (REWRITE-RULE QUOTIENT-2X NIL (EQUAL (QUOTIENT (PLUS X X) (QUOTE 2)) (IF (NUMBERP X) X (QUOTE 0))) NIL) (REWRITE-RULE QUOTIENT-X-X NIL (EQUAL (QUOTIENT X X) (IF (EQUAL X (QUOTE 0)) (QUOTE 0) (IF (NUMBERP X) (QUOTE 1) (QUOTE 0)))) NIL) (REWRITE-RULE QUOTIENT-1 NIL (EQUAL (QUOTIENT M (QUOTE 1)) (IF (NUMBERP M) M (QUOTE 0))) NIL) (REWRITE-RULE QUOTIENT-1 NIL (EQUAL (QUOTIENT (QUOTE 1) X) (IF (EQUAL X (QUOTE 1)) (QUOTE 1) (QUOTE 0))) NIL) (REWRITE-RULE QUOTIENT-0 NIL (EQUAL (QUOTIENT X (QUOTE 0)) (QUOTE 0)) NIL) (REWRITE-RULE QUOTIENT-0 NIL (EQUAL (QUOTIENT (QUOTE 0) X) (QUOTE 0)) NIL) (REWRITE-RULE QUOTIENT-EXIT ((LESSP I J)) (EQUAL (QUOTIENT I J) (QUOTE 0)) NIL)) TOTALP-LST ((QUOTIENT . T)) LINEAR-LEMMAS ((LINEAR-LEMMA REMAINDER-SHRINK-HALF ((NOT (LESSP A B)) (NUMBERP B) (NOT (EQUAL B (QUOTE 0)))) (NOT (LESSP (QUOTIENT A (QUOTE 2)) (REMAINDER A B))) (QUOTIENT A (QUOTE 2))) (LINEAR-LEMMA MEAN-DIFFERENCE-2 ((NOT (LESSP J I))) (NOT (LESSP (QUOTIENT (DIFFERENCE J I) (QUOTE 2)) (DIFFERENCE (SUB1 J) (QUOTIENT (PLUS I J) (QUOTE 2))))) (QUOTIENT (DIFFERENCE J I) (QUOTE 2))) (LINEAR-LEMMA MEAN-DIFFERENCE-2 ((NOT (LESSP J I))) (NOT (LESSP (QUOTIENT (DIFFERENCE J I) (QUOTE 2)) (DIFFERENCE (SUB1 J) (QUOTIENT (PLUS I J) (QUOTE 2))))) (QUOTIENT (PLUS I J) (QUOTE 2))) (LINEAR-LEMMA QUOTIENT-LEQ NIL (NOT (LESSP I (QUOTIENT I J))) (QUOTIENT I J)) (LINEAR-LEMMA QUOTIENT-LESSP-LINEAR ((NUMBERP X) (NOT (EQUAL X (QUOTE 0))) (LESSP (QUOTE 1) Y)) (LESSP (QUOTIENT X Y) X) (QUOTIENT X Y))) QUICK-BLOCK-INFO (SELF-REFLEXIVE UNCHANGING) SDEFN (LAMBDA (I J) (IF (EQUAL J (QUOTE 0)) (QUOTE 0) (IF (NUMBERP J) (IF (LESSP I J) (QUOTE 0) (ADD1 (QUOTIENT (DIFFERENCE I J) J))) (QUOTE 0)))) LISP-CODE *1*QUOTIENT SUBRP *1*TRUE INDUCTION-MACHINE ((TESTS-AND-CASES ((ZEROP J)) NIL) (TESTS-AND-CASES ((NOT (ZEROP J)) (LESSP I J)) NIL) (TESTS-AND-CASES ((NOT (ZEROP J)) (NOT (LESSP I J))) (((DIFFERENCE I J) J)))) LEVEL-NO 2 JUSTIFICATIONS ((JUSTIFICATION (I) (COUNT I) LESSP (ZERO COUNT-NOT-LESSP ZEROP COUNT-NUMBERP))) ELIMINATE-DESTRUCTORS-SEQ (REWRITE-RULE REMAINDER-QUOTIENT-ELIM ((NUMBERP Y) (NOT (EQUAL Y (QUOTE 0))) (NUMBERP X)) (EQUAL (PLUS (REMAINDER X Y) (TIMES Y (QUOTIENT X Y))) X) NIL) ELIMINATE-DESTRUCTORS-DESTS ((QUOTIENT X Y) (REMAINDER X Y)) CONTROLLER-POCKETS (1) MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*TIMES) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE TIMES) (QUOTE (TYPE-PRESCRIPTION-LST ((TIMES 4 NIL NIL)) LEMMAS ((REWRITE-RULE TIMES-SUB1 NIL (EQUAL (TIMES (SUB1 Y) X) (DIFFERENCE (TIMES X Y) X)) NIL) (REWRITE-RULE EXP-PLUS NIL (EQUAL (TIMES (EXP X Y) (EXP X Z)) (EXP X (PLUS Y Z))) NIL) (REWRITE-RULE EVAL$-TIMES-FRINGE-MEMBER-ZERO ((MEMBER E (TIMES-FRINGE (CONS (QUOTE TIMES) X))) (ZEROP (EVAL$ (QUOTE *1*TRUE) E A))) (EQUAL (TIMES (EVAL$ (QUOTE *1*TRUE) (CAR X) A) (EVAL$ (QUOTE *1*TRUE) (CAR (CDR X)) A)) (QUOTE 0)) NIL) (REWRITE-RULE TIMES-ASSOCIATIVITY NIL (EQUAL (TIMES (TIMES X Y) Z) (TIMES X (TIMES Y Z))) NIL) (REWRITE-RULE TIMES-1 NIL (EQUAL (TIMES (QUOTE 1) X) (IF (NUMBERP X) X (QUOTE 0))) NIL) (REWRITE-RULE TIMES-COMMUTATIVITY1 NIL (EQUAL (TIMES X (TIMES Y Z)) (TIMES Y (TIMES X Z))) ((X . Y))) (REWRITE-RULE TIMES-COMMUTATIVITY NIL (EQUAL (TIMES X Z) (TIMES Z X)) ((X . Z))) (REWRITE-RULE TIMES-ADD1 NIL (EQUAL (TIMES X (ADD1 Y)) (PLUS X (TIMES X Y))) NIL) (REWRITE-RULE TIMES-DISTRIBUTES-PLUS NIL (EQUAL (TIMES X (PLUS Y Z)) (PLUS (TIMES X Y) (TIMES X Z))) NIL) (REWRITE-RULE TIMES-ZERO ((OR (ZEROP X) (ZEROP Y))) (EQUAL (TIMES X Y) (QUOTE 0)) NIL)) TOTALP-LST ((TIMES . T)) LINEAR-LEMMAS ((LINEAR-LEMMA LESSP-TIMES-LESSP ((LESSP A B) (NUMBERP C) (NOT (EQUAL C (QUOTE 0)))) (LESSP A (TIMES B C)) (TIMES B C)) (LINEAR-LEMMA PLUS-TIMES-LESSP ((LESSP (PLUS X (TIMES Y Z)) W) (LESSP Z1 Z)) (LESSP (PLUS X (PLUS Y (TIMES Y Z1))) W) (TIMES Y Z1)) (LINEAR-LEMMA TIMES-LESSP_2 ((NOT (LESSP X1 X)) (NOT (LESSP Y1 Y)) (NUMBERP X1) (NOT (EQUAL X1 (QUOTE 0))) (NUMBERP Y1) (NOT (EQUAL Y1 (QUOTE 0)))) (LESSP (TIMES X Y) (TIMES (QUOTE 2) (TIMES X1 Y1))) (TIMES X Y)) (LINEAR-LEMMA TIMES-LESSP_2 ((NOT (LESSP X1 X)) (NOT (LESSP Y1 Y)) (NUMBERP X1) (NOT (EQUAL X1 (QUOTE 0))) (NUMBERP Y1) (NOT (EQUAL Y1 (QUOTE 0)))) (LESSP (TIMES X Y) (TIMES (QUOTE 2) (TIMES X1 Y1))) (TIMES X1 Y1)) (LINEAR-LEMMA TIMES-LESSP_1 ((LESSP X X1) (LESSP Y Y1)) (LESSP (TIMES X Y) (TIMES X1 Y1)) (TIMES X Y)) (LINEAR-LEMMA TIMES-LESSP_1 ((LESSP X X1) (LESSP Y Y1)) (LESSP (TIMES X Y) (TIMES X1 Y1)) (TIMES X1 Y1)) (LINEAR-LEMMA QUOTIENT-SHRINK-FAST NIL (NOT (LESSP X (TIMES Y (QUOTIENT X Y)))) (TIMES Y (QUOTIENT X Y))) (LINEAR-LEMMA TIMES-LESSP-LINEAR ((NOT (LESSP I J))) (NOT (LESSP (TIMES A I) (TIMES A J))) (TIMES A I)) (LINEAR-LEMMA TIMES-LESSP-LINEAR ((NOT (LESSP I J))) (NOT (LESSP (TIMES A I) (TIMES A J))) (TIMES A J))) QUICK-BLOCK-INFO (SELF-REFLEXIVE UNCHANGING) SDEFN (LAMBDA (I J) (IF (EQUAL I (QUOTE 0)) (QUOTE 0) (IF (NUMBERP I) (PLUS J (TIMES (SUB1 I) J)) (QUOTE 0)))) LISP-CODE *1*TIMES SUBRP *1*TRUE INDUCTION-MACHINE ((TESTS-AND-CASES ((ZEROP I)) NIL) (TESTS-AND-CASES ((NOT (ZEROP I))) (((SUB1 I) J)))) LEVEL-NO 2 JUSTIFICATIONS ((JUSTIFICATION (I) (COUNT I) LESSP (ZERO ZEROP COUNT-NUMBERP))) CONTROLLER-POCKETS (1) MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*DIFFERENCE) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE DIFFERENCE) (QUOTE (TYPE-PRESCRIPTION-LST ((DIFFERENCE 4 NIL NIL)) LEMMAS ((REWRITE-RULE DIFFERENCE-CANCEL-4294967292 NIL (EQUAL (DIFFERENCE (PLUS (QUOTE 4294967292) X) (QUOTE 4294967296)) (DIFFERENCE X (QUOTE 4))) NIL) (REWRITE-RULE DIFFERENCE-CANCEL-4294967295 NIL (EQUAL (DIFFERENCE (PLUS (QUOTE 4294967295) X) (QUOTE 4294967296)) (SUB1 X)) NIL) (REWRITE-RULE MEAN-DIFFERENCE-1 ((NOT (LESSP J I))) (EQUAL (DIFFERENCE (QUOTIENT (PLUS I J) (QUOTE 2)) I) (QUOTIENT (DIFFERENCE J I) (QUOTE 2))) NIL) (REWRITE-RULE DIFFERENCE-CANCEL-1 ((NOT (LESSP J I))) (EQUAL (DIFFERENCE (TIMES (QUOTE 2) J) (PLUS I J)) (DIFFERENCE J I)) NIL) (REWRITE-RULE DIFFERENCE-CANCEL-1 ((NOT (LESSP J I))) (EQUAL (DIFFERENCE (PLUS I J) (TIMES (QUOTE 2) I)) (DIFFERENCE J I)) NIL) (REWRITE-RULE DIFFERENCE-APP-1S ((EQUAL (PLUS M N) (FIX K))) (EQUAL (DIFFERENCE (EXP (QUOTE 2) K) (APP M X (SUB1 (EXP (QUOTE 2) N)))) (DIFFERENCE (EXP (QUOTE 2) M) (HEAD X M))) NIL) (REWRITE-RULE TIMES-DISTRIBUTES-DIFFERENCE1 NIL (EQUAL (DIFFERENCE (TIMES Y X) (TIMES Z X)) (TIMES X (DIFFERENCE Y Z))) NIL) (REWRITE-RULE TIMES-DISTRIBUTES-DIFFERENCE NIL (EQUAL (DIFFERENCE (TIMES X Y) (TIMES X Z)) (TIMES X (DIFFERENCE Y Z))) NIL) (REWRITE-RULE CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS NIL *1*CANCEL-DIFFERENCE-PLUS NIL) (REWRITE-RULE DIFFERENCE-PLUS-CANCEL-ADD1 NIL (EQUAL (DIFFERENCE (PLUS Y X) (ADD1 Y)) (SUB1 X)) NIL) (REWRITE-RULE DIFFERENCE-PLUS-CANCEL1 NIL (EQUAL (DIFFERENCE (PLUS X Y) (PLUS X Z)) (DIFFERENCE Y Z)) NIL) (REWRITE-RULE DIFFERENCE-DIFFERENCE2 ((NOT (LESSP Y Z))) (EQUAL (DIFFERENCE X (DIFFERENCE Y Z)) (DIFFERENCE (PLUS X Z) Y)) NIL) (REWRITE-RULE DIFFERENCE-DIFFERENCE1 NIL (EQUAL (DIFFERENCE (DIFFERENCE X Y) Z) (DIFFERENCE X (PLUS Y Z))) NIL) (REWRITE-RULE DIFFERENCE-PLUS-CANCEL0 NIL (EQUAL (DIFFERENCE (PLUS Y X) X) (IF (NUMBERP Y) Y (QUOTE 0))) NIL) (REWRITE-RULE DIFFERENCE-PLUS-CANCEL0 NIL (EQUAL (DIFFERENCE (PLUS X Y) X) (IF (NUMBERP Y) Y (QUOTE 0))) NIL) (REWRITE-RULE DIFFERENCE-X-X NIL (EQUAL (DIFFERENCE X X) (QUOTE 0)) NIL) (REWRITE-RULE DIFFERENCE-0 ((NOT (LESSP Y X))) (EQUAL (DIFFERENCE X Y) (QUOTE 0)) NIL) (REWRITE-RULE DIFFERENCE-SUB1 NIL (EQUAL (DIFFERENCE X (QUOTE 1)) (SUB1 X)) NIL)) TOTALP-LST ((DIFFERENCE . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE) SDEFN (LAMBDA (I J) (IF (EQUAL I (QUOTE 0)) (QUOTE 0) (IF (NUMBERP I) (IF (EQUAL J (QUOTE 0)) I (IF (NUMBERP J) (DIFFERENCE (SUB1 I) (SUB1 J)) I)) (QUOTE 0)))) LISP-CODE *1*DIFFERENCE SUBRP *1*TRUE INDUCTION-MACHINE ((TESTS-AND-CASES ((ZEROP I)) NIL) (TESTS-AND-CASES ((NOT (ZEROP I)) (ZEROP J)) NIL) (TESTS-AND-CASES ((NOT (ZEROP I)) (NOT (ZEROP J))) (((SUB1 I) (SUB1 J))))) LEVEL-NO 1 JUSTIFICATIONS ((JUSTIFICATION (I) (COUNT I) LESSP (ZERO ZEROP COUNT-NUMBERP)) (JUSTIFICATION (J) (COUNT J) LESSP (ZERO ZEROP COUNT-NUMBERP))) CONTROLLER-POCKETS (1 2) MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE COUNT-MINUS) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE NEGATIVE-GUTS-ELIM) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE MINUS-NEGATIVE-GUTS) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE MINUS-EQUAL) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE NEGATIVE-GUTS-LESSEQP) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE NEGATIVE-GUTS-LESSP) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE NEGATIVE-GUTS-TYPE-RESTRICTION) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE NEGATIVE-GUTS-NNEGATIVEP) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE NEGATIVE-GUTS-MINUS) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*NEGATIVE-GUTS) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE NEGATIVE-GUTS) (QUOTE (TYPE-PRESCRIPTION-LST ((MINUS 4 NIL)) LEMMAS ((REWRITE-RULE NEGATIVE-GUTS-NNEGATIVEP ((NOT (NEGATIVEP X))) (EQUAL (NEGATIVE-GUTS X) (QUOTE 0)) NIL) (REWRITE-RULE NEGATIVE-GUTS-MINUS NIL (EQUAL (NEGATIVE-GUTS (MINUS NEGATIVE-GUTS)) (IF (NUMBERP NEGATIVE-GUTS) NEGATIVE-GUTS (QUOTE 0))) NIL)) TOTALP-LST ((MINUS . T)) LISP-CODE *1*NEGATIVE-GUTS SUBRP *1*TRUE ELIMINATE-DESTRUCTORS-SEQ (REWRITE-RULE NEGATIVE-GUTS-ELIM ((NEGATIVEP X)) (EQUAL (MINUS (NEGATIVE-GUTS X)) X) NIL) ELIMINATE-DESTRUCTORS-DESTS ((NEGATIVE-GUTS X)) MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*NEGATIVEP) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE NEGATIVEP) (QUOTE (TYPE-PRESCRIPTION-LST ((MINUS 3 NIL)) LEMMAS ((REWRITE-RULE ITIMES-SIGN ((INTEGERP X) (INTEGERP Y)) (EQUAL (NEGATIVEP (ITIMES X Y)) (IF (NUMBERP X) (IF (EQUAL X (QUOTE 0)) (IF (NEGATIVEP X) (IF (NUMBERP Y) (IF (EQUAL Y (QUOTE 0)) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (IF (NEGATIVEP Y) (QUOTE *1*TRUE) (IF (NEGATIVEP X) (IF (NUMBERP Y) (IF (EQUAL Y (QUOTE 0)) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)))) (IF (NEGATIVEP X) (IF (NUMBERP Y) (IF (EQUAL Y (QUOTE 0)) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)))) NIL) (REWRITE-RULE IDIFFERENCE-NEGATIVEP NIL (EQUAL (NEGATIVEP (IDIFFERENCE X Y)) (ILESSP X Y)) NIL) (REWRITE-RULE ADD-BMI-CROCK2 ((INTEGERP X) (INTEGERP Y) (INT-RANGEP X N) (INT-RANGEP Y N)) (NEGATIVEP (IPLUS X (IPLUS Y (MINUS (EXP (QUOTE 2) N))))) NIL) (REWRITE-RULE ADD-BMI-CROCK1 ((INTEGERP X) (INTEGERP Y) (INT-RANGEP X N) (INT-RANGEP Y N)) (NOT (NEGATIVEP (IPLUS X (IPLUS Y (EXP (QUOTE 2) N))))) NIL) (REWRITE-RULE ADDX-V-CROCK2 ((INTEGERP X) (INTEGERP Y) (BITP Z) (NUMBERP N) (NOT (EQUAL N (QUOTE 0))) (INT-RANGEP X N) (INT-RANGEP Y N)) (NEGATIVEP (IPLUS X (IPLUS Y (IPLUS Z (MINUS (EXP (QUOTE 2) N)))))) NIL) (REWRITE-RULE ADDX-V-CROCK1 ((INTEGERP X) (INTEGERP Y) (BITP Z) (INT-RANGEP X N) (INT-RANGEP Y N)) (NOT (NEGATIVEP (IPLUS X (IPLUS Y (IPLUS Z (EXP (QUOTE 2) N)))))) NIL) (REWRITE-RULE IPLUS-WITH-CARRY-NON-NEGATIVEP ((INTEGERP X) (INTEGERP Y) (BITP Z) (NOT (NEGATIVEP X)) (NOT (NEGATIVEP Y))) (NOT (NEGATIVEP (IPLUS X (IPLUS Y Z)))) NIL) (REWRITE-RULE IPLUS-WITH-CARRY-NEGATIVEP ((INTEGERP X) (INTEGERP Y) (BITP Z) (NEGATIVEP X) (NEGATIVEP Y)) (NEGATIVEP (IPLUS X (IPLUS Y Z))) NIL)) TOTALP-LST ((MINUS . T)) LISP-CODE *1*NEGATIVEP SUBRP *1*TRUE MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*MINUS) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE MINUS) (QUOTE (TYPE-PRESCRIPTION-LST ((MINUS 32 NIL)) LEMMAS ((REWRITE-RULE MINUS-NEGATIVE-GUTS NIL (EQUAL (MINUS (NEGATIVE-GUTS X)) (IF (NEGATIVEP X) X (QUOTE (*1*QUOTE MINUS 0)))) NIL) (REWRITE-RULE NEGATIVE-GUTS-TYPE-RESTRICTION ((NOT (NUMBERP NEGATIVE-GUTS))) (EQUAL (MINUS NEGATIVE-GUTS) (QUOTE (*1*QUOTE MINUS 0))) NIL)) TOTALP-LST ((MINUS . T)) LISP-CODE *1*MINUS SUBRP *1*TRUE TYPE-RESTRICTIONS ((TYPE-RESTRICTION (NUMBERP X) 4 (QUOTE 0))) MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*NLISTP) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE NLISTP) (QUOTE (TYPE-PRESCRIPTION-LST ((NLISTP 3 NIL)) TOTALP-LST ((NLISTP . T)) SDEFN (LAMBDA (X) (IF (LISTP X) (QUOTE *1*FALSE) (QUOTE *1*TRUE))) LISP-CODE *1*NLISTP SUBRP *1*TRUE LEVEL-NO 0 MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE COUNT-CONS) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE CAR-CDR-ELIM) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE CONS-CAR-CDR) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE CONS-EQUAL) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE CDR-LESSEQP) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE CDR-LESSP) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE CDR-NLISTP) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE CDR-CONS) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE CAR-LESSEQP) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE CAR-LESSP) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE CAR-NLISTP) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE CAR-CONS) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*CDR) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE CDR) (QUOTE (TYPE-PRESCRIPTION-LST ((CONS -1 NIL)) LEMMAS ((REWRITE-RULE CDR-MCDR NIL (EQUAL (CDR (MCDR N LST)) (MCDR (ADD1 N) LST)) NIL) (REWRITE-RULE CADR-EVAL$-LIST NIL (EQUAL (CDR (EVAL$ (QUOTE LIST) X A)) (IF (LISTP X) (EVAL$ (QUOTE LIST) (CDR X) A) (QUOTE 0))) NIL) (REWRITE-RULE CDR-NLISTP ((NOT (LISTP X))) (EQUAL (CDR X) (QUOTE 0)) NIL) (REWRITE-RULE CDR-CONS NIL (EQUAL (CDR (CONS CAR CDR)) CDR) NIL)) TOTALP-LST ((CONS . T)) LISP-CODE *1*CDR SUBRP *1*TRUE ELIMINATE-DESTRUCTORS-SEQ (REWRITE-RULE CAR-CDR-ELIM ((LISTP X)) (EQUAL (CONS (CAR X) (CDR X)) X) NIL) ELIMINATE-DESTRUCTORS-DESTS ((CDR X) (CAR X)) MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*CAR) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE CAR) (QUOTE (TYPE-PRESCRIPTION-LST ((CONS -1 NIL)) LEMMAS ((REWRITE-RULE CADR-EVAL$-LIST NIL (EQUAL (CAR (EVAL$ (QUOTE LIST) X A)) (EVAL$ (QUOTE *1*TRUE) (CAR X) A)) NIL) (REWRITE-RULE CAR-NLISTP ((NOT (LISTP X))) (EQUAL (CAR X) (QUOTE 0)) NIL) (REWRITE-RULE CAR-CONS NIL (EQUAL (CAR (CONS CAR CDR)) CAR) NIL)) TOTALP-LST ((CONS . T)) LISP-CODE *1*CAR SUBRP *1*TRUE ELIMINATE-DESTRUCTORS-SEQ (REWRITE-RULE CAR-CDR-ELIM ((LISTP X)) (EQUAL (CONS (CAR X) (CDR X)) X) NIL) ELIMINATE-DESTRUCTORS-DESTS ((CAR X) (CDR X)) MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*LISTP) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE LISTP) (QUOTE (TYPE-PRESCRIPTION-LST ((CONS 3 NIL)) LEMMAS ((REWRITE-RULE MCDR-LISTP-LEN NIL (EQUAL (LISTP (MCDR N LST)) (LESSP N (LEN LST))) NIL) (REWRITE-RULE BV-ADDER-LISTP NIL (EQUAL (LISTP (BV-ADDER C X Y)) (LISTP X)) NIL) (REWRITE-RULE BV-HEAD-LISTP NIL (EQUAL (LISTP (BV-HEAD X N)) (IF (EQUAL N (QUOTE 0)) (QUOTE *1*FALSE) (NUMBERP N))) NIL) (REWRITE-RULE LISTP-EVAL$ NIL (EQUAL (LISTP (EVAL$ (QUOTE LIST) X A)) (LISTP X)) NIL)) TOTALP-LST ((CONS . T)) LISP-CODE *1*LISTP SUBRP *1*TRUE MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*CONS) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE CONS) (QUOTE (TYPE-PRESCRIPTION-LST ((CONS 16 NIL NIL)) LEMMAS ((REWRITE-RULE CONS-CAR-CDR NIL (EQUAL (CONS (CAR X) (CDR X)) (IF (LISTP X) X (QUOTE (0 . 0)))) NIL)) TOTALP-LST ((CONS . T)) LISP-CODE *1*CONS SUBRP *1*TRUE TYPE-RESTRICTIONS ((TYPE-RESTRICTION (QUOTE *1*TRUE) -1 (QUOTE 0)) (TYPE-RESTRICTION (QUOTE *1*TRUE) -1 (QUOTE 0))) MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE COUNT-PACK) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE UNPACK-ELIM) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE PACK-UNPACK) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE PACK-EQUAL) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE UNPACK-LESSEQP) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE UNPACK-LESSP) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE UNPACK-NLITATOM) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE UNPACK-PACK) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*UNPACK) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE UNPACK) (QUOTE (TYPE-PRESCRIPTION-LST ((PACK -1 NIL)) LEMMAS ((REWRITE-RULE UNPACK-NLITATOM ((NOT (LITATOM X))) (EQUAL (UNPACK X) (QUOTE 0)) NIL) (REWRITE-RULE UNPACK-PACK NIL (EQUAL (UNPACK (PACK UNPACK)) UNPACK) NIL)) TOTALP-LST ((PACK . T)) LISP-CODE *1*UNPACK SUBRP *1*TRUE ELIMINATE-DESTRUCTORS-SEQ (REWRITE-RULE UNPACK-ELIM ((LITATOM X)) (EQUAL (PACK (UNPACK X)) X) NIL) ELIMINATE-DESTRUCTORS-DESTS ((UNPACK X)) MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*LITATOM) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE LITATOM) (QUOTE (TYPE-PRESCRIPTION-LST ((PACK 3 NIL)) TOTALP-LST ((PACK . T)) LISP-CODE *1*LITATOM SUBRP *1*TRUE MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*PACK) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE PACK) (QUOTE (TYPE-PRESCRIPTION-LST ((PACK 8 NIL)) LEMMAS ((REWRITE-RULE PACK-UNPACK NIL (EQUAL (PACK (UNPACK X)) (IF (LITATOM X) X (QUOTE (*1*QUOTE PACK 0)))) NIL)) TOTALP-LST ((PACK . T)) LISP-CODE *1*PACK SUBRP *1*TRUE TYPE-RESTRICTIONS ((TYPE-RESTRICTION (QUOTE *1*TRUE) -1 (QUOTE 0))) MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE COUNT-NOT-LESSP) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE COUNT-NUMBERP) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*PLUS) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE PLUS) (QUOTE (TYPE-PRESCRIPTION-LST ((PLUS 4 NIL NIL)) LEMMAS ((REWRITE-RULE PLUS3-TIMES-SUB1 NIL (EQUAL (PLUS X (PLUS Y (PLUS Z (TIMES X (SUB1 Z1))))) (IF (EQUAL Z1 (QUOTE 0)) (PLUS X (PLUS Y Z)) (IF (NUMBERP Z1) (PLUS Y (PLUS Z (TIMES X Z1))) (PLUS X (PLUS Y Z))))) NIL) (REWRITE-RULE PLUS2-TIMES-SUB1 NIL (EQUAL (PLUS X (PLUS Y (TIMES X (SUB1 Z)))) (IF (EQUAL Z (QUOTE 0)) (PLUS X Y) (IF (NUMBERP Z) (PLUS Y (TIMES X Z)) (PLUS X Y)))) NIL) (REWRITE-RULE PLUS-TIMES-SUB1 NIL (EQUAL (PLUS X (TIMES X (SUB1 Y))) (IF (EQUAL Y (QUOTE 0)) (IF (NUMBERP X) X (QUOTE 0)) (IF (NUMBERP Y) (TIMES X Y) (IF (NUMBERP X) X (QUOTE 0))))) NIL) (REWRITE-RULE PLUS-0 NIL (EQUAL (PLUS (QUOTE 0) X) (IF (NUMBERP X) X (QUOTE 0))) NIL) (REWRITE-RULE PLUS-DIFFERENCE NIL (EQUAL (PLUS M (DIFFERENCE N M)) (IF (LESSP N M) (IF (NUMBERP M) M (QUOTE 0)) (IF (NUMBERP N) N (QUOTE 0)))) NIL) (REWRITE-RULE PLUS-NUMBERP ((NOT (NUMBERP Y))) (EQUAL (PLUS X Y) (IF (NUMBERP X) X (QUOTE 0))) NIL) (REWRITE-RULE TIMES-DISTRIBUTES-PLUS-NEW NIL (EQUAL (PLUS (TIMES X Y) (TIMES X Z)) (TIMES X (PLUS Y Z))) NIL) (REWRITE-RULE REMAINDER-QUOTIENT NIL (EQUAL (PLUS (TIMES Y (QUOTIENT X Y)) (REMAINDER X Y)) (IF (NUMBERP X) X (QUOTE 0))) NIL) (REWRITE-RULE DIFFERENCE-PLUS2 ((NOT (LESSP Y Z))) (EQUAL (PLUS X (DIFFERENCE Y Z)) (DIFFERENCE (PLUS X Y) Z)) NIL) (REWRITE-RULE DIFFERENCE-PLUS1 ((NOT (LESSP X Y))) (EQUAL (PLUS (DIFFERENCE X Y) Z) (DIFFERENCE (PLUS X Z) Y)) NIL) (REWRITE-RULE PLUS-ASSOCIATIVITY NIL (EQUAL (PLUS (PLUS X Y) Z) (PLUS X (PLUS Y Z))) NIL) (REWRITE-RULE PLUS-COMMUTATIVITY1 NIL (EQUAL (PLUS X (PLUS Y Z)) (PLUS Y (PLUS X Z))) ((X . Y))) (REWRITE-RULE PLUS-COMMUTATIVITY NIL (EQUAL (PLUS X Y) (PLUS Y X)) ((X . Y))) (REWRITE-RULE PLUS-ADD1-1 NIL (EQUAL (PLUS X (ADD1 Y)) (ADD1 (PLUS X Y))) NIL) (REWRITE-RULE PLUS-ADD1 NIL (EQUAL (PLUS (QUOTE 1) X) (ADD1 X)) NIL)) TOTALP-LST ((PLUS . T)) LINEAR-LEMMAS ((LINEAR-LEMMA GCD-T-SHRINK-2 ((NOT (LESSP A B)) (NUMBERP B) (NOT (EQUAL B (QUOTE 0))) (NOT (EQUAL A (QUOTE 1)))) (NOT (LESSP (TIMES (QUOTE 9) (PLUS X (LOG (QUOTE 2) A))) (PLUS (QUOTE 9) (TIMES (QUOTE 9) (PLUS X (LOG (QUOTE 2) (REMAINDER A B))))))) (PLUS X (LOG (QUOTE 2) (REMAINDER A B))))) QUICK-BLOCK-INFO (SELF-REFLEXIVE UNCHANGING) SDEFN (LAMBDA (X Y) (IF (EQUAL X (QUOTE 0)) (IF (NUMBERP Y) Y (QUOTE 0)) (IF (NUMBERP X) (ADD1 (PLUS (SUB1 X) Y)) (IF (NUMBERP Y) Y (QUOTE 0))))) LISP-CODE *1*PLUS SUBRP *1*TRUE INDUCTION-MACHINE ((TESTS-AND-CASES ((ZEROP X)) NIL) (TESTS-AND-CASES ((NOT (ZEROP X))) (((SUB1 X) Y)))) LEVEL-NO 1 JUSTIFICATIONS ((JUSTIFICATION (X) (COUNT X) LESSP (SUB1-LESSP ZEROP ZERO SUB1-LESSEQP))) CONTROLLER-POCKETS (1) MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*FIX) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE FIX) (QUOTE (TYPE-PRESCRIPTION-LST ((FIX 4 NIL)) TOTALP-LST ((FIX . T)) SDEFN (LAMBDA (X) (IF (NUMBERP X) X (QUOTE 0))) LISP-CODE *1*FIX SUBRP *1*TRUE LEVEL-NO 0 MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*ZEROP) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE ZEROP) (QUOTE (TYPE-PRESCRIPTION-LST ((ZEROP 3 NIL)) TOTALP-LST ((ZEROP . T)) SDEFN (LAMBDA (X) (IF (EQUAL X (QUOTE 0)) (QUOTE *1*TRUE) (IF (NUMBERP X) (QUOTE *1*FALSE) (QUOTE *1*TRUE)))) LISP-CODE *1*ZEROP SUBRP *1*TRUE LEVEL-NO 0 MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*GEQ) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE GEQ) (QUOTE (TYPE-PRESCRIPTION-LST ((GEQ 3 NIL NIL)) TOTALP-LST ((GEQ . T)) SDEFN (LAMBDA (X Y) (IF (LESSP X Y) (QUOTE *1*FALSE) (QUOTE *1*TRUE))) LISP-CODE *1*GEQ SUBRP *1*TRUE LEVEL-NO 0 MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*LEQ) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE LEQ) (QUOTE (TYPE-PRESCRIPTION-LST ((LEQ 3 NIL NIL)) TOTALP-LST ((LEQ . T)) SDEFN (LAMBDA (X Y) (IF (LESSP Y X) (QUOTE *1*FALSE) (QUOTE *1*TRUE))) LISP-CODE *1*LEQ SUBRP *1*TRUE LEVEL-NO 0 MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*GREATERP) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE GREATERP) (QUOTE (TYPE-PRESCRIPTION-LST ((GREATERP 3 NIL NIL)) TOTALP-LST ((GREATERP . T)) SDEFN (LAMBDA (X Y) (LESSP Y X)) LISP-CODE *1*GREATERP SUBRP *1*TRUE LEVEL-NO 0 MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*LESSP) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE LESSP) (QUOTE (TYPE-PRESCRIPTION-LST ((LESSP 3 NIL NIL)) LEMMAS ((REWRITE-RULE DIFFERENCE-LESSP-CANCEL-2 ((NOT (LESSP A C))) (EQUAL (LESSP (DIFFERENCE A C) (PLUS D (TIMES C (SUB1 B)))) (IF (EQUAL B (QUOTE 0)) (LESSP (DIFFERENCE A C) D) (IF (NUMBERP B) (LESSP A (PLUS D (TIMES C B))) (LESSP (DIFFERENCE A C) D)))) NIL) (REWRITE-RULE DIFFERENCE-LESSP-CANCEL-1 NIL (EQUAL (LESSP (DIFFERENCE A C) (TIMES C (SUB1 B))) (IF (LESSP A C) (LESSP (QUOTE 1) B) (LESSP A (TIMES C B)))) NIL) (REWRITE-RULE LESSP-CANCEL-4294967292 NIL (EQUAL (LESSP (PLUS (QUOTE 4294967292) X) (QUOTE 4294967296)) (LESSP X (QUOTE 4))) NIL) (REWRITE-RULE LESSP-CANCEL-4294967295 NIL (EQUAL (LESSP (PLUS (QUOTE 4294967295) X) (QUOTE 4294967296)) (IF (EQUAL X (QUOTE 0)) (QUOTE *1*TRUE) (IF (NUMBERP X) (QUOTE *1*FALSE) (QUOTE *1*TRUE)))) NIL) (REWRITE-RULE LESSP-SLEN-MCDR-0 ((LESSP (SLEN (ADD1 I) N1 LST1) N1)) (EQUAL (LESSP (SLEN I N (MCDR (QUOTE 1) LST1)) (SUB1 N1)) (QUOTE *1*TRUE)) NIL) (REWRITE-RULE LESSP-SLEN-MCDR ((LESSP (SLEN (PLUS I K) N1 LST1) N1)) (EQUAL (LESSP (SLEN I N (MCDR K LST1)) (DIFFERENCE N1 K)) (QUOTE *1*TRUE)) NIL) (REWRITE-RULE MEAN-LESSP NIL (EQUAL (LESSP (QUOTIENT (PLUS J I) (QUOTE 2)) J) (LESSP I J)) NIL) (REWRITE-RULE MEAN-LESSP NIL (EQUAL (LESSP (QUOTIENT (PLUS I J) (QUOTE 2)) J) (LESSP I J)) NIL) (REWRITE-RULE MEAN-LESSP-LEMMA NIL (EQUAL (LESSP (PLUS I J) (TIMES (QUOTE 2) J)) (LESSP I J)) NIL) (REWRITE-RULE TIMES-LESSP-CANCEL1 NIL (EQUAL (LESSP (TIMES Y X) (PLUS X (TIMES Z X))) (IF (EQUAL X (QUOTE 0)) (QUOTE *1*FALSE) (IF (NUMBERP X) (IF (LESSP Z Y) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (QUOTE *1*FALSE)))) NIL) (REWRITE-RULE TIMES-PLUS-LESSP-CANCEL ((NOT (LESSP K A)) (NOT (LESSP K B)) (LESSP A B)) (EQUAL (LESSP (PLUS A (TIMES I K)) (PLUS B (TIMES J K))) (IF (LESSP J I) (QUOTE *1*FALSE) (QUOTE *1*TRUE))) NIL) (REWRITE-RULE HEAD-SUB1-LESSP NIL (EQUAL (LESSP (SUB1 (HEAD X N)) X) (IF (EQUAL X (QUOTE 0)) (QUOTE *1*FALSE) (NUMBERP X))) NIL) (REWRITE-RULE BCDR-LESSP NIL (EQUAL (LESSP (BCDR X) Y) (LESSP X (TIMES (QUOTE 2) Y))) NIL) (REWRITE-RULE TIMES-LESSP_4 ((NOT (LESSP (EXP (QUOTE 2) (SUB1 N)) X)) (NOT (LESSP (EXP (QUOTE 2) (SUB1 N)) Y)) (NUMBERP N) (NOT (EQUAL N (QUOTE 0)))) (EQUAL (LESSP (EXP (QUOTE 2) (SUB1 (PLUS N N))) (TIMES X Y)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE TIMES-LESSP_3 ((NOT (LESSP (EXP (QUOTE 2) (SUB1 N)) X)) (NOT (LESSP (EXP (QUOTE 2) (SUB1 N)) Y)) (NUMBERP N) (NOT (EQUAL N (QUOTE 0)))) (EQUAL (LESSP (TIMES X Y) (EXP (QUOTE 2) (SUB1 (PLUS N N)))) (QUOTE *1*TRUE)) NIL) (REWRITE-RULE ASR-INT-CROCK ((LESSP X (EXP (QUOTE 2) N)) (NOT (LESSP X (EXP (QUOTE 2) (SUB1 N)))) (NOT (LESSP N CNT))) (EQUAL (LESSP (APP (DIFFERENCE N CNT) (QUOTIENT X (EXP (QUOTE 2) CNT)) (SUB1 (EXP (QUOTE 2) CNT))) (EXP (QUOTE 2) (SUB1 N))) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE LESSP-APP-1S ((EQUAL (PLUS M N) (FIX K))) (EQUAL (LESSP (APP M X (SUB1 (EXP (QUOTE 2) N))) (EXP (QUOTE 2) (SUB1 K))) (IF (EQUAL N (QUOTE 0)) (LESSP (HEAD X M) (EXP (QUOTE 2) (SUB1 (PLUS M N)))) (IF (NUMBERP N) (QUOTE *1*FALSE) (LESSP (HEAD X M) (EXP (QUOTE 2) (SUB1 (PLUS M N))))))) NIL) (REWRITE-RULE LESSP-TIMES-EXP-1S ((EQUAL (PLUS M N) (FIX K))) (EQUAL (LESSP (PLUS X (TIMES (EXP (QUOTE 2) M) (SUB1 (EXP (QUOTE 2) N)))) (EXP (QUOTE 2) (SUB1 K))) (IF (EQUAL N (QUOTE 0)) (LESSP X (EXP (QUOTE 2) (SUB1 (PLUS M N)))) (IF (NUMBERP N) (QUOTE *1*FALSE) (LESSP X (EXP (QUOTE 2) (SUB1 (PLUS M N))))))) NIL) (REWRITE-RULE QUOTIENT-EXP-LESSP ((NOT (LESSP N CNT))) (EQUAL (LESSP (QUOTIENT X (EXP (QUOTE 2) CNT)) (EXP (QUOTE 2) (DIFFERENCE N CNT))) (LESSP X (EXP (QUOTE 2) N))) NIL) (REWRITE-RULE TAIL-LESSP NIL (EQUAL (LESSP (TAIL X N) Y) (LESSP X (TIMES (EXP (QUOTE 2) N) Y))) NIL) (REWRITE-RULE TIMES-LESSP ((NOT (LESSP Z X))) (EQUAL (LESSP X (TIMES Y Z)) (IF (EQUAL Y (QUOTE 0)) (QUOTE *1*FALSE) (IF (NUMBERP Y) (IF (EQUAL Z (QUOTE 0)) (QUOTE *1*FALSE) (IF (NUMBERP Z) (IF (EQUAL Y (QUOTE 1)) (LESSP X Z) (QUOTE *1*TRUE)) (QUOTE *1*FALSE))) (QUOTE *1*FALSE)))) NIL) (REWRITE-RULE LESSP-PLUS-EXP2 ((LESSP X (EXP (QUOTE 2) I))) (EQUAL (LESSP (PLUS X (EXP (QUOTE 2) I)) (EXP (QUOTE 2) N)) (LESSP I N)) NIL) (REWRITE-RULE LESSP-PLUS-TIMES-EXP2 ((LESSP X (EXP (QUOTE 2) I))) (EQUAL (LESSP (PLUS X (TIMES Y (EXP (QUOTE 2) I))) (EXP (QUOTE 2) N)) (IF (EQUAL Y (QUOTE 0)) (LESSP X (EXP (QUOTE 2) N)) (IF (NUMBERP Y) (LESSP Y (EXP (QUOTE 2) (DIFFERENCE N I))) (LESSP X (EXP (QUOTE 2) N))))) NIL) (REWRITE-RULE QUOTIENT-TIMES-LESSP NIL (EQUAL (LESSP (QUOTIENT X Z) Y) (IF (EQUAL Z (QUOTE 0)) (IF (EQUAL Y (QUOTE 0)) (QUOTE *1*FALSE) (NUMBERP Y)) (IF (NUMBERP Z) (LESSP X (TIMES Z Y)) (IF (EQUAL Y (QUOTE 0)) (QUOTE *1*FALSE) (NUMBERP Y))))) NIL) (REWRITE-RULE TIMES-PLUS-LESSP ((LESSP X D)) (EQUAL (LESSP (PLUS X (TIMES B D)) (TIMES C D)) (LESSP B C)) NIL) (REWRITE-RULE QUOTIENT-LESSP NIL (EQUAL (LESSP (QUOTIENT M N) M) (IF (EQUAL M (QUOTE 0)) (QUOTE *1*FALSE) (IF (NUMBERP M) (IF (EQUAL N (QUOTE 0)) (QUOTE *1*TRUE) (IF (NUMBERP N) (IF (EQUAL N (QUOTE 1)) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (QUOTE *1*TRUE))) (QUOTE *1*FALSE)))) NIL) (REWRITE-RULE REMAINDER-LESSP NIL (EQUAL (LESSP (REMAINDER X Y) Y) (IF (EQUAL Y (QUOTE 0)) (QUOTE *1*FALSE) (NUMBERP Y))) NIL) (REWRITE-RULE TIMES-EXP2-LESSP NIL (EQUAL (LESSP (TIMES I (EXP (QUOTE 2) J)) (EXP (QUOTE 2) K)) (LESSP I (EXP (QUOTE 2) (DIFFERENCE K J)))) NIL) (REWRITE-RULE EXP-LESSP NIL (EQUAL (LESSP (EXP X Y) (EXP X Z)) (IF (EQUAL X (QUOTE 0)) (IF (EQUAL Y (QUOTE 0)) (QUOTE *1*FALSE) (IF (NUMBERP Y) (IF (EQUAL Z (QUOTE 0)) (QUOTE *1*TRUE) (IF (NUMBERP Z) (QUOTE *1*FALSE) (QUOTE *1*TRUE))) (QUOTE *1*FALSE))) (IF (NUMBERP X) (IF (EQUAL X (QUOTE 1)) (QUOTE *1*FALSE) (LESSP Y Z)) (IF (EQUAL Y (QUOTE 0)) (QUOTE *1*FALSE) (IF (NUMBERP Y) (IF (EQUAL Z (QUOTE 0)) (QUOTE *1*TRUE) (IF (NUMBERP Z) (QUOTE *1*FALSE) (QUOTE *1*TRUE))) (QUOTE *1*FALSE)))))) NIL) (REWRITE-RULE EXP-OF-2-1 NIL (EQUAL (LESSP (QUOTE 1) (EXP (QUOTE 2) N)) (IF (EQUAL N (QUOTE 0)) (QUOTE *1*FALSE) (NUMBERP N))) NIL) (REWRITE-RULE CORRECTNESS-OF-CANCEL-LESSP-TIMES NIL *1*CANCEL-LESSP-TIMES NIL) (REWRITE-RULE LESSP-1-TIMES-TREE-DELETE ((MEMBER W X)) (EQUAL (LESSP (QUOTE 1) (EVAL$ (QUOTE *1*TRUE) (TIMES-TREE (DELETE W X)) A)) (IF (EQUAL (EVAL$ (QUOTE *1*TRUE) W A) (QUOTE 0)) (LESSP-1-TIMES-TREE-DELETE-END W X A) (IF (NUMBERP (EVAL$ (QUOTE *1*TRUE) W A)) (LESSP (EVAL$ (QUOTE *1*TRUE) W A) (EVAL$ (QUOTE *1*TRUE) (TIMES-TREE X) A)) (LESSP-1-TIMES-TREE-DELETE-END W X A)))) NIL) (REWRITE-RULE ZEROP-MAKES-LESSP-FALSE-BRIDGE ((NOT (EVAL$ (QUOTE *1*TRUE) (AND-NOT-ZEROP-TREE (BAGINT (TIMES-FRINGE (CONS (QUOTE TIMES) X)) (TIMES-FRINGE (CONS (QUOTE TIMES) Y)))) A))) (EQUAL (LESSP (TIMES (EVAL$ (QUOTE *1*TRUE) (CAR X) A) (EVAL$ (QUOTE *1*TRUE) (CAR (CDR X)) A)) (TIMES (EVAL$ (QUOTE *1*TRUE) (CAR Y) A) (EVAL$ (QUOTE *1*TRUE) (CAR (CDR Y)) A))) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE EVAL$-LESSP-TIMES-TREE-BAGDIFF ((EVAL$ (QUOTE *1*TRUE) (AND-NOT-ZEROP-TREE X) A) (SUBBAGP X Y) (SUBBAGP X Z)) (EQUAL (LESSP (EVAL$ (QUOTE *1*TRUE) (TIMES-TREE (BAGDIFF Y X)) A) (EVAL$ (QUOTE *1*TRUE) (TIMES-TREE (BAGDIFF Z X)) A)) (LESSP (EVAL$ (QUOTE *1*TRUE) (TIMES-TREE Y) A) (EVAL$ (QUOTE *1*TRUE) (TIMES-TREE Z) A))) NIL) (REWRITE-RULE TIMES2-ADD1-LESSP-CANCEL NIL (EQUAL (LESSP (ADD1 (TIMES (QUOTE 2) I)) (TIMES (QUOTE 2) J)) (LESSP I J)) NIL) (REWRITE-RULE TIMES-LESSP-CANCEL-1 NIL (EQUAL (LESSP (TIMES X Y) (PLUS X (TIMES X Z))) (IF (EQUAL X (QUOTE 0)) (QUOTE *1*FALSE) (IF (NUMBERP X) (IF (LESSP Z Y) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (QUOTE *1*FALSE)))) NIL) (REWRITE-RULE TIMES-LESSP-CANCEL NIL (EQUAL (LESSP (TIMES X Y) (TIMES X Z)) (IF (EQUAL X (QUOTE 0)) (QUOTE *1*FALSE) (IF (NUMBERP X) (LESSP Y Z) (QUOTE *1*FALSE)))) NIL) (REWRITE-RULE TIMES-LESSP-CANCEL0 NIL (EQUAL (LESSP X (TIMES X Y)) (IF (EQUAL X (QUOTE 0)) (QUOTE *1*FALSE) (IF (NUMBERP X) (IF (EQUAL Y (QUOTE 0)) (QUOTE *1*FALSE) (IF (NUMBERP Y) (IF (EQUAL Y (QUOTE 1)) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (QUOTE *1*FALSE))) (QUOTE *1*FALSE)))) NIL) (REWRITE-RULE TIMES-LESSP-CANCEL0 NIL (EQUAL (LESSP (TIMES X Y) X) (IF (EQUAL X (QUOTE 0)) (QUOTE *1*FALSE) (IF (NUMBERP X) (IF (EQUAL Y (QUOTE 0)) (QUOTE *1*TRUE) (IF (NUMBERP Y) (QUOTE *1*FALSE) (QUOTE *1*TRUE))) (QUOTE *1*FALSE)))) NIL) (REWRITE-RULE TIMES-LESSP-1 NIL (EQUAL (LESSP (QUOTE 1) (TIMES X Y)) (IF (EQUAL X (QUOTE 0)) (QUOTE *1*FALSE) (IF (NUMBERP X) (IF (EQUAL Y (QUOTE 0)) (QUOTE *1*FALSE) (IF (NUMBERP Y) (IF (EQUAL X (QUOTE 1)) (IF (EQUAL Y (QUOTE 1)) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (QUOTE *1*TRUE)) (QUOTE *1*FALSE))) (QUOTE *1*FALSE)))) NIL) (REWRITE-RULE TIMES-LESSP-0 NIL (EQUAL (LESSP (QUOTE 0) (TIMES X Y)) (IF (LESSP (QUOTE 0) X) (LESSP (QUOTE 0) Y) (QUOTE *1*FALSE))) NIL) (REWRITE-RULE PLUS-LESSP-CANCEL-2 NIL (EQUAL (LESSP (PLUS Y X) (PLUS X Z)) (LESSP Y Z)) NIL) (REWRITE-RULE CORRECTNESS-OF-CANCEL-LESSP-PLUS NIL *1*CANCEL-LESSP-PLUS NIL) (REWRITE-RULE BRIDGE-TO-SUBBAGP-IMPLIES-PLUS-TREE-GEQ ((SUBBAGP Y (PLUS-FRINGE Z)) (EQUAL (EVAL$ (QUOTE *1*TRUE) Z A) (EVAL$ (QUOTE *1*TRUE) (PLUS-TREE (PLUS-FRINGE Z)) A))) (EQUAL (LESSP (EVAL$ (QUOTE *1*TRUE) Z A) (EVAL$ (QUOTE *1*TRUE) (PLUS-TREE Y) A)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE DIFFERENCE-LESSP-CANCEL NIL (EQUAL (LESSP (DIFFERENCE A C) (DIFFERENCE B C)) (IF (LESSP A C) (LESSP C B) (LESSP A B))) NIL) (REWRITE-RULE DIFFERENCE-LESSP1 ((LESSP X Z)) (EQUAL (LESSP (DIFFERENCE X Y) Z) (QUOTE *1*TRUE)) NIL) (REWRITE-RULE DIFFERENCE-LESSP NIL (EQUAL (LESSP (DIFFERENCE M N) M) (IF (EQUAL M (QUOTE 0)) (QUOTE *1*FALSE) (IF (NUMBERP M) (IF (EQUAL N (QUOTE 0)) (QUOTE *1*FALSE) (NUMBERP N)) (QUOTE *1*FALSE)))) NIL) (REWRITE-RULE PLUS-LESSP-CANCEL-ADD1 NIL (EQUAL (LESSP (PLUS Y X) (ADD1 Y)) (IF (EQUAL X (QUOTE 0)) (QUOTE *1*TRUE) (IF (NUMBERP X) (QUOTE *1*FALSE) (QUOTE *1*TRUE)))) NIL) (REWRITE-RULE PLUS-LESSP-CANCEL-1 NIL (EQUAL (LESSP (PLUS X Y) (PLUS X Z)) (LESSP Y Z)) NIL) (REWRITE-RULE PLUS-LESSP-CANCEL-0 NIL (EQUAL (LESSP X (PLUS X Y)) (IF (EQUAL Y (QUOTE 0)) (QUOTE *1*FALSE) (NUMBERP Y))) NIL) (REWRITE-RULE LESSP-SUB1 NIL (EQUAL (LESSP (SUB1 X) X) (IF (EQUAL X (QUOTE 0)) (QUOTE *1*FALSE) (NUMBERP X))) NIL) (REWRITE-RULE LESSP-OF-1 NIL (EQUAL (LESSP X (QUOTE 1)) (IF (EQUAL X (QUOTE 0)) (QUOTE *1*TRUE) (IF (NUMBERP X) (QUOTE *1*FALSE) (QUOTE *1*TRUE)))) NIL)) TOTALP-LST ((LESSP . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE) SDEFN (LAMBDA (X Y) (IF (EQUAL Y (QUOTE 0)) (QUOTE *1*FALSE) (IF (NUMBERP Y) (IF (EQUAL X (QUOTE 0)) (QUOTE *1*TRUE) (IF (NUMBERP X) (LESSP (SUB1 X) (SUB1 Y)) (QUOTE *1*TRUE))) (QUOTE *1*FALSE)))) LISP-CODE *1*LESSP SUBRP *1*TRUE INDUCTION-MACHINE ((TESTS-AND-CASES ((OR (EQUAL Y (QUOTE 0)) (NOT (NUMBERP Y)))) NIL) (TESTS-AND-CASES ((NOT (OR (EQUAL Y (QUOTE 0)) (NOT (NUMBERP Y)))) (OR (EQUAL X (QUOTE 0)) (NOT (NUMBERP X)))) NIL) (TESTS-AND-CASES ((NOT (OR (EQUAL Y (QUOTE 0)) (NOT (NUMBERP Y)))) (NOT (OR (EQUAL X (QUOTE 0)) (NOT (NUMBERP X))))) (((SUB1 X) (SUB1 Y))))) LEVEL-NO 0 JUSTIFICATIONS ((JUSTIFICATION (X) (COUNT X) LESSP (SUB1-LESSP NOT OR ZERO SUB1-LESSEQP)) (JUSTIFICATION (Y) (COUNT Y) LESSP (SUB1-LESSP NOT OR ZERO SUB1-LESSEQP))) CONTROLLER-POCKETS (1 2) MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE COUNT-ADD1) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE SUB1-ELIM) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE ADD1-SUB1) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE ADD1-EQUAL) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE SUB1-LESSEQP) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE SUB1-LESSP) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE SUB1-TYPE-RESTRICTION) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE SUB1-NNUMBERP) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE SUB1-ADD1) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*ZERO) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE ZERO) (QUOTE (TYPE-PRESCRIPTION-LST ((ADD1 4)) TOTALP-LST ((ADD1 . T)) LISP-CODE *1*ZERO SUBRP *1*TRUE MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*SUB1) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE SUB1) (QUOTE (TYPE-PRESCRIPTION-LST ((ADD1 4 NIL)) LEMMAS ((REWRITE-RULE DIFFERENCE-SUB1-SUB1 NIL (EQUAL (SUB1 (DIFFERENCE X (SUB1 Y))) (IF (EQUAL Y (QUOTE 0)) (SUB1 X) (IF (NUMBERP Y) (IF (LESSP X Y) (QUOTE 0) (DIFFERENCE X Y)) (SUB1 X)))) NIL) (REWRITE-RULE SUB1-NNUMBERP ((NOT (NUMBERP X))) (EQUAL (SUB1 X) (QUOTE 0)) NIL) (REWRITE-RULE SUB1-ADD1 NIL (EQUAL (SUB1 (ADD1 SUB1)) (IF (NUMBERP SUB1) SUB1 (QUOTE 0))) NIL)) TOTALP-LST ((ADD1 . T)) LISP-CODE *1*SUB1 SUBRP *1*TRUE ELIMINATE-DESTRUCTORS-SEQ (REWRITE-RULE SUB1-ELIM ((NUMBERP X) (NOT (EQUAL X (QUOTE 0)))) (EQUAL (ADD1 (SUB1 X)) X) NIL) ELIMINATE-DESTRUCTORS-DESTS ((SUB1 X)) MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*NUMBERP) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE NUMBERP) (QUOTE (TYPE-PRESCRIPTION-LST ((ADD1 3 NIL)) LEMMAS ((REWRITE-RULE GET-LST-OF-CHRP ((LST-OF-CHRP LST)) (NUMBERP (GET-NTH I LST)) NIL) (REWRITE-RULE MEM-LST-NUMBERP ((MEM-LST OPSZ A MEM N LST)) (NUMBERP (GET-NTH I LST)) NIL) (REWRITE-RULE NUMBERP-EVAL$-ADD-TREE NIL (NUMBERP (EVAL$ (QUOTE *1*TRUE) (ADD-TREE N L) A)) NIL) (REWRITE-RULE NUMBERP-EVAL$-ADD ((EQUAL (CAR X) (QUOTE ADD))) (NUMBERP (EVAL$ (QUOTE *1*TRUE) X A)) NIL) (REWRITE-RULE EVAL$-TIMES-TREE-NUMBERP NIL (NUMBERP (EVAL$ (QUOTE *1*TRUE) (TIMES-TREE X) A)) NIL) (REWRITE-RULE NUMBERP-EVAL$-TIMES ((EQUAL (CAR X) (QUOTE TIMES))) (NUMBERP (EVAL$ (QUOTE *1*TRUE) X A)) NIL) (REWRITE-RULE MEMBER-IMPLIES-NUMBERP ((MEMBER C (PLUS-FRINGE X)) (NUMBERP (EVAL$ (QUOTE *1*TRUE) C A))) (NUMBERP (EVAL$ (QUOTE *1*TRUE) X A)) NIL) (REWRITE-RULE NUMBERP-EVAL$-BRIDGE ((EQUAL (EVAL$ (QUOTE *1*TRUE) Z A) (EVAL$ (QUOTE *1*TRUE) (PLUS-TREE X) A))) (NUMBERP (EVAL$ (QUOTE *1*TRUE) Z A)) NIL) (REWRITE-RULE NUMBERP-EVAL$-PLUS-TREE NIL (NUMBERP (EVAL$ (QUOTE *1*TRUE) (PLUS-TREE L) A)) NIL) (REWRITE-RULE NUMBERP-EVAL$-PLUS ((EQUAL (CAR X) (QUOTE PLUS))) (NUMBERP (EVAL$ (QUOTE *1*TRUE) X A)) NIL)) TOTALP-LST ((ADD1 . T)) LISP-CODE *1*NUMBERP SUBRP *1*TRUE MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*ADD1) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE ADD1) (QUOTE (TYPE-PRESCRIPTION-LST ((ADD1 4 NIL)) LEMMAS ((REWRITE-RULE PLUS-ADD1-SUB1 ((NUMBERP Y) (NOT (EQUAL Y (QUOTE 0)))) (EQUAL (ADD1 (PLUS X (SUB1 Y))) (PLUS X Y)) NIL) (REWRITE-RULE TIMES-ADD1-SUB1 NIL (EQUAL (ADD1 (TIMES A (SUB1 B))) (IF (EQUAL A (QUOTE 0)) (QUOTE 1) (IF (NUMBERP A) (IF (EQUAL B (QUOTE 0)) (QUOTE 1) (IF (NUMBERP B) (DIFFERENCE (TIMES A B) (SUB1 A)) (QUOTE 1))) (QUOTE 1)))) NIL) (REWRITE-RULE ADD1-SUB1 NIL (EQUAL (ADD1 (SUB1 X)) (IF (NUMBERP X) (IF (EQUAL X (QUOTE 0)) (QUOTE 1) X) (QUOTE 1))) NIL) (REWRITE-RULE SUB1-TYPE-RESTRICTION ((NOT (NUMBERP SUB1))) (EQUAL (ADD1 SUB1) (QUOTE 1)) NIL)) TOTALP-LST ((ADD1 . T)) LISP-CODE *1*ADD1 SUBRP *1*TRUE TYPE-RESTRICTIONS ((TYPE-RESTRICTION (NUMBERP X) 4 (ZERO))) MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*IMPLIES) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE IMPLIES) (QUOTE (TYPE-PRESCRIPTION-LST ((IMPLIES 3 NIL NIL)) TOTALP-LST ((IMPLIES . T)) SDEFN (LAMBDA (P Q) (IF P (IF Q (QUOTE *1*TRUE) (QUOTE *1*FALSE)) (QUOTE *1*TRUE))) LISP-CODE *1*IMPLIES SUBRP *1*TRUE LEVEL-NO 0 MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*OR) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE OR) (QUOTE (TYPE-PRESCRIPTION-LST ((OR 3 NIL NIL)) TOTALP-LST ((OR . T)) SDEFN (LAMBDA (P Q) (IF P (QUOTE *1*TRUE) (IF Q (QUOTE *1*TRUE) (QUOTE *1*FALSE)))) LISP-CODE *1*OR SUBRP *1*TRUE LEVEL-NO 0 MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*AND) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE AND) (QUOTE (TYPE-PRESCRIPTION-LST ((AND 3 NIL NIL)) TOTALP-LST ((AND . T)) SDEFN (LAMBDA (P Q) (IF P (IF Q (QUOTE *1*TRUE) (QUOTE *1*FALSE)) (QUOTE *1*FALSE))) LISP-CODE *1*AND SUBRP *1*TRUE LEVEL-NO 0 MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*NOT) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE NOT) (QUOTE (TYPE-PRESCRIPTION-LST ((NOT 3 NIL)) TOTALP-LST ((NOT . T)) SDEFN (LAMBDA (P) (IF P (QUOTE *1*FALSE) (QUOTE *1*TRUE))) LISP-CODE *1*NOT SUBRP *1*TRUE LEVEL-NO 0 MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*TRUEP) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE TRUEP) (QUOTE (TYPE-PRESCRIPTION-LST ((TRUE 3 NIL)) TOTALP-LST ((TRUE . T)) LISP-CODE *1*TRUEP SUBRP *1*TRUE MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*TRUE) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE TRUE) (QUOTE (TYPE-PRESCRIPTION-LST ((TRUE 2)) TOTALP-LST ((TRUE . T)) LISP-CODE *1*TRUE SUBRP *1*TRUE MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*FALSEP) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE FALSEP) (QUOTE (TYPE-PRESCRIPTION-LST ((FALSE 3 NIL)) TOTALP-LST ((FALSE . T)) LISP-CODE *1*FALSEP SUBRP *1*TRUE MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*FALSE) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE FALSE) (QUOTE (TYPE-PRESCRIPTION-LST ((FALSE 1)) TOTALP-LST ((FALSE . T)) LISP-CODE *1*FALSE SUBRP *1*TRUE MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*COUNT) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE COUNT) (QUOTE (TYPE-PRESCRIPTION-LST ((GROUND-ZERO 4 NIL)) LEMMAS ((REWRITE-RULE COUNT-MINUS NIL (EQUAL (COUNT (MINUS NEGATIVE-GUTS)) (IF (NUMBERP NEGATIVE-GUTS) (ADD1 (COUNT NEGATIVE-GUTS)) (QUOTE 1))) NIL) (REWRITE-RULE COUNT-CONS NIL (EQUAL (COUNT (CONS CAR CDR)) (ADD1 (PLUS (COUNT CAR) (COUNT CDR)))) NIL) (REWRITE-RULE COUNT-PACK NIL (EQUAL (COUNT (PACK UNPACK)) (ADD1 (COUNT UNPACK))) NIL) (REWRITE-RULE COUNT-NUMBERP ((NUMBERP I)) (EQUAL (COUNT I) I) NIL) (REWRITE-RULE COUNT-ADD1 NIL (EQUAL (COUNT (ADD1 SUB1)) (IF (NUMBERP SUB1) (ADD1 (COUNT SUB1)) (QUOTE 1))) NIL)) TOTALP-LST ((GROUND-ZERO . T)) LINEAR-LEMMAS ((LINEAR-LEMMA NEGATIVE-GUTS-LESSEQP NIL (NOT (LESSP (COUNT X) (COUNT (NEGATIVE-GUTS X)))) (COUNT (NEGATIVE-GUTS X))) (LINEAR-LEMMA NEGATIVE-GUTS-LESSP ((NEGATIVEP X)) (LESSP (COUNT (NEGATIVE-GUTS X)) (COUNT X)) (COUNT (NEGATIVE-GUTS X))) (LINEAR-LEMMA CDR-LESSEQP NIL (NOT (LESSP (COUNT X) (COUNT (CDR X)))) (COUNT (CDR X))) (LINEAR-LEMMA CDR-LESSP ((LISTP X)) (LESSP (COUNT (CDR X)) (COUNT X)) (COUNT (CDR X))) (LINEAR-LEMMA CAR-LESSEQP NIL (NOT (LESSP (COUNT X) (COUNT (CAR X)))) (COUNT (CAR X))) (LINEAR-LEMMA CAR-LESSP ((LISTP X)) (LESSP (COUNT (CAR X)) (COUNT X)) (COUNT (CAR X))) (LINEAR-LEMMA UNPACK-LESSEQP NIL (NOT (LESSP (COUNT X) (COUNT (UNPACK X)))) (COUNT (UNPACK X))) (LINEAR-LEMMA UNPACK-LESSP ((LITATOM X)) (LESSP (COUNT (UNPACK X)) (COUNT X)) (COUNT (UNPACK X))) (LINEAR-LEMMA COUNT-NOT-LESSP NIL (NOT (LESSP (COUNT I) I)) (COUNT I)) (LINEAR-LEMMA SUB1-LESSEQP NIL (NOT (LESSP (COUNT X) (COUNT (SUB1 X)))) (COUNT (SUB1 X))) (LINEAR-LEMMA SUB1-LESSP ((NUMBERP X) (NOT (EQUAL X (QUOTE 0)))) (LESSP (COUNT (SUB1 X)) (COUNT X)) (COUNT (SUB1 X)))) LISP-CODE *1*COUNT SUBRP *1*TRUE MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE QUOTE) (QUOTE (SUBRP *1*FALSE MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*EQUAL) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE EQUAL) (QUOTE (TYPE-PRESCRIPTION-LST ((GROUND-ZERO 3 NIL NIL)) LEMMAS ((REWRITE-RULE DIFFERENCE-IS-1 NIL (EQUAL (EQUAL (DIFFERENCE X Y) (QUOTE 1)) (EQUAL X (ADD1 Y))) NIL) (REWRITE-RULE IQUOTIENT=0 ((INTEGERP Y) (NOT (EQUAL Y (QUOTE 0)))) (EQUAL (EQUAL (IQUOTIENT X Y) (QUOTE 0)) (LESSP (ABS X) (ABS Y))) NIL) (REWRITE-RULE CORRECTNESS-OF-CANCEL-EQUAL-ADD NIL *1*CANCEL-EQUAL-ADD NIL) (REWRITE-RULE ADD-TREE-BAGDIFF ((SUBBAGP X Y) (SUBBAGP X Z)) (EQUAL (EQUAL (EVAL$ (QUOTE *1*TRUE) (ADD-TREE N (BAGDIFF Y X)) A) (EVAL$ (QUOTE *1*TRUE) (ADD-TREE N (BAGDIFF Z X)) A)) (EQUAL (EVAL$ (QUOTE *1*TRUE) (ADD-TREE N Y) A) (EVAL$ (QUOTE *1*TRUE) (ADD-TREE N Z) A))) NIL) (REWRITE-RULE ADD-EQUAL-CANCEL-1 NIL (EQUAL (EQUAL (ADD N A B) (ADD N C (ADD N A D))) (EQUAL (HEAD B N) (ADD N C D))) NIL) (REWRITE-RULE ADD-NEG-0 ((NAT-RANGEP X N) (NAT-RANGEP Y N)) (EQUAL (EQUAL (ADD N Y (NEG N X)) (QUOTE 0)) (IF (NUMBERP X) (IF (NUMBERP Y) (EQUAL X Y) (EQUAL X (QUOTE 0))) (IF (NUMBERP Y) (EQUAL (QUOTE 0) Y) (QUOTE *1*TRUE)))) NIL) (REWRITE-RULE EXT-EQUAL-0 ((NOT (LESSP SIZE N)) (NUMBERP N) (NOT (EQUAL N (QUOTE 0)))) (EQUAL (EQUAL (EXT N X SIZE) (QUOTE 0)) (EQUAL (HEAD X N) (QUOTE 0))) NIL) (REWRITE-RULE EXT-EQUAL ((NOT (LESSP SIZE N)) (NUMBERP N) (NOT (EQUAL N (QUOTE 0)))) (EQUAL (EQUAL (EXT N X SIZE) (EXT N Y SIZE)) (EQUAL (HEAD X N) (HEAD Y N))) NIL) (REWRITE-RULE HEAD-APP-CANCEL NIL (EQUAL (EQUAL (HEAD X N) (APP N X1 Y1)) (IF (EQUAL (HEAD X N) (HEAD X1 N)) (IF (EQUAL Y1 (QUOTE 0)) (QUOTE *1*TRUE) (IF (NUMBERP Y1) (QUOTE *1*FALSE) (QUOTE *1*TRUE))) (QUOTE *1*FALSE))) NIL) (REWRITE-RULE APP-CANCEL NIL (EQUAL (EQUAL (APP N X Y) (APP N X1 Y1)) (IF (EQUAL (HEAD X N) (HEAD X1 N)) (IF (NUMBERP Y) (IF (NUMBERP Y1) (EQUAL Y Y1) (EQUAL Y (QUOTE 0))) (IF (NUMBERP Y1) (EQUAL (QUOTE 0) Y1) (QUOTE *1*TRUE))) (QUOTE *1*FALSE))) NIL) (REWRITE-RULE PLUS-TIMES-EQUAL ((LESSP A K) (LESSP B K)) (EQUAL (EQUAL (PLUS A (TIMES I K)) (PLUS B (TIMES J K))) (IF (NUMBERP A) (IF (NUMBERP B) (IF (EQUAL A B) (IF (NUMBERP I) (IF (NUMBERP J) (EQUAL I J) (EQUAL I (QUOTE 0))) (IF (NUMBERP J) (EQUAL (QUOTE 0) J) (QUOTE *1*TRUE))) (QUOTE *1*FALSE)) (IF (EQUAL A (QUOTE 0)) (IF (NUMBERP I) (IF (NUMBERP J) (EQUAL I J) (EQUAL I (QUOTE 0))) (IF (NUMBERP J) (EQUAL (QUOTE 0) J) (QUOTE *1*TRUE))) (QUOTE *1*FALSE))) (IF (NUMBERP B) (IF (EQUAL (QUOTE 0) B) (IF (NUMBERP I) (IF (NUMBERP J) (EQUAL I J) (EQUAL I (QUOTE 0))) (IF (NUMBERP J) (EQUAL (QUOTE 0) J) (QUOTE *1*TRUE))) (QUOTE *1*FALSE)) (IF (NUMBERP I) (IF (NUMBERP J) (EQUAL I J) (EQUAL I (QUOTE 0))) (IF (NUMBERP J) (EQUAL (QUOTE 0) J) (QUOTE *1*TRUE)))))) NIL) (REWRITE-RULE LOGEOR-EQUAL-0 NIL (EQUAL (EQUAL (LOGEOR X Y) (QUOTE 0)) (IF (NUMBERP X) (IF (NUMBERP Y) (EQUAL X Y) (EQUAL X (QUOTE 0))) (IF (NUMBERP Y) (EQUAL (QUOTE 0) Y) (QUOTE *1*TRUE)))) NIL) (REWRITE-RULE LOGOR-EQUAL-0 NIL (EQUAL (EQUAL (LOGOR X Y) (QUOTE 0)) (IF (EQUAL X (QUOTE 0)) (IF (EQUAL Y (QUOTE 0)) (QUOTE *1*TRUE) (IF (NUMBERP Y) (QUOTE *1*FALSE) (QUOTE *1*TRUE))) (IF (NUMBERP X) (QUOTE *1*FALSE) (IF (EQUAL Y (QUOTE 0)) (QUOTE *1*TRUE) (IF (NUMBERP Y) (QUOTE *1*FALSE) (QUOTE *1*TRUE)))))) NIL) (REWRITE-RULE HEAD-PLUS-CANCEL NIL (EQUAL (EQUAL (HEAD (PLUS X Y) N) (HEAD (PLUS X Z) N)) (EQUAL (HEAD Y N) (HEAD Z N))) NIL) (REWRITE-RULE HEAD-PLUS-CANCEL0 NIL (EQUAL (EQUAL (HEAD (PLUS I J) N) (HEAD I N)) (EQUAL (HEAD J N) (QUOTE 0))) NIL) (REWRITE-RULE SUB-CANCEL ((NAT-RANGEP Y N) (NAT-RANGEP Z N)) (EQUAL (EQUAL (SUB N Y X) (SUB N Z X)) (IF (NUMBERP Y) (IF (NUMBERP Z) (EQUAL Y Z) (EQUAL Y (QUOTE 0))) (IF (NUMBERP Z) (EQUAL (QUOTE 0) Z) (QUOTE *1*TRUE)))) NIL) (REWRITE-RULE ADD-CANCEL NIL (EQUAL (EQUAL (ADD N X Y) (ADD N X Z)) (EQUAL (HEAD Y N) (HEAD Z N))) NIL) (REWRITE-RULE ADDER-CANCEL NIL (EQUAL (EQUAL (ADDER N C X Y) (ADDER N C X Z)) (EQUAL (HEAD Y N) (HEAD Z N))) NIL) (REWRITE-RULE SUB-CANCEL0 ((NAT-RANGEP X N) (NAT-RANGEP Y N)) (EQUAL (EQUAL (SUB N Y X) X) (IF (NUMBERP X) (IF (EQUAL Y (QUOTE 0)) (QUOTE *1*TRUE) (IF (NUMBERP Y) (QUOTE *1*FALSE) (QUOTE *1*TRUE))) (QUOTE *1*FALSE))) NIL) (REWRITE-RULE ADD-CANCEL0 NIL (EQUAL (EQUAL (ADD N X Y) X) (IF (NUMBERP X) (IF (NAT-RANGEP X N) (EQUAL (HEAD Y N) (QUOTE 0)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE))) NIL) (REWRITE-RULE SUB-EQUAL-0 ((NAT-RANGEP X N) (NAT-RANGEP Y N)) (EQUAL (EQUAL (SUB N X Y) (QUOTE 0)) (IF (NUMBERP X) (IF (NUMBERP Y) (EQUAL X Y) (EQUAL X (QUOTE 0))) (IF (NUMBERP Y) (EQUAL (QUOTE 0) Y) (QUOTE *1*TRUE)))) NIL) (REWRITE-RULE ADD-SUB-CANCEL ((NAT-RANGEP Y N) (NAT-RANGEP Z N)) (EQUAL (EQUAL (ADD N X Y) (SUB N Z X)) (EQUAL (ADD N Y Z) (QUOTE 0))) NIL) (REWRITE-RULE ITIMES-EQUAL-CANCELLATION ((NOT (IZEROP X))) (EQUAL (EQUAL (ITIMES X Y) (ITIMES X Z)) (EQUAL (FIX-INT Y) (FIX-INT Z))) NIL) (REWRITE-RULE ITIMES-EQUAL-0 NIL (EQUAL (EQUAL (ITIMES X Y) (QUOTE 0)) (IF (IZEROP X) (QUOTE *1*TRUE) (IZEROP Y))) NIL) (REWRITE-RULE NEGATIVEP-GUTS0 ((INTEGERP X) (NEGATIVEP X)) (NOT (EQUAL (NEGATIVE-GUTS X) (QUOTE 0))) NIL) (REWRITE-RULE INTEGERP-MINUS0 ((INTEGERP X)) (NOT (EQUAL X (QUOTE (*1*QUOTE MINUS 0)))) NIL) (REWRITE-RULE NAT-TO-INT= ((NAT-RANGEP X N) (NAT-RANGEP Y N)) (EQUAL (EQUAL (NAT-TO-INT X N) (NAT-TO-INT Y N)) (IF (NUMBERP X) (IF (NUMBERP Y) (EQUAL X Y) (EQUAL X (QUOTE 0))) (IF (NUMBERP Y) (EQUAL (QUOTE 0) Y) (QUOTE *1*TRUE)))) NIL) (REWRITE-RULE INT-TO-NAT=0 ((INT-RANGEP X N) (INTEGERP X)) (EQUAL (EQUAL (INT-TO-NAT X N) (QUOTE 0)) (EQUAL X (QUOTE 0))) NIL) (REWRITE-RULE TAIL-EQUAL-0 NIL (EQUAL (EQUAL (TAIL X N) (QUOTE 0)) (NAT-RANGEP X N)) NIL) (REWRITE-RULE LOGNOT-CANCEL ((NAT-RANGEP X N) (NAT-RANGEP Y N)) (EQUAL (EQUAL (LOGNOT N X) (LOGNOT N Y)) (IF (NUMBERP X) (IF (NUMBERP Y) (EQUAL X Y) (EQUAL X (QUOTE 0))) (IF (NUMBERP Y) (EQUAL (QUOTE 0) Y) (QUOTE *1*TRUE)))) NIL) (REWRITE-RULE BV-LEN-LISTP NIL (EQUAL (EQUAL (BV-LEN X) (QUOTE 0)) (IF (LISTP X) (QUOTE *1*FALSE) (QUOTE *1*TRUE))) NIL) (REWRITE-RULE LOG-EQUAL-0 NIL (EQUAL (EQUAL (LOG B X) (QUOTE 0)) (IF (EQUAL B (QUOTE 0)) (QUOTE *1*TRUE) (IF (NUMBERP B) (IF (EQUAL B (QUOTE 1)) (QUOTE *1*TRUE) (LESSP X B)) (QUOTE *1*TRUE)))) NIL) (REWRITE-RULE REMAINDER-PLUS-CANCEL NIL (EQUAL (EQUAL (REMAINDER (PLUS I J) N) (REMAINDER (PLUS I K) N)) (EQUAL (REMAINDER J N) (REMAINDER K N))) NIL) (REWRITE-RULE REMAINDER-PLUS-CANCEL0 NIL (EQUAL (EQUAL (REMAINDER (PLUS I J) N) I) (IF (EQUAL N (QUOTE 0)) (IF (NUMBERP I) (IF (EQUAL J (QUOTE 0)) (QUOTE *1*TRUE) (IF (NUMBERP J) (QUOTE *1*FALSE) (QUOTE *1*TRUE))) (QUOTE *1*FALSE)) (IF (NUMBERP N) (IF (LESSP I N) (IF (NUMBERP I) (EQUAL (REMAINDER J N) (QUOTE 0)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (IF (NUMBERP I) (IF (EQUAL J (QUOTE 0)) (QUOTE *1*TRUE) (IF (NUMBERP J) (QUOTE *1*FALSE) (QUOTE *1*TRUE))) (QUOTE *1*FALSE))))) NIL) (REWRITE-RULE QUOTIENT-EQUAL-0 NIL (EQUAL (EQUAL (QUOTIENT M N) (QUOTE 0)) (IF (EQUAL M (QUOTE 0)) (QUOTE *1*TRUE) (IF (NUMBERP M) (IF (EQUAL N (QUOTE 0)) (QUOTE *1*TRUE) (IF (NUMBERP N) (LESSP M N) (QUOTE *1*TRUE))) (QUOTE *1*TRUE)))) NIL) (REWRITE-RULE CORRECTNESS-OF-CANCEL-EQUAL-TIMES NIL *1*CANCEL-EQUAL-TIMES NIL) (REWRITE-RULE EQUAL-1-TIMES-TREE-DELETE ((MEMBER W X)) (EQUAL (EQUAL (EVAL$ (QUOTE *1*TRUE) (TIMES-TREE (DELETE W X)) A) (QUOTE 1)) (IF (EQUAL (EVAL$ (QUOTE *1*TRUE) W A) (QUOTE 0)) (EQUAL-1-EVAL$-TIMES-TREE-DELETE-END W X A) (IF (NUMBERP (EVAL$ (QUOTE *1*TRUE) W A)) (EQUAL (EVAL$ (QUOTE *1*TRUE) (TIMES-TREE X) A) (EVAL$ (QUOTE *1*TRUE) W A)) (EQUAL-1-EVAL$-TIMES-TREE-DELETE-END W X A)))) NIL) (REWRITE-RULE ZEROP-MAKES-EQUAL-TRUE-BRIDGE ((NOT (EVAL$ (QUOTE *1*TRUE) (AND-NOT-ZEROP-TREE (BAGINT (TIMES-FRINGE (CONS (QUOTE TIMES) X)) (TIMES-FRINGE (CONS (QUOTE TIMES) Y)))) A))) (EQUAL (EQUAL (TIMES (EVAL$ (QUOTE *1*TRUE) (CAR X) A) (EVAL$ (QUOTE *1*TRUE) (CAR (CDR X)) A)) (TIMES (EVAL$ (QUOTE *1*TRUE) (CAR Y) A) (EVAL$ (QUOTE *1*TRUE) (CAR (CDR Y)) A))) (QUOTE *1*TRUE)) NIL) (REWRITE-RULE EVAL$-EQUAL-TIMES-TREE-BAGDIFF ((EVAL$ (QUOTE *1*TRUE) (AND-NOT-ZEROP-TREE X) A) (SUBBAGP X Y) (SUBBAGP X Z)) (EQUAL (EQUAL (EVAL$ (QUOTE *1*TRUE) (TIMES-TREE (BAGDIFF Y X)) A) (EVAL$ (QUOTE *1*TRUE) (TIMES-TREE (BAGDIFF Z X)) A)) (EQUAL (EVAL$ (QUOTE *1*TRUE) (TIMES-TREE Y) A) (EVAL$ (QUOTE *1*TRUE) (TIMES-TREE Z) A))) NIL) (REWRITE-RULE TIMES-EQUAL-CANCEL NIL (EQUAL (EQUAL (TIMES X Y) (TIMES X Z)) (IF (EQUAL X (QUOTE 0)) (QUOTE *1*TRUE) (IF (NUMBERP X) (IF (NUMBERP Y) (IF (NUMBERP Z) (EQUAL Y Z) (EQUAL Y (QUOTE 0))) (IF (NUMBERP Z) (EQUAL (QUOTE 0) Z) (QUOTE *1*TRUE))) (QUOTE *1*TRUE)))) NIL) (REWRITE-RULE TIMES-EQUAL-CANCEL0 NIL (EQUAL (EQUAL (TIMES Y X) Y) (IF (NUMBERP Y) (IF (EQUAL Y (QUOTE 0)) (QUOTE *1*TRUE) (EQUAL X (QUOTE 1))) (QUOTE *1*FALSE))) NIL) (REWRITE-RULE TIMES-EQUAL-CANCEL0 NIL (EQUAL (EQUAL (TIMES X Y) Y) (IF (NUMBERP Y) (IF (EQUAL Y (QUOTE 0)) (QUOTE *1*TRUE) (EQUAL X (QUOTE 1))) (QUOTE *1*FALSE))) NIL) (REWRITE-RULE EQUAL-IFF ((BOOLEAN P) (BOOLEAN Q)) (EQUAL (EQUAL P Q) (IF P (IF Q (QUOTE *1*TRUE) (QUOTE *1*FALSE)) (IF Q (QUOTE *1*FALSE) (QUOTE *1*TRUE)))) NIL) (REWRITE-RULE TIMES-EQUAL-1 NIL (EQUAL (EQUAL (TIMES X Y) (QUOTE 1)) (IF (EQUAL X (QUOTE 1)) (EQUAL Y (QUOTE 1)) (QUOTE *1*FALSE))) NIL) (REWRITE-RULE TIMES-EQUAL-0 NIL (EQUAL (EQUAL (TIMES X Y) (QUOTE 0)) (IF (EQUAL X (QUOTE 0)) (QUOTE *1*TRUE) (IF (NUMBERP X) (IF (EQUAL Y (QUOTE 0)) (QUOTE *1*TRUE) (IF (NUMBERP Y) (QUOTE *1*FALSE) (QUOTE *1*TRUE))) (QUOTE *1*TRUE)))) NIL) (REWRITE-RULE CORRECTNESS-OF-CANCEL-EQUAL-PLUS NIL *1*CANCEL-EQUAL-PLUS NIL) (REWRITE-RULE DIFFERENCE-EQUAL-CANCEL-1 NIL (EQUAL (EQUAL (DIFFERENCE X Z) (DIFFERENCE Y Z)) (IF (LESSP X Z) (IF (LESSP Z Y) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (IF (LESSP Y Z) (IF (LESSP Z X) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (IF (NUMBERP X) (IF (NUMBERP Y) (EQUAL X Y) (EQUAL X (QUOTE 0))) (IF (NUMBERP Y) (EQUAL (QUOTE 0) Y) (QUOTE *1*TRUE)))))) NIL) (REWRITE-RULE DIFFERENCE-EQUAL-CANCEL-0 NIL (EQUAL (EQUAL X (DIFFERENCE X Y)) (IF (NUMBERP X) (IF (EQUAL X (QUOTE 0)) (QUOTE *1*TRUE) (IF (EQUAL Y (QUOTE 0)) (QUOTE *1*TRUE) (IF (NUMBERP Y) (QUOTE *1*FALSE) (QUOTE *1*TRUE)))) (QUOTE *1*FALSE))) NIL) (REWRITE-RULE DIFFERENCE=0 NIL (EQUAL (EQUAL (QUOTE 0) (DIFFERENCE X Y)) (IF (LESSP Y X) (QUOTE *1*FALSE) (QUOTE *1*TRUE))) NIL) (REWRITE-RULE SUB1-OF-1 NIL (EQUAL (EQUAL (SUB1 X) (QUOTE 0)) (IF (EQUAL X (QUOTE 0)) (QUOTE *1*TRUE) (IF (NUMBERP X) (EQUAL X (QUOTE 1)) (QUOTE *1*TRUE)))) NIL) (REWRITE-RULE PLUS-EQUAL-0 NIL (EQUAL (EQUAL (PLUS X Y) (QUOTE 0)) (IF (EQUAL X (QUOTE 0)) (IF (EQUAL Y (QUOTE 0)) (QUOTE *1*TRUE) (IF (NUMBERP Y) (QUOTE *1*FALSE) (QUOTE *1*TRUE))) (IF (NUMBERP X) (QUOTE *1*FALSE) (IF (EQUAL Y (QUOTE 0)) (QUOTE *1*TRUE) (IF (NUMBERP Y) (QUOTE *1*FALSE) (QUOTE *1*TRUE)))))) NIL) (REWRITE-RULE PLUS-EQUAL-CANCEL NIL (EQUAL (EQUAL (PLUS X Y) (PLUS X Z)) (IF (NUMBERP Y) (IF (NUMBERP Z) (EQUAL Y Z) (EQUAL Y (QUOTE 0))) (IF (NUMBERP Z) (EQUAL (QUOTE 0) Z) (QUOTE *1*TRUE)))) NIL) (REWRITE-RULE PLUS-EQUAL-CANCEL0 NIL (EQUAL (EQUAL (PLUS X Y) X) (IF (NUMBERP X) (IF (EQUAL Y (QUOTE 0)) (QUOTE *1*TRUE) (IF (NUMBERP Y) (QUOTE *1*FALSE) (QUOTE *1*TRUE))) (QUOTE *1*FALSE))) NIL) (REWRITE-RULE MINUS-EQUAL NIL (EQUAL (EQUAL (MINUS NEGATIVE-GUTS) (MINUS NEGATIVE-GUTS-)) (IF (NUMBERP NEGATIVE-GUTS) (IF (NUMBERP NEGATIVE-GUTS-) (EQUAL NEGATIVE-GUTS NEGATIVE-GUTS-) (EQUAL NEGATIVE-GUTS (QUOTE 0))) (IF (NUMBERP NEGATIVE-GUTS-) (EQUAL (QUOTE 0) NEGATIVE-GUTS-) (QUOTE *1*TRUE)))) NIL) (REWRITE-RULE CONS-EQUAL NIL (EQUAL (EQUAL (CONS CAR CDR) (CONS CAR- CDR-)) (IF (EQUAL CAR CAR-) (EQUAL CDR CDR-) (QUOTE *1*FALSE))) NIL) (REWRITE-RULE PACK-EQUAL NIL (EQUAL (EQUAL (PACK UNPACK) (PACK UNPACK-)) (EQUAL UNPACK UNPACK-)) NIL) (REWRITE-RULE ADD1-EQUAL NIL (EQUAL (EQUAL (ADD1 SUB1) (ADD1 SUB1-)) (IF (NUMBERP SUB1) (IF (NUMBERP SUB1-) (EQUAL SUB1 SUB1-) (EQUAL SUB1 (QUOTE 0))) (IF (NUMBERP SUB1-) (EQUAL (QUOTE 0) SUB1-) (QUOTE *1*TRUE)))) NIL)) TOTALP-LST ((GROUND-ZERO . T)) LISP-CODE *1*EQUAL SUBRP *1*TRUE MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*IF-ERROR) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE IF) (QUOTE (TYPE-PRESCRIPTION-LST ((GROUND-ZERO 0 NIL T T)) TOTALP-LST ((GROUND-ZERO . T)) LISP-CODE *1*IF-ERROR SUBRP *1*TRUE MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE GROUND-ZERO) (QUOTE (IDATE 1000402214739 SATELLITES (*1*IDENTITY IDENTITY REWRITE-EVAL$ REWRITE-CAR-V&C$ REWRITE-V&C-APPLY$ REWRITE-V&C$ REWRITE-APPLY-SUBR REWRITE-APPLY$ REWRITE-CAR-V&C-APPLY$ *1*FOR FOR *1*QUANTIFIER-OPERATION QUANTIFIER-OPERATION *1*UNION UNION NUMBERP-MAX *1*MAX MAX *1*APPEND APPEND *1*ADD-TO-SET ADD-TO-SET *1*QUANTIFIER-INITIAL-VALUE QUANTIFIER-INITIAL-VALUE NOT-SUBRP-APPLY-SUBR SUBRP-BODY SUBRP-FORMALS NOT-LITATOM-BODY NOT-LITATOM-FORMALS NOT-LITATOM-SUBRP *1*EVAL$ EVAL$ *1*APPLY$ APPLY$ *1*V&C-APPLY$ V&C-APPLY$ *1*V&C$ V&C$ *1*SUM-CDRS SUM-CDRS *1*STRIP-CARS STRIP-CARS *1*FIX-COST FIX-COST *1*BODY BODY *1*FORMALS FORMALS *1*APPLY-SUBR APPLY-SUBR SUBRP-BOOLEAN *1*SUBRP SUBRP *1*PAIRLIST PAIRLIST *1*ASSOC ASSOC *1*ORDINALP ORDINALP *1*ORD-LESSP ORD-LESSP *1*IFF IFF *1*MEMBER MEMBER *1*REMAINDER REMAINDER *1*QUOTIENT QUOTIENT *1*TIMES TIMES *1*DIFFERENCE DIFFERENCE COUNT-MINUS NEGATIVE-GUTS-ELIM MINUS-NEGATIVE-GUTS MINUS-EQUAL NEGATIVE-GUTS-LESSEQP NEGATIVE-GUTS-LESSP NEGATIVE-GUTS-TYPE-RESTRICTION NEGATIVE-GUTS-NNEGATIVEP NEGATIVE-GUTS-MINUS *1*NEGATIVE-GUTS NEGATIVE-GUTS *1*NEGATIVEP NEGATIVEP *1*MINUS MINUS *1*NLISTP NLISTP COUNT-CONS CAR-CDR-ELIM CONS-CAR-CDR CONS-EQUAL CDR-LESSEQP CDR-LESSP CDR-NLISTP CDR-CONS CAR-LESSEQP CAR-LESSP CAR-NLISTP CAR-CONS *1*CDR CDR *1*CAR CAR *1*LISTP LISTP *1*CONS CONS COUNT-PACK UNPACK-ELIM PACK-UNPACK PACK-EQUAL UNPACK-LESSEQP UNPACK-LESSP UNPACK-NLITATOM UNPACK-PACK *1*UNPACK UNPACK *1*LITATOM LITATOM *1*PACK PACK COUNT-NOT-LESSP COUNT-NUMBERP *1*PLUS PLUS *1*FIX FIX *1*ZEROP ZEROP *1*GEQ GEQ *1*LEQ LEQ *1*GREATERP GREATERP *1*LESSP LESSP COUNT-ADD1 SUB1-ELIM ADD1-SUB1 ADD1-EQUAL SUB1-LESSEQP SUB1-LESSP SUB1-TYPE-RESTRICTION SUB1-NNUMBERP SUB1-ADD1 *1*ZERO ZERO *1*SUB1 SUB1 *1*NUMBERP NUMBERP *1*ADD1 ADD1 *1*IMPLIES IMPLIES *1*OR OR *1*AND AND *1*NOT NOT *1*TRUEP TRUEP *1*TRUE TRUE *1*FALSEP FALSEP *1*FALSE FALSE *1*COUNT COUNT QUOTE *1*EQUAL EQUAL *1*IF-ERROR IF) EVENT (BOOT-STRAP NQTHM)))) (PUT1-LST (QUOTE *1*GREATERP) (QUOTE (SEXPR (LAMBDA (*3*X *3*Y) (*1*LESSP *3*Y *3*X))))) (PUT1-LST (QUOTE *1*LEQ) (QUOTE (SEXPR (LAMBDA (*3*X *3*Y) (*1*NOT (*1*LESSP *3*Y *3*X)))))) (PUT1-LST (QUOTE *1*GEQ) (QUOTE (SEXPR (LAMBDA (*3*X *3*Y) (*1*NOT (*1*LESSP *3*X *3*Y)))))) (PUT1-LST (QUOTE *1*MEMBER) (QUOTE (SEXPR (LAMBDA (*3*X *3*LST) (COND ((NOT (EQ (*1*NLISTP *3*LST) *1*F)) (QUOTE *1*FALSE)) ((EQUAL *3*X (*1*CAR *3*LST)) (QUOTE *1*TRUE)) (T (*1*MEMBER *3*X (*1*CDR *3*LST)))))))) (PUT1-LST (QUOTE *1*IFF) (QUOTE (SEXPR (LAMBDA (*3*P *3*Q) (COND ((NOT (EQ *3*P *1*F)) (COND ((NOT (EQ *3*Q *1*F)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) ((NOT (EQ *3*Q *1*F)) (QUOTE *1*FALSE)) (T (QUOTE *1*TRUE))))))) (PUT1-LST (QUOTE *1*ORD-LESSP) (QUOTE (SEXPR (LAMBDA (*3*X *3*Y) (LET NIL (COND ((NOT (EQ (*1*NOT (COND ((AND (CONSP *3*X) (NOT (EQ (CAR *3*X) (QUOTE *1*QUOTE)))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) *1*F)) (COND ((NOT (EQ (*1*NOT (COND ((AND (CONSP *3*Y) (NOT (EQ (CAR *3*Y) (QUOTE *1*QUOTE)))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) *1*F)) (*1*LESSP *3*X *3*Y)) (T (QUOTE *1*TRUE)))) ((NOT (EQ (*1*NOT (COND ((AND (CONSP *3*Y) (NOT (EQ (CAR *3*Y) (QUOTE *1*QUOTE)))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) *1*F)) (QUOTE *1*FALSE)) ((NOT (EQ (*1*ORD-LESSP (CAR *3*X) (CAR *3*Y)) *1*F)) (QUOTE *1*TRUE)) (T (*1*AND (COND ((EQUAL (CAR *3*X) (CAR *3*Y)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*ORD-LESSP (CDR *3*X) (CDR *3*Y)))))))))) (PUT1-LST (QUOTE *1*ORDINALP) (QUOTE (SEXPR (LAMBDA (*3*X) (COND ((AND (CONSP *3*X) (NOT (EQ (CAR *3*X) (QUOTE *1*QUOTE)))) (*1*AND (*1*ORDINALP (CAR *3*X)) (*1*AND (*1*NOT (COND ((EQUAL (CAR *3*X) (QUOTE 0)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) (*1*AND (*1*ORDINALP (CDR *3*X)) (*1*OR (*1*NLISTP (CDR *3*X)) (*1*NOT (*1*ORD-LESSP (CAR *3*X) (*1*CAR (CDR *3*X))))))))) (T (*1*NUMBERP *3*X))))))) (PUT1-LST (QUOTE *1*ASSOC) (QUOTE (SEXPR (LAMBDA (X L) (*1**ASSOC X L))))) (PUT1-LST (QUOTE *1*PAIRLIST) (QUOTE (SEXPR (LAMBDA (*3*X *3*Y) (COND ((AND (CONSP *3*X) (NOT (EQ (CAR *3*X) (QUOTE *1*QUOTE)))) (CONS (CONS (CAR *3*X) (*1*CAR *3*Y)) (*1*PAIRLIST (CDR *3*X) (*1*CDR *3*Y)))) (T (QUOTE NIL))))))) (PUT1-LST (QUOTE *1*SUBRP) (QUOTE (SEXPR (LAMBDA (X) (*1**SUBRP X))))) (PUT1-LST (QUOTE *1*APPLY-SUBR) (QUOTE (SEXPR (LAMBDA (FN ARGS) (*1**APPLY-SUBR FN ARGS))))) (PUT1-LST (QUOTE *1*FORMALS) (QUOTE (SEXPR (LAMBDA (FN) (*1**FORMALS FN))))) (PUT1-LST (QUOTE *1*BODY) (QUOTE (SEXPR (LAMBDA (FN) (*1**BODY FN))))) (PUT1-LST (QUOTE *1*FIX-COST) (QUOTE (SEXPR (LAMBDA (*3*X *3*N) (COND ((NOT (EQ *3*X *1*F)) (CONS (*1*CAR *3*X) (*1*PLUS *3*N (*1*CDR *3*X)))) (T (QUOTE *1*FALSE))))))) (PUT1-LST (QUOTE *1*STRIP-CARS) (QUOTE (SEXPR (LAMBDA (*3*L) (COND ((NOT (EQ (*1*NLISTP *3*L) *1*F)) (QUOTE NIL)) (T (CONS (*1*CAR (*1*CAR *3*L)) (*1*STRIP-CARS (*1*CDR *3*L))))))))) (PUT1-LST (QUOTE *1*SUM-CDRS) (QUOTE (SEXPR (LAMBDA (*3*L) (COND ((NOT (EQ (*1*NLISTP *3*L) *1*F)) (QUOTE 0)) (T (*1*PLUS (*1*CDR (*1*CAR *3*L)) (*1*SUM-CDRS (*1*CDR *3*L))))))))) (PUT1-LST (QUOTE *1*V&C$) (QUOTE (SEXPR (LAMBDA (*3*FLG *3*X *3*VA) (LET ((REDUCE-TERM-CLOCK (1- REDUCE-TERM-CLOCK))) (COND ((INT= 0 REDUCE-TERM-CLOCK) (IPRINC (QUOTE V&C$) COMMENT-WINDOW) (IPRINC (QUOTE | aborted. |) COMMENT-WINDOW) (THROW (QUOTE REDUCE-TERM) (QUOTE *1*FAILED))) (T (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X)) (*2*TEMP4 (QUOTE *1*X)) (*2*TEMP5 (QUOTE *1*X))) (COND ((EQ *3*FLG (QUOTE LIST)) (COND ((NOT (EQ (*1*NLISTP *3*X) *1*F)) (QUOTE NIL)) (T (CONS (*1*V&C$ (QUOTE *1*TRUE) (*1*CAR *3*X) *3*VA) (*1*V&C$ (QUOTE LIST) (*1*CDR *3*X) *3*VA))))) ((NOT (EQ (*1*LITATOM *3*X) *1*F)) (CONS (*1*CDR (*1*ASSOC *3*X *3*VA)) (QUOTE 0))) ((NOT (EQ (*1*NLISTP *3*X) *1*F)) (CONS *3*X (QUOTE 0))) ((EQ (SETQ *2*TEMP5 (*1*CAR *3*X)) (QUOTE QUOTE)) (CONS (*1*CAR (*1*CDR *3*X)) (QUOTE 0))) ((EQ *2*TEMP5 (QUOTE IF)) (COND ((NOT (EQ (SETQ *2*TEMP1 (*1*V&C$ (QUOTE *1*TRUE) (SETQ *2*TEMP2 (*1*CAR (SETQ *2*TEMP3 (*1*CDR *3*X)))) *3*VA)) *1*F)) (*1*FIX-COST (COND ((NOT (EQ (*1*CAR *2*TEMP1) *1*F)) (*1*V&C$ (QUOTE *1*TRUE) (*1*CAR (*1*CDR *2*TEMP3)) *3*VA)) (T (*1*V&C$ (QUOTE *1*TRUE) (*1*CAR (*1*CDR (*1*CDR *2*TEMP3))) *3*VA))) (*1*ADD1 (*1*CDR *2*TEMP1)))) (T (QUOTE *1*FALSE)))) ((NOT (EQ (*1*MEMBER (QUOTE *1*FALSE) (SETQ *2*TEMP4 (*1*V&C$ (QUOTE LIST) (SETQ *2*TEMP3 (*1*CDR *3*X)) *3*VA))) *1*F)) (QUOTE *1*FALSE)) ((NOT (EQ (*1*SUBRP *2*TEMP5) *1*F)) (CONS (*1*APPLY-SUBR *2*TEMP5 (*1*STRIP-CARS *2*TEMP4)) (*1*ADD1 (*1*SUM-CDRS *2*TEMP4)))) (T (*1*FIX-COST (*1*V&C$ (QUOTE *1*TRUE) (*1*BODY *2*TEMP5) (*1*PAIRLIST (*1*FORMALS *2*TEMP5) (*1*STRIP-CARS *2*TEMP4))) (*1*ADD1 (*1*SUM-CDRS *2*TEMP4))))))))))))) (PUT1-LST (QUOTE *1*V&C-APPLY$) (QUOTE (SEXPR (LAMBDA (*3*FN *3*ARGS) (LET ((REDUCE-TERM-CLOCK (1- REDUCE-TERM-CLOCK))) (COND ((INT= 0 REDUCE-TERM-CLOCK) (IPRINC (QUOTE V&C-APPLY$) COMMENT-WINDOW) (IPRINC (QUOTE | aborted. |) COMMENT-WINDOW) (THROW (QUOTE REDUCE-TERM) (QUOTE *1*FAILED))) (T (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((EQ *3*FN (QUOTE IF)) (COND ((NOT (EQ (SETQ *2*TEMP1 (*1*CAR *3*ARGS)) *1*F)) (*1*FIX-COST (COND ((NOT (EQ (*1*CAR *2*TEMP1) *1*F)) (*1*CAR (*1*CDR *3*ARGS))) (T (*1*CAR (*1*CDR (*1*CDR *3*ARGS))))) (*1*ADD1 (*1*CDR *2*TEMP1)))) (T (QUOTE *1*FALSE)))) ((NOT (EQ (*1*MEMBER (QUOTE *1*FALSE) *3*ARGS) *1*F)) (QUOTE *1*FALSE)) ((NOT (EQ (*1*SUBRP *3*FN) *1*F)) (CONS (*1*APPLY-SUBR *3*FN (*1*STRIP-CARS *3*ARGS)) (*1*ADD1 (*1*SUM-CDRS *3*ARGS)))) (T (*1*FIX-COST (*1*V&C$ (QUOTE *1*TRUE) (*1*BODY *3*FN) (*1*PAIRLIST (*1*FORMALS *3*FN) (*1*STRIP-CARS *3*ARGS))) (*1*ADD1 (*1*SUM-CDRS *3*ARGS))))))))))))) (PUT1-LST (QUOTE *1*EVAL$) (QUOTE (SEXPR (LAMBDA (FLG X VA) (COND ((EQ FLG (QUOTE LIST)) (*1**EVLIST$ X VA)) (T (*1**EVAL$ X VA))))))) (PUT1-LST (QUOTE *1*QUANTIFIER-INITIAL-VALUE) (QUOTE (SEXPR (LAMBDA (*3*FN) (*1*CDR (*1*ASSOC *3*FN (QUOTE ((ADD-TO-SET) (ALWAYS . *1*TRUE) (APPEND) (COLLECT) (COUNT . 0) (DO-RETURN) (EXISTS . *1*FALSE) (MAX . 0) (SUM . 0) (MULTIPLY . 1) (UNION))))))))) (PUT1-LST (QUOTE *1*ADD-TO-SET) (QUOTE (SEXPR (LAMBDA (*3*X *3*SET) (COND ((NOT (EQ (*1*MEMBER *3*X *3*SET) *1*F)) *3*SET) (T (CONS *3*X *3*SET))))))) (PUT1-LST (QUOTE *1*APPEND) (QUOTE (SEXPR (LAMBDA (*3*X *3*Y) (COND ((AND (CONSP *3*X) (NOT (EQ (CAR *3*X) (QUOTE *1*QUOTE)))) (CONS (CAR *3*X) (*1*APPEND (CDR *3*X) *3*Y))) (T *3*Y)))))) (PUT1-LST (QUOTE *1*MAX) (QUOTE (SEXPR (LAMBDA (*3*X *3*Y) (COND ((NOT (EQ (*1*LESSP *3*X *3*Y) *1*F)) *3*Y) (T (*1*FIX *3*X))))))) (PUT1-LST (QUOTE *1*UNION) (QUOTE (SEXPR (LAMBDA (*3*X *3*Y) (LET NIL (COND ((AND (CONSP *3*X) (NOT (EQ (CAR *3*X) (QUOTE *1*QUOTE)))) (COND ((NOT (EQ (*1*MEMBER (CAR *3*X) *3*Y) *1*F)) (*1*UNION (CDR *3*X) *3*Y)) (T (CONS (CAR *3*X) (*1*UNION (CDR *3*X) *3*Y))))) (T *3*Y))))))) (PUT1-LST (QUOTE *1*QUANTIFIER-OPERATION) (QUOTE (SEXPR (LAMBDA (*3*FN *3*ARG *3*REST) (COND ((EQ *3*FN (QUOTE ADD-TO-SET)) (*1*ADD-TO-SET *3*ARG *3*REST)) ((EQ *3*FN (QUOTE ALWAYS)) (*1*AND *3*ARG *3*REST)) ((EQ *3*FN (QUOTE APPEND)) (*1*APPEND *3*ARG *3*REST)) ((EQ *3*FN (QUOTE COLLECT)) (CONS *3*ARG *3*REST)) ((EQ *3*FN (QUOTE COUNT)) (COND ((NOT (EQ *3*ARG *1*F)) (*1*ADD1 *3*REST)) (T *3*REST))) ((EQ *3*FN (QUOTE DO-RETURN)) *3*ARG) ((EQ *3*FN (QUOTE EXISTS)) (*1*OR *3*ARG *3*REST)) ((EQ *3*FN (QUOTE MAX)) (*1*MAX *3*ARG *3*REST)) ((EQ *3*FN (QUOTE SUM)) (*1*PLUS *3*ARG *3*REST)) ((EQ *3*FN (QUOTE MULTIPLY)) (*1*TIMES *3*ARG *3*REST)) ((EQ *3*FN (QUOTE UNION)) (*1*UNION *3*ARG *3*REST)) (T (QUOTE 0))))))) (PUT1-LST (QUOTE *1*FOR) (QUOTE (SEXPR (LAMBDA (*3*VAR *3*RANGE *3*CONDITION *3*OP *3*BODY *3*ALIST) (LET ((REDUCE-TERM-CLOCK (1- REDUCE-TERM-CLOCK))) (COND ((INT= 0 REDUCE-TERM-CLOCK) (IPRINC (QUOTE FOR) COMMENT-WINDOW) (IPRINC (QUOTE | aborted. |) COMMENT-WINDOW) (THROW (QUOTE REDUCE-TERM) (QUOTE *1*FAILED))) (T (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*NLISTP *3*RANGE) *1*F)) (*1*QUANTIFIER-INITIAL-VALUE *3*OP)) ((NOT (EQ (*1*EVAL$ (QUOTE *1*TRUE) *3*CONDITION (SETQ *2*TEMP1 (CONS (CONS *3*VAR (*1*CAR *3*RANGE)) *3*ALIST))) *1*F)) (*1*QUANTIFIER-OPERATION *3*OP (*1*EVAL$ (QUOTE *1*TRUE) *3*BODY *2*TEMP1) (*1*FOR *3*VAR (*1*CDR *3*RANGE) *3*CONDITION *3*OP *3*BODY *3*ALIST))) (T (*1*FOR *3*VAR (*1*CDR *3*RANGE) *3*CONDITION *3*OP *3*BODY *3*ALIST))))))))))) (PUT1-LST (QUOTE *1*IDENTITY) (QUOTE (SEXPR (LAMBDA (*3*X) *3*X)))) (PUT1-LST (QUOTE *1*SUBSET) (QUOTE (SEXPR (LAMBDA (*3*X *3*Y) (COND ((AND (CONSP *3*X) (NOT (EQ (CAR *3*X) (QUOTE *1*QUOTE)))) (COND ((NOT (EQ (*1*MEMBER (CAR *3*X) *3*Y) *1*F)) (*1*SUBSET (CDR *3*X) *3*Y)) (T (QUOTE *1*FALSE)))) (T (QUOTE *1*TRUE))))))) (PUT1-LST (QUOTE *1*DELETE) (QUOTE (SEXPR (LAMBDA (*3*X *3*Y) (COND ((AND (CONSP *3*Y) (NOT (EQ (CAR *3*Y) (QUOTE *1*QUOTE)))) (COND ((EQUAL *3*X (CAR *3*Y)) (CDR *3*Y)) (T (CONS (CAR *3*Y) (*1*DELETE *3*X (CDR *3*Y)))))) (T *3*Y)))))) (PUT1-LST (QUOTE *1*SUBBAGP) (QUOTE (SEXPR (LAMBDA (*3*X *3*Y) (COND ((AND (CONSP *3*X) (NOT (EQ (CAR *3*X) (QUOTE *1*QUOTE)))) (COND ((NOT (EQ (*1*MEMBER (CAR *3*X) *3*Y) *1*F)) (*1*SUBBAGP (CDR *3*X) (*1*DELETE (CAR *3*X) *3*Y))) (T (QUOTE *1*FALSE)))) (T (QUOTE *1*TRUE))))))) (PUT1-LST (QUOTE *1*BAGDIFF) (QUOTE (SEXPR (LAMBDA (*3*X *3*Y) (COND ((AND (CONSP *3*Y) (NOT (EQ (CAR *3*Y) (QUOTE *1*QUOTE)))) (COND ((NOT (EQ (*1*MEMBER (CAR *3*Y) *3*X) *1*F)) (*1*BAGDIFF (*1*DELETE (CAR *3*Y) *3*X) (CDR *3*Y))) (T (*1*BAGDIFF *3*X (CDR *3*Y))))) (T *3*X)))))) (PUT1-LST (QUOTE *1*BAGINT) (QUOTE (SEXPR (LAMBDA (*3*X *3*Y) (COND ((AND (CONSP *3*X) (NOT (EQ (CAR *3*X) (QUOTE *1*QUOTE)))) (COND ((NOT (EQ (*1*MEMBER (CAR *3*X) *3*Y) *1*F)) (CONS (CAR *3*X) (*1*BAGINT (CDR *3*X) (*1*DELETE (CAR *3*X) *3*Y)))) (T (*1*BAGINT (CDR *3*X) *3*Y)))) (T (QUOTE NIL))))))) (PUT1-LST (QUOTE *1*PLUS-FRINGE) (QUOTE (SEXPR (LAMBDA (*3*X) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*AND (COND ((AND (CONSP *3*X) (NOT (EQ (CAR *3*X) (QUOTE *1*QUOTE)))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (COND ((EQ (*1*CAR *3*X) (QUOTE PLUS)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) *1*F)) (*1*APPEND (*1*PLUS-FRINGE (*1*CAR (SETQ *2*TEMP1 (*1*CDR *3*X)))) (*1*PLUS-FRINGE (*1*CAR (*1*CDR *2*TEMP1))))) (T (CONS *3*X (QUOTE NIL))))))))) (PUT1-LST (QUOTE *1*PLUS-TREE) (QUOTE (SEXPR (LAMBDA (*3*L) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*NLISTP *3*L) *1*F)) (QUOTE (QUOTE 0))) ((NOT (EQ (*1*NLISTP (SETQ *2*TEMP1 (*1*CDR *3*L))) *1*F)) (CONS (QUOTE FIX) (CONS (*1*CAR *3*L) (QUOTE NIL)))) ((NOT (EQ (*1*NLISTP (*1*CDR *2*TEMP1)) *1*F)) (CONS (QUOTE PLUS) (CONS (*1*CAR *3*L) (CONS (*1*CAR *2*TEMP1) (QUOTE NIL))))) (T (CONS (QUOTE PLUS) (CONS (*1*CAR *3*L) (CONS (*1*PLUS-TREE *2*TEMP1) (QUOTE NIL))))))))))) (PUT1-LST (QUOTE *1*CANCEL-EQUAL-PLUS) (QUOTE (SEXPR (LAMBDA (*3*X) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X)) (*2*TEMP4 (QUOTE *1*X)) (*2*TEMP5 (QUOTE *1*X)) (*2*TEMP6 (QUOTE *1*X)) (*2*TEMP7 (QUOTE *1*X)) (*2*TEMP8 (QUOTE *1*X)) (*2*TEMP9 (QUOTE *1*X)) (*2*TEMP10 (QUOTE *1*X)) (*2*TEMP11 (QUOTE *1*X)) (*2*TEMP12 (QUOTE *1*X))) (COND ((NOT (EQ (*1*AND (COND ((AND (CONSP *3*X) (NOT (EQ (CAR *3*X) (QUOTE *1*QUOTE)))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (COND ((EQ (*1*CAR *3*X) (QUOTE EQUAL)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) *1*F)) (COND ((NOT (EQ (*1*AND (SETQ *2*TEMP12 (COND ((AND (CONSP (SETQ *2*TEMP11 (*1*CAR (SETQ *2*TEMP10 (*1*CDR *3*X))))) (NOT (EQ (CAR *2*TEMP11) (QUOTE *1*QUOTE)))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) (*1*AND (SETQ *2*TEMP9 (COND ((EQ (SETQ *2*TEMP8 (*1*CAR *2*TEMP11)) (QUOTE PLUS)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) (*1*AND (SETQ *2*TEMP7 (COND ((AND (CONSP (SETQ *2*TEMP6 (*1*CAR (*1*CDR *2*TEMP10)))) (NOT (EQ (CAR *2*TEMP6) (QUOTE *1*QUOTE)))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) (SETQ *2*TEMP5 (COND ((EQ (SETQ *2*TEMP4 (*1*CAR *2*TEMP6)) (QUOTE PLUS)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))))))) *1*F)) (CONS (QUOTE EQUAL) (CONS (*1*PLUS-TREE (*1*BAGDIFF (SETQ *2*TEMP3 (*1*PLUS-FRINGE *2*TEMP11)) (SETQ *2*TEMP2 (*1*BAGINT *2*TEMP3 (SETQ *2*TEMP1 (*1*PLUS-FRINGE *2*TEMP6)))))) (CONS (*1*PLUS-TREE (*1*BAGDIFF *2*TEMP1 *2*TEMP2)) (QUOTE NIL))))) ((NOT (EQ (*1*AND *2*TEMP12 (*1*AND *2*TEMP9 (*1*MEMBER *2*TEMP6 (SETQ *2*TEMP3 (*1*PLUS-FRINGE *2*TEMP11))))) *1*F)) (CONS (QUOTE IF) (CONS (CONS (QUOTE NUMBERP) (CONS *2*TEMP6 (QUOTE NIL))) (CONS (CONS (QUOTE EQUAL) (CONS (*1*PLUS-TREE (*1*DELETE *2*TEMP6 *2*TEMP3)) (QUOTE ((QUOTE 0))))) (QUOTE ((QUOTE *1*FALSE))))))) ((NOT (EQ (*1*AND *2*TEMP7 (*1*AND *2*TEMP5 (*1*MEMBER *2*TEMP11 (SETQ *2*TEMP1 (*1*PLUS-FRINGE *2*TEMP6))))) *1*F)) (CONS (QUOTE IF) (CONS (CONS (QUOTE NUMBERP) (CONS *2*TEMP11 (QUOTE NIL))) (CONS (CONS (QUOTE EQUAL) (CONS (QUOTE (QUOTE 0)) (CONS (*1*PLUS-TREE (*1*DELETE *2*TEMP11 *2*TEMP1)) (QUOTE NIL)))) (QUOTE ((QUOTE *1*FALSE))))))) (T *3*X))) (T *3*X))))))) (PUT1-LST (QUOTE *1*CANCEL-DIFFERENCE-PLUS) (QUOTE (SEXPR (LAMBDA (*3*X) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X)) (*2*TEMP4 (QUOTE *1*X)) (*2*TEMP5 (QUOTE *1*X)) (*2*TEMP6 (QUOTE *1*X)) (*2*TEMP7 (QUOTE *1*X)) (*2*TEMP8 (QUOTE *1*X)) (*2*TEMP9 (QUOTE *1*X)) (*2*TEMP10 (QUOTE *1*X)) (*2*TEMP11 (QUOTE *1*X)) (*2*TEMP12 (QUOTE *1*X))) (COND ((NOT (EQ (*1*AND (COND ((AND (CONSP *3*X) (NOT (EQ (CAR *3*X) (QUOTE *1*QUOTE)))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (COND ((EQ (*1*CAR *3*X) (QUOTE DIFFERENCE)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) *1*F)) (COND ((NOT (EQ (*1*AND (SETQ *2*TEMP12 (COND ((AND (CONSP (SETQ *2*TEMP11 (*1*CAR (SETQ *2*TEMP10 (*1*CDR *3*X))))) (NOT (EQ (CAR *2*TEMP11) (QUOTE *1*QUOTE)))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) (*1*AND (SETQ *2*TEMP9 (COND ((EQ (SETQ *2*TEMP8 (*1*CAR *2*TEMP11)) (QUOTE PLUS)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) (*1*AND (SETQ *2*TEMP7 (COND ((AND (CONSP (SETQ *2*TEMP6 (*1*CAR (*1*CDR *2*TEMP10)))) (NOT (EQ (CAR *2*TEMP6) (QUOTE *1*QUOTE)))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) (SETQ *2*TEMP5 (COND ((EQ (SETQ *2*TEMP4 (*1*CAR *2*TEMP6)) (QUOTE PLUS)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))))))) *1*F)) (CONS (QUOTE DIFFERENCE) (CONS (*1*PLUS-TREE (*1*BAGDIFF (SETQ *2*TEMP3 (*1*PLUS-FRINGE *2*TEMP11)) (SETQ *2*TEMP2 (*1*BAGINT *2*TEMP3 (SETQ *2*TEMP1 (*1*PLUS-FRINGE *2*TEMP6)))))) (CONS (*1*PLUS-TREE (*1*BAGDIFF *2*TEMP1 *2*TEMP2)) (QUOTE NIL))))) ((NOT (EQ (*1*AND *2*TEMP12 (*1*AND *2*TEMP9 (*1*MEMBER *2*TEMP6 (SETQ *2*TEMP3 (*1*PLUS-FRINGE *2*TEMP11))))) *1*F)) (*1*PLUS-TREE (*1*DELETE *2*TEMP6 *2*TEMP3))) ((NOT (EQ (*1*AND *2*TEMP7 (*1*AND *2*TEMP5 (*1*MEMBER *2*TEMP11 (*1*PLUS-FRINGE *2*TEMP6)))) *1*F)) (QUOTE (QUOTE 0))) (T *3*X))) (T *3*X))))))) (PUT1-LST (QUOTE *1*CANCEL-LESSP-PLUS) (QUOTE (SEXPR (LAMBDA (*3*X) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X)) (*2*TEMP4 (QUOTE *1*X)) (*2*TEMP5 (QUOTE *1*X)) (*2*TEMP6 (QUOTE *1*X)) (*2*TEMP7 (QUOTE *1*X)) (*2*TEMP8 (QUOTE *1*X)) (*2*TEMP9 (QUOTE *1*X)) (*2*TEMP10 (QUOTE *1*X)) (*2*TEMP11 (QUOTE *1*X)) (*2*TEMP12 (QUOTE *1*X))) (COND ((NOT (EQ (*1*AND (COND ((AND (CONSP *3*X) (NOT (EQ (CAR *3*X) (QUOTE *1*QUOTE)))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (COND ((EQ (*1*CAR *3*X) (QUOTE LESSP)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) *1*F)) (COND ((NOT (EQ (*1*AND (SETQ *2*TEMP12 (COND ((AND (CONSP (SETQ *2*TEMP11 (*1*CAR (SETQ *2*TEMP10 (*1*CDR *3*X))))) (NOT (EQ (CAR *2*TEMP11) (QUOTE *1*QUOTE)))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) (*1*AND (SETQ *2*TEMP9 (COND ((EQ (SETQ *2*TEMP8 (*1*CAR *2*TEMP11)) (QUOTE PLUS)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) (*1*AND (SETQ *2*TEMP7 (COND ((AND (CONSP (SETQ *2*TEMP6 (*1*CAR (*1*CDR *2*TEMP10)))) (NOT (EQ (CAR *2*TEMP6) (QUOTE *1*QUOTE)))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) (SETQ *2*TEMP5 (COND ((EQ (SETQ *2*TEMP4 (*1*CAR *2*TEMP6)) (QUOTE PLUS)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))))))) *1*F)) (CONS (QUOTE LESSP) (CONS (*1*PLUS-TREE (*1*BAGDIFF (SETQ *2*TEMP3 (*1*PLUS-FRINGE *2*TEMP11)) (SETQ *2*TEMP2 (*1*BAGINT *2*TEMP3 (SETQ *2*TEMP1 (*1*PLUS-FRINGE *2*TEMP6)))))) (CONS (*1*PLUS-TREE (*1*BAGDIFF *2*TEMP1 *2*TEMP2)) (QUOTE NIL))))) ((NOT (EQ (*1*AND *2*TEMP12 (*1*AND *2*TEMP9 (*1*MEMBER *2*TEMP6 (*1*PLUS-FRINGE *2*TEMP11)))) *1*F)) (QUOTE (QUOTE *1*FALSE))) ((NOT (EQ (*1*AND *2*TEMP7 (*1*AND *2*TEMP5 (*1*MEMBER *2*TEMP11 (SETQ *2*TEMP1 (*1*PLUS-FRINGE *2*TEMP6))))) *1*F)) (CONS (QUOTE NOT) (CONS (CONS (QUOTE ZEROP) (CONS (*1*PLUS-TREE (*1*DELETE *2*TEMP11 *2*TEMP1)) (QUOTE NIL))) (QUOTE NIL)))) (T *3*X))) (T *3*X))))))) (PUT1-LST (QUOTE *1*BOOLEAN) (QUOTE (SEXPR (LAMBDA (*3*X) (*1*OR (*1*TRUEP *3*X) (*1*FALSEP *3*X)))))) (PUT1-LST (QUOTE *1*TIMES-FRINGE) (QUOTE (SEXPR (LAMBDA (*3*X) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*AND (COND ((AND (CONSP *3*X) (NOT (EQ (CAR *3*X) (QUOTE *1*QUOTE)))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (COND ((EQ (*1*CAR *3*X) (QUOTE TIMES)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) *1*F)) (*1*APPEND (*1*TIMES-FRINGE (*1*CAR (SETQ *2*TEMP1 (*1*CDR *3*X)))) (*1*TIMES-FRINGE (*1*CAR (*1*CDR *2*TEMP1))))) (T (CONS *3*X (QUOTE NIL))))))))) (PUT1-LST (QUOTE *1*TIMES-TREE) (QUOTE (SEXPR (LAMBDA (*3*X) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*NLISTP *3*X) *1*F)) (QUOTE (QUOTE 1))) ((NOT (EQ (*1*NLISTP (SETQ *2*TEMP1 (*1*CDR *3*X))) *1*F)) (CONS (QUOTE FIX) (CONS (*1*CAR *3*X) (QUOTE NIL)))) ((NOT (EQ (*1*NLISTP (*1*CDR *2*TEMP1)) *1*F)) (CONS (QUOTE TIMES) (CONS (*1*CAR *3*X) (CONS (*1*CAR *2*TEMP1) (QUOTE NIL))))) (T (CONS (QUOTE TIMES) (CONS (*1*CAR *3*X) (CONS (*1*TIMES-TREE *2*TEMP1) (QUOTE NIL))))))))))) (PUT1-LST (QUOTE *1*AND-NOT-ZEROP-TREE) (QUOTE (SEXPR (LAMBDA (*3*X) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*NLISTP *3*X) *1*F)) (QUOTE (TRUE))) ((NOT (EQ (*1*NLISTP (SETQ *2*TEMP1 (*1*CDR *3*X))) *1*F)) (CONS (QUOTE NOT) (CONS (CONS (QUOTE ZEROP) (CONS (*1*CAR *3*X) (QUOTE NIL))) (QUOTE NIL)))) (T (CONS (QUOTE AND) (CONS (CONS (QUOTE NOT) (CONS (CONS (QUOTE ZEROP) (CONS (*1*CAR *3*X) (QUOTE NIL))) (QUOTE NIL))) (CONS (*1*AND-NOT-ZEROP-TREE *2*TEMP1) (QUOTE NIL))))))))))) (PUT1-LST (QUOTE *1*EVAL$-AND-NOT-ZEROP-TREE-END) (QUOTE (SEXPR (LAMBDA (*3*W *3*X *3*A) (LET ((REDUCE-TERM-CLOCK (1- REDUCE-TERM-CLOCK))) (COND ((INT= 0 REDUCE-TERM-CLOCK) (IPRINC (QUOTE EVAL$-AND-NOT-ZEROP-TREE-END) COMMENT-WINDOW) (IPRINC (QUOTE | aborted. |) COMMENT-WINDOW) (THROW (QUOTE REDUCE-TERM) (QUOTE *1*FAILED))) (T (*1*EVAL$ (QUOTE *1*TRUE) (*1*AND-NOT-ZEROP-TREE (*1*DELETE *3*W *3*X)) *3*A)))))))) (PUT1-LST (QUOTE *1*LESSP-1-TIMES-TREE-DELETE-END) (QUOTE (SEXPR (LAMBDA (*3*W *3*X *3*A) (LET ((REDUCE-TERM-CLOCK (1- REDUCE-TERM-CLOCK))) (COND ((INT= 0 REDUCE-TERM-CLOCK) (IPRINC (QUOTE LESSP-1-TIMES-TREE-DELETE-END) COMMENT-WINDOW) (IPRINC (QUOTE | aborted. |) COMMENT-WINDOW) (THROW (QUOTE REDUCE-TERM) (QUOTE *1*FAILED))) (T (*1*LESSP (QUOTE 1) (*1*EVAL$ (QUOTE *1*TRUE) (*1*TIMES-TREE (*1*DELETE *3*W *3*X)) *3*A))))))))) (PUT1-LST (QUOTE *1*CANCEL-LESSP-TIMES) (QUOTE (SEXPR (LAMBDA (*3*X) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X)) (*2*TEMP4 (QUOTE *1*X)) (*2*TEMP5 (QUOTE *1*X)) (*2*TEMP6 (QUOTE *1*X)) (*2*TEMP7 (QUOTE *1*X)) (*2*TEMP8 (QUOTE *1*X)) (*2*TEMP9 (QUOTE *1*X)) (*2*TEMP10 (QUOTE *1*X))) (COND ((NOT (EQ (*1*AND (COND ((AND (CONSP *3*X) (NOT (EQ (CAR *3*X) (QUOTE *1*QUOTE)))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (COND ((EQ (*1*CAR *3*X) (QUOTE LESSP)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) *1*F)) (COND ((NOT (EQ (*1*AND (SETQ *2*TEMP10 (COND ((EQ (SETQ *2*TEMP9 (*1*CAR (SETQ *2*TEMP8 (*1*CAR (SETQ *2*TEMP7 (*1*CDR *3*X)))))) (QUOTE TIMES)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) (SETQ *2*TEMP6 (COND ((EQ (SETQ *2*TEMP5 (*1*CAR (SETQ *2*TEMP4 (*1*CAR (*1*CDR *2*TEMP7))))) (QUOTE TIMES)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))))) *1*F)) (COND ((AND (CONSP (SETQ *2*TEMP3 (*1*BAGINT (SETQ *2*TEMP2 (*1*TIMES-FRINGE *2*TEMP8)) (SETQ *2*TEMP1 (*1*TIMES-FRINGE *2*TEMP4))))) (NOT (EQ (CAR *2*TEMP3) (QUOTE *1*QUOTE)))) (CONS (QUOTE AND) (CONS (*1*AND-NOT-ZEROP-TREE *2*TEMP3) (CONS (CONS (QUOTE LESSP) (CONS (*1*TIMES-TREE (*1*BAGDIFF *2*TEMP2 *2*TEMP3)) (CONS (*1*TIMES-TREE (*1*BAGDIFF *2*TEMP1 *2*TEMP3)) (QUOTE NIL)))) (QUOTE NIL))))) (T *3*X))) ((NOT (EQ (*1*AND (COND ((AND (CONSP *2*TEMP8) (NOT (EQ (CAR *2*TEMP8) (QUOTE *1*QUOTE)))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*AND *2*TEMP10 (*1*MEMBER *2*TEMP4 (SETQ *2*TEMP2 (*1*TIMES-FRINGE *2*TEMP8))))) *1*F)) (CONS (QUOTE AND) (CONS (CONS (QUOTE NOT) (CONS (CONS (QUOTE ZEROP) (CONS *2*TEMP4 (QUOTE NIL))) (QUOTE NIL))) (CONS (CONS (QUOTE NOT) (CONS (*1*AND-NOT-ZEROP-TREE (*1*DELETE *2*TEMP4 *2*TEMP2)) (QUOTE NIL))) (QUOTE NIL))))) ((NOT (EQ (*1*AND (COND ((AND (CONSP *2*TEMP4) (NOT (EQ (CAR *2*TEMP4) (QUOTE *1*QUOTE)))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*AND *2*TEMP6 (*1*MEMBER *2*TEMP8 (SETQ *2*TEMP1 (*1*TIMES-FRINGE *2*TEMP4))))) *1*F)) (CONS (QUOTE AND) (CONS (CONS (QUOTE NOT) (CONS (CONS (QUOTE ZEROP) (CONS *2*TEMP8 (QUOTE NIL))) (QUOTE NIL))) (CONS (CONS (QUOTE LESSP) (CONS (QUOTE (QUOTE 1)) (CONS (*1*TIMES-TREE (*1*DELETE *2*TEMP8 *2*TEMP1)) (QUOTE NIL)))) (QUOTE NIL))))) (T *3*X))) (T *3*X))))))) (PUT1-LST (QUOTE *1*EQUAL-1-EVAL$-TIMES-TREE-DELETE-END) (QUOTE (SEXPR (LAMBDA (*3*W *3*X *3*A) (LET ((REDUCE-TERM-CLOCK (1- REDUCE-TERM-CLOCK))) (COND ((INT= 0 REDUCE-TERM-CLOCK) (IPRINC (QUOTE EQUAL-1-EVAL$-TIMES-TREE-DELETE-END) COMMENT-WINDOW) (IPRINC (QUOTE | aborted. |) COMMENT-WINDOW) (THROW (QUOTE REDUCE-TERM) (QUOTE *1*FAILED))) (T (COND ((EQUAL (*1*EVAL$ (QUOTE *1*TRUE) (*1*TIMES-TREE (*1*DELETE *3*W *3*X)) *3*A) (QUOTE 1)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))))))))) (PUT1-LST (QUOTE *1*CANCEL-EQUAL-TIMES) (QUOTE (SEXPR (LAMBDA (*3*X) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X)) (*2*TEMP4 (QUOTE *1*X)) (*2*TEMP5 (QUOTE *1*X)) (*2*TEMP6 (QUOTE *1*X)) (*2*TEMP7 (QUOTE *1*X)) (*2*TEMP8 (QUOTE *1*X)) (*2*TEMP9 (QUOTE *1*X)) (*2*TEMP10 (QUOTE *1*X))) (COND ((EQ (*1*CAR *3*X) (QUOTE EQUAL)) (COND ((NOT (EQ (*1*AND (SETQ *2*TEMP10 (COND ((EQ (SETQ *2*TEMP9 (*1*CAR (SETQ *2*TEMP8 (*1*CAR (SETQ *2*TEMP7 (*1*CDR *3*X)))))) (QUOTE TIMES)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) (SETQ *2*TEMP6 (COND ((EQ (SETQ *2*TEMP5 (*1*CAR (SETQ *2*TEMP4 (*1*CAR (*1*CDR *2*TEMP7))))) (QUOTE TIMES)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))))) *1*F)) (COND ((AND (CONSP (SETQ *2*TEMP3 (*1*BAGINT (SETQ *2*TEMP2 (*1*TIMES-FRINGE *2*TEMP8)) (SETQ *2*TEMP1 (*1*TIMES-FRINGE *2*TEMP4))))) (NOT (EQ (CAR *2*TEMP3) (QUOTE *1*QUOTE)))) (CONS (QUOTE IF) (CONS (*1*AND-NOT-ZEROP-TREE *2*TEMP3) (CONS (CONS (QUOTE EQUAL) (CONS (*1*TIMES-TREE (*1*BAGDIFF *2*TEMP2 *2*TEMP3)) (CONS (*1*TIMES-TREE (*1*BAGDIFF *2*TEMP1 *2*TEMP3)) (QUOTE NIL)))) (QUOTE ((TRUE))))))) (T *3*X))) ((NOT (EQ (*1*AND (COND ((AND (CONSP *2*TEMP8) (NOT (EQ (CAR *2*TEMP8) (QUOTE *1*QUOTE)))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*AND *2*TEMP10 (*1*MEMBER *2*TEMP4 (SETQ *2*TEMP2 (*1*TIMES-FRINGE *2*TEMP8))))) *1*F)) (CONS (QUOTE AND) (CONS (CONS (QUOTE NUMBERP) (CONS *2*TEMP4 (QUOTE NIL))) (CONS (CONS (QUOTE OR) (CONS (CONS (QUOTE EQUAL) (CONS *2*TEMP4 (QUOTE ((QUOTE 0))))) (CONS (CONS (QUOTE EQUAL) (CONS (*1*TIMES-TREE (*1*DELETE *2*TEMP4 *2*TEMP2)) (QUOTE ((QUOTE 1))))) (QUOTE NIL)))) (QUOTE NIL))))) ((NOT (EQ (*1*AND (COND ((AND (CONSP *2*TEMP4) (NOT (EQ (CAR *2*TEMP4) (QUOTE *1*QUOTE)))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*AND *2*TEMP6 (*1*MEMBER *2*TEMP8 (SETQ *2*TEMP1 (*1*TIMES-FRINGE *2*TEMP4))))) *1*F)) (CONS (QUOTE AND) (CONS (CONS (QUOTE NUMBERP) (CONS *2*TEMP8 (QUOTE NIL))) (CONS (CONS (QUOTE OR) (CONS (CONS (QUOTE EQUAL) (CONS *2*TEMP8 (QUOTE ((QUOTE 0))))) (CONS (CONS (QUOTE EQUAL) (CONS (*1*TIMES-TREE (*1*DELETE *2*TEMP8 *2*TEMP1)) (QUOTE ((QUOTE 1))))) (QUOTE NIL)))) (QUOTE NIL))))) (T *3*X))) (T *3*X))))))) (PUT1-LST (QUOTE *1*EXP) (QUOTE (SEXPR (LAMBDA (*3*X *3*Y) (COND ((NOT (EQ (*1*ZEROP *3*Y) *1*F)) (QUOTE 1)) (T (*1*TIMES *3*X (*1*EXP *3*X (*1*SUB1 *3*Y))))))))) (PUT1-LST (QUOTE *1*QUOT2-SUB12-INDUCT) (QUOTE (SEXPR (LAMBDA (*3*X *3*Y *3*I *3*J) (COND ((NOT (EQ (*1*ZEROP *3*I) *1*F)) (QUOTE *1*TRUE)) (T (*1*QUOT2-SUB12-INDUCT (*1*QUOTIENT *3*X (QUOTE 2)) (*1*QUOTIENT *3*Y (QUOTE 2)) (*1*SUB1 *3*I) (*1*SUB1 *3*J)))))))) (PUT1-LST (QUOTE *1*LOG) (QUOTE (SEXPR (LAMBDA (*3*B *3*X) (COND ((NOT (EQ (*1*OR (*1*ZEROP *3*B) (COND ((EQUAL *3*B (QUOTE 1)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) *1*F)) (QUOTE 0)) ((NOT (EQ (*1*LESSP *3*X *3*B) *1*F)) (QUOTE 0)) (T (*1*ADD1 (*1*LOG *3*B (*1*QUOTIENT *3*X *3*B))))))))) (PUT1-LST (QUOTE *1*QUOTIENT2-INDUCT) (QUOTE (SEXPR (LAMBDA (*3*B *3*X *3*Y) (COND ((NOT (EQ (*1*OR (*1*ZEROP *3*B) (COND ((EQUAL *3*B (QUOTE 1)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) *1*F)) (QUOTE 0)) ((NOT (EQ (*1*OR (*1*ZEROP *3*X) (*1*ZEROP *3*Y)) *1*F)) (QUOTE 0)) (T (*1*QUOTIENT2-INDUCT *3*B (*1*QUOTIENT *3*X *3*B) (*1*QUOTIENT *3*Y *3*B)))))))) (PUT1-LST (QUOTE *1*B) (QUOTE (SEXPR (LAMBDA NIL (QUOTE 8))))) (PUT1-LST (QUOTE *1*W) (QUOTE (SEXPR (LAMBDA NIL (QUOTE 16))))) (PUT1-LST (QUOTE *1*L) (QUOTE (SEXPR (LAMBDA NIL (QUOTE 32))))) (PUT1-LST (QUOTE *1*Q) (QUOTE (SEXPR (LAMBDA NIL (QUOTE 64))))) (PUT1-LST (QUOTE *1*BSZ) (QUOTE (SEXPR (LAMBDA NIL (QUOTE 1))))) (PUT1-LST (QUOTE *1*WSZ) (QUOTE (SEXPR (LAMBDA NIL (QUOTE 2))))) (PUT1-LST (QUOTE *1*LSZ) (QUOTE (SEXPR (LAMBDA NIL (QUOTE 4))))) (PUT1-LST (QUOTE *1*QSZ) (QUOTE (SEXPR (LAMBDA NIL (QUOTE 8))))) (PUT1-LST (QUOTE *1*READ-SIGNAL) (QUOTE (SEXPR (LAMBDA NIL (QUOTE READ_UNAVAILABLE_MEMORY))))) (PUT1-LST (QUOTE *1*WRITE-SIGNAL) (QUOTE (SEXPR (LAMBDA NIL (QUOTE WRITE_ROM_OR_UNAVAILABLE_MEMORY))))) (PUT1-LST (QUOTE *1*RESERVED-SIGNAL) (QUOTE (SEXPR (LAMBDA NIL (QUOTE MOTOROLA_RESERVED_FOR_FUTURE_DEVELOPMENT))))) (PUT1-LST (QUOTE *1*PC-SIGNAL) (QUOTE (SEXPR (LAMBDA NIL (QUOTE PC_OUTSIDE_ROM))))) (PUT1-LST (QUOTE *1*PC-ODD-SIGNAL) (QUOTE (SEXPR (LAMBDA NIL (QUOTE PC_AT_ODD_ADDRESS))))) (PUT1-LST (QUOTE *1*MODE-SIGNAL) (QUOTE (SEXPR (LAMBDA NIL (QUOTE ILLEGAL_ADDRESSING_MODE_IN_CURRENT_INSTRUCTION))))) (PUT1-LST (QUOTE *1*BITP) (QUOTE (SEXPR (LAMBDA (*3*X) (*1*OR (COND ((EQUAL *3*X (QUOTE 0)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (COND ((EQUAL *3*X (QUOTE 1)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))))))) (PUT1-LST (QUOTE *1*B1) (QUOTE (SEXPR (LAMBDA NIL (QUOTE 1))))) (PUT1-LST (QUOTE *1*B0) (QUOTE (SEXPR (LAMBDA NIL (QUOTE 0))))) (PUT1-LST (QUOTE *1*B0P) (QUOTE (SEXPR (LAMBDA (*3*X) (COND ((EQUAL *3*X (*1*B0)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))))))) (PUT1-LST (QUOTE *1*B1P) (QUOTE (SEXPR (LAMBDA (*3*X) (*1*NOT (COND ((EQUAL *3*X (*1*B0)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))))))) (PUT1-LST (QUOTE *1*FIX-BIT) (QUOTE (SEXPR (LAMBDA (*3*C) (COND ((NOT (EQ (*1*B0P *3*C) *1*F)) (*1*B0)) (T (*1*B1))))))) (PUT1-LST (QUOTE *1*B-NOT) (QUOTE (SEXPR (LAMBDA (*3*X) (COND ((NOT (EQ (*1*B0P *3*X) *1*F)) (*1*B1)) (T (*1*B0))))))) (PUT1-LST (QUOTE *1*B-AND) (QUOTE (SEXPR (LAMBDA (*3*X *3*Y) (LET NIL (COND ((NOT (EQ (*1*B0P *3*X) *1*F)) (*1*B0)) ((NOT (EQ (*1*B0P *3*Y) *1*F)) (*1*B0)) (T (*1*B1)))))))) (PUT1-LST (QUOTE *1*B-OR) (QUOTE (SEXPR (LAMBDA (*3*X *3*Y) (LET NIL (COND ((NOT (EQ (*1*B0P *3*X) *1*F)) (COND ((NOT (EQ (*1*B0P *3*Y) *1*F)) (*1*B0)) (T (*1*B1)))) (T (*1*B1)))))))) (PUT1-LST (QUOTE *1*B-NOR) (QUOTE (SEXPR (LAMBDA (*3*X *3*Y) (LET NIL (COND ((NOT (EQ (*1*B0P *3*X) *1*F)) (COND ((NOT (EQ (*1*B0P *3*Y) *1*F)) (*1*B1)) (T (*1*B0)))) (T (*1*B0)))))))) (PUT1-LST (QUOTE *1*B-NAND) (QUOTE (SEXPR (LAMBDA (*3*X *3*Y) (LET NIL (COND ((NOT (EQ (*1*B0P *3*X) *1*F)) (*1*B1)) ((NOT (EQ (*1*B0P *3*Y) *1*F)) (*1*B1)) (T (*1*B0)))))))) (PUT1-LST (QUOTE *1*B-EOR) (QUOTE (SEXPR (LAMBDA (*3*X *3*Y) (LET NIL (COND ((NOT (EQ (*1*B0P *3*X) *1*F)) (COND ((NOT (EQ (*1*B0P *3*Y) *1*F)) (*1*B0)) (T (*1*B1)))) ((NOT (EQ (*1*B0P *3*Y) *1*F)) (*1*B1)) (T (*1*B0)))))))) (PUT1-LST (QUOTE *1*B-EQUAL) (QUOTE (SEXPR (LAMBDA (*3*X *3*Y) (COND ((NOT (EQ (*1*B0P *3*X) *1*F)) (*1*B0P *3*Y)) (T (*1*B1P *3*Y))))))) (PUT1-LST (QUOTE *1*BCAR) (QUOTE (SEXPR (LAMBDA (*3*X) (*1*REMAINDER *3*X (QUOTE 2)))))) (PUT1-LST (QUOTE *1*BCDR) (QUOTE (SEXPR (LAMBDA (*3*X) (*1*QUOTIENT *3*X (QUOTE 2)))))) (PUT1-LST (QUOTE *1*HEAD) (QUOTE (SEXPR (LAMBDA (*3*X *3*N) (*1*REMAINDER *3*X (*1*EXP (QUOTE 2) *3*N)))))) (PUT1-LST (QUOTE *1*TAIL) (QUOTE (SEXPR (LAMBDA (*3*X *3*N) (*1*QUOTIENT *3*X (*1*EXP (QUOTE 2) *3*N)))))) (PUT1-LST (QUOTE *1*LOGNOT) (QUOTE (SEXPR (LAMBDA (*3*N *3*X) (*1*SUB1 (*1*DIFFERENCE (*1*EXP (QUOTE 2) *3*N) (*1*HEAD *3*X *3*N))))))) (PUT1-LST (QUOTE *1*LOGAND) (QUOTE (SEXPR (LAMBDA (*3*X *3*Y) (COND ((NOT (EQ (*1*OR (*1*ZEROP *3*X) (*1*ZEROP *3*Y)) *1*F)) (QUOTE 0)) (T (*1*PLUS (*1*B-AND (*1*BCAR *3*X) (*1*BCAR *3*Y)) (*1*TIMES (QUOTE 2) (*1*LOGAND (*1*BCDR *3*X) (*1*BCDR *3*Y)))))))))) (PUT1-LST (QUOTE *1*LOGOR) (QUOTE (SEXPR (LAMBDA (*3*X *3*Y) (COND ((NOT (EQ (*1*ZEROP *3*X) *1*F)) (*1*FIX *3*Y)) ((NOT (EQ (*1*ZEROP *3*Y) *1*F)) (*1*FIX *3*X)) (T (*1*PLUS (*1*B-OR (*1*BCAR *3*X) (*1*BCAR *3*Y)) (*1*TIMES (QUOTE 2) (*1*LOGOR (*1*BCDR *3*X) (*1*BCDR *3*Y)))))))))) (PUT1-LST (QUOTE *1*LOGEOR) (QUOTE (SEXPR (LAMBDA (*3*X *3*Y) (COND ((NOT (EQ (*1*AND (*1*ZEROP *3*X) (*1*ZEROP *3*Y)) *1*F)) (QUOTE 0)) (T (*1*PLUS (*1*B-EOR (*1*BCAR *3*X) (*1*BCAR *3*Y)) (*1*TIMES (QUOTE 2) (*1*LOGEOR (*1*BCDR *3*X) (*1*BCDR *3*Y)))))))))) (PUT1-LST (QUOTE *1*BITN) (QUOTE (SEXPR (LAMBDA (*3*X *3*N) (*1*BCAR (*1*TAIL *3*X *3*N)))))) (PUT1-LST (QUOTE *1*MBIT) (QUOTE (SEXPR (LAMBDA (*3*X *3*N) (*1*BITN *3*X (*1*SUB1 *3*N)))))) (PUT1-LST (QUOTE *1*BITS) (QUOTE (SEXPR (LAMBDA (*3*X *3*I *3*J) (*1*HEAD (*1*TAIL *3*X *3*I) (*1*ADD1 (*1*DIFFERENCE *3*J *3*I))))))) (PUT1-LST (QUOTE *1*SETN) (QUOTE (SEXPR (LAMBDA (*3*X *3*N *3*C) (LET NIL (COND ((NOT (EQ (*1*ZEROP *3*N) *1*F)) (*1*PLUS (*1*FIX-BIT *3*C) (*1*TIMES (QUOTE 2) (*1*BCDR *3*X)))) (T (*1*PLUS (*1*BCAR *3*X) (*1*TIMES (QUOTE 2) (*1*SETN (*1*BCDR *3*X) (*1*SUB1 *3*N) *3*C)))))))))) (PUT1-LST (QUOTE *1*ADDER) (QUOTE (SEXPR (LAMBDA (*3*N *3*C *3*X *3*Y) (*1*HEAD (*1*PLUS *3*C (*1*PLUS *3*X *3*Y)) *3*N))))) (PUT1-LST (QUOTE *1*ADD) (QUOTE (SEXPR (LAMBDA (*3*N *3*X *3*Y) (*1*HEAD (*1*PLUS *3*X *3*Y) *3*N))))) (PUT1-LST (QUOTE *1*SUBTRACTER) (QUOTE (SEXPR (LAMBDA (*3*N *3*C *3*X *3*Y) (*1*ADDER *3*N (*1*B-NOT *3*C) *3*Y (*1*LOGNOT *3*N *3*X)))))) (PUT1-LST (QUOTE *1*SUB) (QUOTE (SEXPR (LAMBDA (*3*N *3*X *3*Y) (*1*HEAD (*1*PLUS *3*Y (*1*DIFFERENCE (*1*EXP (QUOTE 2) *3*N) (*1*HEAD *3*X *3*N))) *3*N))))) (PUT1-LST (QUOTE *1*APP) (QUOTE (SEXPR (LAMBDA (*3*N *3*X *3*Y) (*1*PLUS (*1*HEAD *3*X *3*N) (*1*TIMES *3*Y (*1*EXP (QUOTE 2) *3*N))))))) (PUT1-LST (QUOTE *1*REPLACE) (QUOTE (SEXPR (LAMBDA (*3*N *3*X *3*Y) (*1*APP *3*N *3*X (*1*TAIL *3*Y *3*N)))))) (PUT1-LST (QUOTE *1*EXT) (QUOTE (SEXPR (LAMBDA (*3*N *3*X *3*SIZE) (COND ((NOT (EQ (*1*LESSP *3*N *3*SIZE) *1*F)) (COND ((NOT (EQ (*1*B0P (*1*BITN *3*X (*1*SUB1 *3*N))) *1*F)) (*1*HEAD *3*X *3*N)) (T (*1*APP *3*N *3*X (*1*SUB1 (*1*EXP (QUOTE 2) (*1*DIFFERENCE *3*SIZE *3*N))))))) (T (*1*HEAD *3*X *3*SIZE))))))) (PUT1-LST (QUOTE *1*LSL) (QUOTE (SEXPR (LAMBDA (*3*LEN *3*X *3*CNT) (*1*HEAD (*1*TIMES *3*X (*1*EXP (QUOTE 2) *3*CNT)) *3*LEN))))) (PUT1-LST (QUOTE *1*ASL) (QUOTE (SEXPR (LAMBDA (*3*LEN *3*X *3*CNT) (*1*HEAD (*1*TIMES *3*X (*1*EXP (QUOTE 2) *3*CNT)) *3*LEN))))) (PUT1-LST (QUOTE *1*LSR) (QUOTE (SEXPR (LAMBDA (*3*X *3*CNT) (*1*TAIL *3*X *3*CNT))))) (PUT1-LST (QUOTE *1*ASR) (QUOTE (SEXPR (LAMBDA (*3*N *3*X *3*CNT) (LET NIL (COND ((NOT (EQ (*1*LESSP *3*X (*1*EXP (QUOTE 2) (*1*SUB1 *3*N))) *1*F)) (*1*TAIL *3*X *3*CNT)) ((NOT (EQ (*1*LESSP *3*N *3*CNT) *1*F)) (*1*SUB1 (*1*EXP (QUOTE 2) *3*N))) (T (*1*APP (*1*DIFFERENCE *3*N *3*CNT) (*1*TAIL *3*X *3*CNT) (*1*SUB1 (*1*EXP (QUOTE 2) *3*CNT)))))))))) (PUT1-LST (QUOTE *1*NEGP) (QUOTE (SEXPR (LAMBDA (*3*I) (*1*AND (*1*NEGATIVEP *3*I) (*1*NOT (COND ((EQUAL *3*I (QUOTE (*1*QUOTE MINUS 0))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))))))))) (PUT1-LST (QUOTE *1*INTEGERP) (QUOTE (SEXPR (LAMBDA (*3*X) (*1*OR (*1*NUMBERP *3*X) (*1*NEGP *3*X)))))) (PUT1-LST (QUOTE *1*FIX-INT) (QUOTE (SEXPR (LAMBDA (*3*X) (COND ((NOT (EQ (*1*INTEGERP *3*X) *1*F)) *3*X) (T (QUOTE 0))))))) (PUT1-LST (QUOTE *1*IZEROP) (QUOTE (SEXPR (LAMBDA (*3*X) (COND ((EQUAL (*1*FIX-INT *3*X) (QUOTE 0)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))))))) (PUT1-LST (QUOTE *1*ABS) (QUOTE (SEXPR (LAMBDA (*3*X) (COND ((NOT (EQ (*1*NEGP *3*X) *1*F)) (*1*NEGATIVE-GUTS *3*X)) (T (*1*FIX *3*X))))))) (PUT1-LST (QUOTE *1*ILESSP) (QUOTE (SEXPR (LAMBDA (*3*I *3*J) (LET NIL (COND ((NOT (EQ (*1*NEGP *3*I) *1*F)) (COND ((NOT (EQ (*1*NEGP *3*J) *1*F)) (*1*LESSP (*1*NEGATIVE-GUTS *3*J) (*1*NEGATIVE-GUTS *3*I))) (T (QUOTE *1*TRUE)))) ((NOT (EQ (*1*NEGP *3*J) *1*F)) (QUOTE *1*FALSE)) (T (*1*LESSP *3*I *3*J)))))))) (PUT1-LST (QUOTE *1*ILEQ) (QUOTE (SEXPR (LAMBDA (*3*I *3*J) (*1*NOT (*1*ILESSP *3*J *3*I)))))) (PUT1-LST (QUOTE *1*IPLUS) (QUOTE (SEXPR (LAMBDA (*3*X *3*Y) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (COND ((NOT (EQ (*1*NEGP *3*X) *1*F)) (COND ((NOT (EQ (*1*NEGP *3*Y) *1*F)) (*1*MINUS (*1*PLUS (*1*NEGATIVE-GUTS *3*X) (*1*NEGATIVE-GUTS *3*Y)))) ((NOT (EQ (*1*LESSP *3*Y (SETQ *2*TEMP2 (*1*NEGATIVE-GUTS *3*X))) *1*F)) (*1*MINUS (*1*DIFFERENCE *2*TEMP2 *3*Y))) (T (*1*DIFFERENCE *3*Y *2*TEMP2)))) ((NOT (EQ (*1*NEGP *3*Y) *1*F)) (COND ((NOT (EQ (*1*LESSP *3*X (SETQ *2*TEMP1 (*1*NEGATIVE-GUTS *3*Y))) *1*F)) (*1*MINUS (*1*DIFFERENCE *2*TEMP1 *3*X))) (T (*1*DIFFERENCE *3*X *2*TEMP1)))) (T (*1*PLUS *3*X *3*Y)))))))) (PUT1-LST (QUOTE *1*INEG) (QUOTE (SEXPR (LAMBDA (*3*X) (COND ((NOT (EQ (*1*IZEROP *3*X) *1*F)) (QUOTE 0)) ((NOT (EQ (*1*NEGP *3*X) *1*F)) (*1*NEGATIVE-GUTS *3*X)) (T (*1*MINUS *3*X))))))) (PUT1-LST (QUOTE *1*IDIFFERENCE) (QUOTE (SEXPR (LAMBDA (*3*X *3*Y) (*1*IPLUS *3*X (*1*INEG *3*Y)))))) (PUT1-LST (QUOTE *1*ITIMES) (QUOTE (SEXPR (LAMBDA (*3*X *3*Y) (LET NIL (COND ((NOT (EQ (*1*NEGP *3*X) *1*F)) (COND ((NOT (EQ (*1*NEGP *3*Y) *1*F)) (*1*TIMES (*1*NEGATIVE-GUTS *3*X) (*1*NEGATIVE-GUTS *3*Y))) (T (*1*FIX-INT (*1*MINUS (*1*TIMES (*1*NEGATIVE-GUTS *3*X) *3*Y)))))) ((NOT (EQ (*1*NEGP *3*Y) *1*F)) (*1*FIX-INT (*1*MINUS (*1*TIMES *3*X (*1*NEGATIVE-GUTS *3*Y))))) (T (*1*TIMES *3*X *3*Y)))))))) (PUT1-LST (QUOTE *1*IREMAINDER) (QUOTE (SEXPR (LAMBDA (*3*X *3*Y) (LET NIL (COND ((NOT (EQ (*1*NEGP *3*X) *1*F)) (*1*FIX-INT (*1*MINUS (*1*REMAINDER (*1*NEGATIVE-GUTS *3*X) (*1*ABS *3*Y))))) (T (*1*REMAINDER *3*X (*1*ABS *3*Y))))))))) (PUT1-LST (QUOTE *1*IQUOTIENT) (QUOTE (SEXPR (LAMBDA (*3*X *3*Y) (LET NIL (COND ((NOT (EQ (*1*NEGP *3*X) *1*F)) (COND ((NOT (EQ (*1*NEGP *3*Y) *1*F)) (*1*QUOTIENT (*1*NEGATIVE-GUTS *3*X) (*1*NEGATIVE-GUTS *3*Y))) (T (*1*FIX-INT (*1*MINUS (*1*QUOTIENT (*1*NEGATIVE-GUTS *3*X) *3*Y)))))) ((NOT (EQ (*1*NEGP *3*Y) *1*F)) (*1*FIX-INT (*1*MINUS (*1*QUOTIENT *3*X (*1*NEGATIVE-GUTS *3*Y))))) (T (*1*QUOTIENT *3*X *3*Y)))))))) (PUT1-LST (QUOTE *1*NAT-RANGEP) (QUOTE (SEXPR (LAMBDA (*3*NAT *3*N) (*1*LESSP *3*NAT (*1*EXP (QUOTE 2) *3*N)))))) (PUT1-LST (QUOTE *1*UINT-RANGEP) (QUOTE (SEXPR (LAMBDA (*3*X *3*N) (*1*LESSP *3*X (*1*EXP (QUOTE 2) *3*N)))))) (PUT1-LST (QUOTE *1*NAT-TO-UINT) (QUOTE (SEXPR (LAMBDA (*3*X) (*1*FIX *3*X))))) (PUT1-LST (QUOTE *1*UINT-TO-NAT) (QUOTE (SEXPR (LAMBDA (*3*X) (*1*FIX *3*X))))) (PUT1-LST (QUOTE *1*INT-RANGEP) (QUOTE (SEXPR (LAMBDA (*3*INT *3*N) (LET NIL (COND ((NOT (EQ (*1*ZEROP *3*N) *1*F)) (COND ((EQUAL (*1*FIX-INT *3*INT) (QUOTE 0)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) ((NOT (EQ (*1*NEGATIVEP *3*INT) *1*F)) (COND ((NOT (EQ (*1*LESSP (*1*EXP (QUOTE 2) (*1*SUB1 *3*N)) (*1*NEGATIVE-GUTS *3*INT)) *1*F)) (QUOTE *1*FALSE)) (T (QUOTE *1*TRUE)))) (T (*1*LESSP *3*INT (*1*EXP (QUOTE 2) (*1*SUB1 *3*N)))))))))) (PUT1-LST (QUOTE *1*NAT-TO-INT) (QUOTE (SEXPR (LAMBDA (*3*X *3*N) (COND ((NOT (EQ (*1*LESSP *3*X (*1*EXP (QUOTE 2) (*1*SUB1 *3*N))) *1*F)) (*1*FIX *3*X)) (T (*1*MINUS (*1*DIFFERENCE (*1*EXP (QUOTE 2) *3*N) *3*X)))))))) (PUT1-LST (QUOTE *1*INT-TO-NAT) (QUOTE (SEXPR (LAMBDA (*3*X *3*SIZE) (COND ((NOT (EQ (*1*NEGATIVEP *3*X) *1*F)) (*1*DIFFERENCE (*1*EXP (QUOTE 2) *3*SIZE) (*1*NEGATIVE-GUTS *3*X))) (T (*1*FIX *3*X))))))) (PUT1-LST (QUOTE *1*VALUE-FIELD) (QUOTE (SEXPR (LAMBDA (*3*BT) (COND ((AND (CONSP *3*BT) (NOT (EQ (CAR *3*BT) (QUOTE *1*QUOTE)))) (CAR *3*BT)) (T (QUOTE 0))))))) (PUT1-LST (QUOTE *1*BRANCH0) (QUOTE (SEXPR (LAMBDA (*3*BT) (COND ((AND (CONSP *3*BT) (NOT (EQ (CAR *3*BT) (QUOTE *1*QUOTE)))) (*1*CAR (CDR *3*BT))) (T (QUOTE NIL))))))) (PUT1-LST (QUOTE *1*BRANCH1) (QUOTE (SEXPR (LAMBDA (*3*BT) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*AND (COND ((AND (CONSP *3*BT) (NOT (EQ (CAR *3*BT) (QUOTE *1*QUOTE)))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (COND ((AND (CONSP (SETQ *2*TEMP1 (*1*CDR *3*BT))) (NOT (EQ (CAR *2*TEMP1) (QUOTE *1*QUOTE)))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) *1*F)) (*1*CDR *2*TEMP1)) (T (QUOTE NIL)))))))) (PUT1-LST (QUOTE *1*MAKE-BT) (QUOTE (SEXPR (LAMBDA (*3*VALUE *3*BR0 *3*BR1) (CONS *3*VALUE (CONS *3*BR0 *3*BR1)))))) (PUT1-LST (QUOTE *1*READP) (QUOTE (SEXPR (LAMBDA (*3*X *3*N *3*MAP) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*MEMBER (QUOTE UNAVAILABLE) (*1*VALUE-FIELD *3*MAP)) *1*F)) (QUOTE *1*FALSE)) ((NOT (EQ (*1*OR (*1*NLISTP *3*MAP) (*1*ZEROP *3*N)) *1*F)) (QUOTE *1*TRUE)) ((NOT (EQ (*1*B0P (*1*BITN *3*X (SETQ *2*TEMP1 (*1*SUB1 *3*N)))) *1*F)) (*1*READP *3*X *2*TEMP1 (*1*BRANCH0 *3*MAP))) (T (*1*READP *3*X *2*TEMP1 (*1*BRANCH1 *3*MAP))))))))) (PUT1-LST (QUOTE *1*PC-READP) (QUOTE (SEXPR (LAMBDA (*3*X *3*N *3*MAP) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (COND ((NOT (EQ (*1*MEMBER (QUOTE UNAVAILABLE) (SETQ *2*TEMP2 (*1*VALUE-FIELD *3*MAP))) *1*F)) (QUOTE *1*FALSE)) ((NOT (EQ (*1*MEMBER (QUOTE ROM) *2*TEMP2) *1*F)) (*1*READP *3*X *3*N *3*MAP)) ((NOT (EQ (*1*OR (*1*NLISTP *3*MAP) (*1*ZEROP *3*N)) *1*F)) (QUOTE *1*FALSE)) ((NOT (EQ (*1*B0P (*1*BITN *3*X (SETQ *2*TEMP1 (*1*SUB1 *3*N)))) *1*F)) (*1*PC-READP *3*X *2*TEMP1 (*1*BRANCH0 *3*MAP))) (T (*1*PC-READP *3*X *2*TEMP1 (*1*BRANCH1 *3*MAP))))))))) (PUT1-LST (QUOTE *1*WRITEP) (QUOTE (SEXPR (LAMBDA (*3*X *3*N *3*MAP) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (COND ((NOT (EQ (*1*OR (*1*MEMBER (QUOTE UNAVAILABLE) (SETQ *2*TEMP2 (*1*VALUE-FIELD *3*MAP))) (*1*MEMBER (QUOTE ROM) *2*TEMP2)) *1*F)) (QUOTE *1*FALSE)) ((NOT (EQ (*1*OR (*1*NLISTP *3*MAP) (*1*ZEROP *3*N)) *1*F)) (QUOTE *1*TRUE)) ((NOT (EQ (*1*B0P (*1*BITN *3*X (SETQ *2*TEMP1 (*1*SUB1 *3*N)))) *1*F)) (*1*WRITEP *3*X *2*TEMP1 (*1*BRANCH0 *3*MAP))) (T (*1*WRITEP *3*X *2*TEMP1 (*1*BRANCH1 *3*MAP))))))))) (PUT1-LST (QUOTE *1*READ) (QUOTE (SEXPR (LAMBDA (*3*X *3*N *3*BT) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*ZEROP *3*N) *1*F)) (*1*VALUE-FIELD *3*BT)) ((NOT (EQ (*1*B0P (*1*BITN *3*X (SETQ *2*TEMP1 (*1*SUB1 *3*N)))) *1*F)) (*1*READ *3*X *2*TEMP1 (*1*BRANCH0 *3*BT))) (T (*1*READ *3*X *2*TEMP1 (*1*BRANCH1 *3*BT))))))))) (PUT1-LST (QUOTE *1*PC-READ) (QUOTE (SEXPR (LAMBDA (*3*X *3*N *3*BT) (*1*READ *3*X *3*N *3*BT))))) (PUT1-LST (QUOTE *1*WRITE) (QUOTE (SEXPR (LAMBDA (*3*VALUE *3*X *3*N *3*BT) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*ZEROP *3*N) *1*F)) (*1*MAKE-BT *3*VALUE (*1*BRANCH0 *3*BT) (*1*BRANCH1 *3*BT))) ((NOT (EQ (*1*B0P (*1*BITN *3*X (SETQ *2*TEMP1 (*1*SUB1 *3*N)))) *1*F)) (*1*MAKE-BT (*1*VALUE-FIELD *3*BT) (*1*WRITE *3*VALUE *3*X *2*TEMP1 (*1*BRANCH0 *3*BT)) (*1*BRANCH1 *3*BT))) (T (*1*MAKE-BT (*1*VALUE-FIELD *3*BT) (*1*BRANCH0 *3*BT) (*1*WRITE *3*VALUE *3*X *2*TEMP1 (*1*BRANCH1 *3*BT)))))))))) (PUT1-LST (QUOTE *1*GET-NTH) (QUOTE (SEXPR (LAMBDA (*3*N *3*LST) (COND ((NOT (EQ (*1*ZEROP *3*N) *1*F)) (*1*CAR *3*LST)) (T (*1*GET-NTH (*1*SUB1 *3*N) (*1*CDR *3*LST)))))))) (PUT1-LST (QUOTE *1*PUT-NTH) (QUOTE (SEXPR (LAMBDA (*3*VALUE *3*N *3*LST) (LET NIL (COND ((NOT (EQ (*1*ZEROP *3*N) *1*F)) (CONS *3*VALUE (*1*CDR *3*LST))) (T (CONS (*1*CAR *3*LST) (*1*PUT-NTH *3*VALUE (*1*SUB1 *3*N) (*1*CDR *3*LST)))))))))) (PUT1-LST (QUOTE *1*OP-SZ) (QUOTE (SEXPR (LAMBDA (*3*OPLEN) (*1*QUOTIENT *3*OPLEN (*1*B)))))) (PUT1-LST (QUOTE *1*READ-RN) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*RN *3*REGS) (*1*HEAD (*1*GET-NTH *3*RN *3*REGS) *3*OPLEN))))) (PUT1-LST (QUOTE *1*WRITE-RN) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*VALUE *3*RN *3*REGS) (*1*PUT-NTH (*1*REPLACE *3*OPLEN *3*VALUE (*1*GET-NTH *3*RN *3*REGS)) *3*RN *3*REGS))))) (PUT1-LST (QUOTE *1*MC-STATE) (QUOTE (SEXPR (LAMBDA (*3*STATUS *3*REGS *3*PC *3*CCR *3*MEM) (CONS *3*STATUS (CONS *3*REGS (CONS *3*PC (CONS *3*CCR (CONS *3*MEM (QUOTE NIL)))))))))) (PUT1-LST (QUOTE *1*MC-STATUS) (QUOTE (SEXPR (LAMBDA (*3*S) (*1*CAR *3*S))))) (PUT1-LST (QUOTE *1*MC-RFILE) (QUOTE (SEXPR (LAMBDA (*3*S) (*1*CAR (*1*CDR *3*S)))))) (PUT1-LST (QUOTE *1*MC-PC) (QUOTE (SEXPR (LAMBDA (*3*S) (*1*HEAD (*1*CAR (*1*CDR (*1*CDR *3*S))) (*1*L)))))) (PUT1-LST (QUOTE *1*MC-CCR) (QUOTE (SEXPR (LAMBDA (*3*S) (*1*HEAD (*1*CAR (*1*CDR (*1*CDR (*1*CDR *3*S)))) (*1*B)))))) (PUT1-LST (QUOTE *1*MC-MEM) (QUOTE (SEXPR (LAMBDA (*3*S) (*1*CAR (*1*CDR (*1*CDR (*1*CDR (*1*CDR *3*S))))))))) (PUT1-LST (QUOTE *1*LEN) (QUOTE (SEXPR (LAMBDA (*3*LST) (COND ((NOT (EQ (*1*NLISTP *3*LST) *1*F)) (QUOTE 0)) (T (*1*ADD1 (*1*LEN (*1*CDR *3*LST))))))))) (PUT1-LST (QUOTE *1*MC-HALTP) (QUOTE (SEXPR (LAMBDA (*3*S) (*1*NOT (COND ((EQ (*1*MC-STATUS *3*S) (QUOTE RUNNING)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))))))) (PUT1-LST (QUOTE *1*BYTE-READP) (QUOTE (SEXPR (LAMBDA (*3*X *3*MEM) (*1*READP *3*X (QUOTE 32) (*1*CAR *3*MEM)))))) (PUT1-LST (QUOTE *1*READ-MEMP) (QUOTE (SEXPR (LAMBDA (*3*X *3*MEM *3*K) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*ZEROP *3*K) *1*F)) (QUOTE *1*TRUE)) (T (*1*AND (*1*BYTE-READP (*1*ADD (QUOTE 32) *3*X (SETQ *2*TEMP1 (*1*SUB1 *3*K))) *3*MEM) (*1*READ-MEMP *3*X *3*MEM *2*TEMP1))))))))) (PUT1-LST (QUOTE *1*WORD-READP) (QUOTE (SEXPR (LAMBDA (*3*X *3*MEM) (*1*READ-MEMP *3*X *3*MEM (*1*WSZ)))))) (PUT1-LST (QUOTE *1*LONG-READP) (QUOTE (SEXPR (LAMBDA (*3*X *3*MEM) (*1*READ-MEMP *3*X *3*MEM (*1*LSZ)))))) (PUT1-LST (QUOTE *1*PC-BYTE-READP) (QUOTE (SEXPR (LAMBDA (*3*X *3*MEM) (*1*PC-READP *3*X (QUOTE 32) (*1*CAR *3*MEM)))))) (PUT1-LST (QUOTE *1*PC-READ-MEMP) (QUOTE (SEXPR (LAMBDA (*3*X *3*MEM *3*K) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*ZEROP *3*K) *1*F)) (QUOTE *1*TRUE)) (T (*1*AND (*1*PC-BYTE-READP (*1*ADD (QUOTE 32) *3*X (SETQ *2*TEMP1 (*1*SUB1 *3*K))) *3*MEM) (*1*PC-READ-MEMP *3*X *3*MEM *2*TEMP1))))))))) (PUT1-LST (QUOTE *1*PC-WORD-READP) (QUOTE (SEXPR (LAMBDA (*3*X *3*MEM) (*1*PC-READ-MEMP *3*X *3*MEM (*1*WSZ)))))) (PUT1-LST (QUOTE *1*PC-LONG-READP) (QUOTE (SEXPR (LAMBDA (*3*X *3*MEM) (*1*PC-READ-MEMP *3*X *3*MEM (*1*LSZ)))))) (PUT1-LST (QUOTE *1*BYTE-READ) (QUOTE (SEXPR (LAMBDA (*3*X *3*MEM) (*1*HEAD (*1*READ *3*X (QUOTE 32) (*1*CDR *3*MEM)) (*1*B)))))) (PUT1-LST (QUOTE *1*READ-MEM) (QUOTE (SEXPR (LAMBDA (*3*X *3*MEM *3*K) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*ZEROP *3*K) *1*F)) (QUOTE 0)) (T (*1*APP (*1*B) (*1*BYTE-READ (*1*ADD (QUOTE 32) *3*X (SETQ *2*TEMP1 (*1*SUB1 *3*K))) *3*MEM) (*1*READ-MEM *3*X *3*MEM *2*TEMP1))))))))) (PUT1-LST (QUOTE *1*WORD-READ) (QUOTE (SEXPR (LAMBDA (*3*X *3*MEM) (*1*READ-MEM *3*X *3*MEM (*1*WSZ)))))) (PUT1-LST (QUOTE *1*LONG-READ) (QUOTE (SEXPR (LAMBDA (*3*X *3*MEM) (*1*READ-MEM *3*X *3*MEM (*1*LSZ)))))) (PUT1-LST (QUOTE *1*PC-BYTE-READ) (QUOTE (SEXPR (LAMBDA (*3*PC *3*MEM) (*1*HEAD (*1*PC-READ *3*PC (QUOTE 32) (*1*CDR *3*MEM)) (*1*B)))))) (PUT1-LST (QUOTE *1*PC-READ-MEM) (QUOTE (SEXPR (LAMBDA (*3*PC *3*MEM *3*K) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*ZEROP *3*K) *1*F)) (QUOTE 0)) (T (*1*APP (*1*B) (*1*PC-BYTE-READ (*1*ADD (QUOTE 32) *3*PC (SETQ *2*TEMP1 (*1*SUB1 *3*K))) *3*MEM) (*1*PC-READ-MEM *3*PC *3*MEM *2*TEMP1))))))))) (PUT1-LST (QUOTE *1*PC-WORD-READ) (QUOTE (SEXPR (LAMBDA (*3*PC *3*MEM) (*1*PC-READ-MEM *3*PC *3*MEM (*1*WSZ)))))) (PUT1-LST (QUOTE *1*PC-LONG-READ) (QUOTE (SEXPR (LAMBDA (*3*PC *3*MEM) (*1*PC-READ-MEM *3*PC *3*MEM (*1*LSZ)))))) (PUT1-LST (QUOTE *1*S_RN) (QUOTE (SEXPR (LAMBDA (*3*INS) (*1*BITS *3*INS (QUOTE 0) (QUOTE 2)))))) (PUT1-LST (QUOTE *1*S_MODE) (QUOTE (SEXPR (LAMBDA (*3*INS) (*1*BITS *3*INS (QUOTE 3) (QUOTE 5)))))) (PUT1-LST (QUOTE *1*D_MODE) (QUOTE (SEXPR (LAMBDA (*3*INS) (*1*BITS *3*INS (QUOTE 6) (QUOTE 8)))))) (PUT1-LST (QUOTE *1*D_RN) (QUOTE (SEXPR (LAMBDA (*3*INS) (*1*BITS *3*INS (QUOTE 9) (QUOTE 11)))))) (PUT1-LST (QUOTE *1*OPMODE-FIELD) (QUOTE (SEXPR (LAMBDA (*3*INS) (*1*BITS *3*INS (QUOTE 6) (QUOTE 8)))))) (PUT1-LST (QUOTE *1*COND-FIELD) (QUOTE (SEXPR (LAMBDA (*3*INS) (*1*BITS *3*INS (QUOTE 8) (QUOTE 11)))))) (PUT1-LST (QUOTE *1*OP-LEN) (QUOTE (SEXPR (LAMBDA (*3*INS) (*1*TIMES (*1*B) (*1*EXP (QUOTE 2) (*1*BITS *3*INS (QUOTE 6) (QUOTE 7)))))))) (PUT1-LST (QUOTE *1*BYTE-WRITEP) (QUOTE (SEXPR (LAMBDA (*3*X *3*MEM) (*1*WRITEP *3*X (QUOTE 32) (*1*CAR *3*MEM)))))) (PUT1-LST (QUOTE *1*WRITE-MEMP) (QUOTE (SEXPR (LAMBDA (*3*X *3*MEM *3*K) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*ZEROP *3*K) *1*F)) (QUOTE *1*TRUE)) (T (*1*AND (*1*BYTE-WRITEP (*1*ADD (QUOTE 32) *3*X (SETQ *2*TEMP1 (*1*SUB1 *3*K))) *3*MEM) (*1*WRITE-MEMP *3*X *3*MEM *2*TEMP1))))))))) (PUT1-LST (QUOTE *1*BYTE-WRITE) (QUOTE (SEXPR (LAMBDA (*3*VALUE *3*X *3*MEM) (CONS (*1*CAR *3*MEM) (*1*WRITE (*1*HEAD *3*VALUE (*1*B)) *3*X (QUOTE 32) (*1*CDR *3*MEM))))))) (PUT1-LST (QUOTE *1*WRITE-MEM) (QUOTE (SEXPR (LAMBDA (*3*VALUE *3*X *3*MEM *3*K) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*ZEROP *3*K) *1*F)) *3*MEM) (T (*1*WRITE-MEM (*1*TAIL *3*VALUE (*1*B)) *3*X (*1*BYTE-WRITE *3*VALUE (*1*ADD (QUOTE 32) *3*X (SETQ *2*TEMP1 (*1*SUB1 *3*K))) *3*MEM) *2*TEMP1)))))))) (PUT1-LST (QUOTE *1*CCR-C) (QUOTE (SEXPR (LAMBDA (*3*CCR) (*1*BITN *3*CCR (QUOTE 0)))))) (PUT1-LST (QUOTE *1*CCR-V) (QUOTE (SEXPR (LAMBDA (*3*CCR) (*1*BITN *3*CCR (QUOTE 1)))))) (PUT1-LST (QUOTE *1*CCR-Z) (QUOTE (SEXPR (LAMBDA (*3*CCR) (*1*BITN *3*CCR (QUOTE 2)))))) (PUT1-LST (QUOTE *1*CCR-N) (QUOTE (SEXPR (LAMBDA (*3*CCR) (*1*BITN *3*CCR (QUOTE 3)))))) (PUT1-LST (QUOTE *1*CCR-X) (QUOTE (SEXPR (LAMBDA (*3*CCR) (*1*BITN *3*CCR (QUOTE 4)))))) (PUT1-LST (QUOTE *1*CVZNX) (QUOTE (SEXPR (LAMBDA (*3*C *3*V *3*Z *3*N *3*X) (*1*PLUS (*1*FIX-BIT *3*C) (*1*PLUS (*1*TIMES (QUOTE 2) (*1*FIX-BIT *3*V)) (*1*PLUS (*1*TIMES (QUOTE 4) (*1*FIX-BIT *3*Z)) (*1*PLUS (*1*TIMES (QUOTE 8) (*1*FIX-BIT *3*N)) (*1*TIMES (QUOTE 16) (*1*FIX-BIT *3*X)))))))))) (PUT1-LST (QUOTE *1*SET-CVZNX) (QUOTE (SEXPR (LAMBDA (*3*CVZNX *3*CCR) (*1*REPLACE (QUOTE 5) *3*CVZNX *3*CCR))))) (PUT1-LST (QUOTE *1*SET-C) (QUOTE (SEXPR (LAMBDA (*3*C *3*CCR) (*1*SET-CVZNX (*1*CVZNX *3*C (*1*CCR-V *3*CCR) (*1*CCR-Z *3*CCR) (*1*CCR-N *3*CCR) (*1*CCR-X *3*CCR)) *3*CCR))))) (PUT1-LST (QUOTE *1*SET-V) (QUOTE (SEXPR (LAMBDA (*3*V *3*CCR) (*1*SET-CVZNX (*1*CVZNX (*1*CCR-C *3*CCR) *3*V (*1*CCR-Z *3*CCR) (*1*CCR-N *3*CCR) (*1*CCR-X *3*CCR)) *3*CCR))))) (PUT1-LST (QUOTE *1*SET-Z) (QUOTE (SEXPR (LAMBDA (*3*Z *3*CCR) (*1*SET-CVZNX (*1*CVZNX (*1*CCR-C *3*CCR) (*1*CCR-V *3*CCR) *3*Z (*1*CCR-N *3*CCR) (*1*CCR-X *3*CCR)) *3*CCR))))) (PUT1-LST (QUOTE *1*SET-N) (QUOTE (SEXPR (LAMBDA (*3*N *3*CCR) (*1*SET-CVZNX (*1*CVZNX (*1*CCR-C *3*CCR) (*1*CCR-V *3*CCR) (*1*CCR-Z *3*CCR) *3*N (*1*CCR-X *3*CCR)) *3*CCR))))) (PUT1-LST (QUOTE *1*SET-X) (QUOTE (SEXPR (LAMBDA (*3*X *3*CCR) (*1*SET-CVZNX (*1*CVZNX (*1*CCR-C *3*CCR) (*1*CCR-V *3*CCR) (*1*CCR-Z *3*CCR) (*1*CCR-N *3*CCR) *3*X) *3*CCR))))) (PUT1-LST (QUOTE *1*HALT) (QUOTE (SEXPR (LAMBDA (*3*SIGNAL *3*S) (*1*MC-STATE *3*SIGNAL (*1*MC-RFILE *3*S) (*1*MC-PC *3*S) (*1*MC-CCR *3*S) (*1*MC-MEM *3*S)))))) (PUT1-LST (QUOTE *1*UPDATE-RFILE) (QUOTE (SEXPR (LAMBDA (*3*NEW-RFILE *3*S) (*1*MC-STATE (*1*MC-STATUS *3*S) *3*NEW-RFILE (*1*MC-PC *3*S) (*1*MC-CCR *3*S) (*1*MC-MEM *3*S)))))) (PUT1-LST (QUOTE *1*UPDATE-PC) (QUOTE (SEXPR (LAMBDA (*3*NEW-PC *3*S) (*1*MC-STATE (*1*MC-STATUS *3*S) (*1*MC-RFILE *3*S) *3*NEW-PC (*1*MC-CCR *3*S) (*1*MC-MEM *3*S)))))) (PUT1-LST (QUOTE *1*UPDATE-CCR) (QUOTE (SEXPR (LAMBDA (*3*NEW-CCR *3*S) (*1*MC-STATE (*1*MC-STATUS *3*S) (*1*MC-RFILE *3*S) (*1*MC-PC *3*S) (*1*SET-CVZNX *3*NEW-CCR (*1*MC-CCR *3*S)) (*1*MC-MEM *3*S)))))) (PUT1-LST (QUOTE *1*UPDATE-MEM) (QUOTE (SEXPR (LAMBDA (*3*NEW-MEM *3*S) (*1*MC-STATE (*1*MC-STATUS *3*S) (*1*MC-RFILE *3*S) (*1*MC-PC *3*S) (*1*MC-CCR *3*S) *3*NEW-MEM))))) (PUT1-LST (QUOTE *1*READ-DN) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*DN *3*S) (*1*READ-RN *3*OPLEN *3*DN (*1*MC-RFILE *3*S)))))) (PUT1-LST (QUOTE *1*READ-AN) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*AN *3*S) (*1*READ-RN *3*OPLEN (*1*PLUS (QUOTE 8) *3*AN) (*1*MC-RFILE *3*S)))))) (PUT1-LST (QUOTE *1*WRITE-DN) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*VALUE *3*DN *3*S) (*1*UPDATE-RFILE (*1*WRITE-RN *3*OPLEN *3*VALUE *3*DN (*1*MC-RFILE *3*S)) *3*S))))) (PUT1-LST (QUOTE *1*WRITE-AN) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*VALUE *3*AN *3*S) (*1*UPDATE-RFILE (*1*WRITE-RN *3*OPLEN *3*VALUE (*1*PLUS (QUOTE 8) *3*AN) (*1*MC-RFILE *3*S)) *3*S))))) (PUT1-LST (QUOTE *1*SP) (QUOTE (SEXPR (LAMBDA NIL (QUOTE 7))))) (PUT1-LST (QUOTE *1*READ-SP) (QUOTE (SEXPR (LAMBDA (*3*S) (*1*READ-AN (*1*L) (*1*SP) *3*S))))) (PUT1-LST (QUOTE *1*WRITE-SP) (QUOTE (SEXPR (LAMBDA (*3*VALUE *3*S) (*1*WRITE-AN (*1*L) *3*VALUE (*1*SP) *3*S))))) (PUT1-LST (QUOTE *1*PUSH-SP) (QUOTE (SEXPR (LAMBDA (*3*OPSZ *3*VALUE *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (COND ((NOT (EQ (*1*WRITE-MEMP (SETQ *2*TEMP2 (*1*SUB (*1*L) *3*OPSZ (*1*READ-SP *3*S))) (SETQ *2*TEMP1 (*1*MC-MEM *3*S)) *3*OPSZ) *1*F)) (*1*UPDATE-MEM (*1*WRITE-MEM *3*VALUE *2*TEMP2 *2*TEMP1 *3*OPSZ) (*1*WRITE-SP *2*TEMP2 *3*S))) (T (*1*HALT (*1*WRITE-SIGNAL) *3*S)))))))) (PUT1-LST (QUOTE *1*OPERAND) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*ADDR *3*S) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((EQ (SETQ *2*TEMP1 (*1*CAR *3*ADDR)) (QUOTE D)) (*1*READ-DN *3*OPLEN (*1*CDR *3*ADDR) *3*S)) ((EQ *2*TEMP1 (QUOTE A)) (*1*READ-AN *3*OPLEN (*1*CDR *3*ADDR) *3*S)) ((EQ *2*TEMP1 (QUOTE M)) (*1*READ-MEM (*1*CDR *3*ADDR) (*1*MC-MEM *3*S) (*1*OP-SZ *3*OPLEN))) (T (*1*CDR *3*ADDR)))))))) (PUT1-LST (QUOTE *1*POST-EFFECT) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*RN *3*ADDR) (LET NIL (COND ((NOT (EQ (*1*AND (COND ((EQUAL *3*RN (*1*SP)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (COND ((EQUAL *3*OPLEN (*1*B)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) *1*F)) (*1*ADD (*1*L) *3*ADDR (*1*WSZ))) (T (*1*ADD (*1*L) *3*ADDR (*1*OP-SZ *3*OPLEN))))))))) (PUT1-LST (QUOTE *1*PRE-EFFECT) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*RN *3*ADDR) (LET NIL (COND ((NOT (EQ (*1*AND (COND ((EQUAL *3*RN (*1*SP)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (COND ((EQUAL *3*OPLEN (*1*B)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) *1*F)) (*1*SUB (*1*L) (*1*WSZ) *3*ADDR)) (T (*1*SUB (*1*L) (*1*OP-SZ *3*OPLEN) *3*ADDR)))))))) (PUT1-LST (QUOTE *1*DN-DIRECT) (QUOTE (SEXPR (LAMBDA (*3*RN *3*S) (CONS *3*S (CONS (QUOTE D) *3*RN)))))) (PUT1-LST (QUOTE *1*AN-DIRECT) (QUOTE (SEXPR (LAMBDA (*3*RN *3*S) (CONS *3*S (CONS (QUOTE A) *3*RN)))))) (PUT1-LST (QUOTE *1*ADDR-INDIRECT) (QUOTE (SEXPR (LAMBDA (*3*RN *3*S) (CONS *3*S (CONS (QUOTE M) (*1*READ-AN (*1*L) *3*RN *3*S))))))) (PUT1-LST (QUOTE *1*ADDR-POSTINC) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*RN *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (CONS (*1*WRITE-AN (SETQ *2*TEMP2 (*1*L)) (*1*POST-EFFECT *3*OPLEN *3*RN (SETQ *2*TEMP1 (*1*READ-AN *2*TEMP2 *3*RN *3*S))) *3*RN *3*S) (CONS (QUOTE M) *2*TEMP1))))))) (PUT1-LST (QUOTE *1*ADDR-PREDEC) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*RN *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (CONS (*1*WRITE-AN (SETQ *2*TEMP2 (*1*L)) (SETQ *2*TEMP1 (*1*PRE-EFFECT *3*OPLEN *3*RN (*1*READ-AN *2*TEMP2 *3*RN *3*S))) *3*RN *3*S) (CONS (QUOTE M) *2*TEMP1))))))) (PUT1-LST (QUOTE *1*ADDR-DISP) (QUOTE (SEXPR (LAMBDA (*3*PC *3*RN *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (COND ((NOT (EQ (*1*PC-WORD-READP *3*PC (SETQ *2*TEMP2 (*1*MC-MEM *3*S))) *1*F)) (CONS (*1*UPDATE-PC (*1*ADD (SETQ *2*TEMP1 (*1*L)) *3*PC (*1*WSZ)) *3*S) (CONS (QUOTE M) (*1*ADD *2*TEMP1 (*1*READ-AN *2*TEMP1 *3*RN *3*S) (*1*EXT (*1*W) (*1*PC-WORD-READ *3*PC *2*TEMP2) *2*TEMP1))))) (T (CONS (*1*HALT (*1*PC-SIGNAL) *3*S) (QUOTE NIL))))))))) (PUT1-LST (QUOTE *1*INDEX-RN) (QUOTE (SEXPR (LAMBDA (*3*INDEXWD) (*1*BITS *3*INDEXWD (QUOTE 12) (QUOTE 14)))))) (PUT1-LST (QUOTE *1*INDEX-REGISTER) (QUOTE (SEXPR (LAMBDA (*3*INDEXWD *3*S) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*B0P (*1*BITN *3*INDEXWD (QUOTE 15))) *1*F)) (COND ((NOT (EQ (*1*B0P (*1*BITN *3*INDEXWD (QUOTE 11))) *1*F)) (*1*EXT (SETQ *2*TEMP1 (*1*W)) (*1*READ-DN *2*TEMP1 (*1*INDEX-RN *3*INDEXWD) *3*S) (*1*L))) (T (*1*READ-DN (*1*L) (*1*INDEX-RN *3*INDEXWD) *3*S)))) ((NOT (EQ (*1*B0P (*1*BITN *3*INDEXWD (QUOTE 11))) *1*F)) (*1*EXT (SETQ *2*TEMP1 (*1*W)) (*1*READ-AN *2*TEMP1 (*1*INDEX-RN *3*INDEXWD) *3*S) (*1*L))) (T (*1*READ-AN (*1*L) (*1*INDEX-RN *3*INDEXWD) *3*S)))))))) (PUT1-LST (QUOTE *1*IR-SCALED) (QUOTE (SEXPR (LAMBDA (*3*INDEXWD *3*S) (*1*ASL (*1*L) (*1*INDEX-REGISTER *3*INDEXWD *3*S) (*1*BITS *3*INDEXWD (QUOTE 9) (QUOTE 10))))))) (PUT1-LST (QUOTE *1*ADDR-INDEX-DISP) (QUOTE (SEXPR (LAMBDA (*3*PC *3*RN *3*INDEXWD *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (CONS (*1*UPDATE-PC *3*PC *3*S) (CONS (QUOTE M) (*1*ADD (SETQ *2*TEMP2 (*1*L)) (*1*ADD *2*TEMP2 (*1*READ-AN *2*TEMP2 *3*RN *3*S) (*1*EXT (SETQ *2*TEMP1 (*1*B)) (*1*HEAD *3*INDEXWD *2*TEMP1) *2*TEMP2)) (*1*IR-SCALED *3*INDEXWD *3*S))))))))) (PUT1-LST (QUOTE *1*ADDR-INDEX-BD) (QUOTE (SEXPR (LAMBDA (*3*PC *3*ADDR *3*INDEXWD *3*S) (CONS (*1*UPDATE-PC *3*PC *3*S) (CONS (QUOTE M) (*1*ADD (*1*L) *3*ADDR (*1*IR-SCALED *3*INDEXWD *3*S)))))))) (PUT1-LST (QUOTE *1*MEM-INDIRECT) (QUOTE (SEXPR (LAMBDA (*3*PC *3*ADDR *3*OLEN *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X))) (COND ((NOT (EQ (*1*LONG-READP *3*ADDR (SETQ *2*TEMP3 (*1*MC-MEM *3*S))) *1*F)) (COND ((NOT (EQ (*1*PC-READ-MEMP *3*PC *2*TEMP3 (SETQ *2*TEMP2 (*1*OP-SZ *3*OLEN))) *1*F)) (CONS (*1*UPDATE-PC (*1*ADD (SETQ *2*TEMP1 (*1*L)) *3*PC *2*TEMP2) *3*S) (CONS (QUOTE M) (*1*ADD *2*TEMP1 (*1*LONG-READ *3*ADDR *2*TEMP3) (*1*EXT *3*OLEN (*1*PC-READ-MEM *3*PC *2*TEMP3 *2*TEMP2) *2*TEMP1))))) (T (CONS (*1*HALT (*1*PC-SIGNAL) *3*S) (QUOTE NIL))))) (T (CONS (*1*HALT (*1*READ-SIGNAL) *3*S) (QUOTE NIL))))))))) (PUT1-LST (QUOTE *1*MEM-POSTINDEX) (QUOTE (SEXPR (LAMBDA (*3*PC *3*ADDR *3*INDEXWD *3*OLEN *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X))) (COND ((NOT (EQ (*1*LONG-READP *3*ADDR (SETQ *2*TEMP3 (*1*MC-MEM *3*S))) *1*F)) (COND ((NOT (EQ (*1*PC-READ-MEMP *3*PC *2*TEMP3 (SETQ *2*TEMP2 (*1*OP-SZ *3*OLEN))) *1*F)) (CONS (*1*UPDATE-PC (*1*ADD (SETQ *2*TEMP1 (*1*L)) *3*PC *2*TEMP2) *3*S) (CONS (QUOTE M) (*1*ADD *2*TEMP1 (*1*ADD *2*TEMP1 (*1*LONG-READ *3*ADDR *2*TEMP3) (*1*IR-SCALED *3*INDEXWD *3*S)) (*1*EXT *3*OLEN (*1*PC-READ-MEM *3*PC *2*TEMP3 *2*TEMP2) *2*TEMP1))))) (T (CONS (*1*HALT (*1*PC-SIGNAL) *3*S) (QUOTE NIL))))) (T (CONS (*1*HALT (*1*READ-SIGNAL) *3*S) (QUOTE NIL))))))))) (PUT1-LST (QUOTE *1*MEM-PREINDEX) (QUOTE (SEXPR (LAMBDA (*3*PC *3*ADDR *3*INDEXWD *3*OLEN *3*S) (*1*MEM-INDIRECT *3*PC (*1*ADD (*1*L) *3*ADDR (*1*IR-SCALED *3*INDEXWD *3*S)) *3*OLEN *3*S))))) (PUT1-LST (QUOTE *1*I-IS) (QUOTE (SEXPR (LAMBDA (*3*INDEXWD) (*1*BITS *3*INDEXWD (QUOTE 0) (QUOTE 2)))))) (PUT1-LST (QUOTE *1*ADDR-INDEX3) (QUOTE (SEXPR (LAMBDA (*3*PC *3*ADDR *3*INDEXWD *3*S) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*B0P (*1*BITN *3*INDEXWD (QUOTE 6))) *1*F)) (COND ((NOT (EQ (*1*LESSP (SETQ *2*TEMP1 (*1*I-IS *3*INDEXWD)) (QUOTE 4)) *1*F)) (COND ((NOT (EQ (*1*LESSP *2*TEMP1 (QUOTE 2)) *1*F)) (COND ((EQUAL *2*TEMP1 (QUOTE 0)) (*1*ADDR-INDEX-BD *3*PC *3*ADDR *3*INDEXWD *3*S)) (T (*1*MEM-PREINDEX *3*PC *3*ADDR *3*INDEXWD (QUOTE 0) *3*S)))) ((EQUAL *2*TEMP1 (QUOTE 2)) (*1*MEM-PREINDEX *3*PC *3*ADDR *3*INDEXWD (*1*W) *3*S)) (T (*1*MEM-PREINDEX *3*PC *3*ADDR *3*INDEXWD (*1*L) *3*S)))) ((NOT (EQ (*1*LESSP *2*TEMP1 (QUOTE 6)) *1*F)) (COND ((EQUAL *2*TEMP1 (QUOTE 4)) (CONS (*1*HALT (*1*RESERVED-SIGNAL) *3*S) (QUOTE NIL))) (T (*1*MEM-POSTINDEX *3*PC *3*ADDR *3*INDEXWD (QUOTE 0) *3*S)))) ((EQUAL *2*TEMP1 (QUOTE 6)) (*1*MEM-POSTINDEX *3*PC *3*ADDR *3*INDEXWD (*1*W) *3*S)) (T (*1*MEM-POSTINDEX *3*PC *3*ADDR *3*INDEXWD (*1*L) *3*S)))) ((NOT (EQ (*1*LESSP (SETQ *2*TEMP1 (*1*I-IS *3*INDEXWD)) (QUOTE 4)) *1*F)) (COND ((NOT (EQ (*1*LESSP *2*TEMP1 (QUOTE 2)) *1*F)) (COND ((EQUAL *2*TEMP1 (QUOTE 0)) (CONS (*1*UPDATE-PC *3*PC *3*S) (CONS (QUOTE M) *3*ADDR))) (T (*1*MEM-INDIRECT *3*PC *3*ADDR (QUOTE 0) *3*S)))) ((EQUAL *2*TEMP1 (QUOTE 2)) (*1*MEM-INDIRECT *3*PC *3*ADDR (*1*W) *3*S)) (T (*1*MEM-INDIRECT *3*PC *3*ADDR (*1*L) *3*S)))) (T (CONS (*1*HALT (*1*RESERVED-SIGNAL) *3*S) (QUOTE NIL))))))))) (PUT1-LST (QUOTE *1*BD-SZ) (QUOTE (SEXPR (LAMBDA (*3*INDEXWD) (*1*BITS *3*INDEXWD (QUOTE 4) (QUOTE 5)))))) (PUT1-LST (QUOTE *1*ADDR-INDEX2) (QUOTE (SEXPR (LAMBDA (*3*PC *3*ADDR *3*INDEXWD *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X))) (COND ((NOT (EQ (*1*LESSP (SETQ *2*TEMP3 (*1*BD-SZ *3*INDEXWD)) (QUOTE 2)) *1*F)) (COND ((EQUAL *2*TEMP3 (QUOTE 0)) (CONS (*1*HALT (*1*RESERVED-SIGNAL) *3*S) (QUOTE NIL))) (T (*1*ADDR-INDEX3 *3*PC *3*ADDR *3*INDEXWD *3*S)))) ((EQUAL *2*TEMP3 (QUOTE 2)) (COND ((NOT (EQ (*1*PC-WORD-READP *3*PC (SETQ *2*TEMP2 (*1*MC-MEM *3*S))) *1*F)) (*1*ADDR-INDEX3 (*1*ADD (SETQ *2*TEMP1 (*1*L)) *3*PC (*1*WSZ)) (*1*ADD *2*TEMP1 *3*ADDR (*1*EXT (*1*W) (*1*PC-WORD-READ *3*PC *2*TEMP2) *2*TEMP1)) *3*INDEXWD *3*S)) (T (CONS (*1*HALT (*1*PC-SIGNAL) *3*S) (QUOTE NIL))))) ((NOT (EQ (*1*PC-LONG-READP *3*PC (SETQ *2*TEMP2 (*1*MC-MEM *3*S))) *1*F)) (*1*ADDR-INDEX3 (*1*ADD (SETQ *2*TEMP1 (*1*L)) *3*PC (*1*LSZ)) (*1*ADD *2*TEMP1 *3*ADDR (*1*PC-LONG-READ *3*PC *2*TEMP2)) *3*INDEXWD *3*S)) (T (CONS (*1*HALT (*1*PC-SIGNAL) *3*S) (QUOTE NIL))))))))) (PUT1-LST (QUOTE *1*BS-REGISTER) (QUOTE (SEXPR (LAMBDA (*3*RN *3*INDEXWD *3*S) (COND ((NOT (EQ (*1*B0P (*1*BITN *3*INDEXWD (QUOTE 7))) *1*F)) (*1*READ-AN (*1*L) *3*RN *3*S)) (T (QUOTE 0))))))) (PUT1-LST (QUOTE *1*ADDR-INDEX1) (QUOTE (SEXPR (LAMBDA (*3*PC *3*RN *3*INDEXWD *3*S) (COND ((NOT (EQ (*1*B0P (*1*BITN *3*INDEXWD (QUOTE 8))) *1*F)) (*1*ADDR-INDEX-DISP *3*PC *3*RN *3*INDEXWD *3*S)) ((NOT (EQ (*1*B0P (*1*BITN *3*INDEXWD (QUOTE 3))) *1*F)) (*1*ADDR-INDEX2 *3*PC (*1*BS-REGISTER *3*RN *3*INDEXWD *3*S) *3*INDEXWD *3*S)) (T (CONS (*1*HALT (*1*RESERVED-SIGNAL) *3*S) (QUOTE NIL)))))))) (PUT1-LST (QUOTE *1*ADDR-INDEX) (QUOTE (SEXPR (LAMBDA (*3*PC *3*RN *3*S) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*PC-WORD-READP *3*PC (SETQ *2*TEMP1 (*1*MC-MEM *3*S))) *1*F)) (*1*ADDR-INDEX1 (*1*ADD (*1*L) *3*PC (*1*WSZ)) *3*RN (*1*PC-WORD-READ *3*PC *2*TEMP1) *3*S)) (T (CONS (*1*HALT (*1*PC-SIGNAL) *3*S) (QUOTE NIL))))))))) (PUT1-LST (QUOTE *1*ABSOLUTE-SHORT) (QUOTE (SEXPR (LAMBDA (*3*PC *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (COND ((NOT (EQ (*1*PC-WORD-READP *3*PC (SETQ *2*TEMP2 (*1*MC-MEM *3*S))) *1*F)) (CONS (*1*UPDATE-PC (*1*ADD (SETQ *2*TEMP1 (*1*L)) *3*PC (*1*WSZ)) *3*S) (CONS (QUOTE M) (*1*EXT (*1*W) (*1*PC-WORD-READ *3*PC *2*TEMP2) *2*TEMP1)))) (T (CONS (*1*HALT (*1*PC-SIGNAL) *3*S) (QUOTE NIL))))))))) (PUT1-LST (QUOTE *1*ABSOLUTE-LONG) (QUOTE (SEXPR (LAMBDA (*3*PC *3*S) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*PC-LONG-READP *3*PC (SETQ *2*TEMP1 (*1*MC-MEM *3*S))) *1*F)) (CONS (*1*UPDATE-PC (*1*ADD (*1*L) *3*PC (*1*LSZ)) *3*S) (CONS (QUOTE M) (*1*PC-LONG-READ *3*PC *2*TEMP1)))) (T (CONS (*1*HALT (*1*PC-SIGNAL) *3*S) (QUOTE NIL))))))))) (PUT1-LST (QUOTE *1*PC-DISP) (QUOTE (SEXPR (LAMBDA (*3*PC *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (COND ((NOT (EQ (*1*PC-WORD-READP *3*PC (SETQ *2*TEMP2 (*1*MC-MEM *3*S))) *1*F)) (CONS (*1*UPDATE-PC (*1*ADD (SETQ *2*TEMP1 (*1*L)) *3*PC (*1*WSZ)) *3*S) (CONS (QUOTE M) (*1*ADD *2*TEMP1 *3*PC (*1*EXT (*1*W) (*1*PC-WORD-READ *3*PC *2*TEMP2) *2*TEMP1))))) (T (CONS (*1*HALT (*1*PC-SIGNAL) *3*S) (QUOTE NIL))))))))) (PUT1-LST (QUOTE *1*PC-INDEX-DISP) (QUOTE (SEXPR (LAMBDA (*3*PC *3*INDEXWD *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (CONS (*1*UPDATE-PC (*1*ADD (SETQ *2*TEMP2 (*1*L)) *3*PC (*1*WSZ)) *3*S) (CONS (QUOTE M) (*1*ADD *2*TEMP2 (*1*ADD *2*TEMP2 *3*PC (*1*EXT (SETQ *2*TEMP1 (*1*B)) (*1*HEAD *3*INDEXWD *2*TEMP1) *2*TEMP2)) (*1*IR-SCALED *3*INDEXWD *3*S))))))))) (PUT1-LST (QUOTE *1*BS-PC) (QUOTE (SEXPR (LAMBDA (*3*PC *3*INDEXWD) (COND ((NOT (EQ (*1*B0P (*1*BITN *3*INDEXWD (QUOTE 7))) *1*F)) *3*PC) (T (QUOTE 0))))))) (PUT1-LST (QUOTE *1*PC-INDEX1) (QUOTE (SEXPR (LAMBDA (*3*PC *3*INDEXWD *3*S) (COND ((NOT (EQ (*1*B0P (*1*BITN *3*INDEXWD (QUOTE 8))) *1*F)) (*1*PC-INDEX-DISP *3*PC *3*INDEXWD *3*S)) ((NOT (EQ (*1*B0P (*1*BITN *3*INDEXWD (QUOTE 3))) *1*F)) (*1*ADDR-INDEX2 (*1*ADD (*1*L) *3*PC (*1*WSZ)) (*1*BS-PC *3*PC *3*INDEXWD) *3*INDEXWD *3*S)) (T (CONS (*1*HALT (*1*RESERVED-SIGNAL) *3*S) (QUOTE NIL)))))))) (PUT1-LST (QUOTE *1*PC-INDEX) (QUOTE (SEXPR (LAMBDA (*3*PC *3*S) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*PC-WORD-READP *3*PC (SETQ *2*TEMP1 (*1*MC-MEM *3*S))) *1*F)) (*1*PC-INDEX1 *3*PC (*1*PC-WORD-READ *3*PC *2*TEMP1) *3*S)) (T (CONS (*1*HALT (*1*PC-SIGNAL) *3*S) (QUOTE NIL))))))))) (PUT1-LST (QUOTE *1*IMMEDIATE) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*PC *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X))) (COND ((EQUAL *3*OPLEN (*1*B)) (COND ((NOT (EQ (*1*PC-WORD-READP *3*PC (SETQ *2*TEMP3 (*1*MC-MEM *3*S))) *1*F)) (CONS (*1*UPDATE-PC (*1*ADD (SETQ *2*TEMP2 (*1*L)) *3*PC (*1*WSZ)) *3*S) (CONS (QUOTE I) (*1*PC-BYTE-READ (*1*ADD *2*TEMP2 *3*PC (*1*BSZ)) *2*TEMP3)))) (T (CONS (*1*HALT (*1*PC-SIGNAL) *3*S) (QUOTE NIL))))) ((NOT (EQ (*1*PC-READ-MEMP *3*PC (SETQ *2*TEMP3 (*1*MC-MEM *3*S)) (SETQ *2*TEMP1 (*1*OP-SZ *3*OPLEN))) *1*F)) (CONS (*1*UPDATE-PC (*1*ADD (*1*L) *3*PC *2*TEMP1) *3*S) (CONS (QUOTE I) (*1*PC-READ-MEM *3*PC *2*TEMP3 *2*TEMP1)))) (T (CONS (*1*HALT (*1*PC-SIGNAL) *3*S) (QUOTE NIL))))))))) (PUT1-LST (QUOTE *1*EFFEC-ADDR) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*MODE *3*RN *3*S) (LET NIL (COND ((NOT (EQ (*1*LESSP *3*MODE (QUOTE 4)) *1*F)) (COND ((NOT (EQ (*1*LESSP *3*MODE (QUOTE 2)) *1*F)) (COND ((EQUAL *3*MODE (QUOTE 0)) (*1*DN-DIRECT *3*RN *3*S)) (T (*1*AN-DIRECT *3*RN *3*S)))) ((EQUAL *3*MODE (QUOTE 2)) (*1*ADDR-INDIRECT *3*RN *3*S)) (T (*1*ADDR-POSTINC *3*OPLEN *3*RN *3*S)))) ((NOT (EQ (*1*LESSP *3*MODE (QUOTE 6)) *1*F)) (COND ((EQUAL *3*MODE (QUOTE 4)) (*1*ADDR-PREDEC *3*OPLEN *3*RN *3*S)) (T (*1*ADDR-DISP (*1*MC-PC *3*S) *3*RN *3*S)))) ((EQUAL *3*MODE (QUOTE 6)) (*1*ADDR-INDEX (*1*MC-PC *3*S) *3*RN *3*S)) ((NOT (EQ (*1*LESSP *3*RN (QUOTE 4)) *1*F)) (COND ((NOT (EQ (*1*LESSP *3*RN (QUOTE 2)) *1*F)) (COND ((EQUAL *3*RN (QUOTE 0)) (*1*ABSOLUTE-SHORT (*1*MC-PC *3*S) *3*S)) (T (*1*ABSOLUTE-LONG (*1*MC-PC *3*S) *3*S)))) ((EQUAL *3*RN (QUOTE 2)) (*1*PC-DISP (*1*MC-PC *3*S) *3*S)) (T (*1*PC-INDEX (*1*MC-PC *3*S) *3*S)))) (T (*1*IMMEDIATE *3*OPLEN (*1*MC-PC *3*S) *3*S)))))))) (PUT1-LST (QUOTE *1*ADDR-MODEP) (QUOTE (SEXPR (LAMBDA (*3*MODE *3*RN) (COND ((EQUAL *3*MODE (QUOTE 7)) (COND ((NOT (EQ (*1*LESSP (QUOTE 4) *3*RN) *1*F)) (QUOTE *1*FALSE)) (T (QUOTE *1*TRUE)))) (T (QUOTE *1*TRUE))))))) (PUT1-LST (QUOTE *1*DATA-ADDR-MODEP) (QUOTE (SEXPR (LAMBDA (*3*MODE *3*RN) (COND ((EQUAL *3*MODE (QUOTE 7)) (COND ((NOT (EQ (*1*LESSP (QUOTE 4) *3*RN) *1*F)) (QUOTE *1*FALSE)) (T (QUOTE *1*TRUE)))) (T (*1*NOT (COND ((EQUAL *3*MODE (QUOTE 1)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))))))))) (PUT1-LST (QUOTE *1*MEMORY-ADDR-MODEP) (QUOTE (SEXPR (LAMBDA (*3*MODE *3*RN) (COND ((EQUAL *3*MODE (QUOTE 7)) (COND ((NOT (EQ (*1*LESSP (QUOTE 4) *3*RN) *1*F)) (QUOTE *1*FALSE)) (T (QUOTE *1*TRUE)))) ((NOT (EQ (*1*LESSP *3*MODE (QUOTE 2)) *1*F)) (QUOTE *1*FALSE)) (T (QUOTE *1*TRUE))))))) (PUT1-LST (QUOTE *1*CONTROL-ADDR-MODEP) (QUOTE (SEXPR (LAMBDA (*3*MODE *3*RN) (COND ((EQUAL *3*MODE (QUOTE 7)) (COND ((NOT (EQ (*1*LESSP (QUOTE 3) *3*RN) *1*F)) (QUOTE *1*FALSE)) (T (QUOTE *1*TRUE)))) (T (*1*OR (COND ((EQUAL *3*MODE (QUOTE 2)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (COND ((NOT (EQ (*1*LESSP *3*MODE (QUOTE 5)) *1*F)) (QUOTE *1*FALSE)) (T (QUOTE *1*TRUE)))))))))) (PUT1-LST (QUOTE *1*ALTERABLE-ADDR-MODEP) (QUOTE (SEXPR (LAMBDA (*3*MODE *3*RN) (*1*OR (*1*NOT (COND ((EQUAL *3*MODE (QUOTE 7)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) (*1*OR (COND ((EQUAL *3*RN (QUOTE 0)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (COND ((EQUAL *3*RN (QUOTE 1)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))))))))) (PUT1-LST (QUOTE *1*DN-DIRECT-MODEP) (QUOTE (SEXPR (LAMBDA (*3*MODE) (COND ((EQUAL *3*MODE (QUOTE 0)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))))))) (PUT1-LST (QUOTE *1*AN-DIRECT-MODEP) (QUOTE (SEXPR (LAMBDA (*3*MODE) (COND ((EQUAL *3*MODE (QUOTE 1)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))))))) (PUT1-LST (QUOTE *1*POSTINC-MODEP) (QUOTE (SEXPR (LAMBDA (*3*MODE) (COND ((EQUAL *3*MODE (QUOTE 3)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))))))) (PUT1-LST (QUOTE *1*PREDEC-MODEP) (QUOTE (SEXPR (LAMBDA (*3*MODE) (COND ((EQUAL *3*MODE (QUOTE 4)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))))))) (PUT1-LST (QUOTE *1*IDATA-MODEP) (QUOTE (SEXPR (LAMBDA (*3*MODE *3*RN) (*1*AND (COND ((EQUAL *3*MODE (QUOTE 7)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (COND ((EQUAL *3*RN (QUOTE 4)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))))))) (PUT1-LST (QUOTE *1*BYTE-AN-DIRECT-MODEP) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*MODE) (*1*AND (COND ((EQUAL *3*OPLEN (*1*B)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*AN-DIRECT-MODEP *3*MODE)))))) (PUT1-LST (QUOTE *1*MC-INSTATE) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (COND ((EQ (*1*CAR (SETQ *2*TEMP2 (*1*CDR (SETQ *2*TEMP1 (*1*EFFEC-ADDR *3*OPLEN (*1*S_MODE *3*INS) (*1*S_RN *3*INS) *3*S))))) (QUOTE M)) (COND ((NOT (EQ (*1*READ-MEMP (*1*CDR *2*TEMP2) (*1*MC-MEM *3*S) (*1*OP-SZ *3*OPLEN)) *1*F)) *2*TEMP1) (T (CONS (*1*HALT (*1*READ-SIGNAL) *3*S) (QUOTE NIL))))) (T *2*TEMP1))))))) (PUT1-LST (QUOTE *1*D-MAPPING) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*V&CVZNX *3*ADDR *3*S) (*1*MC-STATE (*1*MC-STATUS *3*S) (*1*WRITE-RN *3*OPLEN (*1*CAR *3*V&CVZNX) *3*ADDR (*1*MC-RFILE *3*S)) (*1*MC-PC *3*S) (*1*SET-CVZNX (*1*CDR *3*V&CVZNX) (*1*MC-CCR *3*S)) (*1*MC-MEM *3*S)))))) (PUT1-LST (QUOTE *1*A-MAPPING) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*V&CVZNX *3*ADDR *3*S) (*1*MC-STATE (*1*MC-STATUS *3*S) (*1*WRITE-RN *3*OPLEN (*1*CAR *3*V&CVZNX) (*1*PLUS (QUOTE 8) *3*ADDR) (*1*MC-RFILE *3*S)) (*1*MC-PC *3*S) (*1*SET-CVZNX (*1*CDR *3*V&CVZNX) (*1*MC-CCR *3*S)) (*1*MC-MEM *3*S)))))) (PUT1-LST (QUOTE *1*M-MAPPING) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*V&CVZNX *3*ADDR *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (COND ((NOT (EQ (*1*WRITE-MEMP *3*ADDR (SETQ *2*TEMP2 (*1*MC-MEM *3*S)) (SETQ *2*TEMP1 (*1*OP-SZ *3*OPLEN))) *1*F)) (*1*MC-STATE (*1*MC-STATUS *3*S) (*1*MC-RFILE *3*S) (*1*MC-PC *3*S) (*1*SET-CVZNX (*1*CDR *3*V&CVZNX) (*1*MC-CCR *3*S)) (*1*WRITE-MEM (*1*CAR *3*V&CVZNX) *3*ADDR *2*TEMP2 *2*TEMP1))) (T (*1*HALT (*1*WRITE-SIGNAL) *3*S)))))))) (PUT1-LST (QUOTE *1*MAPPING) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*V&CVZNX *3*S&ADDR) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (COND ((EQ (SETQ *2*TEMP2 (*1*CAR (SETQ *2*TEMP1 (*1*CDR *3*S&ADDR)))) (QUOTE D)) (*1*D-MAPPING *3*OPLEN *3*V&CVZNX (*1*CDR *2*TEMP1) (*1*CAR *3*S&ADDR))) ((EQ *2*TEMP2 (QUOTE A)) (*1*A-MAPPING *3*OPLEN *3*V&CVZNX (*1*CDR *2*TEMP1) (*1*CAR *3*S&ADDR))) (T (*1*M-MAPPING *3*OPLEN *3*V&CVZNX (*1*CDR *2*TEMP1) (*1*CAR *3*S&ADDR))))))))) (PUT1-LST (QUOTE *1*ADD-C) (QUOTE (SEXPR (LAMBDA (*3*N *3*SOPD *3*DOPD) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X))) (*1*B-OR (*1*B-OR (*1*B-AND (SETQ *2*TEMP3 (*1*MBIT *3*SOPD *3*N)) (SETQ *2*TEMP2 (*1*MBIT *3*DOPD *3*N))) (*1*B-AND (SETQ *2*TEMP1 (*1*B-NOT (*1*MBIT (*1*ADD *3*N *3*SOPD *3*DOPD) *3*N))) *2*TEMP2)) (*1*B-AND *2*TEMP3 *2*TEMP1))))))) (PUT1-LST (QUOTE *1*ADD-V) (QUOTE (SEXPR (LAMBDA (*3*N *3*SOPD *3*DOPD) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X))) (*1*B-OR (*1*B-AND (*1*B-AND (SETQ *2*TEMP3 (*1*MBIT *3*SOPD *3*N)) (SETQ *2*TEMP2 (*1*MBIT *3*DOPD *3*N))) (*1*B-NOT (SETQ *2*TEMP1 (*1*MBIT (*1*ADD *3*N *3*SOPD *3*DOPD) *3*N)))) (*1*B-AND (*1*B-AND (*1*B-NOT *2*TEMP3) (*1*B-NOT *2*TEMP2)) *2*TEMP1))))))) (PUT1-LST (QUOTE *1*ADD-Z) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*SOPD *3*DOPD) (COND ((EQUAL (*1*ADD *3*OPLEN *3*DOPD *3*SOPD) (QUOTE 0)) (*1*B1)) (T (*1*B0))))))) (PUT1-LST (QUOTE *1*ADD-N) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*SOPD *3*DOPD) (*1*MBIT (*1*ADD *3*OPLEN *3*DOPD *3*SOPD) *3*OPLEN))))) (PUT1-LST (QUOTE *1*ADD-CVZNX) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*SOPD *3*DOPD) (LET ((*2*TEMP1 (QUOTE *1*X))) (*1*CVZNX (SETQ *2*TEMP1 (*1*ADD-C *3*OPLEN *3*SOPD *3*DOPD)) (*1*ADD-V *3*OPLEN *3*SOPD *3*DOPD) (*1*ADD-Z *3*OPLEN *3*SOPD *3*DOPD) (*1*ADD-N *3*OPLEN *3*SOPD *3*DOPD) *2*TEMP1)))))) (PUT1-LST (QUOTE *1*ADD-EFFECT) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*SOPD *3*DOPD) (CONS (*1*ADD *3*OPLEN *3*DOPD *3*SOPD) (*1*ADD-CVZNX *3*OPLEN *3*SOPD *3*DOPD)))))) (PUT1-LST (QUOTE *1*ADD-ADDR-MODEP1) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*INS) (LET ((*2*TEMP1 (QUOTE *1*X))) (*1*AND (*1*ADDR-MODEP (SETQ *2*TEMP1 (*1*S_MODE *3*INS)) (*1*S_RN *3*INS)) (*1*NOT (*1*BYTE-AN-DIRECT-MODEP *3*OPLEN *2*TEMP1)))))))) (PUT1-LST (QUOTE *1*ADD-ADDR-MODEP2) (QUOTE (SEXPR (LAMBDA (*3*INS) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (*1*AND (*1*ALTERABLE-ADDR-MODEP (SETQ *2*TEMP2 (*1*S_MODE *3*INS)) (SETQ *2*TEMP1 (*1*S_RN *3*INS))) (*1*MEMORY-ADDR-MODEP *2*TEMP2 *2*TEMP1))))))) (PUT1-LST (QUOTE *1*ADD-INS1) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X))) (COND ((NOT (EQ (*1*ADD-ADDR-MODEP1 *3*OPLEN *3*INS) *1*F)) (COND ((NOT (EQ (*1*MC-HALTP (SETQ *2*TEMP3 (*1*CAR (SETQ *2*TEMP2 (*1*MC-INSTATE *3*OPLEN *3*INS *3*S))))) *1*F)) *2*TEMP3) (T (*1*D-MAPPING *3*OPLEN (*1*ADD-EFFECT *3*OPLEN (*1*OPERAND *3*OPLEN (*1*CDR *2*TEMP2) *3*S) (*1*READ-DN *3*OPLEN (SETQ *2*TEMP1 (*1*D_RN *3*INS)) *3*S)) *2*TEMP1 *2*TEMP3)))) (T (*1*HALT (*1*MODE-SIGNAL) *3*S)))))))) (PUT1-LST (QUOTE *1*ADD-MAPPING) (QUOTE (SEXPR (LAMBDA (*3*OPD *3*OPLEN *3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (COND ((NOT (EQ (*1*MC-HALTP (SETQ *2*TEMP2 (*1*CAR (SETQ *2*TEMP1 (*1*MC-INSTATE *3*OPLEN *3*INS *3*S))))) *1*F)) *2*TEMP2) (T (*1*MAPPING *3*OPLEN (*1*ADD-EFFECT *3*OPLEN *3*OPD (*1*OPERAND *3*OPLEN (*1*CDR *2*TEMP1) *3*S)) *2*TEMP1)))))))) (PUT1-LST (QUOTE *1*ADD-INS2) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*INS *3*S) (COND ((NOT (EQ (*1*ADD-ADDR-MODEP2 *3*INS) *1*F)) (*1*ADD-MAPPING (*1*READ-DN *3*OPLEN (*1*D_RN *3*INS) *3*S) *3*OPLEN *3*INS *3*S)) (T (*1*HALT (*1*MODE-SIGNAL) *3*S))))))) (PUT1-LST (QUOTE *1*ADDA-ADDR-MODEP) (QUOTE (SEXPR (LAMBDA (*3*INS) (*1*ADDR-MODEP (*1*S_MODE *3*INS) (*1*S_RN *3*INS)))))) (PUT1-LST (QUOTE *1*ADDA-INS) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X)) (*2*TEMP4 (QUOTE *1*X))) (COND ((NOT (EQ (*1*ADDA-ADDR-MODEP *3*INS) *1*F)) (COND ((NOT (EQ (*1*MC-HALTP (SETQ *2*TEMP4 (*1*CAR (SETQ *2*TEMP3 (*1*MC-INSTATE *3*OPLEN *3*INS *3*S))))) *1*F)) *2*TEMP4) (T (*1*WRITE-AN (SETQ *2*TEMP2 (*1*L)) (*1*ADD *2*TEMP2 (*1*READ-AN *2*TEMP2 (SETQ *2*TEMP1 (*1*D_RN *3*INS)) *2*TEMP4) (*1*EXT *3*OPLEN (*1*OPERAND *3*OPLEN (*1*CDR *2*TEMP3) *3*S) *2*TEMP2)) *2*TEMP1 *2*TEMP4)))) (T (*1*HALT (*1*MODE-SIGNAL) *3*S)))))))) (PUT1-LST (QUOTE *1*ADDX-C) (QUOTE (SEXPR (LAMBDA (*3*N *3*X *3*SOPD *3*DOPD) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X))) (*1*B-OR (*1*B-OR (*1*B-AND (SETQ *2*TEMP3 (*1*MBIT *3*SOPD *3*N)) (SETQ *2*TEMP2 (*1*MBIT *3*DOPD *3*N))) (*1*B-AND (SETQ *2*TEMP1 (*1*B-NOT (*1*MBIT (*1*ADDER *3*N *3*X *3*SOPD *3*DOPD) *3*N))) *2*TEMP2)) (*1*B-AND *2*TEMP3 *2*TEMP1))))))) (PUT1-LST (QUOTE *1*ADDX-V) (QUOTE (SEXPR (LAMBDA (*3*N *3*X *3*SOPD *3*DOPD) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X))) (*1*B-OR (*1*B-AND (*1*B-AND (SETQ *2*TEMP3 (*1*MBIT *3*SOPD *3*N)) (SETQ *2*TEMP2 (*1*MBIT *3*DOPD *3*N))) (*1*B-NOT (SETQ *2*TEMP1 (*1*MBIT (*1*ADDER *3*N *3*X *3*SOPD *3*DOPD) *3*N)))) (*1*B-AND (*1*B-AND (*1*B-NOT *2*TEMP3) (*1*B-NOT *2*TEMP2)) *2*TEMP1))))))) (PUT1-LST (QUOTE *1*ADDX-Z) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*Z *3*X *3*SOPD *3*DOPD) (*1*B-AND *3*Z (COND ((EQUAL (*1*ADDER *3*OPLEN *3*X *3*DOPD *3*SOPD) (QUOTE 0)) (*1*B1)) (T (*1*B0)))))))) (PUT1-LST (QUOTE *1*ADDX-N) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*X *3*SOPD *3*DOPD) (*1*MBIT (*1*ADDER *3*OPLEN *3*X *3*DOPD *3*SOPD) *3*OPLEN))))) (PUT1-LST (QUOTE *1*ADDX-CVZNX) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*Z *3*X *3*SOPD *3*DOPD) (LET ((*2*TEMP1 (QUOTE *1*X))) (*1*CVZNX (SETQ *2*TEMP1 (*1*ADDX-C *3*OPLEN *3*X *3*SOPD *3*DOPD)) (*1*ADDX-V *3*OPLEN *3*X *3*SOPD *3*DOPD) (*1*ADDX-Z *3*OPLEN *3*Z *3*X *3*SOPD *3*DOPD) (*1*ADDX-N *3*OPLEN *3*X *3*SOPD *3*DOPD) *2*TEMP1)))))) (PUT1-LST (QUOTE *1*ADDX-EFFECT) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*SOPD *3*DOPD *3*CCR) (LET ((*2*TEMP1 (QUOTE *1*X))) (CONS (*1*ADDER *3*OPLEN (SETQ *2*TEMP1 (*1*CCR-X *3*CCR)) *3*DOPD *3*SOPD) (*1*ADDX-CVZNX *3*OPLEN (*1*CCR-Z *3*CCR) *2*TEMP1 *3*SOPD *3*DOPD))))))) (PUT1-LST (QUOTE *1*ADDX-INS1) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X))) (*1*D-MAPPING *3*OPLEN (*1*ADDX-EFFECT *3*OPLEN (*1*READ-DN *3*OPLEN (*1*S_RN *3*INS) *3*S) (*1*READ-DN *3*OPLEN (SETQ *2*TEMP1 (*1*D_RN *3*INS)) *3*S) (*1*MC-CCR *3*S)) *2*TEMP1 *3*S)))))) (PUT1-LST (QUOTE *1*ADDX-INS2) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X)) (*2*TEMP4 (QUOTE *1*X)) (*2*TEMP5 (QUOTE *1*X)) (*2*TEMP6 (QUOTE *1*X)) (*2*TEMP7 (QUOTE *1*X))) (COND ((NOT (EQ (*1*READ-MEMP (*1*CDR (SETQ *2*TEMP7 (*1*CDR (SETQ *2*TEMP6 (*1*ADDR-PREDEC *3*OPLEN (*1*S_RN *3*INS) *3*S))))) (SETQ *2*TEMP5 (*1*MC-MEM *3*S)) (SETQ *2*TEMP4 (*1*OP-SZ *3*OPLEN))) *1*F)) (COND ((NOT (EQ (*1*READ-MEMP (*1*CDR (SETQ *2*TEMP3 (*1*CDR (SETQ *2*TEMP2 (*1*ADDR-PREDEC *3*OPLEN (*1*D_RN *3*INS) (SETQ *2*TEMP1 (*1*CAR *2*TEMP6))))))) *2*TEMP5 *2*TEMP4) *1*F)) (*1*MAPPING *3*OPLEN (*1*ADDX-EFFECT *3*OPLEN (*1*OPERAND *3*OPLEN *2*TEMP7 *2*TEMP1) (*1*OPERAND *3*OPLEN *2*TEMP3 (*1*CAR *2*TEMP2)) (*1*MC-CCR *3*S)) *2*TEMP2)) (T (*1*HALT (*1*READ-SIGNAL) *3*S)))) (T (*1*HALT (*1*READ-SIGNAL) *3*S)))))))) (PUT1-LST (QUOTE *1*ADD-GROUP) (QUOTE (SEXPR (LAMBDA (*3*OPMODE *3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*LESSP *3*OPMODE (QUOTE 4)) *1*F)) (COND ((EQUAL *3*OPMODE (QUOTE 3)) (*1*ADDA-INS (*1*W) *3*INS *3*S)) (T (*1*ADD-INS1 (*1*OP-LEN *3*INS) *3*INS *3*S)))) ((EQUAL *3*OPMODE (QUOTE 7)) (*1*ADDA-INS (*1*L) *3*INS *3*S)) ((EQUAL (SETQ *2*TEMP1 (*1*S_MODE *3*INS)) (QUOTE 0)) (*1*ADDX-INS1 (*1*OP-LEN *3*INS) *3*INS *3*S)) ((EQUAL *2*TEMP1 (QUOTE 1)) (*1*ADDX-INS2 (*1*OP-LEN *3*INS) *3*INS *3*S)) (T (*1*ADD-INS2 (*1*OP-LEN *3*INS) *3*INS *3*S)))))))) (PUT1-LST (QUOTE *1*SUB-C) (QUOTE (SEXPR (LAMBDA (*3*N *3*SOPD *3*DOPD) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X))) (*1*B-OR (*1*B-OR (*1*B-AND (SETQ *2*TEMP3 (*1*MBIT *3*SOPD *3*N)) (SETQ *2*TEMP2 (*1*B-NOT (*1*MBIT *3*DOPD *3*N)))) (*1*B-AND (SETQ *2*TEMP1 (*1*MBIT (*1*SUB *3*N *3*SOPD *3*DOPD) *3*N)) *2*TEMP2)) (*1*B-AND *2*TEMP3 *2*TEMP1))))))) (PUT1-LST (QUOTE *1*SUB-V) (QUOTE (SEXPR (LAMBDA (*3*N *3*SOPD *3*DOPD) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X))) (*1*B-OR (*1*B-AND (*1*B-AND (*1*B-NOT (SETQ *2*TEMP3 (*1*MBIT *3*SOPD *3*N))) (SETQ *2*TEMP2 (*1*MBIT *3*DOPD *3*N))) (*1*B-NOT (SETQ *2*TEMP1 (*1*MBIT (*1*SUB *3*N *3*SOPD *3*DOPD) *3*N)))) (*1*B-AND (*1*B-AND *2*TEMP3 (*1*B-NOT *2*TEMP2)) *2*TEMP1))))))) (PUT1-LST (QUOTE *1*SUB-Z) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*SOPD *3*DOPD) (COND ((EQUAL (*1*SUB *3*OPLEN *3*SOPD *3*DOPD) (QUOTE 0)) (*1*B1)) (T (*1*B0))))))) (PUT1-LST (QUOTE *1*SUB-N) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*SOPD *3*DOPD) (*1*MBIT (*1*SUB *3*OPLEN *3*SOPD *3*DOPD) *3*OPLEN))))) (PUT1-LST (QUOTE *1*SUB-CVZNX) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*SOPD *3*DOPD) (LET ((*2*TEMP1 (QUOTE *1*X))) (*1*CVZNX (SETQ *2*TEMP1 (*1*SUB-C *3*OPLEN *3*SOPD *3*DOPD)) (*1*SUB-V *3*OPLEN *3*SOPD *3*DOPD) (*1*SUB-Z *3*OPLEN *3*SOPD *3*DOPD) (*1*SUB-N *3*OPLEN *3*SOPD *3*DOPD) *2*TEMP1)))))) (PUT1-LST (QUOTE *1*SUB-EFFECT) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*SOPD *3*DOPD) (CONS (*1*SUB *3*OPLEN *3*SOPD *3*DOPD) (*1*SUB-CVZNX *3*OPLEN *3*SOPD *3*DOPD)))))) (PUT1-LST (QUOTE *1*SUB-ADDR-MODEP1) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*INS) (LET ((*2*TEMP1 (QUOTE *1*X))) (*1*AND (*1*ADDR-MODEP (SETQ *2*TEMP1 (*1*S_MODE *3*INS)) (*1*S_RN *3*INS)) (*1*NOT (*1*BYTE-AN-DIRECT-MODEP *3*OPLEN *2*TEMP1)))))))) (PUT1-LST (QUOTE *1*SUB-ADDR-MODEP2) (QUOTE (SEXPR (LAMBDA (*3*INS) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (*1*AND (*1*ALTERABLE-ADDR-MODEP (SETQ *2*TEMP2 (*1*S_MODE *3*INS)) (SETQ *2*TEMP1 (*1*S_RN *3*INS))) (*1*MEMORY-ADDR-MODEP *2*TEMP2 *2*TEMP1))))))) (PUT1-LST (QUOTE *1*SUB-INS1) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X))) (COND ((NOT (EQ (*1*SUB-ADDR-MODEP1 *3*OPLEN *3*INS) *1*F)) (COND ((NOT (EQ (*1*MC-HALTP (SETQ *2*TEMP3 (*1*CAR (SETQ *2*TEMP2 (*1*MC-INSTATE *3*OPLEN *3*INS *3*S))))) *1*F)) *2*TEMP3) (T (*1*D-MAPPING *3*OPLEN (*1*SUB-EFFECT *3*OPLEN (*1*OPERAND *3*OPLEN (*1*CDR *2*TEMP2) *3*S) (*1*READ-DN *3*OPLEN (SETQ *2*TEMP1 (*1*D_RN *3*INS)) *3*S)) *2*TEMP1 *2*TEMP3)))) (T (*1*HALT (*1*MODE-SIGNAL) *3*S)))))))) (PUT1-LST (QUOTE *1*SUB-MAPPING) (QUOTE (SEXPR (LAMBDA (*3*OPD *3*OPLEN *3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (COND ((NOT (EQ (*1*MC-HALTP (SETQ *2*TEMP2 (*1*CAR (SETQ *2*TEMP1 (*1*MC-INSTATE *3*OPLEN *3*INS *3*S))))) *1*F)) *2*TEMP2) (T (*1*MAPPING *3*OPLEN (*1*SUB-EFFECT *3*OPLEN *3*OPD (*1*OPERAND *3*OPLEN (*1*CDR *2*TEMP1) *3*S)) *2*TEMP1)))))))) (PUT1-LST (QUOTE *1*SUB-INS2) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*INS *3*S) (COND ((NOT (EQ (*1*SUB-ADDR-MODEP2 *3*INS) *1*F)) (*1*SUB-MAPPING (*1*READ-DN *3*OPLEN (*1*D_RN *3*INS) *3*S) *3*OPLEN *3*INS *3*S)) (T (*1*HALT (*1*MODE-SIGNAL) *3*S))))))) (PUT1-LST (QUOTE *1*SUBA-ADDR-MODEP) (QUOTE (SEXPR (LAMBDA (*3*INS) (*1*ADDR-MODEP (*1*S_MODE *3*INS) (*1*S_RN *3*INS)))))) (PUT1-LST (QUOTE *1*SUBA-INS) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X)) (*2*TEMP4 (QUOTE *1*X))) (COND ((NOT (EQ (*1*SUBA-ADDR-MODEP *3*INS) *1*F)) (COND ((NOT (EQ (*1*MC-HALTP (SETQ *2*TEMP4 (*1*CAR (SETQ *2*TEMP3 (*1*MC-INSTATE *3*OPLEN *3*INS *3*S))))) *1*F)) *2*TEMP4) (T (*1*WRITE-AN (SETQ *2*TEMP2 (*1*L)) (*1*SUB *2*TEMP2 (*1*EXT *3*OPLEN (*1*OPERAND *3*OPLEN (*1*CDR *2*TEMP3) *3*S) *2*TEMP2) (*1*READ-AN *2*TEMP2 (SETQ *2*TEMP1 (*1*D_RN *3*INS)) *2*TEMP4)) *2*TEMP1 *2*TEMP4)))) (T (*1*HALT (*1*MODE-SIGNAL) *3*S)))))))) (PUT1-LST (QUOTE *1*SUBX-C) (QUOTE (SEXPR (LAMBDA (*3*N *3*X *3*SOPD *3*DOPD) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X))) (*1*B-OR (*1*B-OR (*1*B-AND (SETQ *2*TEMP3 (*1*MBIT *3*SOPD *3*N)) (SETQ *2*TEMP2 (*1*B-NOT (*1*MBIT *3*DOPD *3*N)))) (*1*B-AND (SETQ *2*TEMP1 (*1*MBIT (*1*SUBTRACTER *3*N *3*X *3*SOPD *3*DOPD) *3*N)) *2*TEMP2)) (*1*B-AND *2*TEMP3 *2*TEMP1))))))) (PUT1-LST (QUOTE *1*SUBX-V) (QUOTE (SEXPR (LAMBDA (*3*N *3*X *3*SOPD *3*DOPD) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X))) (*1*B-OR (*1*B-AND (*1*B-AND (*1*B-NOT (SETQ *2*TEMP3 (*1*MBIT *3*SOPD *3*N))) (SETQ *2*TEMP2 (*1*MBIT *3*DOPD *3*N))) (*1*B-NOT (SETQ *2*TEMP1 (*1*MBIT (*1*SUBTRACTER *3*N *3*X *3*SOPD *3*DOPD) *3*N)))) (*1*B-AND (*1*B-AND *2*TEMP3 (*1*B-NOT *2*TEMP2)) *2*TEMP1))))))) (PUT1-LST (QUOTE *1*SUBX-Z) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*Z *3*X *3*SOPD *3*DOPD) (*1*B-AND *3*Z (COND ((EQUAL (*1*SUBTRACTER *3*OPLEN *3*X *3*SOPD *3*DOPD) (QUOTE 0)) (*1*B1)) (T (*1*B0)))))))) (PUT1-LST (QUOTE *1*SUBX-N) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*X *3*SOPD *3*DOPD) (*1*MBIT (*1*SUBTRACTER *3*OPLEN *3*X *3*SOPD *3*DOPD) *3*OPLEN))))) (PUT1-LST (QUOTE *1*SUBX-CVZNX) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*Z *3*X *3*SOPD *3*DOPD) (LET ((*2*TEMP1 (QUOTE *1*X))) (*1*CVZNX (SETQ *2*TEMP1 (*1*SUBX-C *3*OPLEN *3*X *3*SOPD *3*DOPD)) (*1*SUBX-V *3*OPLEN *3*X *3*SOPD *3*DOPD) (*1*SUBX-Z *3*OPLEN *3*Z *3*X *3*SOPD *3*DOPD) (*1*SUBX-N *3*OPLEN *3*X *3*SOPD *3*DOPD) *2*TEMP1)))))) (PUT1-LST (QUOTE *1*SUBX-EFFECT) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*SOPD *3*DOPD *3*CCR) (LET ((*2*TEMP1 (QUOTE *1*X))) (CONS (*1*SUBTRACTER *3*OPLEN (SETQ *2*TEMP1 (*1*CCR-X *3*CCR)) *3*SOPD *3*DOPD) (*1*SUBX-CVZNX *3*OPLEN (*1*CCR-Z *3*CCR) *2*TEMP1 *3*SOPD *3*DOPD))))))) (PUT1-LST (QUOTE *1*SUBX-INS1) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X))) (*1*D-MAPPING *3*OPLEN (*1*SUBX-EFFECT *3*OPLEN (*1*READ-DN *3*OPLEN (*1*S_RN *3*INS) *3*S) (*1*READ-DN *3*OPLEN (SETQ *2*TEMP1 (*1*D_RN *3*INS)) *3*S) (*1*MC-CCR *3*S)) *2*TEMP1 *3*S)))))) (PUT1-LST (QUOTE *1*SUBX-INS2) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X)) (*2*TEMP4 (QUOTE *1*X)) (*2*TEMP5 (QUOTE *1*X)) (*2*TEMP6 (QUOTE *1*X)) (*2*TEMP7 (QUOTE *1*X))) (COND ((NOT (EQ (*1*READ-MEMP (*1*CDR (SETQ *2*TEMP7 (*1*CDR (SETQ *2*TEMP6 (*1*ADDR-PREDEC *3*OPLEN (*1*S_RN *3*INS) *3*S))))) (SETQ *2*TEMP5 (*1*MC-MEM *3*S)) (SETQ *2*TEMP4 (*1*OP-SZ *3*OPLEN))) *1*F)) (COND ((NOT (EQ (*1*READ-MEMP (*1*CDR (SETQ *2*TEMP3 (*1*CDR (SETQ *2*TEMP2 (*1*ADDR-PREDEC *3*OPLEN (*1*D_RN *3*INS) (SETQ *2*TEMP1 (*1*CAR *2*TEMP6))))))) *2*TEMP5 *2*TEMP4) *1*F)) (*1*MAPPING *3*OPLEN (*1*SUBX-EFFECT *3*OPLEN (*1*OPERAND *3*OPLEN *2*TEMP7 *2*TEMP1) (*1*OPERAND *3*OPLEN *2*TEMP3 (*1*CAR *2*TEMP2)) (*1*MC-CCR *3*S)) *2*TEMP2)) (T (*1*HALT (*1*READ-SIGNAL) *3*S)))) (T (*1*HALT (*1*READ-SIGNAL) *3*S)))))))) (PUT1-LST (QUOTE *1*SUB-GROUP) (QUOTE (SEXPR (LAMBDA (*3*OPMODE *3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*LESSP *3*OPMODE (QUOTE 4)) *1*F)) (COND ((EQUAL *3*OPMODE (QUOTE 3)) (*1*SUBA-INS (*1*W) *3*INS *3*S)) (T (*1*SUB-INS1 (*1*OP-LEN *3*INS) *3*INS *3*S)))) ((EQUAL *3*OPMODE (QUOTE 7)) (*1*SUBA-INS (*1*L) *3*INS *3*S)) ((EQUAL (SETQ *2*TEMP1 (*1*S_MODE *3*INS)) (QUOTE 0)) (*1*SUBX-INS1 (*1*OP-LEN *3*INS) *3*INS *3*S)) ((EQUAL *2*TEMP1 (QUOTE 1)) (*1*SUBX-INS2 (*1*OP-LEN *3*INS) *3*INS *3*S)) (T (*1*SUB-INS2 (*1*OP-LEN *3*INS) *3*INS *3*S)))))))) (PUT1-LST (QUOTE *1*AND-Z) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*SOPD *3*DOPD) (PROGN *3*OPLEN (COND ((EQUAL (*1*LOGAND *3*SOPD *3*DOPD) (QUOTE 0)) (*1*B1)) (T (*1*B0)))))))) (PUT1-LST (QUOTE *1*AND-N) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*SOPD *3*DOPD) (*1*MBIT (*1*LOGAND *3*SOPD *3*DOPD) *3*OPLEN))))) (PUT1-LST (QUOTE *1*AND-CVZNX) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*SOPD *3*DOPD *3*CCR) (LET ((*2*TEMP1 (QUOTE *1*X))) (*1*CVZNX (SETQ *2*TEMP1 (*1*B0)) *2*TEMP1 (*1*AND-Z *3*OPLEN *3*SOPD *3*DOPD) (*1*AND-N *3*OPLEN *3*SOPD *3*DOPD) (*1*CCR-X *3*CCR))))))) (PUT1-LST (QUOTE *1*AND-EFFECT) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*SOPD *3*DOPD *3*CCR) (CONS (*1*LOGAND *3*SOPD *3*DOPD) (*1*AND-CVZNX *3*OPLEN *3*SOPD *3*DOPD *3*CCR)))))) (PUT1-LST (QUOTE *1*AND-ADDR-MODEP1) (QUOTE (SEXPR (LAMBDA (*3*INS) (*1*DATA-ADDR-MODEP (*1*S_MODE *3*INS) (*1*S_RN *3*INS)))))) (PUT1-LST (QUOTE *1*AND-ADDR-MODEP2) (QUOTE (SEXPR (LAMBDA (*3*INS) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (*1*AND (*1*ALTERABLE-ADDR-MODEP (SETQ *2*TEMP2 (*1*S_MODE *3*INS)) (SETQ *2*TEMP1 (*1*S_RN *3*INS))) (*1*MEMORY-ADDR-MODEP *2*TEMP2 *2*TEMP1))))))) (PUT1-LST (QUOTE *1*AND-INS1) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X))) (COND ((NOT (EQ (*1*AND-ADDR-MODEP1 *3*INS) *1*F)) (COND ((NOT (EQ (*1*MC-HALTP (SETQ *2*TEMP3 (*1*CAR (SETQ *2*TEMP2 (*1*MC-INSTATE *3*OPLEN *3*INS *3*S))))) *1*F)) *2*TEMP3) (T (*1*D-MAPPING *3*OPLEN (*1*AND-EFFECT *3*OPLEN (*1*OPERAND *3*OPLEN (*1*CDR *2*TEMP2) *3*S) (*1*READ-DN *3*OPLEN (SETQ *2*TEMP1 (*1*D_RN *3*INS)) *3*S) (*1*MC-CCR *3*S)) *2*TEMP1 *2*TEMP3)))) (T (*1*HALT (*1*MODE-SIGNAL) *3*S)))))))) (PUT1-LST (QUOTE *1*AND-MAPPING) (QUOTE (SEXPR (LAMBDA (*3*SOPD *3*OPLEN *3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (COND ((NOT (EQ (*1*MC-HALTP (SETQ *2*TEMP2 (*1*CAR (SETQ *2*TEMP1 (*1*MC-INSTATE *3*OPLEN *3*INS *3*S))))) *1*F)) *2*TEMP2) (T (*1*MAPPING *3*OPLEN (*1*AND-EFFECT *3*OPLEN *3*SOPD (*1*OPERAND *3*OPLEN (*1*CDR *2*TEMP1) *3*S) (*1*MC-CCR *3*S)) *2*TEMP1)))))))) (PUT1-LST (QUOTE *1*AND-INS2) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*INS *3*S) (COND ((NOT (EQ (*1*AND-ADDR-MODEP2 *3*INS) *1*F)) (*1*AND-MAPPING (*1*READ-DN *3*OPLEN (*1*D_RN *3*INS) *3*S) *3*OPLEN *3*INS *3*S)) (T (*1*HALT (*1*MODE-SIGNAL) *3*S))))))) (PUT1-LST (QUOTE *1*MULU) (QUOTE (SEXPR (LAMBDA (*3*N *3*X *3*Y *3*I) (PROGN *3*I (*1*HEAD (*1*TIMES *3*X *3*Y) *3*N)))))) (PUT1-LST (QUOTE *1*MULS) (QUOTE (SEXPR (LAMBDA (*3*N *3*X *3*Y *3*I) (*1*HEAD (*1*INT-TO-NAT (*1*ITIMES (*1*NAT-TO-INT *3*X *3*I) (*1*NAT-TO-INT *3*Y *3*I)) (*1*TIMES (QUOTE 2) *3*I)) *3*N))))) (PUT1-LST (QUOTE *1*MUL&DIV-ADDR-MODEP) (QUOTE (SEXPR (LAMBDA (*3*INS) (*1*DATA-ADDR-MODEP (*1*S_MODE *3*INS) (*1*S_RN *3*INS)))))) (PUT1-LST (QUOTE *1*MULU-V) (QUOTE (SEXPR (LAMBDA (*3*N *3*SOPD *3*DOPD *3*I) (PROGN *3*I (COND ((NOT (EQ (*1*LESSP (*1*TIMES *3*SOPD *3*DOPD) (*1*EXP (QUOTE 2) *3*N)) *1*F)) (*1*B0)) (T (*1*B1)))))))) (PUT1-LST (QUOTE *1*MULU-Z) (QUOTE (SEXPR (LAMBDA (*3*N *3*SOPD *3*DOPD *3*I) (COND ((EQUAL (*1*MULU *3*N *3*SOPD *3*DOPD *3*I) (QUOTE 0)) (*1*B1)) (T (*1*B0))))))) (PUT1-LST (QUOTE *1*MULU-N) (QUOTE (SEXPR (LAMBDA (*3*N *3*SOPD *3*DOPD *3*I) (*1*MBIT (*1*MULU *3*N *3*SOPD *3*DOPD *3*I) *3*N))))) (PUT1-LST (QUOTE *1*MULU-CVZNX) (QUOTE (SEXPR (LAMBDA (*3*N *3*SOPD *3*DOPD *3*I *3*CCR) (*1*CVZNX (*1*B0) (*1*MULU-V *3*N *3*SOPD *3*DOPD *3*I) (*1*MULU-Z *3*N *3*SOPD *3*DOPD *3*I) (*1*MULU-N *3*N *3*SOPD *3*DOPD *3*I) (*1*CCR-X *3*CCR)))))) (PUT1-LST (QUOTE *1*MULU_W-INS) (QUOTE (SEXPR (LAMBDA (*3*SOPD *3*DN *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X))) (*1*UPDATE-CCR (*1*MULU-CVZNX (SETQ *2*TEMP3 (*1*L)) *3*SOPD (SETQ *2*TEMP2 (*1*READ-DN (SETQ *2*TEMP1 (*1*W)) *3*DN *3*S)) *2*TEMP1 (*1*MC-CCR *3*S)) (*1*WRITE-DN *2*TEMP3 (*1*MULU *2*TEMP3 *3*SOPD *2*TEMP2 *2*TEMP1) *3*DN *3*S))))))) (PUT1-LST (QUOTE *1*MULS-V) (QUOTE (SEXPR (LAMBDA (*3*N *3*SOPD *3*DOPD *3*I) (COND ((NOT (EQ (*1*INT-RANGEP (*1*ITIMES (*1*NAT-TO-INT *3*SOPD *3*I) (*1*NAT-TO-INT *3*DOPD *3*I)) *3*N) *1*F)) (*1*B0)) (T (*1*B1))))))) (PUT1-LST (QUOTE *1*MULS-Z) (QUOTE (SEXPR (LAMBDA (*3*N *3*SOPD *3*DOPD *3*I) (COND ((EQUAL (*1*MULS *3*N *3*SOPD *3*DOPD *3*I) (QUOTE 0)) (*1*B1)) (T (*1*B0))))))) (PUT1-LST (QUOTE *1*MULS-N) (QUOTE (SEXPR (LAMBDA (*3*N *3*SOPD *3*DOPD *3*I) (*1*MBIT (*1*MULS *3*N *3*SOPD *3*DOPD *3*I) *3*N))))) (PUT1-LST (QUOTE *1*MULS-CVZNX) (QUOTE (SEXPR (LAMBDA (*3*N *3*SOPD *3*DOPD *3*I *3*CCR) (*1*CVZNX (*1*B0) (*1*MULS-V *3*N *3*SOPD *3*DOPD *3*I) (*1*MULS-Z *3*N *3*SOPD *3*DOPD *3*I) (*1*MULS-N *3*N *3*SOPD *3*DOPD *3*I) (*1*CCR-X *3*CCR)))))) (PUT1-LST (QUOTE *1*MULS_W-INS) (QUOTE (SEXPR (LAMBDA (*3*SOPD *3*DN *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X))) (*1*UPDATE-CCR (*1*MULS-CVZNX (SETQ *2*TEMP3 (*1*L)) *3*SOPD (SETQ *2*TEMP2 (*1*READ-DN (SETQ *2*TEMP1 (*1*W)) *3*DN *3*S)) *2*TEMP1 (*1*MC-CCR *3*S)) (*1*WRITE-DN *2*TEMP3 (*1*MULS *2*TEMP3 *3*SOPD *2*TEMP2 *2*TEMP1) *3*DN *3*S))))))) (PUT1-LST (QUOTE *1*EXG-DRDR-INS) (QUOTE (SEXPR (LAMBDA (*3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X))) (*1*WRITE-DN (SETQ *2*TEMP3 (*1*L)) (*1*READ-DN *2*TEMP3 (SETQ *2*TEMP2 (*1*S_RN *3*INS)) *3*S) (SETQ *2*TEMP1 (*1*D_RN *3*INS)) (*1*WRITE-DN *2*TEMP3 (*1*READ-DN *2*TEMP3 *2*TEMP1 *3*S) *2*TEMP2 *3*S))))))) (PUT1-LST (QUOTE *1*EXG-ARAR-INS) (QUOTE (SEXPR (LAMBDA (*3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X))) (*1*WRITE-AN (SETQ *2*TEMP3 (*1*L)) (*1*READ-AN *2*TEMP3 (SETQ *2*TEMP2 (*1*S_RN *3*INS)) *3*S) (SETQ *2*TEMP1 (*1*D_RN *3*INS)) (*1*WRITE-AN *2*TEMP3 (*1*READ-AN *2*TEMP3 *2*TEMP1 *3*S) *2*TEMP2 *3*S))))))) (PUT1-LST (QUOTE *1*EXG-DRAR-INS) (QUOTE (SEXPR (LAMBDA (*3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X))) (*1*WRITE-DN (SETQ *2*TEMP3 (*1*L)) (*1*READ-AN *2*TEMP3 (SETQ *2*TEMP2 (*1*S_RN *3*INS)) *3*S) (SETQ *2*TEMP1 (*1*D_RN *3*INS)) (*1*WRITE-AN *2*TEMP3 (*1*READ-DN *2*TEMP3 *2*TEMP1 *3*S) *2*TEMP2 *3*S))))))) (PUT1-LST (QUOTE *1*MUL_W-INS) (QUOTE (SEXPR (LAMBDA (*3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X))) (COND ((NOT (EQ (*1*MUL&DIV-ADDR-MODEP *3*INS) *1*F)) (COND ((NOT (EQ (*1*MC-HALTP (SETQ *2*TEMP3 (*1*CAR (SETQ *2*TEMP2 (*1*MC-INSTATE (SETQ *2*TEMP1 (*1*W)) *3*INS *3*S))))) *1*F)) *2*TEMP3) ((NOT (EQ (*1*B0P (*1*BITN *3*INS (QUOTE 8))) *1*F)) (*1*MULU_W-INS (*1*OPERAND *2*TEMP1 (*1*CDR *2*TEMP2) *3*S) (*1*D_RN *3*INS) *2*TEMP3)) (T (*1*MULS_W-INS (*1*OPERAND *2*TEMP1 (*1*CDR *2*TEMP2) *3*S) (*1*D_RN *3*INS) *2*TEMP3)))) (T (*1*HALT (*1*MODE-SIGNAL) *3*S)))))))) (PUT1-LST (QUOTE *1*AND-GROUP) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((EQUAL *3*OPLEN (*1*Q)) (*1*MUL_W-INS *3*INS *3*S)) ((NOT (EQ (*1*B0P (*1*BITN *3*INS (QUOTE 8))) *1*F)) (*1*AND-INS1 *3*OPLEN *3*INS *3*S)) ((NOT (EQ (*1*LESSP (SETQ *2*TEMP1 (*1*S_MODE *3*INS)) (QUOTE 2)) *1*F)) (COND ((EQUAL *3*OPLEN (*1*B)) (*1*HALT (QUOTE ABCD-UNSPECIFIED) *3*S)) ((EQUAL *3*OPLEN (*1*W)) (COND ((EQUAL *2*TEMP1 (QUOTE 0)) (*1*EXG-DRDR-INS *3*INS *3*S)) (T (*1*EXG-ARAR-INS *3*INS *3*S)))) ((EQUAL *2*TEMP1 (QUOTE 0)) (*1*HALT (*1*RESERVED-SIGNAL) *3*S)) (T (*1*EXG-DRAR-INS *3*INS *3*S)))) (T (*1*AND-INS2 *3*OPLEN *3*INS *3*S)))))))) (PUT1-LST (QUOTE *1*OR-Z) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*SOPD *3*DOPD) (PROGN *3*OPLEN (COND ((EQUAL (*1*LOGOR *3*SOPD *3*DOPD) (QUOTE 0)) (*1*B1)) (T (*1*B0)))))))) (PUT1-LST (QUOTE *1*OR-N) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*SOPD *3*DOPD) (*1*B-OR (*1*MBIT *3*SOPD *3*OPLEN) (*1*MBIT *3*DOPD *3*OPLEN)))))) (PUT1-LST (QUOTE *1*OR-CVZNX) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*SOPD *3*DOPD *3*CCR) (LET ((*2*TEMP1 (QUOTE *1*X))) (*1*CVZNX (SETQ *2*TEMP1 (*1*B0)) *2*TEMP1 (*1*OR-Z *3*OPLEN *3*SOPD *3*DOPD) (*1*OR-N *3*OPLEN *3*SOPD *3*DOPD) (*1*CCR-X *3*CCR))))))) (PUT1-LST (QUOTE *1*OR-EFFECT) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*SOPD *3*DOPD *3*CCR) (CONS (*1*LOGOR *3*SOPD *3*DOPD) (*1*OR-CVZNX *3*OPLEN *3*SOPD *3*DOPD *3*CCR)))))) (PUT1-LST (QUOTE *1*OR-ADDR-MODEP1) (QUOTE (SEXPR (LAMBDA (*3*INS) (*1*DATA-ADDR-MODEP (*1*S_MODE *3*INS) (*1*S_RN *3*INS)))))) (PUT1-LST (QUOTE *1*OR-ADDR-MODEP2) (QUOTE (SEXPR (LAMBDA (*3*INS) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (*1*AND (*1*ALTERABLE-ADDR-MODEP (SETQ *2*TEMP2 (*1*S_MODE *3*INS)) (SETQ *2*TEMP1 (*1*S_RN *3*INS))) (*1*MEMORY-ADDR-MODEP *2*TEMP2 *2*TEMP1))))))) (PUT1-LST (QUOTE *1*OR-INS1) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X))) (COND ((NOT (EQ (*1*OR-ADDR-MODEP1 *3*INS) *1*F)) (COND ((NOT (EQ (*1*MC-HALTP (SETQ *2*TEMP3 (*1*CAR (SETQ *2*TEMP2 (*1*MC-INSTATE *3*OPLEN *3*INS *3*S))))) *1*F)) *2*TEMP3) (T (*1*D-MAPPING *3*OPLEN (*1*OR-EFFECT *3*OPLEN (*1*OPERAND *3*OPLEN (*1*CDR *2*TEMP2) *3*S) (*1*READ-DN *3*OPLEN (SETQ *2*TEMP1 (*1*D_RN *3*INS)) *3*S) (*1*MC-CCR *3*S)) *2*TEMP1 *2*TEMP3)))) (T (*1*HALT (*1*MODE-SIGNAL) *3*S)))))))) (PUT1-LST (QUOTE *1*OR-MAPPING) (QUOTE (SEXPR (LAMBDA (*3*SOPD *3*OPLEN *3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (COND ((NOT (EQ (*1*MC-HALTP (SETQ *2*TEMP2 (*1*CAR (SETQ *2*TEMP1 (*1*MC-INSTATE *3*OPLEN *3*INS *3*S))))) *1*F)) *2*TEMP2) (T (*1*MAPPING *3*OPLEN (*1*OR-EFFECT *3*OPLEN *3*SOPD (*1*OPERAND *3*OPLEN (*1*CDR *2*TEMP1) *3*S) (*1*MC-CCR *3*S)) *2*TEMP1)))))))) (PUT1-LST (QUOTE *1*OR-INS2) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*INS *3*S) (COND ((NOT (EQ (*1*OR-ADDR-MODEP2 *3*INS) *1*F)) (*1*OR-MAPPING (*1*READ-DN *3*OPLEN (*1*D_RN *3*INS) *3*S) *3*OPLEN *3*INS *3*S)) (T (*1*HALT (*1*MODE-SIGNAL) *3*S))))))) (PUT1-LST (QUOTE *1*IQUOT) (QUOTE (SEXPR (LAMBDA (*3*N *3*S *3*I *3*D *3*J) (*1*HEAD (*1*INT-TO-NAT (*1*IQUOTIENT (*1*NAT-TO-INT *3*D *3*J) (*1*NAT-TO-INT *3*S *3*I)) *3*J) *3*N))))) (PUT1-LST (QUOTE *1*IREM) (QUOTE (SEXPR (LAMBDA (*3*N *3*S *3*I *3*D *3*J) (*1*HEAD (*1*INT-TO-NAT (*1*IREMAINDER (*1*NAT-TO-INT *3*D *3*J) (*1*NAT-TO-INT *3*S *3*I)) *3*I) *3*N))))) (PUT1-LST (QUOTE *1*DIVS-V) (QUOTE (SEXPR (LAMBDA (*3*N *3*SOPD *3*I *3*DOPD *3*J) (COND ((NOT (EQ (*1*INT-RANGEP (*1*IQUOTIENT (*1*NAT-TO-INT *3*DOPD *3*J) (*1*NAT-TO-INT *3*SOPD *3*I)) *3*N) *1*F)) (*1*B0)) (T (*1*B1))))))) (PUT1-LST (QUOTE *1*DIVS-Z) (QUOTE (SEXPR (LAMBDA (*3*N *3*SOPD *3*I *3*DOPD *3*J) (COND ((EQUAL (*1*IQUOT *3*N *3*SOPD *3*I *3*DOPD *3*J) (QUOTE 0)) (*1*B1)) (T (*1*B0))))))) (PUT1-LST (QUOTE *1*DIVS-N) (QUOTE (SEXPR (LAMBDA (*3*N *3*SOPD *3*I *3*DOPD *3*J) (*1*MBIT (*1*IQUOT *3*N *3*SOPD *3*I *3*DOPD *3*J) *3*N))))) (PUT1-LST (QUOTE *1*DIVS-CVZNX) (QUOTE (SEXPR (LAMBDA (*3*N *3*SOPD *3*I *3*DOPD *3*J *3*CCR) (LET ((*2*TEMP1 (QUOTE *1*X))) (*1*CVZNX (SETQ *2*TEMP1 (*1*B0)) *2*TEMP1 (*1*DIVS-Z *3*N *3*SOPD *3*I *3*DOPD *3*J) (*1*DIVS-N *3*N *3*SOPD *3*I *3*DOPD *3*J) (*1*CCR-X *3*CCR))))))) (PUT1-LST (QUOTE *1*DIVS_W-INS) (QUOTE (SEXPR (LAMBDA (*3*SOPD *3*DN *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X))) (COND ((EQUAL (*1*NAT-TO-INT *3*SOPD (SETQ *2*TEMP3 (*1*W))) (QUOTE 0)) (*1*HALT (QUOTE TRAP-EXCEPTION) *3*S)) ((NOT (EQ (*1*B0P (*1*DIVS-V *2*TEMP3 *3*SOPD *2*TEMP3 (SETQ *2*TEMP2 (*1*READ-DN (SETQ *2*TEMP1 (*1*L)) *3*DN *3*S)) *2*TEMP1)) *1*F)) (*1*UPDATE-CCR (*1*DIVS-CVZNX *2*TEMP3 *3*SOPD *2*TEMP3 *2*TEMP2 *2*TEMP1 (*1*MC-CCR *3*S)) (*1*WRITE-DN *2*TEMP1 (*1*APP *2*TEMP3 (*1*IQUOT *2*TEMP3 *3*SOPD *2*TEMP3 *2*TEMP2 *2*TEMP1) (*1*IREM *2*TEMP3 *3*SOPD *2*TEMP3 *2*TEMP2 *2*TEMP1)) *3*DN *3*S))) (T (*1*HALT (QUOTE DIVS-OVERFLOW) (*1*UPDATE-CCR (*1*SET-V (*1*B1) (*1*MC-CCR *3*S)) *3*S))))))))) (PUT1-LST (QUOTE *1*QUOT) (QUOTE (SEXPR (LAMBDA (*3*N *3*X *3*Y) (*1*HEAD (*1*QUOTIENT *3*Y *3*X) *3*N))))) (PUT1-LST (QUOTE *1*REM) (QUOTE (SEXPR (LAMBDA (*3*N *3*X *3*Y) (*1*HEAD (*1*REMAINDER *3*Y *3*X) *3*N))))) (PUT1-LST (QUOTE *1*DIVU-V) (QUOTE (SEXPR (LAMBDA (*3*N *3*SOPD *3*DOPD) (COND ((NOT (EQ (*1*LESSP (*1*QUOTIENT *3*DOPD *3*SOPD) (*1*EXP (QUOTE 2) *3*N)) *1*F)) (*1*B0)) (T (*1*B1))))))) (PUT1-LST (QUOTE *1*DIVU-Z) (QUOTE (SEXPR (LAMBDA (*3*N *3*SOPD *3*DOPD) (COND ((EQUAL (*1*QUOT *3*N *3*SOPD *3*DOPD) (QUOTE 0)) (*1*B1)) (T (*1*B0))))))) (PUT1-LST (QUOTE *1*DIVU-N) (QUOTE (SEXPR (LAMBDA (*3*N *3*SOPD *3*DOPD) (*1*MBIT (*1*QUOT *3*N *3*SOPD *3*DOPD) *3*N))))) (PUT1-LST (QUOTE *1*DIVU-CVZNX) (QUOTE (SEXPR (LAMBDA (*3*N *3*SOPD *3*DOPD *3*CCR) (LET ((*2*TEMP1 (QUOTE *1*X))) (*1*CVZNX (SETQ *2*TEMP1 (*1*B0)) *2*TEMP1 (*1*DIVU-Z *3*N *3*SOPD *3*DOPD) (*1*DIVU-N *3*N *3*SOPD *3*DOPD) (*1*CCR-X *3*CCR))))))) (PUT1-LST (QUOTE *1*DIVU_W-INS) (QUOTE (SEXPR (LAMBDA (*3*SOPD *3*DN *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X))) (COND ((EQUAL (*1*NAT-TO-UINT *3*SOPD) (QUOTE 0)) (*1*HALT (QUOTE TRAP-EXCEPTION) *3*S)) ((NOT (EQ (*1*B0P (*1*DIVU-V (SETQ *2*TEMP3 (*1*W)) *3*SOPD (SETQ *2*TEMP2 (*1*READ-DN (SETQ *2*TEMP1 (*1*L)) *3*DN *3*S)))) *1*F)) (*1*UPDATE-CCR (*1*DIVU-CVZNX *2*TEMP3 *3*SOPD *2*TEMP2 (*1*MC-CCR *3*S)) (*1*WRITE-DN *2*TEMP1 (*1*APP *2*TEMP3 (*1*QUOT *2*TEMP3 *3*SOPD *2*TEMP2) (*1*REM *2*TEMP3 *3*SOPD *2*TEMP2)) *3*DN *3*S))) (T (*1*HALT (QUOTE DIVU-OVERFLOW) (*1*UPDATE-CCR (*1*SET-V (*1*B1) (*1*MC-CCR *3*S)) *3*S))))))))) (PUT1-LST (QUOTE *1*DIV_W-INS) (QUOTE (SEXPR (LAMBDA (*3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X))) (COND ((NOT (EQ (*1*MUL&DIV-ADDR-MODEP *3*INS) *1*F)) (COND ((NOT (EQ (*1*MC-HALTP (SETQ *2*TEMP3 (*1*CAR (SETQ *2*TEMP2 (*1*MC-INSTATE (SETQ *2*TEMP1 (*1*W)) *3*INS *3*S))))) *1*F)) *2*TEMP3) ((NOT (EQ (*1*B0P (*1*BITN *3*INS (QUOTE 8))) *1*F)) (*1*DIVU_W-INS (*1*OPERAND *2*TEMP1 (*1*CDR *2*TEMP2) *3*S) (*1*D_RN *3*INS) *2*TEMP3)) (T (*1*DIVS_W-INS (*1*OPERAND *2*TEMP1 (*1*CDR *2*TEMP2) *3*S) (*1*D_RN *3*INS) *2*TEMP3)))) (T (*1*HALT (*1*MODE-SIGNAL) *3*S)))))))) (PUT1-LST (QUOTE *1*OR-GROUP) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*INS *3*S) (COND ((EQUAL *3*OPLEN (*1*Q)) (*1*DIV_W-INS *3*INS *3*S)) ((NOT (EQ (*1*B0P (*1*BITN *3*INS (QUOTE 8))) *1*F)) (*1*OR-INS1 *3*OPLEN *3*INS *3*S)) ((NOT (EQ (*1*LESSP (*1*S_MODE *3*INS) (QUOTE 2)) *1*F)) (*1*HALT (QUOTE SBCD-PACK-UNPK-UNSPECIFIED) *3*S)) (T (*1*OR-INS2 *3*OPLEN *3*INS *3*S))))))) (PUT1-LST (QUOTE *1*ROL) (QUOTE (SEXPR (LAMBDA (*3*LEN *3*X *3*CNT) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (*1*APP (SETQ *2*TEMP2 (*1*REMAINDER *3*CNT *3*LEN)) (*1*TAIL *3*X (SETQ *2*TEMP1 (*1*DIFFERENCE *3*LEN *2*TEMP2))) (*1*HEAD *3*X *2*TEMP1))))))) (PUT1-LST (QUOTE *1*ROR) (QUOTE (SEXPR (LAMBDA (*3*LEN *3*X *3*CNT) (LET ((*2*TEMP1 (QUOTE *1*X))) (*1*APP (*1*DIFFERENCE *3*LEN (SETQ *2*TEMP1 (*1*REMAINDER *3*CNT *3*LEN))) (*1*TAIL *3*X *2*TEMP1) (*1*HEAD *3*X *2*TEMP1))))))) (PUT1-LST (QUOTE *1*S&R-ADDR-MODEP) (QUOTE (SEXPR (LAMBDA (*3*INS) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (*1*AND (*1*MEMORY-ADDR-MODEP (SETQ *2*TEMP2 (*1*S_MODE *3*INS)) (SETQ *2*TEMP1 (*1*S_RN *3*INS))) (*1*ALTERABLE-ADDR-MODEP *2*TEMP2 *2*TEMP1))))))) (PUT1-LST (QUOTE *1*I-DATA) (QUOTE (SEXPR (LAMBDA (*3*N) (COND ((NOT (EQ (*1*ZEROP *3*N) *1*F)) (QUOTE 8)) (T *3*N)))))) (PUT1-LST (QUOTE *1*SR-CNT) (QUOTE (SEXPR (LAMBDA (*3*INS *3*S) (LET NIL (COND ((NOT (EQ (*1*B0P (*1*BITN *3*INS (QUOTE 5))) *1*F)) (*1*I-DATA (*1*D_RN *3*INS))) (T (*1*REMAINDER (*1*READ-DN (*1*B) (*1*D_RN *3*INS) *3*S) (QUOTE 64))))))))) (PUT1-LST (QUOTE *1*ROL-C) (QUOTE (SEXPR (LAMBDA (*3*LEN *3*X *3*CNT) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((EQUAL *3*CNT (QUOTE 0)) (*1*B0)) ((NOT (EQ (*1*ZEROP (SETQ *2*TEMP1 (*1*REMAINDER *3*CNT *3*LEN))) *1*F)) (*1*BCAR *3*X)) (T (*1*BITN *3*X (*1*DIFFERENCE *3*LEN *2*TEMP1))))))))) (PUT1-LST (QUOTE *1*ROL-Z) (QUOTE (SEXPR (LAMBDA (*3*LEN *3*X *3*CNT) (PROGN *3*LEN *3*CNT (COND ((EQUAL *3*X (QUOTE 0)) (*1*B1)) (T (*1*B0)))))))) (PUT1-LST (QUOTE *1*ROL-N) (QUOTE (SEXPR (LAMBDA (*3*LEN *3*X *3*CNT) (*1*BITN *3*X (*1*SUB1 (*1*DIFFERENCE *3*LEN (*1*REMAINDER *3*CNT *3*LEN)))))))) (PUT1-LST (QUOTE *1*ROL-CVZNX) (QUOTE (SEXPR (LAMBDA (*3*LEN *3*OPD *3*CNT *3*CCR) (*1*CVZNX (*1*ROL-C *3*LEN *3*OPD *3*CNT) (*1*B0) (*1*ROL-Z *3*LEN *3*OPD *3*CNT) (*1*ROL-N *3*LEN *3*OPD *3*CNT) (*1*CCR-X *3*CCR)))))) (PUT1-LST (QUOTE *1*ROL-EFFECT) (QUOTE (SEXPR (LAMBDA (*3*LEN *3*OPD *3*CNT *3*CCR) (CONS (*1*ROL *3*LEN *3*OPD *3*CNT) (*1*ROL-CVZNX *3*LEN *3*OPD *3*CNT *3*CCR)))))) (PUT1-LST (QUOTE *1*REGISTER-ROL-INS) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X))) (*1*D-MAPPING *3*OPLEN (*1*ROL-EFFECT *3*OPLEN (*1*READ-DN *3*OPLEN (SETQ *2*TEMP1 (*1*S_RN *3*INS)) *3*S) (*1*SR-CNT *3*INS *3*S) (*1*MC-CCR *3*S)) *2*TEMP1 *3*S)))))) (PUT1-LST (QUOTE *1*ROR-C) (QUOTE (SEXPR (LAMBDA (*3*LEN *3*X *3*CNT) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((EQUAL *3*CNT (QUOTE 0)) (*1*B0)) ((EQUAL (SETQ *2*TEMP1 (*1*REMAINDER *3*CNT *3*LEN)) (QUOTE 0)) (*1*BITN *3*X (*1*SUB1 *3*LEN))) (T (*1*BITN *3*X (*1*SUB1 *2*TEMP1))))))))) (PUT1-LST (QUOTE *1*ROR-Z) (QUOTE (SEXPR (LAMBDA (*3*LEN *3*OPD *3*CNT) (PROGN *3*LEN *3*CNT (COND ((EQUAL *3*OPD (QUOTE 0)) (*1*B1)) (T (*1*B0)))))))) (PUT1-LST (QUOTE *1*ROR-N) (QUOTE (SEXPR (LAMBDA (*3*LEN *3*X *3*CNT) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*ZEROP (SETQ *2*TEMP1 (*1*REMAINDER *3*CNT *3*LEN))) *1*F)) (*1*BITN *3*X (*1*SUB1 *3*LEN))) (T (*1*BITN *3*X (*1*SUB1 *2*TEMP1))))))))) (PUT1-LST (QUOTE *1*ROR-CVZNX) (QUOTE (SEXPR (LAMBDA (*3*LEN *3*OPD *3*CNT *3*CCR) (*1*CVZNX (*1*ROR-C *3*LEN *3*OPD *3*CNT) (*1*B0) (*1*ROR-Z *3*LEN *3*OPD *3*CNT) (*1*ROR-N *3*LEN *3*OPD *3*CNT) (*1*CCR-X *3*CCR)))))) (PUT1-LST (QUOTE *1*ROR-EFFECT) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*OPD *3*CNT *3*CCR) (CONS (*1*ROR *3*OPLEN *3*OPD *3*CNT) (*1*ROR-CVZNX *3*OPLEN *3*OPD *3*CNT *3*CCR)))))) (PUT1-LST (QUOTE *1*REGISTER-ROR-INS) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X))) (*1*D-MAPPING *3*OPLEN (*1*ROR-EFFECT *3*OPLEN (*1*READ-DN *3*OPLEN (SETQ *2*TEMP1 (*1*S_RN *3*INS)) *3*S) (*1*SR-CNT *3*INS *3*S) (*1*MC-CCR *3*S)) *2*TEMP1 *3*S)))))) (PUT1-LST (QUOTE *1*MEM-ROL-EFFECT) (QUOTE (SEXPR (LAMBDA (*3*OPD *3*CCR) (*1*ROL-EFFECT (*1*W) *3*OPD (QUOTE 1) *3*CCR))))) (PUT1-LST (QUOTE *1*MEM-ROL-INS) (QUOTE (SEXPR (LAMBDA (*3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X))) (COND ((NOT (EQ (*1*S&R-ADDR-MODEP *3*INS) *1*F)) (COND ((NOT (EQ (*1*MC-HALTP (SETQ *2*TEMP3 (*1*CAR (SETQ *2*TEMP2 (*1*MC-INSTATE (SETQ *2*TEMP1 (*1*W)) *3*INS *3*S))))) *1*F)) *2*TEMP3) (T (*1*MAPPING *2*TEMP1 (*1*MEM-ROL-EFFECT (*1*OPERAND *2*TEMP1 (*1*CDR *2*TEMP2) *3*S) (*1*MC-CCR *3*S)) *2*TEMP2)))) (T (*1*HALT (*1*MODE-SIGNAL) *3*S)))))))) (PUT1-LST (QUOTE *1*MEM-ROR-EFFECT) (QUOTE (SEXPR (LAMBDA (*3*OPD *3*CCR) (*1*ROR-EFFECT (*1*W) *3*OPD (QUOTE 1) *3*CCR))))) (PUT1-LST (QUOTE *1*MEM-ROR-INS) (QUOTE (SEXPR (LAMBDA (*3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X))) (COND ((NOT (EQ (*1*S&R-ADDR-MODEP *3*INS) *1*F)) (COND ((NOT (EQ (*1*MC-HALTP (SETQ *2*TEMP3 (*1*CAR (SETQ *2*TEMP2 (*1*MC-INSTATE (SETQ *2*TEMP1 (*1*W)) *3*INS *3*S))))) *1*F)) *2*TEMP3) (T (*1*MAPPING *2*TEMP1 (*1*MEM-ROR-EFFECT (*1*OPERAND *2*TEMP1 (*1*CDR *2*TEMP2) *3*S) (*1*MC-CCR *3*S)) *2*TEMP2)))) (T (*1*HALT (*1*MODE-SIGNAL) *3*S)))))))) (PUT1-LST (QUOTE *1*LSL-C) (QUOTE (SEXPR (LAMBDA (*3*LEN *3*OPD *3*CNT) (LET NIL (COND ((EQUAL *3*CNT (QUOTE 0)) (*1*B0)) ((NOT (EQ (*1*LESSP *3*LEN *3*CNT) *1*F)) (*1*B0)) (T (*1*BITN *3*OPD (*1*DIFFERENCE *3*LEN *3*CNT))))))))) (PUT1-LST (QUOTE *1*LSL-Z) (QUOTE (SEXPR (LAMBDA (*3*LEN *3*OPD *3*CNT) (COND ((EQUAL (*1*LSL *3*LEN *3*OPD *3*CNT) (QUOTE 0)) (*1*B1)) (T (*1*B0))))))) (PUT1-LST (QUOTE *1*LSL-N) (QUOTE (SEXPR (LAMBDA (*3*LEN *3*OPD *3*CNT) (*1*MBIT (*1*LSL *3*LEN *3*OPD *3*CNT) *3*LEN))))) (PUT1-LST (QUOTE *1*LSL-X) (QUOTE (SEXPR (LAMBDA (*3*LEN *3*OPD *3*CNT *3*CCR) (COND ((EQUAL *3*CNT (QUOTE 0)) (*1*CCR-X *3*CCR)) (T (*1*LSL-C *3*LEN *3*OPD *3*CNT))))))) (PUT1-LST (QUOTE *1*LSL-CVZNX) (QUOTE (SEXPR (LAMBDA (*3*LEN *3*OPD *3*CNT *3*CCR) (*1*CVZNX (*1*LSL-C *3*LEN *3*OPD *3*CNT) (*1*B0) (*1*LSL-Z *3*LEN *3*OPD *3*CNT) (*1*LSL-N *3*LEN *3*OPD *3*CNT) (*1*LSL-X *3*LEN *3*OPD *3*CNT *3*CCR)))))) (PUT1-LST (QUOTE *1*LSL-EFFECT) (QUOTE (SEXPR (LAMBDA (*3*LEN *3*OPD *3*CNT *3*CCR) (CONS (*1*LSL *3*LEN *3*OPD *3*CNT) (*1*LSL-CVZNX *3*LEN *3*OPD *3*CNT *3*CCR)))))) (PUT1-LST (QUOTE *1*REGISTER-LSL-INS) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X))) (*1*D-MAPPING *3*OPLEN (*1*LSL-EFFECT *3*OPLEN (*1*READ-DN *3*OPLEN (SETQ *2*TEMP1 (*1*S_RN *3*INS)) *3*S) (*1*SR-CNT *3*INS *3*S) (*1*MC-CCR *3*S)) *2*TEMP1 *3*S)))))) (PUT1-LST (QUOTE *1*LSR-C) (QUOTE (SEXPR (LAMBDA (*3*LEN *3*OPD *3*CNT) (LET NIL (COND ((EQUAL *3*CNT (QUOTE 0)) (*1*B0)) ((NOT (EQ (*1*LESSP *3*LEN *3*CNT) *1*F)) (*1*B0)) (T (*1*BITN *3*OPD (*1*SUB1 *3*CNT))))))))) (PUT1-LST (QUOTE *1*LSR-Z) (QUOTE (SEXPR (LAMBDA (*3*LEN *3*OPD *3*CNT) (PROGN *3*LEN (COND ((EQUAL (*1*LSR *3*OPD *3*CNT) (QUOTE 0)) (*1*B1)) (T (*1*B0)))))))) (PUT1-LST (QUOTE *1*LSR-N) (QUOTE (SEXPR (LAMBDA (*3*LEN *3*OPD *3*CNT) (*1*MBIT (*1*LSR *3*OPD *3*CNT) *3*LEN))))) (PUT1-LST (QUOTE *1*LSR-X) (QUOTE (SEXPR (LAMBDA (*3*LEN *3*OPD *3*CNT *3*CCR) (COND ((EQUAL *3*CNT (QUOTE 0)) (*1*CCR-X *3*CCR)) (T (*1*LSR-C *3*LEN *3*OPD *3*CNT))))))) (PUT1-LST (QUOTE *1*LSR-CVZNX) (QUOTE (SEXPR (LAMBDA (*3*LEN *3*OPD *3*CNT *3*CCR) (*1*CVZNX (*1*LSR-C *3*LEN *3*OPD *3*CNT) (*1*B0) (*1*LSR-Z *3*LEN *3*OPD *3*CNT) (*1*LSR-N *3*LEN *3*OPD *3*CNT) (*1*LSR-X *3*LEN *3*OPD *3*CNT *3*CCR)))))) (PUT1-LST (QUOTE *1*LSR-EFFECT) (QUOTE (SEXPR (LAMBDA (*3*LEN *3*OPD *3*CNT *3*CCR) (CONS (*1*LSR *3*OPD *3*CNT) (*1*LSR-CVZNX *3*LEN *3*OPD *3*CNT *3*CCR)))))) (PUT1-LST (QUOTE *1*REGISTER-LSR-INS) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X))) (*1*D-MAPPING *3*OPLEN (*1*LSR-EFFECT *3*OPLEN (*1*READ-DN *3*OPLEN (SETQ *2*TEMP1 (*1*S_RN *3*INS)) *3*S) (*1*SR-CNT *3*INS *3*S) (*1*MC-CCR *3*S)) *2*TEMP1 *3*S)))))) (PUT1-LST (QUOTE *1*MEM-LSL-EFFECT) (QUOTE (SEXPR (LAMBDA (*3*OPD *3*CCR) (*1*LSL-EFFECT (*1*W) *3*OPD (QUOTE 1) *3*CCR))))) (PUT1-LST (QUOTE *1*MEM-LSL-INS) (QUOTE (SEXPR (LAMBDA (*3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X))) (COND ((NOT (EQ (*1*S&R-ADDR-MODEP *3*INS) *1*F)) (COND ((NOT (EQ (*1*MC-HALTP (SETQ *2*TEMP3 (*1*CAR (SETQ *2*TEMP2 (*1*MC-INSTATE (SETQ *2*TEMP1 (*1*W)) *3*INS *3*S))))) *1*F)) *2*TEMP3) (T (*1*MAPPING *2*TEMP1 (*1*MEM-LSL-EFFECT (*1*OPERAND *2*TEMP1 (*1*CDR *2*TEMP2) *3*S) (*1*MC-CCR *3*S)) *2*TEMP2)))) (T (*1*HALT (*1*MODE-SIGNAL) *3*S)))))))) (PUT1-LST (QUOTE *1*MEM-LSR-EFFECT) (QUOTE (SEXPR (LAMBDA (*3*OPD *3*CCR) (*1*LSR-EFFECT (*1*W) *3*OPD (QUOTE 1) *3*CCR))))) (PUT1-LST (QUOTE *1*MEM-LSR-INS) (QUOTE (SEXPR (LAMBDA (*3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X))) (COND ((NOT (EQ (*1*S&R-ADDR-MODEP *3*INS) *1*F)) (COND ((NOT (EQ (*1*MC-HALTP (SETQ *2*TEMP3 (*1*CAR (SETQ *2*TEMP2 (*1*MC-INSTATE (SETQ *2*TEMP1 (*1*W)) *3*INS *3*S))))) *1*F)) *2*TEMP3) (T (*1*MAPPING *2*TEMP1 (*1*MEM-LSR-EFFECT (*1*OPERAND *2*TEMP1 (*1*CDR *2*TEMP2) *3*S) (*1*MC-CCR *3*S)) *2*TEMP2)))) (T (*1*HALT (*1*MODE-SIGNAL) *3*S)))))))) (PUT1-LST (QUOTE *1*ASL-C) (QUOTE (SEXPR (LAMBDA (*3*LEN *3*OPD *3*CNT) (*1*LSL-C *3*LEN *3*OPD *3*CNT))))) (PUT1-LST (QUOTE *1*ASL-V) (QUOTE (SEXPR (LAMBDA (*3*LEN *3*OPD *3*CNT) (COND ((NOT (EQ (*1*INT-RANGEP (*1*NAT-TO-INT *3*OPD *3*LEN) (*1*DIFFERENCE *3*LEN *3*CNT)) *1*F)) (*1*B0)) (T (*1*B1))))))) (PUT1-LST (QUOTE *1*ASL-Z) (QUOTE (SEXPR (LAMBDA (*3*LEN *3*OPD *3*CNT) (COND ((EQUAL (*1*ASL *3*LEN *3*OPD *3*CNT) (QUOTE 0)) (*1*B1)) (T (*1*B0))))))) (PUT1-LST (QUOTE *1*ASL-N) (QUOTE (SEXPR (LAMBDA (*3*LEN *3*OPD *3*CNT) (*1*MBIT (*1*ASL *3*LEN *3*OPD *3*CNT) *3*LEN))))) (PUT1-LST (QUOTE *1*ASL-X) (QUOTE (SEXPR (LAMBDA (*3*LEN *3*OPD *3*CNT *3*CCR) (COND ((EQUAL *3*CNT (QUOTE 0)) (*1*CCR-X *3*CCR)) (T (*1*ASL-C *3*LEN *3*OPD *3*CNT))))))) (PUT1-LST (QUOTE *1*ASL-CVZNX) (QUOTE (SEXPR (LAMBDA (*3*LEN *3*OPD *3*CNT *3*CCR) (*1*CVZNX (*1*ASL-C *3*LEN *3*OPD *3*CNT) (*1*ASL-V *3*LEN *3*OPD *3*CNT) (*1*ASL-Z *3*LEN *3*OPD *3*CNT) (*1*ASL-N *3*LEN *3*OPD *3*CNT) (*1*ASL-X *3*LEN *3*OPD *3*CNT *3*CCR)))))) (PUT1-LST (QUOTE *1*ASL-EFFECT) (QUOTE (SEXPR (LAMBDA (*3*LEN *3*OPD *3*CNT *3*CCR) (CONS (*1*ASL *3*LEN *3*OPD *3*CNT) (*1*ASL-CVZNX *3*LEN *3*OPD *3*CNT *3*CCR)))))) (PUT1-LST (QUOTE *1*REGISTER-ASL-INS) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X))) (*1*D-MAPPING *3*OPLEN (*1*ASL-EFFECT *3*OPLEN (*1*READ-DN *3*OPLEN (SETQ *2*TEMP1 (*1*S_RN *3*INS)) *3*S) (*1*SR-CNT *3*INS *3*S) (*1*MC-CCR *3*S)) *2*TEMP1 *3*S)))))) (PUT1-LST (QUOTE *1*ASR-C) (QUOTE (SEXPR (LAMBDA (*3*LEN *3*OPD *3*CNT) (COND ((EQUAL *3*CNT (QUOTE 0)) (*1*B0)) ((NOT (EQ (*1*LESSP *3*CNT *3*LEN) *1*F)) (*1*BITN *3*OPD (*1*SUB1 *3*CNT))) (T (*1*BITN *3*OPD (*1*SUB1 *3*LEN)))))))) (PUT1-LST (QUOTE *1*ASR-Z) (QUOTE (SEXPR (LAMBDA (*3*LEN *3*OPD *3*CNT) (COND ((EQUAL (*1*ASR *3*LEN *3*OPD *3*CNT) (QUOTE 0)) (*1*B1)) (T (*1*B0))))))) (PUT1-LST (QUOTE *1*ASR-N) (QUOTE (SEXPR (LAMBDA (*3*LEN *3*OPD *3*CNT) (*1*MBIT (*1*ASR *3*LEN *3*OPD *3*CNT) *3*LEN))))) (PUT1-LST (QUOTE *1*ASR-X) (QUOTE (SEXPR (LAMBDA (*3*LEN *3*OPD *3*CNT *3*CCR) (COND ((EQUAL *3*CNT (QUOTE 0)) (*1*CCR-X *3*CCR)) (T (*1*ASR-C *3*LEN *3*OPD *3*CNT))))))) (PUT1-LST (QUOTE *1*ASR-CVZNX) (QUOTE (SEXPR (LAMBDA (*3*LEN *3*OPD *3*CNT *3*CCR) (*1*CVZNX (*1*ASR-C *3*LEN *3*OPD *3*CNT) (*1*B0) (*1*ASR-Z *3*LEN *3*OPD *3*CNT) (*1*ASR-N *3*LEN *3*OPD *3*CNT) (*1*ASR-X *3*LEN *3*OPD *3*CNT *3*CCR)))))) (PUT1-LST (QUOTE *1*ASR-EFFECT) (QUOTE (SEXPR (LAMBDA (*3*LEN *3*OPD *3*CNT *3*CCR) (CONS (*1*ASR *3*LEN *3*OPD *3*CNT) (*1*ASR-CVZNX *3*LEN *3*OPD *3*CNT *3*CCR)))))) (PUT1-LST (QUOTE *1*REGISTER-ASR-INS) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X))) (*1*D-MAPPING *3*OPLEN (*1*ASR-EFFECT *3*OPLEN (*1*READ-DN *3*OPLEN (SETQ *2*TEMP1 (*1*S_RN *3*INS)) *3*S) (*1*SR-CNT *3*INS *3*S) (*1*MC-CCR *3*S)) *2*TEMP1 *3*S)))))) (PUT1-LST (QUOTE *1*MEM-ASL-EFFECT) (QUOTE (SEXPR (LAMBDA (*3*OPD *3*CCR) (*1*ASL-EFFECT (*1*W) *3*OPD (QUOTE 1) *3*CCR))))) (PUT1-LST (QUOTE *1*MEM-ASL-INS) (QUOTE (SEXPR (LAMBDA (*3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X))) (COND ((NOT (EQ (*1*S&R-ADDR-MODEP *3*INS) *1*F)) (COND ((NOT (EQ (*1*MC-HALTP (SETQ *2*TEMP3 (*1*CAR (SETQ *2*TEMP2 (*1*MC-INSTATE (SETQ *2*TEMP1 (*1*W)) *3*INS *3*S))))) *1*F)) *2*TEMP3) (T (*1*MAPPING *2*TEMP1 (*1*MEM-ASL-EFFECT (*1*OPERAND *2*TEMP1 (*1*CDR *2*TEMP2) *3*S) (*1*MC-CCR *3*S)) *2*TEMP2)))) (T (*1*HALT (*1*MODE-SIGNAL) *3*S)))))))) (PUT1-LST (QUOTE *1*MEM-ASR-EFFECT) (QUOTE (SEXPR (LAMBDA (*3*OPD *3*CCR) (*1*ASR-EFFECT (*1*W) *3*OPD (QUOTE 1) *3*CCR))))) (PUT1-LST (QUOTE *1*MEM-ASR-INS) (QUOTE (SEXPR (LAMBDA (*3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X))) (COND ((NOT (EQ (*1*S&R-ADDR-MODEP *3*INS) *1*F)) (COND ((NOT (EQ (*1*MC-HALTP (SETQ *2*TEMP3 (*1*CAR (SETQ *2*TEMP2 (*1*MC-INSTATE (SETQ *2*TEMP1 (*1*W)) *3*INS *3*S))))) *1*F)) *2*TEMP3) (T (*1*MAPPING *2*TEMP1 (*1*MEM-ASR-EFFECT (*1*OPERAND *2*TEMP1 (*1*CDR *2*TEMP2) *3*S) (*1*MC-CCR *3*S)) *2*TEMP2)))) (T (*1*HALT (*1*MODE-SIGNAL) *3*S)))))))) (PUT1-LST (QUOTE *1*ROXL) (QUOTE (SEXPR (LAMBDA (*3*LEN *3*OPD *3*CNT *3*X) (*1*BCDR (*1*ROL (*1*ADD1 *3*LEN) (*1*PLUS *3*X (*1*TIMES (QUOTE 2) *3*OPD)) *3*CNT)))))) (PUT1-LST (QUOTE *1*ROXR) (QUOTE (SEXPR (LAMBDA (*3*LEN *3*OPD *3*CNT *3*X) (*1*HEAD (*1*ROR (*1*ADD1 *3*LEN) (*1*PLUS *3*OPD (*1*TIMES *3*X (*1*EXP (QUOTE 2) *3*LEN))) *3*CNT) *3*LEN))))) (PUT1-LST (QUOTE *1*ROXL-C) (QUOTE (SEXPR (LAMBDA (*3*LEN *3*OPD *3*CNT *3*X) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((EQUAL (SETQ *2*TEMP1 (*1*REMAINDER *3*CNT (*1*ADD1 *3*LEN))) (QUOTE 0)) (*1*FIX-BIT *3*X)) (T (*1*BITN *3*OPD (*1*DIFFERENCE *3*LEN *2*TEMP1))))))))) (PUT1-LST (QUOTE *1*ROXL-Z) (QUOTE (SEXPR (LAMBDA (*3*LEN *3*OPD *3*CNT *3*X) (COND ((EQUAL (*1*ROXL *3*LEN *3*OPD *3*CNT *3*X) (QUOTE 0)) (*1*B1)) (T (*1*B0))))))) (PUT1-LST (QUOTE *1*ROXL-N) (QUOTE (SEXPR (LAMBDA (*3*LEN *3*OPD *3*CNT *3*X) (*1*BITN (*1*ROXL *3*LEN *3*OPD *3*CNT *3*X) (*1*SUB1 *3*LEN)))))) (PUT1-LST (QUOTE *1*ROXL-CVZNX) (QUOTE (SEXPR (LAMBDA (*3*LEN *3*OPD *3*CNT *3*X) (LET ((*2*TEMP1 (QUOTE *1*X))) (*1*CVZNX (SETQ *2*TEMP1 (*1*ROXL-C *3*LEN *3*OPD *3*CNT *3*X)) (*1*B0) (*1*ROXL-Z *3*LEN *3*OPD *3*CNT *3*X) (*1*ROXL-N *3*LEN *3*OPD *3*CNT *3*X) *2*TEMP1)))))) (PUT1-LST (QUOTE *1*ROXL-EFFECT) (QUOTE (SEXPR (LAMBDA (*3*LEN *3*OPD *3*CNT *3*CCR) (LET ((*2*TEMP1 (QUOTE *1*X))) (CONS (*1*ROXL *3*LEN *3*OPD *3*CNT (SETQ *2*TEMP1 (*1*CCR-X *3*CCR))) (*1*ROXL-CVZNX *3*LEN *3*OPD *3*CNT *2*TEMP1))))))) (PUT1-LST (QUOTE *1*REGISTER-ROXL-INS) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X))) (*1*D-MAPPING *3*OPLEN (*1*ROXL-EFFECT *3*OPLEN (*1*READ-DN *3*OPLEN (SETQ *2*TEMP1 (*1*S_RN *3*INS)) *3*S) (*1*SR-CNT *3*INS *3*S) (*1*MC-CCR *3*S)) *2*TEMP1 *3*S)))))) (PUT1-LST (QUOTE *1*ROXR-C) (QUOTE (SEXPR (LAMBDA (*3*LEN *3*OPD *3*CNT *3*X) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((EQUAL (SETQ *2*TEMP1 (*1*REMAINDER *3*CNT (*1*ADD1 *3*LEN))) (QUOTE 0)) (*1*FIX-BIT *3*X)) (T (*1*BITN *3*OPD (*1*SUB1 *2*TEMP1))))))))) (PUT1-LST (QUOTE *1*ROXR-Z) (QUOTE (SEXPR (LAMBDA (*3*LEN *3*OPD *3*CNT *3*X) (COND ((EQUAL (*1*ROXR *3*LEN *3*OPD *3*CNT *3*X) (QUOTE 0)) (*1*B1)) (T (*1*B0))))))) (PUT1-LST (QUOTE *1*ROXR-N) (QUOTE (SEXPR (LAMBDA (*3*LEN *3*OPD *3*CNT *3*X) (*1*BITN (*1*ROXR *3*LEN *3*OPD *3*CNT *3*X) (*1*SUB1 *3*LEN)))))) (PUT1-LST (QUOTE *1*ROXR-CVZNX) (QUOTE (SEXPR (LAMBDA (*3*LEN *3*OPD *3*CNT *3*X) (LET ((*2*TEMP1 (QUOTE *1*X))) (*1*CVZNX (SETQ *2*TEMP1 (*1*ROXR-C *3*LEN *3*OPD *3*CNT *3*X)) (*1*B0) (*1*ROXR-Z *3*LEN *3*OPD *3*CNT *3*X) (*1*ROXR-N *3*LEN *3*OPD *3*CNT *3*X) *2*TEMP1)))))) (PUT1-LST (QUOTE *1*ROXR-EFFECT) (QUOTE (SEXPR (LAMBDA (*3*LEN *3*OPD *3*CNT *3*CCR) (LET ((*2*TEMP1 (QUOTE *1*X))) (CONS (*1*ROXR *3*LEN *3*OPD *3*CNT (SETQ *2*TEMP1 (*1*CCR-X *3*CCR))) (*1*ROXR-CVZNX *3*LEN *3*OPD *3*CNT *2*TEMP1))))))) (PUT1-LST (QUOTE *1*REGISTER-ROXR-INS) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X))) (*1*D-MAPPING *3*OPLEN (*1*ROXR-EFFECT *3*OPLEN (*1*READ-DN *3*OPLEN (SETQ *2*TEMP1 (*1*S_RN *3*INS)) *3*S) (*1*SR-CNT *3*INS *3*S) (*1*MC-CCR *3*S)) *2*TEMP1 *3*S)))))) (PUT1-LST (QUOTE *1*MEM-ROXL-EFFECT) (QUOTE (SEXPR (LAMBDA (*3*OPD *3*CCR) (*1*ROXL-EFFECT (*1*W) *3*OPD (QUOTE 1) *3*CCR))))) (PUT1-LST (QUOTE *1*MEM-ROXL-INS) (QUOTE (SEXPR (LAMBDA (*3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X))) (COND ((NOT (EQ (*1*S&R-ADDR-MODEP *3*INS) *1*F)) (COND ((NOT (EQ (*1*MC-HALTP (SETQ *2*TEMP3 (*1*CAR (SETQ *2*TEMP2 (*1*MC-INSTATE (SETQ *2*TEMP1 (*1*W)) *3*INS *3*S))))) *1*F)) *2*TEMP3) (T (*1*MAPPING *2*TEMP1 (*1*MEM-ROXL-EFFECT (*1*OPERAND *2*TEMP1 (*1*CDR *2*TEMP2) *3*S) (*1*MC-CCR *3*S)) *2*TEMP2)))) (T (*1*HALT (*1*MODE-SIGNAL) *3*S)))))))) (PUT1-LST (QUOTE *1*MEM-ROXR-EFFECT) (QUOTE (SEXPR (LAMBDA (*3*OPD *3*CCR) (*1*ROXR-EFFECT (*1*W) *3*OPD (QUOTE 1) *3*CCR))))) (PUT1-LST (QUOTE *1*MEM-ROXR-INS) (QUOTE (SEXPR (LAMBDA (*3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X))) (COND ((NOT (EQ (*1*S&R-ADDR-MODEP *3*INS) *1*F)) (COND ((NOT (EQ (*1*MC-HALTP (SETQ *2*TEMP3 (*1*CAR (SETQ *2*TEMP2 (*1*MC-INSTATE (SETQ *2*TEMP1 (*1*W)) *3*INS *3*S))))) *1*F)) *2*TEMP3) (T (*1*MAPPING *2*TEMP1 (*1*MEM-ROXR-EFFECT (*1*OPERAND *2*TEMP1 (*1*CDR *2*TEMP2) *3*S) (*1*MC-CCR *3*S)) *2*TEMP2)))) (T (*1*HALT (*1*MODE-SIGNAL) *3*S)))))))) (PUT1-LST (QUOTE *1*MEMORY-SHIFT-ROTATE) (QUOTE (SEXPR (LAMBDA (*3*INS *3*S) (LET NIL (COND ((NOT (EQ (*1*B0P (*1*BITN *3*INS (QUOTE 10))) *1*F)) (COND ((NOT (EQ (*1*B0P (*1*BITN *3*INS (QUOTE 9))) *1*F)) (COND ((NOT (EQ (*1*B0P (*1*BITN *3*INS (QUOTE 8))) *1*F)) (*1*MEM-ASR-INS *3*INS *3*S)) (T (*1*MEM-ASL-INS *3*INS *3*S)))) ((NOT (EQ (*1*B0P (*1*BITN *3*INS (QUOTE 8))) *1*F)) (*1*MEM-LSR-INS *3*INS *3*S)) (T (*1*MEM-LSL-INS *3*INS *3*S)))) ((NOT (EQ (*1*B0P (*1*BITN *3*INS (QUOTE 9))) *1*F)) (COND ((NOT (EQ (*1*B0P (*1*BITN *3*INS (QUOTE 8))) *1*F)) (*1*MEM-ROXR-INS *3*INS *3*S)) (T (*1*MEM-ROXL-INS *3*INS *3*S)))) ((NOT (EQ (*1*B0P (*1*BITN *3*INS (QUOTE 8))) *1*F)) (*1*MEM-ROR-INS *3*INS *3*S)) (T (*1*MEM-ROL-INS *3*INS *3*S)))))))) (PUT1-LST (QUOTE *1*REGISTER-SHIFT-ROTATE) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*INS *3*S) (LET NIL (COND ((NOT (EQ (*1*B0P (*1*BITN *3*INS (QUOTE 4))) *1*F)) (COND ((NOT (EQ (*1*B0P (*1*BITN *3*INS (QUOTE 3))) *1*F)) (COND ((NOT (EQ (*1*B0P (*1*BITN *3*INS (QUOTE 8))) *1*F)) (*1*REGISTER-ASR-INS *3*OPLEN *3*INS *3*S)) (T (*1*REGISTER-ASL-INS *3*OPLEN *3*INS *3*S)))) ((NOT (EQ (*1*B0P (*1*BITN *3*INS (QUOTE 8))) *1*F)) (*1*REGISTER-LSR-INS *3*OPLEN *3*INS *3*S)) (T (*1*REGISTER-LSL-INS *3*OPLEN *3*INS *3*S)))) ((NOT (EQ (*1*B0P (*1*BITN *3*INS (QUOTE 3))) *1*F)) (COND ((NOT (EQ (*1*B0P (*1*BITN *3*INS (QUOTE 8))) *1*F)) (*1*REGISTER-ROXR-INS *3*OPLEN *3*INS *3*S)) (T (*1*REGISTER-ROXL-INS *3*OPLEN *3*INS *3*S)))) ((NOT (EQ (*1*B0P (*1*BITN *3*INS (QUOTE 8))) *1*F)) (*1*REGISTER-ROR-INS *3*OPLEN *3*INS *3*S)) (T (*1*REGISTER-ROL-INS *3*OPLEN *3*INS *3*S)))))))) (PUT1-LST (QUOTE *1*BF-SUBGROUP) (QUOTE (SEXPR (LAMBDA (*3*INS *3*S) (PROGN *3*INS (*1*HALT (QUOTE I-WILL-DO-IT-LATER) *3*S)))))) (PUT1-LST (QUOTE *1*S&R-GROUP) (QUOTE (SEXPR (LAMBDA (*3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((EQUAL (SETQ *2*TEMP1 (*1*OP-LEN *3*INS)) (*1*Q)) (COND ((NOT (EQ (*1*B0P (*1*BITN *3*INS (QUOTE 11))) *1*F)) (*1*MEMORY-SHIFT-ROTATE *3*INS *3*S)) (T (*1*BF-SUBGROUP *3*INS *3*S)))) (T (*1*REGISTER-SHIFT-ROTATE *2*TEMP1 *3*INS *3*S)))))))) (PUT1-LST (QUOTE *1*MOVE-ADDR-MODEP) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*INS) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X))) (*1*AND (*1*ADDR-MODEP (SETQ *2*TEMP3 (*1*S_MODE *3*INS)) (*1*S_RN *3*INS)) (*1*AND (*1*DATA-ADDR-MODEP (SETQ *2*TEMP2 (*1*D_MODE *3*INS)) (SETQ *2*TEMP1 (*1*D_RN *3*INS))) (*1*AND (*1*ALTERABLE-ADDR-MODEP *2*TEMP2 *2*TEMP1) (*1*NOT (*1*BYTE-AN-DIRECT-MODEP *3*OPLEN *2*TEMP3)))))))))) (PUT1-LST (QUOTE *1*MOVE-Z) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*SOPD) (COND ((EQUAL (*1*HEAD *3*SOPD *3*OPLEN) (QUOTE 0)) (*1*B1)) (T (*1*B0))))))) (PUT1-LST (QUOTE *1*MOVE-N) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*SOPD) (*1*MBIT *3*SOPD *3*OPLEN))))) (PUT1-LST (QUOTE *1*MOVE-CVZNX) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*SOPD *3*CCR) (LET ((*2*TEMP1 (QUOTE *1*X))) (*1*CVZNX (SETQ *2*TEMP1 (*1*B0)) *2*TEMP1 (*1*MOVE-Z *3*OPLEN *3*SOPD) (*1*MOVE-N *3*OPLEN *3*SOPD) (*1*CCR-X *3*CCR))))))) (PUT1-LST (QUOTE *1*MOVE-EFFECT) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*SOPD *3*CCR) (CONS *3*SOPD (*1*MOVE-CVZNX *3*OPLEN *3*SOPD *3*CCR)))))) (PUT1-LST (QUOTE *1*MOVE-MAPPING) (QUOTE (SEXPR (LAMBDA (*3*SOPD *3*OPLEN *3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (COND ((NOT (EQ (*1*MC-HALTP (SETQ *2*TEMP2 (*1*CAR (SETQ *2*TEMP1 (*1*EFFEC-ADDR *3*OPLEN (*1*D_MODE *3*INS) (*1*D_RN *3*INS) *3*S))))) *1*F)) *2*TEMP2) (T (*1*MAPPING *3*OPLEN (*1*MOVE-EFFECT *3*OPLEN *3*SOPD (*1*MC-CCR *3*S)) *2*TEMP1)))))))) (PUT1-LST (QUOTE *1*MOVE-INS) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (COND ((NOT (EQ (*1*MOVE-ADDR-MODEP *3*OPLEN *3*INS) *1*F)) (COND ((NOT (EQ (*1*MC-HALTP (SETQ *2*TEMP2 (*1*CAR (SETQ *2*TEMP1 (*1*MC-INSTATE *3*OPLEN *3*INS *3*S))))) *1*F)) *2*TEMP2) (T (*1*MOVE-MAPPING (*1*OPERAND *3*OPLEN (*1*CDR *2*TEMP1) *3*S) *3*OPLEN *3*INS *2*TEMP2)))) (T (*1*HALT (*1*MODE-SIGNAL) *3*S)))))))) (PUT1-LST (QUOTE *1*MOVEA-ADDR-MODEP) (QUOTE (SEXPR (LAMBDA (*3*INS) (*1*ADDR-MODEP (*1*S_MODE *3*INS) (*1*S_RN *3*INS)))))) (PUT1-LST (QUOTE *1*MOVEA-INS) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X))) (COND ((NOT (EQ (*1*MOVEA-ADDR-MODEP *3*INS) *1*F)) (COND ((NOT (EQ (*1*MC-HALTP (SETQ *2*TEMP3 (*1*CAR (SETQ *2*TEMP2 (*1*MC-INSTATE *3*OPLEN *3*INS *3*S))))) *1*F)) *2*TEMP3) (T (*1*WRITE-AN (SETQ *2*TEMP1 (*1*L)) (*1*EXT *3*OPLEN (*1*OPERAND *3*OPLEN (*1*CDR *2*TEMP2) *3*S) *2*TEMP1) (*1*D_RN *3*INS) *2*TEMP3)))) (T (*1*HALT (*1*MODE-SIGNAL) *3*S)))))))) (PUT1-LST (QUOTE *1*MOVE-GROUP) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*INS *3*S) (COND ((EQUAL (*1*D_MODE *3*INS) (QUOTE 1)) (*1*MOVEA-INS *3*OPLEN *3*INS *3*S)) (T (*1*MOVE-INS *3*OPLEN *3*INS *3*S))))))) (PUT1-LST (QUOTE *1*LEA-ADDR-MODEP) (QUOTE (SEXPR (LAMBDA (*3*INS) (*1*CONTROL-ADDR-MODEP (*1*S_MODE *3*INS) (*1*S_RN *3*INS)))))) (PUT1-LST (QUOTE *1*LEA-INS) (QUOTE (SEXPR (LAMBDA (*3*SMODE *3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X))) (COND ((NOT (EQ (*1*LEA-ADDR-MODEP *3*INS) *1*F)) (COND ((NOT (EQ (*1*MC-HALTP (SETQ *2*TEMP3 (*1*CAR (SETQ *2*TEMP2 (*1*EFFEC-ADDR (SETQ *2*TEMP1 (*1*L)) *3*SMODE (*1*S_RN *3*INS) *3*S))))) *1*F)) *2*TEMP3) (T (*1*WRITE-AN *2*TEMP1 (*1*CDR (*1*CDR *2*TEMP2)) (*1*D_RN *3*INS) *2*TEMP3)))) (T (*1*HALT (*1*MODE-SIGNAL) *3*S)))))))) (PUT1-LST (QUOTE *1*EXT-Z) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*OPD *3*SIZE) (COND ((EQUAL (*1*EXT *3*OPLEN *3*OPD *3*SIZE) (QUOTE 0)) (*1*B1)) (T (*1*B0))))))) (PUT1-LST (QUOTE *1*EXT-N) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*OPD *3*SIZE) (*1*MBIT (*1*EXT *3*OPLEN *3*OPD *3*SIZE) *3*SIZE))))) (PUT1-LST (QUOTE *1*EXT-CVZNX) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*OPD *3*SIZE *3*CCR) (LET ((*2*TEMP1 (QUOTE *1*X))) (*1*CVZNX (SETQ *2*TEMP1 (*1*B0)) *2*TEMP1 (*1*EXT-Z *3*OPLEN *3*OPD *3*SIZE) (*1*EXT-N *3*OPLEN *3*OPD *3*SIZE) (*1*CCR-X *3*CCR))))))) (PUT1-LST (QUOTE *1*EXT-EFFECT) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*OPD *3*SIZE *3*CCR) (CONS (*1*EXT *3*OPLEN *3*OPD *3*SIZE) (*1*EXT-CVZNX *3*OPLEN *3*OPD *3*SIZE *3*CCR)))))) (PUT1-LST (QUOTE *1*EXTB-INS) (QUOTE (SEXPR (LAMBDA (*3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X))) (*1*D-MAPPING (SETQ *2*TEMP3 (*1*L)) (*1*EXT-EFFECT (SETQ *2*TEMP2 (*1*B)) (*1*READ-DN *2*TEMP2 (SETQ *2*TEMP1 (*1*S_RN *3*INS)) *3*S) *2*TEMP3 (*1*MC-CCR *3*S)) *2*TEMP1 *3*S)))))) (PUT1-LST (QUOTE *1*LEA-SUBGROUP) (QUOTE (SEXPR (LAMBDA (*3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((EQUAL (SETQ *2*TEMP1 (*1*S_MODE *3*INS)) (QUOTE 0)) (COND ((EQUAL (*1*BITS *3*INS (QUOTE 9) (QUOTE 11)) (QUOTE 4)) (*1*EXTB-INS *3*INS *3*S)) (T (*1*HALT (*1*RESERVED-SIGNAL) *3*S)))) (T (*1*LEA-INS *2*TEMP1 *3*INS *3*S)))))))) (PUT1-LST (QUOTE *1*CLR-ADDR-MODEP) (QUOTE (SEXPR (LAMBDA (*3*INS) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (*1*AND (*1*DATA-ADDR-MODEP (SETQ *2*TEMP2 (*1*S_MODE *3*INS)) (SETQ *2*TEMP1 (*1*S_RN *3*INS))) (*1*ALTERABLE-ADDR-MODEP *2*TEMP2 *2*TEMP1))))))) (PUT1-LST (QUOTE *1*CLR-CVZNX) (QUOTE (SEXPR (LAMBDA (*3*CCR) (LET ((*2*TEMP1 (QUOTE *1*X))) (*1*CVZNX (SETQ *2*TEMP1 (*1*B0)) *2*TEMP1 (*1*B1) *2*TEMP1 (*1*CCR-X *3*CCR))))))) (PUT1-LST (QUOTE *1*CLR-EFFECT) (QUOTE (SEXPR (LAMBDA (*3*CCR) (CONS (QUOTE 0) (*1*CLR-CVZNX *3*CCR)))))) (PUT1-LST (QUOTE *1*CLR-INS) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (COND ((NOT (EQ (*1*CLR-ADDR-MODEP *3*INS) *1*F)) (COND ((NOT (EQ (*1*MC-HALTP (SETQ *2*TEMP2 (*1*CAR (SETQ *2*TEMP1 (*1*EFFEC-ADDR *3*OPLEN (*1*S_MODE *3*INS) (*1*S_RN *3*INS) *3*S))))) *1*F)) *2*TEMP2) (T (*1*MAPPING *3*OPLEN (*1*CLR-EFFECT (*1*MC-CCR *3*S)) *2*TEMP1)))) (T (*1*HALT (*1*MODE-SIGNAL) *3*S)))))))) (PUT1-LST (QUOTE *1*MOVE-FROM-CCR-ADDR-MODEP) (QUOTE (SEXPR (LAMBDA (*3*INS) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (*1*AND (*1*DATA-ADDR-MODEP (SETQ *2*TEMP2 (*1*S_MODE *3*INS)) (SETQ *2*TEMP1 (*1*S_RN *3*INS))) (*1*ALTERABLE-ADDR-MODEP *2*TEMP2 *2*TEMP1))))))) (PUT1-LST (QUOTE *1*MOVE-FROM-CCR-EFFECT) (QUOTE (SEXPR (LAMBDA (*3*CCR) (CONS *3*CCR *3*CCR))))) (PUT1-LST (QUOTE *1*MOVE-FROM-CCR-INS) (QUOTE (SEXPR (LAMBDA (*3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X))) (COND ((NOT (EQ (*1*MOVE-FROM-CCR-ADDR-MODEP *3*INS) *1*F)) (COND ((NOT (EQ (*1*MC-HALTP (SETQ *2*TEMP3 (*1*CAR (SETQ *2*TEMP2 (*1*MC-INSTATE (SETQ *2*TEMP1 (*1*W)) *3*INS *3*S))))) *1*F)) *2*TEMP3) (T (*1*MAPPING *2*TEMP1 (*1*MOVE-FROM-CCR-EFFECT (*1*MC-CCR *3*S)) *2*TEMP2)))) (T (*1*HALT (*1*MODE-SIGNAL) *3*S)))))))) (PUT1-LST (QUOTE *1*CLR-SUBGROUP) (QUOTE (SEXPR (LAMBDA (*3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((EQUAL (SETQ *2*TEMP1 (*1*OP-LEN *3*INS)) (*1*Q)) (*1*MOVE-FROM-CCR-INS *3*INS *3*S)) (T (*1*CLR-INS *2*TEMP1 *3*INS *3*S)))))))) (PUT1-LST (QUOTE *1*NEGX-ADDR-MODEP) (QUOTE (SEXPR (LAMBDA (*3*INS) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (*1*AND (*1*DATA-ADDR-MODEP (SETQ *2*TEMP2 (*1*S_MODE *3*INS)) (SETQ *2*TEMP1 (*1*S_RN *3*INS))) (*1*ALTERABLE-ADDR-MODEP *2*TEMP2 *2*TEMP1))))))) (PUT1-LST (QUOTE *1*NEGX-INS) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (COND ((NOT (EQ (*1*NEGX-ADDR-MODEP *3*INS) *1*F)) (COND ((NOT (EQ (*1*MC-HALTP (SETQ *2*TEMP2 (*1*CAR (SETQ *2*TEMP1 (*1*MC-INSTATE *3*OPLEN *3*INS *3*S))))) *1*F)) *2*TEMP2) (T (*1*MAPPING *3*OPLEN (*1*SUBX-EFFECT *3*OPLEN (*1*OPERAND *3*OPLEN (*1*CDR *2*TEMP1) *3*S) (QUOTE 0) (*1*MC-CCR *3*S)) *2*TEMP1)))) (T (*1*HALT (*1*MODE-SIGNAL) *3*S)))))))) (PUT1-LST (QUOTE *1*NEGX-SUBGROUP) (QUOTE (SEXPR (LAMBDA (*3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((EQUAL (SETQ *2*TEMP1 (*1*OP-LEN *3*INS)) (*1*Q)) (*1*HALT (QUOTE MOVE-FROM-SR-PRIVILEGED) *3*S)) (T (*1*NEGX-INS *2*TEMP1 *3*INS *3*S)))))))) (PUT1-LST (QUOTE *1*NEG-ADDR-MODEP) (QUOTE (SEXPR (LAMBDA (*3*INS) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (*1*AND (*1*DATA-ADDR-MODEP (SETQ *2*TEMP2 (*1*S_MODE *3*INS)) (SETQ *2*TEMP1 (*1*S_RN *3*INS))) (*1*ALTERABLE-ADDR-MODEP *2*TEMP2 *2*TEMP1))))))) (PUT1-LST (QUOTE *1*NEG-INS) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (COND ((NOT (EQ (*1*NEG-ADDR-MODEP *3*INS) *1*F)) (COND ((NOT (EQ (*1*MC-HALTP (SETQ *2*TEMP2 (*1*CAR (SETQ *2*TEMP1 (*1*MC-INSTATE *3*OPLEN *3*INS *3*S))))) *1*F)) *2*TEMP2) (T (*1*MAPPING *3*OPLEN (*1*SUB-EFFECT *3*OPLEN (*1*OPERAND *3*OPLEN (*1*CDR *2*TEMP1) *3*S) (QUOTE 0)) *2*TEMP1)))) (T (*1*HALT (*1*MODE-SIGNAL) *3*S)))))))) (PUT1-LST (QUOTE *1*MOVE-TO-CCR-ADDR-MODEP) (QUOTE (SEXPR (LAMBDA (*3*INS) (*1*DATA-ADDR-MODEP (*1*S_MODE *3*INS) (*1*S_RN *3*INS)))))) (PUT1-LST (QUOTE *1*MOVE-TO-CCR-INS) (QUOTE (SEXPR (LAMBDA (*3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X))) (COND ((NOT (EQ (*1*MOVE-TO-CCR-ADDR-MODEP *3*INS) *1*F)) (COND ((NOT (EQ (*1*MC-HALTP (SETQ *2*TEMP3 (*1*CAR (SETQ *2*TEMP2 (*1*MC-INSTATE (SETQ *2*TEMP1 (*1*W)) *3*INS *3*S))))) *1*F)) *2*TEMP3) (T (*1*UPDATE-CCR (*1*HEAD (*1*OPERAND *2*TEMP1 (*1*CDR *2*TEMP2) *3*S) (*1*B)) *2*TEMP3)))) (T (*1*HALT (*1*MODE-SIGNAL) *3*S)))))))) (PUT1-LST (QUOTE *1*NEG-SUBGROUP) (QUOTE (SEXPR (LAMBDA (*3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((EQUAL (SETQ *2*TEMP1 (*1*OP-LEN *3*INS)) (*1*Q)) (*1*MOVE-TO-CCR-INS *3*INS *3*S)) (T (*1*NEG-INS *2*TEMP1 *3*INS *3*S)))))))) (PUT1-LST (QUOTE *1*PEA-ADDR-MODEP) (QUOTE (SEXPR (LAMBDA (*3*INS) (*1*CONTROL-ADDR-MODEP (*1*S_MODE *3*INS) (*1*S_RN *3*INS)))))) (PUT1-LST (QUOTE *1*PEA-INS) (QUOTE (SEXPR (LAMBDA (*3*SMODE *3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (COND ((NOT (EQ (*1*PEA-ADDR-MODEP *3*INS) *1*F)) (COND ((NOT (EQ (*1*MC-HALTP (SETQ *2*TEMP2 (*1*CAR (SETQ *2*TEMP1 (*1*EFFEC-ADDR (*1*L) *3*SMODE (*1*S_RN *3*INS) *3*S))))) *1*F)) *2*TEMP2) (T (*1*PUSH-SP (*1*LSZ) (*1*CDR (*1*CDR *2*TEMP1)) *2*TEMP2)))) (T (*1*HALT (*1*MODE-SIGNAL) *3*S)))))))) (PUT1-LST (QUOTE *1*SWAP-Z) (QUOTE (SEXPR (LAMBDA (*3*OPD) (COND ((EQUAL (*1*FIX *3*OPD) (QUOTE 0)) (*1*B1)) (T (*1*B0))))))) (PUT1-LST (QUOTE *1*SWAP-N) (QUOTE (SEXPR (LAMBDA (*3*OPD) (*1*BITN *3*OPD (QUOTE 15)))))) (PUT1-LST (QUOTE *1*SWAP-CVZNX) (QUOTE (SEXPR (LAMBDA (*3*OPD *3*CCR) (LET ((*2*TEMP1 (QUOTE *1*X))) (*1*CVZNX (SETQ *2*TEMP1 (*1*B0)) *2*TEMP1 (*1*SWAP-Z *3*OPD) (*1*SWAP-N *3*OPD) (*1*CCR-X *3*CCR))))))) (PUT1-LST (QUOTE *1*SWAP-EFFECT) (QUOTE (SEXPR (LAMBDA (*3*OPD *3*CCR) (LET ((*2*TEMP1 (QUOTE *1*X))) (CONS (*1*APP (SETQ *2*TEMP1 (*1*W)) (*1*TAIL *3*OPD *2*TEMP1) (*1*HEAD *3*OPD *2*TEMP1)) (*1*SWAP-CVZNX *3*OPD *3*CCR))))))) (PUT1-LST (QUOTE *1*SWAP-INS) (QUOTE (SEXPR (LAMBDA (*3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (*1*D-MAPPING (SETQ *2*TEMP2 (*1*L)) (*1*SWAP-EFFECT (*1*READ-DN *2*TEMP2 (SETQ *2*TEMP1 (*1*S_RN *3*INS)) *3*S) (*1*MC-CCR *3*S)) *2*TEMP1 *3*S)))))) (PUT1-LST (QUOTE *1*PEA-SUBGROUP) (QUOTE (SEXPR (LAMBDA (*3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*LESSP (SETQ *2*TEMP1 (*1*S_MODE *3*INS)) (QUOTE 2)) *1*F)) (COND ((EQUAL *2*TEMP1 (QUOTE 0)) (*1*SWAP-INS *3*INS *3*S)) (T (*1*HALT (QUOTE BKPT-UNSPECIFIED) *3*S)))) (T (*1*PEA-INS *2*TEMP1 *3*INS *3*S)))))))) (PUT1-LST (QUOTE *1*EXT-INS) (QUOTE (SEXPR (LAMBDA (*3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X)) (*2*TEMP4 (QUOTE *1*X))) (COND ((NOT (EQ (*1*B0P (*1*BITN *3*INS (QUOTE 6))) *1*F)) (*1*D-MAPPING (SETQ *2*TEMP4 (*1*W)) (*1*EXT-EFFECT (SETQ *2*TEMP3 (*1*B)) (*1*READ-DN *2*TEMP3 (SETQ *2*TEMP2 (*1*S_RN *3*INS)) *3*S) *2*TEMP4 (*1*MC-CCR *3*S)) *2*TEMP2 *3*S)) (T (*1*D-MAPPING (SETQ *2*TEMP1 (*1*L)) (*1*EXT-EFFECT (SETQ *2*TEMP4 (*1*W)) (*1*READ-DN *2*TEMP4 (SETQ *2*TEMP2 (*1*S_RN *3*INS)) *3*S) *2*TEMP1 (*1*MC-CCR *3*S)) *2*TEMP2 *3*S)))))))) (PUT1-LST (QUOTE *1*READM-MEM) (QUOTE (SEXPR (LAMBDA (*3*OPSZ *3*ADDR *3*MEM *3*N) (COND ((NOT (EQ (*1*ZEROP *3*N) *1*F)) (QUOTE NIL)) (T (CONS (*1*READ-MEM *3*ADDR *3*MEM *3*OPSZ) (*1*READM-MEM *3*OPSZ (*1*ADD (*1*L) *3*ADDR *3*OPSZ) *3*MEM (*1*SUB1 *3*N))))))))) (PUT1-LST (QUOTE *1*WRITEM-MEM) (QUOTE (SEXPR (LAMBDA (*3*OPSZ *3*VLST *3*ADDR *3*MEM) (COND ((AND (CONSP *3*VLST) (NOT (EQ (CAR *3*VLST) (QUOTE *1*QUOTE)))) (*1*WRITEM-MEM *3*OPSZ (CDR *3*VLST) (*1*ADD (*1*L) *3*ADDR *3*OPSZ) (*1*WRITE-MEM (CAR *3*VLST) *3*ADDR *3*MEM *3*OPSZ))) (T *3*MEM)))))) (PUT1-LST (QUOTE *1*READM-RN) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*RNLST *3*RFILE) (COND ((AND (CONSP *3*RNLST) (NOT (EQ (CAR *3*RNLST) (QUOTE *1*QUOTE)))) (CONS (*1*READ-RN *3*OPLEN (CAR *3*RNLST) *3*RFILE) (*1*READM-RN *3*OPLEN (CDR *3*RNLST) *3*RFILE))) (T (QUOTE NIL))))))) (PUT1-LST (QUOTE *1*WRITEM-RN) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*VLST *3*RNLST *3*RFILE) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((AND (CONSP *3*RNLST) (NOT (EQ (CAR *3*RNLST) (QUOTE *1*QUOTE)))) (*1*WRITEM-RN *3*OPLEN (*1*CDR *3*VLST) (CDR *3*RNLST) (*1*WRITE-RN (SETQ *2*TEMP1 (*1*L)) (*1*EXT *3*OPLEN (*1*CAR *3*VLST) *2*TEMP1) (CAR *3*RNLST) *3*RFILE))) (T *3*RFILE))))))) (PUT1-LST (QUOTE *1*MOVEM-RNLST) (QUOTE (SEXPR (LAMBDA (*3*MASK *3*I) (LET NIL (COND ((NOT (EQ (*1*ZEROP *3*MASK) *1*F)) (QUOTE NIL)) ((NOT (EQ (*1*B0P (*1*BCAR *3*MASK)) *1*F)) (*1*MOVEM-RNLST (*1*BCDR *3*MASK) (*1*ADD1 *3*I))) (T (CONS *3*I (*1*MOVEM-RNLST (*1*BCDR *3*MASK) (*1*ADD1 *3*I)))))))))) (PUT1-LST (QUOTE *1*MOVEM-LEN) (QUOTE (SEXPR (LAMBDA (*3*MASK) (LET NIL (COND ((NOT (EQ (*1*ZEROP *3*MASK) *1*F)) (QUOTE 0)) ((NOT (EQ (*1*B0P (*1*BCAR *3*MASK)) *1*F)) (*1*MOVEM-LEN (*1*BCDR *3*MASK))) (T (*1*ADD1 (*1*MOVEM-LEN (*1*BCDR *3*MASK)))))))))) (PUT1-LST (QUOTE *1*WRITEMP) (QUOTE (SEXPR (LAMBDA (*3*MASK *3*OPLEN *3*ADDR *3*MEM) (*1*WRITE-MEMP *3*ADDR *3*MEM (*1*TIMES (*1*OP-SZ *3*OPLEN) (*1*MOVEM-LEN *3*MASK))))))) (PUT1-LST (QUOTE *1*MOVEM-PRE-RNLST) (QUOTE (SEXPR (LAMBDA (*3*MASK *3*I *3*LST) (LET NIL (COND ((NOT (EQ (*1*ZEROP *3*MASK) *1*F)) *3*LST) ((NOT (EQ (*1*B0P (*1*BCAR *3*MASK)) *1*F)) (*1*MOVEM-PRE-RNLST (*1*BCDR *3*MASK) (*1*SUB1 *3*I) *3*LST)) (T (*1*MOVEM-PRE-RNLST (*1*BCDR *3*MASK) (*1*SUB1 *3*I) (CONS *3*I *3*LST))))))))) (PUT1-LST (QUOTE *1*MOVEM-PREDEC) (QUOTE (SEXPR (LAMBDA (*3*MASK *3*OPLEN *3*RN *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (CONS (*1*WRITE-AN (SETQ *2*TEMP2 (*1*L)) (*1*PRE-EFFECT *3*OPLEN *3*RN (SETQ *2*TEMP1 (*1*READ-AN *2*TEMP2 *3*RN *3*S))) *3*RN *3*S) (CONS (QUOTE M) (*1*SUB *2*TEMP2 (*1*TIMES (*1*OP-SZ *3*OPLEN) (*1*MOVEM-LEN *3*MASK)) *2*TEMP1)))))))) (PUT1-LST (QUOTE *1*MOVEM-RN-EA-ADDR-MODEP) (QUOTE (SEXPR (LAMBDA (*3*INS) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (*1*AND (*1*ALTERABLE-ADDR-MODEP (SETQ *2*TEMP2 (*1*S_MODE *3*INS)) (SETQ *2*TEMP1 (*1*S_RN *3*INS))) (*1*CONTROL-ADDR-MODEP *2*TEMP2 *2*TEMP1))))))) (PUT1-LST (QUOTE *1*MOVEM-RN-EA-INS) (QUOTE (SEXPR (LAMBDA (*3*MASK *3*OPLEN *3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X)) (*2*TEMP4 (QUOTE *1*X)) (*2*TEMP5 (QUOTE *1*X)) (*2*TEMP6 (QUOTE *1*X)) (*2*TEMP7 (QUOTE *1*X)) (*2*TEMP8 (QUOTE *1*X)) (*2*TEMP9 (QUOTE *1*X))) (COND ((NOT (EQ (*1*PREDEC-MODEP (SETQ *2*TEMP9 (*1*S_MODE *3*INS))) *1*F)) (COND ((NOT (EQ (*1*WRITEMP *3*MASK *3*OPLEN (SETQ *2*TEMP8 (*1*CDR (*1*CDR (SETQ *2*TEMP7 (*1*MOVEM-PREDEC *3*MASK *3*OPLEN (SETQ *2*TEMP6 (*1*S_RN *3*INS)) *3*S))))) (SETQ *2*TEMP5 (*1*MC-MEM *3*S))) *1*F)) (*1*WRITE-AN (*1*L) *2*TEMP8 *2*TEMP6 (*1*UPDATE-MEM (*1*WRITEM-MEM (*1*OP-SZ *3*OPLEN) (*1*READM-RN *3*OPLEN (*1*MOVEM-PRE-RNLST *3*MASK (QUOTE 15) (QUOTE NIL)) (*1*MC-RFILE (SETQ *2*TEMP4 (*1*CAR *2*TEMP7)))) *2*TEMP8 *2*TEMP5) *2*TEMP4))) (T (*1*HALT (*1*WRITE-SIGNAL) *3*S)))) ((NOT (EQ (*1*MOVEM-RN-EA-ADDR-MODEP *3*INS) *1*F)) (COND ((NOT (EQ (*1*MC-HALTP (SETQ *2*TEMP3 (*1*CAR (SETQ *2*TEMP2 (*1*EFFEC-ADDR *3*OPLEN *2*TEMP9 (SETQ *2*TEMP6 (*1*S_RN *3*INS)) *3*S))))) *1*F)) *2*TEMP3) ((NOT (EQ (*1*WRITEMP *3*MASK *3*OPLEN (SETQ *2*TEMP1 (*1*CDR (*1*CDR *2*TEMP2))) (SETQ *2*TEMP5 (*1*MC-MEM *3*S))) *1*F)) (*1*UPDATE-MEM (*1*WRITEM-MEM (*1*OP-SZ *3*OPLEN) (*1*READM-RN *3*OPLEN (*1*MOVEM-RNLST *3*MASK (QUOTE 0)) (*1*MC-RFILE *3*S)) *2*TEMP1 *2*TEMP5) *2*TEMP3)) (T (*1*HALT (*1*WRITE-SIGNAL) *3*S)))) (T (*1*HALT (*1*MODE-SIGNAL) *3*S)))))))) (PUT1-LST (QUOTE *1*EXT-SUBGROUP) (QUOTE (SEXPR (LAMBDA (*3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X))) (COND ((EQUAL (*1*S_MODE *3*INS) (QUOTE 0)) (*1*EXT-INS *3*INS *3*S)) ((NOT (EQ (*1*PC-WORD-READP (SETQ *2*TEMP3 (*1*MC-PC *3*S)) (SETQ *2*TEMP2 (*1*MC-MEM *3*S))) *1*F)) (*1*MOVEM-RN-EA-INS (*1*PC-WORD-READ *2*TEMP3 *2*TEMP2) (COND ((NOT (EQ (*1*B0P (*1*BITN *3*INS (QUOTE 6))) *1*F)) (*1*W)) (T (SETQ *2*TEMP1 (*1*L)))) *3*INS (*1*UPDATE-PC (*1*ADD (COND ((NOT (EQ *2*TEMP1 (QUOTE *1*X))) *2*TEMP1) (T (*1*L))) *2*TEMP3 (*1*WSZ)) *3*S))) (T (*1*HALT (*1*PC-SIGNAL) *3*S)))))))) (PUT1-LST (QUOTE *1*TST-ADDR-MODEP) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*INS) (LET NIL (COND ((EQUAL *3*OPLEN (*1*B)) (*1*DATA-ADDR-MODEP (*1*S_MODE *3*INS) (*1*S_RN *3*INS))) (T (*1*ADDR-MODEP (*1*S_MODE *3*INS) (*1*S_RN *3*INS))))))))) (PUT1-LST (QUOTE *1*TST-INS) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (COND ((NOT (EQ (*1*TST-ADDR-MODEP *3*OPLEN *3*INS) *1*F)) (COND ((NOT (EQ (*1*MC-HALTP (SETQ *2*TEMP2 (*1*CAR (SETQ *2*TEMP1 (*1*MC-INSTATE *3*OPLEN *3*INS *3*S))))) *1*F)) *2*TEMP2) (T (*1*UPDATE-CCR (*1*MOVE-CVZNX *3*OPLEN (*1*OPERAND *3*OPLEN (*1*CDR *2*TEMP1) *3*S) (*1*MC-CCR *3*S)) *2*TEMP2)))) (T (*1*HALT (*1*MODE-SIGNAL) *3*S)))))))) (PUT1-LST (QUOTE *1*TAS-ADDR-MODEP) (QUOTE (SEXPR (LAMBDA (*3*INS) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (*1*AND (*1*DATA-ADDR-MODEP (SETQ *2*TEMP2 (*1*S_MODE *3*INS)) (SETQ *2*TEMP1 (*1*S_RN *3*INS))) (*1*ALTERABLE-ADDR-MODEP *2*TEMP2 *2*TEMP1))))))) (PUT1-LST (QUOTE *1*TAS-EFFECT) (QUOTE (SEXPR (LAMBDA (*3*OPD *3*CCR) (CONS (*1*SETN *3*OPD (QUOTE 7) (*1*B1)) (*1*MOVE-CVZNX (*1*B) *3*OPD *3*CCR)))))) (PUT1-LST (QUOTE *1*TAS-INS) (QUOTE (SEXPR (LAMBDA (*3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X))) (COND ((NOT (EQ (*1*TAS-ADDR-MODEP *3*INS) *1*F)) (COND ((NOT (EQ (*1*MC-HALTP (SETQ *2*TEMP3 (*1*CAR (SETQ *2*TEMP2 (*1*MC-INSTATE (SETQ *2*TEMP1 (*1*B)) *3*INS *3*S))))) *1*F)) *2*TEMP3) (T (*1*MAPPING *2*TEMP1 (*1*TAS-EFFECT (*1*OPERAND *2*TEMP1 (*1*CDR *2*TEMP2) *3*S) (*1*MC-CCR *3*S)) *2*TEMP2)))) (T (*1*HALT (*1*MODE-SIGNAL) *3*S)))))))) (PUT1-LST (QUOTE *1*TST-SUBGROUP) (QUOTE (SEXPR (LAMBDA (*3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((EQUAL (SETQ *2*TEMP1 (*1*OP-LEN *3*INS)) (*1*Q)) (COND ((EQUAL (*1*HEAD *3*INS (QUOTE 6)) (QUOTE 60)) (*1*HALT (QUOTE ILLEGAL-UNSPECIFIED) *3*S)) (T (*1*TAS-INS *3*INS *3*S)))) (T (*1*TST-INS *2*TEMP1 *3*INS *3*S)))))))) (PUT1-LST (QUOTE *1*DIVSL_L) (QUOTE (SEXPR (LAMBDA (*3*SOPD *3*DOPD *3*DQ *3*DR *3*S) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*B0P (*1*DIVS-V (SETQ *2*TEMP1 (*1*L)) *3*SOPD *2*TEMP1 *3*DOPD *2*TEMP1)) *1*F)) (*1*UPDATE-CCR (*1*DIVS-CVZNX *2*TEMP1 *3*SOPD *2*TEMP1 *3*DOPD *2*TEMP1 (*1*MC-CCR *3*S)) (*1*WRITE-DN *2*TEMP1 (*1*IQUOT *2*TEMP1 *3*SOPD *2*TEMP1 *3*DOPD *2*TEMP1) *3*DQ (*1*WRITE-DN *2*TEMP1 (*1*IREM *2*TEMP1 *3*SOPD *2*TEMP1 *3*DOPD *2*TEMP1) *3*DR *3*S)))) (T (*1*HALT (QUOTE DIVS-OVERFLOW) (*1*UPDATE-CCR (*1*SET-V (*1*B1) (*1*MC-CCR *3*S)) *3*S))))))))) (PUT1-LST (QUOTE *1*DIVS_L) (QUOTE (SEXPR (LAMBDA (*3*SOPD *3*DOPD_LOW *3*DQ *3*DR *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X))) (COND ((NOT (EQ (*1*B0P (*1*DIVS-V (SETQ *2*TEMP3 (*1*L)) *3*SOPD *2*TEMP3 (SETQ *2*TEMP2 (*1*APP *2*TEMP3 *3*DOPD_LOW (*1*READ-DN *2*TEMP3 *3*DR *3*S))) (SETQ *2*TEMP1 (*1*Q)))) *1*F)) (*1*UPDATE-CCR (*1*DIVS-CVZNX *2*TEMP3 *3*SOPD *2*TEMP3 *2*TEMP2 *2*TEMP1 (*1*MC-CCR *3*S)) (*1*WRITE-DN *2*TEMP3 (*1*IQUOT *2*TEMP3 *3*SOPD *2*TEMP3 *2*TEMP2 *2*TEMP1) *3*DQ (*1*WRITE-DN *2*TEMP3 (*1*IREM *2*TEMP3 *3*SOPD *2*TEMP3 *2*TEMP2 *2*TEMP1) *3*DR *3*S)))) (T (*1*HALT (QUOTE DIVS-OVERFLOW) (*1*UPDATE-CCR (*1*SET-V (*1*B1) (*1*MC-CCR *3*S)) *3*S))))))))) (PUT1-LST (QUOTE *1*DIVUL_L) (QUOTE (SEXPR (LAMBDA (*3*SOPD *3*DOPD *3*DQ *3*DR *3*S) (LET ((*2*TEMP1 (QUOTE *1*X))) (*1*UPDATE-CCR (*1*DIVU-CVZNX (SETQ *2*TEMP1 (*1*L)) *3*SOPD *3*DOPD (*1*MC-CCR *3*S)) (*1*WRITE-DN *2*TEMP1 (*1*QUOT *2*TEMP1 *3*SOPD *3*DOPD) *3*DQ (*1*WRITE-DN *2*TEMP1 (*1*REM *2*TEMP1 *3*SOPD *3*DOPD) *3*DR *3*S)))))))) (PUT1-LST (QUOTE *1*DIVU_L) (QUOTE (SEXPR (LAMBDA (*3*SOPD *3*DOPD_LOW *3*DQ *3*DR *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (COND ((NOT (EQ (*1*B0P (*1*DIVU-V (SETQ *2*TEMP2 (*1*L)) *3*SOPD (SETQ *2*TEMP1 (*1*APP *2*TEMP2 *3*DOPD_LOW (*1*READ-DN *2*TEMP2 *3*DR *3*S))))) *1*F)) (*1*UPDATE-CCR (*1*DIVU-CVZNX *2*TEMP2 *3*SOPD *2*TEMP1 (*1*MC-CCR *3*S)) (*1*WRITE-DN *2*TEMP2 (*1*QUOT *2*TEMP2 *3*SOPD *2*TEMP1) *3*DQ (*1*WRITE-DN *2*TEMP2 (*1*REM *2*TEMP2 *3*SOPD *2*TEMP1) *3*DR *3*S)))) (T (*1*HALT (QUOTE DIVU-OVERFLOW) (*1*UPDATE-CCR (*1*SET-V (*1*B1) (*1*MC-CCR *3*S)) *3*S))))))))) (PUT1-LST (QUOTE *1*DQ) (QUOTE (SEXPR (LAMBDA (*3*WORD) (*1*BITS *3*WORD (QUOTE 12) (QUOTE 14)))))) (PUT1-LST (QUOTE *1*DR) (QUOTE (SEXPR (LAMBDA (*3*WORD) (*1*BITS *3*WORD (QUOTE 0) (QUOTE 2)))))) (PUT1-LST (QUOTE *1*DIV_L-INS) (QUOTE (SEXPR (LAMBDA (*3*SOPD *3*WORD *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (COND ((NOT (EQ (*1*B0P (*1*BITN *3*WORD (QUOTE 11))) *1*F)) (COND ((EQUAL (*1*NAT-TO-UINT *3*SOPD) (QUOTE 0)) (*1*HALT (QUOTE TRAP-EXCEPTION) *3*S)) ((NOT (EQ (*1*B0P (*1*BITN *3*WORD (QUOTE 10))) *1*F)) (*1*DIVUL_L *3*SOPD (*1*READ-DN (*1*L) (SETQ *2*TEMP1 (*1*DQ *3*WORD)) *3*S) *2*TEMP1 (*1*DR *3*WORD) *3*S)) (T (*1*DIVU_L *3*SOPD (*1*READ-DN (*1*L) (SETQ *2*TEMP1 (*1*DQ *3*WORD)) *3*S) *2*TEMP1 (*1*DR *3*WORD) *3*S)))) ((EQUAL (*1*NAT-TO-INT *3*SOPD (SETQ *2*TEMP2 (*1*L))) (QUOTE 0)) (*1*HALT (QUOTE TRAP-EXCEPTION) *3*S)) ((NOT (EQ (*1*B0P (*1*BITN *3*WORD (QUOTE 10))) *1*F)) (*1*DIVSL_L *3*SOPD (*1*READ-DN *2*TEMP2 (SETQ *2*TEMP1 (*1*DQ *3*WORD)) *3*S) *2*TEMP1 (*1*DR *3*WORD) *3*S)) (T (*1*DIVS_L *3*SOPD (*1*READ-DN *2*TEMP2 (SETQ *2*TEMP1 (*1*DQ *3*WORD)) *3*S) *2*TEMP1 (*1*DR *3*WORD) *3*S)))))))) (PUT1-LST (QUOTE *1*MULU_L_DL) (QUOTE (SEXPR (LAMBDA (*3*SOPD *3*DOPD *3*DL *3*S) (LET ((*2*TEMP1 (QUOTE *1*X))) (*1*UPDATE-CCR (*1*MULU-CVZNX (SETQ *2*TEMP1 (*1*L)) *3*SOPD *3*DOPD *2*TEMP1 (*1*MC-CCR *3*S)) (*1*WRITE-DN *2*TEMP1 (*1*MULU *2*TEMP1 *3*SOPD *3*DOPD *2*TEMP1) *3*DL *3*S))))))) (PUT1-LST (QUOTE *1*MULU_L_DLDH) (QUOTE (SEXPR (LAMBDA (*3*SOPD *3*DOPD *3*DL *3*DH *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X))) (COND ((EQUAL *3*DL *3*DH) (*1*HALT (QUOTE MC-UNDEFINED) *3*S)) (T (*1*UPDATE-CCR (*1*MULU-CVZNX (SETQ *2*TEMP3 (*1*Q)) *3*SOPD *3*DOPD (SETQ *2*TEMP2 (*1*L)) (*1*MC-CCR *3*S)) (*1*WRITE-DN *2*TEMP2 (*1*TAIL (SETQ *2*TEMP1 (*1*MULU *2*TEMP3 *3*SOPD *3*DOPD *2*TEMP2)) *2*TEMP2) *3*DH (*1*WRITE-DN *2*TEMP2 (*1*HEAD *2*TEMP1 *2*TEMP2) *3*DL *3*S)))))))))) (PUT1-LST (QUOTE *1*MULS_L_DL) (QUOTE (SEXPR (LAMBDA (*3*SOPD *3*DOPD *3*DL *3*S) (LET ((*2*TEMP1 (QUOTE *1*X))) (*1*UPDATE-CCR (*1*MULS-CVZNX (SETQ *2*TEMP1 (*1*L)) *3*SOPD *3*DOPD *2*TEMP1 (*1*MC-CCR *3*S)) (*1*WRITE-DN *2*TEMP1 (*1*MULS *2*TEMP1 *3*SOPD *3*DOPD *2*TEMP1) *3*DL *3*S))))))) (PUT1-LST (QUOTE *1*MULS_L_DLDH) (QUOTE (SEXPR (LAMBDA (*3*SOPD *3*DOPD *3*DL *3*DH *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X))) (COND ((EQUAL *3*DL *3*DH) (*1*HALT (QUOTE MC-UNDEFINED) *3*S)) (T (*1*UPDATE-CCR (*1*MULS-CVZNX (SETQ *2*TEMP3 (*1*Q)) *3*SOPD *3*DOPD (SETQ *2*TEMP2 (*1*L)) (*1*MC-CCR *3*S)) (*1*WRITE-DN *2*TEMP2 (*1*TAIL (SETQ *2*TEMP1 (*1*MULS *2*TEMP3 *3*SOPD *3*DOPD *2*TEMP2)) *2*TEMP2) *3*DH (*1*WRITE-DN *2*TEMP2 (*1*HEAD *2*TEMP1 *2*TEMP2) *3*DL *3*S)))))))))) (PUT1-LST (QUOTE *1*DL) (QUOTE (SEXPR (LAMBDA (*3*WORD) (*1*BITS *3*WORD (QUOTE 12) (QUOTE 14)))))) (PUT1-LST (QUOTE *1*DH) (QUOTE (SEXPR (LAMBDA (*3*WORD) (*1*BITS *3*WORD (QUOTE 0) (QUOTE 2)))))) (PUT1-LST (QUOTE *1*MUL_L-INS) (QUOTE (SEXPR (LAMBDA (*3*SOPD *3*WORD *3*S) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*B0P (*1*BITN *3*WORD (QUOTE 11))) *1*F)) (COND ((NOT (EQ (*1*B0P (*1*BITN *3*WORD (QUOTE 10))) *1*F)) (*1*MULU_L_DL *3*SOPD (*1*READ-DN (*1*L) (SETQ *2*TEMP1 (*1*DL *3*WORD)) *3*S) *2*TEMP1 *3*S)) (T (*1*MULU_L_DLDH *3*SOPD (*1*READ-DN (*1*L) (SETQ *2*TEMP1 (*1*DL *3*WORD)) *3*S) *2*TEMP1 (*1*DH *3*WORD) *3*S)))) ((NOT (EQ (*1*B0P (*1*BITN *3*WORD (QUOTE 10))) *1*F)) (*1*MULS_L_DL *3*SOPD (*1*READ-DN (*1*L) (SETQ *2*TEMP1 (*1*DL *3*WORD)) *3*S) *2*TEMP1 *3*S)) (T (*1*MULS_L_DLDH *3*SOPD (*1*READ-DN (*1*L) (SETQ *2*TEMP1 (*1*DL *3*WORD)) *3*S) *2*TEMP1 (*1*DH *3*WORD) *3*S)))))))) (PUT1-LST (QUOTE *1*MUL-DIV_L-INS) (QUOTE (SEXPR (LAMBDA (*3*WORD *3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X))) (COND ((NOT (EQ (*1*AND (*1*B0P (*1*BITN *3*WORD (QUOTE 15))) (COND ((EQUAL (*1*BITS *3*WORD (QUOTE 3) (QUOTE 9)) (QUOTE 0)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) *1*F)) (COND ((NOT (EQ (*1*MUL&DIV-ADDR-MODEP *3*INS) *1*F)) (COND ((NOT (EQ (*1*MC-HALTP (SETQ *2*TEMP3 (*1*CAR (SETQ *2*TEMP2 (*1*MC-INSTATE (SETQ *2*TEMP1 (*1*L)) *3*INS *3*S))))) *1*F)) *2*TEMP3) ((NOT (EQ (*1*B0P (*1*BITN *3*INS (QUOTE 6))) *1*F)) (*1*MUL_L-INS (*1*OPERAND *2*TEMP1 (*1*CDR *2*TEMP2) *2*TEMP3) *3*WORD *2*TEMP3)) (T (*1*DIV_L-INS (*1*OPERAND *2*TEMP1 (*1*CDR *2*TEMP2) *2*TEMP3) *3*WORD *2*TEMP3)))) (T (*1*HALT (*1*MODE-SIGNAL) *3*S)))) (T (*1*HALT (*1*RESERVED-SIGNAL) *3*S)))))))) (PUT1-LST (QUOTE *1*MOVEM-EA-RN-ADDR-MODEP) (QUOTE (SEXPR (LAMBDA (*3*INS) (*1*CONTROL-ADDR-MODEP (*1*S_MODE *3*INS) (*1*S_RN *3*INS)))))) (PUT1-LST (QUOTE *1*READMP) (QUOTE (SEXPR (LAMBDA (*3*MASK *3*OPLEN *3*ADDR *3*MEM) (*1*READ-MEMP *3*ADDR *3*MEM (*1*TIMES (*1*OP-SZ *3*OPLEN) (*1*MOVEM-LEN *3*MASK))))))) (PUT1-LST (QUOTE *1*MOVEM-EA-RN-INS) (QUOTE (SEXPR (LAMBDA (*3*MASK *3*OPLEN *3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X)) (*2*TEMP4 (QUOTE *1*X)) (*2*TEMP5 (QUOTE *1*X)) (*2*TEMP6 (QUOTE *1*X)) (*2*TEMP7 (QUOTE *1*X)) (*2*TEMP8 (QUOTE *1*X)) (*2*TEMP9 (QUOTE *1*X)) (*2*TEMP10 (QUOTE *1*X))) (COND ((NOT (EQ (*1*POSTINC-MODEP (SETQ *2*TEMP10 (*1*S_MODE *3*INS))) *1*F)) (COND ((NOT (EQ (*1*READMP *3*MASK *3*OPLEN (SETQ *2*TEMP9 (*1*READ-AN (SETQ *2*TEMP8 (*1*L)) (SETQ *2*TEMP7 (*1*S_RN *3*INS)) *3*S)) (SETQ *2*TEMP6 (*1*MC-MEM *3*S))) *1*F)) (*1*WRITE-AN *2*TEMP8 (*1*ADD *2*TEMP8 *2*TEMP9 (*1*TIMES (SETQ *2*TEMP5 (*1*OP-SZ *3*OPLEN)) (SETQ *2*TEMP4 (*1*MOVEM-LEN *3*MASK)))) *2*TEMP7 (*1*UPDATE-RFILE (*1*WRITEM-RN *3*OPLEN (*1*READM-MEM *2*TEMP5 *2*TEMP9 *2*TEMP6 *2*TEMP4) (*1*MOVEM-RNLST *3*MASK (QUOTE 0)) (*1*MC-RFILE *3*S)) *3*S))) (T (*1*HALT (*1*READ-SIGNAL) *3*S)))) ((NOT (EQ (*1*MOVEM-EA-RN-ADDR-MODEP *3*INS) *1*F)) (COND ((NOT (EQ (*1*MC-HALTP (SETQ *2*TEMP3 (*1*CAR (SETQ *2*TEMP2 (*1*EFFEC-ADDR *3*OPLEN *2*TEMP10 (SETQ *2*TEMP7 (*1*S_RN *3*INS)) *3*S))))) *1*F)) *2*TEMP3) ((NOT (EQ (*1*READMP *3*MASK *3*OPLEN (SETQ *2*TEMP1 (*1*CDR (*1*CDR *2*TEMP2))) (SETQ *2*TEMP6 (*1*MC-MEM *3*S))) *1*F)) (*1*UPDATE-RFILE (*1*WRITEM-RN *3*OPLEN (*1*READM-MEM (*1*OP-SZ *3*OPLEN) *2*TEMP1 *2*TEMP6 (*1*MOVEM-LEN *3*MASK)) (*1*MOVEM-RNLST *3*MASK (QUOTE 0)) (*1*MC-RFILE *3*S)) *2*TEMP3)) (T (*1*HALT (*1*READ-SIGNAL) *3*S)))) (T (*1*HALT (*1*MODE-SIGNAL) *3*S)))))))) (PUT1-LST (QUOTE *1*MOVEM-EA-RN-SUBGROUP) (QUOTE (SEXPR (LAMBDA (*3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X))) (COND ((NOT (EQ (*1*PC-WORD-READP (SETQ *2*TEMP3 (*1*MC-PC *3*S)) (SETQ *2*TEMP2 (*1*MC-MEM *3*S))) *1*F)) (COND ((NOT (EQ (*1*B0P (*1*BITN *3*INS (QUOTE 7))) *1*F)) (*1*MUL-DIV_L-INS (*1*PC-WORD-READ *2*TEMP3 *2*TEMP2) *3*INS (*1*UPDATE-PC (*1*ADD (*1*L) *2*TEMP3 (*1*WSZ)) *3*S))) (T (*1*MOVEM-EA-RN-INS (*1*PC-WORD-READ *2*TEMP3 *2*TEMP2) (COND ((NOT (EQ (*1*B0P (*1*BITN *3*INS (QUOTE 6))) *1*F)) (*1*W)) (T (SETQ *2*TEMP1 (*1*L)))) *3*INS (*1*UPDATE-PC (*1*ADD (COND ((NOT (EQ *2*TEMP1 (QUOTE *1*X))) *2*TEMP1) (T (*1*L))) *2*TEMP3 (*1*WSZ)) *3*S))))) (T (*1*HALT (*1*PC-SIGNAL) *3*S)))))))) (PUT1-LST (QUOTE *1*LINK-MAPPING) (QUOTE (SEXPR (LAMBDA (*3*AN *3*DISP *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X)) (*2*TEMP4 (QUOTE *1*X))) (COND ((NOT (EQ (*1*WRITE-MEMP (SETQ *2*TEMP4 (*1*SUB (SETQ *2*TEMP3 (*1*L)) (SETQ *2*TEMP2 (*1*LSZ)) (*1*READ-SP *3*S))) (SETQ *2*TEMP1 (*1*MC-MEM *3*S)) *2*TEMP2) *1*F)) (*1*UPDATE-MEM (*1*WRITE-MEM (*1*READ-AN *2*TEMP3 *3*AN *3*S) *2*TEMP4 *2*TEMP1 *2*TEMP2) (*1*WRITE-SP (*1*ADD *2*TEMP3 *2*TEMP4 *3*DISP) (*1*WRITE-AN *2*TEMP3 *2*TEMP4 *3*AN *3*S)))) (T (*1*HALT (*1*WRITE-SIGNAL) *3*S)))))))) (PUT1-LST (QUOTE *1*LINK_L-INS) (QUOTE (SEXPR (LAMBDA (*3*AN *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (COND ((NOT (EQ (*1*PC-LONG-READP (SETQ *2*TEMP2 (*1*MC-PC *3*S)) (SETQ *2*TEMP1 (*1*MC-MEM *3*S))) *1*F)) (*1*LINK-MAPPING *3*AN (*1*PC-LONG-READ *2*TEMP2 *2*TEMP1) (*1*UPDATE-PC (*1*ADD (*1*L) *2*TEMP2 (*1*LSZ)) *3*S))) (T (*1*HALT (*1*PC-SIGNAL) *3*S)))))))) (PUT1-LST (QUOTE *1*LINK_W-INS) (QUOTE (SEXPR (LAMBDA (*3*AN *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X))) (COND ((NOT (EQ (*1*PC-WORD-READP (SETQ *2*TEMP3 (*1*MC-PC *3*S)) (SETQ *2*TEMP2 (*1*MC-MEM *3*S))) *1*F)) (*1*LINK-MAPPING *3*AN (*1*EXT (*1*W) (*1*PC-WORD-READ *2*TEMP3 *2*TEMP2) (SETQ *2*TEMP1 (*1*L))) (*1*UPDATE-PC (*1*ADD *2*TEMP1 *2*TEMP3 (*1*WSZ)) *3*S))) (T (*1*HALT (*1*PC-SIGNAL) *3*S)))))))) (PUT1-LST (QUOTE *1*UNLK-INS) (QUOTE (SEXPR (LAMBDA (*3*AN *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X))) (COND ((NOT (EQ (*1*LONG-READP (SETQ *2*TEMP3 (*1*READ-AN (SETQ *2*TEMP2 (*1*L)) *3*AN *3*S)) (SETQ *2*TEMP1 (*1*MC-MEM *3*S))) *1*F)) (*1*WRITE-AN *2*TEMP2 (*1*LONG-READ *2*TEMP3 *2*TEMP1) *3*AN (*1*WRITE-SP (*1*ADD *2*TEMP2 *2*TEMP3 (*1*LSZ)) *3*S))) (T (*1*HALT (*1*READ-SIGNAL) *3*S)))))))) (PUT1-LST (QUOTE *1*UNLK-SUBGROUP) (QUOTE (SEXPR (LAMBDA (*3*INS *3*S) (LET NIL (COND ((NOT (EQ (*1*B0P (*1*BITN *3*INS (QUOTE 4))) *1*F)) (*1*HALT (QUOTE TRAP-UNSPECIFIED) *3*S)) ((NOT (EQ (*1*B0P (*1*BITN *3*INS (QUOTE 3))) *1*F)) (*1*LINK_W-INS (*1*S_RN *3*INS) *3*S)) (T (*1*UNLK-INS (*1*S_RN *3*INS) *3*S)))))))) (PUT1-LST (QUOTE *1*NOP-INS) (QUOTE (SEXPR (LAMBDA (*3*S) *3*S)))) (PUT1-LST (QUOTE *1*RTD-MAPPING) (QUOTE (SEXPR (LAMBDA (*3*SP *3*DISP *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (COND ((NOT (EQ (*1*LONG-READP *3*SP (SETQ *2*TEMP2 (*1*MC-MEM *3*S))) *1*F)) (*1*UPDATE-PC (*1*LONG-READ *3*SP *2*TEMP2) (*1*WRITE-SP (*1*ADD (SETQ *2*TEMP1 (*1*L)) (*1*ADD *2*TEMP1 *3*SP (*1*LSZ)) (*1*EXT (*1*W) *3*DISP *2*TEMP1)) *3*S))) (T (*1*HALT (*1*READ-SIGNAL) *3*S)))))))) (PUT1-LST (QUOTE *1*RTD-INS) (QUOTE (SEXPR (LAMBDA (*3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (COND ((NOT (EQ (*1*PC-WORD-READP (SETQ *2*TEMP2 (*1*MC-PC *3*S)) (SETQ *2*TEMP1 (*1*MC-MEM *3*S))) *1*F)) (*1*RTD-MAPPING (*1*READ-SP *3*S) (*1*PC-WORD-READ *2*TEMP2 *2*TEMP1) *3*S)) (T (*1*HALT (*1*PC-SIGNAL) *3*S)))))))) (PUT1-LST (QUOTE *1*RTS-INS) (QUOTE (SEXPR (LAMBDA (*3*S) (*1*RTD-MAPPING (*1*READ-SP *3*S) (QUOTE 0) *3*S))))) (PUT1-LST (QUOTE *1*RTR-INS) (QUOTE (SEXPR (LAMBDA (*3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (COND ((NOT (EQ (*1*WORD-READP (SETQ *2*TEMP2 (*1*READ-SP *3*S)) (SETQ *2*TEMP1 (*1*MC-MEM *3*S))) *1*F)) (*1*RTD-MAPPING (*1*ADD (*1*L) *2*TEMP2 (*1*WSZ)) (QUOTE 0) (*1*UPDATE-CCR (*1*WORD-READ *2*TEMP2 *2*TEMP1) *3*S))) (T (*1*HALT (*1*READ-SIGNAL) *3*S)))))))) (PUT1-LST (QUOTE *1*BVS) (QUOTE (SEXPR (LAMBDA (*3*V) (*1*FIX-BIT *3*V))))) (PUT1-LST (QUOTE *1*TRAPV-INS) (QUOTE (SEXPR (LAMBDA (*3*S) (COND ((NOT (EQ (*1*B1P (*1*BVS (*1*CCR-V (*1*MC-CCR *3*S)))) *1*F)) (*1*HALT (QUOTE TRAPV-EXCEPTION) *3*S)) (T *3*S)))))) (PUT1-LST (QUOTE *1*NOP-SUBGROUP) (QUOTE (SEXPR (LAMBDA (*3*INS *3*S) (LET NIL (COND ((NOT (EQ (*1*B0P (*1*BITN *3*INS (QUOTE 2))) *1*F)) (COND ((NOT (EQ (*1*B0P (*1*BITN *3*INS (QUOTE 1))) *1*F)) (COND ((NOT (EQ (*1*B0P (*1*BITN *3*INS (QUOTE 0))) *1*F)) (*1*HALT (QUOTE RESET-PRIVILEGED) *3*S)) (T (*1*NOP-INS *3*S)))) ((NOT (EQ (*1*B0P (*1*BITN *3*INS (QUOTE 0))) *1*F)) (*1*HALT (QUOTE STOP-PRIVILEGED) *3*S)) (T (*1*HALT (QUOTE RTE-PRIVILEGED) *3*S)))) ((NOT (EQ (*1*B0P (*1*BITN *3*INS (QUOTE 1))) *1*F)) (COND ((NOT (EQ (*1*B0P (*1*BITN *3*INS (QUOTE 0))) *1*F)) (*1*RTD-INS *3*S)) (T (*1*RTS-INS *3*S)))) ((NOT (EQ (*1*B0P (*1*BITN *3*INS (QUOTE 0))) *1*F)) (*1*TRAPV-INS *3*S)) (T (*1*RTR-INS *3*S)))))))) (PUT1-LST (QUOTE *1*JMP-ADDR-MODEP) (QUOTE (SEXPR (LAMBDA (*3*INS) (*1*CONTROL-ADDR-MODEP (*1*S_MODE *3*INS) (*1*S_RN *3*INS)))))) (PUT1-LST (QUOTE *1*JMP-MAPPING) (QUOTE (SEXPR (LAMBDA (*3*ADDR *3*S) (COND ((NOT (EQ (*1*MC-HALTP *3*S) *1*F)) *3*S) (T (*1*UPDATE-PC *3*ADDR *3*S))))))) (PUT1-LST (QUOTE *1*JMP-INS) (QUOTE (SEXPR (LAMBDA (*3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*JMP-ADDR-MODEP *3*INS) *1*F)) (*1*JMP-MAPPING (*1*CDR (*1*CDR (SETQ *2*TEMP1 (*1*EFFEC-ADDR (*1*L) (*1*S_MODE *3*INS) (*1*S_RN *3*INS) *3*S)))) (*1*CAR *2*TEMP1))) (T (*1*HALT (*1*MODE-SIGNAL) *3*S)))))))) (PUT1-LST (QUOTE *1*JSR-ADDR-MODEP) (QUOTE (SEXPR (LAMBDA (*3*INS) (*1*CONTROL-ADDR-MODEP (*1*S_MODE *3*INS) (*1*S_RN *3*INS)))))) (PUT1-LST (QUOTE *1*JSR-INS) (QUOTE (SEXPR (LAMBDA (*3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (COND ((NOT (EQ (*1*JSR-ADDR-MODEP *3*INS) *1*F)) (COND ((NOT (EQ (*1*MC-HALTP (SETQ *2*TEMP2 (*1*CAR (SETQ *2*TEMP1 (*1*EFFEC-ADDR (*1*L) (*1*S_MODE *3*INS) (*1*S_RN *3*INS) *3*S))))) *1*F)) *2*TEMP2) (T (*1*JMP-MAPPING (*1*CDR (*1*CDR *2*TEMP1)) (*1*PUSH-SP (*1*LSZ) (*1*MC-PC *2*TEMP2) *2*TEMP2))))) (T (*1*HALT (*1*MODE-SIGNAL) *3*S)))))))) (PUT1-LST (QUOTE *1*NOT-ADDR-MODEP) (QUOTE (SEXPR (LAMBDA (*3*INS) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (*1*AND (*1*DATA-ADDR-MODEP (SETQ *2*TEMP2 (*1*S_MODE *3*INS)) (SETQ *2*TEMP1 (*1*S_RN *3*INS))) (*1*ALTERABLE-ADDR-MODEP *2*TEMP2 *2*TEMP1))))))) (PUT1-LST (QUOTE *1*NOT-Z) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*OPD) (COND ((EQUAL (*1*LOGNOT *3*OPLEN *3*OPD) (QUOTE 0)) (*1*B1)) (T (*1*B0))))))) (PUT1-LST (QUOTE *1*NOT-N) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*OPD) (*1*MBIT (*1*LOGNOT *3*OPLEN *3*OPD) *3*OPLEN))))) (PUT1-LST (QUOTE *1*NOT-CVZNX) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*OPD *3*CCR) (LET ((*2*TEMP1 (QUOTE *1*X))) (*1*CVZNX (SETQ *2*TEMP1 (*1*B0)) *2*TEMP1 (*1*NOT-Z *3*OPLEN *3*OPD) (*1*NOT-N *3*OPLEN *3*OPD) (*1*CCR-X *3*CCR))))))) (PUT1-LST (QUOTE *1*NOT-EFFECT) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*OPD *3*CCR) (CONS (*1*LOGNOT *3*OPLEN *3*OPD) (*1*NOT-CVZNX *3*OPLEN *3*OPD *3*CCR)))))) (PUT1-LST (QUOTE *1*NOT-INS) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (COND ((NOT (EQ (*1*NOT-ADDR-MODEP *3*INS) *1*F)) (COND ((NOT (EQ (*1*MC-HALTP (SETQ *2*TEMP2 (*1*CAR (SETQ *2*TEMP1 (*1*MC-INSTATE *3*OPLEN *3*INS *3*S))))) *1*F)) *2*TEMP2) (T (*1*MAPPING *3*OPLEN (*1*NOT-EFFECT *3*OPLEN (*1*OPERAND *3*OPLEN (*1*CDR *2*TEMP1) *3*S) (*1*MC-CCR *3*S)) *2*TEMP1)))) (T (*1*HALT (*1*MODE-SIGNAL) *3*S)))))))) (PUT1-LST (QUOTE *1*NOT-SUBGROUP) (QUOTE (SEXPR (LAMBDA (*3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((EQUAL (SETQ *2*TEMP1 (*1*OP-LEN *3*INS)) (*1*Q)) (*1*HALT (QUOTE MOVE-TO-SR-PRIVILEGED) *3*S)) (T (*1*NOT-INS *2*TEMP1 *3*INS *3*S)))))))) (PUT1-LST (QUOTE *1*MISC-GROUP) (QUOTE (SEXPR (LAMBDA (*3*INS *3*S) (LET NIL (COND ((NOT (EQ (*1*B0P (*1*BITN *3*INS (QUOTE 8))) *1*F)) (COND ((NOT (EQ (*1*B0P (*1*BITN *3*INS (QUOTE 11))) *1*F)) (COND ((NOT (EQ (*1*B0P (*1*BITN *3*INS (QUOTE 10))) *1*F)) (COND ((NOT (EQ (*1*B0P (*1*BITN *3*INS (QUOTE 9))) *1*F)) (*1*NEGX-SUBGROUP *3*INS *3*S)) (T (*1*CLR-SUBGROUP *3*INS *3*S)))) ((NOT (EQ (*1*B0P (*1*BITN *3*INS (QUOTE 9))) *1*F)) (*1*NEG-SUBGROUP *3*INS *3*S)) (T (*1*NOT-SUBGROUP *3*INS *3*S)))) ((NOT (EQ (*1*B0P (*1*BITN *3*INS (QUOTE 10))) *1*F)) (COND ((NOT (EQ (*1*B0P (*1*BITN *3*INS (QUOTE 9))) *1*F)) (COND ((NOT (EQ (*1*B0P (*1*BITN *3*INS (QUOTE 7))) *1*F)) (COND ((NOT (EQ (*1*B0P (*1*BITN *3*INS (QUOTE 6))) *1*F)) (COND ((NOT (EQ (*1*AND (*1*B0P (*1*BITN *3*INS (QUOTE 5))) (*1*AND (*1*B0P (*1*BITN *3*INS (QUOTE 4))) (*1*B1P (*1*BITN *3*INS (QUOTE 3))))) *1*F)) (*1*LINK_L-INS (*1*S_RN *3*INS) *3*S)) (T (*1*HALT (QUOTE NBCD-UNSPECIFIED) *3*S)))) (T (*1*PEA-SUBGROUP *3*INS *3*S)))) (T (*1*EXT-SUBGROUP *3*INS *3*S)))) (T (*1*TST-SUBGROUP *3*INS *3*S)))) ((NOT (EQ (*1*B0P (*1*BITN *3*INS (QUOTE 9))) *1*F)) (*1*MOVEM-EA-RN-SUBGROUP *3*INS *3*S)) ((NOT (EQ (*1*B0P (*1*BITN *3*INS (QUOTE 7))) *1*F)) (COND ((NOT (EQ (*1*B0P (*1*BITN *3*INS (QUOTE 6))) *1*F)) (*1*HALT (*1*RESERVED-SIGNAL) *3*S)) ((NOT (EQ (*1*B0P (*1*BITN *3*INS (QUOTE 5))) *1*F)) (*1*UNLK-SUBGROUP *3*INS *3*S)) ((NOT (EQ (*1*B0P (*1*BITN *3*INS (QUOTE 4))) *1*F)) (*1*HALT (QUOTE MOVE-USP-UNSPECIFIED) *3*S)) ((NOT (EQ (*1*B0P (*1*BITN *3*INS (QUOTE 3))) *1*F)) (*1*NOP-SUBGROUP *3*INS *3*S)) (T (*1*HALT (QUOTE MOVEC-UNSPECIFIED) *3*S)))) ((NOT (EQ (*1*B0P (*1*BITN *3*INS (QUOTE 6))) *1*F)) (*1*JSR-INS *3*INS *3*S)) (T (*1*JMP-INS *3*INS *3*S)))) ((NOT (EQ (*1*AND (*1*B1P (*1*BITN *3*INS (QUOTE 6))) (*1*B1P (*1*BITN *3*INS (QUOTE 7)))) *1*F)) (*1*LEA-SUBGROUP *3*INS *3*S)) (T (*1*HALT (QUOTE CHK-UNSPECIFIED) *3*S)))))))) (PUT1-LST (QUOTE *1*BCS) (QUOTE (SEXPR (LAMBDA (*3*C) (*1*FIX-BIT *3*C))))) (PUT1-LST (QUOTE *1*BEQ) (QUOTE (SEXPR (LAMBDA (*3*Z) (*1*FIX-BIT *3*Z))))) (PUT1-LST (QUOTE *1*BMI) (QUOTE (SEXPR (LAMBDA (*3*N) (*1*FIX-BIT *3*N))))) (PUT1-LST (QUOTE *1*BLE) (QUOTE (SEXPR (LAMBDA (*3*V *3*Z *3*N) (*1*B-OR *3*Z (*1*B-OR (*1*B-AND *3*N (*1*B-NOT *3*V)) (*1*B-AND (*1*B-NOT *3*N) *3*V))))))) (PUT1-LST (QUOTE *1*BGT) (QUOTE (SEXPR (LAMBDA (*3*V *3*Z *3*N) (*1*B-AND (*1*B-OR (*1*B-AND *3*N *3*V) (*1*B-AND (*1*B-NOT *3*N) (*1*B-NOT *3*V))) (*1*B-NOT *3*Z)))))) (PUT1-LST (QUOTE *1*BLT) (QUOTE (SEXPR (LAMBDA (*3*V *3*N) (*1*B-OR (*1*B-AND *3*N (*1*B-NOT *3*V)) (*1*B-AND (*1*B-NOT *3*N) *3*V)))))) (PUT1-LST (QUOTE *1*BGE) (QUOTE (SEXPR (LAMBDA (*3*V *3*N) (*1*B-OR (*1*B-AND *3*N *3*V) (*1*B-AND (*1*B-NOT *3*N) (*1*B-NOT *3*V))))))) (PUT1-LST (QUOTE *1*BLS) (QUOTE (SEXPR (LAMBDA (*3*C *3*Z) (*1*B-OR *3*C *3*Z))))) (PUT1-LST (QUOTE *1*BHI) (QUOTE (SEXPR (LAMBDA (*3*C *3*Z) (*1*B-AND (*1*B-NOT *3*C) (*1*B-NOT *3*Z)))))) (PUT1-LST (QUOTE *1*BRANCH-CC) (QUOTE (SEXPR (LAMBDA (*3*COND *3*CCR) (LET NIL (COND ((NOT (EQ (*1*LESSP *3*COND (QUOTE 8)) *1*F)) (COND ((NOT (EQ (*1*LESSP *3*COND (QUOTE 4)) *1*F)) (COND ((NOT (EQ (*1*LESSP *3*COND (QUOTE 2)) *1*F)) (COND ((EQUAL *3*COND (QUOTE 0)) (*1*B1)) (T (*1*B0)))) ((EQUAL *3*COND (QUOTE 2)) (*1*BHI (*1*CCR-C *3*CCR) (*1*CCR-Z *3*CCR))) (T (*1*BLS (*1*CCR-C *3*CCR) (*1*CCR-Z *3*CCR))))) ((NOT (EQ (*1*LESSP *3*COND (QUOTE 6)) *1*F)) (COND ((EQUAL *3*COND (QUOTE 4)) (*1*B-NOT (*1*BCS (*1*CCR-C *3*CCR)))) (T (*1*BCS (*1*CCR-C *3*CCR))))) ((EQUAL *3*COND (QUOTE 6)) (*1*B-NOT (*1*BEQ (*1*CCR-Z *3*CCR)))) (T (*1*BEQ (*1*CCR-Z *3*CCR))))) ((NOT (EQ (*1*LESSP *3*COND (QUOTE 12)) *1*F)) (COND ((NOT (EQ (*1*LESSP *3*COND (QUOTE 10)) *1*F)) (COND ((EQUAL *3*COND (QUOTE 8)) (*1*B-NOT (*1*BVS (*1*CCR-V *3*CCR)))) (T (*1*BVS (*1*CCR-V *3*CCR))))) ((EQUAL *3*COND (QUOTE 10)) (*1*B-NOT (*1*BMI (*1*CCR-N *3*CCR)))) (T (*1*BMI (*1*CCR-N *3*CCR))))) ((NOT (EQ (*1*LESSP *3*COND (QUOTE 14)) *1*F)) (COND ((EQUAL *3*COND (QUOTE 12)) (*1*BGE (*1*CCR-V *3*CCR) (*1*CCR-N *3*CCR))) (T (*1*BLT (*1*CCR-V *3*CCR) (*1*CCR-N *3*CCR))))) ((EQUAL *3*COND (QUOTE 14)) (*1*BGT (*1*CCR-V *3*CCR) (*1*CCR-Z *3*CCR) (*1*CCR-N *3*CCR))) (T (*1*BLE (*1*CCR-V *3*CCR) (*1*CCR-Z *3*CCR) (*1*CCR-N *3*CCR))))))))) (PUT1-LST (QUOTE *1*BSR-INS) (QUOTE (SEXPR (LAMBDA (*3*PC *3*DISP *3*S) (*1*PUSH-SP (*1*LSZ) *3*PC (*1*UPDATE-PC (*1*ADD (*1*L) (*1*MC-PC *3*S) *3*DISP) *3*S)))))) (PUT1-LST (QUOTE *1*BCC-RA-SR) (QUOTE (SEXPR (LAMBDA (*3*PC *3*COND *3*DISP *3*S) (LET NIL (COND ((EQUAL *3*COND (QUOTE 0)) (*1*UPDATE-PC (*1*ADD (*1*L) (*1*MC-PC *3*S) *3*DISP) *3*S)) ((EQUAL *3*COND (QUOTE 1)) (*1*BSR-INS *3*PC *3*DISP *3*S)) ((NOT (EQ (*1*B0P (*1*BRANCH-CC *3*COND (*1*MC-CCR *3*S))) *1*F)) (*1*UPDATE-PC *3*PC *3*S)) (T (*1*UPDATE-PC (*1*ADD (*1*L) (*1*MC-PC *3*S) *3*DISP) *3*S)))))))) (PUT1-LST (QUOTE *1*BCC-GROUP) (QUOTE (SEXPR (LAMBDA (*3*DISP *3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X))) (COND ((EQUAL *3*DISP (QUOTE 0)) (COND ((NOT (EQ (*1*PC-WORD-READP (SETQ *2*TEMP3 (*1*MC-PC *3*S)) (SETQ *2*TEMP2 (*1*MC-MEM *3*S))) *1*F)) (*1*BCC-RA-SR (*1*ADD (SETQ *2*TEMP1 (*1*L)) *2*TEMP3 (*1*WSZ)) (*1*COND-FIELD *3*INS) (*1*EXT (*1*W) (*1*PC-WORD-READ *2*TEMP3 *2*TEMP2) *2*TEMP1) *3*S)) (T (*1*HALT (*1*PC-SIGNAL) *3*S)))) ((EQUAL *3*DISP (QUOTE 255)) (COND ((NOT (EQ (*1*PC-LONG-READP (SETQ *2*TEMP3 (*1*MC-PC *3*S)) (SETQ *2*TEMP2 (*1*MC-MEM *3*S))) *1*F)) (*1*BCC-RA-SR (*1*ADD (*1*L) *2*TEMP3 (*1*LSZ)) (*1*COND-FIELD *3*INS) (*1*PC-LONG-READ *2*TEMP3 *2*TEMP2) *3*S)) (T (*1*HALT (*1*PC-SIGNAL) *3*S)))) (T (*1*BCC-RA-SR (*1*MC-PC *3*S) (*1*COND-FIELD *3*INS) (*1*EXT (*1*B) *3*DISP (*1*L)) *3*S)))))))) (PUT1-LST (QUOTE *1*SCC-ADDR-MODEP) (QUOTE (SEXPR (LAMBDA (*3*INS) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (*1*AND (*1*DATA-ADDR-MODEP (SETQ *2*TEMP2 (*1*S_MODE *3*INS)) (SETQ *2*TEMP1 (*1*S_RN *3*INS))) (*1*ALTERABLE-ADDR-MODEP *2*TEMP2 *2*TEMP1))))))) (PUT1-LST (QUOTE *1*SCC-EFFECT) (QUOTE (SEXPR (LAMBDA (*3*COND *3*CCR) (CONS (COND ((NOT (EQ (*1*B0P (*1*BRANCH-CC *3*COND *3*CCR)) *1*F)) (QUOTE 0)) (T (QUOTE 255))) *3*CCR))))) (PUT1-LST (QUOTE *1*SCC-INS) (QUOTE (SEXPR (LAMBDA (*3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X))) (COND ((NOT (EQ (*1*SCC-ADDR-MODEP *3*INS) *1*F)) (COND ((NOT (EQ (*1*MC-HALTP (SETQ *2*TEMP3 (*1*CAR (SETQ *2*TEMP2 (*1*MC-INSTATE (SETQ *2*TEMP1 (*1*B)) *3*INS *3*S))))) *1*F)) *2*TEMP3) (T (*1*MAPPING *2*TEMP1 (*1*SCC-EFFECT (*1*COND-FIELD *3*INS) (*1*MC-CCR *3*S)) *2*TEMP2)))) (T (*1*HALT (*1*MODE-SIGNAL) *3*S)))))))) (PUT1-LST (QUOTE *1*DBCC-LOOP) (QUOTE (SEXPR (LAMBDA (*3*RN *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X)) (*2*TEMP4 (QUOTE *1*X))) (COND ((EQUAL (*1*NAT-TO-INT (SETQ *2*TEMP4 (*1*SUB (SETQ *2*TEMP3 (*1*W)) (QUOTE 1) (*1*READ-DN *2*TEMP3 *3*RN *3*S))) *2*TEMP3) (QUOTE -1)) (*1*UPDATE-PC (*1*ADD (*1*L) (*1*MC-PC *3*S) (*1*WSZ)) (*1*WRITE-DN *2*TEMP3 *2*TEMP4 *3*RN *3*S))) (T (*1*UPDATE-PC (*1*ADD (SETQ *2*TEMP2 (*1*L)) (SETQ *2*TEMP1 (*1*MC-PC *3*S)) (*1*EXT *2*TEMP3 (*1*PC-WORD-READ *2*TEMP1 (*1*MC-MEM *3*S)) *2*TEMP2)) (*1*WRITE-DN *2*TEMP3 *2*TEMP4 *3*RN *3*S))))))))) (PUT1-LST (QUOTE *1*DBCC-INS) (QUOTE (SEXPR (LAMBDA (*3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*PC-WORD-READP (SETQ *2*TEMP1 (*1*MC-PC *3*S)) (*1*MC-MEM *3*S)) *1*F)) (COND ((NOT (EQ (*1*B0P (*1*BRANCH-CC (*1*COND-FIELD *3*INS) (*1*MC-CCR *3*S))) *1*F)) (*1*DBCC-LOOP (*1*S_RN *3*INS) *3*S)) (T (*1*UPDATE-PC (*1*ADD (*1*L) *2*TEMP1 (*1*WSZ)) *3*S)))) (T (*1*HALT (*1*PC-SIGNAL) *3*S)))))))) (PUT1-LST (QUOTE *1*ADDQ-ADDR-MODEP) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*INS) (LET ((*2*TEMP1 (QUOTE *1*X))) (*1*AND (*1*ALTERABLE-ADDR-MODEP (SETQ *2*TEMP1 (*1*S_MODE *3*INS)) (*1*S_RN *3*INS)) (*1*NOT (*1*BYTE-AN-DIRECT-MODEP *3*OPLEN *2*TEMP1)))))))) (PUT1-LST (QUOTE *1*ADDQ-INS) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (COND ((NOT (EQ (*1*ADDQ-ADDR-MODEP *3*OPLEN *3*INS) *1*F)) (COND ((NOT (EQ (*1*AN-DIRECT-MODEP (*1*S_MODE *3*INS)) *1*F)) (*1*WRITE-AN (SETQ *2*TEMP2 (*1*L)) (*1*ADD *2*TEMP2 (*1*READ-AN *2*TEMP2 (SETQ *2*TEMP1 (*1*S_RN *3*INS)) *3*S) (*1*I-DATA (*1*D_RN *3*INS))) *2*TEMP1 *3*S)) (T (*1*ADD-MAPPING (*1*I-DATA (*1*D_RN *3*INS)) *3*OPLEN *3*INS *3*S)))) (T (*1*HALT (*1*MODE-SIGNAL) *3*S)))))))) (PUT1-LST (QUOTE *1*SUBQ-ADDR-MODEP) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*INS) (LET ((*2*TEMP1 (QUOTE *1*X))) (*1*AND (*1*ALTERABLE-ADDR-MODEP (SETQ *2*TEMP1 (*1*S_MODE *3*INS)) (*1*S_RN *3*INS)) (*1*NOT (*1*BYTE-AN-DIRECT-MODEP *3*OPLEN *2*TEMP1)))))))) (PUT1-LST (QUOTE *1*SUBQ-INS) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (COND ((NOT (EQ (*1*SUBQ-ADDR-MODEP *3*OPLEN *3*INS) *1*F)) (COND ((NOT (EQ (*1*AN-DIRECT-MODEP (*1*S_MODE *3*INS)) *1*F)) (*1*WRITE-AN (SETQ *2*TEMP2 (*1*L)) (*1*SUB *2*TEMP2 (*1*I-DATA (*1*D_RN *3*INS)) (*1*READ-AN *2*TEMP2 (SETQ *2*TEMP1 (*1*S_RN *3*INS)) *3*S)) *2*TEMP1 *3*S)) (T (*1*SUB-MAPPING (*1*I-DATA (*1*D_RN *3*INS)) *3*OPLEN *3*INS *3*S)))) (T (*1*HALT (*1*MODE-SIGNAL) *3*S)))))))) (PUT1-LST (QUOTE *1*SCC-GROUP) (QUOTE (SEXPR (LAMBDA (*3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (COND ((EQUAL (SETQ *2*TEMP2 (*1*OP-LEN *3*INS)) (*1*Q)) (COND ((EQUAL (SETQ *2*TEMP1 (*1*S_MODE *3*INS)) (QUOTE 1)) (*1*DBCC-INS *3*INS *3*S)) ((NOT (EQ (*1*AND (COND ((EQUAL *2*TEMP1 (QUOTE 7)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*LESSP (QUOTE 1) (*1*S_RN *3*INS))) *1*F)) (*1*HALT (QUOTE TRAPCC-UNSPECIFIED) *3*S)) (T (*1*SCC-INS *3*INS *3*S)))) ((NOT (EQ (*1*B0P (*1*BITN *3*INS (QUOTE 8))) *1*F)) (*1*ADDQ-INS *2*TEMP2 *3*INS *3*S)) (T (*1*SUBQ-INS *2*TEMP2 *3*INS *3*S)))))))) (PUT1-LST (QUOTE *1*MOVEQ-INS) (QUOTE (SEXPR (LAMBDA (*3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (COND ((NOT (EQ (*1*B0P (*1*BITN *3*INS (QUOTE 8))) *1*F)) (*1*D-MAPPING (SETQ *2*TEMP2 (*1*L)) (*1*MOVE-EFFECT *2*TEMP2 (*1*EXT (SETQ *2*TEMP1 (*1*B)) (*1*HEAD *3*INS *2*TEMP1) *2*TEMP2) (*1*MC-CCR *3*S)) (*1*D_RN *3*INS) *3*S)) (T (*1*HALT (*1*RESERVED-SIGNAL) *3*S)))))))) (PUT1-LST (QUOTE *1*CMP-CVZNX) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*SOPD *3*DOPD *3*CCR) (*1*CVZNX (*1*SUB-C *3*OPLEN *3*SOPD *3*DOPD) (*1*SUB-V *3*OPLEN *3*SOPD *3*DOPD) (*1*SUB-Z *3*OPLEN *3*SOPD *3*DOPD) (*1*SUB-N *3*OPLEN *3*SOPD *3*DOPD) (*1*CCR-X *3*CCR)))))) (PUT1-LST (QUOTE *1*CMP-ADDR-MODEP) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*INS) (LET ((*2*TEMP1 (QUOTE *1*X))) (*1*AND (*1*ADDR-MODEP (SETQ *2*TEMP1 (*1*S_MODE *3*INS)) (*1*S_RN *3*INS)) (*1*NOT (*1*BYTE-AN-DIRECT-MODEP *3*OPLEN *2*TEMP1)))))))) (PUT1-LST (QUOTE *1*CMP-INS) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (COND ((NOT (EQ (*1*CMP-ADDR-MODEP *3*OPLEN *3*INS) *1*F)) (COND ((NOT (EQ (*1*MC-HALTP (SETQ *2*TEMP2 (*1*CAR (SETQ *2*TEMP1 (*1*MC-INSTATE *3*OPLEN *3*INS *3*S))))) *1*F)) *2*TEMP2) (T (*1*UPDATE-CCR (*1*CMP-CVZNX *3*OPLEN (*1*OPERAND *3*OPLEN (*1*CDR *2*TEMP1) *2*TEMP2) (*1*READ-DN *3*OPLEN (*1*D_RN *3*INS) *3*S) (*1*MC-CCR *3*S)) *2*TEMP2)))) (T (*1*HALT (*1*MODE-SIGNAL) *3*S)))))))) (PUT1-LST (QUOTE *1*CMPA-ADDR-MODEP) (QUOTE (SEXPR (LAMBDA (*3*INS) (*1*ADDR-MODEP (*1*S_MODE *3*INS) (*1*S_RN *3*INS)))))) (PUT1-LST (QUOTE *1*CMPA-INS) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X))) (COND ((NOT (EQ (*1*CMPA-ADDR-MODEP *3*INS) *1*F)) (COND ((NOT (EQ (*1*MC-HALTP (SETQ *2*TEMP3 (*1*CAR (SETQ *2*TEMP2 (*1*MC-INSTATE *3*OPLEN *3*INS *3*S))))) *1*F)) *2*TEMP3) (T (*1*UPDATE-CCR (*1*CMP-CVZNX (SETQ *2*TEMP1 (*1*L)) (*1*EXT *3*OPLEN (*1*OPERAND *3*OPLEN (*1*CDR *2*TEMP2) *3*S) *2*TEMP1) (*1*READ-AN *2*TEMP1 (*1*D_RN *3*INS) *2*TEMP3) (*1*MC-CCR *3*S)) *2*TEMP3)))) (T (*1*HALT (*1*MODE-SIGNAL) *3*S)))))))) (PUT1-LST (QUOTE *1*EOR-Z) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*SOPD *3*DOPD) (PROGN *3*OPLEN (COND ((EQUAL (*1*LOGEOR *3*SOPD *3*DOPD) (QUOTE 0)) (*1*B1)) (T (*1*B0)))))))) (PUT1-LST (QUOTE *1*EOR-N) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*SOPD *3*DOPD) (*1*B-EOR (*1*MBIT *3*SOPD *3*OPLEN) (*1*MBIT *3*DOPD *3*OPLEN)))))) (PUT1-LST (QUOTE *1*EOR-CVZNX) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*SOPD *3*DOPD *3*CCR) (LET ((*2*TEMP1 (QUOTE *1*X))) (*1*CVZNX (SETQ *2*TEMP1 (*1*B0)) *2*TEMP1 (*1*EOR-Z *3*OPLEN *3*SOPD *3*DOPD) (*1*EOR-N *3*OPLEN *3*SOPD *3*DOPD) (*1*CCR-X *3*CCR))))))) (PUT1-LST (QUOTE *1*EOR-EFFECT) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*SOPD *3*DOPD *3*CCR) (CONS (*1*LOGEOR *3*SOPD *3*DOPD) (*1*EOR-CVZNX *3*OPLEN *3*SOPD *3*DOPD *3*CCR)))))) (PUT1-LST (QUOTE *1*EOR&EORI-ADDR-MODEP) (QUOTE (SEXPR (LAMBDA (*3*INS) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (*1*AND (*1*DATA-ADDR-MODEP (SETQ *2*TEMP2 (*1*S_MODE *3*INS)) (SETQ *2*TEMP1 (*1*S_RN *3*INS))) (*1*ALTERABLE-ADDR-MODEP *2*TEMP2 *2*TEMP1))))))) (PUT1-LST (QUOTE *1*EOR-MAPPING) (QUOTE (SEXPR (LAMBDA (*3*SOPD *3*OPLEN *3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (COND ((NOT (EQ (*1*MC-HALTP (SETQ *2*TEMP2 (*1*CAR (SETQ *2*TEMP1 (*1*MC-INSTATE *3*OPLEN *3*INS *3*S))))) *1*F)) *2*TEMP2) (T (*1*MAPPING *3*OPLEN (*1*EOR-EFFECT *3*OPLEN *3*SOPD (*1*OPERAND *3*OPLEN (*1*CDR *2*TEMP1) *3*S) (*1*MC-CCR *3*S)) *2*TEMP1)))))))) (PUT1-LST (QUOTE *1*EOR-INS) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*INS *3*S) (COND ((NOT (EQ (*1*EOR&EORI-ADDR-MODEP *3*INS) *1*F)) (*1*EOR-MAPPING (*1*READ-DN *3*OPLEN (*1*D_RN *3*INS) *3*S) *3*OPLEN *3*INS *3*S)) (T (*1*HALT (*1*MODE-SIGNAL) *3*S))))))) (PUT1-LST (QUOTE *1*CMPM-MAPPING) (QUOTE (SEXPR (LAMBDA (*3*ADDR *3*OPLEN *3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (COND ((NOT (EQ (*1*READ-MEMP (*1*CDR (SETQ *2*TEMP2 (*1*CDR (SETQ *2*TEMP1 (*1*ADDR-POSTINC *3*OPLEN (*1*D_RN *3*INS) *3*S))))) (*1*MC-MEM *3*S) (*1*OP-SZ *3*OPLEN)) *1*F)) (*1*UPDATE-CCR (*1*CMP-CVZNX *3*OPLEN (*1*OPERAND *3*OPLEN *3*ADDR *3*S) (*1*OPERAND *3*OPLEN *2*TEMP2 *3*S) (*1*MC-CCR *3*S)) (*1*CAR *2*TEMP1))) (T (*1*HALT (*1*READ-SIGNAL) *3*S)))))))) (PUT1-LST (QUOTE *1*CMPM-INS) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (COND ((NOT (EQ (*1*READ-MEMP (*1*CDR (SETQ *2*TEMP2 (*1*CDR (SETQ *2*TEMP1 (*1*ADDR-POSTINC *3*OPLEN (*1*S_RN *3*INS) *3*S))))) (*1*MC-MEM *3*S) (*1*OP-SZ *3*OPLEN)) *1*F)) (*1*CMPM-MAPPING *2*TEMP2 *3*OPLEN *3*INS (*1*CAR *2*TEMP1))) (T (*1*HALT (*1*READ-SIGNAL) *3*S)))))))) (PUT1-LST (QUOTE *1*CMP-GROUP) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*INS *3*S) (LET NIL (COND ((NOT (EQ (*1*B0P (*1*BITN *3*INS (QUOTE 8))) *1*F)) (COND ((EQUAL *3*OPLEN (*1*Q)) (*1*CMPA-INS (*1*W) *3*INS *3*S)) (T (*1*CMP-INS *3*OPLEN *3*INS *3*S)))) ((EQUAL *3*OPLEN (*1*Q)) (*1*CMPA-INS (*1*L) *3*INS *3*S)) ((EQUAL (*1*S_MODE *3*INS) (QUOTE 1)) (*1*CMPM-INS *3*OPLEN *3*INS *3*S)) (T (*1*EOR-INS *3*OPLEN *3*INS *3*S)))))))) (PUT1-LST (QUOTE *1*MOVEP-WRITEP) (QUOTE (SEXPR (LAMBDA (*3*ADDR *3*MEM *3*N) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*ZEROP *3*N) *1*F)) (QUOTE *1*TRUE)) (T (*1*AND (*1*BYTE-WRITEP (*1*ADD (*1*L) *3*ADDR (*1*TIMES (QUOTE 2) (SETQ *2*TEMP1 (*1*SUB1 *3*N)))) *3*MEM) (*1*MOVEP-WRITEP *3*ADDR *3*MEM *2*TEMP1))))))))) (PUT1-LST (QUOTE *1*MOVEP-WRITE) (QUOTE (SEXPR (LAMBDA (*3*VALUE *3*ADDR *3*MEM *3*N) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*ZEROP *3*N) *1*F)) *3*MEM) (T (*1*MOVEP-WRITE (*1*TAIL *3*VALUE (*1*B)) *3*ADDR (*1*BYTE-WRITE *3*VALUE (*1*ADD (*1*L) *3*ADDR (*1*TIMES (QUOTE 2) (SETQ *2*TEMP1 (*1*SUB1 *3*N)))) *3*MEM) *2*TEMP1)))))))) (PUT1-LST (QUOTE *1*MOVEP-TO-MEM) (QUOTE (SEXPR (LAMBDA (*3*ADDR *3*OPLEN *3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (COND ((NOT (EQ (*1*MOVEP-WRITEP *3*ADDR (SETQ *2*TEMP2 (*1*MC-MEM *3*S)) (SETQ *2*TEMP1 (*1*OP-SZ *3*OPLEN))) *1*F)) (*1*UPDATE-MEM (*1*MOVEP-WRITE (*1*READ-DN *3*OPLEN (*1*D_RN *3*INS) *3*S) *3*ADDR *2*TEMP2 *2*TEMP1) *3*S)) (T (*1*HALT (*1*WRITE-SIGNAL) *3*S)))))))) (PUT1-LST (QUOTE *1*MOVEP-READP) (QUOTE (SEXPR (LAMBDA (*3*ADDR *3*MEM *3*N) (COND ((NOT (EQ (*1*ZEROP *3*N) *1*F)) (QUOTE *1*TRUE)) (T (*1*AND (*1*BYTE-READP *3*ADDR *3*MEM) (*1*MOVEP-READP (*1*ADD (*1*L) *3*ADDR (*1*WSZ)) *3*MEM (*1*SUB1 *3*N))))))))) (PUT1-LST (QUOTE *1*MOVEP-READ) (QUOTE (SEXPR (LAMBDA (*3*ADDR *3*MEM *3*N) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*ZEROP *3*N) *1*F)) (QUOTE 0)) (T (*1*APP (*1*B) (*1*BYTE-READ (*1*ADD (*1*L) *3*ADDR (*1*TIMES (QUOTE 2) (SETQ *2*TEMP1 (*1*SUB1 *3*N)))) *3*MEM) (*1*MOVEP-READ *3*ADDR *3*MEM *2*TEMP1))))))))) (PUT1-LST (QUOTE *1*MOVEP-TO-REG) (QUOTE (SEXPR (LAMBDA (*3*ADDR *3*OPLEN *3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (COND ((NOT (EQ (*1*MOVEP-READP *3*ADDR (SETQ *2*TEMP2 (*1*MC-MEM *3*S)) (SETQ *2*TEMP1 (*1*OP-SZ *3*OPLEN))) *1*F)) (*1*WRITE-DN *3*OPLEN (*1*MOVEP-READ *3*ADDR *2*TEMP2 *2*TEMP1) (*1*D_RN *3*INS) *3*S)) (T (*1*HALT (*1*READ-SIGNAL) *3*S)))))))) (PUT1-LST (QUOTE *1*EVENP) (QUOTE (SEXPR (LAMBDA (*3*X) (*1*B0P (*1*BCAR *3*X)))))) (PUT1-LST (QUOTE *1*MOVEP-ADDR) (QUOTE (SEXPR (LAMBDA (*3*S&ADDR) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*EVENP (SETQ *2*TEMP1 (*1*CDR (*1*CDR *3*S&ADDR)))) *1*F)) *2*TEMP1) (T (*1*ADD (*1*L) *2*TEMP1 (*1*BSZ))))))))) (PUT1-LST (QUOTE *1*MOVEP-INS) (QUOTE (SEXPR (LAMBDA (*3*OPMODE *3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (COND ((NOT (EQ (*1*MC-HALTP (SETQ *2*TEMP2 (*1*CAR (SETQ *2*TEMP1 (*1*ADDR-DISP (*1*MC-PC *3*S) (*1*S_RN *3*INS) *3*S))))) *1*F)) *2*TEMP2) ((NOT (EQ (*1*LESSP *3*OPMODE (QUOTE 6)) *1*F)) (COND ((EQUAL *3*OPMODE (QUOTE 4)) (*1*MOVEP-TO-REG (*1*MOVEP-ADDR *2*TEMP1) (*1*W) *3*INS *2*TEMP2)) (T (*1*MOVEP-TO-REG (*1*MOVEP-ADDR *2*TEMP1) (*1*L) *3*INS *2*TEMP2)))) ((EQUAL *3*OPMODE (QUOTE 6)) (*1*MOVEP-TO-MEM (*1*MOVEP-ADDR *2*TEMP1) (*1*W) *3*INS *2*TEMP2)) (T (*1*MOVEP-TO-MEM (*1*MOVEP-ADDR *2*TEMP1) (*1*L) *3*INS *2*TEMP2)))))))) (PUT1-LST (QUOTE *1*BXXX-OPLEN) (QUOTE (SEXPR (LAMBDA (*3*SMODE) (COND ((NOT (EQ (*1*DN-DIRECT-MODEP *3*SMODE) *1*F)) (*1*L)) (T (*1*B))))))) (PUT1-LST (QUOTE *1*BXXX-NUM) (QUOTE (SEXPR (LAMBDA (*3*SMODE *3*BNUM) (COND ((NOT (EQ (*1*DN-DIRECT-MODEP *3*SMODE) *1*F)) (*1*HEAD *3*BNUM (QUOTE 5))) (T (*1*HEAD *3*BNUM (QUOTE 3)))))))) (PUT1-LST (QUOTE *1*BXXX-OPD) (QUOTE (SEXPR (LAMBDA (*3*SMODE *3*S&ADDR) (LET NIL (COND ((NOT (EQ (*1*DN-DIRECT-MODEP *3*SMODE) *1*F)) (*1*READ-DN (*1*L) (*1*CDR (*1*CDR *3*S&ADDR)) (*1*CAR *3*S&ADDR))) (T (*1*OPERAND (*1*B) (*1*CDR *3*S&ADDR) (*1*CAR *3*S&ADDR))))))))) (PUT1-LST (QUOTE *1*BCHG-ADDR-MODEP) (QUOTE (SEXPR (LAMBDA (*3*INS) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (*1*AND (*1*DATA-ADDR-MODEP (SETQ *2*TEMP2 (*1*S_MODE *3*INS)) (SETQ *2*TEMP1 (*1*S_RN *3*INS))) (*1*ALTERABLE-ADDR-MODEP *2*TEMP2 *2*TEMP1))))))) (PUT1-LST (QUOTE *1*BCHG-EFFECT) (QUOTE (SEXPR (LAMBDA (*3*BNUM *3*OPD *3*CCR) (LET ((*2*TEMP1 (QUOTE *1*X))) (CONS (*1*SETN *3*OPD *3*BNUM (SETQ *2*TEMP1 (*1*B-NOT (*1*BITN *3*OPD *3*BNUM)))) (*1*SET-Z *2*TEMP1 *3*CCR))))))) (PUT1-LST (QUOTE *1*BCHG-INS) (QUOTE (SEXPR (LAMBDA (*3*BNUM *3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X))) (COND ((NOT (EQ (*1*BCHG-ADDR-MODEP *3*INS) *1*F)) (COND ((NOT (EQ (*1*MC-HALTP (SETQ *2*TEMP3 (*1*CAR (SETQ *2*TEMP2 (*1*MC-INSTATE (*1*B) *3*INS *3*S))))) *1*F)) *2*TEMP3) (T (*1*MAPPING (*1*BXXX-OPLEN (SETQ *2*TEMP1 (*1*S_MODE *3*INS))) (*1*BCHG-EFFECT (*1*BXXX-NUM *2*TEMP1 *3*BNUM) (*1*BXXX-OPD *2*TEMP1 *2*TEMP2) (*1*MC-CCR *3*S)) *2*TEMP2)))) (T (*1*HALT (*1*MODE-SIGNAL) *3*S)))))))) (PUT1-LST (QUOTE *1*BCLR-ADDR-MODEP) (QUOTE (SEXPR (LAMBDA (*3*INS) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (*1*AND (*1*DATA-ADDR-MODEP (SETQ *2*TEMP2 (*1*S_MODE *3*INS)) (SETQ *2*TEMP1 (*1*S_RN *3*INS))) (*1*ALTERABLE-ADDR-MODEP *2*TEMP2 *2*TEMP1))))))) (PUT1-LST (QUOTE *1*BCLR-EFFECT) (QUOTE (SEXPR (LAMBDA (*3*BNUM *3*OPD *3*CCR) (CONS (*1*SETN *3*OPD *3*BNUM (*1*B0)) (*1*SET-Z (*1*B-NOT (*1*BITN *3*OPD *3*BNUM)) *3*CCR)))))) (PUT1-LST (QUOTE *1*BCLR-INS) (QUOTE (SEXPR (LAMBDA (*3*BNUM *3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X))) (COND ((NOT (EQ (*1*BCLR-ADDR-MODEP *3*INS) *1*F)) (COND ((NOT (EQ (*1*MC-HALTP (SETQ *2*TEMP3 (*1*CAR (SETQ *2*TEMP2 (*1*MC-INSTATE (*1*B) *3*INS *3*S))))) *1*F)) *2*TEMP3) (T (*1*MAPPING (*1*BXXX-OPLEN (SETQ *2*TEMP1 (*1*S_MODE *3*INS))) (*1*BCLR-EFFECT (*1*BXXX-NUM *2*TEMP1 *3*BNUM) (*1*BXXX-OPD *2*TEMP1 *2*TEMP2) (*1*MC-CCR *3*S)) *2*TEMP2)))) (T (*1*HALT (*1*MODE-SIGNAL) *3*S)))))))) (PUT1-LST (QUOTE *1*BSET-ADDR-MODEP) (QUOTE (SEXPR (LAMBDA (*3*INS) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (*1*AND (*1*DATA-ADDR-MODEP (SETQ *2*TEMP2 (*1*S_MODE *3*INS)) (SETQ *2*TEMP1 (*1*S_RN *3*INS))) (*1*ALTERABLE-ADDR-MODEP *2*TEMP2 *2*TEMP1))))))) (PUT1-LST (QUOTE *1*BSET-EFFECT) (QUOTE (SEXPR (LAMBDA (*3*BNUM *3*OPD *3*CCR) (CONS (*1*SETN *3*OPD *3*BNUM (*1*B1)) (*1*SET-Z (*1*B-NOT (*1*BITN *3*OPD *3*BNUM)) *3*CCR)))))) (PUT1-LST (QUOTE *1*BSET-INS) (QUOTE (SEXPR (LAMBDA (*3*BNUM *3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X))) (COND ((NOT (EQ (*1*BSET-ADDR-MODEP *3*INS) *1*F)) (COND ((NOT (EQ (*1*MC-HALTP (SETQ *2*TEMP3 (*1*CAR (SETQ *2*TEMP2 (*1*MC-INSTATE (*1*B) *3*INS *3*S))))) *1*F)) *2*TEMP3) (T (*1*MAPPING (*1*BXXX-OPLEN (SETQ *2*TEMP1 (*1*S_MODE *3*INS))) (*1*BSET-EFFECT (*1*BXXX-NUM *2*TEMP1 *3*BNUM) (*1*BXXX-OPD *2*TEMP1 *2*TEMP2) (*1*MC-CCR *3*S)) *2*TEMP2)))) (T (*1*HALT (*1*MODE-SIGNAL) *3*S)))))))) (PUT1-LST (QUOTE *1*BTST-ADDR-MODEP) (QUOTE (SEXPR (LAMBDA (*3*INS) (*1*DATA-ADDR-MODEP (*1*S_MODE *3*INS) (*1*S_RN *3*INS)))))) (PUT1-LST (QUOTE *1*BTST-INS) (QUOTE (SEXPR (LAMBDA (*3*BNUM *3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X))) (COND ((NOT (EQ (*1*BTST-ADDR-MODEP *3*INS) *1*F)) (COND ((NOT (EQ (*1*MC-HALTP (SETQ *2*TEMP3 (*1*CAR (SETQ *2*TEMP2 (*1*MC-INSTATE (*1*B) *3*INS *3*S))))) *1*F)) *2*TEMP3) (T (*1*UPDATE-CCR (*1*SET-Z (*1*B-NOT (*1*BITN (*1*BXXX-OPD (SETQ *2*TEMP1 (*1*S_MODE *3*INS)) *2*TEMP2) (*1*BXXX-NUM *2*TEMP1 *3*BNUM))) (*1*MC-CCR *3*S)) *2*TEMP3)))) (T (*1*HALT (*1*MODE-SIGNAL) *3*S)))))))) (PUT1-LST (QUOTE *1*BIT-INS) (QUOTE (SEXPR (LAMBDA (*3*BNUM *3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*LESSP (SETQ *2*TEMP1 (*1*BITS *3*INS (QUOTE 6) (QUOTE 7))) (QUOTE 2)) *1*F)) (COND ((EQUAL *2*TEMP1 (QUOTE 0)) (*1*BTST-INS *3*BNUM *3*INS *3*S)) (T (*1*BCHG-INS *3*BNUM *3*INS *3*S)))) ((EQUAL *2*TEMP1 (QUOTE 2)) (*1*BCLR-INS *3*BNUM *3*INS *3*S)) (T (*1*BSET-INS *3*BNUM *3*INS *3*S)))))))) (PUT1-LST (QUOTE *1*D-BIT-SUBGROUP) (QUOTE (SEXPR (LAMBDA (*3*INS *3*S) (COND ((EQUAL (*1*S_MODE *3*INS) (QUOTE 1)) (*1*MOVEP-INS (*1*OPMODE-FIELD *3*INS) *3*INS *3*S)) (T (*1*BIT-INS (*1*READ-DN (*1*L) (*1*D_RN *3*INS) *3*S) *3*INS *3*S))))))) (PUT1-LST (QUOTE *1*S-BIT-SUBGROUP) (QUOTE (SEXPR (LAMBDA (*3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X))) (COND ((NOT (EQ (*1*PC-WORD-READP (SETQ *2*TEMP3 (*1*MC-PC *3*S)) (SETQ *2*TEMP2 (*1*MC-MEM *3*S))) *1*F)) (COND ((EQUAL (*1*PC-BYTE-READ *2*TEMP3 *2*TEMP2) (QUOTE 0)) (*1*BIT-INS (*1*PC-BYTE-READ (*1*ADD (SETQ *2*TEMP1 (*1*L)) *2*TEMP3 (*1*BSZ)) *2*TEMP2) *3*INS (*1*UPDATE-PC (*1*ADD *2*TEMP1 *2*TEMP3 (*1*WSZ)) *3*S))) (T (*1*HALT (*1*RESERVED-SIGNAL) *3*S)))) (T (*1*HALT (*1*PC-SIGNAL) *3*S)))))))) (PUT1-LST (QUOTE *1*ORI-ADDR-MODEP) (QUOTE (SEXPR (LAMBDA (*3*INS) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (*1*AND (*1*DATA-ADDR-MODEP (SETQ *2*TEMP2 (*1*S_MODE *3*INS)) (SETQ *2*TEMP1 (*1*S_RN *3*INS))) (*1*ALTERABLE-ADDR-MODEP *2*TEMP2 *2*TEMP1))))))) (PUT1-LST (QUOTE *1*ORI-INS) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (COND ((NOT (EQ (*1*MC-HALTP (SETQ *2*TEMP2 (*1*CAR (SETQ *2*TEMP1 (*1*IMMEDIATE *3*OPLEN (*1*MC-PC *3*S) *3*S))))) *1*F)) *2*TEMP2) ((NOT (EQ (*1*ORI-ADDR-MODEP *3*INS) *1*F)) (*1*OR-MAPPING (*1*CDR (*1*CDR *2*TEMP1)) *3*OPLEN *3*INS *2*TEMP2)) (T (*1*HALT (*1*MODE-SIGNAL) *3*S)))))))) (PUT1-LST (QUOTE *1*ORI-TO-CCR-INS) (QUOTE (SEXPR (LAMBDA (*3*PC *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (COND ((NOT (EQ (*1*PC-WORD-READP *3*PC (SETQ *2*TEMP2 (*1*MC-MEM *3*S))) *1*F)) (COND ((EQUAL (*1*PC-BYTE-READ *3*PC *2*TEMP2) (QUOTE 0)) (*1*UPDATE-CCR (*1*LOGOR (*1*PC-BYTE-READ (*1*ADD (SETQ *2*TEMP1 (*1*L)) *3*PC (*1*BSZ)) *2*TEMP2) (*1*MC-CCR *3*S)) (*1*UPDATE-PC (*1*ADD *2*TEMP1 *3*PC (*1*WSZ)) *3*S))) (T (*1*HALT (*1*RESERVED-SIGNAL) *3*S)))) (T (*1*HALT (*1*PC-SIGNAL) *3*S)))))))) (PUT1-LST (QUOTE *1*ORI-SUBGROUP) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*INS *3*S) (COND ((EQUAL *3*OPLEN (*1*Q)) (*1*HALT (QUOTE CMP2-CHK2-UNSPECIFIED) *3*S)) ((EQUAL (*1*HEAD *3*INS (QUOTE 6)) (QUOTE 60)) (COND ((EQUAL *3*OPLEN (*1*B)) (*1*ORI-TO-CCR-INS (*1*MC-PC *3*S) *3*S)) ((EQUAL *3*OPLEN (*1*W)) (*1*HALT (QUOTE ORI-TO-SR-PRIVILEGED) *3*S)) (T (*1*HALT (*1*RESERVED-SIGNAL) *3*S)))) (T (*1*ORI-INS *3*OPLEN *3*INS *3*S))))))) (PUT1-LST (QUOTE *1*ANDI-ADDR-MODEP) (QUOTE (SEXPR (LAMBDA (*3*INS) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (*1*AND (*1*DATA-ADDR-MODEP (SETQ *2*TEMP2 (*1*S_MODE *3*INS)) (SETQ *2*TEMP1 (*1*S_RN *3*INS))) (*1*ALTERABLE-ADDR-MODEP *2*TEMP2 *2*TEMP1))))))) (PUT1-LST (QUOTE *1*ANDI-INS) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*MC-HALTP *3*S) *1*F)) (*1*CAR (*1*IMMEDIATE *3*OPLEN (*1*MC-PC *3*S) *3*S))) ((NOT (EQ (*1*ANDI-ADDR-MODEP *3*INS) *1*F)) (*1*AND-MAPPING (*1*CDR (*1*CDR (SETQ *2*TEMP1 (*1*IMMEDIATE *3*OPLEN (*1*MC-PC *3*S) *3*S)))) *3*OPLEN *3*INS (*1*CAR *2*TEMP1))) (T (*1*HALT (*1*MODE-SIGNAL) *3*S)))))))) (PUT1-LST (QUOTE *1*ANDI-TO-CCR-INS) (QUOTE (SEXPR (LAMBDA (*3*PC *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (COND ((NOT (EQ (*1*PC-WORD-READP *3*PC (SETQ *2*TEMP2 (*1*MC-MEM *3*S))) *1*F)) (COND ((EQUAL (*1*PC-BYTE-READ *3*PC *2*TEMP2) (QUOTE 0)) (*1*UPDATE-CCR (*1*LOGAND (*1*PC-BYTE-READ (*1*ADD (SETQ *2*TEMP1 (*1*L)) *3*PC (*1*BSZ)) *2*TEMP2) (*1*MC-CCR *3*S)) (*1*UPDATE-PC (*1*ADD *2*TEMP1 *3*PC (*1*WSZ)) *3*S))) (T (*1*HALT (*1*RESERVED-SIGNAL) *3*S)))) (T (*1*HALT (*1*PC-SIGNAL) *3*S)))))))) (PUT1-LST (QUOTE *1*ANDI-SUBGROUP) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*INS *3*S) (COND ((EQUAL *3*OPLEN (*1*Q)) (*1*HALT (QUOTE CMP2-CHK2-UNSPECIFIED) *3*S)) ((EQUAL (*1*HEAD *3*INS (QUOTE 6)) (QUOTE 60)) (COND ((EQUAL *3*OPLEN (*1*B)) (*1*ANDI-TO-CCR-INS (*1*MC-PC *3*S) *3*S)) ((EQUAL *3*OPLEN (*1*W)) (*1*HALT (QUOTE ANDI-TO-SR-UNSPECIFIED) *3*S)) (T (*1*HALT (*1*RESERVED-SIGNAL) *3*S)))) (T (*1*ANDI-INS *3*OPLEN *3*INS *3*S))))))) (PUT1-LST (QUOTE *1*SUBI-ADDR-MODEP) (QUOTE (SEXPR (LAMBDA (*3*INS) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (*1*AND (*1*DATA-ADDR-MODEP (SETQ *2*TEMP2 (*1*S_MODE *3*INS)) (SETQ *2*TEMP1 (*1*S_RN *3*INS))) (*1*ALTERABLE-ADDR-MODEP *2*TEMP2 *2*TEMP1))))))) (PUT1-LST (QUOTE *1*SUBI-INS) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (COND ((NOT (EQ (*1*MC-HALTP (SETQ *2*TEMP2 (*1*CAR (SETQ *2*TEMP1 (*1*IMMEDIATE *3*OPLEN (*1*MC-PC *3*S) *3*S))))) *1*F)) *2*TEMP2) ((NOT (EQ (*1*SUBI-ADDR-MODEP *3*INS) *1*F)) (*1*SUB-MAPPING (*1*CDR (*1*CDR *2*TEMP1)) *3*OPLEN *3*INS *2*TEMP2)) (T (*1*HALT (*1*MODE-SIGNAL) *3*S)))))))) (PUT1-LST (QUOTE *1*SUBI-SUBGROUP) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*INS *3*S) (COND ((EQUAL *3*OPLEN (*1*Q)) (*1*HALT (QUOTE CMP2-CHK2-UNSPECIFIED) *3*S)) (T (*1*SUBI-INS *3*OPLEN *3*INS *3*S))))))) (PUT1-LST (QUOTE *1*ADDI-ADDR-MODEP) (QUOTE (SEXPR (LAMBDA (*3*INS) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (*1*AND (*1*DATA-ADDR-MODEP (SETQ *2*TEMP2 (*1*S_MODE *3*INS)) (SETQ *2*TEMP1 (*1*S_RN *3*INS))) (*1*ALTERABLE-ADDR-MODEP *2*TEMP2 *2*TEMP1))))))) (PUT1-LST (QUOTE *1*ADDI-INS) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (COND ((NOT (EQ (*1*MC-HALTP (SETQ *2*TEMP2 (*1*CAR (SETQ *2*TEMP1 (*1*IMMEDIATE *3*OPLEN (*1*MC-PC *3*S) *3*S))))) *1*F)) *2*TEMP2) ((NOT (EQ (*1*ADDI-ADDR-MODEP *3*INS) *1*F)) (*1*ADD-MAPPING (*1*CDR (*1*CDR *2*TEMP1)) *3*OPLEN *3*INS *2*TEMP2)) (T (*1*HALT (*1*MODE-SIGNAL) *3*S)))))))) (PUT1-LST (QUOTE *1*ADDI-SUBGROUP) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*INS *3*S) (COND ((EQUAL *3*OPLEN (*1*Q)) (*1*HALT (QUOTE RTM-CALLM-UNSPECIFIED) *3*S)) (T (*1*ADDI-INS *3*OPLEN *3*INS *3*S))))))) (PUT1-LST (QUOTE *1*EORI-INS) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (COND ((NOT (EQ (*1*MC-HALTP (SETQ *2*TEMP2 (*1*CAR (SETQ *2*TEMP1 (*1*IMMEDIATE *3*OPLEN (*1*MC-PC *3*S) *3*S))))) *1*F)) *2*TEMP2) ((NOT (EQ (*1*EOR&EORI-ADDR-MODEP *3*INS) *1*F)) (*1*EOR-MAPPING (*1*CDR (*1*CDR *2*TEMP1)) *3*OPLEN *3*INS *2*TEMP2)) (T (*1*HALT (*1*MODE-SIGNAL) *3*S)))))))) (PUT1-LST (QUOTE *1*EORI-TO-CCR-INS) (QUOTE (SEXPR (LAMBDA (*3*PC *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (COND ((NOT (EQ (*1*PC-WORD-READP *3*PC (SETQ *2*TEMP2 (*1*MC-MEM *3*S))) *1*F)) (COND ((EQUAL (*1*PC-BYTE-READ *3*PC *2*TEMP2) (QUOTE 0)) (*1*UPDATE-CCR (*1*LOGEOR (*1*PC-BYTE-READ (*1*ADD (SETQ *2*TEMP1 (*1*L)) *3*PC (*1*BSZ)) *2*TEMP2) (*1*MC-CCR *3*S)) (*1*UPDATE-PC (*1*ADD *2*TEMP1 *3*PC (*1*WSZ)) *3*S))) (T (*1*HALT (*1*RESERVED-SIGNAL) *3*S)))) (T (*1*HALT (*1*PC-SIGNAL) *3*S)))))))) (PUT1-LST (QUOTE *1*EORI-SUBGROUP) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*INS *3*S) (COND ((EQUAL *3*OPLEN (*1*Q)) (*1*HALT (QUOTE CAS-CAS2-UNSPECIFIED) *3*S)) ((EQUAL (*1*HEAD *3*INS (QUOTE 6)) (QUOTE 60)) (COND ((EQUAL *3*OPLEN (*1*B)) (*1*EORI-TO-CCR-INS (*1*MC-PC *3*S) *3*S)) ((EQUAL *3*OPLEN (*1*W)) (*1*HALT (QUOTE EORI-TO-SR-UNSPECIFIED) *3*S)) (T (*1*HALT (*1*RESERVED-SIGNAL) *3*S)))) (T (*1*EORI-INS *3*OPLEN *3*INS *3*S))))))) (PUT1-LST (QUOTE *1*CMPI-ADDR-MODEP) (QUOTE (SEXPR (LAMBDA (*3*INS) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (*1*AND (*1*DATA-ADDR-MODEP (SETQ *2*TEMP2 (*1*S_MODE *3*INS)) (SETQ *2*TEMP1 (*1*S_RN *3*INS))) (*1*NOT (*1*IDATA-MODEP *2*TEMP2 *2*TEMP1)))))))) (PUT1-LST (QUOTE *1*CMPI-MAPPING) (QUOTE (SEXPR (LAMBDA (*3*IDATA *3*OPLEN *3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (COND ((NOT (EQ (*1*MC-HALTP (SETQ *2*TEMP2 (*1*CAR (SETQ *2*TEMP1 (*1*MC-INSTATE *3*OPLEN *3*INS *3*S))))) *1*F)) *2*TEMP2) (T (*1*UPDATE-CCR (*1*CMP-CVZNX *3*OPLEN *3*IDATA (*1*OPERAND *3*OPLEN (*1*CDR *2*TEMP1) *3*S) (*1*MC-CCR *3*S)) *2*TEMP2)))))))) (PUT1-LST (QUOTE *1*CMPI-INS) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (COND ((NOT (EQ (*1*MC-HALTP (SETQ *2*TEMP2 (*1*CAR (SETQ *2*TEMP1 (*1*IMMEDIATE *3*OPLEN (*1*MC-PC *3*S) *3*S))))) *1*F)) *2*TEMP2) ((NOT (EQ (*1*CMPI-ADDR-MODEP *3*INS) *1*F)) (*1*CMPI-MAPPING (*1*CDR (*1*CDR *2*TEMP1)) *3*OPLEN *3*INS *2*TEMP2)) (T (*1*HALT (*1*MODE-SIGNAL) *3*S)))))))) (PUT1-LST (QUOTE *1*CMPI-SUBGROUP) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*INS *3*S) (COND ((EQUAL *3*OPLEN (*1*Q)) (*1*HALT (QUOTE CAS-CAS2-UNSPECIFIED) *3*S)) (T (*1*CMPI-INS *3*OPLEN *3*INS *3*S))))))) (PUT1-LST (QUOTE *1*BIT-GROUP) (QUOTE (SEXPR (LAMBDA (*3*INS *3*S) (LET NIL (COND ((NOT (EQ (*1*B0P (*1*BITN *3*INS (QUOTE 8))) *1*F)) (COND ((NOT (EQ (*1*B0P (*1*BITN *3*INS (QUOTE 11))) *1*F)) (COND ((NOT (EQ (*1*B0P (*1*BITN *3*INS (QUOTE 10))) *1*F)) (COND ((NOT (EQ (*1*B0P (*1*BITN *3*INS (QUOTE 9))) *1*F)) (*1*ORI-SUBGROUP (*1*OP-LEN *3*INS) *3*INS *3*S)) (T (*1*ANDI-SUBGROUP (*1*OP-LEN *3*INS) *3*INS *3*S)))) ((NOT (EQ (*1*B0P (*1*BITN *3*INS (QUOTE 9))) *1*F)) (*1*SUBI-SUBGROUP (*1*OP-LEN *3*INS) *3*INS *3*S)) (T (*1*ADDI-SUBGROUP (*1*OP-LEN *3*INS) *3*INS *3*S)))) ((NOT (EQ (*1*B0P (*1*BITN *3*INS (QUOTE 10))) *1*F)) (COND ((NOT (EQ (*1*B0P (*1*BITN *3*INS (QUOTE 9))) *1*F)) (*1*S-BIT-SUBGROUP *3*INS *3*S)) (T (*1*EORI-SUBGROUP (*1*OP-LEN *3*INS) *3*INS *3*S)))) ((NOT (EQ (*1*B0P (*1*BITN *3*INS (QUOTE 9))) *1*F)) (*1*CMPI-SUBGROUP (*1*OP-LEN *3*INS) *3*INS *3*S)) (T (*1*HALT (QUOTE MOVES-CAS-CAS2-UNSPECIFIED) *3*S)))) (T (*1*D-BIT-SUBGROUP *3*INS *3*S)))))))) (PUT1-LST (QUOTE *1*OPCODE-FIELD) (QUOTE (SEXPR (LAMBDA (*3*INS) (*1*BITS *3*INS (QUOTE 12) (QUOTE 15)))))) (PUT1-LST (QUOTE *1*EXECUTE-INS) (QUOTE (SEXPR (LAMBDA (*3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*LESSP (SETQ *2*TEMP1 (*1*OPCODE-FIELD *3*INS)) (QUOTE 8)) *1*F)) (COND ((NOT (EQ (*1*LESSP *2*TEMP1 (QUOTE 4)) *1*F)) (COND ((NOT (EQ (*1*LESSP *2*TEMP1 (QUOTE 2)) *1*F)) (COND ((EQUAL *2*TEMP1 (QUOTE 0)) (*1*BIT-GROUP *3*INS *3*S)) (T (*1*MOVE-INS (*1*B) *3*INS *3*S)))) ((EQUAL *2*TEMP1 (QUOTE 2)) (*1*MOVE-GROUP (*1*L) *3*INS *3*S)) (T (*1*MOVE-GROUP (*1*W) *3*INS *3*S)))) ((NOT (EQ (*1*LESSP *2*TEMP1 (QUOTE 6)) *1*F)) (COND ((EQUAL *2*TEMP1 (QUOTE 4)) (*1*MISC-GROUP *3*INS *3*S)) (T (*1*SCC-GROUP *3*INS *3*S)))) ((EQUAL *2*TEMP1 (QUOTE 6)) (*1*BCC-GROUP (*1*HEAD *3*INS (*1*B)) *3*INS *3*S)) (T (*1*MOVEQ-INS *3*INS *3*S)))) ((NOT (EQ (*1*LESSP *2*TEMP1 (QUOTE 12)) *1*F)) (COND ((NOT (EQ (*1*LESSP *2*TEMP1 (QUOTE 10)) *1*F)) (COND ((EQUAL *2*TEMP1 (QUOTE 8)) (*1*OR-GROUP (*1*OP-LEN *3*INS) *3*INS *3*S)) (T (*1*SUB-GROUP (*1*OPMODE-FIELD *3*INS) *3*INS *3*S)))) ((EQUAL *2*TEMP1 (QUOTE 10)) (*1*HALT (*1*RESERVED-SIGNAL) *3*S)) (T (*1*CMP-GROUP (*1*OP-LEN *3*INS) *3*INS *3*S)))) ((NOT (EQ (*1*LESSP *2*TEMP1 (QUOTE 14)) *1*F)) (COND ((EQUAL *2*TEMP1 (QUOTE 12)) (*1*AND-GROUP (*1*OP-LEN *3*INS) *3*INS *3*S)) (T (*1*ADD-GROUP (*1*OPMODE-FIELD *3*INS) *3*INS *3*S)))) ((EQUAL *2*TEMP1 (QUOTE 14)) (*1*S&R-GROUP *3*INS *3*S)) (T (*1*HALT (QUOTE COPROCESSOR-UNSPECIFIED) *3*S)))))))) (PUT1-LST (QUOTE *1*CURRENT-INS) (QUOTE (SEXPR (LAMBDA (*3*PC *3*S) (*1*PC-WORD-READ *3*PC (*1*MC-MEM *3*S)))))) (PUT1-LST (QUOTE *1*STEPI) (QUOTE (SEXPR (LAMBDA (*3*S) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*EVENP (SETQ *2*TEMP1 (*1*MC-PC *3*S))) *1*F)) (COND ((NOT (EQ (*1*PC-WORD-READP *2*TEMP1 (*1*MC-MEM *3*S)) *1*F)) (*1*EXECUTE-INS (*1*CURRENT-INS *2*TEMP1 *3*S) (*1*UPDATE-PC (*1*ADD (*1*L) *2*TEMP1 (*1*WSZ)) *3*S))) (T (*1*HALT (*1*PC-SIGNAL) *3*S)))) (T (*1*HALT (*1*PC-ODD-SIGNAL) *3*S)))))))) (PUT1-LST (QUOTE *1*STEPN) (QUOTE (SEXPR (LAMBDA (*3*S *3*N) (COND ((NOT (EQ (*1*OR (*1*MC-HALTP *3*S) (*1*ZEROP *3*N)) *1*F)) *3*S) (T (*1*STEPN (*1*STEPI *3*S) (*1*SUB1 *3*N)))))))) (PUT1-LST (QUOTE *1*CONS-KEY-LST) (QUOTE (SEXPR (LAMBDA (*3*KEY *3*LST) (COND ((NOT (EQ (*1*MEMBER *3*KEY *3*LST) *1*F)) *3*LST) (T (CONS *3*KEY *3*LST))))))) (PUT1-LST (QUOTE *1*KEY-FIELD) (QUOTE (SEXPR (LAMBDA (*3*MAP) (COND ((AND (CONSP *3*MAP) (NOT (EQ (CAR *3*MAP) (QUOTE *1*QUOTE)))) (CAR *3*MAP)) (T (QUOTE NIL))))))) (PUT1-LST (QUOTE *1*MAKE-MAP) (QUOTE (SEXPR (LAMBDA (*3*KEY *3*MAP) (*1*MAKE-BT (*1*CONS-KEY-LST *3*KEY (*1*KEY-FIELD *3*MAP)) (*1*BRANCH0 *3*MAP) (*1*BRANCH1 *3*MAP)))))) (PUT1-LST (QUOTE *1*MAP-UPDATE) (QUOTE (SEXPR (LAMBDA (*3*KEY *3*X *3*N *3*MAP) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*ZEROP *3*N) *1*F)) (*1*MAKE-MAP *3*KEY *3*MAP)) ((NOT (EQ (*1*B0P (*1*BITN *3*X (SETQ *2*TEMP1 (*1*SUB1 *3*N)))) *1*F)) (*1*MAKE-BT (*1*KEY-FIELD *3*MAP) (*1*MAP-UPDATE *3*KEY *3*X *2*TEMP1 (*1*BRANCH0 *3*MAP)) (*1*BRANCH1 *3*MAP))) (T (*1*MAKE-BT (*1*KEY-FIELD *3*MAP) (*1*BRANCH0 *3*MAP) (*1*MAP-UPDATE *3*KEY *3*X *2*TEMP1 (*1*BRANCH1 *3*MAP)))))))))) (PUT1-LST (QUOTE *1*LOAD-LST-MEM) (QUOTE (SEXPR (LAMBDA (*3*OPSZ *3*LST *3*ADDR *3*MEM) (COND ((AND (CONSP *3*LST) (NOT (EQ (CAR *3*LST) (QUOTE *1*QUOTE)))) (*1*LOAD-LST-MEM *3*OPSZ (CDR *3*LST) (*1*ADD (QUOTE 32) *3*ADDR *3*OPSZ) (*1*WRITE-MEM (CAR *3*LST) *3*ADDR *3*MEM *3*OPSZ))) (T *3*MEM)))))) (PUT1-LST (QUOTE *1*ROM-ADDRP) (QUOTE (SEXPR (LAMBDA (*3*ADDR *3*MEM *3*N) (*1*PC-READ-MEMP *3*ADDR *3*MEM *3*N))))) (PUT1-LST (QUOTE *1*RAM-ADDRP) (QUOTE (SEXPR (LAMBDA (*3*ADDR *3*MEM *3*N) (*1*WRITE-MEMP *3*ADDR *3*MEM *3*N))))) (PUT1-LST (QUOTE *1*N-MEMBER) (QUOTE (SEXPR (LAMBDA (*3*X *3*LST) (COND ((NOT (EQ (*1*NLISTP *3*LST) *1*F)) (QUOTE *1*FALSE)) (T (*1*OR (COND ((EQUAL (*1*FIX *3*X) (*1*FIX (*1*CAR *3*LST))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*N-MEMBER *3*X (*1*CDR *3*LST))))))))) (PUT1-LST (QUOTE *1*MOD-EQ) (QUOTE (SEXPR (LAMBDA (*3*N *3*X *3*Y) (COND ((NOT (EQ (*1*ZEROP *3*N) *1*F)) (QUOTE *1*TRUE)) (T (*1*AND (COND ((EQUAL (*1*BCAR *3*X) (*1*BCAR *3*Y)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*MOD-EQ (*1*SUB1 *3*N) (*1*BCDR *3*X) (*1*BCDR *3*Y))))))))) (PUT1-LST (QUOTE *1*MOD32-EQ) (QUOTE (SEXPR (LAMBDA (*3*X *3*Y) (COND ((EQUAL (*1*HEAD *3*X (QUOTE 32)) (*1*HEAD *3*Y (QUOTE 32))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))))))) (PUT1-LST (QUOTE *1*NEG) (QUOTE (SEXPR (LAMBDA (*3*N *3*X) (*1*SUB *3*N *3*X (QUOTE 0)))))) (PUT1-LST (QUOTE *1*DISJOINT0) (QUOTE (SEXPR (LAMBDA (*3*X *3*M *3*Y) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*ZEROP *3*M) *1*F)) (QUOTE *1*TRUE)) (T (*1*AND (*1*NOT (*1*MOD32-EQ (*1*ADD (QUOTE 32) *3*X (SETQ *2*TEMP1 (*1*SUB1 *3*M))) *3*Y)) (*1*DISJOINT0 *3*X *2*TEMP1 *3*Y))))))))) (PUT1-LST (QUOTE *1*DISJOINT) (QUOTE (SEXPR (LAMBDA (*3*X *3*M *3*Y *3*N) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*ZEROP *3*N) *1*F)) (QUOTE *1*TRUE)) (T (*1*AND (*1*DISJOINT0 *3*X *3*M (*1*ADD (QUOTE 32) *3*Y (SETQ *2*TEMP1 (*1*SUB1 *3*N)))) (*1*DISJOINT *3*X *3*M *3*Y *2*TEMP1))))))))) (PUT1-LST (QUOTE *1*BIT) (QUOTE (SEXPR (LAMBDA (*3*BV) (LET NIL (COND ((NOT (EQ (*1*NLISTP *3*BV) *1*F)) (*1*B0)) ((NOT (EQ (*1*B0P (*1*CAR *3*BV)) *1*F)) (*1*B0)) (T (*1*B1)))))))) (PUT1-LST (QUOTE *1*VEC) (QUOTE (SEXPR (LAMBDA (*3*BV) (COND ((NOT (EQ (*1*NLISTP *3*BV) *1*F)) (QUOTE NIL)) (T (*1*CDR *3*BV))))))) (PUT1-LST (QUOTE *1*FIX-BV) (QUOTE (SEXPR (LAMBDA (*3*BV) (COND ((NOT (EQ (*1*NLISTP *3*BV) *1*F)) (QUOTE NIL)) (T (CONS (*1*BIT *3*BV) (*1*FIX-BV (*1*VEC *3*BV))))))))) (PUT1-LST (QUOTE *1*BV-LEN) (QUOTE (SEXPR (LAMBDA (*3*BV) (COND ((NOT (EQ (*1*NLISTP *3*BV) *1*F)) (QUOTE 0)) (T (*1*ADD1 (*1*BV-LEN (*1*VEC *3*BV))))))))) (PUT1-LST (QUOTE *1*BV-NOT) (QUOTE (SEXPR (LAMBDA (*3*BV) (COND ((NOT (EQ (*1*NLISTP *3*BV) *1*F)) (QUOTE NIL)) (T (CONS (*1*B-NOT (*1*BIT *3*BV)) (*1*BV-NOT (*1*VEC *3*BV))))))))) (PUT1-LST (QUOTE *1*BV-HEAD) (QUOTE (SEXPR (LAMBDA (*3*BV *3*N) (COND ((NOT (EQ (*1*ZEROP *3*N) *1*F)) (QUOTE NIL)) (T (CONS (*1*BIT *3*BV) (*1*BV-HEAD (*1*VEC *3*BV) (*1*SUB1 *3*N))))))))) (PUT1-LST (QUOTE *1*BV-TAIL) (QUOTE (SEXPR (LAMBDA (*3*BV *3*N) (COND ((NOT (EQ (*1*ZEROP *3*N) *1*F)) (*1*FIX-BV *3*BV)) (T (*1*BV-TAIL (*1*VEC *3*BV) (*1*SUB1 *3*N)))))))) (PUT1-LST (QUOTE *1*BV-BITN) (QUOTE (SEXPR (LAMBDA (*3*BV *3*N) (COND ((NOT (EQ (*1*ZEROP *3*N) *1*F)) (*1*BIT *3*BV)) (T (*1*BV-BITN (*1*VEC *3*BV) (*1*SUB1 *3*N)))))))) (PUT1-LST (QUOTE *1*BV-MBIT) (QUOTE (SEXPR (LAMBDA (*3*BV) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*NLISTP *3*BV) *1*F)) (*1*B0)) ((NOT (EQ (*1*NLISTP (SETQ *2*TEMP1 (*1*VEC *3*BV))) *1*F)) (*1*BIT *3*BV)) (T (*1*BV-MBIT *2*TEMP1)))))))) (PUT1-LST (QUOTE *1*BV-ADDER) (QUOTE (SEXPR (LAMBDA (*3*C *3*X *3*Y) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (COND ((NOT (EQ (*1*NLISTP *3*X) *1*F)) (QUOTE NIL)) (T (CONS (*1*B-EOR (*1*B-EOR (SETQ *2*TEMP2 (*1*BIT *3*X)) (SETQ *2*TEMP1 (*1*BIT *3*Y))) *3*C) (*1*BV-ADDER (*1*B-OR (*1*B-AND *2*TEMP2 *2*TEMP1) (*1*B-OR (*1*B-AND *2*TEMP2 *3*C) (*1*B-AND *2*TEMP1 *3*C))) (*1*VEC *3*X) (*1*VEC *3*Y)))))))))) (PUT1-LST (QUOTE *1*BV-TO-NAT) (QUOTE (SEXPR (LAMBDA (*3*BV) (COND ((NOT (EQ (*1*NLISTP *3*BV) *1*F)) (QUOTE 0)) (T (*1*PLUS (*1*BIT *3*BV) (*1*TIMES (QUOTE 2) (*1*BV-TO-NAT (*1*VEC *3*BV)))))))))) (PUT1-LST (QUOTE *1*BV-SIZED-TO-NAT) (QUOTE (SEXPR (LAMBDA (*3*BV *3*SIZE) (COND ((NOT (EQ (*1*ZEROP *3*SIZE) *1*F)) (QUOTE 0)) (T (*1*PLUS (*1*BIT *3*BV) (*1*TIMES (QUOTE 2) (*1*BV-SIZED-TO-NAT (*1*VEC *3*BV) (*1*SUB1 *3*SIZE)))))))))) (PUT1-LST (QUOTE *1*NAT-TO-BV) (QUOTE (SEXPR (LAMBDA (*3*N) (COND ((NOT (EQ (*1*ZEROP *3*N) *1*F)) (QUOTE NIL)) (T (CONS (*1*REMAINDER *3*N (QUOTE 2)) (*1*NAT-TO-BV (*1*QUOTIENT *3*N (QUOTE 2)))))))))) (PUT1-LST (QUOTE *1*NAT-TO-BV-SIZED) (QUOTE (SEXPR (LAMBDA (*3*N *3*SIZE) (COND ((NOT (EQ (*1*ZEROP *3*SIZE) *1*F)) (QUOTE NIL)) (T (CONS (*1*REMAINDER *3*N (QUOTE 2)) (*1*NAT-TO-BV-SIZED (*1*QUOTIENT *3*N (QUOTE 2)) (*1*SUB1 *3*SIZE))))))))) (PUT1-LST (QUOTE *1*BV-ADDER&CARRY) (QUOTE (SEXPR (LAMBDA (*3*C *3*X *3*Y) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (COND ((NOT (EQ (*1*NLISTP *3*X) *1*F)) (CONS (*1*FIX-BIT *3*C) (QUOTE NIL))) (T (CONS (*1*B-EOR *3*C (*1*B-EOR (SETQ *2*TEMP2 (*1*BIT *3*X)) (SETQ *2*TEMP1 (*1*BIT *3*Y)))) (*1*BV-ADDER&CARRY (*1*B-OR (*1*B-AND *2*TEMP2 *2*TEMP1) (*1*B-OR (*1*B-AND *2*TEMP2 *3*C) (*1*B-AND *2*TEMP1 *3*C))) (*1*VEC *3*X) (*1*VEC *3*Y)))))))))) (PUT1-LST (QUOTE *1*ADDER-INT-END) (QUOTE (SEXPR (LAMBDA (*3*N *3*C *3*X *3*Y) (*1*NAT-TO-INT (*1*REMAINDER (*1*PLUS (*1*FIX-BIT *3*C) (*1*PLUS (*1*INT-TO-NAT *3*X *3*N) (*1*INT-TO-NAT *3*Y *3*N))) (*1*EXP (QUOTE 2) *3*N)) *3*N))))) (PUT1-LST (QUOTE *1*READ-WRITE-RN-END) (QUOTE (SEXPR (LAMBDA (*3*N2 *3*RN *3*N1 *3*VALUE *3*RM *3*RFILE) (*1*READ-RN *3*N2 *3*RN (*1*WRITE-RN *3*N1 *3*VALUE *3*RM *3*RFILE)))))) (PUT1-LST (QUOTE *1*GET-VLST) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*VALUE *3*RN *3*RNLST *3*VLST) (LET NIL (COND ((NOT (EQ (*1*NLISTP *3*RNLST) *1*F)) *3*VALUE) ((EQUAL (*1*FIX *3*RN) (*1*FIX (*1*CAR *3*RNLST))) (*1*GET-VLST *3*OPLEN (*1*HEAD (*1*CAR *3*VLST) *3*OPLEN) *3*RN (*1*CDR *3*RNLST) (*1*CDR *3*VLST))) (T (*1*GET-VLST *3*OPLEN *3*VALUE *3*RN (*1*CDR *3*RNLST) (*1*CDR *3*VLST))))))))) (PUT1-LST (QUOTE *1*READ-WRITEM-RN-END) (QUOTE (SEXPR (LAMBDA (*3*N1 *3*RN *3*N2 *3*VLST *3*RNLST *3*RFILE) (*1*READ-RN *3*N1 *3*RN (*1*WRITEM-RN *3*N2 *3*VLST *3*RNLST *3*RFILE)))))) (PUT1-LST (QUOTE *1*MODN-EQ) (QUOTE (SEXPR (LAMBDA (*3*N *3*X *3*Y) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*ZEROP *3*N) *1*F)) (QUOTE *1*TRUE)) (T (*1*AND (COND ((EQUAL (*1*BITN *3*X (SETQ *2*TEMP1 (*1*SUB1 *3*N))) (*1*BITN *3*Y *2*TEMP1)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*MODN-EQ *2*TEMP1 *3*X *3*Y))))))))) (PUT1-LST (QUOTE *1*MEM-INDUCT0) (QUOTE (SEXPR (LAMBDA (*3*K *3*N) (COND ((NOT (EQ (*1*ZEROP *3*K) *1*F)) (QUOTE 0)) (T (*1*MEM-INDUCT0 (*1*SUB1 *3*K) (*1*DIFFERENCE *3*N (QUOTE 8))))))))) (PUT1-LST (QUOTE *1*BYTE-READ-WRITE-MEM-END) (QUOTE (SEXPR (LAMBDA (*3*X *3*VALUE *3*Y *3*MEM *3*K) (*1*BYTE-READ *3*X (*1*WRITE-MEM *3*VALUE *3*Y *3*MEM *3*K)))))) (PUT1-LST (QUOTE *1*READ-MEM-BYTE-WRITE-END) (QUOTE (SEXPR (LAMBDA (*3*X *3*N *3*VALUE *3*Y *3*MEM) (*1*READ-MEM *3*X (*1*BYTE-WRITE *3*VALUE *3*Y *3*MEM) *3*N))))) (PUT1-LST (QUOTE *1*READ-WRITE-MEM-END) (QUOTE (SEXPR (LAMBDA (*3*X *3*VALUE *3*Y *3*MEM *3*M *3*N) (*1*READ-MEM *3*X (*1*WRITE-MEM *3*VALUE *3*Y *3*MEM *3*M) *3*N))))) (PUT1-LST (QUOTE *1*WRITE-WRITE-INDUCT) (QUOTE (SEXPR (LAMBDA (*3*V1 *3*V2 *3*N) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*ZEROP *3*N) *1*F)) (QUOTE *1*TRUE)) (T (*1*WRITE-WRITE-INDUCT (*1*TAIL *3*V1 (SETQ *2*TEMP1 (*1*B))) (*1*TAIL *3*V2 *2*TEMP1) (*1*SUB1 *3*N))))))))) (PUT1-LST (QUOTE *1*ADD-FRINGE) (QUOTE (SEXPR (LAMBDA (*3*N *3*X) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (COND ((NOT (EQ (*1*AND (COND ((AND (CONSP *3*X) (NOT (EQ (CAR *3*X) (QUOTE *1*QUOTE)))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*AND (COND ((EQ (*1*CAR *3*X) (QUOTE ADD)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (COND ((EQUAL (*1*CAR (SETQ *2*TEMP2 (*1*CDR *3*X))) *3*N) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))))) *1*F)) (*1*APPEND (*1*ADD-FRINGE *3*N (*1*CAR (SETQ *2*TEMP1 (*1*CDR *2*TEMP2)))) (*1*ADD-FRINGE *3*N (*1*CAR (*1*CDR *2*TEMP1))))) (T (CONS *3*X (QUOTE NIL))))))))) (PUT1-LST (QUOTE *1*ADD-TREE) (QUOTE (SEXPR (LAMBDA (*3*N *3*L) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*NLISTP *3*L) *1*F)) (QUOTE (QUOTE 0))) ((NOT (EQ (*1*NLISTP (SETQ *2*TEMP1 (*1*CDR *3*L))) *1*F)) (CONS (QUOTE HEAD) (CONS (*1*CAR *3*L) (CONS *3*N (QUOTE NIL))))) ((NOT (EQ (*1*NLISTP (*1*CDR *2*TEMP1)) *1*F)) (CONS (QUOTE ADD) (CONS *3*N (CONS (*1*CAR *3*L) (CONS (*1*CAR *2*TEMP1) (QUOTE NIL)))))) (T (CONS (QUOTE ADD) (CONS *3*N (CONS (*1*CAR *3*L) (CONS (*1*ADD-TREE *3*N *2*TEMP1) (QUOTE NIL)))))))))))) (PUT1-LST (QUOTE *1*ADD-TREE-DELETE-COND) (QUOTE (SEXPR (LAMBDA (*3*N *3*X *3*Y) (CONS (QUOTE AND) (CONS (CONS (QUOTE NUMBERP) (CONS *3*X (QUOTE NIL))) (CONS (CONS (QUOTE AND) (CONS (CONS (QUOTE NAT-RANGEP) (CONS *3*X (CONS *3*N (QUOTE NIL)))) (CONS (CONS (QUOTE EQUAL) (CONS (*1*ADD-TREE *3*N (*1*DELETE *3*X *3*Y)) (QUOTE ((QUOTE 0))))) (QUOTE NIL)))) (QUOTE NIL)))))))) (PUT1-LST (QUOTE *1*CANCEL-EQUAL-ADD) (QUOTE (SEXPR (LAMBDA (*3*X) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X)) (*2*TEMP4 (QUOTE *1*X)) (*2*TEMP5 (QUOTE *1*X)) (*2*TEMP6 (QUOTE *1*X)) (*2*TEMP7 (QUOTE *1*X)) (*2*TEMP8 (QUOTE *1*X)) (*2*TEMP9 (QUOTE *1*X)) (*2*TEMP10 (QUOTE *1*X)) (*2*TEMP11 (QUOTE *1*X)) (*2*TEMP12 (QUOTE *1*X)) (*2*TEMP13 (QUOTE *1*X)) (*2*TEMP14 (QUOTE *1*X)) (*2*TEMP15 (QUOTE *1*X))) (COND ((NOT (EQ (*1*AND (COND ((AND (CONSP *3*X) (NOT (EQ (CAR *3*X) (QUOTE *1*QUOTE)))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (COND ((EQ (*1*CAR *3*X) (QUOTE EQUAL)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) *1*F)) (COND ((NOT (EQ (*1*AND (SETQ *2*TEMP15 (COND ((AND (CONSP (SETQ *2*TEMP14 (*1*CAR (SETQ *2*TEMP13 (*1*CDR *3*X))))) (NOT (EQ (CAR *2*TEMP14) (QUOTE *1*QUOTE)))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) (*1*AND (SETQ *2*TEMP12 (COND ((EQ (SETQ *2*TEMP11 (*1*CAR *2*TEMP14)) (QUOTE ADD)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) (*1*AND (SETQ *2*TEMP10 (COND ((AND (CONSP (SETQ *2*TEMP9 (*1*CAR (*1*CDR *2*TEMP13)))) (NOT (EQ (CAR *2*TEMP9) (QUOTE *1*QUOTE)))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) (SETQ *2*TEMP8 (COND ((EQ (SETQ *2*TEMP7 (*1*CAR *2*TEMP9)) (QUOTE ADD)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))))))) *1*F)) (COND ((EQUAL (SETQ *2*TEMP6 (*1*CAR (*1*CDR *2*TEMP14))) (*1*CAR (*1*CDR *2*TEMP9))) (CONS (QUOTE EQUAL) (CONS (*1*ADD-TREE *2*TEMP6 (*1*BAGDIFF (SETQ *2*TEMP4 (*1*ADD-FRINGE *2*TEMP6 *2*TEMP14)) (SETQ *2*TEMP3 (*1*BAGINT *2*TEMP4 (SETQ *2*TEMP2 (*1*ADD-FRINGE *2*TEMP6 *2*TEMP9)))))) (CONS (*1*ADD-TREE *2*TEMP6 (*1*BAGDIFF *2*TEMP2 *2*TEMP3)) (QUOTE NIL))))) (T *3*X))) ((NOT (EQ (*1*AND *2*TEMP15 (*1*AND *2*TEMP12 (*1*MEMBER *2*TEMP9 (SETQ *2*TEMP4 (*1*ADD-FRINGE (SETQ *2*TEMP6 (*1*CAR (*1*CDR *2*TEMP14))) *2*TEMP14))))) *1*F)) (*1*ADD-TREE-DELETE-COND *2*TEMP6 *2*TEMP9 *2*TEMP4)) ((NOT (EQ (*1*AND *2*TEMP10 (*1*AND *2*TEMP8 (*1*MEMBER *2*TEMP14 (SETQ *2*TEMP1 (*1*ADD-FRINGE (SETQ *2*TEMP5 (*1*CAR (*1*CDR *2*TEMP9))) *2*TEMP9))))) *1*F)) (*1*ADD-TREE-DELETE-COND *2*TEMP5 *2*TEMP14 *2*TEMP1)) (T *3*X))) (T *3*X))))))) (PUT1-LST (QUOTE *1*CANCEL-ADD-NEG) (QUOTE (SEXPR (LAMBDA (*3*X) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X)) (*2*TEMP4 (QUOTE *1*X)) (*2*TEMP5 (QUOTE *1*X)) (*2*TEMP6 (QUOTE *1*X)) (*2*TEMP7 (QUOTE *1*X)) (*2*TEMP8 (QUOTE *1*X)) (*2*TEMP9 (QUOTE *1*X))) (COND ((NOT (EQ (*1*AND (COND ((AND (CONSP *3*X) (NOT (EQ (CAR *3*X) (QUOTE *1*QUOTE)))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*AND (COND ((EQ (*1*CAR *3*X) (QUOTE ADD)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*AND (COND ((AND (CONSP (SETQ *2*TEMP9 (*1*CDR *3*X))) (NOT (EQ (CAR *2*TEMP9) (QUOTE *1*QUOTE)))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (COND ((AND (CONSP (SETQ *2*TEMP8 (*1*CDR *2*TEMP9))) (NOT (EQ (CAR *2*TEMP8) (QUOTE *1*QUOTE)))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))))) *1*F)) (COND ((NOT (EQ (*1*AND (COND ((AND (CONSP (SETQ *2*TEMP7 (*1*CAR *2*TEMP8))) (NOT (EQ (CAR *2*TEMP7) (QUOTE *1*QUOTE)))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*AND (COND ((AND (CONSP (SETQ *2*TEMP6 (*1*CDR *2*TEMP7))) (NOT (EQ (CAR *2*TEMP6) (QUOTE *1*QUOTE)))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*AND (COND ((AND (CONSP (SETQ *2*TEMP5 (*1*CDR *2*TEMP6))) (NOT (EQ (CAR *2*TEMP5) (QUOTE *1*QUOTE)))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*AND (COND ((EQ (*1*CAR *2*TEMP7) (QUOTE NEG)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*AND (COND ((EQUAL (*1*CAR *2*TEMP6) (SETQ *2*TEMP4 (*1*CAR *2*TEMP9))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*MEMBER (SETQ *2*TEMP3 (*1*CAR *2*TEMP5)) (SETQ *2*TEMP2 (*1*ADD-FRINGE *2*TEMP4 (*1*CAR (*1*CDR *2*TEMP8)))))))))) *1*F)) (*1*ADD-TREE *2*TEMP4 (*1*DELETE *2*TEMP3 *2*TEMP2))) ((NOT (EQ (*1*MEMBER (SETQ *2*TEMP1 (CONS (QUOTE NEG) (CONS *2*TEMP4 (CONS *2*TEMP7 (QUOTE NIL))))) *2*TEMP2) *1*F)) (*1*ADD-TREE *2*TEMP4 (*1*DELETE *2*TEMP1 *2*TEMP2))) (T *3*X))) (T *3*X))))))) (PUT1-LST (QUOTE *1*BETWEEN-ILEQ) (QUOTE (SEXPR (LAMBDA (*3*X *3*Y *3*Z) (*1*AND (*1*ILEQ *3*X *3*Y) (*1*ILEQ *3*Y *3*Z)))))) (PUT1-LST (QUOTE *1*SPLUS) (QUOTE (SEXPR (LAMBDA (*3*X *3*Y) (*1*PLUS *3*X *3*Y))))) (PUT1-LST (QUOTE *1*MCODE-ADDRP) (QUOTE (SEXPR (LAMBDA (*3*ADDR *3*MEM *3*LST) (LET NIL (COND ((AND (CONSP *3*LST) (NOT (EQ (CAR *3*LST) (QUOTE *1*QUOTE)))) (COND ((EQUAL (CAR *3*LST) (QUOTE -1)) (*1*MCODE-ADDRP (*1*ADD (QUOTE 32) *3*ADDR (QUOTE 1)) *3*MEM (CDR *3*LST))) (T (*1*AND (COND ((EQUAL (*1*PC-BYTE-READ *3*ADDR *3*MEM) (CAR *3*LST)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*MCODE-ADDRP (*1*ADD (QUOTE 32) *3*ADDR (QUOTE 1)) *3*MEM (CDR *3*LST)))))) (T (QUOTE *1*TRUE)))))))) (PUT1-LST (QUOTE *1*INDEX-N) (QUOTE (SEXPR (LAMBDA (*3*X *3*Y) (*1*SUB (QUOTE 32) *3*Y *3*X))))) (PUT1-LST (QUOTE *1*MEM-INDUCT1) (QUOTE (SEXPR (LAMBDA (*3*I *3*ADDR *3*LST) (COND ((NOT (EQ (*1*ZEROP *3*I) *1*F)) (QUOTE *1*TRUE)) (T (*1*MEM-INDUCT1 (*1*SUB1 *3*I) (*1*ADD (QUOTE 32) *3*ADDR (QUOTE 1)) (*1*CDR *3*LST)))))))) (PUT1-LST (QUOTE *1*LST-NUMBERP0) (QUOTE (SEXPR (LAMBDA (*3*LST *3*N) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*ZEROP *3*N) *1*F)) (QUOTE 0)) (T (*1*AND (*1*NUMBERP (*1*GET-NTH (SETQ *2*TEMP1 (*1*SUB1 *3*N)) *3*LST)) (*1*LST-NUMBERP0 *3*LST *2*TEMP1))))))))) (PUT1-LST (QUOTE *1*READ-LST0) (QUOTE (SEXPR (LAMBDA (*3*LST *3*N) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*ZEROP *3*N) *1*F)) (QUOTE 0)) (T (*1*APP (*1*B) (*1*GET-NTH (SETQ *2*TEMP1 (*1*SUB1 *3*N)) *3*LST) (*1*READ-LST0 *3*LST *2*TEMP1))))))))) (PUT1-LST (QUOTE *1*TAIL-LST) (QUOTE (SEXPR (LAMBDA (*3*LST *3*N) (COND ((NOT (EQ (*1*ZEROP *3*N) *1*F)) *3*LST) (T (*1*TAIL-LST (*1*CDR *3*LST) (*1*SUB1 *3*N)))))))) (PUT1-LST (QUOTE *1*LST-NUMBERP) (QUOTE (SEXPR (LAMBDA (*3*M *3*LST *3*N) (*1*LST-NUMBERP0 (*1*TAIL-LST *3*LST *3*M) *3*N))))) (PUT1-LST (QUOTE *1*READ-LST) (QUOTE (SEXPR (LAMBDA (*3*M *3*LST *3*N) (*1*READ-LST0 (*1*TAIL-LST *3*LST *3*M) *3*N))))) (PUT1-LST (QUOTE *1*MEM-LST) (QUOTE (SEXPR (LAMBDA (*3*OPSZ *3*A *3*MEM *3*N *3*LST) (COND ((NOT (EQ (*1*ZEROP *3*N) *1*F)) (*1*NLISTP *3*LST)) (T (*1*AND (COND ((EQUAL (*1*READ-MEM *3*A *3*MEM *3*OPSZ) (*1*CAR *3*LST)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*MEM-LST *3*OPSZ (*1*ADD (*1*L) *3*A *3*OPSZ) *3*MEM (*1*SUB1 *3*N) (*1*CDR *3*LST))))))))) (PUT1-LST (QUOTE *1*MEM-ILST) (QUOTE (SEXPR (LAMBDA (*3*OPSZ *3*A *3*MEM *3*N *3*LST) (COND ((NOT (EQ (*1*ZEROP *3*N) *1*F)) (*1*NLISTP *3*LST)) (T (*1*AND (COND ((EQUAL (*1*NAT-TO-INT (*1*READ-MEM *3*A *3*MEM *3*OPSZ) (*1*TIMES (QUOTE 8) *3*OPSZ)) (*1*CAR *3*LST)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*MEM-ILST *3*OPSZ (*1*ADD (*1*L) *3*A *3*OPSZ) *3*MEM (*1*SUB1 *3*N) (*1*CDR *3*LST))))))))) (PUT1-LST (QUOTE *1*GET-LST) (QUOTE (SEXPR (LAMBDA (*3*OPSZ *3*M *3*LST *3*N) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*ZEROP *3*N) *1*F)) (QUOTE 0)) (T (*1*APP (*1*TIMES (QUOTE 8) *3*OPSZ) (*1*GET-NTH (*1*PLUS *3*M (SETQ *2*TEMP1 (*1*SUB1 *3*N))) *3*LST) (*1*GET-LST *3*OPSZ *3*M *3*LST *2*TEMP1))))))))) (PUT1-LST (QUOTE *1*PUT-LST) (QUOTE (SEXPR (LAMBDA (*3*OPSZ *3*V *3*N *3*LST *3*K) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (COND ((NOT (EQ (*1*ZEROP *3*K) *1*F)) *3*LST) (T (*1*PUT-LST *3*OPSZ (*1*TAIL *3*V (SETQ *2*TEMP2 (*1*TIMES (QUOTE 8) *3*OPSZ))) *3*N (*1*PUT-NTH (*1*HEAD *3*V *2*TEMP2) (*1*PLUS *3*N (SETQ *2*TEMP1 (*1*SUB1 *3*K))) *3*LST) *2*TEMP1)))))))) (PUT1-LST (QUOTE *1*GET-VALS) (QUOTE (SEXPR (LAMBDA (*3*M *3*LST *3*N) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*ZEROP *3*N) *1*F)) (QUOTE NIL)) (T (*1*APPEND (*1*GET-VALS *3*M *3*LST (SETQ *2*TEMP1 (*1*SUB1 *3*N))) (CONS (*1*GET-NTH (*1*PLUS *3*M *2*TEMP1) *3*LST) (QUOTE NIL)))))))))) (PUT1-LST (QUOTE *1*PUT-VALS) (QUOTE (SEXPR (LAMBDA (*3*VALS *3*M *3*LST *3*N) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*ZEROP *3*N) *1*F)) *3*LST) (T (*1*PUT-VALS *3*VALS *3*M (*1*PUT-NTH (*1*GET-NTH (SETQ *2*TEMP1 (*1*SUB1 *3*N)) *3*VALS) (*1*PLUS *3*M *2*TEMP1) *3*LST) *2*TEMP1)))))))) (PUT1-LST (QUOTE *1*BV-TO-LST) (QUOTE (SEXPR (LAMBDA (*3*OPSZ *3*BV *3*N) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*ZEROP *3*N) *1*F)) (QUOTE NIL)) (T (*1*APPEND (*1*BV-TO-LST *3*OPSZ (*1*TAIL *3*BV (SETQ *2*TEMP1 (*1*TIMES (QUOTE 8) *3*OPSZ))) (*1*SUB1 *3*N)) (CONS (*1*HEAD *3*BV *2*TEMP1) (QUOTE NIL)))))))))) (PUT1-LST (QUOTE *1*LST-TO-BV) (QUOTE (SEXPR (LAMBDA (*3*OPSZ *3*LST *3*N) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*ZEROP *3*N) *1*F)) (QUOTE 0)) (T (*1*APP (*1*TIMES (QUOTE 8) *3*OPSZ) (*1*GET-NTH (SETQ *2*TEMP1 (*1*SUB1 *3*N)) *3*LST) (*1*LST-TO-BV *3*OPSZ *3*LST *2*TEMP1))))))))) (PUT1-LST (QUOTE *1*MCAR) (QUOTE (SEXPR (LAMBDA (*3*N *3*LST) (COND ((NOT (EQ (*1*ZEROP *3*N) *1*F)) (QUOTE NIL)) (T (CONS (*1*CAR *3*LST) (*1*MCAR (*1*SUB1 *3*N) (*1*CDR *3*LST))))))))) (PUT1-LST (QUOTE *1*MCDR) (QUOTE (SEXPR (LAMBDA (*3*N *3*LST) (COND ((NOT (EQ (*1*ZEROP *3*N) *1*F)) *3*LST) (T (*1*MCDR (*1*SUB1 *3*N) (*1*CDR *3*LST)))))))) (PUT1-LST (QUOTE *1*PROPER-LSTP) (QUOTE (SEXPR (LAMBDA (*3*LST) (COND ((NOT (EQ (*1*NLISTP *3*LST) *1*F)) (COND ((EQ *3*LST (QUOTE NIL)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) (T (*1*PROPER-LSTP (*1*CDR *3*LST)))))))) (PUT1-LST (QUOTE *1*MEM-INDUCT2) (QUOTE (SEXPR (LAMBDA (*3*OPSZ *3*ADDR *3*I *3*N *3*LST *3*J) (COND ((NOT (EQ (*1*ZEROP *3*N) *1*F)) (QUOTE *1*TRUE)) (T (*1*MEM-INDUCT2 *3*OPSZ (*1*ADD (QUOTE 32) *3*ADDR *3*OPSZ) (*1*SUB1 *3*I) (*1*SUB1 *3*N) (*1*CDR *3*LST) (*1*DIFFERENCE *3*J *3*OPSZ)))))))) (PUT1-LST (QUOTE *1*MEM-INDUCT3) (QUOTE (SEXPR (LAMBDA (*3*V *3*V1 *3*A *3*MEM *3*I *3*LST *3*K) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (COND ((NOT (EQ (*1*ZEROP *3*K) *1*F)) (QUOTE *1*TRUE)) (T (*1*MEM-INDUCT3 (*1*TAIL *3*V (QUOTE 8)) (*1*TAIL *3*V1 (QUOTE 8)) *3*A (*1*BYTE-WRITE *3*V (*1*ADD (QUOTE 32) *3*A (SETQ *2*TEMP2 (*1*PLUS *3*I (SETQ *2*TEMP1 (*1*SUB1 *3*K))))) *3*MEM) *3*I (*1*PUT-NTH (*1*HEAD *3*V (QUOTE 8)) *2*TEMP2 *3*LST) *2*TEMP1)))))))) (PUT1-LST (QUOTE *1*MEM-INDUCT4) (QUOTE (SEXPR (LAMBDA (*3*V *3*VALS *3*A *3*MEM *3*I *3*LST *3*K) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (COND ((NOT (EQ (*1*ZEROP *3*K) *1*F)) (QUOTE *1*TRUE)) (T (*1*MEM-INDUCT4 (*1*TAIL *3*V (QUOTE 8)) (*1*GET-VALS (QUOTE 0) *3*VALS (SETQ *2*TEMP2 (*1*SUB1 *3*K))) *3*A (*1*BYTE-WRITE *3*V (*1*ADD (QUOTE 32) *3*A (SETQ *2*TEMP1 (*1*PLUS *3*I *2*TEMP2))) *3*MEM) *3*I (*1*PUT-NTH (*1*HEAD *3*V (QUOTE 8)) *2*TEMP1 *3*LST) *2*TEMP2)))))))) (PUT1-LST (QUOTE *1*MODN-LST) (QUOTE (SEXPR (LAMBDA (*3*N *3*LST) (COND ((NOT (EQ (*1*NLISTP *3*LST) *1*F)) (QUOTE NIL)) (T (CONS (*1*HEAD (*1*CAR *3*LST) *3*N) (*1*MODN-LST *3*N (*1*CDR *3*LST))))))))) (PUT1-LST (QUOTE *1*LSTCPY) (QUOTE (SEXPR (LAMBDA (*3*I1 *3*LST1 *3*I2 *3*LST2 *3*N) (COND ((NOT (EQ (*1*ZEROP *3*N) *1*F)) *3*LST1) (T (*1*LSTCPY (*1*ADD1 *3*I1) (*1*PUT-NTH (*1*GET-NTH *3*I2 *3*LST2) *3*I1 *3*LST1) (*1*ADD1 *3*I2) *3*LST2 (*1*SUB1 *3*N)))))))) (PUT1-LST (QUOTE *1*LSTMCPY) (QUOTE (SEXPR (LAMBDA (*3*OPSZ *3*I1 *3*LST1 *3*I2 *3*LST2 *3*N) (COND ((NOT (EQ (*1*ZEROP *3*N) *1*F)) *3*LST1) (T (*1*LSTMCPY *3*OPSZ (*1*PLUS *3*OPSZ *3*I1) (*1*LSTCPY *3*I1 *3*LST1 *3*I2 *3*LST2 *3*OPSZ) (*1*PLUS *3*OPSZ *3*I2) *3*LST2 (*1*SUB1 *3*N)))))))) (PUT1-LST (QUOTE *1*LSTCPY1) (QUOTE (SEXPR (LAMBDA (*3*I1 *3*LST1 *3*I2 *3*LST2 *3*N) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*ZEROP *3*N) *1*F)) *3*LST1) (T (*1*LSTCPY1 *3*I1 (*1*PUT-NTH (*1*GET-NTH (*1*PLUS *3*I2 (SETQ *2*TEMP1 (*1*SUB1 *3*N))) *3*LST2) (*1*PLUS *3*I1 *2*TEMP1) *3*LST1) *3*I2 *3*LST2 *2*TEMP1)))))))) (PUT1-LST (QUOTE *1*MMOV1-LST) (QUOTE (SEXPR (LAMBDA (*3*I *3*LST1 *3*LST2 *3*N) (COND ((NOT (EQ (*1*ZEROP *3*N) *1*F)) *3*LST1) (T (*1*MMOV1-LST (*1*ADD1 *3*I) (*1*PUT-NTH (*1*GET-NTH *3*I *3*LST2) *3*I *3*LST1) *3*LST2 (*1*SUB1 *3*N)))))))) (PUT1-LST (QUOTE *1*MMOV1-LST1) (QUOTE (SEXPR (LAMBDA (*3*I *3*LST1 *3*LST2 *3*N) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*ZEROP *3*N) *1*F)) *3*LST1) (T (*1*MMOV1-LST1 (SETQ *2*TEMP1 (*1*SUB1 *3*I)) (*1*PUT-NTH (*1*GET-NTH *2*TEMP1 *3*LST2) *2*TEMP1 *3*LST1) *3*LST2 (*1*SUB1 *3*N))))))))) (PUT1-LST (QUOTE *1*MOVN-LST) (QUOTE (SEXPR (LAMBDA (*3*N *3*LST1 *3*LST2 *3*I) (*1*PUT-VALS (*1*GET-VALS *3*I *3*LST2 *3*N) *3*I *3*LST1 *3*N))))) (PUT1-LST (QUOTE *1*MMOVN-LST) (QUOTE (SEXPR (LAMBDA (*3*H *3*LST1 *3*LST2 *3*I *3*NT) (COND ((NOT (EQ (*1*ZEROP *3*NT) *1*F)) *3*LST1) (T (*1*MMOVN-LST *3*H (*1*MOVN-LST *3*H *3*LST1 *3*LST2 *3*I) *3*LST2 (*1*PLUS *3*H *3*I) (*1*SUB1 *3*NT)))))))) (PUT1-LST (QUOTE *1*MMOVN-LST1) (QUOTE (SEXPR (LAMBDA (*3*H *3*LST1 *3*LST2 *3*I *3*NT) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*ZEROP *3*NT) *1*F)) *3*LST1) (T (*1*MMOVN-LST1 *3*H (*1*MOVN-LST *3*H *3*LST1 *3*LST2 (SETQ *2*TEMP1 (*1*DIFFERENCE *3*I *3*H))) *3*LST2 *2*TEMP1 (*1*SUB1 *3*NT))))))))) (PUT1-LST (QUOTE *1*P) (QUOTE (SEXPR (LAMBDA (*3*X1 *3*X2 *3*X3) (PROGN (THROW (QUOTE REDUCE-TERM) (QUOTE *1*FAILED)) *3*X1 *3*X2 *3*X3))))) (PUT1-LST (QUOTE *1*H) (QUOTE (SEXPR (LAMBDA (*3*X1 *3*X2 *3*X3) (PROGN (THROW (QUOTE REDUCE-TERM) (QUOTE *1*FAILED)) *3*X1 *3*X2 *3*X3))))) (PUT1-LST (QUOTE *1*T3) (QUOTE (SEXPR (LAMBDA (*3*X *3*Y *3*Z) (PROGN *3*X *3*Y *3*Z (QUOTE *1*TRUE)))))) (PUT1-LST (QUOTE *1*UREAD-MEM) (QUOTE (SEXPR (LAMBDA (*3*X *3*MEM *3*N) (*1*NAT-TO-UINT (*1*READ-MEM *3*X *3*MEM *3*N)))))) (PUT1-LST (QUOTE *1*UREAD-DN) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*DN *3*S) (*1*NAT-TO-UINT (*1*READ-DN *3*OPLEN *3*DN *3*S)))))) (PUT1-LST (QUOTE *1*UREAD-AN) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*AN *3*S) (*1*NAT-TO-UINT (*1*READ-AN *3*OPLEN *3*AN *3*S)))))) (PUT1-LST (QUOTE *1*IREAD-MEM) (QUOTE (SEXPR (LAMBDA (*3*X *3*MEM *3*N) (*1*NAT-TO-INT (*1*READ-MEM *3*X *3*MEM *3*N) (*1*TIMES (QUOTE 8) *3*N)))))) (PUT1-LST (QUOTE *1*IREAD-DN) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*DN *3*S) (*1*NAT-TO-INT (*1*READ-DN *3*OPLEN *3*DN *3*S) *3*OPLEN))))) (PUT1-LST (QUOTE *1*IREAD-AN) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*AN *3*S) (*1*NAT-TO-INT (*1*READ-AN *3*OPLEN *3*AN *3*S) *3*OPLEN))))) (PUT1-LST (QUOTE *1*RTS-ADDR) (QUOTE (SEXPR (LAMBDA (*3*S) (*1*READ-MEM (*1*READ-AN (QUOTE 32) (QUOTE 7) *3*S) (*1*MC-MEM *3*S) (QUOTE 4)))))) (PUT1-LST (QUOTE *1*LINKED-RTS-ADDR) (QUOTE (SEXPR (LAMBDA (*3*S) (*1*READ-MEM (*1*ADD (QUOTE 32) (*1*READ-AN (QUOTE 32) (QUOTE 6) *3*S) (QUOTE 4)) (*1*MC-MEM *3*S) (QUOTE 4)))))) (PUT1-LST (QUOTE *1*LINKED-A6) (QUOTE (SEXPR (LAMBDA (*3*S) (*1*READ-MEM (*1*READ-AN (QUOTE 32) (QUOTE 6) *3*S) (*1*MC-MEM *3*S) (QUOTE 4)))))) (PUT1-LST (QUOTE *1*MOVEM-SAVED) (QUOTE (SEXPR (LAMBDA (*3*S *3*OPSZ *3*I *3*N) (*1*READM-MEM *3*OPSZ (*1*SUB (QUOTE 32) *3*I (*1*READ-AN (QUOTE 32) (QUOTE 6) *3*S)) (*1*MC-MEM *3*S) *3*N))))) (PUT1-LST (QUOTE *1*RN-SAVED) (QUOTE (SEXPR (LAMBDA (*3*S) (*1*READ-MEM (*1*SUB (QUOTE 32) (QUOTE 4) (*1*READ-AN (QUOTE 32) (QUOTE 6) *3*S)) (*1*MC-MEM *3*S) (QUOTE 4)))))) (PUT1-LST (QUOTE *1*LST-INT) (QUOTE (SEXPR (LAMBDA (*3*N *3*LST) (COND ((NOT (EQ (*1*NLISTP *3*LST) *1*F)) *3*LST) (T (CONS (*1*NAT-TO-INT (*1*CAR *3*LST) *3*N) (*1*LST-INT *3*N (*1*CDR *3*LST))))))))) (PUT1-LST (QUOTE *1*LST-INTEGERP) (QUOTE (SEXPR (LAMBDA (*3*LST) (COND ((NOT (EQ (*1*NLISTP *3*LST) *1*F)) (QUOTE *1*TRUE)) (T (*1*AND (*1*INTEGERP (*1*CAR *3*LST)) (*1*LST-INTEGERP (*1*CDR *3*LST))))))))) (PUT1-LST (QUOTE *1*EQUAL*) (QUOTE (SEXPR (LAMBDA (*3*X *3*Y) (COND ((EQUAL *3*X *3*Y) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))))))) (PUT1-LST (QUOTE *1*D2-7A2-5P) (QUOTE (SEXPR (LAMBDA (*3*RN) (*1*AND (*1*NOT (*1*ZEROP *3*RN)) (*1*AND (*1*NOT (COND ((EQUAL *3*RN (QUOTE 1)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) (*1*AND (*1*NOT (COND ((EQUAL *3*RN (QUOTE 8)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) (*1*AND (*1*NOT (COND ((EQUAL *3*RN (QUOTE 9)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) (*1*AND (*1*NOT (COND ((EQUAL *3*RN (QUOTE 14)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) (*1*NOT (COND ((EQUAL *3*RN (QUOTE 15)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))))))))))))) (PUT1-LST (QUOTE *1*D3-7A2-5P) (QUOTE (SEXPR (LAMBDA (*3*RN) (*1*AND (*1*D2-7A2-5P *3*RN) (*1*NOT (COND ((EQUAL *3*RN (QUOTE 2)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))))))))) (PUT1-LST (QUOTE *1*D4-7A2-5P) (QUOTE (SEXPR (LAMBDA (*3*RN) (*1*AND (*1*D2-7A2-5P *3*RN) (*1*AND (*1*NOT (COND ((EQUAL *3*RN (QUOTE 2)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) (*1*NOT (COND ((EQUAL *3*RN (QUOTE 3)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))))))))) (PUT1-LST (QUOTE *1*D5-7A2-5P) (QUOTE (SEXPR (LAMBDA (*3*RN) (*1*AND (*1*D2-7A2-5P *3*RN) (*1*AND (*1*NOT (COND ((EQUAL *3*RN (QUOTE 2)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) (*1*AND (*1*NOT (COND ((EQUAL *3*RN (QUOTE 3)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) (*1*NOT (COND ((EQUAL *3*RN (QUOTE 4)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))))))))))) (PUT1-LST (QUOTE *1*D2-7A3-5P) (QUOTE (SEXPR (LAMBDA (*3*RN) (*1*AND (*1*D2-7A2-5P *3*RN) (*1*NOT (COND ((EQUAL *3*RN (QUOTE 10)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))))))))) (PUT1-LST (QUOTE *1*D4-7A4-5P) (QUOTE (SEXPR (LAMBDA (*3*RN) (*1*AND (*1*D4-7A2-5P *3*RN) (*1*AND (*1*NOT (COND ((EQUAL *3*RN (QUOTE 10)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) (*1*NOT (COND ((EQUAL *3*RN (QUOTE 11)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))))))))) (PUT1-LST (QUOTE *1*D4-7A5P) (QUOTE (SEXPR (LAMBDA (*3*RN) (*1*AND (*1*D4-7A2-5P *3*RN) (*1*AND (*1*NOT (COND ((EQUAL *3*RN (QUOTE 10)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) (*1*AND (*1*NOT (COND ((EQUAL *3*RN (QUOTE 11)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) (*1*NOT (COND ((EQUAL *3*RN (QUOTE 12)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))))))))))) (PUT1-LST (QUOTE *1*D5-7A4-5P) (QUOTE (SEXPR (LAMBDA (*3*RN) (*1*AND (*1*D4-7A2-5P *3*RN) (*1*AND (*1*NOT (COND ((EQUAL *3*RN (QUOTE 4)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) (*1*AND (*1*NOT (COND ((EQUAL *3*RN (QUOTE 10)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) (*1*NOT (COND ((EQUAL *3*RN (QUOTE 11)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))))))))))) (PUT1-LST (QUOTE *1*D6-7A2-5P) (QUOTE (SEXPR (LAMBDA (*3*RN) (*1*AND (*1*D4-7A2-5P *3*RN) (*1*AND (*1*NOT (COND ((EQUAL *3*RN (QUOTE 4)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) (*1*NOT (COND ((EQUAL *3*RN (QUOTE 5)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))))))))) (PUT1-LST (QUOTE *1*SWAP) (QUOTE (SEXPR (LAMBDA (*3*I *3*J *3*LST) (*1*PUT-NTH (*1*GET-NTH *3*I *3*LST) *3*J (*1*PUT-NTH (*1*GET-NTH *3*J *3*LST) *3*I *3*LST)))))) (PUT1-LST (QUOTE *1*NULL) (QUOTE (SEXPR (LAMBDA NIL (QUOTE 0))))) (PUT1-LST (QUOTE *1*EOF) (QUOTE (SEXPR (LAMBDA NIL (QUOTE -1))))) (PUT1-LST (QUOTE *1*MEMCHR1) (QUOTE (SEXPR (LAMBDA (*3*I *3*N *3*LST *3*CH) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((EQUAL (*1*GET-NTH *3*I *3*LST) *3*CH) (*1*FIX *3*I)) ((EQUAL (SETQ *2*TEMP1 (*1*SUB1 *3*N)) (QUOTE 0)) (QUOTE *1*FALSE)) (T (*1*MEMCHR1 (*1*ADD1 *3*I) *2*TEMP1 *3*LST *3*CH)))))))) (PUT1-LST (QUOTE *1*MEMCHR) (QUOTE (SEXPR (LAMBDA (*3*N *3*LST *3*CH) (COND ((EQUAL *3*N (QUOTE 0)) (QUOTE *1*FALSE)) (T (*1*MEMCHR1 (QUOTE 0) *3*N *3*LST *3*CH))))))) (PUT1-LST (QUOTE *1*MEMCMP1) (QUOTE (SEXPR (LAMBDA (*3*I *3*N *3*LST1 *3*LST2) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X))) (COND ((EQUAL (SETQ *2*TEMP3 (*1*GET-NTH *3*I *3*LST1)) (SETQ *2*TEMP2 (*1*GET-NTH *3*I *3*LST2))) (COND ((EQUAL (SETQ *2*TEMP1 (*1*SUB1 *3*N)) (QUOTE 0)) (QUOTE 0)) (T (*1*MEMCMP1 (*1*ADD1 *3*I) *2*TEMP1 *3*LST1 *3*LST2)))) (T (*1*IDIFFERENCE *2*TEMP3 *2*TEMP2)))))))) (PUT1-LST (QUOTE *1*MEMCMP) (QUOTE (SEXPR (LAMBDA (*3*N *3*LST1 *3*LST2) (COND ((EQUAL *3*N (QUOTE 0)) (QUOTE 0)) (T (*1*MEMCMP1 (QUOTE 0) *3*N *3*LST1 *3*LST2))))))) (PUT1-LST (QUOTE *1*MEMSET1) (QUOTE (SEXPR (LAMBDA (*3*I *3*N *3*LST *3*CH) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((EQUAL (SETQ *2*TEMP1 (*1*SUB1 *3*N)) (QUOTE 0)) (*1*PUT-NTH *3*CH *3*I *3*LST)) (T (*1*MEMSET1 (*1*ADD1 *3*I) *2*TEMP1 (*1*PUT-NTH *3*CH *3*I *3*LST) *3*CH)))))))) (PUT1-LST (QUOTE *1*MEMSET) (QUOTE (SEXPR (LAMBDA (*3*N *3*LST *3*CH) (COND ((EQUAL *3*N (QUOTE 0)) *3*LST) (T (*1*MEMSET1 (QUOTE 0) *3*N *3*LST *3*CH))))))) (PUT1-LST (QUOTE *1*STRLEN) (QUOTE (SEXPR (LAMBDA (*3*I *3*N *3*LST) (COND ((NOT (EQ (*1*LESSP *3*I *3*N) *1*F)) (COND ((EQUAL (*1*GET-NTH *3*I *3*LST) (*1*NULL)) *3*I) (T (*1*STRLEN (*1*ADD1 *3*I) *3*N *3*LST)))) (T *3*I)))))) (PUT1-LST (QUOTE *1*STRCPY) (QUOTE (SEXPR (LAMBDA (*3*I *3*LST1 *3*N2 *3*LST2) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (COND ((NOT (EQ (*1*LESSP *3*I *3*N2) *1*F)) (COND ((EQUAL (SETQ *2*TEMP2 (*1*GET-NTH *3*I *3*LST2)) (SETQ *2*TEMP1 (*1*NULL))) (*1*PUT-NTH *2*TEMP1 *3*I *3*LST1)) (T (*1*STRCPY (*1*ADD1 *3*I) (*1*PUT-NTH *2*TEMP2 *3*I *3*LST1) *3*N2 *3*LST2)))) (T *3*LST1))))))) (PUT1-LST (QUOTE *1*STRCMP) (QUOTE (SEXPR (LAMBDA (*3*I *3*N1 *3*LST1 *3*LST2) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (COND ((NOT (EQ (*1*LESSP *3*I *3*N1) *1*F)) (COND ((EQUAL (SETQ *2*TEMP2 (*1*GET-NTH *3*I *3*LST1)) (SETQ *2*TEMP1 (*1*GET-NTH *3*I *3*LST2))) (COND ((EQUAL *2*TEMP2 (*1*NULL)) (QUOTE 0)) (T (*1*STRCMP (*1*ADD1 *3*I) *3*N1 *3*LST1 *3*LST2)))) (T (*1*IDIFFERENCE *2*TEMP2 *2*TEMP1)))) (T (QUOTE 0)))))))) (PUT1-LST (QUOTE *1*STRCOLL) (QUOTE (SEXPR (LAMBDA (*3*N1 *3*LST1 *3*LST2) (*1*STRCMP (QUOTE 0) *3*N1 *3*LST1 *3*LST2))))) (PUT1-LST (QUOTE *1*STRCPY1) (QUOTE (SEXPR (LAMBDA (*3*I *3*LST1 *3*J *3*N2 *3*LST2) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (COND ((NOT (EQ (*1*LESSP *3*J *3*N2) *1*F)) (COND ((EQUAL (SETQ *2*TEMP2 (*1*GET-NTH *3*J *3*LST2)) (SETQ *2*TEMP1 (*1*NULL))) (*1*PUT-NTH *2*TEMP1 *3*I *3*LST1)) (T (*1*STRCPY1 (*1*ADD1 *3*I) (*1*PUT-NTH *2*TEMP2 *3*I *3*LST1) (*1*ADD1 *3*J) *3*N2 *3*LST2)))) (T *3*LST1))))))) (PUT1-LST (QUOTE *1*STRCAT) (QUOTE (SEXPR (LAMBDA (*3*N1 *3*LST1 *3*N2 *3*LST2) (COND ((EQUAL (*1*GET-NTH (QUOTE 0) *3*LST1) (*1*NULL)) (*1*STRCPY1 (QUOTE 0) *3*LST1 (QUOTE 0) *3*N2 *3*LST2)) (T (*1*STRCPY1 (*1*STRLEN (QUOTE 1) *3*N1 *3*LST1) *3*LST1 (QUOTE 0) *3*N2 *3*LST2))))))) (PUT1-LST (QUOTE *1*STRCPY2) (QUOTE (SEXPR (LAMBDA (*3*I *3*LST1 *3*J *3*N *3*LST2) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X))) (COND ((EQUAL (SETQ *2*TEMP3 (*1*GET-NTH *3*J *3*LST2)) (SETQ *2*TEMP2 (*1*NULL))) (*1*PUT-NTH *2*TEMP2 *3*I *3*LST1)) ((EQUAL (SETQ *2*TEMP1 (*1*SUB1 *3*N)) (QUOTE 0)) (*1*PUT-NTH *2*TEMP2 (*1*ADD1 *3*I) (*1*PUT-NTH *2*TEMP3 *3*I *3*LST1))) (T (*1*STRCPY2 (*1*ADD1 *3*I) (*1*PUT-NTH *2*TEMP3 *3*I *3*LST1) (*1*ADD1 *3*J) *2*TEMP1 *3*LST2)))))))) (PUT1-LST (QUOTE *1*STRNCAT) (QUOTE (SEXPR (LAMBDA (*3*N1 *3*LST1 *3*N *3*LST2) (COND ((EQUAL *3*N (QUOTE 0)) *3*LST1) ((EQUAL (*1*GET-NTH (QUOTE 0) *3*LST1) (*1*NULL)) (*1*STRCPY2 (QUOTE 0) *3*LST1 (QUOTE 0) *3*N *3*LST2)) (T (*1*STRCPY2 (*1*STRLEN (QUOTE 1) *3*N1 *3*LST1) *3*LST1 (QUOTE 0) *3*N *3*LST2))))))) (PUT1-LST (QUOTE *1*STRNCMP1) (QUOTE (SEXPR (LAMBDA (*3*I *3*N *3*LST1 *3*LST2) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X))) (COND ((EQUAL (SETQ *2*TEMP3 (*1*GET-NTH *3*I *3*LST1)) (SETQ *2*TEMP2 (*1*GET-NTH *3*I *3*LST2))) (COND ((EQUAL *2*TEMP3 (QUOTE 0)) (QUOTE 0)) ((EQUAL (SETQ *2*TEMP1 (*1*SUB1 *3*N)) (QUOTE 0)) (QUOTE 0)) (T (*1*STRNCMP1 (*1*ADD1 *3*I) *2*TEMP1 *3*LST1 *3*LST2)))) (T (*1*IDIFFERENCE *2*TEMP3 *2*TEMP2)))))))) (PUT1-LST (QUOTE *1*STRNCMP) (QUOTE (SEXPR (LAMBDA (*3*N *3*LST1 *3*LST2) (COND ((NOT (EQ (*1*ZEROP *3*N) *1*F)) (QUOTE 0)) (T (*1*STRNCMP1 (QUOTE 0) *3*N *3*LST1 *3*LST2))))))) (PUT1-LST (QUOTE *1*ZERO-LIST1) (QUOTE (SEXPR (LAMBDA (*3*I *3*N *3*LST) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((EQUAL (SETQ *2*TEMP1 (*1*SUB1 *3*N)) (QUOTE 0)) *3*LST) (T (*1*ZERO-LIST1 (*1*ADD1 *3*I) *2*TEMP1 (*1*PUT-NTH (QUOTE 0) *3*I *3*LST))))))))) (PUT1-LST (QUOTE *1*ZERO-LIST) (QUOTE (SEXPR (LAMBDA (*3*I *3*N *3*LST) (*1*ZERO-LIST1 (*1*ADD1 *3*I) *3*N (*1*PUT-NTH (QUOTE 0) *3*I *3*LST)))))) (PUT1-LST (QUOTE *1*STRNCPY1) (QUOTE (SEXPR (LAMBDA (*3*I *3*N *3*LST1 *3*LST2) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (COND ((EQUAL (SETQ *2*TEMP2 (*1*GET-NTH *3*I *3*LST2)) (QUOTE 0)) (*1*ZERO-LIST *3*I *3*N *3*LST1)) ((EQUAL (SETQ *2*TEMP1 (*1*SUB1 *3*N)) (QUOTE 0)) (*1*PUT-NTH *2*TEMP2 *3*I *3*LST1)) (T (*1*STRNCPY1 (*1*ADD1 *3*I) *2*TEMP1 (*1*PUT-NTH *2*TEMP2 *3*I *3*LST1) *3*LST2)))))))) (PUT1-LST (QUOTE *1*STRNCPY) (QUOTE (SEXPR (LAMBDA (*3*N *3*LST1 *3*LST2) (COND ((NOT (EQ (*1*ZEROP *3*N) *1*F)) *3*LST1) (T (*1*STRNCPY1 (QUOTE 0) *3*N *3*LST1 *3*LST2))))))) (PUT1-LST (QUOTE *1*STRCHR) (QUOTE (SEXPR (LAMBDA (*3*I *3*N *3*LST *3*CH) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*LESSP *3*I *3*N) *1*F)) (COND ((EQUAL (SETQ *2*TEMP1 (*1*GET-NTH *3*I *3*LST)) *3*CH) (*1*FIX *3*I)) ((EQUAL *2*TEMP1 (QUOTE 0)) (QUOTE *1*FALSE)) (T (*1*STRCHR (*1*ADD1 *3*I) *3*N *3*LST *3*CH)))) (T (QUOTE *1*FALSE)))))))) (PUT1-LST (QUOTE *1*STRCSPN) (QUOTE (SEXPR (LAMBDA (*3*I1 *3*N1 *3*LST1 *3*N2 *3*LST2) (COND ((NOT (EQ (*1*LESSP *3*I1 *3*N1) *1*F)) (COND ((NOT (EQ (*1*STRCHR (QUOTE 0) *3*N2 *3*LST2 (*1*GET-NTH *3*I1 *3*LST1)) *1*F)) (*1*FIX *3*I1)) (T (*1*STRCSPN (*1*ADD1 *3*I1) *3*N1 *3*LST1 *3*N2 *3*LST2)))) (T (QUOTE *1*FALSE))))))) (PUT1-LST (QUOTE *1*STRRCHR) (QUOTE (SEXPR (LAMBDA (*3*I *3*N *3*LST *3*CH *3*J) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*LESSP *3*I *3*N) *1*F)) (COND ((EQUAL (SETQ *2*TEMP1 (*1*GET-NTH *3*I *3*LST)) *3*CH) (COND ((EQUAL *2*TEMP1 (QUOTE 0)) (*1*FIX *3*I)) (T (*1*STRRCHR (*1*ADD1 *3*I) *3*N *3*LST *3*CH (*1*FIX *3*I))))) ((EQUAL *2*TEMP1 (QUOTE 0)) *3*J) (T (*1*STRRCHR (*1*ADD1 *3*I) *3*N *3*LST *3*CH *3*J)))) (T *3*J))))))) (PUT1-LST (QUOTE *1*STRCHR1) (QUOTE (SEXPR (LAMBDA (*3*I *3*N *3*LST *3*CH) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*LESSP *3*I *3*N) *1*F)) (COND ((EQUAL (SETQ *2*TEMP1 (*1*GET-NTH *3*I *3*LST)) (QUOTE 0)) (QUOTE *1*FALSE)) ((EQUAL *2*TEMP1 *3*CH) (*1*FIX *3*I)) (T (*1*STRCHR1 (*1*ADD1 *3*I) *3*N *3*LST *3*CH)))) (T (QUOTE *1*FALSE)))))))) (PUT1-LST (QUOTE *1*STRSPN) (QUOTE (SEXPR (LAMBDA (*3*I1 *3*N1 *3*LST1 *3*N2 *3*LST2) (COND ((NOT (EQ (*1*LESSP *3*I1 *3*N1) *1*F)) (COND ((NOT (EQ (*1*STRCHR1 (QUOTE 0) *3*N2 *3*LST2 (*1*GET-NTH *3*I1 *3*LST1)) *1*F)) (*1*STRSPN (*1*ADD1 *3*I1) *3*N1 *3*LST1 *3*N2 *3*LST2)) (T (*1*FIX *3*I1)))) (T (QUOTE *1*FALSE))))))) (PUT1-LST (QUOTE *1*STRPBRK) (QUOTE (SEXPR (LAMBDA (*3*I1 *3*N1 *3*LST1 *3*N2 *3*LST2) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*LESSP *3*I1 *3*N1) *1*F)) (COND ((EQUAL (SETQ *2*TEMP1 (*1*GET-NTH *3*I1 *3*LST1)) (QUOTE 0)) (QUOTE *1*FALSE)) ((NOT (EQ (*1*STRCHR1 (QUOTE 0) *3*N2 *3*LST2 *2*TEMP1) *1*F)) (*1*FIX *3*I1)) (T (*1*STRPBRK (*1*ADD1 *3*I1) *3*N1 *3*LST1 *3*N2 *3*LST2)))) (T (QUOTE *1*FALSE)))))))) (PUT1-LST (QUOTE *1*STRSTR1) (QUOTE (SEXPR (LAMBDA (*3*I *3*N1 *3*LST1 *3*N2 *3*LST2 *3*LEN) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (COND ((NOT (EQ (*1*LESSP *3*I *3*N1) *1*F)) (COND ((NOT (EQ (*1*NUMBERP (SETQ *2*TEMP2 (*1*STRCHR1 *3*I *3*N1 *3*LST1 (*1*GET-NTH (QUOTE 0) *3*LST2)))) *1*F)) (COND ((EQUAL (*1*STRNCMP *3*LEN (*1*MCDR (SETQ *2*TEMP1 (*1*ADD1 *2*TEMP2)) *3*LST1) (*1*MCDR (QUOTE 1) *3*LST2)) (QUOTE 0)) *2*TEMP2) (T (*1*STRSTR1 *2*TEMP1 *3*N1 *3*LST1 *3*N2 *3*LST2 *3*LEN)))) (T (QUOTE *1*FALSE)))) (T (QUOTE *1*FALSE)))))))) (PUT1-LST (QUOTE *1*STRSTR) (QUOTE (SEXPR (LAMBDA (*3*N1 *3*LST1 *3*N2 *3*LST2) (COND ((EQUAL (*1*GET-NTH (QUOTE 0) *3*LST2) (QUOTE 0)) (QUOTE 0)) (T (*1*STRSTR1 (QUOTE 0) *3*N1 *3*LST1 *3*N2 *3*LST2 (*1*STRLEN (QUOTE 0) (*1*SUB1 *3*N2) (*1*MCDR (QUOTE 1) *3*LST2))))))))) (PUT1-LST (QUOTE *1*MEMMOVE-1) (QUOTE (SEXPR (LAMBDA (*3*LST1 *3*LST2 *3*I *3*NT *3*N) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((EQUAL (SETQ *2*TEMP1 (*1*REMAINDER *3*N (QUOTE 4))) (QUOTE 0)) (*1*MMOVN-LST (QUOTE 4) *3*LST1 *3*LST2 *3*I *3*NT)) (T (*1*MMOV1-LST (*1*PLUS *3*I (*1*TIMES (QUOTE 4) *3*NT)) (*1*MMOVN-LST (QUOTE 4) *3*LST1 *3*LST2 *3*I *3*NT) *3*LST2 *2*TEMP1)))))))) (PUT1-LST (QUOTE *1*MEMMOVE-0) (QUOTE (SEXPR (LAMBDA (*3*LST1 *3*LST2 *3*I *3*NT *3*N) (LET NIL (COND ((NOT (EQ (*1*LESSP *3*N (QUOTE 4)) *1*F)) (*1*MMOV1-LST (*1*PLUS *3*I *3*NT) (*1*MMOV1-LST *3*I *3*LST1 *3*LST2 *3*NT) *3*LST2 *3*N)) (T (*1*MEMMOVE-1 (*1*MMOV1-LST *3*I *3*LST1 *3*LST2 *3*NT) *3*LST2 (*1*PLUS *3*I *3*NT) (*1*QUOTIENT *3*N (QUOTE 4)) *3*N)))))))) (PUT1-LST (QUOTE *1*MEMMOVE-4) (QUOTE (SEXPR (LAMBDA (*3*LST1 *3*LST2 *3*I *3*NT *3*N) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((EQUAL (SETQ *2*TEMP1 (*1*REMAINDER *3*N (QUOTE 4))) (QUOTE 0)) (*1*MMOVN-LST1 (QUOTE 4) *3*LST1 *3*LST2 *3*I *3*NT)) (T (*1*MMOV1-LST1 (*1*DIFFERENCE *3*I (*1*TIMES (QUOTE 4) *3*NT)) (*1*MMOVN-LST1 (QUOTE 4) *3*LST1 *3*LST2 *3*I *3*NT) *3*LST2 *2*TEMP1)))))))) (PUT1-LST (QUOTE *1*MEMMOVE-3) (QUOTE (SEXPR (LAMBDA (*3*LST1 *3*LST2 *3*I *3*NT *3*N) (LET NIL (COND ((NOT (EQ (*1*LESSP *3*N (QUOTE 4)) *1*F)) (*1*MMOV1-LST1 (*1*DIFFERENCE *3*I *3*NT) (*1*MMOV1-LST1 *3*I *3*LST1 *3*LST2 *3*NT) *3*LST2 *3*N)) (T (*1*MEMMOVE-4 (*1*MMOV1-LST1 *3*I *3*LST1 *3*LST2 *3*NT) *3*LST2 (*1*DIFFERENCE *3*I *3*NT) (*1*QUOTIENT *3*N (QUOTE 4)) *3*N)))))))) (PUT1-LST (QUOTE *1*MEMMOVE) (QUOTE (SEXPR (LAMBDA (*3*STR1 *3*STR2 *3*N *3*LST1 *3*LST2) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X)) (*2*TEMP4 (QUOTE *1*X)) (*2*TEMP5 (QUOTE *1*X)) (*2*TEMP6 (QUOTE *1*X))) (COND ((NOT (EQ (*1*ZEROP *3*N) *1*F)) *3*LST1) ((EQUAL (SETQ *2*TEMP6 (*1*NAT-TO-UINT *3*STR1)) (SETQ *2*TEMP5 (*1*NAT-TO-UINT *3*STR2))) *3*LST2) ((NOT (EQ (*1*LESSP *2*TEMP6 *2*TEMP5) *1*F)) (COND ((NOT (EQ (*1*AND (COND ((EQUAL (SETQ *2*TEMP4 (*1*REMAINDER *2*TEMP6 (QUOTE 4))) (QUOTE 0)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (COND ((EQUAL (SETQ *2*TEMP3 (*1*REMAINDER *2*TEMP5 (QUOTE 4))) (QUOTE 0)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) *1*F)) (COND ((NOT (EQ (*1*LESSP *3*N (QUOTE 4)) *1*F)) (*1*MMOV1-LST (QUOTE 0) *3*LST1 *3*LST2 *3*N)) (T (*1*MEMMOVE-1 *3*LST1 *3*LST2 (QUOTE 0) (*1*QUOTIENT *3*N (QUOTE 4)) *3*N)))) ((NOT (EQ (*1*AND (COND ((EQUAL *2*TEMP4 *2*TEMP3) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*LESSP (QUOTE 3) *3*N)) *1*F)) (*1*MEMMOVE-0 *3*LST1 *3*LST2 (QUOTE 0) (*1*DIFFERENCE (QUOTE 4) *2*TEMP4) (*1*DIFFERENCE (*1*PLUS *3*N *2*TEMP4) (QUOTE 4)))) (T (*1*MEMMOVE-0 *3*LST1 *3*LST2 (QUOTE 0) *3*N (QUOTE 0))))) ((NOT (EQ (*1*AND (COND ((EQUAL (SETQ *2*TEMP2 (*1*REMAINDER (*1*PLUS *3*N *2*TEMP6) (QUOTE 4))) (QUOTE 0)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (COND ((EQUAL (SETQ *2*TEMP1 (*1*REMAINDER (*1*PLUS *3*N *2*TEMP5) (QUOTE 4))) (QUOTE 0)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) *1*F)) (COND ((NOT (EQ (*1*LESSP *3*N (QUOTE 4)) *1*F)) (*1*MMOV1-LST1 *3*N *3*LST1 *3*LST2 *3*N)) (T (*1*MEMMOVE-4 *3*LST1 *3*LST2 *3*N (*1*QUOTIENT *3*N (QUOTE 4)) *3*N)))) ((NOT (EQ (*1*AND (COND ((EQUAL *2*TEMP2 *2*TEMP1) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*LESSP (QUOTE 4) *3*N)) *1*F)) (*1*MEMMOVE-3 *3*LST1 *3*LST2 *3*N *2*TEMP2 (*1*DIFFERENCE *3*N *2*TEMP2))) (T (*1*MEMMOVE-3 *3*LST1 *3*LST2 *3*N *3*N (QUOTE 0))))))))) (PUT1-LST (QUOTE *1*STRLEN*) (QUOTE (SEXPR (LAMBDA (*3*I* *3*I *3*N *3*LST) (COND ((NOT (EQ (*1*LESSP *3*I *3*N) *1*F)) (COND ((EQUAL (*1*GET-NTH *3*I *3*LST) (*1*NULL)) *3*I*) (T (*1*STRLEN* (*1*ADD (QUOTE 32) *3*I* (QUOTE 1)) (*1*ADD1 *3*I) *3*N *3*LST)))) (T *3*I*)))))) (PUT1-LST (QUOTE *1*MEMCHR*) (QUOTE (SEXPR (LAMBDA (*3*I* *3*I *3*N *3*LST *3*CH) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((EQUAL (*1*GET-NTH *3*I *3*LST) *3*CH) *3*I*) ((EQUAL (SETQ *2*TEMP1 (*1*SUB1 *3*N)) (QUOTE 0)) (QUOTE *1*FALSE)) (T (*1*MEMCHR* (*1*ADD (QUOTE 32) *3*I* (QUOTE 1)) (*1*ADD1 *3*I) *2*TEMP1 *3*LST *3*CH)))))))) (PUT1-LST (QUOTE *1*STRCHR*) (QUOTE (SEXPR (LAMBDA (*3*I* *3*I *3*N *3*LST *3*CH) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*LESSP *3*I *3*N) *1*F)) (COND ((EQUAL (SETQ *2*TEMP1 (*1*GET-NTH *3*I *3*LST)) *3*CH) *3*I*) ((EQUAL *2*TEMP1 (QUOTE 0)) (QUOTE *1*FALSE)) (T (*1*STRCHR* (*1*ADD (QUOTE 32) *3*I* (QUOTE 1)) (*1*ADD1 *3*I) *3*N *3*LST *3*CH)))) (T (QUOTE *1*FALSE)))))))) (PUT1-LST (QUOTE *1*STRCHR1*) (QUOTE (SEXPR (LAMBDA (*3*I* *3*I *3*N *3*LST *3*CH) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*LESSP *3*I *3*N) *1*F)) (COND ((EQUAL (SETQ *2*TEMP1 (*1*GET-NTH *3*I *3*LST)) (QUOTE 0)) (QUOTE *1*FALSE)) ((EQUAL *2*TEMP1 *3*CH) *3*I*) (T (*1*STRCHR1* (*1*ADD (QUOTE 32) *3*I* (QUOTE 1)) (*1*ADD1 *3*I) *3*N *3*LST *3*CH)))) (T (QUOTE *1*FALSE)))))))) (PUT1-LST (QUOTE *1*STRCSPN*) (QUOTE (SEXPR (LAMBDA (*3*I1* *3*I1 *3*N1 *3*LST1 *3*N2 *3*LST2) (COND ((NOT (EQ (*1*LESSP *3*I1 *3*N1) *1*F)) (COND ((NOT (EQ (*1*STRCHR (QUOTE 0) *3*N2 *3*LST2 (*1*GET-NTH *3*I1 *3*LST1)) *1*F)) *3*I1*) (T (*1*STRCSPN* (*1*ADD (QUOTE 32) *3*I1* (QUOTE 1)) (*1*ADD1 *3*I1) *3*N1 *3*LST1 *3*N2 *3*LST2)))) (T (QUOTE *1*FALSE))))))) (PUT1-LST (QUOTE *1*STRRCHR*) (QUOTE (SEXPR (LAMBDA (*3*I* *3*I *3*N *3*LST *3*CH *3*J*) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*LESSP *3*I *3*N) *1*F)) (COND ((EQUAL (SETQ *2*TEMP1 (*1*GET-NTH *3*I *3*LST)) *3*CH) (COND ((EQUAL *2*TEMP1 (QUOTE 0)) *3*I*) (T (*1*STRRCHR* (*1*ADD (QUOTE 32) *3*I* (QUOTE 1)) (*1*ADD1 *3*I) *3*N *3*LST *3*CH *3*I*)))) ((EQUAL *2*TEMP1 (QUOTE 0)) *3*J*) (T (*1*STRRCHR* (*1*ADD (QUOTE 32) *3*I* (QUOTE 1)) (*1*ADD1 *3*I) *3*N *3*LST *3*CH *3*J*)))) (T *3*J*))))))) (PUT1-LST (QUOTE *1*STRPBRK*) (QUOTE (SEXPR (LAMBDA (*3*I1* *3*I1 *3*N1 *3*LST1 *3*N2 *3*LST2) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*LESSP *3*I1 *3*N1) *1*F)) (COND ((EQUAL (SETQ *2*TEMP1 (*1*GET-NTH *3*I1 *3*LST1)) (QUOTE 0)) (QUOTE *1*FALSE)) ((NOT (EQ (*1*STRCHR1 (QUOTE 0) *3*N2 *3*LST2 *2*TEMP1) *1*F)) *3*I1*) (T (*1*STRPBRK* (*1*ADD (QUOTE 32) *3*I1* (QUOTE 1)) (*1*ADD1 *3*I1) *3*N1 *3*LST1 *3*N2 *3*LST2)))) (T (QUOTE *1*FALSE)))))))) (PUT1-LST (QUOTE *1*STRSPN*) (QUOTE (SEXPR (LAMBDA (*3*I1* *3*I1 *3*N1 *3*LST1 *3*N2 *3*LST2) (COND ((NOT (EQ (*1*LESSP *3*I1 *3*N1) *1*F)) (COND ((NOT (EQ (*1*STRCHR1 (QUOTE 0) *3*N2 *3*LST2 (*1*GET-NTH *3*I1 *3*LST1)) *1*F)) (*1*STRSPN* (*1*ADD (QUOTE 32) *3*I1* (QUOTE 1)) (*1*ADD1 *3*I1) *3*N1 *3*LST1 *3*N2 *3*LST2)) (T *3*I1*))) (T (QUOTE *1*FALSE))))))) (PUT1-LST (QUOTE *1*STRSTR1*) (QUOTE (SEXPR (LAMBDA (*3*I* *3*I *3*N1 *3*LST1 *3*N2 *3*LST2 *3*LEN) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X))) (COND ((NOT (EQ (*1*LESSP *3*I *3*N1) *1*F)) (COND ((NOT (EQ (*1*NUMBERP (SETQ *2*TEMP3 (*1*STRCHR1 *3*I *3*N1 *3*LST1 (SETQ *2*TEMP2 (*1*GET-NTH (QUOTE 0) *3*LST2))))) *1*F)) (COND ((EQUAL (*1*STRNCMP *3*LEN (*1*MCDR (SETQ *2*TEMP1 (*1*ADD1 *2*TEMP3)) *3*LST1) (*1*MCDR (QUOTE 1) *3*LST2)) (QUOTE 0)) (*1*STRCHR1* *3*I* *3*I *3*N1 *3*LST1 *2*TEMP2)) (T (*1*STRSTR1* (*1*ADD (QUOTE 32) (*1*STRCHR1* *3*I* *3*I *3*N1 *3*LST1 *2*TEMP2) (QUOTE 1)) *2*TEMP1 *3*N1 *3*LST1 *3*N2 *3*LST2 *3*LEN)))) (T (QUOTE *1*FALSE)))) (T (QUOTE *1*FALSE)))))))) (PUT1-LST (QUOTE *1*STRSTR*) (QUOTE (SEXPR (LAMBDA (*3*N1 *3*LST1 *3*N2 *3*LST2) (COND ((EQUAL (*1*GET-NTH (QUOTE 0) *3*LST2) (QUOTE 0)) (QUOTE 0)) (T (*1*STRSTR1* (QUOTE 0) (QUOTE 0) *3*N1 *3*LST1 *3*N2 *3*LST2 (*1*STRLEN (QUOTE 0) (*1*SUB1 *3*N2) (*1*MCDR (QUOTE 1) *3*LST2))))))))) (PUT1-LST (QUOTE *1*STRTOK-TOK) (QUOTE (SEXPR (LAMBDA (*3*STR1 *3*LAST *3*N1 *3*LST1 *3*N2 *3*LST2) (LET NIL (COND ((EQUAL (*1*NAT-TO-UINT *3*STR1) (QUOTE 0)) (COND ((EQUAL (*1*NAT-TO-UINT *3*LAST) (QUOTE 0)) (QUOTE 0)) ((EQUAL (*1*GET-NTH (*1*STRSPN (QUOTE 0) *3*N1 *3*LST1 *3*N2 *3*LST2) *3*LST1) (QUOTE 0)) (QUOTE 0)) (T (*1*ADD (QUOTE 32) *3*LAST (*1*STRSPN* (QUOTE 0) (QUOTE 0) *3*N1 *3*LST1 *3*N2 *3*LST2))))) ((EQUAL (*1*GET-NTH (*1*STRSPN (QUOTE 0) *3*N1 *3*LST1 *3*N2 *3*LST2) *3*LST1) (QUOTE 0)) (QUOTE 0)) (T (*1*ADD (QUOTE 32) *3*STR1 (*1*STRSPN* (QUOTE 0) (QUOTE 0) *3*N1 *3*LST1 *3*N2 *3*LST2))))))))) (PUT1-LST (QUOTE *1*STRTOK-LST0) (QUOTE (SEXPR (LAMBDA (*3*I1 *3*LST1 *3*CH) (COND ((EQUAL *3*CH (QUOTE 0)) *3*LST1) (T (*1*PUT-NTH (QUOTE 0) *3*I1 *3*LST1))))))) (PUT1-LST (QUOTE *1*STRTOK-LST1) (QUOTE (SEXPR (LAMBDA (*3*I1 *3*N1 *3*LST1 *3*N2 *3*LST2) (LET ((*2*TEMP1 (QUOTE *1*X))) (*1*STRTOK-LST0 (SETQ *2*TEMP1 (*1*STRCSPN *3*I1 *3*N1 *3*LST1 *3*N2 *3*LST2)) *3*LST1 (*1*GET-NTH *2*TEMP1 *3*LST1))))))) (PUT1-LST (QUOTE *1*STRTOK-LST2) (QUOTE (SEXPR (LAMBDA (*3*I1 *3*N1 *3*LST1 *3*N2 *3*LST2) (COND ((EQUAL (*1*GET-NTH *3*I1 *3*LST1) (QUOTE 0)) *3*LST1) (T (*1*STRTOK-LST1 (*1*ADD1 *3*I1) *3*N1 *3*LST1 *3*N2 *3*LST2))))))) (PUT1-LST (QUOTE *1*STRTOK-LST) (QUOTE (SEXPR (LAMBDA (*3*N1 *3*LST1 *3*N2 *3*LST2) (*1*STRTOK-LST2 (*1*STRSPN (QUOTE 0) *3*N1 *3*LST1 *3*N2 *3*LST2) *3*N1 *3*LST1 *3*N2 *3*LST2))))) (PUT1-LST (QUOTE *1*STRTOK-LAST0) (QUOTE (SEXPR (LAMBDA (*3*STR1 *3*I1* *3*I1 *3*N1 *3*LST1 *3*N2 *3*LST2) (COND ((EQUAL (*1*GET-NTH (*1*STRCSPN *3*I1 *3*N1 *3*LST1 *3*N2 *3*LST2) *3*LST1) (QUOTE 0)) (QUOTE 0)) (T (*1*ADD (QUOTE 32) *3*STR1 (*1*ADD (QUOTE 32) (*1*STRCSPN* *3*I1* *3*I1 *3*N1 *3*LST1 *3*N2 *3*LST2) (QUOTE 1))))))))) (PUT1-LST (QUOTE *1*STRTOK-LAST1) (QUOTE (SEXPR (LAMBDA (*3*STR1 *3*I1* *3*I1 *3*N1 *3*LST1 *3*N2 *3*LST2) (COND ((EQUAL (*1*GET-NTH *3*I1 *3*LST1) (QUOTE 0)) (QUOTE 0)) (T (*1*STRTOK-LAST0 *3*STR1 (*1*ADD (QUOTE 32) *3*I1* (QUOTE 1)) (*1*ADD1 *3*I1) *3*N1 *3*LST1 *3*N2 *3*LST2))))))) (PUT1-LST (QUOTE *1*STRTOK-LAST) (QUOTE (SEXPR (LAMBDA (*3*STR1 *3*LAST *3*N1 *3*LST1 *3*N2 *3*LST2) (LET NIL (COND ((EQUAL (*1*NAT-TO-UINT *3*STR1) (QUOTE 0)) (COND ((EQUAL (*1*NAT-TO-UINT *3*LAST) (QUOTE 0)) *3*LAST) (T (*1*STRTOK-LAST1 *3*LAST (*1*STRSPN* (QUOTE 0) (QUOTE 0) *3*N1 *3*LST1 *3*N2 *3*LST2) (*1*STRSPN (QUOTE 0) *3*N1 *3*LST1 *3*N2 *3*LST2) *3*N1 *3*LST1 *3*N2 *3*LST2)))) (T (*1*STRTOK-LAST1 *3*STR1 (*1*STRSPN* (QUOTE 0) (QUOTE 0) *3*N1 *3*LST1 *3*N2 *3*LST2) (*1*STRSPN (QUOTE 0) *3*N1 *3*LST1 *3*N2 *3*LST2) *3*N1 *3*LST1 *3*N2 *3*LST2)))))))) (PUT1-LST (QUOTE *1*STRXFRM1) (QUOTE (SEXPR (LAMBDA (*3*I *3*LST1 *3*LST2 *3*N) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (COND ((EQUAL (SETQ *2*TEMP2 (*1*GET-NTH *3*I *3*LST2)) (QUOTE 0)) (*1*PUT-NTH (QUOTE 0) *3*I *3*LST1)) ((EQUAL (SETQ *2*TEMP1 (*1*SUB1 *3*N)) (QUOTE 0)) (*1*PUT-NTH (QUOTE 0) *3*I *3*LST1)) (T (*1*STRXFRM1 (*1*ADD1 *3*I) (*1*PUT-NTH *2*TEMP2 *3*I *3*LST1) *3*LST2 *2*TEMP1)))))))) (PUT1-LST (QUOTE *1*STRXFRM) (QUOTE (SEXPR (LAMBDA (*3*LST1 *3*LST2 *3*N) (COND ((NOT (EQ (*1*ZEROP *3*N) *1*F)) *3*LST1) (T (*1*STRXFRM1 (QUOTE 0) *3*LST1 *3*LST2 *3*N))))))) (PUT1-LST (QUOTE *1*LST-OF-CHRP) (QUOTE (SEXPR (LAMBDA (*3*LST) (COND ((AND (CONSP *3*LST) (NOT (EQ (CAR *3*LST) (QUOTE *1*QUOTE)))) (*1*AND (*1*NUMBERP (CAR *3*LST)) (*1*AND (*1*LESSP (CAR *3*LST) (QUOTE 256)) (*1*LST-OF-CHRP (CDR *3*LST))))) (T (QUOTE *1*TRUE))))))) (PUT1-LST (QUOTE *1*SLEN) (QUOTE (SEXPR (LAMBDA (*3*I *3*N *3*LST) (LET NIL (COND ((NOT (EQ (*1*LESSP *3*I *3*N) *1*F)) (COND ((EQUAL (*1*GET-NTH *3*I *3*LST) (*1*NULL)) (*1*FIX *3*I)) (T (*1*SLEN (*1*ADD1 *3*I) *3*N *3*LST)))) (T (*1*FIX *3*I)))))))) (PUT1-LST (QUOTE *1*STRINGP) (QUOTE (SEXPR (LAMBDA (*3*I *3*N *3*LST) (*1*LESSP (*1*SLEN *3*I *3*N *3*LST) *3*N))))) (PUT1-LST (QUOTE *1*GCD-CODE) (QUOTE (SEXPR (LAMBDA NIL (QUOTE (78 86 0 0 72 231 48 0 36 46 0 8 38 46 0 12 74 130 103 28 74 131 102 4 32 2 96 22 182 130 108 8 76 67 40 0 36 0 96 232 76 66 56 0 38 0 96 224 32 3 76 238 0 12 255 248 78 94 78 117)))))) (PUT1-LST (QUOTE *1*GCD-LOADP) (QUOTE (SEXPR (LAMBDA (*3*S) (PROGN (THROW (QUOTE REDUCE-TERM) (QUOTE *1*FAILED)) *3*S))))) (PUT1-LST (QUOTE *1*GCD-ADDR) (QUOTE (SEXPR (LAMBDA NIL (PROGN (THROW (QUOTE REDUCE-TERM) (QUOTE *1*FAILED))))))) (PUT1-LST (QUOTE *1*GCD) (QUOTE (SEXPR (LAMBDA (*3*A *3*B) (COND ((NOT (EQ (*1*ZEROP *3*A) *1*F)) (*1*FIX *3*B)) ((NOT (EQ (*1*ZEROP *3*B) *1*F)) *3*A) ((NOT (EQ (*1*LESSP *3*B *3*A) *1*F)) (*1*GCD (*1*REMAINDER *3*A *3*B) *3*B)) (T (*1*GCD *3*A (*1*REMAINDER *3*B *3*A)))))))) (PUT1-LST (QUOTE *1*GCD-T1) (QUOTE (SEXPR (LAMBDA (*3*A *3*B) (COND ((NOT (EQ (*1*ZEROP *3*A) *1*F)) (QUOTE 6)) ((NOT (EQ (*1*ZEROP *3*B) *1*F)) (QUOTE 9)) ((NOT (EQ (*1*LESSP *3*B *3*A) *1*F)) (*1*SPLUS (QUOTE 9) (*1*GCD-T1 (*1*REMAINDER *3*A *3*B) *3*B))) (T (*1*SPLUS (QUOTE 9) (*1*GCD-T1 *3*A (*1*REMAINDER *3*B *3*A))))))))) (PUT1-LST (QUOTE *1*GCD-T) (QUOTE (SEXPR (LAMBDA (*3*A *3*B) (*1*SPLUS (QUOTE 4) (*1*GCD-T1 *3*A *3*B)))))) (PUT1-LST (QUOTE *1*GCD-INDUCT) (QUOTE (SEXPR (LAMBDA (*3*S *3*A *3*B) (LET NIL (COND ((NOT (EQ (*1*OR (*1*ZEROP *3*A) (*1*ZEROP *3*B)) *1*F)) (QUOTE *1*TRUE)) ((NOT (EQ (*1*LESSP *3*B *3*A) *1*F)) (*1*GCD-INDUCT (*1*STEPN *3*S (QUOTE 9)) (*1*REMAINDER *3*A *3*B) *3*B)) (T (*1*GCD-INDUCT (*1*STEPN *3*S (QUOTE 9)) *3*A (*1*REMAINDER *3*B *3*A))))))))) (PUT1-LST (QUOTE *1*GCD-STATEP) (QUOTE (SEXPR (LAMBDA (*3*S *3*A *3*B) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X))) (*1*AND (COND ((EQ (*1*MC-STATUS *3*S) (QUOTE RUNNING)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*AND (*1*EVENP (SETQ *2*TEMP3 (*1*MC-PC *3*S))) (*1*AND (*1*ROM-ADDRP *2*TEMP3 (SETQ *2*TEMP2 (*1*MC-MEM *3*S)) (QUOTE 60)) (*1*AND (*1*MCODE-ADDRP *2*TEMP3 *2*TEMP2 (*1*GCD-CODE)) (*1*AND (*1*RAM-ADDRP (*1*SUB (QUOTE 32) (QUOTE 12) (SETQ *2*TEMP1 (*1*READ-SP *3*S))) *2*TEMP2 (QUOTE 24)) (*1*AND (COND ((EQUAL *3*A (*1*IREAD-MEM (*1*ADD (QUOTE 32) *2*TEMP1 (QUOTE 4)) *2*TEMP2 (QUOTE 4))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*AND (COND ((EQUAL *3*B (*1*IREAD-MEM (*1*ADD (QUOTE 32) *2*TEMP1 (QUOTE 8)) *2*TEMP2 (QUOTE 4))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*AND (*1*NUMBERP *3*A) (*1*NUMBERP *3*B)))))))))))))) (PUT1-LST (QUOTE *1*GCD-S0P) (QUOTE (SEXPR (LAMBDA (*3*S *3*A *3*B) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X))) (*1*AND (COND ((EQ (*1*MC-STATUS *3*S) (QUOTE RUNNING)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*AND (*1*EVENP (SETQ *2*TEMP3 (*1*MC-PC *3*S))) (*1*AND (*1*ROM-ADDRP (SETQ *2*TEMP2 (*1*SUB (QUOTE 32) (QUOTE 16) *2*TEMP3)) (SETQ *2*TEMP1 (*1*MC-MEM *3*S)) (QUOTE 60)) (*1*AND (*1*MCODE-ADDRP *2*TEMP2 *2*TEMP1 (*1*GCD-CODE)) (*1*AND (*1*RAM-ADDRP (*1*SUB (QUOTE 32) (QUOTE 8) (*1*READ-AN (QUOTE 32) (QUOTE 6) *3*S)) *2*TEMP1 (QUOTE 24)) (*1*AND (COND ((EQUAL *3*A (*1*IREAD-DN (QUOTE 32) (QUOTE 2) *3*S)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*AND (COND ((EQUAL *3*B (*1*IREAD-DN (QUOTE 32) (QUOTE 3) *3*S)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*AND (*1*NUMBERP *3*A) (*1*NUMBERP *3*B)))))))))))))) (PUT1-LST (QUOTE *1*GCD-T2) (QUOTE (SEXPR (LAMBDA (*3*A *3*B) (COND ((NOT (EQ (*1*ZEROP *3*A) *1*F)) (QUOTE 6)) ((NOT (EQ (*1*ZEROP *3*B) *1*F)) (QUOTE 9)) ((NOT (EQ (*1*LESSP *3*B *3*A) *1*F)) (*1*PLUS (QUOTE 9) (*1*GCD-T2 (*1*REMAINDER *3*A *3*B) *3*B))) ((NOT (EQ (*1*LESSP *3*A *3*B) *1*F)) (*1*PLUS (QUOTE 9) (*1*GCD-T2 *3*A (*1*REMAINDER *3*B *3*A)))) (T (QUOTE 18)))))))