• Top
    • Documentation
    • Books
    • Boolean-reasoning
    • Projects
      • Apt
      • Zfc
      • Acre
      • Milawa
      • Smtlink
      • Abnf
      • Vwsim
      • Isar
      • Wp-gen
      • Dimacs-reader
      • Pfcs
      • Legacy-defrstobj
      • Proof-checker-array
      • Soft
      • C
      • Farray
      • Rp-rewriter
      • Instant-runoff-voting
      • Imp-language
      • Sidekick
      • Leftist-trees
      • Java
      • Riscv
      • Taspi
      • Bitcoin
      • Des
      • Ethereum
      • X86isa
      • Sha-2
      • Yul
      • Zcash
      • Proof-checker-itp13
      • Regex
      • ACL2-programming-language
      • Json
      • Jfkr
      • Equational
      • Cryptography
      • Poseidon
      • Where-do-i-place-my-book
      • Axe
      • Aleo
        • Aleobft
        • Aleovm
        • Leo
          • Grammar
          • Early-version
            • Json2ast
            • Testing
            • Definition
              • Flattening
              • Abstract-syntax
              • Dynamic-semantics
              • Compilation
              • Static-semantics
              • Concrete-syntax
                • Pretty-printer
                  • Pprint-expression-algorithm
                  • Expr-grade
                  • Pprint-expression
                    • Pprint-expression-list
                    • Pprint-struct-init-list
                    • Pprint-struct-init
                  • Expr-grade-<=
                  • Binop-expected-grades
                  • Expr->grade
                  • Pprint-char
                  • Pprint-console
                  • Pprint-var/const-sort
                  • Pprint-indent
                  • Pprint-constdecl
                  • Pprint-vardecl
                  • Pprint-statement
                  • Pprint-type
                  • *binops-opcall-print-names*
                  • Pprint-programdecl
                  • Pprint-line
                  • Pprint-group-literal
                  • Pprint-funparam-list
                  • *unops-opcall-print-names*
                  • Pprint-literal
                  • Pprint-coordinate
                  • Pprint-char-list
                  • Pprint-bitsize-to-utype
                  • Pprint-bitsize-to-itype
                  • Expr-grade-index
                  • Pprint-unop
                  • Pprint-programid
                  • Pprint-importdecl
                  • Pprint-identifier
                  • Pprint-funparam
                  • Pprint-compdecl
                  • Pprint-binop
                  • Pprint-locator
                  • Pprint-compdecl-list
                  • Pprint-address
                  • Pprint-structdecl
                  • Pprint-natural
                  • Pprint-mappingdecl
                  • Pprint-integer
                  • Pprint-fundecl
                  • Pprint-comma-separated
                  • Pprint-boolean
                  • Pprint-annotation-list
                  • Pprint-topdecl-list
                  • Pprint-importdecl-list
                  • Pprint-topdecl
                  • Pprint-annotation
                  • Pprint-file
                  • Pprint-line-blank
                • Grammar
                • Lexing-and-parsing
                • Input-pretty-printer
                • Output-pretty-printer
                • Unicode-characters
                • Concrete-syntax-trees
                • Symbols
                • Keywords
      • Bigmems
      • Builtins
      • Execloader
      • Solidity
      • Paco
      • Concurrent-programs
      • Bls12-377-curves
    • Debugging
    • Community
    • Std
    • Proof-automation
    • Macro-libraries
    • ACL2
    • Interfacing-tools
    • Hardware-verification
    • Software-verification
    • Math
    • Testing-utilities
  • Pretty-printer

Pprint-expression

Pretty-print an expression.

Signature
(pprint-expression expr expected-grade) → part
Arguments
expr — Guard (expressionp expr).
expected-grade — Guard (expr-gradep expected-grade).
Returns
part — Type (msgp part).

See pprint-expression-algorithm for background.

We first pretty-print the expression, and then we wrap it in parentheses if the expected grade is smaller than the actual grade.

When recursively pretty-printing subexpressions, the grade arguments passed for the subexpressions are determined by the relevant grammar rules.

The function to pretty-print lists of expressions takes a single grade argument, because we only need to pretty-print lists of expressions that all have the same required grade.

Theorem: return-type-of-pprint-expression.part

(defthm return-type-of-pprint-expression.part
  (b* ((?part (pprint-expression expr expected-grade)))
    (msgp part))
  :rule-classes :rewrite)

Theorem: return-type-of-pprint-expression-list.parts

(defthm return-type-of-pprint-expression-list.parts
  (b* ((?parts (pprint-expression-list exprs expected-grade)))
    (msg-listp parts))
  :rule-classes :rewrite)

Theorem: return-type-of-pprint-struct-init.part

(defthm return-type-of-pprint-struct-init.part
  (b* ((?part (pprint-struct-init cinit)))
    (msgp part))
  :rule-classes :rewrite)

Theorem: return-type-of-pprint-struct-init-list.parts

(defthm return-type-of-pprint-struct-init-list.parts
  (b* ((?parts (pprint-struct-init-list cinits)))
    (msg-listp parts))
  :rule-classes :rewrite)

Theorem: pprint-expression-of-expression-fix-expr

(defthm pprint-expression-of-expression-fix-expr
  (equal (pprint-expression (expression-fix expr)
                            expected-grade)
         (pprint-expression expr expected-grade)))

Theorem: pprint-expression-of-expr-grade-fix-expected-grade

(defthm pprint-expression-of-expr-grade-fix-expected-grade
  (equal (pprint-expression expr (expr-grade-fix expected-grade))
         (pprint-expression expr expected-grade)))

Theorem: pprint-expression-list-of-expression-list-fix-exprs

(defthm pprint-expression-list-of-expression-list-fix-exprs
  (equal (pprint-expression-list (expression-list-fix exprs)
                                 expected-grade)
         (pprint-expression-list exprs expected-grade)))

Theorem: pprint-expression-list-of-expr-grade-fix-expected-grade

(defthm pprint-expression-list-of-expr-grade-fix-expected-grade
 (equal
      (pprint-expression-list exprs (expr-grade-fix expected-grade))
      (pprint-expression-list exprs expected-grade)))

Theorem: pprint-struct-init-of-struct-init-fix-cinit

(defthm pprint-struct-init-of-struct-init-fix-cinit
  (equal (pprint-struct-init (struct-init-fix cinit))
         (pprint-struct-init cinit)))

Theorem: pprint-struct-init-list-of-struct-init-list-fix-cinits

(defthm pprint-struct-init-list-of-struct-init-list-fix-cinits
  (equal (pprint-struct-init-list (struct-init-list-fix cinits))
         (pprint-struct-init-list cinits)))

Theorem: pprint-expression-expression-equiv-congruence-on-expr

(defthm pprint-expression-expression-equiv-congruence-on-expr
  (implies (expression-equiv expr expr-equiv)
           (equal (pprint-expression expr expected-grade)
                  (pprint-expression expr-equiv expected-grade)))
  :rule-classes :congruence)

Theorem: pprint-expression-expr-grade-equiv-congruence-on-expected-grade

(defthm
    pprint-expression-expr-grade-equiv-congruence-on-expected-grade
  (implies (expr-grade-equiv expected-grade expected-grade-equiv)
           (equal (pprint-expression expr expected-grade)
                  (pprint-expression expr expected-grade-equiv)))
  :rule-classes :congruence)

Theorem: pprint-expression-list-expression-list-equiv-congruence-on-exprs

(defthm
   pprint-expression-list-expression-list-equiv-congruence-on-exprs
  (implies
       (expression-list-equiv exprs exprs-equiv)
       (equal (pprint-expression-list exprs expected-grade)
              (pprint-expression-list exprs-equiv expected-grade)))
  :rule-classes :congruence)

Theorem: pprint-expression-list-expr-grade-equiv-congruence-on-expected-grade

(defthm
 pprint-expression-list-expr-grade-equiv-congruence-on-expected-grade
 (implies
      (expr-grade-equiv expected-grade expected-grade-equiv)
      (equal (pprint-expression-list exprs expected-grade)
             (pprint-expression-list exprs expected-grade-equiv)))
 :rule-classes :congruence)

Theorem: pprint-struct-init-struct-init-equiv-congruence-on-cinit

(defthm pprint-struct-init-struct-init-equiv-congruence-on-cinit
  (implies (struct-init-equiv cinit cinit-equiv)
           (equal (pprint-struct-init cinit)
                  (pprint-struct-init cinit-equiv)))
  :rule-classes :congruence)

Theorem: pprint-struct-init-list-struct-init-list-equiv-congruence-on-cinits

(defthm
 pprint-struct-init-list-struct-init-list-equiv-congruence-on-cinits
 (implies (struct-init-list-equiv cinits cinits-equiv)
          (equal (pprint-struct-init-list cinits)
                 (pprint-struct-init-list cinits-equiv)))
 :rule-classes :congruence)

Subtopics

Pprint-expression-list
Pprint-struct-init-list
Pprint-struct-init