products/Sources/formale Sprachen/PVS/Bernstein image not shown  

Quellcode-Bibliothek

© Kompilation durch diese Firma

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

Datei: bernstein_minmax.prf   Sprache: Lisp

Original von: PVS©

(bernstein_minmax
 (unit_box_lb_id 0
  (unit_box_lb_id-1 nil 3507234900
   (""
    (case "FORALL (bsdegmono: DegreeMono, bspoly, bspolz: MultiBernstein,
              cf: Coeff, intendpts: IntervalEndpoints,
              nvars, terms: posnat,omm):
        (FORALL (t: below(terms), v: below(nvars), i: upto(bsdegmono(v))):
           bspoly(t)(v)(i) = bspolz(t)(v)(i))
         IMPLIES
         unit_box_lb?(bspoly, bsdegmono, nvars, terms, cf, intendpts)(omm) IMPLIES
          unit_box_lb?(bspolz, bsdegmono, nvars, terms, cf, intendpts)(omm)")
    (("1" (skeep)
      (("1" (decompose-equality)
        (("1" (iff)
          (("1" (split)
            (("1" (flatten)
              (("1"
                (inst -2 "bsdegmono" "bspoly" "bspolz" "cf" "intendpts"
                 "nvars" "terms" "x!1")
                (("1" (split -2)
                  (("1" (propax) nil nil) ("2" (propax) nil nil)
                   ("3" (propax) nil nil))
                  nil))
                nil))
              nil)
             ("2" (flatten)
              (("2"
                (inst -2 "bsdegmono" "bspolz" "bspoly" "cf" "intendpts"
                 "nvars" "terms" "x!1")
                (("2" (split -2)
                  (("1" (propax) nil nil) ("2" (propax) nil nil)
                   ("3" (skeep)
                    (("3" (inst? -2) (("3" (assertnil nil)) nil))
                    nil))
                  nil))
                nil))
              nil))
            nil))
          nil))
        nil))
      nil)
     ("2" (hide 2)
      (("2" (skeep)
        (("2" (expand "unit_box_lb?")
          (("2" (ground)
            (("2" (replaces -2)
              (("2" (replaces -2)
                (("2" (lemma "multibs_eval_id")
                  (("2"
                    (inst -1 "bspoly" "bspolz" "bsdegmono" "cf" "nvars"
                     "terms")
                    (("2" (split -1)
                      (("1" (assertnil nil) ("2" (propax) nil nil))
                      nil))
                    nil))
                  nil))
                nil))
              nil))
            nil))
          nil))
        nil))
      nil))
    nil)
   ((multibs_eval_id formula-decl nil multi_bernstein nil)
    (number nonempty-type-decl nil numbers nil)
    (boolean nonempty-type-decl nil booleans nil)
    (number_field_pred const-decl "[number -> boolean]" number_fields
     nil)
    (number_field nonempty-type-from-decl nil number_fields nil)
    (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)
    (bool nonempty-type-eq-decl nil booleans nil)
    (>= const-decl "bool" reals nil)
    (nat nonempty-type-eq-decl nil naturalnumbers nil)
    (DegreeMono type-eq-decl nil util nil)
    (Polynomial type-eq-decl nil util nil)
    (Polyproduct type-eq-decl nil util nil)
    (MultiBernstein type-eq-decl nil util nil)
    (Coeff type-eq-decl nil util nil)
    (IntervalEndpoints type-eq-decl nil util nil)
    (nonneg_int nonempty-type-eq-decl nil integers nil)
    (> const-decl "bool" reals nil)
    (posnat nonempty-type-eq-decl nil integers nil)
    (list type-decl nil list_adt nil)
    (Outminmax type-eq-decl nil minmax nil)
    (IMPLIES const-decl "[bool, bool -> bool]" booleans nil)
    (< const-decl "bool" reals nil)
    (below type-eq-decl nil naturalnumbers nil)
    (<= const-decl "bool" reals nil)
    (upto nonempty-type-eq-decl nil naturalnumbers nil)
    (= const-decl "[T, T -> boolean]" equalities nil)
    (unit_box_lb? const-decl "bool" bernstein_minmax nil))
   shostak))
 (unit_box_ub_id 0
  (unit_box_ub_id-1 nil 3507235724
   (""
    (case "FORALL (bsdegmono: DegreeMono, bspoly, bspolz: MultiBernstein,
                            cf: Coeff, intendpts: IntervalEndpoints,
                            nvars, terms: posnat,omm):
                      (FORALL (t: below(terms), v: below(nvars), i: upto(bsdegmono(v))):
                         bspoly(t)(v)(i) = bspolz(t)(v)(i))
                       IMPLIES
                       unit_box_ub?(bspoly, bsdegmono, nvars, terms, cf, intendpts)(omm) IMPLIES
                        unit_box_ub?(bspolz, bsdegmono, nvars, terms, cf, intendpts)(omm)")
    (("1" (skeep)
      (("1" (decompose-equality)
        (("1" (iff)
          (("1" (split)
            (("1" (flatten)
              (("1"
                (inst -2 "bsdegmono" "bspoly" "bspolz" "cf" "intendpts"
                 "nvars" "terms" "x!1")
                (("1" (split -2)
                  (("1" (propax) nil nil) ("2" (propax) nil nil)
                   ("3" (propax) nil nil))
                  nil))
                nil))
              nil)
             ("2" (flatten)
              (("2"
                (inst -2 "bsdegmono" "bspolz" "bspoly" "cf" "intendpts"
                 "nvars" "terms" "x!1")
                (("2" (split -2)
                  (("1" (propax) nil nil) ("2" (propax) nil nil)
                   ("3" (skeep)
                    (("3" (inst? -2) (("3" (assertnil nil)) nil))
                    nil))
                  nil))
                nil))
              nil))
            nil))
          nil))
        nil))
      nil)
     ("2" (hide 2)
      (("2" (skeep)
        (("2" (expand "unit_box_ub?")
          (("2" (ground)
            (("2" (replaces -2)
              (("2" (replaces -2)
                (("2" (lemma "multibs_eval_id")
                  (("2"
                    (inst -1 "bspoly" "bspolz" "bsdegmono" "cf" "nvars"
                     "terms")
                    (("2" (split -1)
                      (("1" (assertnil nil) ("2" (propax) nil nil))
                      nil))
                    nil))
                  nil))
                nil))
              nil))
            nil))
          nil))
        nil))
      nil))
    nil)
   ((multibs_eval_id formula-decl nil multi_bernstein nil)
    (number nonempty-type-decl nil numbers nil)
    (boolean nonempty-type-decl nil booleans nil)
    (number_field_pred const-decl "[number -> boolean]" number_fields
     nil)
    (number_field nonempty-type-from-decl nil number_fields nil)
    (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)
    (bool nonempty-type-eq-decl nil booleans nil)
    (>= const-decl "bool" reals nil)
    (nat nonempty-type-eq-decl nil naturalnumbers nil)
    (DegreeMono type-eq-decl nil util nil)
    (Polynomial type-eq-decl nil util nil)
    (Polyproduct type-eq-decl nil util nil)
    (MultiBernstein type-eq-decl nil util nil)
    (Coeff type-eq-decl nil util nil)
    (IntervalEndpoints type-eq-decl nil util nil)
    (nonneg_int nonempty-type-eq-decl nil integers nil)
    (> const-decl "bool" reals nil)
    (posnat nonempty-type-eq-decl nil integers nil)
    (list type-decl nil list_adt nil)
    (Outminmax type-eq-decl nil minmax nil)
    (IMPLIES const-decl "[bool, bool -> bool]" booleans nil)
    (< const-decl "bool" reals nil)
    (below type-eq-decl nil naturalnumbers nil)
    (<= const-decl "bool" reals nil)
    (upto nonempty-type-eq-decl nil naturalnumbers nil)
    (= const-decl "[T, T -> boolean]" equalities nil)
    (unit_box_ub? const-decl "bool" bernstein_minmax nil))
   nil))
 (sound_id 0
  (sound_id-1 nil 3509143268
   (""
    (case "FORALL (bsdegmono: DegreeMono, bspoly, bspolz: MultiBernstein,
              cf: Coeff, intendpts: IntervalEndpoints, nvars: posnat,
              omm: Outminmax, terms: posnat):
        (FORALL (t: below(terms), v: below(nvars), i: upto(bsdegmono(v))):
           bspoly(t)(v)(i) = bspolz(t)(v)(i))
         IMPLIES
         sound?(bspoly, bsdegmono, nvars, terms, cf, intendpts)(omm) IMPLIES
          sound?(bspolz, bsdegmono, nvars, terms, cf, intendpts)(omm)")
    (("1" (skeep)
      (("1" (iff)
        (("1" (split)
          (("1" (flatten)
            (("1"
              (inst -2 "bsdegmono" "bspoly" "bspolz" "cf" "intendpts"
               "nvars" "omm" "terms")
              (("1" (split -2)
                (("1" (propax) nil nil) ("2" (propax) nil nil)
                 ("3" (propax) nil nil))
                nil))
              nil))
            nil)
           ("2" (flatten)
            (("2"
              (inst -2 "bsdegmono" "bspolz" "bspoly" "cf" "intendpts"
               "nvars" "omm" "terms")
              (("2" (split -2)
                (("1" (propax) nil nil) ("2" (propax) nil nil)
                 ("3" (skeep)
                  (("3" (inst? -2) (("3" (assertnil nil)) nil)) nil))
                nil))
              nil))
            nil))
          nil))
        nil))
      nil)
     ("2" (hide 2)
      (("2" (skeep)
        (("2" (expand "sound?")
          (("2" (flatten)
            (("2" (split)
              (("1" (lemma "forall_X_between_id")
                (("1"
                  (inst -1 "cf" _ _ "bspoly" "bspolz" "bsdegmono"
                   "nvars" "terms")
                  (("1" (inst? -1)
                    (("1" (split -1)
                      (("1" (assertnil nil) ("2" (propax) nil nil))
                      nil))
                    nil))
                  nil))
                nil)
               ("2" (lemma "unit_box_lb_id")
                (("2"
                  (inst -1 "bsdegmono" "bspoly" "bspolz" "cf"
                   "intendpts" "nvars" "terms")
                  (("2" (split -1)
                    (("1" (assertnil nil) ("2" (propax) nil nil))
                    nil))
                  nil))
                nil)
               ("3" (lemma "unit_box_ub_id")
                (("3"
                  (inst -1 "bsdegmono" "bspoly" "bspolz" "cf"
                   "intendpts" "nvars" "terms")
                  (("3" (split -1)
                    (("1" (assertnil nil) ("2" (propax) nil nil))
                    nil))
                  nil))
                nil)
               ("4" (propax) nil nil))
              nil))
            nil))
          nil))
        nil))
      nil))
    nil)
   ((forall_X_between_id formula-decl nil multi_bernstein nil)
    (unit_box_lb_id formula-decl nil bernstein_minmax nil)
    (unit_box_ub_id formula-decl nil bernstein_minmax nil)
    (number nonempty-type-decl nil numbers nil)
    (boolean nonempty-type-decl nil booleans nil)
    (number_field_pred const-decl "[number -> boolean]" number_fields
     nil)
    (number_field nonempty-type-from-decl nil number_fields nil)
    (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)
    (bool nonempty-type-eq-decl nil booleans nil)
    (>= const-decl "bool" reals nil)
    (nat nonempty-type-eq-decl nil naturalnumbers nil)
    (DegreeMono type-eq-decl nil util nil)
    (Polynomial type-eq-decl nil util nil)
    (Polyproduct type-eq-decl nil util nil)
    (MultiBernstein type-eq-decl nil util nil)
    (Coeff type-eq-decl nil util nil)
    (IntervalEndpoints type-eq-decl nil util nil)
    (nonneg_int nonempty-type-eq-decl nil integers nil)
    (> const-decl "bool" reals nil)
    (posnat nonempty-type-eq-decl nil integers nil)
    (list type-decl nil list_adt nil)
    (Outminmax type-eq-decl nil minmax nil)
    (IMPLIES const-decl "[bool, bool -> bool]" booleans nil)
    (< const-decl "bool" reals nil)
    (below type-eq-decl nil naturalnumbers nil)
    (<= const-decl "bool" reals nil)
    (upto nonempty-type-eq-decl nil naturalnumbers nil)
    (= const-decl "[T, T -> boolean]" equalities nil)
    (sound? const-decl "bool" bernstein_minmax nil))
   shostak))
 (sound_lb_le_ub 0
  (sound_lb_le_ub-1 nil 3509729500
   ("" (skeep)
    (("" (expand "sound?")
      (("" (flatten)
        (("" (hide (-2 -3))
          (("" (expand "forall_X_between")
            (("" (inst - "LAMBDA (adsfjkl:nat): 0")
              (("" (split -)
                (("1" (flatten)
                  (("1" (expand "lb_le_ub?") (("1" (assertnil nil))
                    nil))
                  nil)
                 ("2" (hide-all-but 1)
                  (("2" (expand "unitbox?") (("2" (propax) nil nil))
                    nil))
                  nil))
                nil))
              nil))
            nil))
          nil))
        nil))
      nil))
    nil)
   ((sound? const-decl "bool" bernstein_minmax nil)
    (number nonempty-type-decl nil numbers nil)
    (boolean nonempty-type-decl nil booleans nil)
    (number_field_pred const-decl "[number -> boolean]" number_fields
     nil)
    (number_field nonempty-type-from-decl nil number_fields nil)
    (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)
    (bool nonempty-type-eq-decl nil booleans nil)
    (>= const-decl "bool" reals nil)
    (nat nonempty-type-eq-decl nil naturalnumbers nil)
    (Vars type-eq-decl nil util nil)
    (unitbox? const-decl "bool" util nil)
    (real_le_is_total_order name-judgement "(total_order?[real])"
     real_props nil)
    (le_realorder name-judgement "RealOrder" util nil)
    (lb_le_ub? const-decl "bool" minmax nil)
    (forall_X_between const-decl "bool" multi_bernstein nil))
   shostak))
 (combine_sound 0
  (combine_sound-1 nil 3508072307
   ("" (skeep)
    (("" (skosimp*)
      (("" (expand "sound?")
        (("" (split +)
          (("1" (expand "forall_X_between")
            (("1" (skosimp*)
              (("1" (inst - "X!1")
                (("1" (flatten)
                  (("1" (split -)
                    (("1" (hide -3)
                      (("1" (hide (-3 -4 -5 -6 -7 -8))
                        (("1"
                          (grind :exclude ("multibs_eval" "unitbox?"))
                          nil nil))
                        nil))
                      nil)
                     ("2" (assert)
                      (("2" (hide 1)
                        (("2" (hide (-3 -4 -5 -6 -7 -8))
                          (("2"
                            (grind :exclude
                             ("multibs_eval" "unitbox?"))
                            nil nil))
                          nil))
                        nil))
                      nil))
                    nil))
                  nil))
                nil))
              nil))
            nil)
           ("2" (hide -1)
            (("2" (hide (-2 -4))
              (("2" (expand "unit_box_lb?")
                (("2" (flatten)
                  (("2" (expand "combine")
                    (("2" (lift-if) (("2" (ground) nil nil)) nil))
                    nil))
                  nil))
                nil))
              nil))
            nil)
           ("3" (hide -1)
            (("3" (expand "unit_box_ub?")
              (("3" (expand "combine")
                (("3" (lift-if) (("3" (ground) nil nil)) nil)) nil))
              nil))
            nil)
           ("4" (hide (-1 -2 -3 -4 -5))
            (("4" (expand "length_eq?")
              (("4" (expand "combine")
                (("4" (lift-if)
                  (("4" (ground)
                    (("1" (lift-if) (("1" (ground) nil nil)) nil)
                     ("2" (lift-if) (("2" (ground) nil nil)) nil)
                     ("3" (lift-if) (("3" (ground) nil nil)) nil)
                     ("4" (lift-if) (("4" (ground) nil nil)) nil)
                     ("5" (lift-if) (("5" (ground) nil nil)) nil)
                     ("6" (lift-if) (("6" (ground) nil nil)) nil)
                     ("7" (lift-if) (("7" (ground) nil nil)) nil)
                     ("8" (lift-if) (("8" (ground) nil nil)) nil)
                     ("9" (lift-if) (("9" (ground) nil nil)) nil)
                     ("10" (lift-if) (("10" (ground) nil nil)) nil)
                     ("11" (lift-if) (("11" (ground) nil nil)) nil)
                     ("12" (lift-if) (("12" (ground) nil nil)) nil)
                     ("13" (lift-if) (("13" (ground) nil nil)) nil)
                     ("14" (lift-if) (("14" (ground) nil nil)) nil))
                    nil))
                  nil))
                nil))
              nil))
            nil))
          nil))
        nil))
      nil))
    nil)
   ((real_lt_is_strict_total_order name-judgement
     "(strict_total_order?[real])" real_props nil)
    (lt_realorder name-judgement "RealOrder" util nil)
    (real_gt_is_strict_total_order name-judgement
     "(strict_total_order?[real])" real_props nil)
    (gt_realorder name-judgement "RealOrder" util nil)
    (nonneg_rat_max application-judgement
     "{s: nonneg_rat | s >= q AND s >= r}" real_defs nil)
    (nat_max application-judgement "{k: nat | i <= k AND j <= k}"
     real_defs nil)
    (real_le_is_total_order name-judgement "(total_order?[real])"
     real_props nil)
    (le_realorder name-judgement "RealOrder" util nil)
    (min const-decl "{p: real | p <= m AND p <= n}" real_defs nil)
    (max const-decl "{p: real | p >= m AND p >= n}" real_defs nil)
    (combine const-decl "Outminmax" minmax nil)
    (number nonempty-type-decl nil numbers nil)
    (boolean nonempty-type-decl nil booleans nil)
    (number_field_pred const-decl "[number -> boolean]" number_fields
     nil)
    (number_field nonempty-type-from-decl nil number_fields nil)
    (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)
    (bool nonempty-type-eq-decl nil booleans nil)
    (>= const-decl "bool" reals nil)
    (nonneg_int nonempty-type-eq-decl nil integers nil)
    (> const-decl "bool" reals nil)
    (posnat nonempty-type-eq-decl nil integers nil)
    (nat nonempty-type-eq-decl nil naturalnumbers nil)
    (Vars type-eq-decl nil util nil)
    (unitbox? const-decl "bool" util nil)
    (nvars skolem-const-decl "posnat" bernstein_minmax nil)
    (X!1 skolem-const-decl "Vars" bernstein_minmax nil)
    (forall_X_between const-decl "bool" multi_bernstein nil)
    (unit_box_lb? const-decl "bool" bernstein_minmax nil)
    (unit_box_ub? const-decl "bool" bernstein_minmax nil)
    (ge_realorder name-judgement "RealOrder" util nil)
    (real_ge_is_total_order name-judgement "(total_order?[real])"
     real_props nil)
    (length_eq? const-decl "bool" minmax nil)
    (sound? const-decl "bool" bernstein_minmax nil))
   shostak))
 (Bern_coeffs_minmax_rec_TCC1 0
  (Bern_coeffs_minmax_rec_TCC1-1 nil 3505487851
   ("" (skosimp*)
    (("" (replace -1)
      (("" (typepred "ep!1")
        (("" (expand "edge_point?")
          (("" (flatten)
            (("" (split +)
              (("1" (skosimp*)
                (("1"
                  (case "multibscoeff(bspoly!1, bsdegmono!1, cf!1, nvars!1, terms!1)(nf!1) =
                                                                                                             multibscoeff(bspoly!1, bsdegmono!1, cf!1, nvars!1, terms!1)(f!1)")
                  (("1" (replace -1)
                    (("1" (hide -1)
                      (("1" (expand "single_outminmax")
                        (("1" (ground) nil nil)) nil))
                      nil))
                    nil)
                   ("2" (hide 2)
                    (("2" (rewrite "multibscoeff_id")
                      (("2" (hide 2)
                        (("2" (expand "eq_below_mono?")
                          (("2" (skosimp*)
                            (("2" (inst - "j!1")
                              (("2" (ground) nil nil)) nil))
                            nil))
                          nil))
                        nil))
                      nil))
                    nil))
                  nil))
                nil)
               ("2" (expand "single_outminmax")
                (("2" (expand "unit_box_lb?")
                  (("2" (expand "interval_between?")
                    (("2" (flatten)
                      (("2" (case "NOT ep!1")
                        (("1" (assertnil nil)
                         ("2" (assert)
                          (("2" (hide -1)
                            (("2"
                              (case "NOT length(thisvar!1) = nvars!1")
                              (("1"
                                (hide 2)
                                (("1"
                                  (expand "corner_to_point")
                                  (("1" (assertnil nil))
                                  nil))
                                nil)
                               ("2"
                                (assert)
                                (("2"
                                  (split +)
                                  (("1"
                                    (skosimp*)
                                    (("1"
                                      (inst - "iup!1")
                                      (("1"
                                        (expand "corner_to_point")
                                        (("1"
                                          (replace -8)
                                          (("1"
                                            (rewrite "array2list_inv")
                                            (("1"
                                              (lift-if)
                                              (("1" (ground) nil nil))
                                              nil))
                                            nil))
                                          nil))
                                        nil))
                                      nil))
                                    nil)
                                   ("2"
                                    (replace -9 +)
                                    (("2"
                                      (replace -7 +)
                                      (("2"
                                        (replace -6 +)
                                        (("2"
                                          (replace -8)
                                          (("2"
                                            (lemma
                                             "multibs_cornerpoint_coeff")
                                            (("2"
                                              (inst?)
                                              (("2"
                                                (assert)
                                                (("2"
                                                  (split -)
                                                  (("1"
                                                    (replace
                                                     -1
                                                     :dir
                                                     rl)
                                                    (("1"
                                                      (hide -1)
                                                      (("1"
                                                        (rewrite
                                                         "multibs_eval_below_mono")
                                                        (("1"
                                                          (hide 2)
                                                          (("1"
                                                            (skosimp*)
                                                            (("1"
                                                              (expand
                                                               "corner_to_point"
                                                               +)
                                                              (("1"
                                                                (rewrite
                                                                 "array2list_inv")
                                                                nil
                                                                nil))
                                                              nil))
                                                            nil))
                                                          nil))
                                                        nil))
                                                      nil))
                                                    nil)
                                                   ("2"
                                                    (hide 2)
                                                    (("2"
                                                      (expand
                                                       "corner_point?")
                                                      (("2"
                                                        (skosimp*)
                                                        (("2"
                                                          (typepred
                                                           "ep!1")
                                                          (("2"
                                                            (expand
                                                             "edge_point?")
                                                            (("2"
                                                              (inst
                                                               -
                                                               "j!1")
                                                              (("2"
                                                                (ground)
                                                                nil
                                                                nil))
                                                              nil))
                                                            nil))
                                                          nil))
                                                        nil))
                                                      nil))
                                                    nil))
                                                  nil))
                                                nil))
                                              nil))
                                            nil))
                                          nil))
                                        nil))
                                      nil))
                                    nil))
                                  nil))
                                nil))
                              nil))
                            nil))
                          nil))
                        nil))
                      nil))
                    nil))
                  nil))
                nil)
               ("3" (expand "single_outminmax")
                (("3" (expand "unit_box_ub?")
                  (("3" (expand "interval_between?")
                    (("3" (flatten)
                      (("3" (case "NOT ep!1")
                        (("1" (assertnil nil)
                         ("2" (assert)
                          (("2" (hide -1)
                            (("2"
                              (case "NOT length(thisvar!1) = nvars!1")
                              (("1"
                                (hide 2)
                                (("1"
                                  (expand "corner_to_point")
                                  (("1" (assertnil nil))
                                  nil))
                                nil)
                               ("2"
                                (assert)
                                (("2"
                                  (split +)
                                  (("1"
                                    (skosimp*)
                                    (("1"
                                      (inst - "iup!1")
                                      (("1"
                                        (expand "corner_to_point")
                                        (("1"
                                          (replace -8)
                                          (("1"
                                            (rewrite "array2list_inv")
                                            (("1"
                                              (lift-if)
                                              (("1" (ground) nil nil))
                                              nil))
                                            nil))
                                          nil))
                                        nil))
                                      nil))
                                    nil)
                                   ("2"
                                    (replace -9 +)
                                    (("2"
                                      (replace -7 +)
                                      (("2"
                                        (replace -6 +)
                                        (("2"
                                          (replace -8 +)
                                          (("2"
                                            (lemma
                                             "multibs_cornerpoint_coeff")
                                            (("2"
                                              (inst?)
                                              (("2"
                                                (assert)
                                                (("2"
                                                  (split -)
                                                  (("1"
                                                    (replace
                                                     -1
                                                     :dir
                                                     rl)
                                                    (("1"
                                                      (hide -1)
                                                      (("1"
                                                        (rewrite
                                                         "multibs_eval_below_mono")
                                                        (("1"
                                                          (hide 2)
                                                          (("1"
                                                            (skosimp*)
                                                            (("1"
                                                              (expand
                                                               "corner_to_point"
                                                               +)
                                                              (("1"
                                                                (rewrite
                                                                 "array2list_inv")
                                                                nil
                                                                nil))
                                                              nil))
                                                            nil))
                                                          nil))
                                                        nil))
                                                      nil))
                                                    nil)
                                                   ("2"
                                                    (hide 2)
                                                    (("2"
                                                      (expand
                                                       "corner_point?")
                                                      (("2"
                                                        (skosimp*)
                                                        (("2"
                                                          (typepred
                                                           "ep!1")
                                                          (("2"
                                                            (expand
                                                             "edge_point?")
                                                            (("2"
                                                              (inst
                                                               -
                                                               "j!1")
                                                              (("2"
                                                                (ground)
                                                                nil
                                                                nil))
                                                              nil))
                                                            nil))
                                                          nil))
                                                        nil))
                                                      nil))
                                                    nil))
                                                  nil))
                                                nil))
                                              nil))
                                            nil))
                                          nil))
                                        nil))
                                      nil))
                                    nil))
                                  nil))
                                nil))
                              nil))
                            nil))
                          nil))
                        nil))
                      nil))
                    nil))
                  nil))
                nil)
               ("4" (expand "length_eq?")
                (("4" (expand "single_outminmax")
                  (("4" (flatten)
                    (("4" (lift-if) (("4" (ground) nil nil)) nil))
                    nil))
                  nil))
                nil)
               ("5" (expand "single_outminmax")
                (("5" (propax) nil nil)) nil))
              nil))
            nil))
          nil))
        nil))
      nil))
    nil)
   ((multibscoeff const-decl "real" multi_bernstein nil)
    (Coeff type-eq-decl nil util nil)
    (MultiBernstein type-eq-decl nil util nil)
    (Polyproduct type-eq-decl nil util nil)
    (Polynomial type-eq-decl nil util nil)
    (= const-decl "[T, T -> boolean]" equalities nil)
    (le_realorder name-judgement "RealOrder" util nil)
    (real_le_is_total_order name-judgement "(total_order?[real])"
     real_props nil)
    (single_outminmax const-decl "Outminmax" minmax nil)
    (multibscoeff_id formula-decl nil multi_bernstein nil)
    (eq_below_mono? const-decl "bool" util nil)
    (below type-eq-decl nil naturalnumbers nil)
    (< const-decl "bool" reals nil)
    (unit_box_lb? const-decl "bool" bernstein_minmax nil)
    (list type-decl nil list_adt nil)
    (PRED type-eq-decl nil defined_types nil)
    (every adt-def-decl "boolean" list_adt nil)
    (AND const-decl "[bool, bool -> bool]" booleans nil)
    (length def-decl "nat" list_props nil)
    (corner_to_point const-decl
     "{l: listn[real](nvars) | unitbox?(nvars)(list2array(0)(l))}" util
     nil)
    (int_minus_int_is_int application-judgement "int" integers nil)
    (subrange type-eq-decl nil integers nil)
    (- const-decl "[numfield, numfield -> numfield]" number_fields nil)
    (numfield nonempty-type-eq-decl nil number_fields nil)
    (<= const-decl "bool" reals nil)
    (array2list_inv formula-decl nil array2list "structures/")
    (IF const-decl "[boolean, T, T -> T]" if_def nil)
    (multibs_eval_below_mono formula-decl nil multi_bernstein nil)
    (Vars type-eq-decl nil util nil)
    (list2array def-decl "T" array2list "structures/")
    (listn type-eq-decl nil listn "structures/")
    (unitbox? const-decl "bool" util nil)
    (corner_point? const-decl "bool" util nil)
    (multibs_cornerpoint_coeff formula-decl nil multi_bernstein nil)
    (interval_between? const-decl "bool" util nil)
    (real_lt_is_strict_total_order name-judgement
     "(strict_total_order?[real])" real_props nil)
    (lt_realorder name-judgement "RealOrder" util nil)
    (unit_box_ub? const-decl "bool" bernstein_minmax nil)
    (length_eq? const-decl "bool" minmax nil)
    (boolean nonempty-type-decl nil booleans nil)
    (bool nonempty-type-eq-decl nil booleans 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)
    (DegreeMono type-eq-decl nil util nil)
    (nonneg_int nonempty-type-eq-decl nil integers nil)
    (> const-decl "bool" reals nil)
    (posnat nonempty-type-eq-decl nil integers nil)
    (CoeffMono type-eq-decl nil util nil)
    (IntervalEndpoints type-eq-decl nil util nil)
    (edge_point? const-decl "bool" util nil))
   nil))
 (Bern_coeffs_minmax_rec_TCC2 0
  (Bern_coeffs_minmax_rec_TCC2-1 nil 3505487851
   ("" (skosimp*) (("" (assertnil nil)) nil)
   ((real_ge_is_total_order name-judgement "(total_order?[real])"
     real_props nil)
    (ge_realorder name-judgement "RealOrder" util nil)
    (int_minus_int_is_int application-judgement "int" integers nil))
   nil))
 (Bern_coeffs_minmax_rec_TCC3 0
  (Bern_coeffs_minmax_rec_TCC3-1 nil 3508188890
   ("" (skosimp*)
    (("" (replaces -3)
      (("" (expand "edge_point?")
        (("" (typepred "ep!1")
          (("" (expand "edge_point?")
            (("" (flatten)
              (("" (assert)
                (("" (flatten)
                  (("" (assert)
                    (("" (skosimp*)
                      (("" (replace -4)
                        (("" (case "i!1 = v!1-1")
                          (("1" (replace -1)
                            (("1" (assert) (("1" (ground) nil nil))
                              nil))
                            nil)
                           ("2" (inst - "i!1")
                            (("1" (assert) (("1" (ground) nil nil))
                              nil)
                             ("2" (assertnil nil))
                            nil))
                          nil))
                        nil))
                      nil))
                    nil))
                  nil))
                nil))
              nil))
            nil))
          nil))
        nil))
      nil))
    nil)
   ((IntervalEndpoints type-eq-decl nil util nil)
    (CoeffMono type-eq-decl nil util nil)
    (posnat nonempty-type-eq-decl nil integers nil)
    (> const-decl "bool" reals nil)
    (nonneg_int nonempty-type-eq-decl nil integers nil)
    (DegreeMono type-eq-decl nil util nil)
    (nat nonempty-type-eq-decl nil naturalnumbers nil)
    (>= const-decl "bool" reals nil)
    (int nonempty-type-eq-decl nil integers nil)
    (integer_pred const-decl "[rational -> boolean]" integers nil)
    (rational nonempty-type-from-decl nil rationals nil)
    (rational_pred const-decl "[real -> boolean]" rationals nil)
    (real nonempty-type-from-decl nil reals nil)
    (real_pred const-decl "[number_field -> boolean]" reals nil)
    (number_field nonempty-type-from-decl nil number_fields nil)
    (number_field_pred const-decl "[number -> boolean]" number_fields
     nil)
    (number nonempty-type-decl nil numbers nil)
    (NOT const-decl "[bool -> bool]" booleans nil)
    (bool nonempty-type-eq-decl nil booleans nil)
    (boolean nonempty-type-decl nil booleans nil)
    (= const-decl "[T, T -> boolean]" equalities nil)
    (AND const-decl "[bool, bool -> bool]" booleans nil)
    (<= const-decl "bool" reals nil)
    (numfield nonempty-type-eq-decl nil number_fields nil)
    (- const-decl "[numfield, numfield -> numfield]" number_fields nil)
    (subrange type-eq-decl nil integers nil)
    (i!1 skolem-const-decl "subrange(v!1 - 1, nvars!1 - 1)"
     bernstein_minmax nil)
    (nvars!1 skolem-const-decl "posnat" bernstein_minmax nil)
    (v!1 skolem-const-decl "nat" bernstein_minmax nil)
    (le_realorder name-judgement "RealOrder" util nil)
    (real_le_is_total_order name-judgement "(total_order?[real])"
     real_props nil)
    (int_minus_int_is_int application-judgement "int" integers nil)
    (edge_point? const-decl "bool" util nil))
   nil))
 (Bern_coeffs_minmax_rec_TCC4 0
  (Bern_coeffs_minmax_rec_TCC4-1 nil 3508188890
   ("" (skosimp*) (("" (assertnil nil)) nil)
   ((real_lt_is_strict_total_order name-judgement
     "(strict_total_order?[real])" real_props nil)
    (lt_realorder name-judgement "RealOrder" util nil)
    (int_minus_int_is_int application-judgement "int" integers nil))
   nil))
 (Bern_coeffs_minmax_rec_TCC5 0
  (Bern_coeffs_minmax_rec_TCC5-1 nil 3509113200
   ("" (skosimp*) (("" (assert) (("" (ground) nil nil)) nil)) nil)
   ((real_le_is_total_order name-judgement "(total_order?[real])"
     real_props nil)
    (le_realorder name-judgement "RealOrder" util nil)
    (real_ge_is_total_order name-judgement "(total_order?[real])"
     real_props nil)
    (ge_realorder name-judgement "RealOrder" util nil)
    (int_minus_int_is_int application-judgement "int" integers nil))
   nil))
 (Bern_coeffs_minmax_rec_TCC6 0
  (Bern_coeffs_minmax_rec_TCC6-1 nil 3509113200
   ("" (skosimp*)
    (("" (lemma "Bern_coeffs_minmax_rec_TCC3")
      (("" (label "nepep" -1)
        (("" (hide "nepep")
          (("" (split +)
            (("1" (skosimp*)
              (("1" (split)
                (("1" (lemma "iterate_left_induction[Outminmax]")
                  (("1" (inst?)
                    (("1"
                      (inst -1
                       "LAMBDA(i:upto(bsdegmono!1(v!1-1)),a:Outminmax): FORALL (k:upto(i)): a`lb_min <= multibscoeff(bspoly!1, bsdegmono!1, cf!1, nvars!1, terms!1)(nf!1 WITH [(v!1-1):=k])")
                      (("1" (split -)
                        (("1" (inst -2 "v!1-1")
                          (("1" (flatten)
                            (("1" (inst -1 "nf!1(v!1-1)")
                              (("1"
                                (assert)
                                (("1"
                                  (hide -3)
                                  (("1"
                                    (case-replace
                                     "nf!1 WITH [(v!1 - 1) := nf!1(v!1 - 1)] = nf!1")
                                    (("1"
                                      (hide-all-but 1)
                                      (("1"
                                        (decompose-equality 1)
                                        (("1" (grind) nil nil))
                                        nil))
                                      nil))
                                    nil))
                                  nil))
                                nil)
                               ("2"
                                (hide 2)
                                (("2" (assertnil nil))
                                nil))
                              nil))
                            nil)
                           ("2" (assert)
                            (("2" (hide-all-but 1)
                              (("2"
                                (typepred "ep!1")
                                (("2"
                                  (expand "edge_point?")
                                  (("2" (propax) nil nil))
                                  nil))
                                nil))
                              nil))
                            nil))
                          nil)
                         ("2" (hide 2)
                          (("2" (skeep :preds? t)
                            (("2" (beta)
                              (("2"
                                (name
                                 "iggy"
                                 "v1!1(bspoly!1, bsdegmono!1, cf!1, nvars!1, terms!1,
                                                                               f!1 WITH [(v!1 - 1) := 0], depth!1, intendpts!1, v!1 - 1,
                                                                               ep!1 AND
                                                                                (iepts!1`1 OR
                                                                                  bsdegmono!1(v!1 - 1) /= 0 AND
                                                                                   0 = bsdegmono!1(v!1 - 1) AND iepts!1`2))")
                                (("1"
                                  (replaces -1)
                                  (("1"
                                    (typepred "iggy")
                                    (("1"
                                      (inst? -1)
                                      (("1"
                                        (assert)
                                        (("1"
                                          (hide 2)
                                          (("1"
                                            (skosimp :preds? t)
                                            (("1"
                                              (case-replace
                                               "v!1-1=i!1")
                                              (("1" (assertnil nil)
                                               ("2"
                                                (assert)
                                                (("2"
                                                  (inst? -)
                                                  (("2"
                                                    (ground)
                                                    nil
                                                    nil))
                                                  nil))
                                                nil))
                                              nil))
                                            nil))
                                          nil))
                                        nil)
                                       ("2" (assertnil nil))
                                      nil))
                                    nil))
                                  nil)
                                 ("2"
                                  (hide 2)
                                  (("2"
                                    (reveal "nepep")
                                    (("2"
                                      (inst
                                       -1
                                       "bsdegmono!1"
                                       "nvars!1"
                                       "f!1"
                                       "intendpts!1"
                                       "v!1"
                                       "ep!1")
                                      (("2"
                                        (split -1)
                                        (("1"
                                          (inst
                                           -
                                           "intendpts!1(v!1 - 1)")
                                          (("1"
                                            (inst
                                             -
                                             "0"
                                             "f!1 WITH [(v!1 - 1) := 0]")
                                            (("1"
                                              (inst?)
                                              (("1"
                                                (split -1)
                                                (("1" (propax) nil nil)
                                                 ("2"
                                                  (hide 2)
                                                  (("2"
                                                    (replaces -3)
                                                    nil
                                                    nil))
                                                  nil))
                                                nil)
                                               ("2"
                                                (hide 2)
                                                (("2"
                                                  (skosimp*)
                                                  (("2"
                                                    (assert)
                                                    nil
                                                    nil))
                                                  nil))
                                                nil)
                                               ("3"
                                                (hide 2)
                                                (("3"
                                                  (skosimp*)
                                                  (("3"
                                                    (assert)
                                                    nil
                                                    nil))
                                                  nil))
                                                nil))
                                              nil)
                                             ("2" (assertnil nil)
                                             ("3"
                                              (hide 2)
                                              (("3" (assertnil nil))
                                              nil))
                                            nil)
                                           ("2"
                                            (hide 2)
                                            (("2" (assertnil nil))
                                            nil))
                                          nil)
                                         ("2" (propax) nil nil))
                                        nil))
                                      nil))
                                    nil))
                                  nil)
                                 ("3"
                                  (hide 2)
                                  (("3" (assertnil nil))
                                  nil)
                                 ("4"
                                  (hide 2)
                                  (("4" (assertnil nil))
                                  nil)
                                 ("5"
                                  (hide 2)
                                  (("5" (assertnil nil))
                                  nil))
                                nil))
                              nil))
                            nil))
                          nil)
                         ("3" (hide 2)
                          (("3" (skosimp* :preds? t)
                            (("3" (beta)
                              (("3"
                                (assert)
                                (("3"
                                  (name
                                   "iggy"
                                   "v1!1(bspoly!1, bsdegmono!1, cf!1, nvars!1,
                                                                                                                             terms!1, f!1 WITH [(v!1 - 1) := 1 + k!1],
                                                                                                                             depth!1, intendpts!1, v!1 - 1,
                                                                                                                             ep!1 AND
                                                                                                                              1 + k!1 = bsdegmono!1(v!1 - 1) AND
                                                                                                                               iepts!1`2)")
                                  (("1"
                                    (replaces -1)
                                    (("1"
                                      (expand "combine")
                                      (("1"
                                        (rewrite "min_le")
                                        (("1"
                                          (flatten)
                                          (("1"
                                            (case "k!2 = 1+k!1")
                                            (("1"
                                              (typepred "iggy")
                                              (("1"
                                                (inst?)
                                                (("1"
                                                  (assert)
                                                  (("1"
                                                    (skosimp*
                                                     :preds?
                                                     t)
                                                    (("1"
                                                      (case
                                                       "v!1-1 = i!1")
                                                      (("1"
                                                        (replaces -1)
                                                        (("1"
                                                          (assert)
                                                          nil
                                                          nil))
                                                        nil)
                                                       ("2"
                                                        (assert)
                                                        (("2"
                                                          (inst? -10)
                                                          (("2"
                                                            (ground)
                                                            nil
                                                            nil))
                                                          nil))
                                                        nil))
                                                      nil))
                                                    nil))
                                                  nil))
                                                nil))
                                              nil)
                                             ("2"
                                              (inst? -3)
                                              (("2" (assertnil nil))
                                              nil))
                                            nil))
                                          nil))
                                        nil))
                                      nil))
                                    nil)
                                   ("2"
                                    (hide 2)
                                    (("2"
                                      (reveal "nepep")
                                      (("2"
                                        (inst
                                         -1
                                         "bsdegmono!1"
                                         "nvars!1"
                                         "f!1"
                                         "intendpts!1"
                                         "v!1"
                                         "ep!1")
                                        (("2"
                                          (assert)
                                          (("2"
                                            (inst
                                             -
                                             "intendpts!1(v!1 - 1)")
                                            (("2"
                                              (inst
                                               -
                                               "1+k!1"
                                               "f!1 WITH [(v!1 - 1) := 1 + k!1]")
                                              (("2"
                                                (inst?)
                                                (("2"
                                                  (assert)
                                                  (("2"
                                                    (split -)
                                                    (("1"
                                                      (propax)
                                                      nil
                                                      nil)
                                                     ("2"
                                                      (replace -5)
                                                      (("2"
                                                        (propax)
                                                        nil
                                                        nil))
                                                      nil))
                                                    nil))
                                                  nil))
                                                nil))
                                              nil))
                                            nil))
                                          nil))
                                        nil))
                                      nil))
                                    nil))
                                  nil))
                                nil))
                              nil))
                            nil))
                          nil))
                        nil)
                       ("2" (hide 2) (("2" (assertnil nil)) nil))
                      nil)
                     ("2" (hide 2)
                      (("2" (skosimp*) (("2" (ground) nil nil)) nil))
                      nil)
                     ("3" (hide 2)
                      (("3" (skosimp* :preds? t)
                        (("3" (reveal "nepep")
                          (("3"
                            (inst -1 "bsdegmono!1" "nvars!1" "f!1"
                             "intendpts!1" "v!1" "ep!1")
                            (("3" (assert)
                              (("3"
                                (inst -1 "intendpts!1(v!1 - 1)")
                                (("3"
                                  (inst -1 "d!1" "nf!2")
                                  (("3"
                                    (assert)
                                    (("3"
                                      (inst?)
                                      (("3"
                                        (split -1)
                                        (("1" (propax) nil nil)
                                         ("2"
                                          (replaces -3)
                                          (("2" (replaces -4) nil nil))
                                          nil))
                                        nil))
                                      nil))
                                    nil))
                                  nil))
                                nil))
                              nil))
                            nil))
                          nil))
                        nil))
                      nil)
                     ("4" (hide 2)
                      (("4" (skosimp*) (("4" (assertnil nil)) nil))
                      nil)
                     ("5" (hide 2)
                      (("5" (skosimp*) (("5" (assertnil nil)) nil))
                      nil)
                     ("6" (hide 2)
                      (("6" (skosimp*) (("6" (assertnil nil)) nil))
                      nil)
                     ("7" (hide 2) (("7" (assertnil nil)) nil))
                    nil))
                  nil)
                 ("2" (lemma "iterate_left_induction[Outminmax]")
                  (("2" (inst?)
                    (("1"
                      (inst -1
                       "LAMBDA(i:upto(bsdegmono!1(v!1 - 1)),a:Outminmax): FORALL (k:upto(i)): multibscoeff(bspoly!1, bsdegmono!1, cf!1, nvars!1, terms!1)(nf!1 WITH [(v!1-1):=k]) <= a`ub_max")
                      (("1" (split -)
                        (("1" (inst -2 "v!1-1")
                          (("1" (flatten)
                            (("1" (inst -1 "nf!1(v!1-1)")
                              (("1"
                                (assert)
                                (("1"
                                  (hide -3)
                                  (("1"
                                    (case-replace
                                     "nf!1 WITH [(v!1 - 1) := nf!1(v!1 - 1)] = nf!1")
                                    (("1"
                                      (hide-all-but 1)
                                      (("1"
                                        (decompose-equality 1)
                                        (("1" (grind) nil nil))
                                        nil))
                                      nil))
                                    nil))
                                  nil))
                                nil)
                               ("2"
                                (hide 2)
                                (("2" (assertnil nil))
                                nil))
                              nil))
                            nil)
                           ("2" (assert)
                            (("2" (hide-all-but 1)
                              (("2"
                                (typepred "ep!1")
                                (("2"
                                  (expand "edge_point?")
                                  (("2" (propax) nil nil))
                                  nil))
                                nil))
                              nil))
                            nil))
                          nil)
                         ("2" (hide 2)
                          (("2" (skeep :preds? t)
                            (("2" (beta)
                              (("2"
                                (name
                                 "iggy"
                                 "v1!1(bspoly!1, bsdegmono!1, cf!1, nvars!1, terms!1,
                                                                                                f!1 WITH [(v!1 - 1) := 0], depth!1, intendpts!1, v!1 - 1,
                                                                                                ep!1 AND
                                                                                                 (iepts!1`1 OR
                                                                                                   bsdegmono!1(v!1 - 1) /= 0 AND
                                                                                                    0 = bsdegmono!1(v!1 - 1) AND iepts!1`2))")
                                (("1"
                                  (replaces -1)
                                  (("1"
                                    (typepred "iggy")
                                    (("1"
                                      (inst? -1)
                                      (("1"
                                        (assert)
                                        (("1"
                                          (hide 2)
                                          (("1"
                                            (skosimp :preds? t)
--> --------------------

--> maximum size reached

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

¤ Dauer der Verarbeitung: 0.51 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