products/sources/formale sprachen/PVS/sets_aux image not shown  

Quellcode-Bibliothek

© Kompilation durch diese Firma

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

Datei: infinite_nat_def.prf   Sprache: Lisp

Original von: PVS©

(infinite_nat_def
 (infinite_def 0
  (infinite_def-1 nil 3313932679
   ("" (skosimp)
    (("" (split)
      (("1" (flatten)
        (("1" (name "HH" "lambda (Y:infinite_set[T]): rest[T](Y)")
          (("1" (name "GG" "lambda (n:nat): iterate(HH,n)(X!1)")
            (("1" (name "FF" "lambda (n:nat): choose(GG(n))")
              (("1" (case "forall (n:nat): GG(n+1)=rest(GG(n))")
                (("1" (case "GG(0)=X!1")
                  (("1"
                    (case "forall (n:nat): add(FF(n),GG(n+1)) = GG(n) & not member(FF(n),GG(n+1))")
                    (("1"
                      (case "forall (n:nat): strict_subset?(GG(n+1),GG(n))")
                      (("1" (case "forall (n:nat): subset?(GG(n),X!1)")
                        (("1" (case "injective?[nat, (X!1)](FF)")
                          (("1" (inst + "FF"nil nil)
                           ("2" (hide 3)
                            (("2" (expand "injective?")
                              (("2"
                                (case
                                 "forall (i,j:nat): i < j => FF(i) /= FF(j)")
                                (("1"
                                  (skosimp)
                                  (("1"
                                    (lemma
                                     "trich_lt"
                                     ("x" "x1!1" "y" "x2!1"))
                                    (("1"
                                      (split)
                                      (("1"
                                        (inst - "x1!1" "x2!1")
                                        (("1"
                                          (assert)
                                          (("1"
                                            (expand "FF")
                                            (("1"
                                              (expand "/=" -2)
                                              (("1" (propax) nil nil))
                                              nil))
                                            nil))
                                          nil))
                                        nil)
                                       ("2" (propax) nil nil)
                                       ("3"
                                        (inst - "x2!1" "x1!1")
                                        (("3"
                                          (expand "/=")
                                          (("3"
                                            (replace -3)
                                            (("3" (propax) nil nil))
                                            nil))
                                          nil))
                                        nil))
                                      nil))
                                    nil))
                                  nil)
                                 ("2"
                                  (hide 2)
                                  (("2"
                                    (skosimp)
                                    (("2"
                                      (inst-cp -5 "i!1")
                                      (("2"
                                        (inst -5 "j!1")
                                        (("2"
                                          (flatten)
                                          (("2"
                                            (hide -6 1)
                                            (("2"
                                              (case
                                               "member(FF(j!1), GG(i!1 + 1))")
                                              (("1"
                                                (expand "member")
                                                (("1"
                                                  (assert)
                                                  nil
                                                  nil))
                                                nil)
                                               ("2"
                                                (case
                                                 "forall (n:nat): subset?(GG(i!1 + 1+n),GG(i!1+1))")
                                                (("1"
                                                  (inst
                                                   -
                                                   "j!1-(i!1+1)")
                                                  (("1"
                                                    (expand "subset?")
                                                    (("1"
                                                      (expand "member")
                                                      (("1"
                                                        (inst
                                                         -
                                                         "FF(j!1)")
                                                        (("1"
                                                          (split -1)
                                                          (("1"
                                                            (propax)
                                                            nil
                                                            nil)
                                                           ("2"
                                                            (expand
                                                             "FF")
                                                            (("2"
                                                              (propax)
                                                              nil
                                                              nil))
                                                            nil))
                                                          nil))
                                                        nil))
                                                      nil))
                                                    nil)
                                                   ("2"
                                                    (assert)
                                                    nil
                                                    nil))
                                                  nil)
                                                 ("2"
                                                  (hide-all-but (1 -4))
                                                  (("2"
                                                    (induct "n")
                                                    (("1"
                                                      (expand
                                                       "subset?")
                                                      (("1"
                                                        (expand
                                                         "member")
                                                        (("1"
                                                          (skosimp)
                                                          nil
                                                          nil))
                                                        nil))
                                                      nil)
                                                     ("2"
                                                      (skosimp)
                                                      (("2"
                                                        (expand
                                                         "strict_subset?")
                                                        (("2"
                                                          (expand
                                                           "subset?")
                                                          (("2"
                                                            (expand
                                                             "member")
                                                            (("2"
                                                              (skosimp)
                                                              (("2"
                                                                (inst
                                                                 -
                                                                 "x!1")
                                                                (("2"
                                                                  (inst
                                                                   -3
                                                                   "1+i!1+j!2")
                                                                  (("2"
                                                                    (flatten)
                                                                    (("2"
                                                                      (inst
                                                                       -
                                                                       "x!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)
                           ("3" (skolem + "n!1")
                            (("3" (expand "FF")
                              (("3"
                                (inst - "n!1")
                                (("3"
                                  (lemma
                                   "choose_member[T]"
                                   ("a" "GG(n!1)"))
                                  (("3"
                                    (split -1)
                                    (("1"
                                      (expand "subset?")
                                      (("1"
                                        (expand "member")
                                        (("1"
                                          (inst - "choose(GG(n!1))")
                                          (("1" (assertnil nil))
                                          nil))
                                        nil))
                                      nil)
                                     ("2"
                                      (lemma
                                       "infinite_nonempty[T]"
                                       ("x" "GG(n!1)"))
                                      (("2"
                                        (expand "nonempty?")
                                        (("2" (propax) nil nil))
                                        nil))
                                      nil))
                                    nil))
                                  nil))
                                nil))
                              nil))
                            nil))
                          nil)
                         ("2" (hide 3)
                          (("2" (induct "n")
                            (("1" (expand "subset?")
                              (("1"
                                (expand "GG")
                                (("1"
                                  (expand "iterate")
                                  (("1" (skosimp) nil nil))
                                  nil))
                                nil))
                              nil)
                             ("2" (skosimp)
                              (("2"
                                (inst - "j!1")
                                (("2"
                                  (hide-all-but (-1 -2 1))
                                  (("2"
                                    (expand "strict_subset?")
                                    (("2"
                                      (expand "subset?")
                                      (("2"
                                        (skosimp)
                                        (("2"
                                          (inst - "x!1")
                                          (("2"
                                            (inst - "x!1")
                                            (("2"
                                              (expand "member")
                                              (("2" (assertnil nil))
                                              nil))
                                            nil))
                                          nil))
                                        nil))
                                      nil))
                                    nil))
                                  nil))
                                nil))
                              nil))
                            nil))
                          nil))
                        nil)
                       ("2" (hide 3)
                        (("2" (skosimp)
                          (("2" (inst -3 "n!1")
                            (("2" (replace -3)
                              (("2"
                                (expand "strict_subset?")
                                (("2"
                                  (rewrite "rest_subset")
                                  (("2"
                                    (assert)
                                    (("2"
                                      (inst - "n!1")
                                      (("2"
                                        (flatten -1)
                                        (("2"
                                          (lemma
                                           "rest_not_equal"
                                           ("a" "GG(n!1)"))
                                          (("2"
                                            (split -1)
                                            (("1" (propax) nil nil)
                                             ("2"
                                              (typepred "GG(n!1)")
                                              (("2"
                                                (lemma
                                                 "infinite_nonempty[T]")
                                                (("2"
                                                  (inst - "GG(n!1)")
                                                  (("2"
                                                    (expand
                                                     "nonempty?")
                                                    (("2"
                                                      (propax)
                                                      nil
                                                      nil))
                                                    nil))
                                                  nil))
                                                nil))
                                              nil))
                                            nil))
                                          nil))
                                        nil))
                                      nil))
                                    nil))
                                  nil))
                                nil))
                              nil))
                            nil))
                          nil))
                        nil))
                      nil)
                     ("2" (hide 2 3)
                      (("2" (skosimp)
                        (("2" (expand "FF")
                          (("2" (inst -2 "n!1")
                            (("2" (replace -2)
                              (("2"
                                (lemma
                                 "choose_rest[T]"
                                 ("a" "GG(n!1)"))
                                (("2"
                                  (lemma
                                   "choose_not_member[T]"
                                   ("a" "GG(n!1)"))
                                  (("2"
                                    (case-replace "empty?[T](GG(n!1))")
                                    (("1"
                                      (typepred "GG(n!1)")
                                      (("1"
                                        (lemma "infinite_nonempty[T]")
                                        (("1"
                                          (inst - "GG(n!1)")
                                          (("1"
                                            (expand "nonempty?")
                                            (("1" (propax) nil nil))
                                            nil))
                                          nil))
                                        nil))
                                      nil)
                                     ("2" (assertnil nil))
                                    nil))
                                  nil))
                                nil))
                              nil))
                            nil))
                          nil))
                        nil))
                      nil))
                    nil)
                   ("2" (expand "GG")
                    (("2" (expand "iterate") (("2" (propax) nil nil))
                      nil))
                    nil))
                  nil)
                 ("2" (skosimp)
                  (("2" (expand "GG" 1)
                    (("2" (expand "iterate" 1 1)
                      (("2" (expand "HH" 1 1) (("2" (propax) nil nil))
                        nil))
                      nil))
                    nil))
                  nil))
                nil))
              nil)
             ("2" (propax) nil nil))
            nil))
          nil))
        nil)
       ("2" (flatten)
        (("2" (expand "is_finite")
          (("2" (skolem - "f!2")
            (("2" (typepred "f!2")
              (("2" (skosimp)
                (("2"
                  (lemma
                   "composition_injective[below[N!1 + 1], (X!1), below[N!1]]")
                  (("2" (inst - "lambda (n:below[N!1+1]): f!2(n)" "_")
                    (("1" (inst - "f!1")
                      (("1"
                        (lemma "injection_n_to_m"
                         ("n" "N!1+1" "m" "N!1"))
                        (("1" (assert)
                          (("1" (expand "o ") (("1" (inst?) nil nil))
                            nil))
                          nil))
                        nil))
                      nil)
                     ("2" (expand "injective?")
                      (("2" (skosimp)
                        (("2" (inst -2 "x1!1" "x2!1")
                          (("2" (assertnil nil)) nil))
                        nil))
                      nil))
                    nil))
                  nil))
                nil))
              nil))
            nil))
          nil))
        nil))
      nil))
    nil)
   ((rest const-decl "set" sets nil)
    (= const-decl "[T, T -> boolean]" equalities nil)
    (infinite_set type-eq-decl nil infinite_sets_def nil)
    (is_finite const-decl "bool" finite_sets nil)
    (NOT const-decl "[bool -> bool]" booleans nil)
    (set type-eq-decl nil sets nil)
    (bool nonempty-type-eq-decl nil booleans nil)
    (boolean nonempty-type-decl nil booleans nil)
    (T formal-type-decl nil infinite_nat_def nil)
    (infinite_rest application-judgement "infinite_set"
     infinite_sets_def nil)
    (nonempty? const-decl "bool" sets nil)
    (choose const-decl "(p)" sets nil)
    (HH skolem-const-decl "[infinite_set[T] -> infinite_set[T]]"
     infinite_nat_def nil)
    (choose_not_member formula-decl nil sets_lemmas nil)
    (empty? const-decl "bool" sets nil)
    (choose_rest formula-decl nil sets_lemmas nil)
    (strict_subset? const-decl "bool" sets nil)
    (injective? const-decl "bool" functions nil)
    (FF skolem-const-decl "[n: nat -> (GG(n))]" infinite_nat_def nil)
    (GG skolem-const-decl "[nat -> infinite_set[T]]" infinite_nat_def
     nil)
    (X!1 skolem-const-decl "set[T]" infinite_nat_def nil)
    (posint_plus_nnint_is_posint application-judgement "posint"
     integers nil)
    (nat_induction formula-decl nil naturalnumbers nil)
    (pred type-eq-decl nil defined_types nil)
    (real_ge_is_total_order name-judgement "(total_order?[real])"
     real_props nil)
    (int_minus_int_is_int application-judgement "int" integers nil)
    (- const-decl "[numfield, numfield -> numfield]" number_fields nil)
    (i!1 skolem-const-decl "nat" infinite_nat_def nil)
    (j!1 skolem-const-decl "nat" infinite_nat_def nil)
    (int_plus_int_is_int application-judgement "int" integers nil)
    (real_lt_is_strict_total_order name-judgement
     "(strict_total_order?[real])" real_props nil)
    (trich_lt formula-decl nil real_props nil)
    (/= const-decl "boolean" notequal nil)
    (< const-decl "bool" reals nil)
    (IMPLIES const-decl "[bool, bool -> bool]" booleans nil)
    (choose_member formula-decl nil sets_lemmas nil)
    (infinite_nonempty judgement-tcc nil infinite_sets_def nil)
    (subset? const-decl "bool" sets nil)
    (even_minus_odd_is_odd application-judgement "odd_int" integers
     nil)
    (rest_subset formula-decl nil sets_lemmas nil)
    (rest_not_equal formula-decl nil sets_lemmas nil)
    (member const-decl "bool" sets nil)
    (add const-decl "(nonempty?)" sets nil)
    (AND const-decl "[bool, bool -> bool]" booleans nil)
    (infinite_add application-judgement "infinite_set"
     infinite_sets_def nil)
    (+ const-decl "[numfield, numfield -> numfield]" number_fields nil)
    (numfield nonempty-type-eq-decl nil number_fields nil)
    (nnint_plus_posint_is_posint application-judgement "posint"
     integers nil)
    (number nonempty-type-decl nil numbers nil)
    (number_field_pred const-decl "[number -> boolean]" number_fields
     nil)
    (number_field nonempty-type-from-decl nil number_fields nil)
    (real_pred const-decl "[number_field -> boolean]" reals nil)
    (real nonempty-type-from-decl nil reals nil)
    (rational_pred const-decl "[real -> boolean]" rationals nil)
    (rational nonempty-type-from-decl nil rationals nil)
    (integer_pred const-decl "[rational -> boolean]" integers nil)
    (int nonempty-type-eq-decl nil integers nil)
    (>= const-decl "bool" reals nil)
    (nat nonempty-type-eq-decl nil naturalnumbers nil)
    (iterate def-decl "T" function_iterate nil)
    (below type-eq-decl nil nat_types nil)
    (composition_injective judgement-tcc nil function_props nil)
    (f!1 skolem-const-decl "[(X!1) -> below[N!1]]" infinite_nat_def
     nil)
    (below type-eq-decl nil naturalnumbers nil)
    (O const-decl "T3" function_props nil)
    (injection_n_to_m formula-decl nil nat_fun_props nil)
    (f!2 skolem-const-decl "(injective?[nat, (X!1)])" infinite_nat_def
     nil)
    (N!1 skolem-const-decl "nat" infinite_nat_def nil))
   shostak))
 (infinite_def2 0
  (infinite_def2-1 nil 3454896480
   ("" (skosimp)
    (("" (rewrite "infinite_def" 1)
      (("" (split)
        (("1" (skosimp*)
          (("1" (typepred "f!1")
            (("1" (lemma "surj_inv[nat, (S!1)]" ("f" "f!1"))
              (("1" (split)
                (("1" (inst + "inverse[nat, (S!1)](f!1)"nil nil)
                 ("2" (propax) nil nil))
                nil))
              nil))
            nil))
          nil)
         ("2" (skosimp*)
          (("2" (typepred "f!1")
            (("2" (case "nonempty?(S!1)")
              (("1" (lemma "inj_inv[(S!1), nat]" ("f" "f!1"))
                (("1" (split)
                  (("1" (inst + "inverse[(S!1), nat](f!1)")
                    (("1" (expand "nonempty?")
                      (("1" (expand "empty?")
                        (("1" (skosimp)
                          (("1" (expand "member")
                            (("1" (inst + "x!1"nil nil)) nil))
                          nil))
                        nil))
                      nil))
                    nil)
                   ("2" (propax) nil nil))
                  nil)
                 ("2" (hide 2 -2)
                  (("2" (expand "nonempty?")
                    (("2" (expand "empty?")
                      (("2" (skosimp)
                        (("2" (inst + "x!1")
                          (("2" (assert)
                            (("2" (expand "member")
                              (("2" (propax) nil nil)) nil))
                            nil))
                          nil))
                        nil))
                      nil))
                    nil))
                  nil))
                nil)
               ("2" (expand "nonempty?")
                (("2" (hide 1)
                  (("2" (expand "surjective?")
                    (("2" (inst - "0")
                      (("2" (skosimp)
                        (("2" (expand "empty?")
                          (("2" (inst - "x!1")
                            (("2" (expand "member")
                              (("2" (propax) nil nil)) nil))
                            nil))
                          nil))
                        nil))
                      nil))
                    nil))
                  nil))
                nil))
              nil))
            nil))
          nil))
        nil))
      nil))
    nil)
   ((infinite_def formula-decl nil infinite_nat_def nil)
    (T formal-type-decl nil infinite_nat_def nil)
    (boolean nonempty-type-decl nil booleans nil)
    (bool nonempty-type-eq-decl nil booleans nil)
    (set type-eq-decl nil sets nil)
    (nonempty? const-decl "bool" sets nil)
    (x!1 skolem-const-decl "T" infinite_nat_def nil)
    (x!1 skolem-const-decl "T" infinite_nat_def nil)
    (member const-decl "bool" sets nil)
    (empty? const-decl "bool" sets nil)
    (S!1 skolem-const-decl "set[T]" infinite_nat_def nil)
    (inv_surj_is_inj application-judgement "(injective?[R, D])"
     function_inverse nil)
    (TRUE const-decl "bool" booleans nil)
    (inj_inv formula-decl nil function_inverse nil)
    (surj_inv formula-decl nil function_inverse nil)
    (inv_inj_is_surj application-judgement "(surjective?[R, D])"
     function_inverse nil)
    (inverse const-decl "D" function_inverse nil)
    (surjective? const-decl "bool" functions nil)
    (NOT const-decl "[bool -> bool]" booleans nil)
    (number nonempty-type-decl nil numbers nil)
    (number_field_pred const-decl "[number -> boolean]" number_fields
     nil)
    (number_field nonempty-type-from-decl nil number_fields nil)
    (real_pred const-decl "[number_field -> boolean]" reals nil)
    (real nonempty-type-from-decl nil reals nil)
    (rational_pred const-decl "[real -> boolean]" rationals nil)
    (rational nonempty-type-from-decl nil rationals nil)
    (integer_pred const-decl "[rational -> boolean]" integers nil)
    (int nonempty-type-eq-decl nil integers nil)
    (>= const-decl "bool" reals nil)
    (nat nonempty-type-eq-decl nil naturalnumbers nil)
    (injective? const-decl "bool" functions nil))
   shostak)))


¤ Dauer der Verarbeitung: 0.38 Sekunden  (vorverarbeitet)  ¤





Download des
Quellennavigators
Download des
sprechenden Kalenders

in der Quellcodebibliothek suchen




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