• 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
            • Initdeclor->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

Dirabsdeclor-declor?-nil-p

Check if a direct abstract declarator has a declor? component that is nil.

Signature

(dirabsdeclor-declor?-nil-p dirabsdeclor) → yes/no

Arguments

dirabsdeclor — Guard (dirabsdeclorp dirabsdeclor).

Returns

yes/no — Type (booleanp yes/no).

This excludes the base case(s) of direct abstract declarators. All the other recursive cases have a declor? component.

Definitions and Theorems

Function: dirabsdeclor-declor?-nil-p

(defun dirabsdeclor-declor?-nil-p (dirabsdeclor)
  (declare (xargs :guard (dirabsdeclorp dirabsdeclor)))
  (dirabsdeclor-case dirabsdeclor
                     :dummy-base nil
                     :paren nil
                     :array (not dirabsdeclor.declor?)
                     :array-static1 (not dirabsdeclor.declor?)
                     :array-static2 (not dirabsdeclor.declor?)
                     :array-star (not dirabsdeclor.declor?)
                     :function (not dirabsdeclor.declor?)))

Theorem: booleanp-of-dirabsdeclor-declor?-nil-p

(defthm booleanp-of-dirabsdeclor-declor?-nil-p
  (b* ((yes/no (dirabsdeclor-declor?-nil-p dirabsdeclor)))
    (booleanp yes/no))
  :rule-classes :rewrite)

Theorem: dirabsdeclor-declor?-nil-p-of-dirabsdeclor-fix-dirabsdeclor

(defthm dirabsdeclor-declor?-nil-p-of-dirabsdeclor-fix-dirabsdeclor
 (equal (dirabsdeclor-declor?-nil-p (dirabsdeclor-fix dirabsdeclor))
        (dirabsdeclor-declor?-nil-p dirabsdeclor)))

Theorem: dirabsdeclor-declor?-nil-p-dirabsdeclor-equiv-congruence-on-dirabsdeclor

(defthm
 dirabsdeclor-declor?-nil-p-dirabsdeclor-equiv-congruence-on-dirabsdeclor
 (implies (dirabsdeclor-equiv dirabsdeclor dirabsdeclor-equiv)
          (equal (dirabsdeclor-declor?-nil-p dirabsdeclor)
                 (dirabsdeclor-declor?-nil-p dirabsdeclor-equiv)))
 :rule-classes :congruence)