• Top
  • Documentation
  • Books
  • Boolean-reasoning
  • Projects
  • Debugging
  • Community
  • 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
      • C
        • Syntax-for-tools
          • Formalized-subset
          • Mapping-to-language-definition
          • Input-files
          • Compilation-database
          • Printer
          • Output-files
          • Abstract-syntax-operations
            • Expr-priority
            • Expr-priority-<=
            • Combine-dirabsdeclor-into-dirabsdeclor
            • Declor/dirdeclor-rename
            • Check-decl-spec-list-all-typespec/stoclass
            • Binop-expected-priorities
            • Expr->priority
            • Transunit-at-path
            • Declor/dirdeclor->ident
            • Declor/dirdeclor-has-params-p
            • Check-expr-binary
            • Apply-post-inc/dec-ops
            • Check-spec/qual-list-all-typespec
            • Apply-pre-inc/dec-ops
            • Check-decl-spec-list-all-typespec
            • Expr-to-asg-expr-list
            • Check-expr-mul
            • Expr-unary/postfix/primary-p
            • Transunit-ensemble-paths
            • Check-struni-spec-no-members
            • Expr-postfix/primary-p
            • Dirabsdeclor-declor?-nil-p
            • Check-enum-spec-no-list
            • Expr-zerop
            • Expr-priority->=
            • Decl-spec-list-to-stor-spec-list
            • Spec/qual-list-to-type-spec-list
            • Expr-priority->
            • Expr-priority-<
            • Declor-spec-list-filter-out-linkage-specs
            • Decl-spec-list-to-type-spec-list
            • Ident-list-map-expr-ident
            • Binop->priority
            • Stringlit-list->prefix?-list
            • Declor-spec-list-make-static
            • Binop-strictp
            • Check-expr-iconst
            • Init-declor->ident
            • Check-expr-ident
            • Dirabsdeclor-to-dirdeclor
            • Dirabsdeclor-option-to-dirdeclor
            • Dirdeclor-has-params-p
            • Absdeclor-to-declor
            • Dirdeclor-rename
            • Declor-rename
            • Declor-has-params-p
            • Dirdeclor->ident
            • Declor->ident
          • Implementation-environments
          • Abstract-syntax
          • Concrete-syntax
          • Disambiguation
          • Validation
          • Gcc-builtins
          • Preprocessing
          • Parsing
        • Atc
        • Transformation-tools
        • Language
        • Representation
        • Insertion-sort
        • Pack
      • Soft
      • Bv
      • Imp-language
      • Ethereum
      • Event-macros
      • Java
      • Riscv
      • Bitcoin
      • Zcash
      • Yul
      • ACL2-programming-language
      • Prime-fields
      • Json
      • Syntheto
      • File-io-light
      • Cryptography
      • Number-theory
      • Axe
      • Lists-light
      • Builtins
      • Solidity
      • Helpers
      • Htclient
      • Typed-lists-light
      • Arithmetic-light
    • X86isa
    • Axe
    • Execloader
  • Math
  • Testing-utilities

• Abstract-syntax-operations

Check-struni-spec-no-members

Check if a structure or union specifier has no members, returning the name if the check passes.

Signature

(check-struni-spec-no-members struni-spec) → ident?

Arguments

struni-spec — Guard (struni-specp struni-spec).

Returns

ident? — Type (ident-optionp ident?).

If the specifier is empty (i.e. has no members or name), we throw a hard error, because the specifier does not conform to the concrete syntax.

Definitions and Theorems

Function: check-struni-spec-no-members

(defun check-struni-spec-no-members (struni-spec)
 (declare (xargs :guard (struni-specp struni-spec)))
 (let ((__function__ 'check-struni-spec-no-members))
  (declare (ignorable __function__))
  (b*
   (((struni-spec struni-spec) struni-spec)
    ((when struni-spec.members) nil)
    ((unless struni-spec.name?)
     (raise "Misusage error: empty structure or union specifier.")))
   struni-spec.name?)))

Theorem: ident-optionp-of-check-struni-spec-no-members

(defthm ident-optionp-of-check-struni-spec-no-members
  (b* ((ident? (check-struni-spec-no-members struni-spec)))
    (ident-optionp ident?))
  :rule-classes :rewrite)

Theorem: check-struni-spec-no-members-of-struni-spec-fix-struni-spec

(defthm check-struni-spec-no-members-of-struni-spec-fix-struni-spec
 (equal (check-struni-spec-no-members (struni-spec-fix struni-spec))
        (check-struni-spec-no-members struni-spec)))

Theorem: check-struni-spec-no-members-struni-spec-equiv-congruence-on-struni-spec

(defthm
 check-struni-spec-no-members-struni-spec-equiv-congruence-on-struni-spec
 (implies (struni-spec-equiv struni-spec struni-spec-equiv)
          (equal (check-struni-spec-no-members struni-spec)
                 (check-struni-spec-no-members struni-spec-equiv)))
 :rule-classes :congruence)