Anforderungen  |   Konzepte  |   Entwurf  |   Entwicklung  |   Qualitätssicherung  |   Lebenszyklus  |   Steuerung
 
 
 
 


Quelle  number_fields_bis.prf

  Sprache: Lisp
 

(number_fields_bis
 (number_fields_left_identity_add 0
  (number_fields_left_identity_add-1 nil 3294676177
   ("" (grind) nil nilnil shostak))
 (number_fields_right_identity_add 0
  (number_fields_right_identity_add-1 nil 3294676190
   ("" (grind) nil nilnil shostak))
 (number_fields_left_identity_mult 0
  (number_fields_left_identity_mult-1 nil 3294676195
   ("" (skosimp) (("" (rewrite "identity_mult"nil nil)) nil)
   ((identity_mult formula-decl nil number_fields nil)
    (number nonempty-type-decl nil numbers nil)
    (boolean nonempty-type-decl nil booleans nil)
    (number_field_pred const-decl "[number -> boolean]" number_fields
     nil)
    (numfield nonempty-type-eq-decl nil number_fields nil)
    (number_field nonempty-type-from-decl nil number_fields nil))
   shostak))
 (number_fields_right_identity_mult 0
  (number_fields_right_identity_mult-1 nil 3294676212
   ("" (skosimp)
    (("" (lemma "commutative_mult" ("x" "x!1" "y" "1"))
      (("" (rewrite "identity_mult"nil nil)) nil))
    nil)
   ((number_field nonempty-type-from-decl nil number_fields nil)
    (numfield nonempty-type-eq-decl nil number_fields nil)
    (number_field_pred const-decl "[number -> boolean]" number_fields
     nil)
    (boolean nonempty-type-decl nil booleans nil)
    (number nonempty-type-decl nil numbers nil)
    (commutative_mult formula-decl nil number_fields nil)
    (identity_mult formula-decl nil number_fields nil))
   shostak))
 (number_fields_negate_is_left_inverse 0
  (number_fields_negate_is_left_inverse-1 nil 3294676243
   ("" (skosimp)
    (("" (lemma "commutative_add" ("x" "-x!1" "y" "x!1"))
      (("" (rewrite "inverse_add"nil nil)) nil))
    nil)
   ((number_field nonempty-type-from-decl nil number_fields nil)
    (- const-decl "[numfield -> numfield]" number_fields nil)
    (numfield nonempty-type-eq-decl nil number_fields nil)
    (number_field_pred const-decl "[number -> boolean]" number_fields
     nil)
    (boolean nonempty-type-decl nil booleans nil)
    (number nonempty-type-decl nil numbers nil)
    (commutative_add formula-decl nil number_fields nil)
    (inverse_add formula-decl nil number_fields nil))
   shostak))
 (number_fields_negate_is_right_inverse 0
  (number_fields_negate_is_right_inverse-1 nil 3294676289
   ("" (skosimp) (("" (rewrite "inverse_add"nil nil)) nil)
   ((inverse_add formula-decl nil number_fields nil)
    (number nonempty-type-decl nil numbers nil)
    (boolean nonempty-type-decl nil booleans nil)
    (number_field_pred const-decl "[number -> boolean]" number_fields
     nil)
    (numfield nonempty-type-eq-decl nil number_fields nil)
    (number_field nonempty-type-from-decl nil number_fields nil))
   shostak))
 (both_sides_plus1 0
  (both_sides_plus1-1 nil 3280126152 ("" (grind) nil nilnil shostak))
 (both_sides_plus2 0
  (both_sides_plus2-1 nil 3280126162 ("" (grind) nil nilnil shostak))
 (both_sides_minus1 0
  (both_sides_minus1-1 nil 3280126168 ("" (grind) nil nilnil
   shostak))
 (both_sides_minus2 0
  (both_sides_minus2-1 nil 3280126174
   ("" (skosimp*)
    (("" (split)
      (("1" (flatten)
        (("1" (rewrite "minus_add")
          (("1" (rewrite "minus_add")
            (("1"
              (lemma "both_sides_plus1"
               ("x" "-x!1" "y" "-y!1" "z" "z!1"))
              (("1" (assert)
                (("1" (hide -1)
                  (("1" (lemma "inverse_add" ("x" "x!1"))
                    (("1"
                      (lemma "both_sides_plus2"
                       ("x" "-x!1" "y" "-y!1" "z" "x!1"))
                      (("1" (replace -2 -1)
                        (("1" (grind)
                          (("1"
                            (lemma "both_sides_plus2"
                             ("z" "y!1" "x" "0" "y" "-y!1+x!1"))
                            (("1" (rewrite "identity_add" -1)
                              (("1"
                                (lemma
                                 "associative_add"
                                 ("x" "y!1" "y" "-y!1" "z" "x!1"))
                                (("1"
                                  (rewrite "inverse_add" -1)
                                  (("1"
                                    (rewrite "identity_add" -1)
                                    (("1"
                                      (replace -1 -2)
                                      (("1"
                                        (hide -1 -4)
                                        (("1"
                                          (lemma
                                           "commutative_add"
                                           ("x" "0" "y" "x!1"))
                                          (("1"
                                            (lemma
                                             "identity_add"
                                             ("x" "x!1"))
                                            (("1"
                                              (replace -1)
                                              (("1" (assertnil nil))
                                              nil))
                                            nil))
                                          nil))
                                        nil))
                                      nil))
                                    nil))
                                  nil))
                                nil))
                              nil))
                            nil))
                          nil))
                        nil))
                      nil))
                    nil))
                  nil))
                nil))
              nil))
            nil))
          nil))
        nil)
       ("2" (flatten) (("2" (assertnil nil)) nil))
      nil))
    nil)
   ((minus_add formula-decl nil number_fields nil)
    (number nonempty-type-decl nil numbers nil)
    (boolean nonempty-type-decl nil booleans nil)
    (number_field_pred const-decl "[number -> boolean]" number_fields
     nil)
    (numfield nonempty-type-eq-decl nil number_fields nil)
    (number_field nonempty-type-from-decl nil number_fields nil)
    (minus_odd_is_odd application-judgement "odd_int" integers nil)
    (- const-decl "[numfield -> numfield]" number_fields nil)
    (both_sides_plus1 formula-decl nil number_fields_bis nil)
    (both_sides_plus2 formula-decl nil number_fields_bis nil)
    (- const-decl "[numfield, numfield -> numfield]" number_fields nil)
    (identity_add formula-decl nil number_fields nil)
    (commutative_add formula-decl nil number_fields nil)
    (associative_add formula-decl nil number_fields nil)
    (+ const-decl "[numfield, numfield -> numfield]" number_fields nil)
    (inverse_add formula-decl nil number_fields nil))
   shostak))
 (number_fields_negate_negate 0
  (number_fields_negate_negate-1 nil 3294676300
   ("" (skosimp)
    ((""
      (lemma "both_sides_plus1" ("z" "-x!1" "x" "-(-x!1)" "y" "x!1"))
      (("" (rewrite "inverse_add" -1)
        (("" (lemma "commutative_add" ("x" "-(-x!1)" "y" "-x!1"))
          (("" (rewrite "inverse_add" -1) (("" (assertnil nil)) nil))
          nil))
        nil))
      nil))
    nil)
   ((- const-decl "[numfield -> numfield]" number_fields nil)
    (numfield nonempty-type-eq-decl nil number_fields nil)
    (number_field nonempty-type-from-decl nil number_fields nil)
    (number_field_pred const-decl "[number -> boolean]" number_fields
     nil)
    (boolean nonempty-type-decl nil booleans nil)
    (number nonempty-type-decl nil numbers nil)
    (both_sides_plus1 formula-decl nil number_fields_bis nil)
    (commutative_add formula-decl nil number_fields nil)
    (inverse_add formula-decl nil number_fields nil))
   shostak))
 (zero_times1 0
  (zero_times1-1 nil 3280124273
   ("" (skosimp*)
    (("" (lemma "inverse_add" ("x" "x!1"))
      (("" (lemma "distributive" ("x" "0" "y" "x!1" "z" "-x!1"))
        (("" (grind) nil nil)) nil))
      nil))
    nil)
   ((number_field nonempty-type-from-decl nil number_fields nil)
    (numfield nonempty-type-eq-decl nil number_fields nil)
    (number_field_pred const-decl "[number -> boolean]" number_fields
     nil)
    (boolean nonempty-type-decl nil booleans nil)
    (number nonempty-type-decl nil numbers nil)
    (inverse_add formula-decl nil number_fields nil)
    (distributive formula-decl nil number_fields nil)
    (- const-decl "[numfield -> numfield]" number_fields nil))
   shostak))
 (zero_times2 0
  (zero_times2-1 nil 3280124509
   ("" (skosimp*)
    (("" (rewrite "commutative_mult")
      (("" (rewrite "zero_times1"nil nil)) nil))
    nil)
   ((commutative_mult formula-decl nil number_fields nil)
    (number nonempty-type-decl nil numbers nil)
    (boolean nonempty-type-decl nil booleans nil)
    (number_field_pred const-decl "[number -> boolean]" number_fields
     nil)
    (numfield nonempty-type-eq-decl nil number_fields nil)
    (number_field nonempty-type-from-decl nil number_fields nil)
    (zero_times1 formula-decl nil number_fields_bis nil))
   shostak))
 (nznum_times_nznum_is_nznum 0
  (nznum_times_nznum_is_nznum-1 nil 3280139881
   ("" (skosimp*)
    (("" (typepred "nzx!1")
      (("" (typepred "nzy!1")
        (("" (hide -1 -3)
          (("" (case "FORALL (x:nznum, y:numfield): x*y = 0 => y = 0")
            (("1" (inst - "nzx!1" "nzy!1") (("1" (assertnil nil))
              nil)
             ("2" (hide-all-but 1)
              (("2" (skosimp*)
                (("2" (typepred "x!1")
                  (("2" (hide -1)
                    (("2" (lemma "inverse_mult" ("n0x" "x!1"))
                      (("2"
                        (case "FORALL (x,y,z:numfield): x=y => x*z = y*z")
                        (("1" (inst - "x!1 * (1 / x!1)" "1" "y!1")
                          (("1" (split -1)
                            (("1" (rewrite "identity_mult" -1)
                              (("1"
                                (hide -2)
                                (("1"
                                  (lemma "associative_mult")
                                  (("1"
                                    (inst-cp - "x!1" "1/x!1" "y!1")
                                    (("1"
                                      (lemma
                                       "commutative_mult"
                                       ("x" "1/x!1" "y" "y!1"))
                                      (("1"
                                        (replace -1 -3)
                                        (("1"
                                          (inst - "x!1" "y!1" "1/x!1")
                                          (("1"
                                            (replace -4)
                                            (("1"
                                              (replace -3 -2)
                                              (("1"
                                                (replace -6 -2)
                                                (("1"
                                                  (rewrite
                                                   "zero_times1"
                                                   -2)
                                                  nil
                                                  nil))
                                                nil))
                                              nil))
                                            nil))
                                          nil))
                                        nil))
                                      nil))
                                    nil))
                                  nil))
                                nil))
                              nil)
                             ("2" (propax) nil nil))
                            nil))
                          nil)
                         ("2" (hide-all-but 1) (("2" (grind) nil nil))
                          nil))
                        nil))
                      nil))
                    nil))
                  nil))
                nil))
              nil))
            nil))
          nil))
        nil))
      nil))
    nil)
   ((nznum nonempty-type-eq-decl nil number_fields nil)
    (/= const-decl "boolean" notequal nil)
    (number_field nonempty-type-from-decl nil number_fields nil)
    (number_field_pred const-decl "[number -> boolean]" number_fields
     nil)
    (number nonempty-type-decl nil numbers nil)
    (NOT const-decl "[bool -> bool]" booleans nil)
    (bool nonempty-type-eq-decl nil booleans nil)
    (boolean nonempty-type-decl nil booleans nil)
    (inverse_mult formula-decl nil number_fields nil)
    (/ const-decl "[numfield, nznum -> numfield]" number_fields nil)
    (identity_mult formula-decl nil number_fields nil)
    (associative_mult formula-decl nil number_fields nil)
    (commutative_mult formula-decl nil number_fields nil)
    (zero_times1 formula-decl nil number_fields_bis nil)
    (numfield nonempty-type-eq-decl nil number_fields nil)
    (IMPLIES const-decl "[bool, bool -> bool]" booleans nil)
    (= const-decl "[T, T -> boolean]" equalities nil)
    (* const-decl "[numfield, numfield -> numfield]" number_fields
       nil))
   shostak))
 (minus_nznum_is_nznum 0
  (minus_nznum_is_nznum-1 nil 3280140087
   ("" (skosimp*)
    (("" (typepred "nzx!1")
      (("" (lemma "inverse_add" ("x" "nzx!1"))
        (("" (replace -4)
          (("" (rewrite "identity_add" -1)
            (("" (replace -1) (("" (assertnil nil)) nil)) nil))
          nil))
        nil))
      nil))
    nil)
   ((nznum nonempty-type-eq-decl nil number_fields nil)
    (/= const-decl "boolean" notequal nil)
    (number_field nonempty-type-from-decl nil number_fields nil)
    (number_field_pred const-decl "[number -> boolean]" number_fields
     nil)
    (number nonempty-type-decl nil numbers nil)
    (NOT const-decl "[bool -> bool]" booleans nil)
    (bool nonempty-type-eq-decl nil booleans nil)
    (boolean nonempty-type-decl nil booleans nil)
    (identity_add formula-decl nil number_fields nil)
    (- const-decl "[numfield, numfield -> numfield]" number_fields nil)
    (inverse_add formula-decl nil number_fields nil)
    (numfield nonempty-type-eq-decl nil number_fields nil))
   shostak))
 (zero_times3 0
  (zero_times3-1 nil 3280133331
   ("" (skosimp*)
    (("" (case-replace "x!1=0")
      (("1" (rewrite "zero_times1") (("1" (assertnil nil)) nil)
       ("2" (case-replace "y!1=0")
        (("1" (rewrite "zero_times2") (("1" (assertnil nil)) nil)
         ("2" (assert)
          (("2"
            (lemma "nznum_times_nznum_is_nznum"
             ("nzx" "x!1" "nzy" "y!1"))
            (("2" (assertnil nil)) nil))
          nil))
        nil))
      nil))
    nil)
   ((number nonempty-type-decl nil numbers nil)
    (boolean nonempty-type-decl nil booleans nil)
    (= const-decl "[T, T -> boolean]" equalities nil)
    (number_field_pred const-decl "[number -> boolean]" number_fields
     nil)
    (number_field nonempty-type-from-decl nil number_fields nil)
    (zero_times1 formula-decl nil number_fields_bis nil)
    (nznum_times_nznum_is_nznum judgement-tcc nil number_fields_bis
     nil)
    (/= const-decl "boolean" notequal nil)
    (nznum nonempty-type-eq-decl nil number_fields nil)
    (zero_times2 formula-decl nil number_fields_bis nil))
   shostak))
 (neg_times_neg 0
  (neg_times_neg-1 nil 3280141326
   ("" (skosimp*)
    (("" (lemma "inverse_add" ("x" "y!1"))
      (("" (lemma "distributive" ("x" "x!1" "y" "y!1" "z" "-y!1"))
        (("" (replace -2 -1)
          (("" (rewrite "zero_times2" -1)
            ((""
              (lemma "both_sides_minus1"
               ("x" "0" "y" "(x!1 * y!1) + (x!1 * -y!1)" "z"
                "x!1 * -y!1"))
              (("" (assert)
                ((""
                  (lemma "associative_mult"
                   ("x" "-1" "y" "x!1" "z" "-y!1"))
                  (("" (case-replace "-1*x!1=-x!1")
                    (("1" (assertnil nil)
                     ("2" (hide-all-but 1)
                      (("2" (grind)
                        (("2"
                          (lemma "both_sides_plus2"
                           ("z" "x!1" "x" "-1*x!1" "y" "-x!1"))
                          (("2" (rewrite "inverse_add" -1)
                            (("2" (lemma "inverse_add" ("x" "1"))
                              (("2"
                                (lemma "zero_times1" ("x" "x!1"))
                                (("2"
                                  (lemma
                                   "distributive"
                                   ("x" "x!1" "y" "1" "z" "-1"))
                                  (("2"
                                    (lemma "commutative_mult")
                                    (("2"
                                      (inst-cp - "x!1" "1+ -1")
                                      (("2"
                                        (replace -2 -3)
                                        (("2"
                                          (replace -5)
                                          (("2"
                                            (replace -4)
                                            (("2"
                                              (inst-cp - "x!1" "1")
                                              (("2"
                                                (rewrite
                                                 "identity_mult"
                                                 -2)
                                                (("2"
                                                  (replace -2)
                                                  (("2"
                                                    (inst - "x!1" "-1")
                                                    (("2"
                                                      (replace -1)
                                                      (("2"
                                                        (assert)
                                                        nil
                                                        nil))
                                                      nil))
                                                    nil))
                                                  nil))
                                                nil))
                                              nil))
                                            nil))
                                          nil))
                                        nil))
                                      nil))
                                    nil))
                                  nil))
                                nil))
                              nil))
                            nil))
                          nil))
                        nil))
                      nil))
                    nil))
                  nil))
                nil))
              nil))
            nil))
          nil))
        nil))
      nil))
    nil)
   ((number_field nonempty-type-from-decl nil number_fields nil)
    (numfield nonempty-type-eq-decl nil number_fields nil)
    (number_field_pred const-decl "[number -> boolean]" number_fields
     nil)
    (boolean nonempty-type-decl nil booleans nil)
    (number nonempty-type-decl nil numbers nil)
    (inverse_add formula-decl nil number_fields nil)
    (* const-decl "[numfield, numfield -> numfield]" number_fields nil)
    (+ const-decl "[numfield, numfield -> numfield]" number_fields nil)
    (both_sides_minus1 formula-decl nil number_fields_bis nil)
    (associative_mult formula-decl nil number_fields nil)
    (both_sides_plus2 formula-decl nil number_fields_bis nil)
    (odd_plus_odd_is_even application-judgement "even_int" integers
     nil)
    (identity_mult formula-decl nil number_fields nil)
    (commutative_mult formula-decl nil number_fields nil)
    (zero_times1 formula-decl nil number_fields_bis nil)
    (minus_nznum_is_nznum application-judgement "nznum"
     number_fields_bis nil)
    (= const-decl "[T, T -> boolean]" equalities nil)
    (zero_times2 formula-decl nil number_fields_bis nil)
    (distributive formula-decl nil number_fields nil)
    (- const-decl "[numfield -> numfield]" number_fields nil))
   shostak))
 (zero_is_neg_zero 0
  (zero_is_neg_zero-1 nil 3280127050 ("" (grind) nil nil)
   ((minus_even_is_even application-judgement "even_int" integers nil))
   shostak))
 (both_sides_times1 0
  (both_sides_times1-1 nil 3280127668
   ("" (skosimp*)
    (("" (split)
      (("1" (flatten)
        (("1"
          (lemma "both_sides_minus1"
           ("x" "x!1*n0z!1" "y" "y!1*n0z!1" "z" "y!1 * n0z!1"))
          (("1" (lemma "inverse_add" ("x" "y!1 * n0z!1"))
            (("1"
              (lemma "minus_add" ("x" "y!1 * n0z!1" "y" "y!1 * n0z!1"))
              (("1" (replace -1 -2 rl)
                (("1" (replace -2 -3)
                  (("1" (hide -1 -2)
                    (("1" (assert)
                      (("1" (hide -2)
                        (("1"
                          (case-replace
                           "x!1 * n0z!1 - y!1 * n0z!1 = n0z!1*(x!1-y!1)")
                          (("1"
                            (lemma "zero_times3"
                             ("x" "n0z!1" "y" "x!1-y!1"))
                            (("1" (replace -3 -1)
                              (("1"
                                (hide -2 -3)
                                (("1"
                                  (flatten -1)
                                  (("1"
                                    (typepred "n0z!1")
                                    (("1"
                                      (split -3)
                                      (("1" (assertnil nil)
                                       ("2"
                                        (hide -2 -3)
                                        (("2"
                                          (lemma
                                           "both_sides_plus1"
                                           ("x"
                                            "x!1-y!1"
                                            "y"
                                            "0"
                                            "z"
                                            "y!1"))
                                          (("2" (assertnil nil))
                                          nil))
                                        nil))
                                      nil))
                                    nil))
                                  nil))
                                nil))
                              nil))
                            nil)
                           ("2" (hide -1 2)
                            (("2" (rewrite "minus_add")
                              (("2"
                                (rewrite "minus_add")
                                (("2"
                                  (rewrite "distributive" 1)
                                  (("2"
                                    (lemma
                                     "commutative_mult"
                                     ("x" "x!1" "y" "n0z!1"))
                                    (("2"
                                      (replace -1)
                                      (("2"
                                        (assert)
                                        (("2"
                                          (hide -1)
                                          (("2"
                                            (lemma
                                             "inverse_add"
                                             ("x" "y!1"))
                                            (("2"
                                              (lemma
                                               "distributive"
                                               ("x"
                                                "n0z!1"
                                                "y"
                                                "y!1"
                                                "z"
                                                "-y!1"))
                                              (("2"
                                                (replace -2)
                                                (("2"
                                                  (rewrite
                                                   "zero_times2"
                                                   -1)
                                                  (("2"
                                                    (rewrite
                                                     "commutative_mult"
                                                     -1)
                                                    (("2"
                                                      (lemma
                                                       "both_sides_plus2"
                                                       ("z"
                                                        "-(y!1 * n0z!1)"
                                                        "x"
                                                        "0"
                                                        "y"
                                                        "y!1 * n0z!1 + (n0z!1 * -y!1)"))
                                                      (("2"
                                                        (lemma
                                                         "identity_add"
                                                         ("x"
                                                          "-(y!1*n0z!1)"))
                                                        (("2"
                                                          (replace -1)
                                                          (("2"
                                                            (hide -1)
                                                            (("2"
                                                              (lemma
                                                               "inverse_add"
                                                               ("x"
                                                                "y!1*n0z!1"))
                                                              (("2"
                                                                (case-replace
                                                                 "-(y!1 * n0z!1) + (y!1 * n0z!1 + (n0z!1 * -y!1)) = (n0z!1 * -y!1)")
                                                                (("1"
                                                                  (assert)
                                                                  nil
                                                                  nil)
                                                                 ("2"
                                                                  (hide
                                                                   2
                                                                   -2)
                                                                  (("2"
                                                                    (lemma
                                                                     "associative_add"
                                                                     ("x"
                                                                      "-(y!1 * n0z!1)"
                                                                      "y"
                                                                      "y!1 * n0z!1"
                                                                      "z"
                                                                      "n0z!1 * -y!1"))
                                                                    (("2"
                                                                      (lemma
                                                                       "commutative_add"
                                                                       ("x"
                                                                        "y!1 * n0z!1"
                                                                        "y"
                                                                        "-(y!1 * n0z!1)"))
                                                                      (("2"
                                                                        (replace
                                                                         -1
                                                                         -2
                                                                         :dir
                                                                         rl)
                                                                        (("2"
                                                                          (replace
                                                                           -2
                                                                           1)
                                                                          (("2"
                                                                            (replace
                                                                             -3
                                                                             1)
                                                                            (("2"
                                                                              (rewrite
                                                                               "commutative_add"
                                                                               1)
                                                                              nil
                                                                              nil))
                                                                            nil))
                                                                          nil))
                                                                        nil))
                                                                      nil))
                                                                    nil))
                                                                  nil))
                                                                nil))
                                                              nil))
                                                            nil))
                                                          nil))
                                                        nil))
                                                      nil))
                                                    nil))
                                                  nil))
                                                nil))
                                              nil))
                                            nil))
                                          nil))
                                        nil))
                                      nil))
                                    nil))
                                  nil))
                                nil))
                              nil))
                            nil))
                          nil))
                        nil))
                      nil))
                    nil))
                  nil))
                nil))
              nil))
            nil))
          nil))
        nil)
       ("2" (flatten) (("2" (assertnil nil)) nil))
      nil))
    nil)
   ((nznum nonempty-type-eq-decl nil number_fields nil)
    (/= const-decl "boolean" notequal nil)
    (* const-decl "[numfield, numfield -> numfield]" number_fields nil)
    (numfield nonempty-type-eq-decl nil number_fields nil)
    (number_field nonempty-type-from-decl nil number_fields nil)
    (number_field_pred const-decl "[number -> boolean]" number_fields
     nil)
    (boolean nonempty-type-decl nil booleans nil)
    (number nonempty-type-decl nil numbers nil)
    (both_sides_minus1 formula-decl nil number_fields_bis nil)
    (minus_add formula-decl nil number_fields nil)
    (minus_nznum_is_nznum application-judgement "nznum"
     number_fields_bis nil)
    (minus_odd_is_odd application-judgement "odd_int" integers nil)
    (- const-decl "[numfield, numfield -> numfield]" number_fields nil)
    (= const-decl "[T, T -> boolean]" equalities nil)
    (both_sides_plus1 formula-decl nil number_fields_bis nil)
    (NOT const-decl "[bool -> bool]" booleans nil)
    (bool nonempty-type-eq-decl nil booleans nil)
    (zero_times3 formula-decl nil number_fields_bis nil)
    (- const-decl "[numfield -> numfield]" number_fields nil)
    (distributive formula-decl nil number_fields nil)
    (zero_times2 formula-decl nil number_fields_bis nil)
    (both_sides_plus2 formula-decl nil number_fields_bis nil)
    (+ const-decl "[numfield, numfield -> numfield]" number_fields nil)
    (commutative_add formula-decl nil number_fields nil)
    (associative_add formula-decl nil number_fields nil)
    (identity_add formula-decl nil number_fields nil)
    (commutative_mult formula-decl nil number_fields nil)
    (inverse_add formula-decl nil number_fields nil))
   shostak))
 (both_sides_times2 0
  (both_sides_times2-1 nil 3280128353
   ("" (skosimp*)
    (("" (rewrite "commutative_mult")
      (("" (lemma "commutative_mult" ("x" "n0z!1" "y" "y!1"))
        (("" (replace -1)
          ((""
            (lemma "both_sides_times1"
             ("x" "x!1" "y" "y!1" "n0z" "n0z!1"))
            (("" (propax) nil nil)) nil))
          nil))
        nil))
      nil))
    nil)
   ((commutative_mult formula-decl nil number_fields nil)
    (number nonempty-type-decl nil numbers nil)
    (boolean nonempty-type-decl nil booleans nil)
    (number_field_pred const-decl "[number -> boolean]" number_fields
     nil)
    (numfield nonempty-type-eq-decl nil number_fields nil)
    (number_field nonempty-type-from-decl nil number_fields nil)
    (/= const-decl "boolean" notequal nil)
    (nznum nonempty-type-eq-decl nil number_fields nil)
    (both_sides_times1 formula-decl nil number_fields_bis nil))
   shostak))
 (inv_ne_0 0
  (inv_ne_0-1 nil 3280127243
   ("" (skosimp*)
    (("" (lemma "inverse_mult" ("n0x" "n0x!1"))
      (("" (typepred "n0x!1")
        (("" (replace -4)
          (("" (lemma "zero_times2" ("x" "n0x!1"))
            (("" (replace -1 -4)
              (("" (hide-all-but -4) (("" (assertnil nil)) nil))
              nil))
            nil))
          nil))
        nil))
      nil))
    nil)
   ((nznum nonempty-type-eq-decl nil number_fields nil)
    (/= const-decl "boolean" notequal nil)
    (number_field nonempty-type-from-decl nil number_fields nil)
    (number_field_pred const-decl "[number -> boolean]" number_fields
     nil)
    (boolean nonempty-type-decl nil booleans nil)
    (number nonempty-type-decl nil numbers nil)
    (inverse_mult formula-decl nil number_fields nil)
    (zero_times2 formula-decl nil number_fields_bis nil)
    (bool nonempty-type-eq-decl nil booleans nil)
    (NOT const-decl "[bool -> bool]" booleans nil))
   shostak))
 (nznum_div_nznum_is_nznum 0
  (nznum_div_nznum_is_nznum-1 nil 3280140171
   ("" (skosimp*)
    (("" (rewrite "div_def")
      (("" (lemma "inv_ne_0" ("n0x" "nzy!1"))
        ((""
          (lemma "nznum_times_nznum_is_nznum"
           ("nzx" "nzx!1" "nzy" "1/nzy!1"))
          (("1" (assertnil nil) ("2" (propax) nil nil)) nil))
        nil))
      nil))
    nil)
   ((div_def formula-decl nil number_fields nil)
    (number nonempty-type-decl nil numbers nil)
    (boolean nonempty-type-decl nil booleans nil)
    (number_field_pred const-decl "[number -> boolean]" number_fields
     nil)
    (number_field nonempty-type-from-decl nil number_fields nil)
    (/= const-decl "boolean" notequal nil)
    (nznum nonempty-type-eq-decl nil number_fields nil)
    (numfield nonempty-type-eq-decl nil number_fields nil)
    (/ const-decl "[numfield, nznum -> numfield]" number_fields nil)
    (nznum_times_nznum_is_nznum judgement-tcc nil number_fields_bis
     nil)
    (inv_ne_0 formula-decl nil number_fields_bis nil))
   shostak))
 (both_sides_div1 0
  (both_sides_div1-1 nil 3280130887
   ("" (skosimp*)
    (("" (lemma "div_def" ("y" "x!1" "n0x" "n0z!1"))
      (("" (lemma "div_def" ("y" "y!1" "n0x" "n0z!1"))
        (("" (replace -1)
          (("" (replace -2)
            ((""
              (lemma "both_sides_times1"
               ("x" "x!1" "y" "y!1" "n0z" "1/n0z!1"))
              (("1" (propax) nil nil)
               ("2" (rewrite "inv_ne_0" 1) nil nil))
              nil))
            nil))
          nil))
        nil))
      nil))
    nil)
   ((numfield nonempty-type-eq-decl nil number_fields nil)
    (nznum nonempty-type-eq-decl nil number_fields nil)
    (/= const-decl "boolean" notequal nil)
    (number_field nonempty-type-from-decl nil number_fields nil)
    (number_field_pred const-decl "[number -> boolean]" number_fields
     nil)
    (boolean nonempty-type-decl nil booleans nil)
    (number nonempty-type-decl nil numbers nil)
    (div_def formula-decl nil number_fields nil)
    (/ const-decl "[numfield, nznum -> numfield]" number_fields nil)
    (both_sides_times1 formula-decl nil number_fields_bis nil)
    (nznum_div_nznum_is_nznum application-judgement "nznum"
     number_fields_bis nil))
   shostak))
 (both_sides_div2 0
  (both_sides_div2-1 nil 3280142404
   ("" (skosimp*)
    (("" (rewrite "div_def")
      (("" (lemma "div_def" ("y" "n0z!1" "n0x" "n0y!1"))
        (("" (replace -1 1)
          ((""
            (lemma "both_sides_times2"
             ("n0z" "n0z!1" "x" "1/n0x!1" "y" "1/n0y!1"))
            (("" (replace -1 1)
              (("" (hide -1 -2)
                (("" (split)
                  (("1" (flatten)
                    (("1"
                      (lemma "both_sides_times2"
                       ("n0z" "n0x!1" "x" "1 / n0x!1" "y" "1 / n0y!1"))
                      (("1" (rewrite "inverse_mult" -1)
                        (("1" (assert)
                          (("1" (hide -2)
                            (("1"
                              (lemma "both_sides_times1"
                               ("n0z"
                                "n0y!1"
                                "x"
                                "1"
                                "y"
                                "n0x!1 * (1 / n0y!1)"))
                              (("1"
                                (rewrite "identity_mult" -1)
                                (("1"
                                  (assert)
                                  (("1"
                                    (replace -1 1)
                                    (("1"
                                      (hide -1 -2)
                                      (("1"
                                        (lemma
                                         "identity_mult"
                                         ("x" "n0x!1"))
                                        (("1"
                                          (lemma
                                           "inverse_mult"
                                           ("n0x" "n0y!1"))
                                          (("1"
                                            (lemma "commutative_mult")
                                            (("1"
                                              (inst-cp
                                               -
                                               "1 / n0y!1"
                                               "n0x!1")
                                              (("1"
                                                (replace -2 1)
                                                (("1"
                                                  (lemma
                                                   "associative_mult"
                                                   ("x"
                                                    "n0x!1"
                                                    "y"
                                                    "1/n0y!1"
                                                    "z"
                                                    "n0y!1"))
                                                  (("1"
                                                    (replace -1 1 rl)
                                                    (("1"
                                                      (hide -1 -3)
                                                      (("1"
                                                        (inst-cp
                                                         -
                                                         "1 / n0y!1"
                                                         "n0y!1")
                                                        (("1"
                                                          (replace
                                                           -3
                                                           -2)
                                                          (("1"
                                                            (replace
                                                             -2)
                                                            (("1"
                                                              (inst
                                                               -
                                                               "1"
                                                               "n0x!1")
                                                              (("1"
                                                                (assert)
                                                                nil
                                                                nil))
                                                              nil))
                                                            nil))
                                                          nil))
                                                        nil))
                                                      nil))
                                                    nil))
                                                  nil))
                                                nil))
                                              nil))
                                            nil))
                                          nil))
                                        nil))
                                      nil))
                                    nil))
                                  nil))
                                nil))
                              nil))
                            nil))
                          nil))
                        nil))
                      nil))
                    nil)
                   ("2" (flatten) (("2" (assertnil nil)) nil))
                  nil))
                nil))
              nil))
            nil))
          nil))
        nil))
      nil))
    nil)
   ((div_def formula-decl nil number_fields nil)
    (number nonempty-type-decl nil numbers nil)
    (boolean nonempty-type-decl nil booleans nil)
    (number_field_pred const-decl "[number -> boolean]" number_fields
     nil)
    (number_field nonempty-type-from-decl nil number_fields nil)
    (/= const-decl "boolean" notequal nil)
    (nznum nonempty-type-eq-decl nil number_fields nil)
    (numfield nonempty-type-eq-decl nil number_fields nil)
    (nznum_div_nznum_is_nznum application-judgement "nznum"
     number_fields_bis nil)
    (nznum_times_nznum_is_nznum application-judgement "nznum"
     number_fields_bis nil)
    (both_sides_times1 formula-decl nil number_fields_bis nil)
    (* const-decl "[numfield, numfield -> numfield]" number_fields nil)
    (associative_mult formula-decl nil number_fields nil)
    (commutative_mult formula-decl nil number_fields nil)
    (identity_mult formula-decl nil number_fields nil)
    (inverse_mult formula-decl nil number_fields nil)
    (/ const-decl "[numfield, nznum -> numfield]" number_fields nil)
    (both_sides_times2 formula-decl nil number_fields_bis nil))
   shostak))
 (times_plus 0
  (times_plus-1 nil 3280126622
   ("" (skosimp*)
    (("" (lemma "distributive" ("x" "x!1+y!1" "y" "z!1" "z" "w!1"))
      (("" (replace -1 1)
        (("" (rewrite "commutative_mult" 1)
          (("" (lemma "commutative_mult" ("x" "x!1+y!1" "y" "w!1"))
            (("" (replace -1 1)
              (("" (assert)
                (("" (rewrite "commutative_mult" 1)
                  (("" (assert)
                    (("" (rewrite "commutative_mult" 1) nil nil)) nil))
                  nil))
                nil))
              nil))
            nil))
          nil))
        nil))
      nil))
    nil)
   ((number_field nonempty-type-from-decl nil number_fields nil)
    (+ const-decl "[numfield, numfield -> numfield]" number_fields nil)
    (numfield nonempty-type-eq-decl nil number_fields nil)
    (number_field_pred const-decl "[number -> boolean]" number_fields
     nil)
    (boolean nonempty-type-decl nil booleans nil)
    (number nonempty-type-decl nil numbers nil)
    (distributive formula-decl nil number_fields nil)
    (commutative_mult formula-decl nil number_fields nil))
   shostak))
 (times_div1 0
  (times_div1-1 nil 3280129158
   ("" (skosimp*)
    (("" (rewrite "div_def")
      (("" (lemma "div_def" ("y" "x!1*y!1" "n0x" "n0z!1"))
        (("" (replace -1) (("" (rewrite "associative_mult" 1) nil nil))
          nil))
        nil))
      nil))
    nil)
   ((div_def formula-decl nil number_fields nil)
    (number nonempty-type-decl nil numbers nil)
    (boolean nonempty-type-decl nil booleans nil)
    (number_field_pred const-decl "[number -> boolean]" number_fields
     nil)
    (number_field nonempty-type-from-decl nil number_fields nil)
    (/= const-decl "boolean" notequal nil)
    (nznum nonempty-type-eq-decl nil number_fields nil)
    (numfield nonempty-type-eq-decl nil number_fields nil)
    (nznum_div_nznum_is_nznum application-judgement "nznum"
     number_fields_bis nil)
    (associative_mult formula-decl nil number_fields nil)
    (/ const-decl "[numfield, nznum -> numfield]" number_fields nil)
    (* const-decl "[numfield, numfield -> numfield]" number_fields
       nil))
   shostak))
 (times_div2 0
  (times_div2-1 nil 3280129233
   ("" (skosimp*)
    (("" (rewrite "commutative_mult")
      (("" (rewrite "times_div1")
        (("" (rewrite "commutative_mult"nil nil)) nil))
      nil))
    nil)
   ((commutative_mult formula-decl nil number_fields nil)
    (number nonempty-type-decl nil numbers nil)
    (boolean nonempty-type-decl nil booleans nil)
    (number_field_pred const-decl "[number -> boolean]" number_fields
     nil)
    (numfield nonempty-type-eq-decl nil number_fields nil)
    (number_field nonempty-type-from-decl nil number_fields nil)
    (/= const-decl "boolean" notequal nil)
    (nznum nonempty-type-eq-decl nil number_fields nil)
    (/ const-decl "[numfield, nznum -> numfield]" number_fields nil)
    (times_div1 formula-decl nil number_fields_bis nil))
   shostak))
 (div_eq_zero 0
  (div_eq_zero-1 nil 3280134605
   ("" (skosimp*)
    (("" (rewrite "div_def")
      (("" (lemma "inv_ne_0" ("n0x" "n0z!1"))
        (("" (lemma "zero_times3" ("x" "x!1" "y" "1/n0z!1"))
          (("" (assertnil nil)) nil))
        nil))
      nil))
    nil)
   ((div_def formula-decl nil number_fields nil)
    (number nonempty-type-decl nil numbers nil)
    (boolean nonempty-type-decl nil booleans nil)
    (number_field_pred const-decl "[number -> boolean]" number_fields
     nil)
    (number_field nonempty-type-from-decl nil number_fields nil)
    (/= const-decl "boolean" notequal nil)
    (nznum nonempty-type-eq-decl nil number_fields nil)
    (numfield nonempty-type-eq-decl nil number_fields nil)
    (nznum_div_nznum_is_nznum application-judgement "nznum"
     number_fields_bis nil)
    (zero_times3 formula-decl nil number_fields_bis nil)
    (/ const-decl "[numfield, nznum -> numfield]" number_fields nil)
    (inv_ne_0 formula-decl nil number_fields_bis nil))
   shostak))
 (div_simp 0
  (div_simp-1 nil 3280126859
   ("" (skosimp*)
    (("" (rewrite "div_def") (("" (rewrite "inverse_mult"nil nil))
      nil))
    nil)
   ((div_def formula-decl nil number_fields nil)
    (number nonempty-type-decl nil numbers nil)
    (boolean nonempty-type-decl nil booleans nil)
    (number_field_pred const-decl "[number -> boolean]" number_fields
     nil)
    (number_field nonempty-type-from-decl nil number_fields nil)
    (/= const-decl "boolean" notequal nil)
    (nznum nonempty-type-eq-decl nil number_fields nil)
    (numfield nonempty-type-eq-decl nil number_fields nil)
    (nznum_div_nznum_is_nznum application-judgement "nznum"
     number_fields_bis nil)
    (nznum_times_nznum_is_nznum application-judgement "nznum"
     number_fields_bis nil)
    (inverse_mult formula-decl nil number_fields nil))
   shostak))
 (div_cancel1 0
  (div_cancel1-1 nil 3280135297
   ("" (skosimp*)
    (("" (rewrite "div_def")
      (("" (lemma "inverse_mult" ("n0x" "n0z!1"))
        (("" (case-replace "x!1=0")
          (("1" (rewrite "zero_times1")
            (("1" (rewrite "zero_times2"nil nil)) nil)
           ("2"
            (lemma "both_sides_times1"
             ("n0z" "x!1" "x" "n0z!1 * (1 / n0z!1)" "y" "1"))
            (("1" (rewrite "identity_mult" -1)
              (("1"
                (lemma "associative_mult"
                 ("x" "n0z!1" "y" "1/n0z!1" "z" "x!1"))
                (("1"
                  (lemma "commutative_mult" ("x" "1/n0z!1" "y" "x!1"))
                  (("1" (replace -1 -2)
                    (("1" (replace -2 2)
                      (("1" (replace -3 2) (("1" (propax) nil nil))
                        nil))
                      nil))
                    nil))
                  nil))
                nil))
              nil)
             ("2" (assertnil nil))
            nil))
          nil))
        nil))
      nil))
    nil)
   ((div_def formula-decl nil number_fields nil)
    (number nonempty-type-decl nil numbers nil)
    (boolean nonempty-type-decl nil booleans nil)
    (number_field_pred const-decl "[number -> boolean]" number_fields
     nil)
    (number_field nonempty-type-from-decl nil number_fields nil)
    (/= const-decl "boolean" notequal nil)
    (nznum nonempty-type-eq-decl nil number_fields nil)
    (numfield nonempty-type-eq-decl nil number_fields nil)
    (nznum_div_nznum_is_nznum application-judgement "nznum"
     number_fields_bis nil)
    (= const-decl "[T, T -> boolean]" equalities nil)
    (zero_times2 formula-decl nil number_fields_bis nil)
    (zero_times1 formula-decl nil number_fields_bis nil)
    (/ const-decl "[numfield, nznum -> numfield]" number_fields nil)
    (identity_mult formula-decl nil number_fields nil)
    (nznum_times_nznum_is_nznum application-judgement "nznum"
     number_fields_bis nil)
    (commutative_mult formula-decl nil number_fields nil)
    (associative_mult formula-decl nil number_fields nil)
    (* const-decl "[numfield, numfield -> numfield]" number_fields nil)
    (both_sides_times1 formula-decl nil number_fields_bis nil)
    (inverse_mult formula-decl nil number_fields nil))
   shostak))
 (div_cancel2 0
  (div_cancel2-1 nil 3280134780
   ("" (skosimp*)
    (("" (rewrite "commutative_mult")
      (("" (rewrite "div_cancel1"nil nil)) nil))
    nil)
   ((commutative_mult formula-decl nil number_fields nil)
    (number nonempty-type-decl nil numbers nil)
    (boolean nonempty-type-decl nil booleans nil)
    (number_field_pred const-decl "[number -> boolean]" number_fields
     nil)
    (numfield nonempty-type-eq-decl nil number_fields nil)
    (number_field nonempty-type-from-decl nil number_fields nil)
    (/= const-decl "boolean" notequal nil)
    (nznum nonempty-type-eq-decl nil number_fields nil)
    (/ const-decl "[numfield, nznum -> numfield]" number_fields nil)
    (div_cancel1 formula-decl nil number_fields_bis nil))
   shostak))
 (div_cancel3 0
  (div_cancel3-1 nil 3280142714
   ("" (skosimp*)
    (("" (lemma "div_cancel1" ("n0z" "n0z!1" "x" "x!1"))
      ((""
        (lemma "both_sides_times2"
         ("n0z" "n0z!1" "x" "x!1 / n0z!1" "y" "y!1"))
        (("" (replace -2 -1)
          (("" (rewrite "commutative_mult" -1)
            (("" (replace -1) (("" (assertnil nil)) nil)) nil))
          nil))
        nil))
      nil))
    nil)
   ((nznum nonempty-type-eq-decl nil number_fields nil)
    (/= const-decl "boolean" notequal nil)
    (number_field nonempty-type-from-decl nil number_fields nil)
    (number_field_pred const-decl "[number -> boolean]" number_fields
     nil)
    (boolean nonempty-type-decl nil booleans nil)
    (number nonempty-type-decl nil numbers nil)
    (div_cancel1 formula-decl nil number_fields_bis nil)
    (commutative_mult formula-decl nil number_fields nil)
    (both_sides_times2 formula-decl nil number_fields_bis nil)
    (numfield nonempty-type-eq-decl nil number_fields nil)
    (/ const-decl "[numfield, nznum -> numfield]" number_fields nil))
   shostak))
 (div_cancel4 0
  (div_cancel4-1 nil 3280134879
   ("" (skosimp*)
    (("" (lemma "div_cancel3" ("x" "x!1" "y" "y!1" "n0z" "n0z!1"))
      (("" (split)
        (("1" (flatten) (("1" (assertnil nil)) nil)
         ("2" (flatten) (("2" (assertnil nil)) nil))
        nil))
      nil))
    nil)
   ((nznum nonempty-type-eq-decl nil number_fields nil)
    (/= const-decl "boolean" notequal nil)
    (number_field nonempty-type-from-decl nil number_fields nil)
    (number_field_pred const-decl "[number -> boolean]" number_fields
     nil)
    (boolean nonempty-type-decl nil booleans nil)
    (number nonempty-type-decl nil numbers nil)
    (div_cancel3 formula-decl nil number_fields_bis nil))
   shostak))
 (cross_mult 0
  (cross_mult-1 nil 3280134974
   ("" (skosimp*)
    ((""
      (lemma "div_cancel3" ("x" "x!1" "n0z" "n0x!1" "y" "y!1/n0y!1"))
      (("" (rewrite "times_div2" -1)
        ((""
          (lemma "div_cancel4"
           ("y" "x!1" "x" "y!1*n0x!1" "n0z" "n0y!1"))
          (("" (replace -2 1) (("" (propax) nil nil)) nil)) nil))
        nil))
      nil))
    nil)
   ((/ const-decl "[numfield, nznum -> numfield]" number_fields nil)
    (numfield nonempty-type-eq-decl nil number_fields nil)
    (nznum nonempty-type-eq-decl nil number_fields nil)
    (/= const-decl "boolean" notequal nil)
    (number_field nonempty-type-from-decl nil number_fields nil)
    (number_field_pred const-decl "[number -> boolean]" number_fields
     nil)
    (boolean nonempty-type-decl nil booleans nil)
    (number nonempty-type-decl nil numbers nil)
    (div_cancel3 formula-decl nil number_fields_bis nil)
    (div_cancel4 formula-decl nil number_fields_bis nil)
    (* const-decl "[numfield, numfield -> numfield]" number_fields nil)
    (times_div2 formula-decl nil number_fields_bis nil))
   shostak))
 (div_times 0
  (div_times-1 nil 3280136949
   ("" (skosimp*)
    (("" (lemma "times_div1" ("x" "x!1/n0x!1" "y" "y!1" "n0z" "n0y!1"))
      (("" (replace -1 1)
        (("" (hide -1)
          ((""
            (lemma "cross_mult"
             ("x" "x!1 / n0x!1 * y!1" "n0x" "n0y!1" "y" "x!1 * y!1"
              "n0y" "n0x!1 * n0y!1"))
            (("" (replace -1 1)
              (("" (hide -1)
                (("" (rewrite "associative_mult")
                  (("" (rewrite "div_cancel2" 1)
                    (("" (assertnil nil)) nil))
                  nil))
                nil))
              nil))
            nil))
          nil))
        nil))
      nil))
    nil)
   ((/ const-decl "[numfield, nznum -> numfield]" number_fields nil)
    (numfield nonempty-type-eq-decl nil number_fields nil)
    (nznum nonempty-type-eq-decl nil number_fields nil)
    (/= const-decl "boolean" notequal nil)
    (number_field nonempty-type-from-decl nil number_fields nil)
    (number_field_pred const-decl "[number -> boolean]" number_fields
     nil)
    (boolean nonempty-type-decl nil booleans nil)
    (number nonempty-type-decl nil numbers nil)
    (times_div1 formula-decl nil number_fields_bis nil)
    (associative_mult formula-decl nil number_fields nil)
    (div_cancel2 formula-decl nil number_fields_bis nil)
    (nznum_times_nznum_is_nznum application-judgement "nznum"
     number_fields_bis nil)
    (cross_mult formula-decl nil number_fields_bis nil)
    (* const-decl "[numfield, numfield -> numfield]" number_fields
       nil))
   shostak))
 (add_div 0
  (add_div-1 nil 3280145209
   ("" (skosimp*)
    ((""
      (lemma "div_cancel4"
       ("y" "(x!1 / n0x!1) + (y!1 / n0y!1)" "x"
        "x!1 * n0y!1 + y!1 * n0x!1" "n0z" "n0x!1 * n0y!1"))
      (("" (replace -1 1)
        (("" (hide -1)
          (("" (lemma "commutative_mult")
            ((""
              (inst-cp - "(x!1 / n0x!1) + (y!1 / n0y!1)"
               "n0x!1 * n0y!1")
              (("" (replace -2 1)
                ((""
                  (lemma "distributive"
                   ("x" "n0x!1*n0y!1" "y" "x!1 / n0x!1" "z"
                    "y!1 / n0y!1"))
                  (("" (replace -1 1)
                    (("" (hide -1 -3)
                      (("" (inst-cp - "n0x!1" "n0y!1")
                        (("" (lemma "associative_mult")
                          ((""
                            (inst-cp - "n0y!1" "n0x!1" "x!1 / n0x!1")
                            (("" (replace -4 -2 rl)
                              ((""
                                (lemma "div_cancel1")
                                ((""
                                  (inst-cp - "n0x!1" "x!1")
                                  ((""
                                    (replace -2 -4)
                                    ((""
                                      (replace -4 1 rl)
                                      ((""
                                        (hide -2 -4 -6)
                                        ((""
                                          (inst - "n0y!1" "y!1")
                                          ((""
                                            (inst
                                             -
                                             "n0x!1"
                                             "n0y!1"
                                             "y!1/n0y!1")
                                            ((""
                                              (replace -1 -2)
                                              ((""
                                                (replace -2 1 rl)
                                                ((""
                                                  (hide -1 -2)
                                                  ((""
                                                    (inst-cp
                                                     -
                                                     "n0y!1"
                                                     "x!1")
                                                    ((""
                                                      (inst
                                                       -
                                                       "n0x!1"
                                                       "y!1")
                                                      ((""
                                                        (replace -1 1)
                                                        ((""
                                                          (replace
                                                           -2
                                                           1)
                                                          ((""
                                                            (propax)
                                                            nil
                                                            nil))
                                                          nil))
                                                        nil))
                                                      nil))
                                                    nil))
                                                  nil))
                                                nil))
                                              nil))
                                            nil))
                                          nil))
                                        nil))
                                      nil))
                                    nil))
                                  nil))
                                nil))
                              nil))
                            nil))
                          nil))
                        nil))
                      nil))
                    nil))
                  nil))
                nil))
              nil))
            nil))
          nil))
        nil))
      nil))
    nil)
   ((/ const-decl "[numfield, nznum -> numfield]" number_fields nil)
    (+ const-decl "[numfield, numfield -> numfield]" number_fields nil)
    (* const-decl "[numfield, numfield -> numfield]" number_fields nil)
    (numfield nonempty-type-eq-decl nil number_fields nil)
    (nznum nonempty-type-eq-decl nil number_fields nil)
    (/= const-decl "boolean" notequal nil)
    (number_field nonempty-type-from-decl nil number_fields nil)
    (number_field_pred const-decl "[number -> boolean]" number_fields
     nil)
    (boolean nonempty-type-decl nil booleans nil)
    (number nonempty-type-decl nil numbers nil)
    (div_cancel4 formula-decl nil number_fields_bis nil)
    (nznum_times_nznum_is_nznum application-judgement "nznum"
     number_fields_bis nil)
    (distributive formula-decl nil number_fields nil)
    (associative_mult formula-decl nil number_fields nil)
    (div_cancel1 formula-decl nil number_fields_bis nil)
    (commutative_mult formula-decl nil number_fields nil))
   shostak))
 (minus_div1 0
  (minus_div1-1 nil 3280143033
   ("" (skosimp*)
    ((""
      (lemma "add_div"
       ("x" "x!1" "y" "-y!1" "n0x" "n0x!1" "n0y" "n0y!1"))
      (("" (case "FORALL (x,y:numfield): (-x*y) = -(x*y)")
        (("1" (inst-cp - "y!1" "n0x!1")
          (("1" (replace -2 -3)
            (("1" (lemma "minus_add" ("x" "x!1*n0y!1" "y" "y!1*n0x!1"))
              (("1" (replace -1 -4 rl)
                (("1" (replace -4 1 rl)
                  (("1" (hide -4 -1 -3)
                    (("1" (rewrite "minus_add" 1)
                      (("1" (assert)
                        (("1" (rewrite "div_def")
                          (("1"
                            (lemma "div_def"
                             ("y" "-y!1" "n0x" "n0y!1"))
                            (("1" (replace -1 1)
                              (("1"
                                (inst - "y!1" "1/n0y!1")
                                (("1" (assertnil nil))
                                nil))
                              nil))
                            nil))
                          nil))
                        nil))
                      nil))
                    nil))
                  nil))
                nil))
              nil))
            nil))
          nil)
         ("2" (hide-all-but 1)
          (("2" (skosimp*)
            (("2"
              (lemma "both_sides_plus2"
               ("z" "x!2*y!2" "x" "(-x!2 * y!2)" "y" "-(x!2 * y!2)"))
              (("2" (replace -1 1 rl)
                (("2" (rewrite "inverse_add" 1)
                  (("2" (hide -1)
                    (("2" (lemma "inverse_add" ("x" "x!2"))
                      (("2"
                        (lemma "distributive"
                         ("x" "y!2" "y" "x!2" "z" "-x!2"))
                        (("2" (replace -2)
                          (("2" (rewrite "zero_times2" -1)
                            (("2" (hide -2)
                              (("2"
                                (lemma "commutative_mult")
                                (("2"
                                  (inst-cp - "y!2" "x!2")
                                  (("2"
                                    (replace -2)
                                    (("2"
                                      (inst - "y!2" "-x!2")
                                      (("2"
                                        (replace -1)
                                        (("2" (assertnil nil))
                                        nil))
                                      nil))
                                    nil))
                                  nil))
                                nil))
                              nil))
                            nil))
                          nil))
                        nil))
                      nil))
                    nil))
                  nil))
                nil))
              nil))
            nil))
          nil))
        nil))
      nil))
    nil)
   ((- const-decl "[numfield -> numfield]" number_fields nil)
    (numfield nonempty-type-eq-decl nil number_fields nil)
    (nznum nonempty-type-eq-decl nil number_fields nil)
    (/= const-decl "boolean" notequal nil)
    (number_field nonempty-type-from-decl nil number_fields nil)
    (number_field_pred const-decl "[number -> boolean]" number_fields
     nil)
    (boolean nonempty-type-decl nil booleans nil)
    (number nonempty-type-decl nil numbers nil)
    (add_div formula-decl nil number_fields_bis nil)
    (both_sides_plus2 formula-decl nil number_fields_bis nil)
    (inverse_add formula-decl nil number_fields nil)
    (commutative_mult formula-decl nil number_fields nil)
    (zero_times2 formula-decl nil number_fields_bis nil)
    (distributive formula-decl nil number_fields nil)
    (minus_add formula-decl nil number_fields nil)
    (/ const-decl "[numfield, nznum -> numfield]" number_fields nil)
    (minus_nznum_is_nznum application-judgement "nznum"
     number_fields_bis nil)
    (minus_odd_is_odd application-judgement "odd_int" integers nil)
    (div_def formula-decl nil number_fields nil)
    (nznum_div_nznum_is_nznum application-judgement "nznum"
     number_fields_bis nil)
    (* const-decl "[numfield, numfield -> numfield]" number_fields nil)
    (= const-decl "[T, T -> boolean]" equalities nil))
   shostak))
 (minus_div2 0
  (minus_div2-1 nil 3280143932
   ("" (skosimp*)
    (("" (lemma "div_def" ("n0x" "n0x!1"))
      (("" (inst-cp - "x!1")
        (("" (inst-cp - "y!1")
          (("" (inst - "x!1-y!1")
            (("" (replace -1)
              (("" (replace -2)
                (("" (replace -3)
                  (("" (hide-all-but 1)
                    (("" (lemma "commutative_mult" ("y" "1/n0x!1"))
                      (("" (inst-cp - "x!1")
                        (("" (inst-cp - "y!1")
                          (("" (inst - "x!1-y!1")
                            (("" (replace -1)
                              ((""
                                (replace -2)
                                ((""
                                  (replace -3)
                                  ((""
                                    (hide-all-but 1)
                                    ((""
                                      (lemma
                                       "distributive"
                                       ("x"
                                        "1/n0x!1"
                                        "y"
                                        "x!1"
                                        "z"
                                        "-y!1"))
                                      ((""
                                        (lemma "minus_add")
                                        ((""
                                          (inst-cp - "x!1" "y!1")
                                          ((""
                                            (replace -2)
                                            ((""
                                              (replace -3)
                                              ((""
                                                (inst
                                                 -
                                                 "1 / n0x!1 * x!1"
                                                 "1 / n0x!1 * y!1")
                                                ((""
                                                  (replace -1)
                                                  ((""
                                                    (hide-all-but 1)
                                                    ((""
                                                      (assert)
                                                      ((""
                                                        (lemma
                                                         "both_sides_plus2"
                                                         ("z"
                                                          "1 / n0x!1 * y!1"
                                                          "x"
                                                          "-(1 / n0x!1 * y!1)"
                                                          "y"
                                                          "1 / n0x!1 * -y!1"))
                                                        ((""
                                                          (replace
                                                           -1
                                                           1
                                                           rl)
                                                          ((""
                                                            (hide -1)
                                                            ((""
                                                              (rewrite
                                                               "inverse_add")
                                                              ((""
                                                                (lemma
                                                                 "distributive"
                                                                 ("x"
                                                                  "1/n0x!1"
                                                                  "y"
                                                                  "y!1"
                                                                  "z"
                                                                  "-y!1"))
                                                                ((""
                                                                  (replace
                                                                   -1
                                                                   1
                                                                   rl)
                                                                  ((""
                                                                    (rewrite
                                                                     "inverse_add"
                                                                     1)
                                                                    ((""
                                                                      (rewrite
                                                                       "zero_times2"
                                                                       1)
                                                                      nil
                                                                      nil))
                                                                    nil))
                                                                  nil))
                                                                nil))
                                                              nil))
                                                            nil))
                                                          nil))
                                                        nil))
                                                      nil))
                                                    nil))
                                                  nil))
                                                nil))
                                              nil))
                                            nil))
                                          nil))
                                        nil))
                                      nil))
                                    nil))
                                  nil))
                                nil))
                              nil))
                            nil))
                          nil))
                        nil))
                      nil))
                    nil))
                  nil))
                nil))
              nil))
            nil))
          nil))
        nil))
      nil))
    nil)
   ((nznum nonempty-type-eq-decl nil number_fields nil)
    (/= const-decl "boolean" notequal nil)
    (number_field nonempty-type-from-decl nil number_fields nil)
    (number_field_pred const-decl "[number -> boolean]" number_fields
     nil)
    (boolean nonempty-type-decl nil booleans nil)
    (number nonempty-type-decl nil numbers nil)
    (div_def formula-decl nil number_fields nil)
    (minus_nznum_is_nznum application-judgement "nznum"
     number_fields_bis nil)
    (minus_odd_is_odd application-judgement "odd_int" integers nil)
    (commutative_mult formula-decl nil number_fields nil)
    (/ const-decl "[numfield, nznum -> numfield]" number_fields nil)
    (nznum_div_nznum_is_nznum application-judgement "nznum"
     number_fields_bis nil)
    (distributive formula-decl nil number_fields nil)
    (- const-decl "[numfield -> numfield]" number_fields nil)
    (inverse_add formula-decl nil number_fields nil)
    (zero_times2 formula-decl nil number_fields_bis nil)
    (both_sides_plus2 formula-decl nil number_fields_bis nil)
    (* const-decl "[numfield, numfield -> numfield]" number_fields nil)
    (minus_add formula-decl nil number_fields nil)
    (- const-decl "[numfield, numfield -> numfield]" number_fields nil)
    (numfield nonempty-type-eq-decl nil number_fields nil))
   shostak))
 (div_distributes 0
  (div_distributes-1 nil 3280144554
   ("" (skosimp*)
    (("" (lemma "div_def" ("n0x" "n0z!1"))
      (("" (inst-cp - "x!1")
        (("" (inst-cp - "y!1")
          (("" (inst - "x!1+y!1")
            (("" (replace -1)
              (("" (replace -2)
                (("" (replace -3)
                  (("" (hide-all-but 1)
                    (("" (lemma "commutative_mult" ("y" "1/n0z!1"))
                      (("" (inst-cp - "x!1")
                        (("" (inst-cp - "y!1")
                          (("" (inst - "x!1+y!1")
                            (("" (replace -1)
                              ((""
                                (replace -2)
                                ((""
                                  (replace -3)
                                  ((""
                                    (hide-all-but 1)
                                    ((""
                                      (lemma
                                       "distributive"
                                       ("x"
                                        "1/n0z!1"
                                        "y"
                                        "x!1"
                                        "z"
                                        "y!1"))
                                      (("" (assertnil nil))
                                      nil))
                                    nil))
                                  nil))
                                nil))
                              nil))
                            nil))
                          nil))
                        nil))
                      nil))
                    nil))
                  nil))
                nil))
              nil))
            nil))
          nil))
        nil))
      nil))
    nil)
   ((nznum nonempty-type-eq-decl nil number_fields nil)
    (/= const-decl "boolean" notequal nil)
    (number_field nonempty-type-from-decl nil number_fields nil)
    (number_field_pred const-decl "[number -> boolean]" number_fields
     nil)
    (boolean nonempty-type-decl nil booleans nil)
    (number nonempty-type-decl nil numbers nil)
    (div_def formula-decl nil number_fields nil)
    (/ const-decl "[numfield, nznum -> numfield]" number_fields nil)
    (commutative_mult formula-decl nil number_fields nil)
    (nznum_div_nznum_is_nznum application-judgement "nznum"
     number_fields_bis nil)
    (distributive formula-decl nil number_fields nil)
    (+ const-decl "[numfield, numfield -> numfield]" number_fields nil)
    (numfield nonempty-type-eq-decl nil number_fields nil))
   shostak))
 (div_distributes_minus 0
  (div_distributes_minus-1 nil 3280137015
   ("" (skosimp*)
    (("" (lemma "minus_div2" ("x" "x!1" "y" "y!1" "n0x" "n0z!1"))
      (("" (propax) nil nil)) nil))
    nil)
   ((nznum nonempty-type-eq-decl nil number_fields nil)
    (/= const-decl "boolean" notequal nil)
    (number_field nonempty-type-from-decl nil number_fields nil)
    (number_field_pred const-decl "[number -> boolean]" number_fields
     nil)
    (boolean nonempty-type-decl nil booleans nil)
    (number nonempty-type-decl nil numbers nil)
    (minus_div2 formula-decl nil number_fields_bis nil))
   shostak))
 (div_div1 0
  (div_div1-1 nil 3280144769
   ("" (skosimp*)
    ((""
      (lemma "nznum_div_nznum_is_nznum" ("nzx" "n0y!1" "nzy" "n0z!1"))
      ((""
        (lemma "cross_mult"
         ("x" "x!1" "n0x" "n0y!1 / n0z!1" "y" "x!1 * n0z!1" "n0y"
          "n0y!1"))
        (("" (replace -1 1)
          (("" (hide -1)
            (("" (lemma "div_cancel1" ("x" "n0y!1" "n0z" "n0z!1"))
              ((""
                (lemma "associative_mult"
                 ("x" "x!1" "y" "n0z!1" "z" "n0y!1/n0z!1"))
                (("" (replace -2 -1) (("" (propax) nil nil)) nil))
                nil))
              nil))
            nil))
          nil))
        nil))
      nil))
    nil)
   ((nznum nonempty-type-eq-decl nil number_fields nil)
    (/= const-decl "boolean" notequal nil)
    (number_field nonempty-type-from-decl nil number_fields nil)
    (number_field_pred const-decl "[number -> boolean]" number_fields
     nil)
    (boolean nonempty-type-decl nil booleans nil)
    (number nonempty-type-decl nil numbers nil)
    (nznum_div_nznum_is_nznum judgement-tcc nil number_fields_bis nil)
    (div_cancel1 formula-decl nil number_fields_bis nil)
    (associative_mult formula-decl nil number_fields nil)
    (nznum_div_nznum_is_nznum application-judgement "nznum"
     number_fields_bis nil)
    (cross_mult formula-decl nil number_fields_bis nil)
    (numfield nonempty-type-eq-decl nil number_fields nil)
    (/ const-decl "[numfield, nznum -> numfield]" number_fields nil)
    (* const-decl "[numfield, numfield -> numfield]" number_fields
       nil))
   shostak))
 (div_div2 0
  (div_div2-1 nil 3280145858
   ("" (skosimp*)
    ((""
      (lemma "nznum_times_nznum_is_nznum"
       ("nzx" "n0y!1" "nzy" "n0z!1"))
      ((""
        (lemma "cross_mult"
         ("x" "x!1 / n0y!1" "n0x" "n0z!1" "y" "x!1" "n0y"
          "n0y!1 * n0z!1"))
        (("" (replace -1 1)
          (("" (hide -1)
            (("" (rewrite "associative_mult")
              (("" (lemma "div_cancel2" ("x" "x!1" "n0z" "n0y!1"))
                (("" (replace -1) (("" (propax) nil nil)) nil)) nil))
              nil))
            nil))
          nil))
        nil))
      nil))
    nil)
   ((nznum nonempty-type-eq-decl nil number_fields nil)
    (/= const-decl "boolean" notequal nil)
    (number_field nonempty-type-from-decl nil number_fields nil)
    (number_field_pred const-decl "[number -> boolean]" number_fields
     nil)
    (boolean nonempty-type-decl nil booleans nil)
    (number nonempty-type-decl nil numbers nil)
    (nznum_times_nznum_is_nznum judgement-tcc nil number_fields_bis
     nil)
    (associative_mult formula-decl nil number_fields nil)
    (div_cancel2 formula-decl nil number_fields_bis nil)
    (nznum_times_nznum_is_nznum application-judgement "nznum"
     number_fields_bis nil)
    (cross_mult formula-decl nil number_fields_bis nil)
    (numfield nonempty-type-eq-decl nil number_fields nil)
    (* const-decl "[numfield, numfield -> numfield]" number_fields nil)
    (/ const-decl "[numfield, nznum -> numfield]" number_fields nil))
   shostak))
 (idem_add_is_zero 0
  (idem_add_is_zero-1 nil 3280137061
   ("" (skosimp*)
    (("" (grind)
      (("" (case "x!1/=0")
        (("1" (lemma "both_sides_times1" ("n0z" "x!1" "x" "2" "y" "1"))
          (("1" (assert) (("1" (rewrite "identity_mult" 1) nil nil))
            nil))
          nil)
         ("2" (assertnil nil))
        nil))
      nil))
    nil)
   ((nznum nonempty-type-eq-decl nil number_fields nil)
    (both_sides_times1 formula-decl nil number_fields_bis nil)
    (numfield nonempty-type-eq-decl nil number_fields nil)
    (identity_mult formula-decl nil number_fields nil)
    (number nonempty-type-decl nil numbers nil)
    (boolean nonempty-type-decl nil booleans nil)
    (/= const-decl "boolean" notequal nil)
    (number_field_pred const-decl "[number -> boolean]" number_fields
     nil)
    (number_field nonempty-type-from-decl nil number_fields nil))
   shostak))
 (nonzero_times1 0
  (nonzero_times1-1 nil 3280295656
   ("" (skosimp*)
    (("" (lemma "zero_times3" ("x" "n0x!1" "y" "y!1"))
      (("" (assertnil nil)) nil))
    nil)
   ((nznum nonempty-type-eq-decl nil number_fields nil)
    (/= const-decl "boolean" notequal nil)
    (number_field nonempty-type-from-decl nil number_fields nil)
    (number_field_pred const-decl "[number -> boolean]" number_fields
     nil)
    (boolean nonempty-type-decl nil booleans nil)
    (number nonempty-type-decl nil numbers nil)
    (zero_times3 formula-decl nil number_fields_bis nil))
   shostak))
 (nonzero_times2 0
  (nonzero_times2-1 nil 3280295688
   ("" (skosimp*)
    (("" (lemma "zero_times3" ("x" "x!1" "y" "n0y!1"))
      (("" (assertnil nil)) nil))
    nil)
   ((nznum nonempty-type-eq-decl nil number_fields nil)
    (/= const-decl "boolean" notequal nil)
    (number_field nonempty-type-from-decl nil number_fields nil)
    (number_field_pred const-decl "[number -> boolean]" number_fields
     nil)
    (boolean nonempty-type-decl nil booleans nil)
    (number nonempty-type-decl nil numbers nil)
    (zero_times3 formula-decl nil number_fields_bis nil))
   shostak))
 (nonzero_times3 0
  (nonzero_times3-1 nil 3280295710
   ("" (skosimp*)
    (("" (lemma "zero_times3" ("x" "n0x!1" "y" "n0y!1"))
      (("" (assertnil nil)) nil))
    nil)
   ((nznum nonempty-type-eq-decl nil number_fields nil)
    (/= const-decl "boolean" notequal nil)
    (number_field nonempty-type-from-decl nil number_fields nil)
    (number_field_pred const-decl "[number -> boolean]" number_fields
     nil)
    (boolean nonempty-type-decl nil booleans nil)
    (number nonempty-type-decl nil numbers nil)
    (zero_times3 formula-decl nil number_fields_bis nil)
    (nznum_times_nznum_is_nznum application-judgement "nznum"
     number_fields_bis nil))
   shostak))
 (idem_mult 0
  (idem_mult-1 nil 3280295888
   ("" (skosimp*)
    (("" (split)
      (("1" (flatten)
        (("1"
          (lemma "both_sides_minus1"
           ("z" "x!1" "x" "x!1*x!1" "y" "x!1"))
          (("1" (replace -1 -2 rl)
            (("1" (hide -1)
              (("1" (lemma "inverse_add" ("x" "x!1"))
                (("1" (lemma "minus_add" ("x" "x!1" "y" "x!1"))
                  (("1" (replace -2)
                    (("1" (replace -1)
                      (("1" (hide -1 -2)
                        (("1"
                          (lemma "distributive"
                           ("x" "x!1" "y" "x!1" "z" "-1"))
                          (("1"
                            (case-replace
                             "(x!1 * x!1) + (x!1 * -1) = x!1 * x!1 - x!1")
                            (("1" (replace -3)
                              (("1"
                                (hide -3 -1)
                                (("1"
                                  (lemma
                                   "zero_times3"
                                   ("x" "x!1" "y" "x!1 + -1"))
                                  (("1"
                                    (assert)
                                    (("1"
                                      (hide -2 1)
                                      (("1"
                                        (lemma
                                         "both_sides_minus1"
                                         ("z" "1" "x" "x!1" "y" "1"))
                                        (("1"
                                          (replace -1 1 rl)
                                          (("1"
                                            (hide -1)
                                            (("1"
                                              (replace -1 1)
                                              (("1"
                                                (hide -1)
                                                (("1" (grind) nil nil))
                                                nil))
                                              nil))
                                            nil))
                                          nil))
                                        nil))
                                      nil))
                                    nil))
                                  nil))
                                nil))
                              nil)
                             ("2" (hide-all-but 1)
                              (("2"
                                (assert)
                                (("2"
                                  (rewrite "commutative_mult")
                                  (("2" (grind) nil nil))
                                  nil))
                                nil))
                              nil))
                            nil))
                          nil))
                        nil))
                      nil))
                    nil))
                  nil))
                nil))
              nil))
            nil))
          nil))
        nil)
       ("2" (grind) nil nil))
      nil))
    nil)
   ((* const-decl "[numfield, numfield -> numfield]" number_fields nil)
    (numfield nonempty-type-eq-decl nil number_fields nil)
    (number_field nonempty-type-from-decl nil number_fields nil)
    (number_field_pred const-decl "[number -> boolean]" number_fields
     nil)
    (boolean nonempty-type-decl nil booleans nil)
    (number nonempty-type-decl nil numbers nil)
    (both_sides_minus1 formula-decl nil number_fields_bis nil)
    (minus_add formula-decl nil number_fields nil)
    (distributive formula-decl nil number_fields nil)
    (- const-decl "[numfield -> numfield]" number_fields nil)
    (commutative_mult formula-decl nil number_fields nil)
    (zero_times3 formula-decl nil number_fields_bis nil)
    (odd_minus_odd_is_even application-judgement "even_int" integers
     nil)
    (= const-decl "[T, T -> boolean]" equalities nil)
    (+ const-decl "[numfield, numfield -> numfield]" number_fields nil)
    (- const-decl "[numfield, numfield -> numfield]" number_fields nil)
    (minus_odd_is_odd application-judgement "odd_int" integers nil)
    (minus_nznum_is_nznum application-judgement "nznum"
     number_fields_bis nil)
    (inverse_add formula-decl nil number_fields nil)
    (odd_times_odd_is_odd application-judgement "odd_int" integers nil)
    (posint_times_posint_is_posint application-judgement "posint"
     integers nil)
    (nznum_times_nznum_is_nznum application-judgement "nznum"
     number_fields_bis nil)
    (mult_divides1 application-judgement "(divides(n))" divides nil)
    (even_times_int_is_even application-judgement "even_int" integers
     nil)
    (nnint_times_nnint_is_nnint application-judgement "nonneg_int"
     integers nil))
   shostak))
 (number_fields_negative_times 0
  (number_fields_negative_times-1 nil 3294692619
   ("" (skosimp)
    ((""
      (lemma "number_fields_negate_is_right_inverse" ("x" "x!1*y!1"))
      (("" (lemma "number_fields_negate_is_right_inverse" ("x" "x!1"))
        (("" (lemma "distributive" ("x" "y!1" "y" "x!1" "z" "-x!1"))
          (("" (replace -2 -1)
            (("" (lemma "commutative_mult" ("x" "y!1" "y" "x!1"))
              (("" (lemma "commutative_mult" ("x" "y!1" "y" "-x!1"))
                (("" (replace -1 -3)
                  (("" (replace -2 -3)
                    (("" (rewrite "zero_times2")
                      (("" (replace -3 -5) (("" (assertnil nil))
                        nil))
                      nil))
                    nil))
                  nil))
                nil))
              nil))
            nil))
          nil))
        nil))
      nil))
    nil)
   ((* const-decl "[numfield, numfield -> numfield]" number_fields nil)
    (numfield nonempty-type-eq-decl nil number_fields nil)
    (number_field nonempty-type-from-decl nil number_fields nil)
    (number_field_pred const-decl "[number -> boolean]" number_fields
     nil)
    (boolean nonempty-type-decl nil booleans nil)
    (number nonempty-type-decl nil numbers nil)
    (number_fields_negate_is_right_inverse formula-decl nil
     number_fields_bis nil)
    (- const-decl "[numfield -> numfield]" number_fields nil)
    (distributive formula-decl nil number_fields nil)
    (commutative_mult formula-decl nil number_fields nil)
    (zero_times2 formula-decl nil number_fields_bis nil))
   shostak))
 (number_fields_times_negative 0
  (number_fields_times_negative-1 nil 3294693138
   ("" (skosimp)
    ((""
      (lemma "number_fields_negate_is_right_inverse" ("x" "x!1 * y!1"))
      (("" (lemma "number_fields_negate_is_right_inverse" ("x" "y!1"))
        (("" (lemma "distributive" ("x" "x!1" "y" "y!1" "z" "-y!1"))
          (("" (replace -2 -1)
            (("" (rewrite "zero_times2")
              (("" (replace -1 -3)
                (("" (hide -1 -2) (("" (assertnil nil)) nil)) nil))
              nil))
            nil))
          nil))
        nil))
      nil))
    nil)
   ((* const-decl "[numfield, numfield -> numfield]" number_fields nil)
    (numfield nonempty-type-eq-decl nil number_fields nil)
    (number_field nonempty-type-from-decl nil number_fields nil)
    (number_field_pred const-decl "[number -> boolean]" number_fields
     nil)
    (boolean nonempty-type-decl nil booleans nil)
    (number nonempty-type-decl nil numbers nil)
    (number_fields_negate_is_right_inverse formula-decl nil
     number_fields_bis nil)
    (- const-decl "[numfield -> numfield]" number_fields nil)
    (distributive formula-decl nil number_fields nil)
    (zero_times2 formula-decl nil number_fields_bis nil))
   shostak))
 (number_fields_neg1_times 0
  (number_fields_neg1_times-1 nil 3596478685
   ("" (skeep)
    (("" (rewrite "number_fields_negative_times")
      (("" (rewrite "identity_mult"nil nil)) nil))
    nil)
   ((number_fields_negative_times formula-decl nil number_fields_bis
     nil)
    (number nonempty-type-decl nil numbers nil)
    (boolean nonempty-type-decl nil booleans nil)
    (number_field_pred const-decl "[number -> boolean]" number_fields
     nil)
    (number_field nonempty-type-from-decl nil number_fields nil)
    (minus_nznum_is_nznum application-judgement "nznum"
     number_fields_bis nil)
    (minus_odd_is_odd application-judgement "odd_int" integers nil)
    (identity_mult formula-decl nil number_fields nil)
    (numfield nonempty-type-eq-decl nil number_fields nil))
   shostak)))


Messung V0.5 in Prozent
C=100 H=100 G=100

¤ Dauer der Verarbeitung: 0.48 Sekunden  (vorverarbeitet am  2026-05-03) ¤

*© Formatika GbR, Deutschland






Wurzel

Suchen

Beweissystem der NASA

Beweissystem Isabelle

NIST Cobol Testsuite

Cephes Mathematical Library

Wiener Entwicklungsmethode

Haftungshinweis

Die Informationen auf dieser Webseite wurden nach bestem Wissen sorgfältig zusammengestellt. Es wird jedoch weder Vollständigkeit, noch Richtigkeit, noch Qualität der bereit gestellten Informationen zugesichert.

Bemerkung:

Die farbliche Syntaxdarstellung und die Messung sind noch experimentell.






                                                                                                                                                                                                                                                                                                                                                                                                     


Neuigkeiten

     Aktuelles
     Motto des Tages

Software

     Produkte
     Quellcodebibliothek

Aktivitäten

     Artikel über Sicherheit
     Anleitung zur Aktivierung von SSL

Muße

     Gedichte
     Musik
     Bilder

Jenseits des Üblichen ....

Besucherstatistik

Besucherstatistik

Monitoring

Montastic status badge