;; Example proof script for ACL2 Proof General. ;; ;; example.acl2,v 9.0 2008/01/30 15:22:06 da Exp ;; (defthm assoc->assoc-equal (equal (assoc x a) (assoc-equal x a)))
;; Example proof script for ACL2 Proof General. ;; ;; example.acl2,v 9.0 2008/01/30 15:22:06 da Exp ;; (defthm assoc->assoc-equal (equal (assoc x a) (assoc-equal x a)))