• 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
        • Bv
        • Imp-language
        • Event-macros
        • Java
        • Bitcoin
        • Ethereum
        • Yul
          • Transformations
          • Language
            • Abstract-syntax
              • Escape
              • Swcase-list->value-list
              • Hex-digit-list->chars
              • Fundef-list->name-list
              • Literal
              • Path
              • Hex-string-rest-element
              • Plain-string
              • String-element
              • Hex-string-content-option
              • Hex-string-content
              • Identifier
              • Funcall-option
                • Funcall-option-fix
                • Funcall-option-case
                • Funcall-option-equiv
                • Funcall-option-some
                  • Funcall-option-some->val
                    • Make-funcall-option-some
                    • Change-funcall-option-some
                  • Funcall-optionp
                  • Funcall-option-none
                • Expression-option
                • Statement-option
                • Literal-option
                • Identifier-option
                • Hex-string
                • Hex-quad
                • Hex-digit
                • Hex-pair
                • Data-value
                • Data-item
                • Statements-to-fundefs
                • String-element-list-result
                • Identifier-identifier-map-result
                • Swcase-result
                • String-element-result
                • Statement-result
                • Literal-result
                • Identifier-set-result
                • Identifier-result
                • Identifier-list-result
                • Fundef-result
                • Funcall-result
                • Expression-result
                • Escape-result
                • Path-result
                • Block-result
                • Objects
                • Statements/blocks/cases/fundefs
                • Identifier-list
                • Identifier-set
                • Identifier-identifier-map
                • Identifier-identifier-alist
                • Hex-string-rest-element-list
                • String-element-list
                • Path-list
                • Hex-digit-list
                • Literal-list
                • Fundef-list
                • Expressions/funcalls
                • Abstract-syntax-induction-schemas
              • Dynamic-semantics
              • Concrete-syntax
              • Static-soundness
              • Static-semantics
              • Errors
            • Yul-json
          • 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
    • Funcall-option-some

    Funcall-option-some->val

    Get the fty::val field from a funcall-option-some.

    Signature
    (funcall-option-some->val x) → fty::val
    Arguments
    x — Guard (funcall-optionp x).
    Returns
    fty::val — Type (funcallp fty::val).

    This is an ordinary field accessor created by fty::defprod.

    Definitions and Theorems

    Function: funcall-option-some->val$inline

    (defun funcall-option-some->val$inline (x)
      (declare (xargs :guard (funcall-optionp x)))
      (declare (xargs :guard x))
      (let ((__function__ 'funcall-option-some->val))
        (declare (ignorable __function__))
        (mbe :logic (b* ((x (and x x))) (funcall-fix x))
             :exec x)))

    Theorem: funcallp-of-funcall-option-some->val

    (defthm funcallp-of-funcall-option-some->val
      (b* ((fty::val (funcall-option-some->val$inline x)))
        (funcallp fty::val))
      :rule-classes :rewrite)

    Theorem: funcall-option-some->val$inline-of-funcall-option-fix-x

    (defthm funcall-option-some->val$inline-of-funcall-option-fix-x
      (equal (funcall-option-some->val$inline (funcall-option-fix x))
             (funcall-option-some->val$inline x)))

    Theorem: funcall-option-some->val$inline-funcall-option-equiv-congruence-on-x

    (defthm
     funcall-option-some->val$inline-funcall-option-equiv-congruence-on-x
     (implies (funcall-option-equiv x x-equiv)
              (equal (funcall-option-some->val$inline x)
                     (funcall-option-some->val$inline x-equiv)))
     :rule-classes :congruence)

    Theorem: funcall-option-some->val-when-wrong-kind

    (defthm funcall-option-some->val-when-wrong-kind
      (implies (not x)
               (equal (funcall-option-some->val x)
                      (funcall-fix nil))))