products/sources/formale sprachen/Cobol/Test-Suite/SQL M image not shown  

Quellcode-Bibliothek

© Kompilation durch diese Firma

[Weder Korrektheit noch Funktionsfähigkeit der Software werden zugesichert.]

Datei: ast_def.prf   Sprache: Lisp

Original von: PVS©

(ast_def
 (A_empty 0
  (A_empty-1 nil 3457694307 ("" (postpone) nil nilnil shostak))
 (IMP_generalized_measure_def_TCC1 0
  (IMP_generalized_measure_def_TCC1-1 nil 3458454898
   ("" (rewrite "A_empty"nil nil)
   ((A_empty formula-decl nil ast_def nil)) nil))
 (A_difference_union 0
  (A_difference_union-1 nil 3457883471
   (""
    (case "forall (a:(A),E:disjoint_indexed_measurable,n:nat): finite_disjoint_union?(A)(difference(a, IUnion(n,E)))")
    (("1" (skosimp)
      (("1" (expand "finite_disjoint_union?" -3)
        (("1" (skosimp)
          (("1" (case-replace "n!1=0")
            (("1" (assert)
              (("1" (case-replace "b!1=emptyset")
                (("1" (rewrite "difference_emptyset1")
                  (("1" (expand "finite_disjoint_union?")
                    (("1"
                      (inst +
                       "lambda (i:nat): if i=0 then a!1 else emptyset endif"
                       "1")
                      (("1" (hide -1 -2 -3 -5 -6 -7)
                        (("1" (split)
                          (("1" (expand "disjoint?")
                            (("1" (skosimp)
                              (("1"
                                (expand "disjoint?")
                                (("1"
                                  (expand "intersection")
                                  (("1"
                                    (expand "empty?")
                                    (("1"
                                      (expand "member")
                                      (("1"
                                        (skosimp)
                                        (("1"
                                          (expand "emptyset")
                                          (("1"
                                            (prop)
                                            (("1" (assertnil nil))
                                            nil))
                                          nil))
                                        nil))
                                      nil))
                                    nil))
                                  nil))
                                nil))
                              nil))
                            nil)
                           ("2" (apply-extensionality :hide? t)
                            (("2" (expand "IUnion")
                              (("2"
                                (expand "emptyset")
                                (("2"
                                  (case-replace "a!1(x!1)")
                                  (("1" (inst + "0"nil nil)
                                   ("2" (assertnil nil))
                                  nil))
                                nil))
                              nil))
                            nil)
                           ("3" (skosimp)
                            (("3" (case-replace "i!1=0")
                              (("1" (assertnil nil)
                               ("2"
                                (assert)
                                (("2"
                                  (expand "empty?")
                                  (("2"
                                    (expand "member")
                                    (("2"
                                      (expand "emptyset")
                                      (("2" (propax) nil nil))
                                      nil))
                                    nil))
                                  nil))
                                nil))
                              nil))
                            nil))
                          nil))
                        nil))
                      nil))
                    nil))
                  nil)
                 ("2" (replace -5)
                  (("2" (apply-extensionality :hide? t)
                    (("2" (expand "emptyset")
                      (("2" (expand "IUnion")
                        (("2" (skosimp)
                          (("2" (inst -7 "i!1")
                            (("2" (expand "empty?")
                              (("2"
                                (inst -7 "x!1")
                                (("2" (assertnil nil))
                                nil))
                              nil))
                            nil))
                          nil))
                        nil))
                      nil))
                    nil))
                  nil))
                nil))
              nil)
             ("2" (case "n!1>0")
              (("1" (hide 1)
                (("1" (case "b!1=IUnion(n!1-1,E!1)")
                  (("1" (case "FORALL (i:nat): A(E!1(i))")
                    (("1" (hide -7 -8)
                      (("1" (inst -4 "a!1" "E!1" "n!1-1")
                        (("1" (assertnil nil) ("2" (assertnil nil)
                         ("3" (expand "disjoint_indexed_measurable?")
                          (("3" (assertnil nil)) nil))
                        nil))
                      nil)
                     ("2" (skosimp)
                      (("2" (inst -7 "i!1")
                        (("2" (flatten)
                          (("2" (case "i!1)
                            (("1" (assertnil nil)
                             ("2" (assert)
                              (("2"
                                (rewrite "emptyset_is_empty?")
                                (("2"
                                  (replace -7)
                                  (("2" (rewrite "A_empty"nil nil))
                                  nil))
                                nil))
                              nil))
                            nil))
                          nil))
                        nil))
                      nil))
                    nil)
                   ("2" (hide -2 2)
                    (("2" (apply-extensionality :hide? t)
                      (("2" (case-replace "b!1(x!1)")
                        (("1" (replace -5 -1)
                          (("1" (expand "IUnion")
                            (("1" (skosimp)
                              (("1"
                                (inst -6 "i!1")
                                (("1"
                                  (expand "image")
                                  (("1"
                                    (expand "Union")
                                    (("1"
                                      (inst + "E!1(i!1)")
                                      (("1"
                                        (flatten)
                                        (("1"
                                          (case-replace "i!1 < n!1")
                                          (("1"
                                            (inst + "i!1")
                                            (("1" (assertnil nil))
                                            nil)
                                           ("2"
                                            (assert)
                                            (("2"
                                              (rewrite
                                               "emptyset_is_empty?")
                                              (("2"
                                                (replace -6)
                                                (("2"
                                                  (expand "emptyset")
                                                  (("2"
                                                    (propax)
                                                    nil
                                                    nil))
                                                  nil))
                                                nil))
                                              nil))
                                            nil))
                                          nil))
                                        nil))
                                      nil))
                                    nil))
                                  nil))
                                nil))
                              nil))
                            nil))
                          nil)
                         ("2" (assert)
                          (("2" (replace -5)
                            (("2" (expand "IUnion")
                              (("2"
                                (expand "image")
                                (("2"
                                  (expand "Union")
                                  (("2"
                                    (skosimp)
                                    (("2"
                                      (typepred "a!2")
                                      (("2"
                                        (skosimp)
                                        (("2"
                                          (inst + "x!2")
                                          (("2" (assertnil nil))
                                          nil))
                                        nil))
                                      nil))
                                    nil))
                                  nil))
                                nil))
                              nil))
                            nil))
                          nil))
                        nil))
                      nil))
                    nil)
                   ("3" (assertnil nil))
                  nil))
                nil)
               ("2" (assertnil nil))
              nil))
            nil))
          nil))
        nil))
      nil)
     ("2" (hide 2)
      (("2" (induct "n")
        (("1" (skosimp)
          (("1" (rewrite "IUnion_0_def")
            (("1" (lemma "A_difference" ("a" "a!1" "b" "E!1(0)"))
              (("1" (propax) nil nil)) nil))
            nil))
          nil)
         ("2" (skosimp)
          (("2" (skosimp)
            (("2" (rewrite "IUnion_n_def")
              (("2" (rewrite "union_commutative" 1)
                (("2" (rewrite "difference_difference1" 1 :dir rl)
                  (("2"
                    (lemma "A_difference" ("a" "a!1" "b" "E!1(1+j!1)"))
                    (("2" (expand "finite_disjoint_union?" -1)
                      (("2" (skosimp)
                        (("2"
                          (case "forall (a,b,c:set[T]): difference(union(a,b),c)=union(difference(a,c),difference(b,c))")
                          (("1" (case-replace "n!1=0")
                            (("1" (assert)
                              (("1"
                                (case-replace "IUnion(E!2)=emptyset")
                                (("1"
                                  (replace -5)
                                  (("1"
                                    (rewrite "difference_emptyset2")
                                    (("1"
                                      (hide-all-but 1)
                                      (("1"
                                        (expand
                                         "finite_disjoint_union?")
                                        (("1"
                                          (inst
                                           +
                                           "lambda (i:nat): emptyset"
                                           "0")
                                          (("1"
                                            (split)
                                            (("1" (grind) nil nil)
                                             ("2"
                                              (apply-extensionality
                                               :hide?
                                               t)
                                              (("2"
                                                (expand "emptyset")
                                                (("2"
                                                  (expand "IUnion")
                                                  (("2"
                                                    (propax)
                                                    nil
                                                    nil))
                                                  nil))
                                                nil))
                                              nil)
                                             ("3"
                                              (expand "member")
                                              (("3"
                                                (expand "empty?")
                                                (("3"
                                                  (expand "member")
                                                  (("3"
                                                    (expand "emptyset")
                                                    (("3"
                                                      (propax)
                                                      nil
                                                      nil))
                                                    nil))
                                                  nil))
                                                nil))
                                              nil))
                                            nil))
                                          nil))
                                        nil))
                                      nil))
                                    nil))
                                  nil)
                                 ("2"
                                  (hide-all-but (1 -5))
                                  (("2"
                                    (apply-extensionality :hide? t)
                                    (("2"
                                      (expand "emptyset")
                                      (("2"
                                        (expand "IUnion")
                                        (("2"
                                          (skosimp)
                                          (("2"
                                            (inst - "i!1")
                                            (("2"
                                              (expand "empty?")
                                              (("2"
                                                (inst - "x!1")
                                                (("2"
                                                  (assert)
                                                  nil
                                                  nil))
                                                nil))
                                              nil))
                                            nil))
                                          nil))
                                        nil))
                                      nil))
                                    nil))
                                  nil))
                                nil))
                              nil)
                             ("2" (case "n!1>0")
                              (("1"
                                (hide 1)
                                (("1"
                                  (case-replace
                                   "IUnion(E!2)=IUnion(n!1-1,E!2)")
                                  (("1"
                                    (replace -5)
                                    (("1"
                                      (hide -1 -5)
                                      (("1"
                                        (case
                                         "forall (n:nat): finite_disjoint_union?(A)
                            (difference(IUnion(n, E!2),
                                        IUnion(j!1, E!1)))")
                                        (("1"
                                          (inst - "n!1-1")
                                          (("1" (assertnil nil))
                                          nil)
                                         ("2"
                                          (hide 2)
                                          (("2"
                                            (induct "n")
                                            (("1"
                                              (rewrite "IUnion_0_def")
                                              (("1"
                                                (inst
                                                 -5
                                                 "E!2(0)"
                                                 "E!1")
                                                (("1"
                                                  (assert)
                                                  (("1"
                                                    (inst -4 "0")
                                                    (("1"
                                                      (flatten)
                                                      (("1"
                                                        (assert)
                                                        nil
                                                        nil))
                                                      nil))
                                                    nil))
                                                  nil))
                                                nil))
                                              nil)
                                             ("2"
                                              (skosimp)
                                              (("2"
                                                (rewrite
                                                 "IUnion_n_def")
                                                (("2"
                                                  (inst
                                                   -
                                                   "IUnion(j!2, E!2)"
                                                   "E!2(1 + j!2)"
                                                   "IUnion(j!1, E!1)")
                                                  (("2"
                                                    (replace -3)
                                                    (("2"
                                                      (inst
                                                       -6
                                                       "E!2(1 + j!2)"
                                                       "E!1")
                                                      (("1"
                                                        (hide -3 -5 -2)
                                                        (("1"
                                                          (name-replace
                                                           "AA"
                                                           "difference(IUnion(j!2, E!2),
                                              IUnion(j!1, E!1))")
                                                          (("1"
                                                            (name-replace
                                                             "BB"
                                                             "difference(E!2(1 + j!2), IUnion(j!1, E!1))")
                                                            (("1"
                                                              (case
                                                               "disjoint?(AA,BB)")
                                                              (("1"
                                                                (expand
                                                                 "finite_disjoint_union?")
                                                                (("1"
                                                                  (skosimp*)
                                                                  (("1"
                                                                    (inst
                                                                     +
                                                                     "lambda (i:nat): if i
                                                                     "n!2+n!3")
                                                                    (("1"
                                                                      (split)
                                                                      (("1"
                                                                        (expand
                                                                         "disjoint?"
                                                                         1)
                                                                        (("1"
                                                                          (skosimp)
                                                                          (("1"
                                                                            (case-replace
                                                                             "i!1 < n!2")
                                                                            (("1"
                                                                              (case-replace
                                                                               "j!3 < n!2")
                                                                              (("1"
                                                                                (expand
                                                                                 "disjoint?"
                                                                                 -4)
                                                                                (("1"
                                                                                  (inst
                                                                                   -
                                                                                   "i!1"
                                                                                   "j!3")
                                                                                  (("1"
                                                                                    (assert)
                                                                                    nil
                                                                                    nil))
                                                                                  nil))
                                                                                nil)
                                                                               ("2"
                                                                                (assert)
                                                                                (("2"
                                                                                  (expand
                                                                                   "disjoint?"
                                                                                   (-2
                                                                                    3))
                                                                                  (("2"
                                                                                    (expand
                                                                                     "intersection")
                                                                                    (("2"
                                                                                      (expand
                                                                                       "empty?"
                                                                                       (-2
                                                                                        3))
                                                                                      (("2"
                                                                                        (skosimp)
                                                                                        (("2"
                                                                                          (expand
                                                                                           "member")
                                                                                          (("2"
                                                                                            (flatten)
                                                                                            (("2"
                                                                                              (inst
                                                                                               -
                                                                                               "x!1")
                                                                                              (("2"
                                                                                                (replace
                                                                                                 -5)
                                                                                                (("2"
                                                                                                  (split)
                                                                                                  (("1"
                                                                                                    (expand
                                                                                                     "IUnion"
                                                                                                     1)
                                                                                                    (("1"
                                                                                                      (inst
                                                                                                       +
                                                                                                       "i!1")
                                                                                                      nil
                                                                                                      nil))
                                                                                                    nil)
                                                                                                   ("2"
                                                                                                    (replace
                                                                                                     -9)
                                                                                                    (("2"
                                                                                                      (expand
                                                                                                       "IUnion")
                                                                                                      (("2"
                                                                                                        (inst
                                                                                                         +
                                                                                                         "j!3-n!2")
                                                                                                        nil
                                                                                                        nil))
                                                                                                      nil))
                                                                                                    nil))
                                                                                                  nil))
                                                                                                nil))
                                                                                              nil))
                                                                                            nil))
                                                                                          nil))
                                                                                        nil))
                                                                                      nil))
                                                                                    nil))
                                                                                  nil))
                                                                                nil))
                                                                              nil)
                                                                             ("2"
                                                                              (assert)
                                                                              (("2"
                                                                                (case-replace
                                                                                 "j!3 < n!2")
                                                                                (("1"
                                                                                  (expand
                                                                                   "disjoint?"
                                                                                   (3
                                                                                    -2))
                                                                                  (("1"
                                                                                    (expand
                                                                                     "intersection")
                                                                                    (("1"
                                                                                      (expand
                                                                                       "empty?"
                                                                                       (3
                                                                                        -2))
                                                                                      (("1"
                                                                                        (expand
                                                                                         "member")
                                                                                        (("1"
                                                                                          (skosimp)
                                                                                          (("1"
                                                                                            (inst
                                                                                             -4
                                                                                             "x!1")
                                                                                            (("1"
                                                                                              (split
                                                                                               3)
                                                                                              (("1"
                                                                                                (replace
                                                                                                 -5)
                                                                                                (("1"
                                                                                                  (expand
                                                                                                   "IUnion")
                                                                                                  (("1"
                                                                                                    (inst
                                                                                                     +
                                                                                                     "j!3")
                                                                                                    nil
                                                                                                    nil))
                                                                                                  nil))
                                                                                                nil)
                                                                                               ("2"
                                                                                                (replace
                                                                                                 -9)
                                                                                                (("2"
                                                                                                  (expand
                                                                                                   "IUnion")
                                                                                                  (("2"
                                                                                                    (inst
                                                                                                     +
                                                                                                     "i!1-n!2")
                                                                                                    nil
                                                                                                    nil))
                                                                                                  nil))
                                                                                                nil))
                                                                                              nil))
                                                                                            nil))
                                                                                          nil))
                                                                                        nil))
                                                                                      nil))
                                                                                    nil))
                                                                                  nil)
                                                                                 ("2"
                                                                                  (assert)
                                                                                  (("2"
                                                                                    (expand
                                                                                     "disjoint?"
                                                                                     -6)
                                                                                    (("2"
                                                                                      (inst
                                                                                       -6
                                                                                       "i!1 - n!2"
                                                                                       "j!3 - n!2")
                                                                                      (("2"
                                                                                        (assert)
                                                                                        nil
                                                                                        nil))
                                                                                      nil))
                                                                                    nil))
                                                                                  nil))
                                                                                nil))
                                                                              nil))
                                                                            nil))
                                                                          nil))
                                                                        nil)
                                                                       ("2"
                                                                        (apply-extensionality
                                                                         :hide?
                                                                         t)
                                                                        (("1"
                                                                          (expand
                                                                           "union")
                                                                          (("1"
                                                                            (expand
                                                                             "disjoint?"
                                                                             -1)
                                                                            (("1"
                                                                              (expand
                                                                               "intersection")
                                                                              (("1"
                                                                                (expand
                                                                                 "empty?"
                                                                                 -1)
                                                                                (("1"
                                                                                  (expand
                                                                                   "member")
                                                                                  (("1"
                                                                                    (inst
                                                                                     -
                                                                                     "x!1")
                                                                                    (("1"
                                                                                      (case-replace
                                                                                       "AA(x!1)")
                                                                                      (("1"
                                                                                        (replace
                                                                                         -3
                                                                                         -1)
                                                                                        (("1"
                                                                                          (expand
                                                                                           "IUnion"
                                                                                           (-1
                                                                                            1))
                                                                                          (("1"
                                                                                            (skosimp)
                                                                                            (("1"
                                                                                              (inst
                                                                                               -4
                                                                                               "i!1")
                                                                                              (("1"
                                                                                                (inst
                                                                                                 +
                                                                                                 "i!1")
                                                                                                (("1"
                                                                                                  (case-replace
                                                                                                   "i!1 < n!2")
                                                                                                  (("1"
                                                                                                    (assert)
                                                                                                    (("1"
                                                                                                      (expand
                                                                                                       "empty?")
                                                                                                      (("1"
                                                                                                        (inst
                                                                                                         -4
                                                                                                         "x!1")
                                                                                                        (("1"
                                                                                                          (assert)
                                                                                                          nil
                                                                                                          nil))
                                                                                                        nil))
                                                                                                      nil))
                                                                                                    nil))
                                                                                                  nil))
                                                                                                nil))
                                                                                              nil))
                                                                                            nil))
                                                                                          nil))
                                                                                        nil)
                                                                                       ("2"
                                                                                        (assert)
                                                                                        (("2"
                                                                                          (case-replace
                                                                                           "BB(x!1)")
                                                                                          (("1"
                                                                                            (replace
                                                                                             -7)
                                                                                            (("1"
                                                                                              (expand
                                                                                               "IUnion"
                                                                                               (-1
                                                                                                2))
                                                                                              (("1"
                                                                                                (skosimp)
                                                                                                (("1"
                                                                                                  (inst
                                                                                                   +
                                                                                                   "n!2+i!1")
                                                                                                  (("1"
                                                                                                    (assert)
                                                                                                    nil
                                                                                                    nil))
                                                                                                  nil))
                                                                                                nil))
                                                                                              nil))
                                                                                            nil)
                                                                                           ("2"
                                                                                            (assert)
                                                                                            (("2"
                                                                                              (hide
                                                                                               3)
                                                                                              (("2"
                                                                                                (replace
                                                                                                 -3)
                                                                                                (("2"
                                                                                                  (replace
                                                                                                   -7)
                                                                                                  (("2"
                                                                                                    (expand
                                                                                                     "IUnion"
                                                                                                     (1
                                                                                                      2
                                                                                                      -1))
                                                                                                    (("2"
                                                                                                      (skosimp)
                                                                                                      (("2"
                                                                                                        (case-replace
                                                                                                         "i!1 < n!2")
                                                                                                        (("1"
                                                                                                          (inst
                                                                                                           2
                                                                                                           "i!1")
                                                                                                          nil
                                                                                                          nil)
                                                                                                         ("2"
                                                                                                          (assert)
                                                                                                          (("2"
                                                                                                            (inst
                                                                                                             2
                                                                                                             "i!1-n!2")
                                                                                                            nil
                                                                                                            nil))
                                                                                                          nil))
                                                                                                        nil))
                                                                                                      nil))
                                                                                                    nil))
                                                                                                  nil))
                                                                                                nil))
                                                                                              nil))
                                                                                            nil))
                                                                                          nil))
                                                                                        nil))
                                                                                      nil))
                                                                                    nil))
                                                                                  nil))
                                                                                nil))
                                                                              nil))
                                                                            nil))
                                                                          nil)
                                                                         ("2"
                                                                          (skosimp)
                                                                          (("2"
                                                                            (assert)
                                                                            nil
                                                                            nil))
                                                                          nil))
                                                                        nil)
                                                                       ("3"
                                                                        (skosimp)
                                                                        (("3"
                                                                          (expand
                                                                           "member")
                                                                          (("3"
                                                                            (assert)
                                                                            (("3"
                                                                              (case-replace
                                                                               "i!1 < n!2")
                                                                              (("1"
                                                                                (assert)
                                                                                (("1"
                                                                                  (inst
                                                                                   -5
                                                                                   "i!1")
                                                                                  (("1"
                                                                                    (flatten)
                                                                                    (("1"
                                                                                      (assert)
                                                                                      nil
                                                                                      nil))
                                                                                    nil))
                                                                                  nil))
                                                                                nil)
                                                                               ("2"
                                                                                (assert)
                                                                                (("2"
                                                                                  (inst
                                                                                   -8
                                                                                   "i!1-n!2")
                                                                                  (("2"
                                                                                    (flatten)
                                                                                    (("2"
                                                                                      (assert)
                                                                                      (("2"
                                                                                        (case
                                                                                         "i!1 - n!2 < n!3")
                                                                                        (("1"
                                                                                          (assert)
                                                                                          nil
                                                                                          nil)
                                                                                         ("2"
                                                                                          (assert)
                                                                                          nil
                                                                                          nil))
                                                                                        nil))
                                                                                      nil))
                                                                                    nil))
                                                                                  nil))
                                                                                nil))
                                                                              nil))
                                                                            nil))
                                                                          nil))
                                                                        nil))
                                                                      nil)
                                                                     ("2"
                                                                      (skosimp)
                                                                      (("2"
                                                                        (assert)
                                                                        nil
                                                                        nil))
                                                                      nil))
                                                                    nil))
                                                                  nil))
                                                                nil)
                                                               ("2"
                                                                (hide-all-but
                                                                 (-2
                                                                  1))
                                                                (("2"
                                                                  (expand
                                                                   "disjoint?"
                                                                   1)
                                                                  (("2"
                                                                    (expand
                                                                     "intersection")
                                                                    (("2"
                                                                      (expand
                                                                       "empty?")
                                                                      (("2"
                                                                        (skosimp)
                                                                        (("2"
                                                                          (expand
                                                                           "member")
                                                                          (("2"
                                                                            (flatten)
                                                                            (("2"
                                                                              (expand
                                                                               "AA")
                                                                              (("2"
                                                                                (expand
                                                                                 "BB")
                                                                                (("2"
                                                                                  (expand
                                                                                   "difference")
                                                                                  (("2"
                                                                                    (expand
                                                                                     "member")
                                                                                    (("2"
                                                                                      (flatten)
                                                                                      (("2"
                                                                                        (hide
                                                                                         1
                                                                                         2)
                                                                                        (("2"
                                                                                          (expand
                                                                                           "IUnion")
                                                                                          (("2"
                                                                                            (expand
                                                                                             "image")
                                                                                            (("2"
                                                                                              (expand
                                                                                               "Union")
                                                                                              (("2"
                                                                                                (skosimp)
                                                                                                (("2"
                                                                                                  (typepred
                                                                                                   "a!2")
                                                                                                  (("2"
                                                                                                    (skolem
                                                                                                     -
                                                                                                     "i!1")
                                                                                                    (("2"
                                                                                                      (replace
                                                                                                       -1)
                                                                                                      (("2"
                                                                                                        (hide
                                                                                                         -1)
                                                                                                        (("2"
--> --------------------

--> maximum size reached

--> --------------------

¤ Dauer der Verarbeitung: 0.42 Sekunden  (vorverarbeitet)  ¤





vermutete Sprache:
Sekunden
vermutete Sprache:
sprechenden Kalenders

Eigene Datei ansehen




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 ist noch experimentell.


Bot Zugriff