• Top
    • Documentation
    • Books
    • Boolean-reasoning
    • Projects
    • Debugging
    • Std
    • Proof-automation
    • Macro-libraries
    • ACL2
    • Interfacing-tools
    • Hardware-verification
      • Gl
      • Esim
      • Vl2014
      • Sv
      • Fgl
      • Vwsim
      • Vl
        • Syntax
        • Loader
        • Warnings
        • Getting-started
        • Utilities
        • Printer
          • Ps
          • Verilog-printing
          • Basic-printing
            • Vl-println?
            • Vl-print
            • Vl-printable-p
              • Vl-printable-fix
              • Vl-col-after-printing-string
              • Vl-col-after-printing-chars
              • Vl-print-strings-with-commas
              • Vl-string-needs-html-encoding-p
              • Vl-println-markup
              • Vl-print-strings-as-lines
              • Vl-print-url
              • Vl-print-nat
              • Vl-indent
              • Vl-println
              • Vl-print-markup
              • Vl-ps-seq
              • Vl-cw-ps-seq
              • Vl-when-html
              • Vl-ps-span
            • Printing-locally
            • Formatted-printing
            • Accessing-printed-output
            • Json-printing
            • Vl-printedlist
          • Kit
          • Mlib
          • Transforms
        • X86isa
        • Svl
        • Rtl
      • Software-verification
      • Math
      • Testing-utilities
    • Vl-printable-p

    Vl-printable-fix

    Signature
    (vl-printable-fix x) → x-fix
    Arguments
    x — Guard (vl-printable-p x).
    Returns
    x-fix — Type (vl-printable-p x-fix).

    Definitions and Theorems

    Function: vl-printable-fix$inline

    (defun vl-printable-fix$inline (x)
      (declare (xargs :guard (vl-printable-p x)))
      (let ((__function__ 'vl-printable-fix))
        (declare (ignorable __function__))
        (mbe :logic (if (vl-printable-p x) x "")
             :exec x)))

    Theorem: vl-printable-p-of-vl-printable-fix

    (defthm vl-printable-p-of-vl-printable-fix
      (b* ((x-fix (vl-printable-fix$inline x)))
        (vl-printable-p x-fix))
      :rule-classes :rewrite)

    Theorem: vl-printable-fix-when-vl-printable-p

    (defthm vl-printable-fix-when-vl-printable-p
      (implies (vl-printable-p x)
               (equal (vl-printable-fix x) x)))