acl2-books-certs 6.3-5 / usr / share / acl2-6.3 / books / meta / meta-plus-equal.cert

(IN-PACKAGE "ACL2")
"ACL2 Version 6.3"
:BEGIN-PORTCULLIS-CMDS
:END-PORTCULLIS-CMDS
:EXPANSION-ALIST
((3 RECORD-EXPANSION (DEFEVALUATOR EV-PLUS-EQUAL EV-PLUS-EQUAL-LIST ((BINARY-+ X Y) (FIX X) (EQUAL X Y) (ACL2-NUMBERP X) (IF X Y Z))) (PROGN (RECORD-EXPANSION (WITH-OUTPUT :OFF ERROR :STACK :PUSH (MAKE-EVENT (ER-PROGN (WITH-OUTPUT :STACK :POP (DEFEVALUATOR-CHECK (QUOTE (DEFEVALUATOR EV-PLUS-EQUAL EV-PLUS-EQUAL-LIST ((BINARY-+ X Y) (FIX X) (EQUAL X Y) (ACL2-NUMBERP X) (IF X Y Z)))) (QUOTE EV-PLUS-EQUAL) (QUOTE EV-PLUS-EQUAL-LIST) (QUOTE ((BINARY-+ X Y) (FIX X) (EQUAL X Y) (ACL2-NUMBERP X) (IF X Y Z))) (QUOTE (DEFEVALUATOR . EV-PLUS-EQUAL)) STATE)) (VALUE (QUOTE (VALUE-TRIPLE NIL)))))) (WITH-OUTPUT :OFF ERROR :STACK :PUSH (VALUE-TRIPLE NIL))) (ENCAPSULATE (((EV-PLUS-EQUAL * *) => *) ((EV-PLUS-EQUAL-LIST * *) => *)) (SET-INHIBIT-WARNINGS "theory") (LOCAL (IN-THEORY *DEFEVALUATOR-FORM-BASE-THEORY*)) (LOCAL (MUTUAL-RECURSION (DEFUN-NX EV-PLUS-EQUAL (X A) (DECLARE (XARGS :VERIFY-GUARDS NIL :MEASURE (ACL2-COUNT X) :WELL-FOUNDED-RELATION O< :MODE :LOGIC)) (COND ((SYMBOLP X) (AND X (CDR (ASSOC-EQ X A)))) ((ATOM X) NIL) ((EQ (CAR X) (QUOTE QUOTE)) (CAR (CDR X))) ((CONSP (CAR X)) (EV-PLUS-EQUAL (CAR (CDR (CDR (CAR X)))) (PAIRLIS$ (CAR (CDR (CAR X))) (EV-PLUS-EQUAL-LIST (CDR X) A)))) ((EQUAL (CAR X) (QUOTE BINARY-+)) (BINARY-+ (EV-PLUS-EQUAL (CAR (CDR X)) A) (EV-PLUS-EQUAL (CAR (CDR (CDR X))) A))) ((EQUAL (CAR X) (QUOTE FIX)) (FIX (EV-PLUS-EQUAL (CAR (CDR X)) A))) ((EQUAL (CAR X) (QUOTE EQUAL)) (EQUAL (EV-PLUS-EQUAL (CAR (CDR X)) A) (EV-PLUS-EQUAL (CAR (CDR (CDR X))) A))) ((EQUAL (CAR X) (QUOTE ACL2-NUMBERP)) (ACL2-NUMBERP (EV-PLUS-EQUAL (CAR (CDR X)) A))) ((EQUAL (CAR X) (QUOTE IF)) (IF (EV-PLUS-EQUAL (CAR (CDR X)) A) (EV-PLUS-EQUAL (CAR (CDR (CDR X))) A) (EV-PLUS-EQUAL (CAR (CDR (CDR (CDR X)))) A))) (T NIL))) (DEFUN-NX EV-PLUS-EQUAL-LIST (X-LST A) (DECLARE (XARGS :MEASURE (ACL2-COUNT X-LST) :WELL-FOUNDED-RELATION O<)) (COND ((ENDP X-LST) NIL) (T (CONS (EV-PLUS-EQUAL (CAR X-LST) A) (EV-PLUS-EQUAL-LIST (CDR X-LST) A))))))) (LOCAL (DEFTHM EVAL-LIST-KWOTE-LST (EQUAL (EV-PLUS-EQUAL-LIST (KWOTE-LST ARGS) A) (FIX-TRUE-LIST ARGS)))) (DEFTHMD EV-PLUS-EQUAL-CONSTRAINT-0 (IMPLIES (AND (CONSP X) (SYNTAXP (NOT (EQUAL A (QUOTE (QUOTE NIL))))) (NOT (EQUAL (CAR X) (QUOTE QUOTE)))) (EQUAL (EV-PLUS-EQUAL X A) (EV-PLUS-EQUAL (CONS (CAR X) (KWOTE-LST (EV-PLUS-EQUAL-LIST (CDR X) A))) NIL))) :HINTS (("Goal" :EXPAND ((:FREE (X) (HIDE X)) (EV-PLUS-EQUAL X A)) :IN-THEORY (DISABLE (:EXECUTABLE-COUNTERPART EV-PLUS-EQUAL))))) (DEFTHM EV-PLUS-EQUAL-CONSTRAINT-1 (IMPLIES (SYMBOLP X) (EQUAL (EV-PLUS-EQUAL X A) (AND X (CDR (ASSOC-EQUAL X A)))))) (DEFTHM EV-PLUS-EQUAL-CONSTRAINT-2 (IMPLIES (AND (CONSP X) (EQUAL (CAR X) (QUOTE QUOTE))) (EQUAL (EV-PLUS-EQUAL X A) (CADR X)))) (DEFTHM EV-PLUS-EQUAL-CONSTRAINT-3 (IMPLIES (AND (CONSP X) (CONSP (CAR X))) (EQUAL (EV-PLUS-EQUAL X A) (EV-PLUS-EQUAL (CADDAR X) (PAIRLIS$ (CADAR X) (EV-PLUS-EQUAL-LIST (CDR X) A)))))) (DEFTHM EV-PLUS-EQUAL-CONSTRAINT-4 (IMPLIES (NOT (CONSP X-LST)) (EQUAL (EV-PLUS-EQUAL-LIST X-LST A) NIL))) (DEFTHM EV-PLUS-EQUAL-CONSTRAINT-5 (IMPLIES (CONSP X-LST) (EQUAL (EV-PLUS-EQUAL-LIST X-LST A) (CONS (EV-PLUS-EQUAL (CAR X-LST) A) (EV-PLUS-EQUAL-LIST (CDR X-LST) A))))) (DEFTHM EV-PLUS-EQUAL-CONSTRAINT-6 (IMPLIES (AND (CONSP X) (EQUAL (CAR X) (QUOTE BINARY-+))) (EQUAL (EV-PLUS-EQUAL X A) (+ (EV-PLUS-EQUAL (CADR X) A) (EV-PLUS-EQUAL (CADDR X) A))))) (DEFTHM EV-PLUS-EQUAL-CONSTRAINT-7 (IMPLIES (AND (CONSP X) (EQUAL (CAR X) (QUOTE FIX))) (EQUAL (EV-PLUS-EQUAL X A) (FIX (EV-PLUS-EQUAL (CADR X) A))))) (DEFTHM EV-PLUS-EQUAL-CONSTRAINT-8 (IMPLIES (AND (CONSP X) (EQUAL (CAR X) (QUOTE EQUAL))) (EQUAL (EV-PLUS-EQUAL X A) (EQUAL (EV-PLUS-EQUAL (CADR X) A) (EV-PLUS-EQUAL (CADDR X) A))))) (DEFTHM EV-PLUS-EQUAL-CONSTRAINT-9 (IMPLIES (AND (CONSP X) (EQUAL (CAR X) (QUOTE ACL2-NUMBERP))) (EQUAL (EV-PLUS-EQUAL X A) (ACL2-NUMBERP (EV-PLUS-EQUAL (CADR X) A))))) (DEFTHM EV-PLUS-EQUAL-CONSTRAINT-10 (IMPLIES (AND (CONSP X) (EQUAL (CAR X) (QUOTE IF))) (EQUAL (EV-PLUS-EQUAL X A) (IF (EV-PLUS-EQUAL (CADR X) A) (EV-PLUS-EQUAL (CADDR X) A) (EV-PLUS-EQUAL (CADDDR X) A)))))))))
NIL
(("/usr/share/acl2-6.3/books/meta/meta-plus-equal.lisp" "meta-plus-equal" "meta-plus-equal" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 1948431900) (LOCAL ("/usr/share/acl2-6.3/books/meta/term-lemmas.lisp" "term-lemmas" "term-lemmas" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 304413851)) ("/usr/share/acl2-6.3/books/meta/term-defuns.lisp" "term-defuns" "term-defuns" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 1038247295))
282660300