• 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
      • Riscv
      • Taspi
      • Bitcoin
      • 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
      • Aleo
        • Aleobft
        • Aleovm
        • Leo
          • Grammar
          • Early-version
            • Json2ast
            • Testing
            • Definition
              • Flattening
              • Abstract-syntax
              • Dynamic-semantics
                • Execution
                  • Exec-expressions/statements
                  • Init-for-loop
                  • Exec-file-main
                  • Update-variable-value-in-scope-list
                  • Step-for-loop
                  • Update-variable-value-in-scope
                  • Expr-value-to-value
                  • Exec-binary
                  • Exec-expression
                  • Init-vcscope-dinfo-call
                  • Value?+denv
                  • Exec-statement
                  • End-of-for-loop-p
                  • Expr-value
                  • Evalue+denv
                  • Write-location
                  • Read-location
                  • Exec-for-loop-iterations
                  • Update-variable-value
                  • Exec-unary
                    • Values+denv
                    • Init-vcscope-dinfo-loop
                    • Extend-denv-with-structdecl
                    • Exec-var/const
                    • Valuemap+denv
                    • Namevalue+denv
                    • Extend-denv-with-fundecl
                    • Ensure-boolean
                    • Int+denv
                    • Push-vcscope-dinfo
                    • Extend-denv-with-topdecl-list
                    • Exec-literal
                    • Build-denv-from-file
                    • Namevalue+denv-result
                    • Extend-denv-with-topdecl
                    • Evalue+denv-result
                    • Value?+denv-result
                    • Values+denv-result
                    • Valuemap+denv-result
                    • Int+denv-result
                    • Push-call-dinfo
                    • Exec-print
                    • Pop-vcscope-dinfo
                    • Exec-if
                    • Exec-function
                    • Pop-call-dinfo
                    • Exec-statement-list
                    • Exec-block
                    • Exec-struct-init-list
                    • Exec-struct-init
                    • Exec-expression-list
                  • Values
                  • Dynamic-environments
                  • Arithmetic-operations
                  • Curve-parameterization
                  • Shift-operations
                  • Errors
                  • Value-expressions
                  • Locations
                  • Input-execution
                  • Edwards-bls12-generator
                  • Equality-operations
                  • Logical-operations
                  • Program-execution
                  • Ordering-operations
                  • Bitwise-operations
                  • Literal-evaluation
                  • Type-maps-for-struct-components
                  • Output-execution
                  • Tuple-operations
                  • Struct-operations
                • Compilation
                • Static-semantics
                • Concrete-syntax
        • Bigmems
        • Builtins
        • Execloader
        • Solidity
        • Paco
        • Concurrent-programs
        • Bls12-377-curves
      • Debugging
      • Community
      • Std
      • Proof-automation
      • Macro-libraries
      • ACL2
      • Interfacing-tools
      • Hardware-verification
      • Software-verification
      • Math
      • Testing-utilities
    • Execution

    Exec-unary

    Execute a unary operator, on an expression value.

    Signature
    (exec-unary op arg env) → evalue+denv
    Arguments
    op — Guard (unopp op).
    arg — Guard (expr-valuep arg).
    env — Guard (denvp env).
    Returns
    evalue+denv — Type (evalue+denv-resultp evalue+denv).

    We coerce the expression value to a value if needed. We apply the operator. The result is a value. The environment is unchanged.

    Definitions and Theorems

    Function: exec-unary

    (defun exec-unary (op arg env)
      (declare (xargs :guard (and (unopp op)
                                  (expr-valuep arg)
                                  (denvp env))))
      (let ((__function__ 'exec-unary))
        (declare (ignorable __function__))
        (b* (((okf arg)
              (expr-value-to-value arg env))
             ((okf val)
              (unop-case
                   op
                   :not (op-not arg)
                   :neg (op-neg arg (denv->curve env))
                   :abs (op-abs arg)
                   :abs-wrapped (op-abs-wrapped arg)
                   :double (op-double arg (denv->curve env))
                   :inv (op-inv arg (denv->curve env))
                   :square (op-square arg (denv->curve env))
                   :square-root (op-square-root arg (denv->curve env))))
             (eval (expr-value-value val)))
          (make-evalue+denv :evalue eval
                            :denv (denv-fix env)))))

    Theorem: evalue+denv-resultp-of-exec-unary

    (defthm evalue+denv-resultp-of-exec-unary
      (b* ((evalue+denv (exec-unary op arg env)))
        (evalue+denv-resultp evalue+denv))
      :rule-classes :rewrite)

    Theorem: exec-unary-of-unop-fix-op

    (defthm exec-unary-of-unop-fix-op
      (equal (exec-unary (unop-fix op) arg env)
             (exec-unary op arg env)))

    Theorem: exec-unary-unop-equiv-congruence-on-op

    (defthm exec-unary-unop-equiv-congruence-on-op
      (implies (unop-equiv op op-equiv)
               (equal (exec-unary op arg env)
                      (exec-unary op-equiv arg env)))
      :rule-classes :congruence)

    Theorem: exec-unary-of-expr-value-fix-arg

    (defthm exec-unary-of-expr-value-fix-arg
      (equal (exec-unary op (expr-value-fix arg) env)
             (exec-unary op arg env)))

    Theorem: exec-unary-expr-value-equiv-congruence-on-arg

    (defthm exec-unary-expr-value-equiv-congruence-on-arg
      (implies (expr-value-equiv arg arg-equiv)
               (equal (exec-unary op arg env)
                      (exec-unary op arg-equiv env)))
      :rule-classes :congruence)

    Theorem: exec-unary-of-denv-fix-env

    (defthm exec-unary-of-denv-fix-env
      (equal (exec-unary op arg (denv-fix env))
             (exec-unary op arg env)))

    Theorem: exec-unary-denv-equiv-congruence-on-env

    (defthm exec-unary-denv-equiv-congruence-on-env
      (implies (denv-equiv env env-equiv)
               (equal (exec-unary op arg env)
                      (exec-unary op arg env-equiv)))
      :rule-classes :congruence)