• 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
        • Bv
        • Imp-language
        • Event-macros
        • Java
        • Bitcoin
        • Ethereum
          • Mmp-trees
          • Semaphore
            • Verify-semaphore-r1cs
            • Mimc
            • Semaphore-specification
              • Prime-field-abbreviations
              • Pedersen-hash
              • Pedersen-hash-base-points
              • Baby-jubjub
                • Baby-jubjub-order
                • Baby-jubjub-prime
                • Baby-jubjub-order/8
                • Baby-jubjub-d
                • Baby-jubjub-pointp
                  • Baby-jubjub-mul
                  • Baby-jubjub-curve
                  • Baby-jubjub-a
                  • Point-on-baby-jubjub-p
                  • Baby-jubjub-add
              • Semaphore-proofs
            • Database
            • Cryptography
            • Rlp
            • Transactions
            • Hex-prefix
            • Basics
            • Addresses
          • 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
    • Baby-jubjub

    Baby-jubjub-pointp

    Recognize the points on the BabyJubjub curve.

    Signature
    (baby-jubjub-pointp x) → yes/no
    Returns
    yes/no — Type (booleanp yes/no).

    These are all finite points.

    Definitions and Theorems

    Function: baby-jubjub-pointp

    (defun baby-jubjub-pointp (x)
      (declare (xargs :guard t))
      (let ((acl2::__function__ 'baby-jubjub-pointp))
        (declare (ignorable acl2::__function__))
        (and (ecurve::pointp x)
             (point-on-baby-jubjub-p x))))

    Theorem: booleanp-of-baby-jubjub-pointp

    (defthm booleanp-of-baby-jubjub-pointp
      (b* ((yes/no (baby-jubjub-pointp x)))
        (booleanp yes/no))
      :rule-classes :rewrite)

    Theorem: point-finite-when-baby-jubjub-pointp

    (defthm point-finite-when-baby-jubjub-pointp
      (implies (baby-jubjub-pointp x)
               (equal (ecurve::point-kind x) :finite)))