• Top
    • Documentation
    • Books
    • Boolean-reasoning
    • Projects
      • Apt
      • Zfc
      • Acre
      • Milawa
      • Smtlink
      • Abnf
      • Vwsim
      • Isar
      • Wp-gen
      • Dimacs-reader
      • Pfcs
      • Legacy-defrstobj
      • Proof-checker-array
      • Soft
      • C
      • Farray
      • Rp-rewriter
      • Instant-runoff-voting
      • Imp-language
      • Sidekick
      • Leftist-trees
      • Java
      • Taspi
      • Bitcoin
      • Riscv
      • Des
      • Ethereum
      • X86isa
      • Sha-2
      • Yul
      • Zcash
      • Proof-checker-itp13
      • Regex
      • ACL2-programming-language
      • Json
      • Jfkr
      • Equational
      • Cryptography
      • Poseidon
      • Where-do-i-place-my-book
      • Axe
      • Bigmems
      • Builtins
      • Execloader
      • Aleo
      • Solidity
      • Paco
      • Concurrent-programs
      • Bls12-377-curves
        • Edwards-bls12
          • Edwards-bls12-pointp
          • Edwards-bls12-q
          • Edwards-bls12-d
          • Edwards-bls12-point->v
          • Edwards-bls12-point->u
          • Maybe-edwards-bls12-pointp
          • Edwards-bls12-add
          • Edwards-bls12-mul-fast
          • Edwards-bls12-rstar-pointp
          • Edwards-bls12-mul
          • Edwards-bls12-a
            • Edwards-bls12-r-pointp
            • Edwards-bls12-neg
            • Edwards-bls12-curve
            • Edwards-bls12-r
            • Edwards-bls12-h
            • Edwards-bls12-subgroup-prime
          • Bls12-377-domain-parameters
      • Debugging
      • Std
      • Proof-automation
      • Macro-libraries
      • ACL2
      • Interfacing-tools
      • Hardware-verification
      • Software-verification
      • Math
      • Testing-utilities
    • Edwards-bls12

    Edwards-bls12-a

    The Edwards-BLS12 coefficient a.

    Signature
    (edwards-bls12-a) → a
    Returns
    a — Type (fep a (edwards-bls12-q)).

    We show that this coefficient is a square by exhibiting a square root of it.

    Definitions and Theorems

    Function: edwards-bls12-a

    (defun edwards-bls12-a nil
      (declare (xargs :guard t))
      (let ((acl2::__function__ 'edwards-bls12-a))
        (declare (ignorable acl2::__function__))
        (neg 1 (edwards-bls12-q))))

    Theorem: return-type-of-edwards-bls12-a

    (defthm return-type-of-edwards-bls12-a
      (b* ((a (edwards-bls12-a)))
        (fep a (edwards-bls12-q)))
      :rule-classes :rewrite)

    Theorem: edwards-bls12-a-not-zero

    (defthm edwards-bls12-a-not-zero
      (not (equal (edwards-bls12-a) 0)))

    Theorem: pfield-squarep-of-edwards-bls12-a

    (defthm pfield-squarep-of-edwards-bls12-a
      (pfield-squarep (edwards-bls12-a)
                      (edwards-bls12-q)))