• Top
    • Documentation
    • Books
    • Boolean-reasoning
    • Projects
    • Debugging
    • Std
    • 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
          • Language
            • Abstract-syntax
            • Integer-ranges
            • Implementation-environments
            • Dynamic-semantics
            • Static-semantics
              • Check-stmt
              • Check-cond
              • Check-binary-pure
              • Var-table-add-var
              • Check-unary
              • Check-obj-declon
              • Fun-table-add-fun
              • Check-fundef
              • Fun-sinfo
              • Check-expr-asg
              • Check-expr-call
              • Check-arrsub
              • Uaconvert-types
              • Apconvert-type-list
              • Check-initer
              • Adjust-type-list
              • Types+vartab
              • Promote-type
              • Check-tag-declon
              • Check-expr-call-or-asg
              • Check-ext-declon
              • Check-param-declon
              • Check-member
              • Check-expr-pure
              • Init-type-matchp
              • Check-obj-adeclor
              • Check-memberp
                • Check-expr-call-or-pure
                • Check-cast
                • Check-struct-declon-list
                • Check-fun-declor
                • Expr-type
                • Check-ext-declon-list
                • Check-transunit
                • Check-fun-declon
                • Var-defstatus
                • Struct-member-lookup
                • Preprocess
                • Wellformed
                • Check-tyspecseq
                • Check-param-declon-list
                • Check-iconst
                • Check-expr-pure-list
                • Var-sinfo-option
                • Fun-sinfo-option
                • Var-scope-all-definedp
                • Funtab+vartab+tagenv
                • Var-sinfo
                • Var-table-lookup
                • Apconvert-type
                • Var-table
                • Check-tyname
                • Types+vartab-result
                • Funtab+vartab+tagenv-result
                • Fun-table-lookup
                • Wellformed-result
                • Var-table-add-block
                • Var-table-scope
                • Var-table-result
                • Fun-table-result
                • Expr-type-result
                • Adjust-type
                • Check-fileset
                • Var-table-all-definedp
                • Check-const
                • Fun-table-all-definedp
                • Check-ident
                • Fun-table
                • Var-table-init
                • Fun-table-init
              • Grammar
              • Integer-formats
              • Types
              • Portable-ascii-identifiers
              • Values
              • Integer-operations
              • Computation-states
              • Object-designators
              • Operations
              • Errors
              • Tag-environments
              • Function-environments
              • Character-sets
              • Flexible-array-member-removal
              • Arithmetic-operations
              • Pointer-operations
              • Bytes
              • Keywords
              • Real-operations
              • Array-operations
              • Scalar-operations
              • Structure-operations
            • 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
    • Static-semantics

    Check-memberp

    Check a structure pointer member expression [C17:6.5.2.3].

    Signature
    (check-memberp target-expr target-etype name tagenv) → etype
    Arguments
    target-expr — Guard (exprp target-expr).
    target-etype — Guard (expr-typep target-etype).
    name — Guard (identp name).
    tagenv — Guard (tag-envp tagenv).
    Returns
    etype — Type (expr-type-resultp etype).

    We ensure that the target has a pointer type to a structure type. We perform array-to-pointer conversion on this type, prior to ensuring it is a pointer to structure, as an array type would become a pointer type via that conversion. We look up the structure type and its member. We return the member type, with the lvalue flag set.

    Definitions and Theorems

    Function: check-memberp

    (defun check-memberp (target-expr target-etype name tagenv)
     (declare (xargs :guard (and (exprp target-expr)
                                 (expr-typep target-etype)
                                 (identp name)
                                 (tag-envp tagenv))))
     (let ((__function__ 'check-memberp))
      (declare (ignorable __function__))
      (b*
       ((target-type (expr-type->type target-etype))
        (target-type (apconvert-type target-type))
        ((unless (type-case target-type :pointer))
         (reserrf
             (list :arrow-operator-not-pointer (expr-fix target-expr))))
        (type (type-pointer->to target-type))
        ((unless (type-case type :struct))
         (reserrf (list :arrow-operator-not-pointer-to-struct
                        (expr-fix target-expr))))
        (tag (type-struct->tag type))
        ((okf memtype)
         (struct-member-lookup tag name tagenv)))
       (make-expr-type :type memtype
                       :lvalue t))))

    Theorem: expr-type-resultp-of-check-memberp

    (defthm expr-type-resultp-of-check-memberp
      (b* ((etype (check-memberp target-expr target-etype name tagenv)))
        (expr-type-resultp etype))
      :rule-classes :rewrite)

    Theorem: check-memberp-of-expr-fix-target-expr

    (defthm check-memberp-of-expr-fix-target-expr
      (equal (check-memberp (expr-fix target-expr)
                            target-etype name tagenv)
             (check-memberp target-expr target-etype name tagenv)))

    Theorem: check-memberp-expr-equiv-congruence-on-target-expr

    (defthm check-memberp-expr-equiv-congruence-on-target-expr
      (implies
           (expr-equiv target-expr target-expr-equiv)
           (equal (check-memberp target-expr target-etype name tagenv)
                  (check-memberp target-expr-equiv
                                 target-etype name tagenv)))
      :rule-classes :congruence)

    Theorem: check-memberp-of-expr-type-fix-target-etype

    (defthm check-memberp-of-expr-type-fix-target-etype
      (equal (check-memberp target-expr (expr-type-fix target-etype)
                            name tagenv)
             (check-memberp target-expr target-etype name tagenv)))

    Theorem: check-memberp-expr-type-equiv-congruence-on-target-etype

    (defthm check-memberp-expr-type-equiv-congruence-on-target-etype
      (implies
           (expr-type-equiv target-etype target-etype-equiv)
           (equal (check-memberp target-expr target-etype name tagenv)
                  (check-memberp target-expr
                                 target-etype-equiv name tagenv)))
      :rule-classes :congruence)

    Theorem: check-memberp-of-ident-fix-name

    (defthm check-memberp-of-ident-fix-name
      (equal (check-memberp target-expr
                            target-etype (ident-fix name)
                            tagenv)
             (check-memberp target-expr target-etype name tagenv)))

    Theorem: check-memberp-ident-equiv-congruence-on-name

    (defthm check-memberp-ident-equiv-congruence-on-name
      (implies
           (ident-equiv name name-equiv)
           (equal (check-memberp target-expr target-etype name tagenv)
                  (check-memberp target-expr
                                 target-etype name-equiv tagenv)))
      :rule-classes :congruence)

    Theorem: check-memberp-of-tag-env-fix-tagenv

    (defthm check-memberp-of-tag-env-fix-tagenv
      (equal (check-memberp target-expr
                            target-etype name (tag-env-fix tagenv))
             (check-memberp target-expr target-etype name tagenv)))

    Theorem: check-memberp-tag-env-equiv-congruence-on-tagenv

    (defthm check-memberp-tag-env-equiv-congruence-on-tagenv
      (implies
           (tag-env-equiv tagenv tagenv-equiv)
           (equal (check-memberp target-expr target-etype name tagenv)
                  (check-memberp target-expr
                                 target-etype name tagenv-equiv)))
      :rule-classes :congruence)