• Top
    • Documentation
    • Books
    • Boolean-reasoning
    • Projects
    • Debugging
    • Std
    • Community
    • Proof-automation
    • Macro-libraries
    • ACL2
    • Interfacing-tools
    • Hardware-verification
    • Software-verification
      • Kestrel-books
        • Crypto-hdwallet
        • Apt
        • Error-checking
        • Fty-extensions
        • Isar
        • Kestrel-utilities
        • Set
        • Soft
        • C
          • Syntax-for-tools
          • Atc
            • Atc-implementation
              • Atc-abstract-syntax
              • Atc-pretty-printer
              • Atc-event-and-code-generation
              • Fty-pseudo-term-utilities
              • Atc-term-recognizers
              • Atc-input-processing
              • Atc-shallow-embedding
              • Atc-process-inputs-and-gen-everything
              • Atc-table
              • Atc-fn
              • Atc-pretty-printing-options
                • Pprint-options
                  • Pprint-options-fix
                    • Pprint-options-equiv
                    • Pprint-options-p
                    • Pprint-options->parenthesize-nested-conditionals
                    • Make-pprint-options
                    • Change-pprint-options
                  • Irr-pprint-options
                • Atc-types
                • Atc-macro-definition
              • Atc-tutorial
            • Language
            • Representation
            • Transformation-tools
            • Insertion-sort
            • Pack
          • Bv
          • Imp-language
          • Event-macros
          • Java
          • Bitcoin
          • Ethereum
          • Yul
          • Zcash
          • ACL2-programming-language
          • Prime-fields
          • Json
          • Syntheto
          • File-io-light
          • Cryptography
          • Number-theory
          • Lists-light
          • Axe
          • Builtins
          • Solidity
          • Helpers
          • Htclient
          • Typed-lists-light
          • Arithmetic-light
        • X86isa
        • Axe
        • Execloader
      • Math
      • Testing-utilities
    • Pprint-options

    Pprint-options-fix

    Fixing function for pprint-options structures.

    Signature
    (pprint-options-fix x) → new-x
    Arguments
    x — Guard (pprint-options-p x).
    Returns
    new-x — Type (pprint-options-p new-x).

    Definitions and Theorems

    Function: pprint-options-fix$inline

    (defun pprint-options-fix$inline (x)
      (declare (xargs :guard (pprint-options-p x)))
      (let ((__function__ 'pprint-options-fix))
        (declare (ignorable __function__))
        (mbe :logic
             (b* ((parenthesize-nested-conditionals
                       (acl2::bool-fix (cdr (std::da-nth 0 x)))))
               (list (cons 'parenthesize-nested-conditionals
                           parenthesize-nested-conditionals)))
             :exec x)))

    Theorem: pprint-options-p-of-pprint-options-fix

    (defthm pprint-options-p-of-pprint-options-fix
      (b* ((new-x (pprint-options-fix$inline x)))
        (pprint-options-p new-x))
      :rule-classes :rewrite)

    Theorem: pprint-options-fix-when-pprint-options-p

    (defthm pprint-options-fix-when-pprint-options-p
      (implies (pprint-options-p x)
               (equal (pprint-options-fix x) x)))

    Function: pprint-options-equiv$inline

    (defun pprint-options-equiv$inline (acl2::x acl2::y)
      (declare (xargs :guard (and (pprint-options-p acl2::x)
                                  (pprint-options-p acl2::y))))
      (equal (pprint-options-fix acl2::x)
             (pprint-options-fix acl2::y)))

    Theorem: pprint-options-equiv-is-an-equivalence

    (defthm pprint-options-equiv-is-an-equivalence
      (and (booleanp (pprint-options-equiv x y))
           (pprint-options-equiv x x)
           (implies (pprint-options-equiv x y)
                    (pprint-options-equiv y x))
           (implies (and (pprint-options-equiv x y)
                         (pprint-options-equiv y z))
                    (pprint-options-equiv x z)))
      :rule-classes (:equivalence))

    Theorem: pprint-options-equiv-implies-equal-pprint-options-fix-1

    (defthm pprint-options-equiv-implies-equal-pprint-options-fix-1
      (implies (pprint-options-equiv acl2::x x-equiv)
               (equal (pprint-options-fix acl2::x)
                      (pprint-options-fix x-equiv)))
      :rule-classes (:congruence))

    Theorem: pprint-options-fix-under-pprint-options-equiv

    (defthm pprint-options-fix-under-pprint-options-equiv
      (pprint-options-equiv (pprint-options-fix acl2::x)
                            acl2::x)
      :rule-classes (:rewrite :rewrite-quoted-constant))

    Theorem: equal-of-pprint-options-fix-1-forward-to-pprint-options-equiv

    (defthm
          equal-of-pprint-options-fix-1-forward-to-pprint-options-equiv
      (implies (equal (pprint-options-fix acl2::x)
                      acl2::y)
               (pprint-options-equiv acl2::x acl2::y))
      :rule-classes :forward-chaining)

    Theorem: equal-of-pprint-options-fix-2-forward-to-pprint-options-equiv

    (defthm
          equal-of-pprint-options-fix-2-forward-to-pprint-options-equiv
      (implies (equal acl2::x (pprint-options-fix acl2::y))
               (pprint-options-equiv acl2::x acl2::y))
      :rule-classes :forward-chaining)

    Theorem: pprint-options-equiv-of-pprint-options-fix-1-forward

    (defthm pprint-options-equiv-of-pprint-options-fix-1-forward
      (implies (pprint-options-equiv (pprint-options-fix acl2::x)
                                     acl2::y)
               (pprint-options-equiv acl2::x acl2::y))
      :rule-classes :forward-chaining)

    Theorem: pprint-options-equiv-of-pprint-options-fix-2-forward

    (defthm pprint-options-equiv-of-pprint-options-fix-2-forward
      (implies
           (pprint-options-equiv acl2::x (pprint-options-fix acl2::y))
           (pprint-options-equiv acl2::x acl2::y))
      :rule-classes :forward-chaining)