		Search-engine friendly clone of the ACL2 documentation.

Field-double

Field-double-circuit

Construction of the circuit.

Signature
(field-double-circuit) → pdef
Returns: pdef — Type (pfcs::definitionp pdef).

This is a PFCS definition with a single equality constraint of the form described in field-double.

Definitions and Theorems

Function: field-double-circuit

(defun field-double-circuit nil
  (declare (xargs :guard t))
  (let ((__function__ 'field-double-circuit))
    (declare (ignorable __function__))
    (pfcs::parse-def
         "field_double(x, y) := {
    (x + x) * (1) == (y)
    }")))

Theorem: definitionp-of-field-double-circuit

(defthm definitionp-of-field-double-circuit
  (b* ((pdef (field-double-circuit)))
    (pfcs::definitionp pdef))
  :rule-classes :rewrite)

Theorem: sr1cs-definitionp-of-field-double-circuit

(defthm sr1cs-definitionp-of-field-double-circuit
  (b* ((pdef (field-double-circuit)))
    (pfcs::sr1cs-definitionp pdef))
  :rule-classes :rewrite)