Quellcodebibliothek Statistik Leitseite products/Sources/formale Sprachen/PVS/lebesgue/   (Beweissystem der NASA Version 6.0.9©)  Datei vom 28.9.2014 mit Größe 1 MB image not shown  

Quelle  real_lebesgue_scaf.prf

  Sprache: Lisp
 

(real_lebesgue_scaf
 (limit_TCC1 0
  (limit_TCC1-1 nil 3396062613
   ("" (skosimp*)
    (("" (expand "convergent")
      (("" (expand "convergent?")
        (("" (expand "convergence")
          (("" (split)
            (("1" (skosimp*)
              (("1" (inst + "l!1")
                (("1" (rewrite "metric_convergence_def" *)
                  (("1" (expand "metric_converges_to")
                    (("1" (skosimp)
                      (("1" (inst - "r!1")
                        (("1" (skosimp)
                          (("1" (inst + "n!1")
                            (("1" (skosimp)
                              (("1"
                                (inst - "i!1")
                                (("1"
                                  (expand "ball")
                                  (("1" (grind) nil nil))
                                  nil))
                                nil))
                              nil))
                            nil))
                          nil))
                        nil))
                      nil))
                    nil))
                  nil))
                nil))
              nil)
             ("2" (skosimp*)
              (("2" (inst + "l!1")
                (("2" (skosimp)
                  (("2" (rewrite "metric_convergence_def" *)
                    (("2" (expand "metric_converges_to")
                      (("2" (inst - "epsilon!1")
                        (("2" (skosimp)
                          (("2" (inst + "n!1")
                            (("2" (skosimp)
                              (("2"
                                (inst - "i!1")
                                (("2"
                                  (expand "ball")
                                  (("2" (grind) nil nil))
                                  nil))
                                nil))
                              nil))
                            nil))
                          nil))
                        nil))
                      nil))
                    nil))
                  nil))
                nil))
              nil))
            nil))
          nil))
        nil))
      nil))
    nil)
   ((convergent? const-decl "bool" topological_convergence "topology/")
    (convergent? const-decl "bool" convergence_sequences "analysis/")
    (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)
    (metric_converges_to const-decl "bool" metric_space_def
     "metric_space/")
    (posreal nonempty-type-eq-decl nil real_types nil)
    (> const-decl "bool" reals nil)
    (minus_real_is_real application-judgement "real" reals nil)
    (member const-decl "bool" sets nil)
    (real_ge_is_total_order name-judgement "(total_order?[real])"
     real_props nil)
    (real_lt_is_strict_total_order name-judgement
     "(strict_total_order?[real])" real_props nil)
    (ball const-decl "set[T]" metric_space_def "metric_space/")
    (- const-decl "[numfield, numfield -> numfield]" number_fields nil)
    (abs const-decl "{n: nonneg_real | n >= m AND n >= -m}" real_defs
         nil)
    (- const-decl "[numfield -> numfield]" number_fields nil)
    (numfield nonempty-type-eq-decl nil number_fields nil)
    (AND const-decl "[bool, bool -> bool]" booleans nil)
    (nonneg_real nonempty-type-eq-decl nil real_types nil)
    (>= const-decl "bool" reals nil)
    (bool nonempty-type-eq-decl nil booleans nil)
    (sequence type-eq-decl nil sequences nil)
    (nat nonempty-type-eq-decl nil naturalnumbers 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)
    (metric_convergence_def formula-decl nil metric_space
     "metric_space/")
    (convergence const-decl "bool" convergence_sequences "analysis/")
    (real_minus_real_is_real application-judgement "real" reals nil))
   nil))
 (lebesgue_outer_measure_TCC1 0
  (lebesgue_outer_measure_TCC1-1 nil 3397030001
   ("" (skosimp)
    (("" (skolem + ("n!1"))
      (("" (typepred "I!1(n!1)")
        (("" (expand "bounded_open_interval?")
          (("" (expand "bounded_interval?") (("" (flatten) nil nil))
            nil))
          nil))
        nil))
      nil))
    nil)
   ((bounded_interval? const-decl "bool" real_topology "metric_space/")
    (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)
    (set type-eq-decl nil sets nil)
    (bounded_open_interval? const-decl "bool" real_topology
     "metric_space/")
    (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)
    (bounded_open_interval nonempty-type-eq-decl nil real_topology
     "metric_space/")
    (sequence type-eq-decl nil sequences nil))
   nil))
 (lebesgue_outer_measure_TCC2 0
  (lebesgue_outer_measure_TCC2-1 nil 3407841244
   (""
    (name-replace "L" "(LAMBDA A:
             x_inf({z |
                      EXISTS I:
                        x_le(x_sum(o[nat, interval, extended_nnreal]
                                       (x_length, I)),
                             z)
                         AND subset?[real](A, IUnion[nat, real](I))}))")
    (("1" (expand "outer_measure?")
      (("1" (case-replace "om_empty?(L)")
        (("1" (case-replace "om_increasing?(L)")
          (("1" (expand "om_countably_subadditive?")
            (("1" (skosimp)
              (("1" (expand "x_le")
                (("1" (flatten)
                  (("1" (assert)
                    (("1" (case "forall (n:nat): L(X!1(n))`1")
                      (("1"
                        (case "forall (n:nat,r:posreal): exists I: subset?[real](X!1(n),IUnion[nat,real](I)) & x_lt(x_sum(LAMBDA (n: nat):x_length(I(n))),x_add((TRUE,r/2^n),L(X!1(n))))")
                        (("1"
                          (case "forall (r:posreal): EXISTS I:
          subset?[real](IUnion(X!1), IUnion[nat, real](I)) &
           x_lt(L(IUnion(X!1)),
                x_add((TRUE, r),x_sum(L o X!1)))")
                          (("1" (hide -2)
                            (("1" (inst-cp - "1")
                              (("1"
                                (skosimp)
                                (("1"
                                  (expand "x_add" -3)
                                  (("1"
                                    (expand "x_lt" -3)
                                    (("1"
                                      (flatten)
                                      (("1"
                                        (assert)
                                        (("1"
                                          (case
                                           "x_sum(L o X!1)`2<L(IUnion(X!1))`2")
                                          (("1"
                                            (hide -3 -5 1)
                                            (("1"
                                              (inst
                                               -
                                               "L(IUnion(X!1))`2-x_sum(L o X!1)`2")
                                              (("1"
                                                (skosimp)
                                                (("1"
                                                  (expand "x_add")
                                                  (("1"
                                                    (expand "x_lt")
                                                    (("1"
                                                      (propax)
                                                      nil
                                                      nil))
                                                    nil))
                                                  nil))
                                                nil))
                                              nil))
                                            nil)
                                           ("2" (assertnil nil))
                                          nil))
                                        nil))
                                      nil))
                                    nil))
                                  nil))
                                nil))
                              nil))
                            nil)
                           ("2" (hide 2)
                            (("2" (skosimp)
                              (("2"
                                (case
                                 "EXISTS I:
        subset?[real](IUnion(X!1), IUnion[nat, real](I)) &
         x_lt(L(IUnion(X!1)),x_sum(LAMBDA n: x_add((TRUE, (r!1/2) / 2 ^ n), L(X!1(n)))))")
                                (("1"
                                  (skosimp)
                                  (("1"
                                    (inst + "I!1")
                                    (("1"
                                      (hide -3)
                                      (("1"
                                        (assert)
                                        (("1"
                                          (case
                                           "x_eq(x_sum(LAMBDA n: x_add((TRUE, (r!1 / 2) / 2 ^ n), L(X!1(n)))),x_add((TRUE, r!1), x_sum(L o X!1)))")
                                          (("1"
                                            (name-replace
                                             "LHS"
                                             "L(IUnion(X!1))")
                                            (("1"
                                              (name-replace
                                               "MID"
                                               "x_sum(LAMBDA n: x_add((TRUE, (r!1 / 2) / 2 ^ n), L(X!1(n))))")
                                              (("1"
                                                (name-replace
                                                 "RHS"
                                                 "x_add((TRUE, r!1), x_sum(L o X!1))")
                                                (("1"
                                                  (hide-all-but
                                                   (-1 -3 1))
                                                  (("1"
                                                    (expand "x_lt")
                                                    (("1"
                                                      (expand "x_eq")
                                                      (("1"
                                                        (flatten)
                                                        (("1"
                                                          (assert)
                                                          (("1"
                                                            (flatten)
                                                            (("1"
                                                              (assert)
                                                              nil
                                                              nil))
                                                            nil))
                                                          nil))
                                                        nil))
                                                      nil))
                                                    nil))
                                                  nil))
                                                nil))
                                              nil))
                                            nil)
                                           ("2"
                                            (hide -1 -2 2)
                                            (("2"
                                              (expand "x_add")
                                              (("2"
                                                (expand "x_eq")
                                                (("2"
                                                  (expand "o ")
                                                  (("2"
                                                    (case-replace
                                                     "x_sum(LAMBDA n:
              IF L(X!1(n))`1 THEN (TRUE, (r!1 / 2) / 2 ^ n + L(X!1(n))`2)
              ELSE (FALSE, 0)
              ENDIF)`1")
                                                    (("1"
                                                      (expand "x_sum")
                                                      (("1"
                                                        (prop)
                                                        (("1"
                                                          (replace -3)
                                                          (("1"
                                                            (replace
                                                             -5)
                                                            (("1"
                                                              (replace
                                                               -3)
                                                              (("1"
                                                                (replace
                                                                 -1)
                                                                (("1"
                                                                  (lemma
                                                                   "const_geometric_series"
                                                                   ("x"
                                                                    "1/2"
                                                                    "c"
                                                                    "r!1/2"))
                                                                  (("1"
                                                                    (case-replace
                                                                     "r!1 / 2 / (1 - 1 / 2)=r!1")
                                                                    (("1"
                                                                      (expand
                                                                       "abs"
                                                                       -2)
                                                                      (("1"
                                                                        (hide
                                                                         -1)
                                                                        (("1"
                                                                          (expand
                                                                           "convergent?")
                                                                          (("1"
                                                                            (skosimp*)
                                                                            (("1"
                                                                              (lemma
                                                                               "convergence_sequences.limit_def"
                                                                               ("v"
                                                                                "series(LAMBDA (i:nat):
                    IF L(X!1(i))`1 THEN (r!1 / 2) / 2 ^ i + L(X!1(i))`2
                    ELSE 0
                    ENDIF)"
                                                                                "l"
                                                                                "l!2"))
                                                                              (("1"
                                                                                (assert)
                                                                                (("1"
                                                                                  (replace
                                                                                   -1)
                                                                                  (("1"
                                                                                    (hide
                                                                                     -1
                                                                                     -4
                                                                                     -7
                                                                                     -8)
                                                                                    (("1"
                                                                                      (lemma
                                                                                       "convergence_sequences.limit_def"
                                                                                       ("v"
                                                                                        "series(LAMBDA (i:nat):
                    L(X!1(i))`2)"
                                                                                        "l"
                                                                                        "l!1"))
                                                                                      (("1"
                                                                                        (assert)
                                                                                        (("1"
                                                                                          (replace
                                                                                           -1)
                                                                                          (("1"
                                                                                            (hide
                                                                                             -1)
                                                                                            (("1"
                                                                                              (lemma
                                                                                               "cnv_seq_sum"
                                                                                               ("s1"
                                                                                                "series(LAMBDA (i:nat): L(X!1(i))`2)"
                                                                                                "l1"
                                                                                                "l!1"
                                                                                                "s2"
                                                                                                "series(r!1 / 2 * geometric(1 / 2))"
                                                                                                "l2"
                                                                                                "r!1"))
                                                                                              (("1"
                                                                                                (assert)
                                                                                                (("1"
                                                                                                  (rewrite
                                                                                                   "series_sum")
                                                                                                  (("1"
                                                                                                    (expand
                                                                                                     "+"
                                                                                                     -1)
                                                                                                    (("1"
                                                                                                      (case-replace
                                                                                                       "(LAMBDA (i:nat):
                           IF L(X!1(i))`1
                             THEN (r!1 / 2) / 2 ^ i + L(X!1(i))`2
                           ELSE 0
                           ENDIF)=(LAMBDA (x: nat):
                           (r!1 / 2 * geometric(1 / 2))(x) + L(X!1(x))`2)")
                                                                                                      (("1"
                                                                                                        (hide
                                                                                                         -1
                                                                                                         -6)
                                                                                                        (("1"
                                                                                                          (lemma
                                                                                                           "convergence_sequences.unique_limit"
                                                                                                           ("u"
                                                                                                            "series(LAMBDA (x: nat):
                           (r!1 / 2 * geometric(1 / 2))(x) + L(X!1(x))`2)"
                                                                                                            "l1"
                                                                                                            "l!2"
                                                                                                            "l2"
                                                                                                            "l!1+r!1"))
                                                                                                          (("1"
                                                                                                            (assert)
                                                                                                            nil
                                                                                                            nil))
                                                                                                          nil))
                                                                                                        nil)
                                                                                                       ("2"
                                                                                                        (apply-extensionality
                                                                                                         :hide?
                                                                                                         t)
                                                                                                        (("2"
                                                                                                          (inst
                                                                                                           -5
                                                                                                           "x!1")
                                                                                                          (("2"
                                                                                                            (assert)
                                                                                                            (("2"
                                                                                                              (expand
                                                                                                               "geometric")
                                                                                                              (("2"
                                                                                                                (expand
                                                                                                                 "*")
                                                                                                                (("2"
                                                                                                                  (rewrite
                                                                                                                   "inv_expt")
                                                                                                                  (("2"
                                                                                                                    (assert)
                                                                                                                    nil
                                                                                                                    nil))
                                                                                                                  nil))
                                                                                                                nil))
                                                                                                              nil))
                                                                                                            nil))
                                                                                                          nil))
                                                                                                        nil))
                                                                                                      nil))
                                                                                                    nil))
                                                                                                  nil))
                                                                                                nil))
                                                                                              nil))
                                                                                            nil))
                                                                                          nil))
                                                                                        nil))
                                                                                      nil))
                                                                                    nil))
                                                                                  nil))
                                                                                nil))
                                                                              nil))
                                                                            nil))
                                                                          nil))
                                                                        nil))
                                                                      nil)
                                                                     ("2"
                                                                      (hide-all-but
                                                                       1)
                                                                      (("2"
                                                                        (assert)
                                                                        nil
                                                                        nil))
                                                                      nil))
                                                                    nil))
                                                                  nil))
                                                                nil))
                                                              nil))
                                                            nil))
                                                          nil))
                                                        nil))
                                                      nil)
                                                     ("2"
                                                      (hide 2)
                                                      (("2"
                                                        (expand
                                                         "x_sum")
                                                        (("2"
                                                          (prop)
                                                          (("1"
                                                            (skosimp)
                                                            (("1"
                                                              (inst
                                                               -
                                                               "i!1")
                                                              (("1"
                                                                (assert)
                                                                nil
                                                                nil))
                                                              nil))
                                                            nil)
                                                           ("2"
                                                            (lemma
                                                             "geometric_conv"
                                                             ("x"
                                                              "1/2"))
                                                            (("2"
                                                              (expand
                                                               "abs")
                                                              (("2"
                                                                (lemma
                                                                 "series_scal"
                                                                 ("c"
                                                                  "r!1/2"
                                                                  "a"
                                                                  "geometric(1 / 2)"))
                                                                (("2"
                                                                  (lemma
                                                                   "convergent_scal"
                                                                   ("s1"
                                                                    "series(geometric(1 / 2))"
                                                                    "a"
                                                                    "r!1/2"))
                                                                  (("2"
                                                                    (assert)
                                                                    (("2"
                                                                      (replace
                                                                       -2)
                                                                      (("2"
                                                                        (hide
                                                                         -2
                                                                         -3)
                                                                        (("2"
                                                                          (lemma
                                                                           "convergent_sum"
                                                                           ("s1"
                                                                            "series(LAMBDA n: r!1 / 2 * geometric(1 / 2)(n))"
                                                                            "s2"
                                                                            "series(LAMBDA n: L(X!1(n))`2)"))
                                                                          (("2"
                                                                            (assert)
                                                                            (("2"
                                                                              (hide
                                                                               -2
                                                                               -3)
                                                                              (("2"
                                                                                (rewrite
                                                                                 "series_sum")
                                                                                (("2"
                                                                                  (expand
                                                                                   "+"
                                                                                   -1)
                                                                                  (("2"
                                                                                    (case-replace
                                                                                     "(LAMBDA (x: nat):
                          r!1 / 2 * geometric(1 / 2)(x) + L(X!1(x))`2)=(LAMBDA n:
                          IF L(X!1(n))`1
                            THEN (r!1 / 2) / 2 ^ n + L(X!1(n))`2
                          ELSE 0
                          ENDIF)")
                                                                                    (("2"
                                                                                      (apply-extensionality
                                                                                       :hide?
                                                                                       t)
                                                                                      (("2"
                                                                                        (inst
                                                                                         -
                                                                                         "x!1")
                                                                                        (("2"
                                                                                          (assert)
                                                                                          (("2"
                                                                                            (expand
                                                                                             "geometric")
                                                                                            (("2"
                                                                                              (rewrite
                                                                                               "inv_expt"
                                                                                               1)
                                                                                              (("2"
                                                                                                (assert)
                                                                                                nil
                                                                                                nil))
                                                                                              nil))
                                                                                            nil))
                                                                                          nil))
                                                                                        nil))
                                                                                      nil))
                                                                                    nil))
                                                                                  nil))
                                                                                nil))
                                                                              nil))
                                                                            nil))
                                                                          nil))
                                                                        nil))
                                                                      nil))
                                                                    nil))
                                                                  nil))
                                                                nil))
                                                              nil))
                                                            nil))
                                                          nil))
                                                        nil))
                                                      nil))
                                                    nil))
                                                  nil))
                                                nil))
                                              nil))
                                            nil))
                                          nil))
                                        nil))
                                      nil))
                                    nil))
                                  nil)
                                 ("2"
                                  (hide 2)
                                  (("2"
                                    (lemma
                                     "posreal_div_posreal_is_posreal"
                                     ("px" "r!1" "py" "2"))
                                    (("2"
                                      (inst - "_" "r!1/2")
                                      (("2"
                                        (name-replace "R" "r!1/2")
                                        (("2"
                                          (name
                                           "I_n"
                                           "lambda n: choose({I | subset?[real](X!1(n), IUnion[nat, real](I)) &
           x_lt(x_sum(LAMBDA (n: nat): x_length(I(n))),
                x_add((TRUE, R / 2 ^ n), L(X!1(n))))})")
                                          (("1"
                                            (case
                                             "forall n: subset?[real](X!1(n), IUnion[nat, real](I_n(n))) &
           x_lt(x_sum(LAMBDA (m: nat): x_length(I_n(n)(m))),
                x_add((TRUE, R / 2 ^ n), L(X!1(n))))")
                                            (("1"
                                              (lemma
                                               "double_index_n_ij")
                                              (("1"
                                                (lemma
                                                 "double_index_ij_n")
                                                (("1"
                                                  (name-replace
                                                   "NN"
                                                   "double_index_n")
                                                  (("1"
                                                    (name-replace
                                                     "II"
                                                     "double_index_i")
                                                    (("1"
                                                      (name-replace
                                                       "JJ"
                                                       "double_index_j")
                                                      (("1"
                                                        (inst
                                                         +
                                                         "lambda (n:nat): I_n(II(n))(JJ(n))")
                                                        (("1"
                                                          (case-replace
                                                           "subset?[real]
          (IUnion(X!1),
           IUnion[nat, real](LAMBDA (n: nat): I_n(II(n))(JJ(n))))")
                                                          (("1"
                                                            (hide -5)
                                                            (("1"
                                                              (case
                                                               "x_lt(x_sum(LAMBDA n:x_sum(LAMBDA (m: nat): x_length(I_n(n)(m)))),x_sum(LAMBDA n: x_add((TRUE, R/2^n), L(X!1(n)))))")
                                                              (("1"
                                                                (case
                                                                 "x_le(L(IUnion(X!1)),x_sum(LAMBDA n: x_sum(LAMBDA (m: nat): x_length(I_n(n)(m)))))")
                                                                (("1"
                                                                  (name-replace
                                                                   "LHS"
                                                                   "L(IUnion(X!1))")
                                                                  (("1"
                                                                    (name-replace
                                                                     "RHS"
                                                                     "x_sum(LAMBDA n: x_add((TRUE, R / 2 ^ n), L(X!1(n))))")
                                                                    (("1"
                                                                      (name-replace
                                                                       "MID"
                                                                       "x_sum(LAMBDA n: x_sum(LAMBDA (m: nat): x_length(I_n(n)(m))))")
                                                                      (("1"
                                                                        (hide-all-but
                                                                         (-1
                                                                          -2
                                                                          1))
                                                                        (("1"
                                                                          (expand
                                                                           "x_le")
                                                                          (("1"
                                                                            (expand
                                                                             "x_lt")
                                                                            (("1"
                                                                              (flatten)
                                                                              (("1"
                                                                                (assert)
                                                                                (("1"
                                                                                  (flatten)
                                                                                  (("1"
                                                                                    (assert)
                                                                                    (("1"
                                                                                      (flatten)
                                                                                      (("1"
                                                                                        (assert)
                                                                                        nil
                                                                                        nil))
                                                                                      nil))
                                                                                    nil))
                                                                                  nil))
                                                                                nil))
                                                                              nil))
                                                                            nil))
                                                                          nil))
                                                                        nil))
                                                                      nil))
                                                                    nil))
                                                                  nil)
                                                                 ("2"
                                                                  (hide
                                                                   -1
                                                                   2)
                                                                  (("2"
                                                                    (lemma
                                                                     "double_x_sum"
                                                                     ("U"
                                                                      "lambda (i,j:nat): x_length(I_n(i)(j))"))
                                                                    (("2"
                                                                      (case
                                                                       "x_le(L(IUnion(X!1)),x_sum(single_index(LAMBDA (i, j: nat): x_length(I_n(i)(j)))))")
                                                                      (("1"
                                                                        (assert)
                                                                        (("1"
                                                                          (name-replace
                                                                           "LHS"
                                                                           "L(IUnion(X!1))")
                                                                          (("1"
                                                                            (name-replace
                                                                             "RHS"
                                                                             "x_sum(LAMBDA n: x_sum(LAMBDA (m: nat): x_length(I_n(n)(m))))")
                                                                            (("1"
                                                                              (name-replace
                                                                               "MID"
                                                                               "x_sum(single_index(LAMBDA (i, j: nat): x_length(I_n(i)(j))))")
                                                                              (("1"
                                                                                (hide-all-but
                                                                                 (-1
                                                                                  -2
                                                                                  1))
                                                                                (("1"
                                                                                  (expand
                                                                                   "x_eq")
                                                                                  (("1"
                                                                                    (expand
                                                                                     "x_le")
                                                                                    (("1"
                                                                                      (flatten)
                                                                                      (("1"
                                                                                        (assert)
                                                                                        (("1"
                                                                                          (flatten)
                                                                                          (("1"
                                                                                            (assert)
                                                                                            nil
                                                                                            nil))
                                                                                          nil))
                                                                                        nil))
                                                                                      nil))
                                                                                    nil))
                                                                                  nil))
                                                                                nil))
                                                                              nil))
                                                                            nil))
                                                                          nil))
                                                                        nil)
                                                                       ("2"
                                                                        (hide
                                                                         -1
                                                                         2)
                                                                        (("2"
                                                                          (case
                                                                           "forall A,I: subset?(A,IUnion(I)) => x_le(L(A),x_sum(x_length o I))")
                                                                          (("1"
                                                                            (expand
                                                                             "single_index")
                                                                            (("1"
                                                                              (inst
                                                                               -
                                                                               "IUnion(X!1)"
                                                                               "lambda n: I_n(II(n))(JJ(n))")
                                                                              (("1"
                                                                                (replace
                                                                                 -2)
                                                                                (("1"
                                                                                  (expand
                                                                                   "o"
                                                                                   -1)
                                                                                  (("1"
                                                                                    (expand
                                                                                     "JJ")
                                                                                    (("1"
                                                                                      (expand
                                                                                       "II")
                                                                                      (("1"
                                                                                        (propax)
                                                                                        nil
                                                                                        nil))
                                                                                      nil))
                                                                                    nil))
                                                                                  nil))
                                                                                nil))
                                                                              nil))
                                                                            nil)
                                                                           ("2"
                                                                            (hide-all-but
                                                                             1)
                                                                            (("2"
                                                                              (skosimp)
                                                                              (("2"
                                                                                (expand
                                                                                 "x_le")
                                                                                (("2"
                                                                                  (expand
                                                                                   "o ")
                                                                                  (("2"
                                                                                    (expand
                                                                                     "L")
                                                                                    (("2"
                                                                                      (expand
                                                                                       "o ")
                                                                                      (("2"
                                                                                        (case-replace
                                                                                         "x_sum(LAMBDA (x: nat): x_length(I!1(x)))`1")
                                                                                        (("1"
                                                                                          (case-replace
                                                                                           "x_inf({z |
                EXISTS I:
                  x_le(x_sum(LAMBDA (x: nat): x_length(I(x))), z) AND
                   subset?[real](A!1, IUnion[nat, real](I))})`1")
                                                                                          (("1"
                                                                                            (expand
                                                                                             "x_inf")
                                                                                            (("1"
                                                                                              (case-replace
                                                                                               "FORALL (x_1:
                   ({z |
                       EXISTS I:
                         x_le(x_sum(LAMBDA (x: nat): x_length(I(x))), z)
                          AND subset?[real](A!1, IUnion[nat, real](I))})):
           NOT x_1`1")
                                                                                              (("1"
                                                                                                (replace
                                                                                                 1
                                                                                                 2)
                                                                                                (("1"
                                                                                                  (skosimp)
                                                                                                  (("1"
                                                                                                    (hide
                                                                                                     -2)
                                                                                                    (("1"
                                                                                                      (typepred
                                                                                                       "x!1")
                                                                                                      (("1"
                                                                                                        (skosimp)
                                                                                                        (("1"
                                                                                                          (typepred
                                                                                                           "glb({z_1: real |
             EXISTS (x_1: extended_nnreal):
               (EXISTS I:
                  x_le(x_sum(LAMBDA (x: nat): x_length(I(x))), x_1) AND
                   subset?[real](A!1, IUnion[nat, real](I)))
                AND x_1`1 AND x_1`2 = z_1})")
                                                                                                          (("1"
                                                                                                            (name-replace
                                                                                                             "GLB"
                                                                                                             "glb({z_1: real |
             EXISTS (x_1: extended_nnreal):
               (EXISTS I:
                  x_le(x_sum(LAMBDA (x: nat): x_length(I(x))), x_1) AND
                   subset?[real](A!1, IUnion[nat, real](I)))
                AND x_1`1 AND x_1`2 = z_1})")
                                                                                                            (("1"
                                                                                                              (expand
                                                                                                               "greatest_lower_bound?")
                                                                                                              (("1"
                                                                                                                (flatten)
                                                                                                                (("1"
                                                                                                                  (expand
                                                                                                                   "lower_bound?")
                                                                                                                  (("1"
                                                                                                                    (hide
                                                                                                                     -2)
                                                                                                                    (("1"
                                                                                                                      (inst
                                                                                                                       -
                                                                                                                       "x_sum(LAMBDA (x: nat): x_length(I!1(x)))`2")
                                                                                                                      (("1"
                                                                                                                        (hide
                                                                                                                         2)
                                                                                                                        (("1"
                                                                                                                          (inst
                                                                                                                           +
                                                                                                                           "x_sum(LAMBDA (x: nat): x_length(I!1(x)))")
                                                                                                                          (("1"
                                                                                                                            (replace
                                                                                                                             -4)
                                                                                                                            (("1"
                                                                                                                              (inst
                                                                                                                               +
                                                                                                                               "I!1")
                                                                                                                              (("1"
                                                                                                                                (assert)
                                                                                                                                (("1"
                                                                                                                                  (expand
                                                                                                                                   "x_le")
                                                                                                                                  (("1"
                                                                                                                                    (propax)
                                                                                                                                    nil
                                                                                                                                    nil))
                                                                                                                                  nil))
                                                                                                                                nil))
                                                                                                                              nil))
                                                                                                                            nil)
                                                                                                                           ("2"
                                                                                                                            (skosimp)
                                                                                                                            (("2"
                                                                                                                              (typepred
                                                                                                                               "I!1(x!2)")
                                                                                                                              (("2"
                                                                                                                                (expand
                                                                                                                                 "bounded_open_interval?")
                                                                                                                                (("2"
                                                                                                                                  (expand
                                                                                                                                   "bounded_interval?")
                                                                                                                                  (("2"
                                                                                                                                    (flatten)
                                                                                                                                    nil
                                                                                                                                    nil))
                                                                                                                                  nil))
                                                                                                                                nil))
                                                                                                                              nil))
                                                                                                                            nil))
                                                                                                                          nil))
                                                                                                                        nil)
                                                                                                                       ("2"
                                                                                                                        (skosimp)
                                                                                                                        (("2"
                                                                                                                          (typepred
                                                                                                                           "I!1(x!2)")
                                                                                                                          (("2"
                                                                                                                            (expand
                                                                                                                             "bounded_open_interval?")
                                                                                                                            (("2"
                                                                                                                              (expand
                                                                                                                               "bounded_interval?")
                                                                                                                              (("2"
                                                                                                                                (flatten)
                                                                                                                                nil
                                                                                                                                nil))
                                                                                                                              nil))
                                                                                                                            nil))
                                                                                                                          nil))
                                                                                                                        nil))
                                                                                                                      nil))
                                                                                                                    nil))
                                                                                                                  nil))
                                                                                                                nil))
                                                                                                              nil))
                                                                                                            nil)
                                                                                                           ("2"
                                                                                                            (hide
                                                                                                             2)
                                                                                                            (("2"
                                                                                                              (split
                                                                                                               1)
                                                                                                              (("1"
                                                                                                                (expand
                                                                                                                 "nonempty?")
                                                                                                                (("1"
                                                                                                                  (expand
                                                                                                                   "empty?")
                                                                                                                  (("1"
                                                                                                                    (expand
                                                                                                                     "member")
                                                                                                                    (("1"
                                                                                                                      (inst
                                                                                                                       -
                                                                                                                       "x!1`2")
                                                                                                                      (("1"
                                                                                                                        (inst
                                                                                                                         +
                                                                                                                         "x!1")
                                                                                                                        (("1"
                                                                                                                          (assert)
                                                                                                                          nil
                                                                                                                          nil))
                                                                                                                        nil))
                                                                                                                      nil))
                                                                                                                    nil))
                                                                                                                  nil))
                                                                                                                nil)
                                                                                                               ("2"
                                                                                                                (expand
                                                                                                                 "bounded_below?")
                                                                                                                (("2"
                                                                                                                  (inst
                                                                                                                   +
                                                                                                                   "0")
                                                                                                                  (("2"
                                                                                                                    (expand
                                                                                                                     "lower_bound?")
                                                                                                                    (("2"
                                                                                                                      (skosimp)
                                                                                                                      (("2"
                                                                                                                        (typepred
                                                                                                                         "s!1")
                                                                                                                        (("2"
                                                                                                                          (skosimp)
                                                                                                                          (("2"
                                                                                                                            (skosimp)
                                                                                                                            (("2"
                                                                                                                              (assert)
                                                                                                                              nil
                                                                                                                              nil))
                                                                                                                            nil))
                                                                                                                          nil))
                                                                                                                        nil))
                                                                                                                      nil))
                                                                                                                    nil))
                                                                                                                  nil))
                                                                                                                nil))
                                                                                                              nil))
                                                                                                            nil)
                                                                                                           ("3"
                                                                                                            (hide-all-but
                                                                                                             1)
                                                                                                            (("3"
                                                                                                              (skosimp)
                                                                                                              (("3"
                                                                                                                (typepred
                                                                                                                 "I!3(x!2)")
                                                                                                                (("3"
                                                                                                                  (expand
                                                                                                                   "bounded_open_interval?")
                                                                                                                  (("3"
                                                                                                                    (expand
                                                                                                                     "bounded_interval?")
                                                                                                                    (("3"
                                                                                                                      (flatten)
                                                                                                                      nil
                                                                                                                      nil))
                                                                                                                    nil))
                                                                                                                  nil))
                                                                                                                nil))
                                                                                                              nil))
                                                                                                            nil))
                                                                                                          nil))
                                                                                                        nil))
                                                                                                      nil))
                                                                                                    nil))
                                                                                                  nil))
                                                                                                nil))
                                                                                              nil))
                                                                                            nil)
                                                                                           ("2"
                                                                                            (hide
                                                                                             2)
                                                                                            (("2"
                                                                                              (expand
                                                                                               "x_inf")
                                                                                              (("2"
                                                                                                (prop)
                                                                                                (("2"
                                                                                                  (inst
                                                                                                   -
                                                                                                   "x_sum(LAMBDA (x: nat): x_length(I!1(x)))")
                                                                                                  (("1"
                                                                                                    (inst
                                                                                                     +
                                                                                                     "I!1")
                                                                                                    (("1"
                                                                                                      (assert)
                                                                                                      (("1"
                                                                                                        (expand
                                                                                                         "x_le")
                                                                                                        (("1"
                                                                                                          (propax)
                                                                                                          nil
                                                                                                          nil))
                                                                                                        nil))
                                                                                                      nil))
                                                                                                    nil)
                                                                                                   ("2"
                                                                                                    (skosimp)
                                                                                                    (("2"
                                                                                                      (typepred
                                                                                                       "I!1(x!1)")
                                                                                                      (("2"
                                                                                                        (expand
                                                                                                         "bounded_open_interval?")
                                                                                                        (("2"
                                                                                                          (expand
                                                                                                           "bounded_interval?")
                                                                                                          (("2"
                                                                                                            (flatten)
                                                                                                            nil
                                                                                                            nil))
                                                                                                          nil))
                                                                                                        nil))
                                                                                                      nil))
                                                                                                    nil))
                                                                                                  nil))
                                                                                                nil))
                                                                                              nil))
                                                                                            nil)
                                                                                           ("3"
                                                                                            (hide
                                                                                             2)
                                                                                            (("3"
                                                                                              (skosimp)
                                                                                              (("3"
                                                                                                (typepred
                                                                                                 "I!2(x!1)")
                                                                                                (("3"
                                                                                                  (expand
                                                                                                   "bounded_open_interval?")
                                                                                                  (("3"
                                                                                                    (expand
                                                                                                     "bounded_interval?")
                                                                                                    (("3"
                                                                                                      (flatten)
                                                                                                      nil
                                                                                                      nil))
                                                                                                    nil))
                                                                                                  nil))
                                                                                                nil))
                                                                                              nil))
                                                                                            nil))
                                                                                          nil)
                                                                                         ("2"
                                                                                          (replace
                                                                                           1)
                                                                                          (("2"
                                                                                            (propax)
                                                                                            nil
                                                                                            nil))
                                                                                          nil)
                                                                                         ("3"
                                                                                          (skosimp)
                                                                                          (("3"
                                                                                            (typepred
                                                                                             "I!1(x!1)")
                                                                                            (("3"
                                                                                              (expand
                                                                                               "bounded_open_interval?")
                                                                                              (("3"
                                                                                                (expand
                                                                                                 "bounded_interval?")
                                                                                                (("3"
                                                                                                  (flatten)
                                                                                                  nil
                                                                                                  nil))
                                                                                                nil))
                                                                                              nil))
                                                                                            nil))
                                                                                          nil))
                                                                                        nil))
                                                                                      nil))
                                                                                    nil))
                                                                                  nil))
                                                                                nil))
                                                                              nil))
                                                                            nil)
                                                                           ("3"
                                                                            (skosimp)
                                                                            (("3"
                                                                              (skosimp)
                                                                              (("3"
                                                                                (typepred
                                                                                 "I!1(x1!1)")
                                                                                (("3"
                                                                                  (expand
                                                                                   "bounded_open_interval?")
                                                                                  (("3"
                                                                                    (expand
                                                                                     "bounded_interval?")
                                                                                    (("3"
                                                                                      (flatten)
                                                                                      nil
                                                                                      nil))
                                                                                    nil))
                                                                                  nil))
                                                                                nil))
                                                                              nil))
                                                                            nil))
                                                                          nil))
                                                                        nil))
                                                                      nil))
                                                                    nil))
                                                                  nil))
                                                                nil)
                                                               ("2"
                                                                (hide
                                                                 2)
                                                                (("2"
                                                                  (expand
                                                                   "x_sum"
                                                                   1
                                                                   3)
                                                                  (("2"
                                                                    (expand
                                                                     "x_sum"
                                                                     1
                                                                     1)
                                                                    (("2"
                                                                      (expand
                                                                       "x_lt"
                                                                       1
                                                                       1)
                                                                      (("2"
                                                                        (case-replace
                                                                         "FORALL (i:nat): x_add((TRUE, R / 2 ^ i), L(X!1(i)))`1")
                                                                        (("1"
                                                                          (case-replace
                                                                           "FORALL (i:nat): x_sum(LAMBDA (m: nat): x_length(I_n(i)(m)))`1")
                                                                          (("1"
                                                                            (flatten)
                                                                            (("1"
                                                                              (replace
                                                                               -3)
                                                                              (("1"
                                                                                (case-replace
                                                                                 "convergence_sequences.convergent?(series(LAMBDA (i:nat):
                             x_add((TRUE, R / 2 ^ i), L(X!1(i)))`2))")
                                                                                (("1"
                                                                                  (case-replace
                                                                                   "convergence_sequences.convergent?(series(LAMBDA (i:nat):
                              x_sum(LAMBDA
                                    (m: nat):
                                    x_length(I_n(i)(m)))`2))")
                                                                                  (("1"
                                                                                    (case
                                                                                     "forall (nna,nnb:sequence[nnreal]): convergence_sequences.convergent?(series(nna))&convergence_sequences.convergent?(series(nnb))&(forall n: nna(n)<nnb(n)) => convergence_sequences.limit(series(nna))<convergence_sequences.limit(series(nnb))")
                                                                                    (("1"
                                                                                      (inst
                                                                                       -
                                                                                       "LAMBDA (i:nat): x_sum(LAMBDA (m: nat): x_length(I_n(i)(m)))`2"
                                                                                       "LAMBDA (i:nat): x_add((TRUE, R / 2 ^ i), L(X!1(i)))`2")
                                                                                      (("1"
                                                                                        (replace
                                                                                         -2)
                                                                                        (("1"
                                                                                          (replace
                                                                                           -3)
                                                                                          (("1"
                                                                                            (split
                                                                                             -1)
                                                                                            (("1"
                                                                                              (propax)
                                                                                              nil
                                                                                              nil)
                                                                                             ("2"
                                                                                              (hide
                                                                                               -1
                                                                                               -2
                                                                                               2)
                                                                                              (("2"
                                                                                                (skosimp)
                                                                                                (("2"
                                                                                                  (inst
                                                                                                   -6
                                                                                                   "n!1")
                                                                                                  (("2"
                                                                                                    (inst
                                                                                                     -
                                                                                                     "n!1")
                                                                                                    (("2"
                                                                                                      (inst
                                                                                                       -
                                                                                                       "n!1")
                                                                                                      (("2"
                                                                                                        (flatten)
                                                                                                        (("2"
                                                                                                          (expand
                                                                                                           "x_lt")
                                                                                                          (("2"
                                                                                                            (assert)
                                                                                                            nil
                                                                                                            nil))
                                                                                                          nil))
                                                                                                        nil))
                                                                                                      nil))
                                                                                                    nil))
                                                                                                  nil))
                                                                                                nil))
                                                                                              nil))
                                                                                            nil))
                                                                                          nil))
                                                                                        nil)
                                                                                       ("2"
                                                                                        (skosimp)
                                                                                        (("2"
                                                                                          (typepred
                                                                                           "I_n(i!1)(m!1)")
                                                                                          (("2"
                                                                                            (expand
                                                                                             "bounded_open_interval?")
                                                                                            (("2"
                                                                                              (expand
                                                                                               "bounded_interval?")
                                                                                              (("2"
                                                                                                (flatten)
                                                                                                nil
                                                                                                nil))
                                                                                              nil))
                                                                                            nil))
                                                                                          nil))
                                                                                        nil))
                                                                                      nil)
                                                                                     ("2"
                                                                                      (hide-all-but
                                                                                       1)
                                                                                      (("2"
                                                                                        (skosimp)
                                                                                        (("2"
                                                                                          (rewrite
                                                                                           "series_first"
                                                                                           1)
                                                                                          (("2"
                                                                                            (rewrite
                                                                                             "series_first"
                                                                                             1)
                                                                                            (("2"
                                                                                              (case
                                                                                               "forall (nna:sequence[nnreal]):series(nna, 1)=series(lambda n: if n=0 then 0 else nna(n) endif)")
                                                                                              (("1"
                                                                                                (inst-cp
                                                                                                 -
                                                                                                 "nna!1")
                                                                                                (("1"
                                                                                                  (inst
                                                                                                   -
                                                                                                   "nnb!1")
                                                                                                  (("1"
                                                                                                    (replace
                                                                                                     -1)
                                                                                                    (("1"
                                                                                                      (replace
                                                                                                       -2)
                                                                                                      (("1"
                                                                                                        (lemma
                                                                                                         "convergent_diff"
                                                                                                         ("s1"
                                                                                                          "series(LAMBDA n: IF n = 0 THEN 0 ELSE nnb!1(n) ENDIF)"
                                                                                                          "s2"
                                                                                                          "series(LAMBDA n: IF n = 0 THEN 0 ELSE nna!1(n) ENDIF)"))
                                                                                                        (("1"
                                                                                                          (case-replace
                                                                                                           "convergence_sequences.convergent?(series(LAMBDA n: IF n = 0 THEN 0 ELSE nnb!1(n) ENDIF))")
                                                                                                          (("1"
                                                                                                            (case-replace
                                                                                                             "convergence_sequences.convergent?(series(LAMBDA n: IF n = 0 THEN 0 ELSE nna!1(n) ENDIF))")
                                                                                                            (("1"
                                                                                                              (rewrite
                                                                                                               "series_diff")
                                                                                                              (("1"
                                                                                                                (lemma
                                                                                                                 "limit_nonneg"
                                                                                                                 ("nna"
                                                                                                                  "series((LAMBDA n: IF n = 0 THEN 0 ELSE nnb!1(n) ENDIF) -
                         (LAMBDA n: IF n = 0 THEN 0 ELSE nna!1(n) ENDIF))"))
                                                                                                                (("1"
                                                                                                                  (replace
                                                                                                                   -4)
                                                                                                                  (("1"
                                                                                                                    (rewrite
                                                                                                                     "series_diff"
                                                                                                                     -1
                                                                                                                     :dir
                                                                                                                     rl)
                                                                                                                    (("1"
                                                                                                                      (rewrite
                                                                                                                       "limit_diff"
                                                                                                                       -1)
                                                                                                                      (("1"
                                                                                                                        (inst
                                                                                                                         -
                                                                                                                         "0")
                                                                                                                        (("1"
                                                                                                                          (assert)
                                                                                                                          nil
                                                                                                                          nil))
                                                                                                                        nil))
                                                                                                                      nil))
                                                                                                                    nil))
                                                                                                                  nil)
                                                                                                                 ("2"
                                                                                                                  (hide-all-but
                                                                                                                   (-8
                                                                                                                    1))
                                                                                                                  (("2"
                                                                                                                    (skolem
                                                                                                                     +
                                                                                                                     ("n!1"))
                                                                                                                    (("2"
                                                                                                                      (expand
                                                                                                                       "series")
                                                                                                                      (("2"
                                                                                                                        (lemma
                                                                                                                         "sigma_ge_0"
                                                                                                                         ("low"
                                                                                                                          "0"
                                                                                                                          "high"
                                                                                                                          "n!1"
                                                                                                                          "F"
                                                                                                                          "LAMBDA (x: nat):
              IF x = 0 THEN 0 ELSE nnb!1(x) ENDIF -
               IF x = 0 THEN 0 ELSE nna!1(x) ENDIF"))
                                                                                                                        (("2"
                                                                                                                          (split
                                                                                                                           -1)
                                                                                                                          (("1"
                                                                                                                            (expand
                                                                                                                             "-")
                                                                                                                            (("1"
                                                                                                                              (propax)
                                                                                                                              nil
                                                                                                                              nil))
                                                                                                                            nil)
                                                                                                                           ("2"
                                                                                                                            (hide
                                                                                                                             2)
                                                                                                                            (("2"
                                                                                                                              (skosimp)
                                                                                                                              (("2"
                                                                                                                                (inst
                                                                                                                                 -
                                                                                                                                 "n!2")
                                                                                                                                (("2"
                                                                                                                                  (lift-if
                                                                                                                                   1)
                                                                                                                                  (("2"
                                                                                                                                    (assert)
                                                                                                                                    nil
                                                                                                                                    nil))
                                                                                                                                  nil))
                                                                                                                                nil))
                                                                                                                              nil))
                                                                                                                            nil))
                                                                                                                          nil))
                                                                                                                        nil))
                                                                                                                      nil))
                                                                                                                    nil))
                                                                                                                  nil))
                                                                                                                nil))
                                                                                                              nil)
                                                                                                             ("2"
                                                                                                              (hide-all-but
                                                                                                               (-5
                                                                                                                1
                                                                                                                -4))
                                                                                                              (("2"
                                                                                                                (lemma
                                                                                                                 "end_series_conv"
                                                                                                                 ("a"
                                                                                                                  "nna!1"
                                                                                                                  "m"
                                                                                                                  "1"))
                                                                                                                (("2"
                                                                                                                  (assert)
                                                                                                                  nil
                                                                                                                  nil))
                                                                                                                nil))
                                                                                                              nil))
                                                                                                            nil)
                                                                                                           ("2"
                                                                                                            (lemma
                                                                                                             "end_series_conv"
                                                                                                             ("a"
                                                                                                              "nnb!1"
                                                                                                              "m"
                                                                                                              "1"))
                                                                                                            (("2"
                                                                                                              (assert)
                                                                                                              nil
                                                                                                              nil))
                                                                                                            nil))
                                                                                                          nil))
                                                                                                        nil))
                                                                                                      nil))
                                                                                                    nil))
                                                                                                  nil))
                                                                                                nil)
                                                                                               ("2"
                                                                                                (hide-all-but
                                                                                                 1)
                                                                                                (("2"
                                                                                                  (skosimp)
                                                                                                  (("2"
                                                                                                    (expand
                                                                                                     "series")
                                                                                                    (("2"
                                                                                                      (apply-extensionality
                                                                                                       :hide?
                                                                                                       t)
                                                                                                      (("2"
                                                                                                        (lemma
                                                                                                         "sigma_first"
                                                                                                         ("high"
                                                                                                          "x!1"
                                                                                                          "low"
                                                                                                          "0"
                                                                                                          "F"
                                                                                                          "LAMBDA n: IF n = 0 THEN 0 ELSE nna!2(n) ENDIF"))
                                                                                                        (("2"
                                                                                                          (assert)
                                                                                                          (("2"
                                                                                                            (lemma
                                                                                                             "sigma_eq"
                                                                                                             ("low"
                                                                                                              "1"
                                                                                                              "high"
                                                                                                              "x!1"
                                                                                                              "F"
                                                                                                              "nna!2"
                                                                                                              "G"
                                                                                                              "LAMBDA n: IF n = 0 THEN 0 ELSE nna!2(n) ENDIF"))
                                                                                                            (("2"
                                                                                                              (split
                                                                                                               -1)
                                                                                                              (("1"
                                                                                                                (assert)
                                                                                                                nil
                                                                                                                nil)
                                                                                                               ("2"
                                                                                                                (skosimp)
                                                                                                                (("2"
                                                                                                                  (assert)
                                                                                                                  nil
                                                                                                                  nil))
                                                                                                                nil))
                                                                                                              nil))
                                                                                                            nil))
                                                                                                          nil))
                                                                                                        nil))
                                                                                                      nil))
                                                                                                    nil))
                                                                                                  nil))
                                                                                                nil))
                                                                                              nil))
                                                                                            nil))
                                                                                          nil))
                                                                                        nil))
                                                                                      nil))
                                                                                    nil)
                                                                                   ("2"
                                                                                    (hide
                                                                                     2)
                                                                                    (("2"
                                                                                      (lemma
                                                                                       "comparison_test"
                                                                                       ("b"
                                                                                        "LAMBDA (i: nat):
                          x_add((TRUE, R / 2 ^ i), L(X!1(i)))`2"
                                                                                        "a"
                                                                                        "LAMBDA (i: nat):
                          x_sum(LAMBDA (m: nat): x_length(I_n(i)(m)))`2"))
                                                                                      (("2"
                                                                                        (replace
                                                                                         -2)
                                                                                        (("2"
                                                                                          (split
                                                                                           -1)
                                                                                          (("1"
                                                                                            (propax)
                                                                                            nil
                                                                                            nil)
                                                                                           ("2"
                                                                                            (hide
                                                                                             2)
                                                                                            (("2"
                                                                                              (skosimp)
                                                                                              (("2"
                                                                                                (expand
                                                                                                 "abs"
                                                                                                 1
                                                                                                 1)
                                                                                                (("2"
                                                                                                  (assert)
                                                                                                  (("2"
                                                                                                    (lift-if
                                                                                                     1)
                                                                                                    (("2"
                                                                                                      (assert)
                                                                                                      (("2"
                                                                                                        (inst
                                                                                                         -
                                                                                                         "n!1")
                                                                                                        (("2"
                                                                                                          (inst
                                                                                                           -
                                                                                                           "n!1")
                                                                                                          (("2"
                                                                                                            (inst
                                                                                                             -7
                                                                                                             "n!1")
                                                                                                            (("2"
                                                                                                              (flatten)
                                                                                                              (("2"
                                                                                                                (expand
                                                                                                                 "x_lt"
                                                                                                                 -8)
                                                                                                                (("2"
                                                                                                                  (propax)
                                                                                                                  nil
                                                                                                                  nil))
                                                                                                                nil))
                                                                                                              nil))
                                                                                                            nil))
                                                                                                          nil))
                                                                                                        nil))
                                                                                                      nil))
                                                                                                    nil))
                                                                                                  nil))
                                                                                                nil))
                                                                                              nil))
                                                                                            nil))
                                                                                          nil))
                                                                                        nil))
                                                                                      nil))
                                                                                    nil))
                                                                                  nil)
                                                                                 ("2"
                                                                                  (hide-all-but
                                                                                   (-3
                                                                                    1))
                                                                                  (("2"
                                                                                    (prop)
                                                                                    nil
                                                                                    nil))
                                                                                  nil))
                                                                                nil))
                                                                              nil))
                                                                            nil)
                                                                           ("2"
                                                                            (hide
                                                                             2)
                                                                            (("2"
                                                                              (skosimp)
                                                                              (("2"
                                                                                (inst
                                                                                 -5
                                                                                 "i!1")
                                                                                (("2"
                                                                                  (flatten)
                                                                                  (("2"
                                                                                    (inst
                                                                                     -
                                                                                     "i!1")
                                                                                    (("2"
                                                                                      (expand
                                                                                       "x_lt"
                                                                                       -6)
                                                                                      (("2"
                                                                                        (assert)
                                                                                        nil
                                                                                        nil))
                                                                                      nil))
                                                                                    nil))
                                                                                  nil))
                                                                                nil))
                                                                              nil))
                                                                            nil))
                                                                          nil)
                                                                         ("2"
                                                                          (hide
                                                                           2)
                                                                          (("2"
                                                                            (skosimp)
                                                                            (("2"
                                                                              (expand
                                                                               "x_add"
                                                                               1)
                                                                              (("2"
                                                                                (inst
                                                                                 -7
                                                                                 "i!1")
                                                                                (("2"
                                                                                  (assert)
                                                                                  nil
                                                                                  nil))
                                                                                nil))
                                                                              nil))
                                                                            nil))
                                                                          nil))
                                                                        nil))
                                                                      nil))
                                                                    nil))
                                                                  nil))
                                                                nil)
                                                               ("3"
                                                                (skosimp)
                                                                (("3"
                                                                  (typepred
                                                                   "I_n(n!1)(m!1)")
                                                                  (("3"
                                                                    (expand
                                                                     "bounded_open_interval?")
                                                                    (("3"
                                                                      (expand
                                                                       "bounded_interval?")
                                                                      (("3"
                                                                        (flatten)
                                                                        nil
                                                                        nil))
                                                                      nil))
                                                                    nil))
                                                                  nil))
                                                                nil))
                                                              nil))
                                                            nil)
                                                           ("2"
                                                            (hide 2)
                                                            (("2"
                                                              (expand
                                                               "subset?"
                                                               1)
                                                              (("2"
                                                                (skosimp)
                                                                (("2"
                                                                  (expand
                                                                   "member")
                                                                  (("2"
                                                                    (expand
                                                                     "IUnion"
                                                                     (-1
                                                                      1))
                                                                    (("2"
                                                                      (skolem
                                                                       -
                                                                       ("n!1"))
                                                                      (("2"
                                                                        (inst
                                                                         -4
                                                                         "n!1")
                                                                        (("2"
                                                                          (flatten)
                                                                          (("2"
                                                                            (expand
                                                                             "subset?"
                                                                             -4)
                                                                            (("2"
                                                                              (inst
                                                                               -4
                                                                               "x!1")
                                                                              (("2"
                                                                                (expand
                                                                                 "member")
                                                                                (("2"
                                                                                  (assert)
                                                                                  (("2"
                                                                                    (expand
                                                                                     "IUnion"
                                                                                     -4)
                                                                                    (("2"
                                                                                      (skosimp)
                                                                                      (("2"
                                                                                        (inst
                                                                                         +
                                                                                         "NN(n!1,i!1)")
                                                                                        (("2"
                                                                                          (inst
                                                                                           -
                                                                                           "n!1"
                                                                                           "i!1")
                                                                                          (("2"
                                                                                            (flatten)
                                                                                            (("2"
                                                                                              (assert)
                                                                                              nil
                                                                                              nil))
                                                                                            nil))
                                                                                          nil))
                                                                                        nil))
                                                                                      nil))
                                                                                    nil))
                                                                                  nil))
                                                                                nil))
                                                                              nil))
                                                                            nil))
                                                                          nil))
                                                                        nil))
                                                                      nil))
                                                                    nil))
                                                                  nil))
                                                                nil))
                                                              nil))
                                                            nil))
                                                          nil))
                                                        nil))
                                                      nil))
                                                    nil))
                                                  nil))
                                                nil))
                                              nil)
                                             ("2"
                                              (hide 2)
                                              (("2"
                                                (skosimp)
                                                (("2"
                                                  (inst - "n!1")
                                                  (("2"
                                                    (skosimp)
                                                    (("2"
                                                      (hide -1)
                                                      (("2"
                                                        (expand "I_n")
                                                        (("2"
                                                          (lemma
                                                           "choose_member"
                                                           ("a"
                                                            "{I
                                     |
                                     subset?[real]
                                     (X!1(n!1), IUnion[nat, real](I))
                                     &
                                     x_lt
                                     (x_sum
                                      (LAMBDA (n: nat): x_length(I(n))),
                                      x_add
                                      ((TRUE, R / 2 ^ n!1), L(X!1(n!1))))}"))
                                                          (("1"
                                                            (split -1)
                                                            (("1"
                                                              (name-replace
                                                               "II"
                                                               "choose({I |
                       subset?[real](X!1(n!1), IUnion[nat, real](I)) &
                        x_lt(x_sum(LAMBDA (n: nat): x_length(I(n))),
                             x_add((TRUE, R / 2 ^ n!1), L(X!1(n!1))))})")
                                                              (("1"
                                                                (expand
                                                                 "member")
                                                                (("1"
                                                                  (propax)
                                                                  nil
                                                                  nil))
                                                                nil)
                                                               ("2"
                                                                (hide
                                                                 -1
                                                                 2)
                                                                (("2"
                                                                  (expand
                                                                   "nonempty?")
                                                                  (("2"
                                                                    (expand
                                                                     "empty?")
                                                                    (("2"
                                                                      (expand
                                                                       "member")
                                                                      (("2"
                                                                        (inst
                                                                         -
                                                                         "I!1")
                                                                        (("2"
                                                                          (assert)
                                                                          nil
                                                                          nil))
                                                                        nil))
                                                                      nil))
                                                                    nil))
                                                                  nil))
                                                                nil))
                                                              nil)
                                                             ("2"
                                                              (hide 1)
                                                              (("2"
                                                                (expand
                                                                 "empty?")
                                                                (("2"
                                                                  (expand
                                                                   "member")
                                                                  (("2"
                                                                    (inst
                                                                     -
                                                                     "I!1")
                                                                    (("2"
                                                                      (assert)
                                                                      nil
                                                                      nil))
                                                                    nil))
                                                                  nil))
                                                                nil))
                                                              nil))
                                                            nil)
                                                           ("2"
                                                            (hide 2)
                                                            (("2"
                                                              (skosimp)
                                                              (("2"
                                                                (skosimp)
                                                                (("2"
                                                                  (typepred
                                                                   "I!2(n!2)")
                                                                  (("2"
                                                                    (expand
                                                                     "bounded_open_interval?")
                                                                    (("2"
                                                                      (expand
                                                                       "bounded_interval?")
                                                                      (("2"
                                                                        (flatten)
                                                                        nil
                                                                        nil))
                                                                      nil))
                                                                    nil))
                                                                  nil))
                                                                nil))
                                                              nil))
                                                            nil))
                                                          nil))
                                                        nil))
                                                      nil))
                                                    nil))
                                                  nil))
                                                nil))
                                              nil)
                                             ("3"
                                              (skosimp)
                                              (("3"
                                                (skosimp)
                                                (("3"
                                                  (typepred
                                                   "I_n(n!1)(m!1)")
                                                  (("3"
                                                    (expand
                                                     "bounded_open_interval?")
                                                    (("3"
                                                      (expand
                                                       "bounded_interval?")
                                                      (("3"
                                                        (flatten)
                                                        nil
                                                        nil))
                                                      nil))
                                                    nil))
                                                  nil))
                                                nil))
                                              nil))
                                            nil)
                                           ("2"
                                            (hide 2)
                                            (("2"
                                              (skosimp)
                                              (("2"
                                                (inst - "n!1")
                                                (("2"
                                                  (skosimp)
                                                  (("2"
                                                    (expand
                                                     "nonempty?")
                                                    (("2"
                                                      (expand "empty?")
                                                      (("2"
                                                        (expand
                                                         "member")
                                                        (("2"
                                                          (inst
                                                           -
                                                           "I!1")
                                                          (("2"
                                                            (assert)
                                                            nil
                                                            nil))
                                                          nil))
                                                        nil))
                                                      nil))
                                                    nil))
                                                  nil))
                                                nil))
                                              nil))
                                            nil))
                                          nil))
                                        nil))
                                      nil))
                                    nil))
                                  nil))
                                nil))
                              nil))
                            nil))
                          nil)
                         ("2" (hide 2)
                          (("2" (skosimp)
                            (("2" (expand "x_lt")
                              (("2"
                                (expand "x_add")
                                (("2"
                                  (inst - "n!1")
                                  (("2"
                                    (replace -1)
                                    (("2"
                                      (expand "L" (-1 1))
                                      (("2"
                                        (expand "x_inf")
                                        (("2"
                                          (prop)
                                          (("2"
                                            (replace 1 2)
                                            (("2"
                                              (skosimp)
                                              (("2"
                                                (expand "o ")
                                                (("2"
                                                  (case
                                                   "nonempty?({z_1: real |
                   EXISTS (x: extended_nnreal):
                     (EXISTS I:
                        x_le(x_sum(LAMBDA (x: nat): x_length(I(x))), x) AND
                         subset?[real](X!1(n!1), IUnion[nat, real](I)))
                      AND x`1 AND x`2 = z_1})")
                                                  (("1"
                                                    (case
                                                     "bounded_below?({z_1: real |
                   EXISTS (x: extended_nnreal):
                     (EXISTS I:
                        x_le(x_sum(LAMBDA (x: nat): x_length(I(x))), x) AND
                         subset?[real](X!1(n!1), IUnion[nat, real](I)))
                      AND x`1 AND x`2 = z_1})")
                                                    (("1"
                                                      (typepred
                                                       "glb({z_1: real |
                        EXISTS (x: extended_nnreal):
                          (EXISTS I:
                             x_le(x_sum(LAMBDA (x: nat): x_length(I(x))),
                                  x)
                              AND
                              subset?[real]
                                  (X!1(n!1), IUnion[nat, real](I)))
                           AND x`1 AND x`2 = z_1})")
                                                      (("1"
                                                        (name-replace
                                                         "LIMIT"
                                                         "glb({z_1: real |
                        EXISTS (x: extended_nnreal):
                          (EXISTS I:
                             x_le(x_sum(LAMBDA (x: nat): x_length(I(x))),
                                  x)
                              AND
                              subset?[real]
                                  (X!1(n!1), IUnion[nat, real](I)))
                           AND x`1 AND x`2 = z_1})")
                                                        (("1"
                                                          (hide -2 -3)
                                                          (("1"
                                                            (expand
                                                             "greatest_lower_bound?")
                                                            (("1"
                                                              (flatten)
                                                              (("1"
                                                                (lemma
                                                                 "posreal_div_posreal_is_posreal"
                                                                 ("px"
                                                                  "r!1"
                                                                  "py"
                                                                  "2^n!1"))
                                                                (("1"
                                                                  (inst
                                                                   -3
                                                                   "r!1 / 2 ^ n!1 + LIMIT")
                                                                  (("1"
                                                                    (expand
                                                                     "lower_bound?")
                                                                    (("1"
                                                                      (assert)
                                                                      (("1"
                                                                        (skosimp)
                                                                        (("1"
                                                                          (case
                                                                           "s!1<r!1 / 2 ^ n!1 + LIMIT")
                                                                          (("1"
                                                                            (hide
                                                                             1)
                                                                            (("1"
                                                                              (typepred
                                                                               "s!1")
                                                                              (("1"
                                                                                (skosimp)
                                                                                (("1"
                                                                                  (skosimp)
                                                                                  (("1"
                                                                                    (inst
                                                                                     +
                                                                                     "I!1")
                                                                                    (("1"
                                                                                      (assert)
                                                                                      (("1"
                                                                                        (expand
                                                                                         "x_le")
                                                                                        (("1"
                                                                                          (flatten)
                                                                                          (("1"
                                                                                            (assert)
                                                                                            nil
                                                                                            nil))
                                                                                          nil))
                                                                                        nil))
                                                                                      nil))
                                                                                    nil))
                                                                                  nil))
                                                                                nil))
                                                                              nil))
                                                                            nil)
                                                                           ("2"
                                                                            (assert)
                                                                            nil
                                                                            nil))
                                                                          nil))
                                                                        nil))
                                                                      nil))
                                                                    nil))
                                                                  nil))
                                                                nil))
                                                              nil))
                                                            nil))
                                                          nil))
                                                        nil)
                                                       ("2"
                                                        (assert)
                                                        nil
                                                        nil))
                                                      nil)
                                                     ("2"
                                                      (hide 2)
                                                      (("2"
                                                        (expand
                                                         "bounded_below?")
                                                        (("2"
                                                          (inst + "0")
                                                          (("2"
                                                            (expand
                                                             "lower_bound?")
                                                            (("2"
                                                              (skosimp)
                                                              (("2"
                                                                (typepred
                                                                 "s!1")
                                                                (("2"
                                                                  (skosimp)
                                                                  (("2"
                                                                    (skosimp)
                                                                    (("2"
                                                                      (assert)
                                                                      nil
                                                                      nil))
                                                                    nil))
                                                                  nil))
                                                                nil))
                                                              nil))
                                                            nil))
                                                          nil))
                                                        nil))
                                                      nil)
                                                     ("3"
                                                      (propax)
                                                      nil
                                                      nil))
                                                    nil)
                                                   ("2"
                                                    (hide 2)
                                                    (("2"
                                                      (expand
                                                       "nonempty?")
                                                      (("2"
                                                        (expand
                                                         "empty?")
                                                        (("2"
                                                          (expand
                                                           "member")
                                                          (("2"
                                                            (inst
                                                             -
                                                             "x!1`2")
                                                            (("2"
                                                              (inst
                                                               +
                                                               "x!1")
                                                              (("2"
                                                                (assert)
                                                                (("2"
                                                                  (typepred
                                                                   "x!1")
                                                                  (("2"
                                                                    (skosimp)
                                                                    (("2"
                                                                      (expand
                                                                       "o")
                                                                      (("2"
                                                                        (inst
                                                                         +
                                                                         "I!1")
                                                                        (("2"
                                                                          (assert)
                                                                          nil
                                                                          nil))
                                                                        nil))
                                                                      nil))
                                                                    nil))
                                                                  nil))
                                                                nil))
                                                              nil))
                                                            nil))
                                                          nil))
                                                        nil))
                                                      nil))
                                                    nil)
                                                   ("3"
                                                    (skosimp)
                                                    (("3"
                                                      (typepred
                                                       "I!1(x1!1)")
                                                      (("3"
                                                        (expand
                                                         "bounded_open_interval?")
                                                        (("3"
                                                          (expand
                                                           "bounded_interval?")
                                                          (("3"
                                                            (flatten)
                                                            nil
                                                            nil))
                                                          nil))
                                                        nil))
                                                      nil))
                                                    nil))
                                                  nil))
                                                nil))
                                              nil))
                                            nil))
                                          nil))
                                        nil))
                                      nil))
                                    nil))
                                  nil))
                                nil))
                              nil))
                            nil))
                          nil)
                         ("3" (skosimp)
                          (("3" (skosimp)
                            (("3" (typepred "I!1(n1!1)")
                              (("3"
                                (expand "bounded_open_interval?")
                                (("3"
                                  (expand "bounded_interval?")
                                  (("3" (flatten) nil nil))
                                  nil))
                                nil))
                              nil))
                            nil))
                          nil))
                        nil)
                       ("2" (hide 2)
                        (("2" (expand "o ")
                          (("2" (expand "x_sum") (("2" (prop) nil nil))
                            nil))
                          nil))
                        nil))
                      nil))
                    nil))
                  nil))
                nil))
              nil))
            nil)
           ("2" (hide 2)
            (("2" (expand "om_increasing?")
              (("2" (skosimp)
                (("2" (expand "x_le")
                  (("2" (case-replace "L(a!1)`1")
                    (("1" (expand "L")
                      (("1" (expand "o")
                        (("1" (expand "x_inf")
                          (("1"
                            (case-replace "FORALL (x_1:
                   ({z |
                       EXISTS I:
                         x_le(x_sum(LAMBDA (x: nat): x_length(I(x))), z)
                          AND subset?[real](a!1, IUnion[nat, real](I))})):
           NOT x_1`1")
                            (("1" (replace 1)
                              (("1"
                                (skolem + ("AAX"))
                                (("1"
                                  (prop)
                                  (("1"
                                    (replace 1)
                                    (("1"
                                      (skolem + ("BBX"))
                                      (("1"
                                        (hide -4)
                                        (("1"
                                          (case
                                           "nonempty?({z_1: real |
             EXISTS (x_1: extended_nnreal):
               (EXISTS I:
                  x_le(x_sum(LAMBDA (x: nat): x_length(I(x))), x_1) AND
                   subset?[real](a!1, IUnion[nat, real](I)))
                AND x_1`1 AND x_1`2 = z_1})")
                                          (("1"
                                            (case
                                             "bounded_below?({z_1: real |
             EXISTS (x_1: extended_nnreal):
               (EXISTS I:
                  x_le(x_sum(LAMBDA (x: nat): x_length(I(x))), x_1) AND
                   subset?[real](a!1, IUnion[nat, real](I)))
                AND x_1`1 AND x_1`2 = z_1})")
                                            (("1"
                                              (typepred
                                               "glb({z_1: real |
             EXISTS (x_1: extended_nnreal):
               (EXISTS I:
                  x_le(x_sum(LAMBDA (x: nat): x_length(I(x))), x_1) AND
                   subset?[real](a!1, IUnion[nat, real](I)))
                AND x_1`1 AND x_1`2 = z_1})")
                                              (("1"
                                                (name-replace
                                                 "GLBA"
                                                 "glb({z_1: real |
             EXISTS (x_1: extended_nnreal):
               (EXISTS I:
                  x_le(x_sum(LAMBDA (x: nat): x_length(I(x))), x_1) AND
                   subset?[real](a!1, IUnion[nat, real](I)))
                AND x_1`1 AND x_1`2 = z_1})")
                                                (("1"
                                                  (hide -2 -3)
                                                  (("1"
                                                    (case
                                                     "nonempty?({z_1: real |
              EXISTS (x_1: extended_nnreal):
                (EXISTS I:
                   x_le(x_sum(LAMBDA (x: nat): x_length(I(x))), x_1) AND
                    subset?[real](b!1, IUnion[nat, real](I)))
                 AND x_1`1 AND x_1`2 = z_1})")
                                                    (("1"
                                                      (case
                                                       "bounded_below?({z_1: real |
              EXISTS (x_1: extended_nnreal):
                (EXISTS I:
                   x_le(x_sum(LAMBDA (x: nat): x_length(I(x))), x_1) AND
                    subset?[real](b!1, IUnion[nat, real](I)))
                 AND x_1`1 AND x_1`2 = z_1})")
                                                      (("1"
                                                        (typepred
                                                         "glb({z_1: real |
              EXISTS (x_1: extended_nnreal):
                (EXISTS I:
                   x_le(x_sum(LAMBDA (x: nat): x_length(I(x))), x_1) AND
                    subset?[real](b!1, IUnion[nat, real](I)))
                 AND x_1`1 AND x_1`2 = z_1})")
                                                        (("1"
                                                          (name-replace
                                                           "GLBB"
                                                           "glb({z_1: real |
              EXISTS (x_1: extended_nnreal):
                (EXISTS I:
                   x_le(x_sum(LAMBDA (x: nat): x_length(I(x))), x_1) AND
                    subset?[real](b!1, IUnion[nat, real](I)))
                 AND x_1`1 AND x_1`2 = z_1})")
                                                          (("1"
                                                            (hide
                                                             -2
                                                             -3)
                                                            (("1"
                                                              (expand
                                                               "greatest_lower_bound?")
                                                              (("1"
                                                                (expand
                                                                 "lower_bound?")
                                                                (("1"
                                                                  (flatten)
                                                                  (("1"
                                                                    (inst
                                                                     -2
                                                                     "GLBA")
                                                                    (("1"
                                                                      (assert)
                                                                      (("1"
                                                                        (skosimp)
                                                                        (("1"
                                                                          (case
                                                                           "GLBB<GLBA")
                                                                          (("1"
                                                                            (hide
                                                                             2)
                                                                            (("1"
                                                                              (typepred
                                                                               "s!1")
                                                                              (("1"
                                                                                (skosimp*)
                                                                                (("1"
                                                                                  (hide
                                                                                   -6
                                                                                   -8)
                                                                                  (("1"
                                                                                    (inst
                                                                                     -
                                                                                     "s!1")
                                                                                    (("1"
                                                                                      (inst
                                                                                       +
                                                                                       "x!1")
                                                                                      (("1"
                                                                                        (assert)
                                                                                        (("1"
                                                                                          (inst
                                                                                           +
                                                                                           "I!1")
                                                                                          (("1"
                                                                                            (assert)
                                                                                            (("1"
                                                                                              (hide-all-but
                                                                                               (-2
                                                                                                -8
                                                                                                1))
                                                                                              (("1"
                                                                                                (expand
                                                                                                 "subset?")
                                                                                                (("1"
                                                                                                  (skosimp)
                                                                                                  (("1"
                                                                                                    (inst
                                                                                                     -
                                                                                                     "x!2")
                                                                                                    (("1"
                                                                                                      (inst
                                                                                                       -
                                                                                                       "x!2")
                                                                                                      (("1"
                                                                                                        (expand
                                                                                                         "member")
                                                                                                        (("1"
                                                                                                          (assert)
                                                                                                          nil
                                                                                                          nil))
                                                                                                        nil))
                                                                                                      nil))
                                                                                                    nil))
                                                                                                  nil))
                                                                                                nil))
                                                                                              nil))
                                                                                            nil))
                                                                                          nil))
                                                                                        nil))
                                                                                      nil))
                                                                                    nil))
                                                                                  nil))
                                                                                nil))
                                                                              nil))
                                                                            nil)
                                                                           ("2"
                                                                            (assert)
                                                                            nil
                                                                            nil))
                                                                          nil))
                                                                        nil))
                                                                      nil))
                                                                    nil))
                                                                  nil))
                                                                nil))
                                                              nil))
                                                            nil))
                                                          nil)
                                                         ("2"
                                                          (assert)
                                                          nil
                                                          nil))
                                                        nil)
                                                       ("2"
                                                        (hide -2 2)
                                                        (("2"
                                                          (expand
                                                           "bounded_below?")
                                                          (("2"
                                                            (inst
                                                             +
                                                             "0")
                                                            (("2"
                                                              (expand
                                                               "lower_bound?")
                                                              (("2"
                                                                (skosimp)
                                                                (("2"
                                                                  (typepred
                                                                   "s!1")
                                                                  (("2"
                                                                    (skosimp*)
                                                                    (("2"
                                                                      (assert)
                                                                      nil
                                                                      nil))
                                                                    nil))
                                                                  nil))
                                                                nil))
                                                              nil))
                                                            nil))
                                                          nil))
                                                        nil)
                                                       ("3"
                                                        (propax)
                                                        nil
                                                        nil))
                                                      nil)
                                                     ("2"
                                                      (hide -1 2)
                                                      (("2"
                                                        (expand
                                                         "nonempty?")
                                                        (("2"
                                                          (expand
                                                           "empty?")
                                                          (("2"
                                                            (expand
                                                             "member")
                                                            (("2"
                                                              (inst
                                                               -
                                                               "BBX`2")
                                                              (("2"
                                                                (inst
                                                                 +
                                                                 "BBX")
                                                                (("2"
                                                                  (assert)
                                                                  nil
                                                                  nil))
                                                                nil))
                                                              nil))
                                                            nil))
                                                          nil))
                                                        nil))
                                                      nil))
                                                    nil))
                                                  nil))
                                                nil)
                                               ("2" (assertnil nil))
                                              nil)
                                             ("2"
                                              (hide -1 2)
                                              (("2"
                                                (expand
                                                 "bounded_below?")
                                                (("2"
                                                  (inst + "0")
                                                  (("2"
                                                    (expand
                                                     "lower_bound?")
                                                    (("2"
                                                      (skosimp)
                                                      (("2"
                                                        (typepred
                                                         "s!1")
                                                        (("2"
                                                          (skosimp*)
                                                          (("2"
                                                            (assert)
                                                            nil
                                                            nil))
                                                          nil))
                                                        nil))
                                                      nil))
                                                    nil))
                                                  nil))
                                                nil))
                                              nil)
                                             ("3" (propax) nil nil))
                                            nil)
                                           ("2"
                                            (hide 2)
                                            (("2"
                                              (expand "nonempty?")
                                              (("2"
                                                (expand "empty?")
                                                (("2"
                                                  (expand "member")
                                                  (("2"
                                                    (inst - "AAX`2")
                                                    (("2"
                                                      (inst + "AAX")
                                                      (("2"
                                                        (assert)
                                                        nil
                                                        nil))
                                                      nil))
                                                    nil))
                                                  nil))
                                                nil))
                                              nil))
                                            nil)
                                           ("3"
                                            (skosimp)
                                            (("3"
                                              (typepred "I!1(x!1)")
                                              (("3"
                                                (expand
                                                 "bounded_open_interval?")
                                                (("3"
                                                  (expand
                                                   "bounded_interval?")
                                                  (("3"
                                                    (flatten)
                                                    nil
                                                    nil))
                                                  nil))
                                                nil))
                                              nil))
                                            nil))
                                          nil))
                                        nil))
                                      nil))
                                    nil))
                                  nil))
                                nil))
                              nil))
                            nil))
                          nil))
                        nil))
                      nil)
                     ("2" (replace 1)
                      (("2" (hide -3)
                        (("2" (expand "L")
                          (("2" (expand "o")
                            (("2" (expand "x_inf")
                              (("2"
                                (prop)
                                (("2"
                                  (skosimp)
                                  (("2"
                                    (typepred "x!1")
                                    (("2"
                                      (skosimp)
                                      (("2"
                                        (inst - "x!1")
                                        (("2"
                                          (inst + "I!1")
                                          (("2"
                                            (assert)
                                            (("2"
                                              (hide -1 -3)
                                              (("2"
                                                (expand "subset?")
                                                (("2"
                                                  (expand "member")
                                                  (("2"
                                                    (skosimp)
                                                    (("2"
                                                      (inst - "x!2")
                                                      (("2"
                                                        (inst - "x!2")
                                                        (("2"
                                                          (assert)
                                                          nil
                                                          nil))
                                                        nil))
                                                      nil))
                                                    nil))
                                                  nil))
                                                nil))
                                              nil))
                                            nil))
                                          nil))
                                        nil))
                                      nil))
                                    nil))
                                  nil))
                                nil))
                              nil))
                            nil))
                          nil))
                        nil))
                      nil))
                    nil))
                  nil))
                nil))
              nil))
            nil))
          nil)
         ("2" (hide 2)
          (("2" (expand "om_empty?")
            (("2" (expand "L")
              (("2" (expand "o")
                (("2" (expand "x_inf")
                  (("2" (lift-if 1)
                    (("2" (assert)
                      (("2" (prop)
                        (("1" (inst - "(TRUE,0)")
                          (("1" (inst + "lambda n: emptyset[real]")
                            (("1" (split)
                              (("1"
                                (case-replace
                                 "x_length(emptyset[real]) = (TRUE,0)")
                                (("1"
                                  (hide -1)
                                  (("1"
                                    (expand "x_le")
                                    (("1"
                                      (expand "x_sum")
                                      (("1"
                                        (rewrite "zero_series_conv")
                                        (("1"
                                          (rewrite "zero_series_limit")
                                          (("1" (assertnil nil))
                                          nil))
                                        nil))
                                      nil))
                                    nil))
                                  nil)
                                 ("2"
                                  (hide 2)
                                  (("2"
                                    (expand "x_length")
                                    (("2"
                                      (case-replace
                                       "length(emptyset[real])=0")
                                      (("1"
                                        (lift-if)
                                        (("1"
                                          (assert)
                                          (("1"
                                            (prop)
                                            (("1"
                                              (hide -1)
                                              (("1"
                                                (expand
                                                 "bounded_interval?")
                                                (("1"
                                                  (split)
                                                  (("1"
                                                    (expand "emptyset")
                                                    (("1"
                                                      (expand
                                                       "interval?")
                                                      (("1"
                                                        (grind)
                                                        nil
                                                        nil))
                                                      nil))
                                                    nil)
                                                   ("2"
                                                    (expand "bounded?")
                                                    (("2"
                                                      (flatten)
                                                      (("2"
                                                        (hide 2)
                                                        (("2"
                                                          (grind)
                                                          nil
                                                          nil))
                                                        nil))
                                                      nil))
                                                    nil))
                                                  nil))
                                                nil))
                                              nil))
                                            nil))
                                          nil))
                                        nil)
                                       ("2"
                                        (rewrite "length_empty_rew")
                                        nil
                                        nil)
                                       ("3"
                                        (hide 2)
                                        (("3"
                                          (expand "bounded_interval?")
                                          (("3"
                                            (split)
                                            (("1"
                                              (expand "emptyset")
                                              (("1"
                                                (expand "interval?")
                                                (("1" (grind) nil nil))
                                                nil))
                                              nil)
                                             ("2"
                                              (expand "bounded?")
                                              (("2"
                                                (flatten)
                                                (("2"
                                                  (hide 2)
                                                  (("2"
                                                    (grind)
                                                    nil
                                                    nil))
                                                  nil))
                                                nil))
                                              nil))
                                            nil))
                                          nil))
                                        nil))
                                      nil))
                                    nil))
                                  nil)
                                 ("3"
                                  (hide 2)
                                  (("3" (grind) nil nil))
                                  nil))
                                nil)
                               ("2"
                                (expand "subset?")
                                (("2"
                                  (expand "emptyset")
                                  (("2"
                                    (expand "member")
                                    (("2" (propax) nil nil))
                                    nil))
                                  nil))
                                nil))
                              nil)
                             ("2" (expand "bounded_open_interval?")
                              (("2"
                                (expand "bounded_interval?")
                                (("2"
                                  (split)
                                  (("1" (grind) nil nil)
                                   ("2"
                                    (expand "bounded?")
                                    (("2"
                                      (flatten)
                                      (("2"
                                        (hide 2)
                                        (("2" (grind) nil nil))
                                        nil))
                                      nil))
                                    nil)
                                   ("3"
                                    (lemma
                                     "metric_open_def"
                                     ("S" "emptyset[real]"))
                                    (("3"
                                      (assert)
                                      (("3"
                                        (hide 2)
                                        (("3"
                                          (typepred
                                           "metric_induced_topology")
                                          (("3"
                                            (expand "open?")
                                            (("3"
                                              (expand "member")
                                              (("3"
                                                (expand
                                                 "hausdorff_space?")
                                                (("3"
                                                  (expand "topology?")
                                                  (("3"
                                                    (flatten)
                                                    (("3"
                                                      (expand
                                                       "topology_empty?")
                                                      (("3"
                                                        (expand
                                                         "member")
                                                        (("3"
                                                          (propax)
                                                          nil
                                                          nil))
                                                        nil))
                                                      nil))
                                                    nil))
                                                  nil))
                                                nil))
                                              nil))
                                            nil))
                                          nil))
                                        nil))
                                      nil))
                                    nil))
                                  nil))
                                nil))
                              nil))
                            nil))
                          nil)
                         ("2" (skosimp)
                          (("2"
                            (case "nonempty?({z_1: real |
             EXISTS (x_1: extended_nnreal):
               (EXISTS I:
                  x_le(x_sum(LAMBDA (x: nat): x_length(I(x))), x_1) AND
                   subset?[real](emptyset[real], IUnion[nat, real](I)))
                AND x_1`1 AND x_1`2 = z_1})")
                            (("1"
                              (case "bounded_below?({z_1: real |
             EXISTS (x_1: extended_nnreal):
               (EXISTS I:
                  x_le(x_sum(LAMBDA (x: nat): x_length(I(x))), x_1) AND
                   subset?[real](emptyset[real], IUnion[nat, real](I)))
                AND x_1`1 AND x_1`2 = z_1})")
                              (("1"
                                (typepred
                                 "glb({z_1: real |
             EXISTS (x_1: extended_nnreal):
               (EXISTS I:
                  x_le(x_sum(LAMBDA (x: nat): x_length(I(x))), x_1) AND
                   subset?[real](emptyset[real], IUnion[nat, real](I)))
                AND x_1`1 AND x_1`2 = z_1})")
                                (("1"
                                  (name-replace
                                   "GLB"
                                   "glb({z_1: real |
             EXISTS (x_1: extended_nnreal):
               (EXISTS I:
                  x_le(x_sum(LAMBDA (x: nat): x_length(I(x))), x_1) AND
                   subset?[real](emptyset[real], IUnion[nat, real](I)))
                AND x_1`1 AND x_1`2 = z_1})")
                                  (("1"
                                    (hide -2 -3)
                                    (("1"
                                      (expand "greatest_lower_bound?")
                                      (("1"
                                        (flatten)
                                        (("1"
                                          (expand "lower_bound?")
                                          (("1"
                                            (inst -2 "0")
                                            (("1"
                                              (split)
                                              (("1"
                                                (inst - "0")
                                                (("1" (assertnil nil)
                                                 ("2"
                                                  (hide -1 -2 2)
                                                  (("2"
                                                    (inst + "(TRUE,0)")
                                                    (("2"
                                                      (inst
                                                       +
                                                       "lambda n: emptyset[real]")
                                                      (("1"
                                                        (case-replace
                                                         "x_length(emptyset[real])=(TRUE,0)")
                                                        (("1"
                                                          (hide -1)
                                                          (("1"
                                                            (split)
                                                            (("1"
                                                              (expand
                                                               "x_le")
                                                              (("1"
                                                                (expand
                                                                 "x_sum")
                                                                (("1"
                                                                  (rewrite
                                                                   "zero_series_conv")
                                                                  (("1"
                                                                    (rewrite
                                                                     "zero_series_limit")
                                                                    (("1"
                                                                      (assert)
                                                                      nil
                                                                      nil))
                                                                    nil))
                                                                  nil))
                                                                nil))
                                                              nil)
                                                             ("2"
                                                              (expand
                                                               "subset?")
                                                              (("2"
                                                                (expand
                                                                 "emptyset")
                                                                (("2"
                                                                  (expand
                                                                   "member")
                                                                  (("2"
                                                                    (propax)
                                                                    nil
                                                                    nil))
                                                                  nil))
                                                                nil))
                                                              nil))
                                                            nil))
                                                          nil)
                                                         ("2"
                                                          (expand
                                                           "x_length")
                                                          (("2"
                                                            (hide 2)
                                                            (("2"
                                                              (lift-if)
                                                              (("2"
                                                                (assert)
                                                                (("2"
                                                                  (rewrite
                                                                   "length_empty_rew")
                                                                  (("2"
                                                                    (prop)
                                                                    (("2"
                                                                      (expand
                                                                       "bounded_interval?")
                                                                      (("2"
                                                                        (split)
                                                                        (("1"
                                                                          (grind)
                                                                          nil
                                                                          nil)
                                                                         ("2"
                                                                          (expand
                                                                           "bounded?")
                                                                          (("2"
                                                                            (flatten)
                                                                            (("2"
                                                                              (hide
                                                                               2)
                                                                              (("2"
                                                                                (grind)
                                                                                nil
                                                                                nil))
                                                                              nil))
                                                                            nil))
                                                                          nil))
                                                                        nil))
                                                                      nil))
                                                                    nil))
                                                                  nil))
                                                                nil))
                                                              nil))
                                                            nil))
                                                          nil)
                                                         ("3"
                                                          (hide 2)
                                                          (("3"
                                                            (grind)
                                                            nil
                                                            nil))
                                                          nil))
                                                        nil)
                                                       ("2"
                                                        (expand
                                                         "bounded_open_interval?")
                                                        (("2"
                                                          (expand
                                                           "bounded_interval?")
                                                          (("2"
                                                            (split)
                                                            (("1"
                                                              (grind)
                                                              nil
                                                              nil)
                                                             ("2"
                                                              (expand
                                                               "bounded?")
                                                              (("2"
                                                                (flatten)
                                                                (("2"
                                                                  (hide
                                                                   2)
                                                                  (("2"
                                                                    (grind)
                                                                    nil
                                                                    nil))
                                                                  nil))
                                                                nil))
                                                              nil)
                                                             ("3"
                                                              (typepred
                                                               "metric_induced_topology")
                                                              (("3"
                                                                (rewrite
                                                                 "metric_open_def"
                                                                 1)
                                                                (("3"
                                                                  (expand
                                                                   "open?")
                                                                  (("3"
                                                                    (expand
                                                                     "hausdorff_space?")
                                                                    (("3"
                                                                      (expand
                                                                       "topology?")
                                                                      (("3"
                                                                        (flatten)
                                                                        (("3"
                                                                          (expand
                                                                           "topology_empty?")
                                                                          (("3"
                                                                            (propax)
                                                                            nil
                                                                            nil))
                                                                          nil))
                                                                        nil))
                                                                      nil))
                                                                    nil))
                                                                  nil))
                                                                nil))
                                                              nil))
                                                            nil))
                                                          nil))
                                                        nil))
                                                      nil))
                                                    nil))
                                                  nil))
                                                nil)
                                               ("2"
                                                (skosimp)
                                                (("2"
                                                  (typepred "s!1")
                                                  (("2"
                                                    (skosimp)
                                                    (("2"
                                                      (skosimp)
                                                      (("2"
                                                        (assert)
                                                        nil
                                                        nil))
                                                      nil))
                                                    nil))
                                                  nil))
                                                nil))
                                              nil))
                                            nil))
                                          nil))
                                        nil))
                                      nil))
                                    nil))
                                  nil)
                                 ("2" (assertnil nil))
                                nil)
                               ("2"
                                (hide 2 -1)
                                (("2"
                                  (expand "bounded_below?")
                                  (("2"
                                    (inst + "0")
                                    (("2"
                                      (expand "lower_bound?")
                                      (("2"
                                        (skosimp)
                                        (("2"
                                          (typepred "s!1")
                                          (("2"
                                            (skosimp)
                                            (("2"
                                              (skosimp)
                                              (("2" (assertnil nil))
                                              nil))
                                            nil))
                                          nil))
                                        nil))
                                      nil))
                                    nil))
                                  nil))
                                nil)
                               ("3" (propax) nil nil))
                              nil)
                             ("2" (hide 2)
                              (("2"
                                (expand "nonempty?")
                                (("2"
                                  (expand "empty?")
                                  (("2"
                                    (inst - "x!1`2")
                                    (("2"
                                      (expand "member")
                                      (("2"
                                        (inst + "x!1")
                                        (("2" (assertnil nil))
                                        nil))
                                      nil))
                                    nil))
                                  nil))
                                nil))
                              nil)
                             ("3" (skosimp)
                              (("3"
                                (typepred "I!1(x!2)")
                                (("3"
                                  (expand "bounded_open_interval?")
                                  (("3"
                                    (expand "bounded_interval?")
                                    (("3" (flatten) nil nil))
                                    nil))
                                  nil))
                                nil))
                              nil))
                            nil))
                          nil))
                        nil))
                      nil))
                    nil))
                  nil))
                nil))
              nil))
            nil))
          nil))
        nil))
      nil)
     ("2" (hide 2)
      (("2" (skosimp)
        (("2" (skosimp)
          (("2" (typepred "I!1(x1!1)")
            (("2" (expand "bounded_open_interval?")
              (("2" (expand "bounded_interval?")
                (("2" (flatten) nil nil)) nil))
              nil))
            nil))
          nil))
        nil))
      nil))
    nil)
   ((outer_measure? const-decl "bool" outer_measure_def
     "measure_integration/")
    (emptyset const-decl "set" sets nil)
    (metric_space_is_hausdorff name-judgement "hausdorff[real]"
     real_topology "metric_space/")
    (metric_space_is_hausdorff? name-judgement "(hausdorff?)"
     real_topology "metric_space/")
    (metric_induced_topology_is_second_countable name-judgement
     "second_countable" real_topology "metric_space/")
    (setof type-eq-decl nil defined_types nil)
    (setofsets type-eq-decl nil sets nil)
    (hausdorff_space? const-decl "bool" topology_prelim "topology/")
    (metric_induced_topology const-decl "setofsets[T]" metric_space_def
     "metric_space/")
    (hausdorff? const-decl "bool" topology_prelim "topology/")
    (second_countable? const-decl "bool" topology_def "topology/")
    (topology? const-decl "bool" topology_prelim "topology/")
    (topology_empty? const-decl "bool" topology_prelim "topology/")
    (open? const-decl "bool" topology "topology/")
    (- const-decl "[numfield -> numfield]" number_fields nil)
    (metric_open_def formula-decl nil metric_space "metric_space/")
    (length const-decl "nnreal" real_intervals_aux nil)
    (bounded_interval nonempty-type-eq-decl nil real_topology
     "metric_space/")
    (bounded? const-decl "bool" real_topology "metric_space/")
    (length_empty_rew formula-decl nil real_intervals_aux nil)
    (zero_series_limit formula-decl nil series "series/")
    (zero_series_conv formula-decl nil series "series/")
    (finite_emptyset name-judgement "finite_set" finite_sets nil)
    (finite_emptyset name-judgement "finite_set[T]" countable_setofsets
     "sets_aux/")
    (finite_emptyset name-judgement "finite_set[T]" countable_props
     "sets_aux/")
    (emptyset_is_clopen name-judgement
     "clopen[real, (metric_induced_topology)]" real_topology
     "metric_space/")
    (emptyset_is_compact name-judgement
     "compact[real, (metric_induced_topology)]" real_topology
     "metric_space/")
    (om_increasing? const-decl "bool" outer_measure_def
     "measure_integration/")
    (< const-decl "bool" reals nil)
    (real_gt_is_strict_total_order name-judgement
     "(strict_total_order?[real])" real_props nil)
    (real_ge_is_total_order name-judgement "(total_order?[real])"
     real_props nil)
    (real_minus_real_is_real application-judgement "real" reals nil)
    (- const-decl "[numfield, numfield -> numfield]" number_fields nil)
    (subset_is_partial_order name-judgement "(partial_order?[set[T]])"
     sets_lemmas nil)
    (real_lt_is_strict_total_order name-judgement
     "(strict_total_order?[real])" real_props nil)
    (posreal_plus_nnreal_is_posreal application-judgement "posreal"
     real_types nil)
    (nonempty? const-decl "bool" sets nil)
    (choose const-decl "(p)" sets nil)
    (choose_member formula-decl nil sets_lemmas nil)
    (double_index_n_ij formula-decl nil code_product
     "extended_nnreal/")
    (double_index_n const-decl "nat" code_product "extended_nnreal/")
    (double_index_j const-decl "nat" code_product "extended_nnreal/")
    (single_index const-decl "[nat -> T]" double_index
     "extended_nnreal/")
    (II skolem-const-decl "[nat -> nat]" real_lebesgue_scaf nil)
    (JJ skolem-const-decl "[nat -> nat]" real_lebesgue_scaf nil)
    (NOT const-decl "[bool -> bool]" booleans nil)
    (greatest_lower_bound? const-decl "bool" bounded_real_defs nil)
    (bounded_below? const-decl "bool" bounded_real_defs nil)
    (glb const-decl "{x | greatest_lower_bound?(x, SB)}"
     bounded_real_defs nil)
    (lower_bound? const-decl "bool" bounded_real_defs nil)
    (I!1 skolem-const-decl "sequence[bounded_open_interval]"
     real_lebesgue_scaf nil)
    (A!1 skolem-const-decl "set[real]" real_lebesgue_scaf nil)
    (bounded_interval? const-decl "bool" real_topology "metric_space/")
    (empty? const-decl "bool" sets nil)
    (member const-decl "bool" sets nil)
    (L skolem-const-decl "[set[real] -> extended_nnreal]"
     real_lebesgue_scaf nil)
    (double_x_sum formula-decl nil extended_nnreal "extended_nnreal/")
    (real_le_is_total_order name-judgement "(total_order?[real])"
     real_props nil)
    (series_first formula-decl nil series "series/")
    (series const-decl "sequence[real]" series "series/")
    (end_series_conv formula-decl nil series "series/")
    (series_diff formula-decl nil series "series/")
    (subrange type-eq-decl nil integers nil)
    (T_low type-eq-decl nil sigma "reals/")
    (T_high type-eq-decl nil sigma "reals/")
    (<= const-decl "bool" reals nil)
    (sigma_ge_0 formula-decl nil sigma "reals/")
    (limit_diff formula-decl nil convergence_ops "analysis/")
    (- const-decl "[T -> real]" real_fun_ops "reals/")
    (limit_nonneg formula-decl nil series_aux "series/")
    (convergent_diff formula-decl nil convergence_ops "analysis/")
    (sigma def-decl "real" sigma "reals/")
    (sigma_nnreal application-judgement "nnreal" sigma_nat "reals/")
    (sigma_eq formula-decl nil sigma "reals/")
    (sigma_first formula-decl nil sigma "reals/")
    (X!1 skolem-const-decl "[nat -> set[real]]" real_lebesgue_scaf nil)
    (R skolem-const-decl "posreal" real_lebesgue_scaf nil)
    (I_n skolem-const-decl "[n: nat ->
   ({I |
       subset?[real](X!1(n), IUnion[nat, real](I)) &
        x_lt(x_sum(LAMBDA (n: nat): x_length(I(n))),
             x_add((TRUE, R / 2 ^ n), L(X!1(n))))})]"
     real_lebesgue_scaf nil)
    (limit const-decl "real" convergence_sequences "analysis/")
    (comparison_test formula-decl nil series "series/")
    (double_index_i const-decl "nat" code_product "extended_nnreal/")
    (double_index_ij_n formula-decl nil code_product
     "extended_nnreal/")
    (posreal_div_posreal_is_posreal judgement-tcc nil real_types nil)
    (x_eq const-decl "bool" extended_nnreal "extended_nnreal/")
    (convergent_scal formula-decl nil convergence_ops "analysis/")
    (convergent_sum formula-decl nil convergence_ops "analysis/")
    (* const-decl "[numfield, numfield -> numfield]" number_fields nil)
    (real_times_real_is_real application-judgement "real" reals nil)
    (series_scal formula-decl nil series "series/")
    (geometric_conv formula-decl nil series "series/")
    (posrat_div_posrat_is_posrat application-judgement "posrat"
     rationals nil)
    (const_geometric_series formula-decl nil series "series/")
    (abs const-decl "{n: nonneg_real | n >= m AND n >= -m}" real_defs
         nil)
    (convergent? const-decl "bool" convergence_sequences "analysis/")
    (limit_def formula-decl nil convergence_sequences "analysis/")
    (series const-decl "sequence[real]" series "series/")
    (cnv_seq_sum formula-decl nil convergence_ops "analysis/")
    (* const-decl "[T -> real]" real_fun_ops "reals/")
    (geometric const-decl "sequence[real]" series "series/")
    (series_sum formula-decl nil series "series/")
    (unique_limit formula-decl nil convergence_sequences "analysis/")
    (nzreal nonempty-type-eq-decl nil reals nil)
    (inv_expt formula-decl nil exponentiation nil)
    (posreal_times_posreal_is_posreal application-judgement "posreal"
     real_types nil)
    (posrat_exp application-judgement "posrat" exponentiation nil)
    (nnrat_exp application-judgement "nnrat" exponentiation nil)
    (+ const-decl "[T -> real]" real_fun_ops "reals/")
    (real_plus_real_is_real application-judgement "real" reals nil)
    (nzreal_div_nzreal_is_nzreal application-judgement "nzreal"
     real_types nil)
    (rat_minus_rat_is_rat application-judgement "rat" rationals nil)
    (IF const-decl "[boolean, T, T -> T]" if_def nil)
    (+ const-decl "[numfield, numfield -> numfield]" number_fields nil)
    (FALSE const-decl "bool" booleans nil)
    (IMPLIES const-decl "[bool, bool -> bool]" booleans nil)
    (posint_exp application-judgement "posint" exponentiation nil)
    (posreal_div_posreal_is_posreal application-judgement "posreal"
     real_types nil)
    (nonneg_real nonempty-type-eq-decl nil real_types nil)
    (> const-decl "bool" reals nil)
    (posreal nonempty-type-eq-decl nil real_types nil)
    (x_lt const-decl "bool" extended_nnreal "extended_nnreal/")
    (x_add const-decl "extended_nnreal" extended_nnreal
     "extended_nnreal/")
    (TRUE const-decl "bool" booleans nil)
    (numfield nonempty-type-eq-decl nil number_fields nil)
    (/= const-decl "boolean" notequal nil)
    (nznum nonempty-type-eq-decl nil number_fields nil)
    (/ const-decl "[numfield, nznum -> numfield]" number_fields nil)
    (OR const-decl "[bool, bool -> bool]" booleans nil)
    (^ const-decl "real" exponentiation nil)
    (om_countably_subadditive? const-decl "bool" outer_measure_def
     "measure_integration/")
    (x!1 skolem-const-decl "({z |
    EXISTS I:
      x_le(x_sum(LAMBDA (x: nat): x_length(I(x))), z) AND
       subset?[real](b!1, IUnion[nat, real](I))})" real_lebesgue_scaf
     nil)
    (s!1 skolem-const-decl "({z_1: real |
    EXISTS (x_1: extended_nnreal):
      (EXISTS I:
         x_le(x_sum(LAMBDA (x: nat): x_length(I(x))), x_1) AND
          subset?[real](b!1, IUnion[nat, real](I)))
       AND x_1`1 AND x_1`2 = z_1})" real_lebesgue_scaf nil)
    (b!1 skolem-const-decl "set[real]" real_lebesgue_scaf nil)
    (a!1 skolem-const-decl "set[real]" real_lebesgue_scaf nil)
    (om_empty? const-decl "bool" outer_measure_def
     "measure_integration/")
    (IUnion const-decl "set[T]" indexed_sets nil)
    (subset? const-decl "bool" sets nil)
    (x_length const-decl "extended_nnreal" real_lebesgue_scaf nil)
    (O const-decl "T3" function_props nil)
    (interval nonempty-type-eq-decl nil real_topology "metric_space/")
    (interval? const-decl "bool" real_topology "metric_space/")
    (x_sum const-decl "extended_nnreal" extended_nnreal
     "extended_nnreal/")
    (x_le const-decl "bool" extended_nnreal "extended_nnreal/")
    (AND const-decl "[bool, bool -> bool]" booleans nil)
    (sequence type-eq-decl nil sequences nil)
    (bounded_open_interval nonempty-type-eq-decl nil real_topology
     "metric_space/")
    (bounded_open_interval? const-decl "bool" real_topology
     "metric_space/")
    (nat nonempty-type-eq-decl nil naturalnumbers 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)
    (x_inf const-decl "extended_nnreal" extended_nnreal
     "extended_nnreal/")
    (= const-decl "[T, T -> boolean]" equalities nil)
    (extended_nnreal nonempty-type-eq-decl nil extended_nnreal
     "extended_nnreal/")
    (nnreal type-eq-decl nil real_types nil)
    (>= const-decl "bool" reals nil) (set type-eq-decl nil sets nil)
    (bool nonempty-type-eq-decl nil booleans 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)
    (boolean nonempty-type-decl nil booleans nil)
    (number nonempty-type-decl nil numbers nil))
   nil))
 (lebesgue_outer_measure_singleton 0
  (lebesgue_outer_measure_singleton-1 nil 3408170906
   ("" (skosimp)
    (("" (expand "x_eq")
      (("" (expand "lebesgue_outer_measure")
        ((""
          (name "ZZ" "{z |
                  EXISTS I:
                    x_le(x_sum(x_length o I), z) AND
                     subset?[real](singleton[real](x!1), IUnion(I))}")
          (("1" (replace -1)
            (("1" (expand "x_inf")
              (("1" (hide -1)
                (("1" (case "forall (r:posreal): ZZ(TRUE,r)")
                  (("1" (case-replace "FORALL (x: (ZZ)): NOT x`1")
                    (("1" (inst -2 "1")
                      (("1" (inst - "(TRUE, 1)"nil nil)) nil)
                     ("2" (replace 1 2)
                      (("2" (hide 1)
                        (("2"
                          (case "nonempty?({x | EXISTS z: ZZ(z) AND z`1 AND z`2 = x})")
                          (("1"
                            (case "bounded_below?({x | EXISTS z: ZZ(z) AND z`1 AND z`2 = x})")
                            (("1"
                              (typepred
                               "glb({x | EXISTS z: ZZ(z) AND z`1 AND z`2 = x})")
                              (("1"
                                (name-replace
                                 "GLB"
                                 "glb({x | EXISTS z: ZZ(z) AND z`1 AND z`2 = x})")
                                (("1"
                                  (hide -2 -3)
                                  (("1"
                                    (expand "greatest_lower_bound?")
                                    (("1"
                                      (flatten)
                                      (("1"
                                        (expand "lower_bound?")
                                        (("1"
                                          (expand "<=" -2 2)
                                          (("1"
                                            (inst -2 "0")
                                            (("1"
                                              (assert)
                                              (("1"
                                                (split -2)
                                                (("1"
                                                  (hide 1)
                                                  (("1"
                                                    (inst -3 "GLB/2")
                                                    (("1"
                                                      (inst - "GLB/2")
                                                      (("1"
                                                        (assert)
                                                        nil
                                                        nil)
                                                       ("2"
                                                        (inst
                                                         +
                                                         "(TRUE, GLB / 2)")
                                                        (("2"
                                                          (assert)
                                                          nil
                                                          nil))
                                                        nil))
                                                      nil)
                                                     ("2"
                                                      (assert)
                                                      nil
                                                      nil))
                                                    nil))
                                                  nil)
                                                 ("2"
                                                  (skosimp)
                                                  (("2"
                                                    (typepred "s!1")
                                                    (("2"
                                                      (skosimp)
                                                      (("2"
                                                        (assert)
                                                        nil
                                                        nil))
                                                      nil))
                                                    nil))
                                                  nil))
                                                nil))
                                              nil))
                                            nil))
                                          nil))
                                        nil))
                                      nil))
                                    nil))
                                  nil))
                                nil)
                               ("2" (assertnil nil))
                              nil)
                             ("2" (hide 2)
                              (("2"
                                (expand "bounded_below?")
                                (("2"
                                  (inst + "0")
                                  (("2"
                                    (expand "lower_bound?")
                                    (("2"
                                      (skosimp)
                                      (("2"
                                        (typepred "s!1")
                                        (("2"
                                          (skosimp)
                                          (("2" (assertnil nil))
                                          nil))
                                        nil))
                                      nil))
                                    nil))
                                  nil))
                                nil))
                              nil)
                             ("3" (propax) nil nil))
                            nil)
                           ("2" (hide 2)
                            (("2" (expand "nonempty?")
                              (("2"
                                (expand "empty?")
                                (("2"
                                  (expand "member")
                                  (("2"
                                    (inst - "1")
                                    (("2"
                                      (inst - "1")
                                      (("2"
                                        (inst + "(TRUE, 1)")
                                        nil
                                        nil))
                                      nil))
                                    nil))
                                  nil))
                                nil))
                              nil))
                            nil))
                          nil))
                        nil))
                      nil))
                    nil)
                   ("2" (hide 2)
                    (("2" (skosimp)
                      (("2" (expand "ZZ")
                        (("2"
                          (inst +
                           "lambda n: if n=0 then {x | x!1-r!1/2<x&x<x!1+r!1/2} else emptyset[real] endif")
                          (("1" (split)
                            (("1" (expand "o")
                              (("1"
                                (case-replace
                                 "x_length(emptyset[real])=(TRUE,0)")
                                (("1"
                                  (hide -1)
                                  (("1"
                                    (case-replace
                                     "x_length({x
                                    |
                                    x!1 - r!1 / 2 < x & x < r!1 / 2 + x!1})=(TRUE,r!1)")
                                    (("1"
                                      (hide -1)
                                      (("1"
                                        (expand "x_le")
                                        (("1"
                                          (expand "x_sum")
                                          (("1"
                                            (case-replace
                                             "FORALL (i:nat): IF i = 0 THEN TRUE ELSE TRUE ENDIF")
                                            (("1"
                                              (lemma
                                               "zero_tail_series_conv"
                                               ("a"
                                                "LAMBDA (i:nat): IF i = 0 THEN r!1 ELSE 0 ENDIF"
                                                "n"
                                                "0"))
                                              (("1"
                                                (lemma
                                                 "zero_tail_series_limit"
                                                 ("a"
                                                  "LAMBDA (i:nat): IF i = 0 THEN r!1 ELSE 0 ENDIF"
                                                  "n"
                                                  "0"))
                                                (("1"
                                                  (case-replace
                                                   "FORALL (m:nat):
         0 < m => (LAMBDA (i: nat): IF i = 0 THEN r!1 ELSE 0 ENDIF)(m) = 0")
                                                  (("1"
                                                    (replace -3)
                                                    (("1"
                                                      (replace -2)
                                                      (("1"
                                                        (expand
                                                         "series")
                                                        (("1"
                                                          (expand
                                                           "sigma")
                                                          (("1"
                                                            (expand
                                                             "sigma")
                                                            (("1"
                                                              (assert)
                                                              nil
                                                              nil))
                                                            nil))
                                                          nil))
                                                        nil))
                                                      nil))
                                                    nil)
                                                   ("2"
                                                    (hide-all-but 1)
                                                    (("2"
                                                      (skosimp)
                                                      (("2"
                                                        (assert)
                                                        nil
                                                        nil))
                                                      nil))
                                                    nil))
                                                  nil))
                                                nil))
                                              nil)
                                             ("2" (skosimp) nil nil))
                                            nil))
                                          nil))
                                        nil))
                                      nil)
                                     ("2"
                                      (hide 2)
                                      (("2"
                                        (expand "x_length")
                                        (("2"
                                          (lift-if)
                                          (("2"
                                            (assert)
                                            (("2"
                                              (prop)
                                              (("1"
                                                (hide -1)
                                                (("1"
                                                  (expand "length")
                                                  (("1"
                                                    (lift-if)
                                                    (("1"
                                                      (assert)
                                                      (("1"
                                                        (prop)
                                                        (("1"
                                                          (expand
                                                           "empty?")
                                                          (("1"
                                                            (inst
                                                             -
                                                             "x!1")
                                                            (("1"
                                                              (grind)
                                                              nil
                                                              nil))
                                                            nil))
                                                          nil)
                                                         ("2"
                                                          (typepred
                                                           "sup({x | x!1 - r!1 / 2 < x & x < r!1 / 2 + x!1}) ")
                                                          (("1"
                                                            (name-replace
                                                             "SUP"
                                                             "sup({x | x!1 - r!1 / 2 < x & x < r!1 / 2 + x!1})")
                                                            (("1"
                                                              (case-replace
                                                               "SUP=x!1+r!1/2")
                                                              (("1"
                                                                (hide
                                                                 -2)
                                                                (("1"
                                                                  (hide
                                                                   -1)
                                                                  (("1"
                                                                    (typepred
                                                                     "inf({x | x!1 - r!1 / 2 < x & x < r!1 / 2 + x!1})")
                                                                    (("1"
                                                                      (case-replace
                                                                       "inf({x | x!1 - r!1 / 2 < x & x < r!1 / 2 + x!1})=x!1-r!1/2")
                                                                      (("1"
                                                                        (assert)
                                                                        nil
                                                                        nil)
                                                                       ("2"
                                                                        (hide
                                                                         2
                                                                         3)
                                                                        (("2"
                                                                          (name-replace
                                                                           "INF"
                                                                           "inf({x | x!1 - r!1 / 2 < x & x < r!1 / 2 + x!1})")
                                                                          (("2"
                                                                            (expand
                                                                             "greatest_lower_bound")
                                                                            (("2"
                                                                              (expand
                                                                               "lower_bound")
                                                                              (("2"
                                                                                (flatten)
                                                                                (("2"
                                                                                  (inst
                                                                                   -2
                                                                                   "x!1 - r!1 / 2")
                                                                                  (("2"
                                                                                    (expand
                                                                                     "<="
                                                                                     -2
                                                                                     2)
                                                                                    (("2"
                                                                                      (replace
                                                                                       1
                                                                                       -2)
                                                                                      (("2"
                                                                                        (split
                                                                                         -2)
                                                                                        (("1"
                                                                                          (hide
                                                                                           1)
                                                                                          (("1"
                                                                                            (case
                                                                                             "exists x: x<=x!1 & x<INF & x!1 - r!1 / 2 < x")
                                                                                            (("1"
                                                                                              (skosimp)
                                                                                              (("1"
                                                                                                (inst
                                                                                                 -
                                                                                                 "x!2")
                                                                                                (("1"
                                                                                                  (assert)
                                                                                                  nil
                                                                                                  nil)
                                                                                                 ("2"
                                                                                                  (assert)
                                                                                                  nil
                                                                                                  nil))
                                                                                                nil))
                                                                                              nil)
                                                                                             ("2"
                                                                                              (name
                                                                                               "EPS"
                                                                                               "INF+r!1/2-x!1")
                                                                                              (("2"
                                                                                                (case
                                                                                                 "EPS>0")
                                                                                                (("1"
                                                                                                  (inst
                                                                                                   +
                                                                                                   "min(x!1,INF-EPS/2)")
                                                                                                  (("1"
                                                                                                    (grind)
                                                                                                    nil
                                                                                                    nil))
                                                                                                  nil)
                                                                                                 ("2"
                                                                                                  (assert)
                                                                                                  nil
                                                                                                  nil))
                                                                                                nil))
                                                                                              nil))
                                                                                            nil))
                                                                                          nil)
                                                                                         ("2"
                                                                                          (assert)
                                                                                          nil
                                                                                          nil))
                                                                                        nil))
                                                                                      nil))
                                                                                    nil))
                                                                                  nil))
                                                                                nil))
                                                                              nil))
                                                                            nil))
                                                                          nil))
                                                                        nil))
                                                                      nil)
                                                                     ("2"
                                                                      (expand
                                                                       "nonempty?")
                                                                      (("2"
                                                                        (assert)
                                                                        (("2"
                                                                          (expand
                                                                           "below_bounded")
                                                                          (("2"
                                                                            (inst
                                                                             +
                                                                             "x!1 - r!1 / 2")
                                                                            (("2"
                                                                              (expand
                                                                               "lower_bound")
                                                                              (("2"
                                                                                (propax)
                                                                                nil
                                                                                nil))
                                                                              nil))
                                                                            nil))
                                                                          nil))
                                                                        nil))
                                                                      nil))
                                                                    nil))
                                                                  nil))
                                                                nil)
                                                               ("2"
                                                                (hide
                                                                 2
                                                                 3)
                                                                (("2"
                                                                  (expand
                                                                   "least_upper_bound")
                                                                  (("2"
                                                                    (flatten)
                                                                    (("2"
                                                                      (expand
                                                                       "upper_bound")
                                                                      (("2"
                                                                        (inst
                                                                         -2
                                                                         "x!1+r!1/2")
                                                                        (("2"
                                                                          (expand
                                                                           "<="
                                                                           -2
                                                                           2)
                                                                          (("2"
                                                                            (replace
                                                                             1
                                                                             -2)
                                                                            (("2"
                                                                              (case
                                                                               "EXISTS x: x > SUP & x < r!1 / 2 + x!1 & x!1 <= x")
                                                                              (("1"
                                                                                (skosimp)
                                                                                (("1"
                                                                                  (inst
                                                                                   -
                                                                                   "x!2")
                                                                                  (("1"
                                                                                    (assert)
                                                                                    nil
                                                                                    nil)
                                                                                   ("2"
                                                                                    (assert)
                                                                                    nil
                                                                                    nil))
                                                                                  nil))
                                                                                nil)
                                                                               ("2"
                                                                                (hide
                                                                                 -1
                                                                                 2)
                                                                                (("2"
                                                                                  (name
                                                                                   "EPS"
                                                                                   "x!1+r!1/2-SUP")
                                                                                  (("2"
                                                                                    (case
                                                                                     "EPS>0")
                                                                                    (("1"
                                                                                      (inst
                                                                                       +
                                                                                       "max(x!1,SUP+EPS/2)")
                                                                                      (("1"
                                                                                        (grind)
                                                                                        nil
                                                                                        nil))
                                                                                      nil)
                                                                                     ("2"
                                                                                      (assert)
                                                                                      nil
                                                                                      nil))
                                                                                    nil))
                                                                                  nil))
                                                                                nil))
                                                                              nil))
                                                                            nil))
                                                                          nil))
                                                                        nil))
                                                                      nil))
                                                                    nil))
                                                                  nil))
                                                                nil))
                                                              nil))
                                                            nil)
                                                           ("2"
                                                            (expand
                                                             "nonempty?")
                                                            (("2"
                                                              (assert)
                                                              (("2"
                                                                (expand
                                                                 "above_bounded")
                                                                (("2"
                                                                  (inst
                                                                   +
                                                                   "x!1+r!1/2")
                                                                  (("2"
                                                                    (expand
                                                                     "upper_bound")
                                                                    (("2"
                                                                      (propax)
                                                                      nil
                                                                      nil))
                                                                    nil))
                                                                  nil))
                                                                nil))
                                                              nil))
                                                            nil))
                                                          nil))
                                                        nil))
                                                      nil))
                                                    nil))
                                                  nil))
                                                nil)
                                               ("2"
                                                (expand
                                                 "bounded_interval?")
                                                (("2"
                                                  (expand "bounded?")
                                                  (("2"
                                                    (expand
                                                     "nonempty?")
                                                    (("2"
                                                      (split)
                                                      (("1"
                                                        (grind)
                                                        nil
                                                        nil)
                                                       ("2"
                                                        (flatten)
                                                        (("2"
                                                          (assert)
                                                          (("2"
                                                            (split)
                                                            (("1"
                                                              (expand
                                                               "above_bounded")
                                                              (("1"
                                                                (inst
                                                                 +
                                                                 "x!1+r!1/2")
                                                                (("1"
                                                                  (expand
                                                                   "upper_bound")
                                                                  (("1"
                                                                    (propax)
                                                                    nil
                                                                    nil))
                                                                  nil))
                                                                nil))
                                                              nil)
                                                             ("2"
                                                              (expand
                                                               "below_bounded")
                                                              (("2"
                                                                (inst
                                                                 +
                                                                 "x!1-r!1/2")
                                                                (("2"
                                                                  (expand
                                                                   "lower_bound")
                                                                  (("2"
                                                                    (propax)
                                                                    nil
                                                                    nil))
                                                                  nil))
                                                                nil))
                                                              nil))
                                                            nil))
                                                          nil))
                                                        nil))
                                                      nil))
                                                    nil))
                                                  nil))
                                                nil))
                                              nil))
                                            nil))
                                          nil))
                                        nil))
                                      nil)
                                     ("3"
                                      (hide 2)
                                      (("3" (grind) nil nil))
                                      nil))
                                    nil))
                                  nil)
                                 ("2"
                                  (hide 2)
                                  (("2"
                                    (expand "x_length")
                                    (("2"
                                      (expand "bounded_interval?")
                                      (("2"
                                        (lift-if)
                                        (("2"
                                          (assert)
                                          (("2"
                                            (expand "length")
                                            (("2"
                                              (case-replace
                                               "empty?[real](emptyset[real])")
                                              (("1"
                                                (prop)
                                                (("1" (grind) nil nil)
                                                 ("2"
                                                  (ground)
                                                  (("2"
                                                    (grind)
                                                    nil
                                                    nil))
                                                  nil))
                                                nil)
                                               ("2"
                                                (hide 2)
                                                (("2" (grind) nil nil))
                                                nil))
                                              nil))
                                            nil))
                                          nil))
                                        nil))
                                      nil))
                                    nil))
                                  nil)
                                 ("3"
                                  (hide 2)
                                  (("3" (grind) nil nil))
                                  nil))
                                nil))
                              nil)
                             ("2" (expand "emptyset")
                              (("2"
                                (expand "IUnion")
                                (("2"
                                  (expand "singleton")
                                  (("2"
                                    (expand "subset?")
                                    (("2"
                                      (expand "member")
                                      (("2"
                                        (skosimp)
                                        (("2"
                                          (replace -1)
                                          (("2"
                                            (inst + "0")
                                            (("2" (assertnil nil))
                                            nil))
                                          nil))
                                        nil))
                                      nil))
                                    nil))
                                  nil))
                                nil))
                              nil))
                            nil)
                           ("2" (skosimp)
                            (("2" (expand "bounded_open_interval?")
                              (("2"
                                (rewrite "metric_open_def")
                                (("2"
                                  (rewrite "emptyset_is_open")
                                  (("2"
                                    (expand "bounded_interval?")
                                    (("2"
                                      (split)
                                      (("1"
                                        (expand "interval?")
                                        (("1" (grind) nil nil))
                                        nil)
                                       ("2"
                                        (expand "bounded?")
                                        (("2" (grind) nil nil))
                                        nil))
                                      nil))
                                    nil))
                                  nil))
                                nil))
                              nil))
                            nil)
                           ("3" (skosimp)
                            (("3" (expand "bounded_open_interval?")
                              (("3"
                                (split)
                                (("1"
                                  (expand "bounded_interval?")
                                  (("1"
                                    (split)
                                    (("1" (grind) nil nil)
                                     ("2"
                                      (expand "bounded?")
                                      (("2"
                                        (flatten)
                                        (("2"
                                          (expand "nonempty?")
                                          (("2"
                                            (replace 1 2)
                                            (("2"
                                              (split)
                                              (("1"
                                                (expand
                                                 "above_bounded")
                                                (("1"
                                                  (inst + "x!1+r!1/2")
                                                  (("1"
                                                    (expand
                                                     "upper_bound")
                                                    (("1"
                                                      (propax)
                                                      nil
                                                      nil))
                                                    nil))
                                                  nil))
                                                nil)
                                               ("2"
                                                (expand
                                                 "below_bounded")
                                                (("2"
                                                  (inst + "x!1-r!1/2")
                                                  (("2"
                                                    (expand
                                                     "lower_bound")
                                                    (("2"
                                                      (propax)
                                                      nil
                                                      nil))
                                                    nil))
                                                  nil))
                                                nil))
                                              nil))
                                            nil))
                                          nil))
                                        nil))
                                      nil))
                                    nil))
                                  nil)
                                 ("2"
                                  (lemma
                                   "metric_open_ball"
                                   ("x" "x!1" "r" "r!1/2"))
                                  (("2"
                                    (expand "ball")
                                    (("2"
                                      (case-replace
                                       "{y: real | abs(x!1 - y) < r!1 / 2}={x | x!1 - r!1 / 2 < x & x < r!1 / 2 + x!1}")
                                      (("2"
                                        (apply-extensionality
                                         1
                                         :hide?
                                         t)
                                        (("2"
                                          (hide-all-but 1)
                                          (("2" (grind) nil nil))
                                          nil))
                                        nil))
                                      nil))
                                    nil))
                                  nil))
                                nil))
                              nil))
                            nil))
                          nil))
                        nil))
                      nil))
                    nil))
                  nil))
                nil))
              nil))
            nil)
           ("2" (hide 2)
            (("2" (skosimp)
              (("2" (skosimp)
                (("2" (typepred "I!1(x1!1)")
                  (("2" (expand "bounded_open_interval?")
                    (("2" (expand "bounded_interval?")
                      (("2" (flatten) nil nil)) nil))
                    nil))
                  nil))
                nil))
              nil))
            nil))
          nil))
        nil))
      nil))
    nil)
   ((x_eq const-decl "bool" extended_nnreal "extended_nnreal/")
    (IUnion const-decl "set[T]" indexed_sets nil)
    (singleton const-decl "(singleton?)" sets nil)
    (singleton? const-decl "bool" sets nil)
    (subset? const-decl "bool" sets nil)
    (x_length const-decl "extended_nnreal" real_lebesgue_scaf nil)
    (O const-decl "T3" function_props nil)
    (interval nonempty-type-eq-decl nil real_topology "metric_space/")
    (interval? const-decl "bool" real_topology "metric_space/")
    (x_sum const-decl "extended_nnreal" extended_nnreal
     "extended_nnreal/")
    (x_le const-decl "bool" extended_nnreal "extended_nnreal/")
    (AND const-decl "[bool, bool -> bool]" booleans nil)
    (sequence type-eq-decl nil sequences nil)
    (bounded_open_interval nonempty-type-eq-decl nil real_topology
     "metric_space/")
    (bounded_open_interval? const-decl "bool" real_topology
     "metric_space/")
    (set type-eq-decl nil sets nil)
    (nat nonempty-type-eq-decl nil naturalnumbers 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)
    (= const-decl "[T, T -> boolean]" equalities nil)
    (extended_nnreal nonempty-type-eq-decl nil extended_nnreal
     "extended_nnreal/")
    (nnreal type-eq-decl nil real_types nil)
    (>= const-decl "bool" reals 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)
    (bool nonempty-type-eq-decl nil booleans nil)
    (boolean nonempty-type-decl nil booleans nil)
    (x_inf const-decl "extended_nnreal" extended_nnreal
     "extended_nnreal/")
    (nonneg_real nonempty-type-eq-decl nil real_types nil)
    (> const-decl "bool" reals nil)
    (posreal nonempty-type-eq-decl nil real_types nil)
    (TRUE const-decl "bool" booleans nil)
    (nonempty? const-decl "bool" sets nil)
    (greatest_lower_bound? const-decl "bool" bounded_real_defs nil)
    (glb const-decl "{x | greatest_lower_bound?(x, SB)}"
     bounded_real_defs nil)
    (<= const-decl "bool" reals nil)
    (real_lt_is_strict_total_order name-judgement
     "(strict_total_order?[real])" real_props nil)
    (real_le_is_total_order name-judgement "(total_order?[real])"
     real_props nil)
    (GLB skolem-const-decl "{x_1 |
         greatest_lower_bound?(x_1,
                               {x | EXISTS z: ZZ(z) AND z`1 AND z`2 = x})}"
     real_lebesgue_scaf nil)
    (/ const-decl "[numfield, nznum -> numfield]" number_fields nil)
    (nznum nonempty-type-eq-decl nil number_fields nil)
    (/= const-decl "boolean" notequal nil)
    (numfield nonempty-type-eq-decl nil number_fields nil)
    (real_div_nzreal_is_real application-judgement "real" reals nil)
    (real_ge_is_total_order name-judgement "(total_order?[real])"
     real_props nil)
    (real_gt_is_strict_total_order name-judgement
     "(strict_total_order?[real])" real_props nil)
    (lower_bound? const-decl "bool" bounded_real_defs nil)
    (bounded_below? const-decl "bool" bounded_real_defs nil)
    (member const-decl "bool" sets nil)
    (empty? const-decl "bool" sets nil)
    (ZZ skolem-const-decl "[extended_nnreal -> boolean]"
     real_lebesgue_scaf nil)
    (NOT const-decl "[bool -> bool]" booleans nil)
    (posreal_div_posreal_is_posreal application-judgement "posreal"
     real_types nil)
    (emptyset_is_compact name-judgement
     "compact[real, (metric_induced_topology)]" real_topology
     "metric_space/")
    (emptyset_is_clopen name-judgement
     "clopen[real, (metric_induced_topology)]" real_topology
     "metric_space/")
    (outer_negligible_emptyset name-judgement
     "outer_negligible[real, lebesgue_outer_measure]"
     real_lebesgue_scaf nil)
    (subset_algebra_emptyset name-judgement "(induced_sigma_algebra)"
     real_lebesgue_scaf nil)
    (finite_emptyset name-judgement "finite_set[T]" bounded_nats
     "orders/")
    (finite_emptyset name-judgement "finite_set[T]" countable_props
     "sets_aux/")
    (finite_emptyset name-judgement "finite_set[T]" countable_setofsets
     "sets_aux/")
    (finite_emptyset name-judgement "finite_set" finite_sets nil)
    (real_plus_real_is_real application-judgement "real" reals nil)
    (real_minus_real_is_real application-judgement "real" reals nil)
    (IMPLIES const-decl "[bool, bool -> bool]" booleans nil)
    (< const-decl "bool" reals nil)
    (- const-decl "[numfield, numfield -> numfield]" number_fields nil)
    (x!1 skolem-const-decl "real" real_lebesgue_scaf nil)
    (r!1 skolem-const-decl "posreal" real_lebesgue_scaf nil)
    (+ const-decl "[numfield, numfield -> numfield]" number_fields nil)
    (emptyset const-decl "set" sets nil)
    (IF const-decl "[boolean, T, T -> T]" if_def nil)
    (length const-decl "nnreal" real_intervals_aux nil)
    (pred type-eq-decl nil defined_types nil)
    (least_upper_bound const-decl "bool" bound_defs "reals/")
    (setof type-eq-decl nil defined_types nil)
    (above_bounded const-decl "bool" bounded_reals "reals/")
    (sup_set type-eq-decl nil bounded_reals "reals/")
    (sup const-decl "{x | least_upper_bound(<=)(x, Su)}" bounded_reals
     "reals/")
    (lower_bound const-decl "bool" bound_defs "reals/")
    (min const-decl "{p: real | p <= m AND p <= n}" real_defs nil)
    (EPS skolem-const-decl "real" real_lebesgue_scaf nil)
    (x!2 skolem-const-decl "real" real_lebesgue_scaf nil)
    (inf const-decl "{x | greatest_lower_bound(<=)(x, Sl)}"
     bounded_reals "reals/")
    (inf_set type-eq-decl nil bounded_reals "reals/")
    (below_bounded const-decl "bool" bounded_reals "reals/")
    (greatest_lower_bound const-decl "bool" bound_defs "reals/")
    (upper_bound const-decl "bool" bound_defs "reals/")
    (x!2 skolem-const-decl "real" real_lebesgue_scaf nil)
    (max const-decl "{p: real | p >= m AND p >= n}" real_defs nil)
    (minus_odd_is_odd application-judgement "odd_int" integers nil)
    (bounded? const-decl "bool" real_topology "metric_space/")
    (bounded_interval? const-decl "bool" real_topology "metric_space/")
    (zero_tail_series_conv formula-decl nil series_aux "series/")
    (sigma def-decl "real" sigma "reals/")
    (int_minus_int_is_int application-judgement "int" integers nil)
    (series const-decl "sequence[real]" series "series/")
    (zero_tail_series_limit formula-decl nil series_aux "series/")
    (metric_induced_topology const-decl "setofsets[T]" metric_space_def
     "metric_space/")
    (setofsets type-eq-decl nil sets nil)
    (emptyset_is_open judgement-tcc nil topology "topology/")
    (metric_open_def formula-decl nil metric_space "metric_space/")
    (- const-decl "[numfield -> numfield]" number_fields nil)
    (abs const-decl "{n: nonneg_real | n >= m AND n >= -m}" real_defs
         nil)
    (metric_open_ball formula-decl nil metric_space "metric_space/")
    (minus_real_is_real application-judgement "real" reals nil)
    (ball const-decl "set[T]" metric_space_def "metric_space/")
    (lebesgue_outer_measure const-decl "outer_measure"
     real_lebesgue_scaf nil))
   shostak))
 (lebesgue_outer_measure_closed_open_TCC1 0
  (lebesgue_outer_measure_closed_open_TCC1-1 nil 3475908490
   ("" (subtype-tcc) nil 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)
    (set type-eq-decl nil sets nil)
    (bounded_interval? const-decl "bool" real_topology "metric_space/")
    (bounded_interval nonempty-type-eq-decl nil real_topology
     "metric_space/")
    (interval? const-decl "bool" real_topology "metric_space/")
    (upper_bound const-decl "bool" bound_defs "reals/")
    (above_bounded const-decl "bool" bounded_reals "reals/")
    (bounded? const-decl "bool" real_topology "metric_space/")
    (member const-decl "bool" sets nil)
    (empty? const-decl "bool" sets nil)
    (nonempty? const-decl "bool" sets nil)
    (lower_bound const-decl "bool" bound_defs "reals/")
    (below_bounded const-decl "bool" bounded_reals "reals/"))
   nil))
 (lebesgue_outer_measure_closed_open_TCC2 0
  (lebesgue_outer_measure_closed_open_TCC2-1 nil 3475908490
   ("" (subtype-tcc) nil 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)
    (set type-eq-decl nil sets nil)
    (bounded_interval? const-decl "bool" real_topology "metric_space/")
    (bounded_interval nonempty-type-eq-decl nil real_topology
     "metric_space/")
    (x!2 skolem-const-decl "real" real_lebesgue_scaf nil)
    (inf const-decl "{x | greatest_lower_bound(<=)(x, Sl)}"
     bounded_reals "reals/")
    (<= const-decl "bool" reals nil)
    (greatest_lower_bound const-decl "bool" bound_defs "reals/")
    (pred type-eq-decl nil defined_types nil)
    (inf_set type-eq-decl nil bounded_reals "reals/")
    (setof type-eq-decl nil defined_types nil)
    (b!1 skolem-const-decl "bounded_interval" real_lebesgue_scaf nil)
    (bounded? const-decl "bool" real_topology "metric_space/")
    (below_bounded const-decl "bool" bounded_reals "reals/")
    (lower_bound const-decl "bool" bound_defs "reals/")
    (interval? const-decl "bool" real_topology "metric_space/")
    (real_le_is_total_order name-judgement "(total_order?[real])"
     real_props nil)
    (member const-decl "bool" sets nil)
    (empty? const-decl "bool" sets nil)
    (nonempty? const-decl "bool" sets nil)
    (upper_bound const-decl "bool" bound_defs "reals/")
    (above_bounded const-decl "bool" bounded_reals "reals/"))
   nil))
 (lebesgue_outer_measure_closed_open_TCC3 0
  (lebesgue_outer_measure_closed_open_TCC3-1 nil 3475908490
   ("" (subtype-tcc) nil 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)
    (set type-eq-decl nil sets nil)
    (bounded_interval? const-decl "bool" real_topology "metric_space/")
    (bounded_interval nonempty-type-eq-decl nil real_topology
     "metric_space/")
    (b!1 skolem-const-decl "bounded_interval" real_lebesgue_scaf nil)
    (x!2 skolem-const-decl "real" real_lebesgue_scaf nil)
    (bounded? const-decl "bool" real_topology "metric_space/")
    (below_bounded const-decl "bool" bounded_reals "reals/")
    (lower_bound const-decl "bool" bound_defs "reals/")
    (interval? const-decl "bool" real_topology "metric_space/")
    (real_lt_is_strict_total_order name-judgement
     "(strict_total_order?[real])" real_props nil)
    (member const-decl "bool" sets nil)
    (empty? const-decl "bool" sets nil)
    (nonempty? const-decl "bool" sets nil)
    (upper_bound const-decl "bool" bound_defs "reals/")
    (above_bounded const-decl "bool" bounded_reals "reals/"))
   nil))
 (lebesgue_outer_measure_closed_open 0
  (lebesgue_outer_measure_closed_open-1 nil 3408180824
   ("" (skosimp)
    (("" (typepred "lebesgue_outer_measure")
      (("" (typepred "b!1")
        (("" (expand "bounded_interval?")
          (("" (flatten)
            (("" (expand "bounded?")
              (("" (assert)
                (("" (split -2)
                  (("1" (expand "nonempty?") (("1" (propax) nil nil))
                    nil)
                   ("2" (flatten)
                    (("2"
                      (lemma "x_le_antisymmetric"
                       ("x"
                        "lebesgue_outer_measure({x | inf(b!1) <= x AND x <= sup(b!1)})"
                        "y"
                        "lebesgue_outer_measure({x | inf(b!1) < x AND x < sup(b!1)})"))
                      (("1" (assert)
                        (("1" (hide 2)
                          (("1" (split)
                            (("1"
                              (lemma "pairwise_subadditive"
                               ("y"
                                "{x | inf(b!1) <= x AND x <= sup(b!1)}"
                                "x"
                                "union[real](singleton[real](inf(b!1)),singleton[real](sup(b!1)))"))
                              (("1"
                                (case-replace
                                 "intersection
                                        ({x
                                          |
                                          inf(b!1) <= x AND x <= sup(b!1)},
                                         complement
                                         (union[real]
                                          (singleton[real](inf(b!1)),
                                           singleton[real](sup(b!1)))))= {x | inf(b!1) < x AND x < sup(b!1)}")
                                (("1"
                                  (hide -1)
                                  (("1"
                                    (name-replace
                                     "LHS"
                                     "lebesgue_outer_measure({x | inf(b!1) <= x AND x <= sup(b!1)})")
                                    (("1"
                                      (name-replace
                                       "RHS"
                                       "lebesgue_outer_measure({x | inf(b!1) < x AND x < sup(b!1)})")
                                      (("1"
                                        (case-replace
                                         "intersection
                                        ({x
                                          |
                                          inf(b!1) <= x AND x <= sup(b!1)},
                                         union[real]
                                         (singleton[real](inf(b!1)),
                                          singleton[real](sup(b!1))))=union[real]
                                         (singleton[real](inf(b!1)),
                                          singleton[real](sup(b!1)))")
                                        (("1"
                                          (hide -1)
                                          (("1"
                                            (lemma
                                             "lebesgue_outer_measure_singleton"
                                             ("x" "inf(b!1)"))
                                            (("1"
                                              (lemma
                                               "lebesgue_outer_measure_singleton"
                                               ("x" "sup(b!1)"))
                                              (("1"
                                                (lemma
                                                 "outer_negligible_union"
                                                 ("n1"
                                                  "singleton[real](inf(b!1))"
                                                  "n2"
                                                  "singleton[real](sup(b!1))"))
                                                (("1"
                                                  (expand
                                                   "outer_negligible?")
                                                  (("1"
                                                    (replace -1)
                                                    (("1"
                                                      (hide-all-but
                                                       (-4 1))
                                                      (("1"
                                                        (expand
                                                         "x_add")
                                                        (("1"
                                                          (expand
                                                           "x_le")
                                                          (("1"
                                                            (flatten)
                                                            (("1"
                                                              (replace
                                                               -2)
                                                              (("1"
                                                                (propax)
                                                                nil
                                                                nil))
                                                              nil))
                                                            nil))
                                                          nil))
                                                        nil))
                                                      nil))
                                                    nil))
                                                  nil)
                                                 ("2"
                                                  (expand
                                                   "outer_negligible?")
                                                  (("2"
                                                    (hide-all-but
                                                     (-1 1))
                                                    (("2"
                                                      (expand "x_eq")
                                                      (("2"
                                                        (flatten)
                                                        (("2"
                                                          (assert)
                                                          (("2"
                                                            (decompose-equality)
                                                            nil
                                                            nil))
                                                          nil))
                                                        nil))
                                                      nil))
                                                    nil))
                                                  nil)
                                                 ("3"
                                                  (hide-all-but (-2 1))
                                                  (("3"
                                                    (expand
                                                     "outer_negligible?")
                                                    (("3"
                                                      (expand "x_eq")
                                                      (("3"
                                                        (flatten)
                                                        (("3"
                                                          (assert)
                                                          (("3"
                                                            (decompose-equality)
                                                            nil
                                                            nil))
                                                          nil))
                                                        nil))
                                                      nil))
                                                    nil))
                                                  nil))
                                                nil))
                                              nil))
                                            nil))
                                          nil)
                                         ("2"
                                          (hide -1 2)
                                          (("2"
                                            (apply-extensionality
                                             :hide?
                                             t)
                                            (("2"
                                              (expand "intersection")
                                              (("2"
                                                (expand "member")
                                                (("2"
                                                  (case-replace
                                                   "union[real]
           (singleton[real](inf(b!1)), singleton[real](sup(b!1)))(x!1)")
                                                  (("1"
                                                    (expand
                                                     "singleton")
                                                    (("1"
                                                      (expand "union")
                                                      (("1"
                                                        (expand
                                                         "member")
                                                        (("1"
                                                          (split -1)
                                                          (("1"
                                                            (assert)
                                                            (("1"
                                                              (typepred
                                                               "sup(b!1)")
                                                              (("1"
                                                                (expand
                                                                 "least_upper_bound")
                                                                (("1"
                                                                  (expand
                                                                   "upper_bound")
                                                                  (("1"
                                                                    (flatten)
                                                                    (("1"
                                                                      (expand
                                                                       "nonempty?")
                                                                      (("1"
                                                                        (expand
                                                                         "empty?")
                                                                        (("1"
                                                                          (skosimp)
                                                                          (("1"
                                                                            (expand
                                                                             "member")
                                                                            (("1"
                                                                              (inst
                                                                               -
                                                                               "x!2")
                                                                              (("1"
                                                                                (typepred
                                                                                 "inf(b!1)")
                                                                                (("1"
                                                                                  (expand
                                                                                   "greatest_lower_bound")
                                                                                  (("1"
                                                                                    (flatten)
                                                                                    (("1"
                                                                                      (expand
                                                                                       "lower_bound")
                                                                                      (("1"
                                                                                        (inst
                                                                                         -
                                                                                         "x!2")
                                                                                        (("1"
                                                                                          (assert)
                                                                                          nil
                                                                                          nil))
                                                                                        nil))
                                                                                      nil))
                                                                                    nil))
                                                                                  nil))
                                                                                nil))
                                                                              nil))
                                                                            nil))
                                                                          nil))
                                                                        nil))
                                                                      nil))
                                                                    nil))
                                                                  nil))
                                                                nil))
                                                              nil))
                                                            nil)
                                                           ("2"
                                                            (assert)
                                                            (("2"
                                                              (expand
                                                               "nonempty?")
                                                              (("2"
                                                                (expand
                                                                 "empty?")
                                                                (("2"
                                                                  (skosimp)
                                                                  (("2"
                                                                    (expand
                                                                     "member")
                                                                    (("2"
                                                                      (typepred
                                                                       "inf(b!1)")
                                                                      (("2"
                                                                        (expand
                                                                         "greatest_lower_bound")
                                                                        (("2"
                                                                          (expand
                                                                           "lower_bound")
                                                                          (("2"
                                                                            (flatten)
                                                                            (("2"
                                                                              (inst
                                                                               -
                                                                               "x!2")
                                                                              (("2"
                                                                                (typepred
                                                                                 "sup(b!1)")
                                                                                (("2"
                                                                                  (expand
                                                                                   "least_upper_bound")
                                                                                  (("2"
                                                                                    (flatten)
                                                                                    (("2"
                                                                                      (expand
                                                                                       "upper_bound")
                                                                                      (("2"
                                                                                        (inst
                                                                                         -
                                                                                         "x!2")
                                                                                        (("2"
                                                                                          (assert)
                                                                                          nil
                                                                                          nil))
                                                                                        nil))
                                                                                      nil))
                                                                                    nil))
                                                                                  nil))
                                                                                nil))
                                                                              nil))
                                                                            nil))
                                                                          nil))
                                                                        nil))
                                                                      nil))
                                                                    nil))
                                                                  nil))
                                                                nil))
                                                              nil))
                                                            nil))
                                                          nil))
                                                        nil))
                                                      nil))
                                                    nil)
                                                   ("2"
                                                    (replace 1 2)
                                                    (("2"
                                                      (propax)
                                                      nil
                                                      nil))
                                                    nil))
                                                  nil))
                                                nil))
                                              nil))
                                            nil))
                                          nil))
                                        nil))
                                      nil))
                                    nil))
                                  nil)
                                 ("2"
                                  (hide -1 2)
                                  (("2"
                                    (apply-extensionality :hide? t)
                                    (("2"
                                      (expand "singleton")
                                      (("2"
                                        (expand "union")
                                        (("2"
                                          (expand "complement")
                                          (("2"
                                            (expand "intersection")
                                            (("2"
                                              (expand "member")
                                              (("2"
                                                (assert)
                                                (("2"
                                                  (case-replace
                                                   "inf(b!1) < x!1 AND x!1 < sup(b!1)")
                                                  (("1"
                                                    (flatten)
                                                    (("1"
                                                      (assert)
                                                      nil
                                                      nil))
                                                    nil)
                                                   ("2"
                                                    (replace 1 2)
                                                    (("2"
                                                      (assert)
                                                      (("2"
                                                        (flatten)
                                                        (("2"
                                                          (assert)
                                                          nil
                                                          nil))
                                                        nil))
                                                      nil))
                                                    nil))
                                                  nil))
                                                nil))
                                              nil))
                                            nil))
                                          nil))
                                        nil))
                                      nil))
                                    nil))
                                  nil))
                                nil))
                              nil)
                             ("2" (expand "outer_measure?")
                              (("2"
                                (flatten)
                                (("2"
                                  (assert)
                                  (("2"
                                    (expand "om_increasing?")
                                    (("2"
                                      (inst
                                       -
                                       "{x | inf(b!1) < x AND x < sup(b!1)}"
                                       "{x | inf(b!1) <= x AND x <= sup(b!1)}")
                                      (("2"
                                        (assert)
                                        (("2"
                                          (hide-all-but (-1 -2 -6 2))
                                          (("2"
                                            (expand "subset?")
                                            (("2"
                                              (skosimp)
                                              (("2"
                                                (expand "member")
                                                (("2"
                                                  (flatten)
                                                  (("2"
                                                    (assert)
                                                    nil
                                                    nil))
                                                  nil))
                                                nil))
                                              nil))
                                            nil))
                                          nil))
                                        nil))
                                      nil))
                                    nil))
                                  nil))
                                nil))
                              nil))
                            nil))
                          nil))
                        nil)
                       ("2" (skosimp) nil nil) ("3" (skosimp) nil nil)
                       ("4" (propax) nil nil))
                      nil))
                    nil))
                  nil))
                nil))
              nil))
            nil))
          nil))
        nil))
      nil))
    nil)
   ((lebesgue_outer_measure const-decl "outer_measure"
     real_lebesgue_scaf nil)
    (outer_measure nonempty-type-eq-decl nil outer_measure_def
     "measure_integration/")
    (outer_measure? const-decl "bool" outer_measure_def
     "measure_integration/")
    (extended_nnreal nonempty-type-eq-decl nil extended_nnreal
     "extended_nnreal/")
    (nnreal type-eq-decl nil real_types nil)
    (>= const-decl "bool" reals nil) (set type-eq-decl nil sets 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)
    (bounded? const-decl "bool" real_topology "metric_space/")
    (nonempty? const-decl "bool" sets nil)
    (< const-decl "bool" reals nil)
    (sup const-decl "{x | least_upper_bound(<=)(x, Su)}" bounded_reals
     "reals/")
    (least_upper_bound const-decl "bool" bound_defs "reals/")
    (sup_set type-eq-decl nil bounded_reals "reals/")
    (above_bounded const-decl "bool" bounded_reals "reals/")
    (inf const-decl "{x | greatest_lower_bound(<=)(x, Sl)}"
     bounded_reals "reals/")
    (greatest_lower_bound const-decl "bool" bound_defs "reals/")
    (pred type-eq-decl nil defined_types nil)
    (inf_set type-eq-decl nil bounded_reals "reals/")
    (below_bounded const-decl "bool" bounded_reals "reals/")
    (setof type-eq-decl nil defined_types nil)
    (<= const-decl "bool" reals nil)
    (AND const-decl "[bool, bool -> bool]" booleans nil)
    (x_le_antisymmetric formula-decl nil extended_nnreal
     "extended_nnreal/")
    (IMPLIES const-decl "[bool, bool -> bool]" booleans nil)
    (subset? const-decl "bool" sets nil)
    (subset_is_partial_order name-judgement "(partial_order?[set[T]])"
     sets_lemmas nil)
    (om_increasing? const-decl "bool" outer_measure_def
     "measure_integration/")
    (singleton const-decl "(singleton?)" sets nil)
    (singleton? const-decl "bool" sets nil)
    (union const-decl "set" sets nil)
    (pairwise_subadditive formula-decl nil outer_measure_props
     "measure_integration/")
    (real_lt_is_strict_total_order name-judgement
     "(strict_total_order?[real])" real_props nil)
    (upper_bound const-decl "bool" bound_defs "reals/")
    (b!1 skolem-const-decl "bounded_interval" real_lebesgue_scaf nil)
    (x!2 skolem-const-decl "real" real_lebesgue_scaf nil)
    (lower_bound const-decl "bool" bound_defs "reals/")
    (empty? const-decl "bool" sets nil)
    (real_le_is_total_order name-judgement "(total_order?[real])"
     real_props nil)
    (x!2 skolem-const-decl "real" real_lebesgue_scaf nil)
    (member const-decl "bool" sets nil)
    (x_eq const-decl "bool" extended_nnreal "extended_nnreal/")
    (TRUE const-decl "bool" booleans nil)
    (x_le const-decl "bool" extended_nnreal "extended_nnreal/")
    (x_add const-decl "extended_nnreal" extended_nnreal
     "extended_nnreal/")
    (outer_negligible nonempty-type-eq-decl nil outer_measure_props
     "measure_integration/")
    (outer_negligible? const-decl "bool" outer_measure_props
     "measure_integration/")
    (outer_negligible_union judgement-tcc nil outer_measure_props
     "measure_integration/")
    (singleton_is_compact application-judgement
     "compact[real, metric_induced_topology]" real_intervals nil)
    (singleton_is_closed application-judgement
     "closed[real, (metric_induced_topology)]" convergence_aux
     "metric_space/")
    (nonempty_singleton_finite application-judgement
     "non_empty_finite_set[T]" bounded_nats "orders/")
    (lebesgue_outer_measure_singleton formula-decl nil
     real_lebesgue_scaf nil)
    (intersection2_preserves_bounded application-judgement
     "(LAMBDA (S: set[T]):
   bounded?(S, restrict[[real, real], [T, T], boolean](<=)))"
     bounded_nats "orders/")
    (finite_intersection1 application-judgement "finite_set[T]"
     bounded_nats "orders/")
    (nonempty_finite_union1 application-judgement
     "non_empty_finite_set[T]" bounded_nats "orders/")
    (nonempty_union2 application-judgement "(nonempty?)" bounded_nats
     "orders/")
    (union_is_closed application-judgement
     "closed[real, metric_induced_topology]" real_intervals nil)
    (union_is_compact application-judgement
     "compact[real, metric_induced_topology]" real_intervals nil)
    (complement_closed_is_open application-judgement
     "open[real, metric_induced_topology]" real_intervals nil)
    (= const-decl "[T, T -> boolean]" equalities nil)
    (intersection const-decl "set" sets nil)
    (complement const-decl "set" sets nil)
    (bounded_interval nonempty-type-eq-decl nil real_topology
     "metric_space/")
    (bounded_interval? const-decl "bool" real_topology
     "metric_space/"))
   shostak))
 (lebesgue_outer_measure_closed_open_rew 0
  (lebesgue_outer_measure_closed_open_rew-1 nil 3408257030
   ("" (skosimp)
    (("" (typepred "b!1")
      (("" (expand "<=" -1)
        (("" (split)
          (("1"
            (lemma "lebesgue_outer_measure_closed_open"
             ("b" "{x | a!1 <= x AND x <= b!1}"))
            (("1"
              (case-replace
               "nonempty?[real]({x | a!1 <= x AND x <= b!1})")
              (("1"
                (case "above_bounded[real]({x | a!1 <= x AND x <= b!1})")
                (("1"
                  (case "below_bounded[real]({x | a!1 <= x AND x <= b!1})")
                  (("1"
                    (case-replace
                     "inf({x | a!1 <= x AND x <= b!1})=a!1")
                    (("1"
                      (case-replace
                       "sup({x | a!1 <= x AND x <= b!1})=b!1")
                      (("1" (hide-all-but (-3 -4 -6 1))
                        (("1"
                          (typepred "sup({x | a!1 <= x AND x <= b!1})")
                          (("1" (expand "least_upper_bound")
                            (("1" (flatten)
                              (("1"
                                (inst - "b!1")
                                (("1"
                                  (name-replace
                                   "SUP"
                                   "sup({x | a!1 <= x AND x <= b!1})")
                                  (("1"
                                    (split -2)
                                    (("1"
                                      (expand "<=" -1)
                                      (("1"
                                        (split)
                                        (("1"
                                          (expand "upper_bound")
                                          (("1"
                                            (inst - "b!1")
                                            (("1" (assertnil nil))
                                            nil))
                                          nil)
                                         ("2" (propax) nil nil))
                                        nil))
                                      nil)
                                     ("2" (propax) nil nil)
                                     ("3"
                                      (expand "upper_bound")
                                      (("3" (propax) nil nil))
                                      nil))
                                    nil))
                                  nil))
                                nil))
                              nil))
                            nil)
                           ("2" (assertnil nil))
                          nil))
                        nil)
                       ("2" (assertnil nil))
                      nil)
                     ("2" (hide-all-but (-1 -3 -5 1))
                      (("2"
                        (typepred "inf({x | a!1 <= x AND x <= b!1})")
                        (("1"
                          (name-replace "INF"
                           "inf({x | a!1 <= x AND x <= b!1})")
                          (("1" (expand "greatest_lower_bound")
                            (("1" (flatten)
                              (("1"
                                (expand "lower_bound")
                                (("1"
                                  (inst - "a!1")
                                  (("1"
                                    (inst - "a!1")
                                    (("1" (assertnil nil))
                                    nil))
                                  nil))
                                nil))
                              nil))
                            nil))
                          nil)
                         ("2" (assertnil nil))
                        nil))
                      nil)
                     ("3" (assertnil nil))
                    nil)
                   ("2" (expand "below_bounded")
                    (("2" (inst + "a!1")
                      (("2" (expand "lower_bound")
                        (("2" (propax) nil nil)) nil))
                      nil))
                    nil))
                  nil)
                 ("2" (expand "above_bounded")
                  (("2" (inst + " b!1")
                    (("2" (expand "upper_bound")
                      (("2" (propax) nil nil)) nil))
                    nil))
                  nil))
                nil)
               ("2" (hide -1 2)
                (("2" (expand "nonempty?")
                  (("2" (expand "empty?")
                    (("2" (inst - "a!1")
                      (("2" (expand "member") (("2" (propax) nil nil))
                        nil))
                      nil))
                    nil))
                  nil))
                nil))
              nil)
             ("2" (hide 2)
              (("2" (expand "bounded_interval?")
                (("2" (split)
                  (("1" (expand "interval?") (("1" (grind) nil nil))
                    nil)
                   ("2" (expand "bounded?")
                    (("2" (expand "nonempty?")
                      (("2" (flatten)
                        (("2" (assert)
                          (("2" (split)
                            (("1" (expand "above_bounded")
                              (("1"
                                (inst + "b!1")
                                (("1"
                                  (expand "upper_bound")
                                  (("1" (propax) nil nil))
                                  nil))
                                nil))
                              nil)
                             ("2" (expand "below_bounded")
                              (("2"
                                (inst + "a!1")
                                (("2"
                                  (expand "lower_bound")
                                  (("2" (propax) nil nil))
                                  nil))
                                nil))
                              nil))
                            nil))
                          nil))
                        nil))
                      nil))
                    nil))
                  nil))
                nil))
              nil))
            nil)
           ("2"
            (case-replace "{x | a!1 < x AND x < b!1}=emptyset[real]")
            (("1"
              (case-replace
               "{x | a!1 <= x AND x <= b!1}=singleton[real](b!1)")
              (("1"
                (lemma "lebesgue_outer_measure_singleton" ("x" "b!1"))
                (("1" (hide -2 -3)
                  (("1"
                    (name-replace "LHS"
                     "lebesgue_outer_measure(singleton[real](b!1))")
                    (("1" (typepred "lebesgue_outer_measure")
                      (("1" (expand "outer_measure?")
                        (("1" (flatten)
                          (("1"
                            (case-replace
                             "lebesgue_outer_measure(emptyset[real])=(TRUE, 0)")
                            (("1" (hide 2 -4)
                              (("1"
                                (hide-all-but 1)
                                (("1"
                                  (expand "lebesgue_outer_measure")
                                  (("1"
                                    (expand "x_inf")
                                    (("1"
                                      (lift-if)
                                      (("1"
                                        (assert)
                                        (("1"
                                          (case-replace
                                           "FORALL (x:
                   ({z |
                       EXISTS I:
                         x_le(x_sum(x_length o I), z) AND
                          subset?[real](emptyset[real], IUnion(I))})):
           NOT x`1")
                                          (("1"
                                            (inst - "(TRUE,0)")
                                            (("1"
                                              (inst
                                               +
                                               "lambda (n:nat): emptyset[real]")
                                              (("1"
                                                (split)
                                                (("1"
                                                  (expand "o")
                                                  (("1"
                                                    (case-replace
                                                     "x_length(emptyset[real])=(TRUE, 0)")
                                                    (("1"
                                                      (hide -1)
                                                      (("1"
                                                        (expand
                                                         "x_sum")
                                                        (("1"
                                                          (expand
                                                           "x_le")
                                                          (("1"
                                                            (rewrite
                                                             "zero_series_limit")
                                                            (("1"
                                                              (rewrite
                                                               "zero_series_conv")
                                                              (("1"
                                                                (assert)
                                                                nil
                                                                nil))
                                                              nil))
                                                            nil))
                                                          nil))
                                                        nil))
                                                      nil)
                                                     ("2"
                                                      (hide 2)
                                                      (("2"
                                                        (expand
                                                         "x_length")
                                                        (("2"
                                                          (lift-if)
                                                          (("2"
                                                            (rewrite
                                                             "length_empty_rew")
                                                            (("2"
                                                              (assert)
                                                              (("2"
                                                                (prop)
                                                                (("2"
                                                                  (expand
                                                                   "bounded_interval?")
                                                                  (("2"
                                                                    (split)
                                                                    (("1"
                                                                      (grind)
                                                                      nil
                                                                      nil)
                                                                     ("2"
                                                                      (expand
                                                                       "bounded?")
                                                                      (("2"
                                                                        (flatten)
                                                                        (("2"
                                                                          (hide
                                                                           2)
                                                                          (("2"
                                                                            (grind)
                                                                            nil
                                                                            nil))
                                                                          nil))
                                                                        nil))
                                                                      nil))
                                                                    nil))
                                                                  nil))
                                                                nil))
                                                              nil))
                                                            nil))
                                                          nil))
                                                        nil))
                                                      nil)
                                                     ("3"
                                                      (hide 2)
                                                      (("3"
                                                        (grind)
                                                        nil
                                                        nil))
                                                      nil))
                                                    nil))
                                                  nil)
                                                 ("2"
                                                  (expand "subset?")
                                                  (("2"
                                                    (expand "emptyset")
                                                    (("2"
                                                      (expand "member")
                                                      (("2"
                                                        (propax)
                                                        nil
                                                        nil))
                                                      nil))
                                                    nil))
                                                  nil))
                                                nil)
                                               ("2"
                                                (expand
                                                 "bounded_open_interval?")
                                                (("2"
                                                  (expand
                                                   "bounded_interval?")
                                                  (("2"
                                                    (split)
                                                    (("1"
                                                      (grind)
                                                      nil
                                                      nil)
                                                     ("2"
                                                      (expand
                                                       "bounded?")
                                                      (("2"
                                                        (flatten)
                                                        (("2"
                                                          (hide 2)
                                                          (("2"
                                                            (grind)
                                                            nil
                                                            nil))
                                                          nil))
                                                        nil))
                                                      nil)
                                                     ("3"
                                                      (typepred
                                                       "metric_induced_topology")
                                                      (("3"
                                                        (expand
                                                         "metric_induced_topology")
                                                        (("3"
                                                          (rewrite
                                                           "metric_open_def")
                                                          (("3"
                                                            (expand
                                                             "open?")
                                                            (("3"
                                                              (expand
                                                               "hausdorff_space?")
                                                              (("3"
                                                                (expand
                                                                 "topology?")
                                                                (("3"
                                                                  (flatten)
                                                                  (("3"
                                                                    (expand
                                                                     "topology_empty?")
                                                                    (("3"
                                                                      (expand
                                                                       "member")
                                                                      (("3"
                                                                        (rewrite
                                                                         "metric_open_def")
                                                                        (("3"
                                                                          (expand
                                                                           "open?")
                                                                          (("3"
                                                                            (expand
                                                                             "member")
                                                                            (("3"
                                                                              (propax)
                                                                              nil
                                                                              nil))
                                                                            nil))
                                                                          nil))
                                                                        nil))
                                                                      nil))
                                                                    nil))
                                                                  nil))
                                                                nil))
                                                              nil))
                                                            nil))
                                                          nil))
                                                        nil))
                                                      nil))
                                                    nil))
                                                  nil))
                                                nil))
                                              nil))
                                            nil)
                                           ("2"
                                            (replace 1)
                                            (("2"
                                              (skosimp)
                                              (("2"
                                                (case
                                                 "nonempty?({z_1: real |
             EXISTS (x:extended_nnreal):
               (EXISTS I:
                  x_le(x_sum(x_length o I), x) AND
                   subset?[real](emptyset[real], IUnion(I)))
                AND x`1 AND x`2 = z_1})")
                                                (("1"
                                                  (case
                                                   "below_bounded({z_1: real |
             EXISTS (x:extended_nnreal):
               (EXISTS I:
                  x_le(x_sum(x_length o I), x) AND
                   subset?[real](emptyset[real], IUnion(I)))
                AND x`1 AND x`2 = z_1})")
                                                  (("1"
                                                    (typepred
                                                     "glb({z_1: real |
             EXISTS (x: extended_nnreal):
               (EXISTS I:
                  x_le(x_sum(x_length o I), x) AND
                   subset?[real](emptyset[real], IUnion(I)))
                AND x`1 AND x`2 = z_1})")
                                                    (("1"
                                                      (name-replace
                                                       "GLB"
                                                       "glb({z_1: real |
             EXISTS (x: extended_nnreal):
               (EXISTS I:
                  x_le(x_sum(x_length o I), x) AND
                   subset?[real](emptyset[real], IUnion(I)))
                AND x`1 AND x`2 = z_1})")
                                                      (("1"
                                                        (hide -2 -3)
                                                        (("1"
                                                          (expand
                                                           "greatest_lower_bound?")
                                                          (("1"
                                                            (flatten)
                                                            (("1"
                                                              (inst
                                                               -
                                                               "0")
                                                              (("1"
                                                                (split)
                                                                (("1"
                                                                  (expand
                                                                   "lower_bound?")
                                                                  (("1"
                                                                    (inst
                                                                     -
                                                                     "0")
                                                                    (("1"
                                                                      (assert)
                                                                      nil
                                                                      nil)
                                                                     ("2"
                                                                      (inst
                                                                       +
                                                                       "(TRUE,0)")
                                                                      (("2"
                                                                        (inst
                                                                         +
                                                                         "lambda (n:nat): emptyset[real]")
                                                                        (("1"
                                                                          (assert)
                                                                          (("1"
                                                                            (split)
                                                                            (("1"
                                                                              (expand
                                                                               "o"
                                                                               1)
                                                                              (("1"
                                                                                (hide
                                                                                 -1
                                                                                 2)
                                                                                (("1"
                                                                                  (case-replace
                                                                                   "x_length(emptyset[real])=(TRUE, 0)")
                                                                                  (("1"
                                                                                    (hide
                                                                                     -1)
                                                                                    (("1"
                                                                                      (expand
                                                                                       "x_sum")
                                                                                      (("1"
                                                                                        (expand
                                                                                         "x_le")
                                                                                        (("1"
                                                                                          (rewrite
                                                                                           "zero_series_conv")
                                                                                          (("1"
                                                                                            (rewrite
                                                                                             "zero_series_limit")
                                                                                            (("1"
                                                                                              (assert)
                                                                                              nil
                                                                                              nil))
                                                                                            nil))
                                                                                          nil))
                                                                                        nil))
                                                                                      nil))
                                                                                    nil)
                                                                                   ("2"
                                                                                    (expand
                                                                                     "x_length")
                                                                                    (("2"
                                                                                      (hide
                                                                                       2
                                                                                       -1)
                                                                                      (("2"
                                                                                        (lift-if)
                                                                                        (("2"
                                                                                          (assert)
                                                                                          (("2"
                                                                                            (rewrite
                                                                                             "length_empty_rew")
                                                                                            (("2"
                                                                                              (prop)
                                                                                              (("2"
                                                                                                (expand
                                                                                                 "bounded_interval?")
                                                                                                (("2"
                                                                                                  (split)
                                                                                                  (("1"
                                                                                                    (grind)
                                                                                                    nil
                                                                                                    nil)
                                                                                                   ("2"
                                                                                                    (expand
                                                                                                     "bounded?")
                                                                                                    (("2"
                                                                                                      (flatten)
                                                                                                      (("2"
                                                                                                        (hide
                                                                                                         2)
                                                                                                        (("2"
                                                                                                          (grind)
                                                                                                          nil
                                                                                                          nil))
                                                                                                        nil))
                                                                                                      nil))
                                                                                                    nil))
                                                                                                  nil))
                                                                                                nil))
                                                                                              nil))
                                                                                            nil))
                                                                                          nil))
                                                                                        nil))
                                                                                      nil))
                                                                                    nil)
                                                                                   ("3"
                                                                                    (hide
                                                                                     -1
                                                                                     2)
                                                                                    (("3"
                                                                                      (grind)
                                                                                      nil
                                                                                      nil))
                                                                                    nil))
                                                                                  nil))
                                                                                nil))
                                                                              nil)
                                                                             ("2"
                                                                              (hide
                                                                               -1
                                                                               -2
                                                                               2)
                                                                              (("2"
                                                                                (expand
                                                                                 "subset?")
                                                                                (("2"
                                                                                  (expand
                                                                                   "emptyset")
                                                                                  (("2"
                                                                                    (expand
                                                                                     "member")
                                                                                    (("2"
                                                                                      (propax)
                                                                                      nil
                                                                                      nil))
                                                                                    nil))
                                                                                  nil))
                                                                                nil))
                                                                              nil))
                                                                            nil))
                                                                          nil)
                                                                         ("2"
                                                                          (hide-all-but
                                                                           1)
                                                                          (("2"
                                                                            (expand
                                                                             "bounded_open_interval?")
                                                                            (("2"
                                                                              (expand
                                                                               "bounded_interval?")
                                                                              (("2"
                                                                                (split)
                                                                                (("1"
                                                                                  (grind)
                                                                                  nil
                                                                                  nil)
                                                                                 ("2"
                                                                                  (expand
                                                                                   "bounded?")
                                                                                  (("2"
                                                                                    (flatten)
                                                                                    (("2"
                                                                                      (hide
                                                                                       2)
                                                                                      (("2"
                                                                                        (grind)
                                                                                        nil
                                                                                        nil))
                                                                                      nil))
                                                                                    nil))
                                                                                  nil)
                                                                                 ("3"
                                                                                  (typepred
                                                                                   "metric_induced_topology")
                                                                                  (("3"
                                                                                    (expand
                                                                                     "metric_induced_topology")
                                                                                    (("3"
                                                                                      (expand
                                                                                       "hausdorff_space?")
                                                                                      (("3"
                                                                                        (expand
                                                                                         "topology?")
                                                                                        (("3"
                                                                                          (flatten)
                                                                                          (("3"
                                                                                            (expand
                                                                                             "topology_empty?")
                                                                                            (("3"
                                                                                              (expand
                                                                                               "member")
                                                                                              (("3"
                                                                                                (propax)
                                                                                                nil
                                                                                                nil))
                                                                                              nil))
                                                                                            nil))
                                                                                          nil))
                                                                                        nil))
                                                                                      nil))
                                                                                    nil))
                                                                                  nil))
                                                                                nil))
                                                                              nil))
                                                                            nil))
                                                                          nil))
                                                                        nil))
                                                                      nil))
                                                                    nil))
                                                                  nil)
                                                                 ("2"
                                                                  (hide
                                                                   2
                                                                   -1
                                                                   -2)
                                                                  (("2"
                                                                    (expand
                                                                     "lower_bound?")
                                                                    (("2"
                                                                      (skosimp)
                                                                      (("2"
                                                                        (typepred
                                                                         "s!1")
                                                                        (("2"
                                                                          (skosimp)
                                                                          (("2"
                                                                            (skosimp)
                                                                            (("2"
                                                                              (assert)
                                                                              nil
                                                                              nil))
                                                                            nil))
                                                                          nil))
                                                                        nil))
                                                                      nil))
                                                                    nil))
                                                                  nil))
                                                                nil))
                                                              nil))
                                                            nil))
                                                          nil))
                                                        nil))
                                                      nil)
                                                     ("2"
                                                      (assert)
                                                      (("2"
                                                        (hide-all-but
                                                         1)
                                                        (("2"
                                                          (expand
                                                           "bounded_below?")
                                                          (("2"
                                                            (inst
                                                             +
                                                             "0")
                                                            (("2"
                                                              (expand
                                                               "lower_bound?")
                                                              (("2"
                                                                (skosimp)
                                                                (("2"
                                                                  (typepred
                                                                   "s!1")
                                                                  (("2"
                                                                    (skosimp)
                                                                    (("2"
                                                                      (assert)
                                                                      nil
                                                                      nil))
                                                                    nil))
                                                                  nil))
                                                                nil))
                                                              nil))
                                                            nil))
                                                          nil))
                                                        nil))
                                                      nil))
                                                    nil)
                                                   ("2"
                                                    (hide -1 2 -2)
                                                    (("2"
                                                      (expand
                                                       "below_bounded")
                                                      (("2"
                                                        (inst + "0")
                                                        (("2"
                                                          (expand
                                                           "lower_bound")
                                                          (("2"
                                                            (skosimp)
                                                            (("2"
                                                              (typepred
                                                               "z!1")
                                                              (("2"
                                                                (skosimp)
                                                                (("2"
                                                                  (assert)
                                                                  nil
                                                                  nil))
                                                                nil))
                                                              nil))
                                                            nil))
                                                          nil))
                                                        nil))
                                                      nil))
                                                    nil))
                                                  nil)
                                                 ("2"
                                                  (hide 2)
                                                  (("2"
                                                    (expand
                                                     "nonempty?")
                                                    (("2"
                                                      (expand "empty?")
                                                      (("2"
                                                        (expand
                                                         "member")
                                                        (("2"
                                                          (typepred
                                                           "x!1")
                                                          (("2"
                                                            (skosimp)
                                                            (("2"
                                                              (inst
                                                               -
                                                               "x!1`2")
                                                              (("2"
                                                                (inst
                                                                 +
                                                                 "x!1")
                                                                (("2"
                                                                  (assert)
                                                                  nil
                                                                  nil))
                                                                nil))
                                                              nil))
                                                            nil))
                                                          nil))
                                                        nil))
                                                      nil))
                                                    nil))
                                                  nil)
                                                 ("3"
                                                  (skosimp)
                                                  (("3"
                                                    (skosimp)
                                                    (("3"
                                                      (typepred
                                                       "I!1(x1!1)")
                                                      (("3"
                                                        (expand
                                                         "bounded_open_interval?")
                                                        (("3"
                                                          (expand
                                                           "bounded_interval?")
                                                          (("3"
                                                            (flatten)
                                                            nil
                                                            nil))
                                                          nil))
                                                        nil))
                                                      nil))
                                                    nil))
                                                  nil))
                                                nil))
                                              nil))
                                            nil))
                                          nil))
                                        nil))
                                      nil))
                                    nil))
                                  nil))
                                nil))
                              nil))
                            nil))
                          nil))
                        nil))
                      nil))
                    nil))
                  nil))
                nil)
               ("2" (hide-all-but (-2 1))
                (("2" (apply-extensionality :hide? t)
                  (("2" (expand "singleton") (("2" (grind) nil nil))
                    nil))
                  nil))
                nil))
              nil)
             ("2" (hide 2)
              (("2" (apply-extensionality :hide? t)
                (("2" (expand "emptyset")
                  (("2" (flatten) (("2" (assertnil nil)) nil)) nil))
                nil))
              nil))
            nil))
          nil))
        nil))
      nil))
    nil)
   ((<= const-decl "bool" reals 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)
    (real_minus_real_is_real application-judgement "real" reals nil)
    (interval? const-decl "bool" real_topology "metric_space/")
    (bounded? const-decl "bool" real_topology "metric_space/")
    (nonempty? const-decl "bool" sets nil)
    (below_bounded const-decl "bool" bounded_reals "reals/")
    (lower_bound const-decl "bool" bound_defs "reals/")
    (sup const-decl "{x | least_upper_bound(<=)(x, Su)}" bounded_reals
     "reals/")
    (least_upper_bound const-decl "bool" bound_defs "reals/")
    (sup_set type-eq-decl nil bounded_reals "reals/")
    (upper_bound const-decl "bool" bound_defs "reals/")
    (real_lt_is_strict_total_order name-judgement
     "(strict_total_order?[real])" real_props nil)
    (real_le_is_total_order name-judgement "(total_order?[real])"
     real_props nil)
    (inf const-decl "{x | greatest_lower_bound(<=)(x, Sl)}"
     bounded_reals "reals/")
    (greatest_lower_bound const-decl "bool" bound_defs "reals/")
    (pred type-eq-decl nil defined_types nil)
    (inf_set type-eq-decl nil bounded_reals "reals/")
    (= const-decl "[T, T -> boolean]" equalities nil)
    (above_bounded const-decl "bool" bounded_reals "reals/")
    (setof type-eq-decl nil defined_types nil)
    (member const-decl "bool" sets nil)
    (empty? const-decl "bool" sets nil)
    (lebesgue_outer_measure_closed_open formula-decl nil
     real_lebesgue_scaf nil)
    (set type-eq-decl nil sets nil)
    (bounded_interval? const-decl "bool" real_topology "metric_space/")
    (bounded_interval nonempty-type-eq-decl nil real_topology
     "metric_space/")
    (AND const-decl "[bool, bool -> bool]" booleans nil)
    (singleton const-decl "(singleton?)" sets nil)
    (singleton? const-decl "bool" sets nil)
    (singleton_is_compact application-judgement
     "compact[real, metric_induced_topology]" real_intervals nil)
    (singleton_is_closed application-judgement
     "closed[real, (metric_induced_topology)]" convergence_aux
     "metric_space/")
    (nonempty_singleton_finite application-judgement
     "non_empty_finite_set[T]" bounded_nats "orders/")
    (IUnion const-decl "set[T]" indexed_sets nil)
    (subset? const-decl "bool" sets nil)
    (x_length const-decl "extended_nnreal" real_lebesgue_scaf nil)
    (O const-decl "T3" function_props nil)
    (interval nonempty-type-eq-decl nil real_topology "metric_space/")
    (x_sum const-decl "extended_nnreal" extended_nnreal
     "extended_nnreal/")
    (x_le const-decl "bool" extended_nnreal "extended_nnreal/")
    (sequence type-eq-decl nil sequences nil)
    (bounded_open_interval nonempty-type-eq-decl nil real_topology
     "metric_space/")
    (bounded_open_interval? const-decl "bool" real_topology
     "metric_space/")
    (nat nonempty-type-eq-decl nil naturalnumbers 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)
    (length_empty_rew formula-decl nil real_intervals_aux nil)
    (zero_series_conv formula-decl nil series "series/")
    (zero_series_limit formula-decl nil series "series/")
    (metric_space_is_hausdorff name-judgement "hausdorff[real]"
     real_topology "metric_space/")
    (metric_space_is_hausdorff? name-judgement "(hausdorff?)"
     real_topology "metric_space/")
    (metric_induced_topology_is_second_countable name-judgement
     "second_countable" real_topology "metric_space/")
    (setofsets type-eq-decl nil sets nil)
    (hausdorff_space? const-decl "bool" topology_prelim "topology/")
    (nonneg_real nonempty-type-eq-decl nil real_types nil)
    (numfield nonempty-type-eq-decl nil number_fields nil)
    (- const-decl "[numfield -> numfield]" number_fields nil)
    (abs const-decl "{n: nonneg_real | n >= m AND n >= -m}" real_defs
         nil)
    (- const-decl "[numfield, numfield -> numfield]" number_fields nil)
    (metric_induced_topology const-decl "setofsets[T]" metric_space_def
     "metric_space/")
    (hausdorff? const-decl "bool" topology_prelim "topology/")
    (second_countable? const-decl "bool" topology_def "topology/")
    (metric_open_def formula-decl nil metric_space "metric_space/")
    (topology_empty? const-decl "bool" topology_prelim "topology/")
    (topology? const-decl "bool" topology_prelim "topology/")
    (open? const-decl "bool" topology "topology/")
    (subset_is_partial_order name-judgement "(partial_order?[set[T]])"
     sets_lemmas nil)
    (lower_bound? const-decl "bool" bounded_real_defs nil)
    (glb const-decl "{x | greatest_lower_bound?(x, SB)}"
     bounded_real_defs nil)
    (bounded_below? const-decl "bool" bounded_real_defs nil)
    (greatest_lower_bound? const-decl "bool" bounded_real_defs nil)
    (x_inf const-decl "extended_nnreal" extended_nnreal
     "extended_nnreal/")
    (TRUE const-decl "bool" booleans nil)
    (>= const-decl "bool" reals nil)
    (nnreal type-eq-decl nil real_types nil)
    (extended_nnreal nonempty-type-eq-decl nil extended_nnreal
     "extended_nnreal/")
    (outer_measure? const-decl "bool" outer_measure_def
     "measure_integration/")
    (outer_measure nonempty-type-eq-decl nil outer_measure_def
     "measure_integration/")
    (lebesgue_outer_measure const-decl "outer_measure"
     real_lebesgue_scaf nil)
    (lebesgue_outer_measure_singleton formula-decl nil
     real_lebesgue_scaf nil)
    (finite_emptyset name-judgement "finite_set" finite_sets nil)
    (finite_emptyset name-judgement "finite_set[T]" countable_setofsets
     "sets_aux/")
    (finite_emptyset name-judgement "finite_set[T]" countable_props
     "sets_aux/")
    (finite_emptyset name-judgement "finite_set[T]" bounded_nats
     "orders/")
    (subset_algebra_emptyset name-judgement "(induced_sigma_algebra)"
     real_lebesgue_scaf nil)
    (outer_negligible_emptyset name-judgement
     "outer_negligible[real, lebesgue_outer_measure]"
     real_lebesgue_scaf nil)
    (emptyset_is_clopen name-judgement
     "clopen[real, (metric_induced_topology)]" real_topology
     "metric_space/")
    (emptyset_is_compact name-judgement
     "compact[real, (metric_induced_topology)]" real_topology
     "metric_space/")
    (< const-decl "bool" reals nil)
    (emptyset const-decl "set" sets nil))
   shostak))
 (lebesgue_outer_measure_closed 0
  (lebesgue_outer_measure_closed-1 nil 3408182751
   ("" (skosimp)
    (("" (typepred "b!1")
      (("" (expand "bounded_interval?")
        (("" (expand "bounded?")
          (("" (assert)
            (("" (flatten)
              (("" (split)
                (("1" (expand "nonempty?") (("1" (propax) nil nil))
                  nil)
                 ("2" (flatten)
                  (("2"
                    (lemma "lebesgue_outer_measure_closed_open"
                     ("b" "b!1"))
                    (("2" (assert)
                      (("2" (typepred "lebesgue_outer_measure")
                        (("2" (expand "outer_measure?")
                          (("2" (flatten)
                            (("2" (hide -1 -3)
                              (("2"
                                (expand "om_increasing?")
                                (("2"
                                  (inst-cp
                                   -
                                   "{x | inf(b!1) < x AND x < sup(b!1)}"
                                   "b!1")
                                  (("2"
                                    (inst
                                     -
                                     "b!1"
                                     "{x | inf(b!1) <= x AND x <= sup(b!1)}")
                                    (("2"
                                      (name-replace
                                       "OPEN"
                                       "lebesgue_outer_measure({x | inf(b!1) < x AND x < sup(b!1)})")
                                      (("2"
                                        (name-replace
                                         "CLOSED"
                                         "lebesgue_outer_measure({x | inf(b!1) <= x AND x <= sup(b!1)})")
                                        (("2"
                                          (name-replace
                                           "INTERVAL"
                                           "lebesgue_outer_measure(b!1)")
                                          (("2"
                                            (split)
                                            (("1"
                                              (split)
                                              (("1"
                                                (hide-all-but
                                                 (-1 -2 -3 1))
                                                (("1" (grind) nil nil))
                                                nil)
                                               ("2"
                                                (hide -1 -2 2)
                                                (("2"
                                                  (expand "subset?")
                                                  (("2"
                                                    (expand "member")
                                                    (("2"
                                                      (skosimp)
                                                      (("2"
                                                        (typepred
                                                         "sup(b!1)")
                                                        (("2"
                                                          (expand
                                                           "least_upper_bound")
                                                          (("2"
                                                            (expand
                                                             "upper_bound")
                                                            (("2"
                                                              (flatten)
                                                              (("2"
                                                                (inst
                                                                 -2
                                                                 "x!1")
                                                                (("2"
                                                                  (assert)
                                                                  (("2"
                                                                    (skosimp)
                                                                    (("2"
                                                                      (typepred
                                                                       "z!1")
                                                                      (("2"
                                                                        (case
                                                                         "x!1<z!1")
                                                                        (("1"
                                                                          (hide
                                                                           1)
                                                                          (("1"
                                                                            (typepred
                                                                             "inf(b!1)")
                                                                            (("1"
                                                                              (expand
                                                                               "greatest_lower_bound")
                                                                              (("1"
                                                                                (expand
                                                                                 "lower_bound")
                                                                                (("1"
                                                                                  (flatten)
                                                                                  (("1"
                                                                                    (inst
                                                                                     -2
                                                                                     "x!1")
                                                                                    (("1"
                                                                                      (assert)
                                                                                      (("1"
                                                                                        (skosimp)
                                                                                        (("1"
                                                                                          (typepred
                                                                                           "z!2")
                                                                                          (("1"
                                                                                            (case
                                                                                             "z!2<x!1")
                                                                                            (("1"
                                                                                              (hide
                                                                                               1)
                                                                                              (("1"
                                                                                                (expand
                                                                                                 "interval?")
                                                                                                (("1"
                                                                                                  (inst
                                                                                                   -
                                                                                                   "z!2"
                                                                                                   "z!1"
                                                                                                   "x!1")
                                                                                                  (("1"
                                                                                                    (assert)
                                                                                                    nil
                                                                                                    nil))
                                                                                                  nil))
                                                                                                nil))
                                                                                              nil)
                                                                                             ("2"
                                                                                              (assert)
                                                                                              nil
                                                                                              nil))
                                                                                            nil))
                                                                                          nil))
                                                                                        nil))
                                                                                      nil))
                                                                                    nil))
                                                                                  nil))
                                                                                nil))
                                                                              nil))
                                                                            nil))
                                                                          nil)
                                                                         ("2"
                                                                          (assert)
                                                                          nil
                                                                          nil))
                                                                        nil))
                                                                      nil))
                                                                    nil))
                                                                  nil))
                                                                nil))
                                                              nil))
                                                            nil))
                                                          nil))
                                                        nil))
                                                      nil))
                                                    nil))
                                                  nil))
                                                nil))
                                              nil)
                                             ("2"
                                              (hide-all-but
                                               (-3 -4 -6 -5 1))
                                              (("2"
                                                (expand "subset?")
                                                (("2"
                                                  (expand "member")
                                                  (("2"
                                                    (skosimp)
                                                    (("2"
                                                      (typepred
                                                       "sup(b!1)")
                                                      (("2"
                                                        (typepred
                                                         "inf(b!1)")
                                                        (("2"
                                                          (expand
                                                           "least_upper_bound")
                                                          (("2"
                                                            (expand
                                                             "greatest_lower_bound")
                                                            (("2"
                                                              (expand
                                                               "lower_bound")
                                                              (("2"
                                                                (expand
                                                                 "upper_bound")
                                                                (("2"
                                                                  (flatten)
                                                                  (("2"
                                                                    (inst
                                                                     -
                                                                     "x!1")
                                                                    (("2"
                                                                      (inst
                                                                       -3
                                                                       "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))
                          nil))
                        nil))
                      nil))
                    nil))
                  nil))
                nil))
              nil))
            nil))
          nil))
        nil))
      nil))
    nil)
   ((bounded_interval nonempty-type-eq-decl nil real_topology
     "metric_space/")
    (bounded_interval? const-decl "bool" real_topology "metric_space/")
    (set type-eq-decl nil sets 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)
    (bounded? const-decl "bool" real_topology "metric_space/")
    (AND const-decl "[bool, bool -> bool]" booleans nil)
    (< const-decl "bool" reals nil)
    (setof type-eq-decl nil defined_types nil)
    (below_bounded const-decl "bool" bounded_reals "reals/")
    (inf_set type-eq-decl nil bounded_reals "reals/")
    (pred type-eq-decl nil defined_types nil)
    (greatest_lower_bound const-decl "bool" bound_defs "reals/")
    (<= const-decl "bool" reals nil)
    (inf const-decl "{x | greatest_lower_bound(<=)(x, Sl)}"
     bounded_reals "reals/")
    (above_bounded const-decl "bool" bounded_reals "reals/")
    (sup_set type-eq-decl nil bounded_reals "reals/")
    (least_upper_bound const-decl "bool" bound_defs "reals/")
    (sup const-decl "{x | least_upper_bound(<=)(x, Su)}" bounded_reals
     "reals/")
    (IMPLIES const-decl "[bool, bool -> bool]" booleans nil)
    (= const-decl "[T, T -> boolean]" equalities nil)
    (x!1 skolem-const-decl "real" real_lebesgue_scaf nil)
    (b!1 skolem-const-decl "bounded_interval" real_lebesgue_scaf nil)
    (real_minus_real_is_real application-judgement "real" reals nil)
    (real_le_is_total_order name-judgement "(total_order?[real])"
     real_props nil)
    (x_le const-decl "bool" extended_nnreal "extended_nnreal/")
    (x_eq const-decl "bool" extended_nnreal "extended_nnreal/")
    (subset? const-decl "bool" sets nil)
    (real_lt_is_strict_total_order name-judgement
     "(strict_total_order?[real])" real_props nil)
    (interval? const-decl "bool" real_topology "metric_space/")
    (lower_bound const-decl "bool" bound_defs "reals/")
    (upper_bound const-decl "bool" bound_defs "reals/")
    (member const-decl "bool" sets nil)
    (om_increasing? const-decl "bool" outer_measure_def
     "measure_integration/")
    (>= const-decl "bool" reals nil)
    (nnreal type-eq-decl nil real_types nil)
    (extended_nnreal nonempty-type-eq-decl nil extended_nnreal
     "extended_nnreal/")
    (outer_measure? const-decl "bool" outer_measure_def
     "measure_integration/")
    (outer_measure nonempty-type-eq-decl nil outer_measure_def
     "measure_integration/")
    (lebesgue_outer_measure const-decl "outer_measure"
     real_lebesgue_scaf nil)
    (lebesgue_outer_measure_closed_open formula-decl nil
     real_lebesgue_scaf nil)
    (nonempty? const-decl "bool" sets nil))
   shostak))
 (lebesgue_outer_measure_open 0
  (lebesgue_outer_measure_open-1 nil 3408184157
   ("" (skosimp)
    (("" (lemma "lebesgue_outer_measure_closed" ("b" "b!1"))
      (("" (lemma "lebesgue_outer_measure_closed_open" ("b" "b!1"))
        (("" (assert)
          (("" (typepred "b!1")
            (("" (expand "bounded_interval?")
              (("" (expand "bounded?")
                (("" (flatten)
                  (("" (split)
                    (("1" (expand "nonempty?") (("1" (propax) nil nil))
                      nil)
                     ("2" (flatten)
                      (("2"
                        (name-replace "OPEN"
                         "lebesgue_outer_measure({x | inf(b!1) < x AND x < sup(b!1)})")
                        (("1"
                          (name-replace "CLOSED"
                           "lebesgue_outer_measure({x | inf(b!1) <= x AND x <= sup(b!1)})")
                          (("1"
                            (name-replace "INTERVAL"
                             "lebesgue_outer_measure(b!1)")
                            (("1" (expand "x_eq")
                              (("1"
                                (flatten)
                                (("1"
                                  (assert)
                                  (("1"
                                    (flatten)
                                    (("1" (assertnil nil))
                                    nil))
                                  nil))
                                nil))
                              nil))
                            nil)
                           ("2" (skosimp) nil nil))
                          nil)
                         ("2" (skosimp) nil nil))
                        nil))
                      nil))
                    nil))
                  nil))
                nil))
              nil))
            nil))
          nil))
        nil))
      nil))
    nil)
   ((bounded_interval nonempty-type-eq-decl nil real_topology
     "metric_space/")
    (bounded_interval? const-decl "bool" real_topology "metric_space/")
    (set type-eq-decl nil sets nil)
    (bool nonempty-type-eq-decl nil booleans 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)
    (boolean nonempty-type-decl nil booleans nil)
    (number nonempty-type-decl nil numbers nil)
    (lebesgue_outer_measure_closed formula-decl nil real_lebesgue_scaf
     nil)
    (x_eq const-decl "bool" extended_nnreal "extended_nnreal/")
    (sup const-decl "{x | least_upper_bound(<=)(x, Su)}" bounded_reals
     "reals/")
    (least_upper_bound const-decl "bool" bound_defs "reals/")
    (sup_set type-eq-decl nil bounded_reals "reals/")
    (above_bounded const-decl "bool" bounded_reals "reals/")
    (inf const-decl "{x | greatest_lower_bound(<=)(x, Sl)}"
     bounded_reals "reals/")
    (<= const-decl "bool" reals nil)
    (greatest_lower_bound const-decl "bool" bound_defs "reals/")
    (pred type-eq-decl nil defined_types nil)
    (inf_set type-eq-decl nil bounded_reals "reals/")
    (below_bounded const-decl "bool" bounded_reals "reals/")
    (setof type-eq-decl nil defined_types nil)
    (< const-decl "bool" reals nil)
    (AND const-decl "[bool, bool -> bool]" booleans nil)
    (lebesgue_outer_measure const-decl "outer_measure"
     real_lebesgue_scaf nil)
    (outer_measure nonempty-type-eq-decl nil outer_measure_def
     "measure_integration/")
    (outer_measure? const-decl "bool" outer_measure_def
     "measure_integration/")
    (= const-decl "[T, T -> boolean]" equalities nil)
    (extended_nnreal nonempty-type-eq-decl nil extended_nnreal
     "extended_nnreal/")
    (nnreal type-eq-decl nil real_types nil)
    (>= const-decl "bool" reals nil)
    (IMPLIES const-decl "[bool, bool -> bool]" booleans nil)
    (nonempty? const-decl "bool" sets nil)
    (bounded? const-decl "bool" real_topology "metric_space/")
    (NOT const-decl "[bool -> bool]" booleans nil)
    (lebesgue_outer_measure_closed_open formula-decl nil
     real_lebesgue_scaf nil))
   shostak))
 (lebesgue_outer_measure_le_length_TCC1 0
  (lebesgue_outer_measure_le_length_TCC1-1 nil 3408184601
   ("" (subtype-tcc) nil 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)
    (set type-eq-decl nil sets nil)
    (bounded_interval? const-decl "bool" real_topology "metric_space/")
    (bounded_interval nonempty-type-eq-decl nil real_topology
     "metric_space/")
    (real_le_is_total_order name-judgement "(total_order?[real])"
     real_props nil)
    (member const-decl "bool" sets nil)
    (empty? const-decl "bool" sets nil)
    (nonempty? const-decl "bool" sets nil)
    (upper_bound const-decl "bool" bound_defs "reals/")
    (above_bounded const-decl "bool" bounded_reals "reals/")
    (lower_bound const-decl "bool" bound_defs "reals/")
    (below_bounded const-decl "bool" bounded_reals "reals/")
    (bounded? const-decl "bool" real_topology "metric_space/")
    (interval? const-decl "bool" real_topology "metric_space/"))
   nil))
 (lebesgue_outer_measure_le_length 0
  (lebesgue_outer_measure_le_length-1 nil 3408184601
   ("" (skosimp)
    (("" (case "nonempty?[real](b!1)")
      (("1" (lemma "lebesgue_outer_measure_open" ("b" "b!1"))
        (("1" (assert)
          (("1" (lemma "length_open" ("b" "b!1"))
            (("1" (assert)
              (("1" (typepred "b!1")
                (("1" (expand "bounded_interval?")
                  (("1" (expand "bounded?")
                    (("1" (flatten)
                      (("1" (split)
                        (("1" (expand "nonempty?")
                          (("1" (propax) nil nil)) nil)
                         ("2" (flatten)
                          (("2" (typepred "inf(b!1)")
                            (("1" (name-replace "AA" "inf(b!1)")
                              (("1"
                                (typepred "sup(b!1)")
                                (("1"
                                  (name-replace "BB" "sup(b!1)")
                                  (("1"
                                    (case
                                     "x_le(lebesgue_outer_measure({x | AA < x AND x < BB}), x_length({x | AA < x AND x < BB}))")
                                    (("1"
                                      (name-replace
                                       "LHS"
                                       "lebesgue_outer_measure(b!1)")
                                      (("1"
                                        (name-replace
                                         "LHS1"
                                         "lebesgue_outer_measure({x | AA < x AND x < BB})")
                                        (("1"
                                          (expand "x_length")
                                          (("1"
                                            (replace -7 * rl)
                                            (("1"
                                              (case-replace
                                               "bounded_interval?({x | AA < x AND x < BB})")
                                              (("1"
                                                (hide-all-but
                                                 (-2 -9 1))
                                                (("1"
                                                  (expand "x_le")
                                                  (("1"
                                                    (expand "x_eq")
                                                    (("1"
                                                      (flatten)
                                                      (("1"
                                                        (assert)
                                                        nil
                                                        nil))
                                                      nil))
                                                    nil))
                                                  nil))
                                                nil)
                                               ("2"
                                                (hide-all-but
                                                 (1
                                                  -2
                                                  -3
                                                  -4
                                                  -5
                                                  -6
                                                  -9
                                                  1))
                                                (("2"
                                                  (expand
                                                   "bounded_interval?")
                                                  (("2"
                                                    (split)
                                                    (("1"
                                                      (expand
                                                       "interval?")
                                                      (("1"
                                                        (skosimp)
                                                        (("1"
                                                          (typepred
                                                           "x!1")
                                                          (("1"
                                                            (typepred
                                                             "y!1")
                                                            (("1"
                                                              (assert)
                                                              nil
                                                              nil))
                                                            nil))
                                                          nil))
                                                        nil))
                                                      nil)
                                                     ("2"
                                                      (expand
                                                       "bounded?")
                                                      (("2"
                                                        (flatten)
                                                        (("2"
                                                          (expand
                                                           "nonempty?")
                                                          (("2"
                                                            (assert)
                                                            (("2"
                                                              (split)
                                                              (("1"
                                                                (expand
                                                                 "above_bounded")
                                                                (("1"
                                                                  (inst
                                                                   +
                                                                   "BB")
                                                                  (("1"
                                                                    (expand
                                                                     "upper_bound")
                                                                    (("1"
                                                                      (propax)
                                                                      nil
                                                                      nil))
                                                                    nil))
                                                                  nil))
                                                                nil)
                                                               ("2"
                                                                (expand
                                                                 "below_bounded")
                                                                (("2"
                                                                  (inst
                                                                   +
                                                                   "AA")
                                                                  (("2"
                                                                    (expand
                                                                     "lower_bound")
                                                                    (("2"
                                                                      (propax)
                                                                      nil
                                                                      nil))
                                                                    nil))
                                                                  nil))
                                                                nil))
                                                              nil))
                                                            nil))
                                                          nil))
                                                        nil))
                                                      nil))
                                                    nil))
                                                  nil))
                                                nil))
                                              nil))
                                            nil))
                                          nil))
                                        nil))
                                      nil)
                                     ("2"
                                      (hide 2 -7)
                                      (("2"
                                        (expand "x_length")
                                        (("2"
                                          (case-replace
                                           "bounded_interval?({x | AA < x AND x < BB})")
                                          (("1"
                                            (expand "x_le")
                                            (("1"
                                              (expand
                                               "lebesgue_outer_measure")
                                              (("1"
                                                (expand "o ")
                                                (("1"
                                                  (expand "x_inf")
                                                  (("1"
                                                    (prop)
                                                    (("1"
                                                      (inst
                                                       -
                                                       "(TRUE,length({x | AA < x AND x < BB}))")
                                                      (("1"
                                                        (inst
                                                         +
                                                         "lambda (i:nat): if i=0 then {x | AA < x AND x < BB} else emptyset[real] endif")
                                                        (("1"
                                                          (split 1)
                                                          (("1"
                                                            (expand
                                                             "x_le")
                                                            (("1"
                                                              (expand
                                                               "x_sum")
                                                              (("1"
                                                                (expand
                                                                 "x_length"
                                                                 1)
                                                                (("1"
                                                                  (replace
                                                                   -1)
                                                                  (("1"
                                                                    (case-replace
                                                                     "bounded_interval?(emptyset[real])")
                                                                    (("1"
                                                                      (case-replace
                                                                       "length(emptyset[real])=0")
                                                                      (("1"
                                                                        (case-replace
                                                                         "FORALL (i:nat): IF i = 0 THEN TRUE ELSE TRUE ENDIF")
                                                                        (("1"
                                                                          (hide
                                                                           -1)
                                                                          (("1"
                                                                            (lemma
                                                                             "zero_tail_series_conv"
                                                                             ("a"
                                                                              "LAMBDA (i:nat):
                              IF i = 0 THEN length({x | AA < x AND x < BB})
                              ELSE 0
                              ENDIF"
                                                                              "n"
                                                                              "0"))
                                                                            (("1"
                                                                              (lemma
                                                                               "zero_tail_series_limit"
                                                                               ("a"
                                                                                "LAMBDA (i:nat):
                              IF i = 0 THEN length({x | AA < x AND x < BB})
                              ELSE 0
                              ENDIF"
                                                                                "n"
                                                                                "0"))
                                                                              (("1"
                                                                                (case-replace
                                                                                 "(FORALL (m:nat):
         0 < m =>
          (LAMBDA (i: nat):
             IF i = 0 THEN length({x | AA < x AND x < BB}) ELSE 0 ENDIF)
              (m)
           = 0)")
                                                                                (("1"
                                                                                  (replace
                                                                                   -3)
                                                                                  (("1"
                                                                                    (replace
                                                                                     -2)
                                                                                    (("1"
                                                                                      (expand
                                                                                       "series")
                                                                                      (("1"
                                                                                        (expand
                                                                                         "sigma")
                                                                                        (("1"
                                                                                          (expand
                                                                                           "sigma")
                                                                                          (("1"
                                                                                            (assert)
                                                                                            nil
                                                                                            nil))
                                                                                          nil))
                                                                                        nil))
                                                                                      nil))
                                                                                    nil))
                                                                                  nil)
                                                                                 ("2"
                                                                                  (hide
                                                                                   -1
                                                                                   -2
                                                                                   2)
                                                                                  (("2"
                                                                                    (skosimp)
                                                                                    (("2"
                                                                                      (assert)
                                                                                      nil
                                                                                      nil))
                                                                                    nil))
                                                                                  nil)
                                                                                 ("3"
                                                                                  (hide
                                                                                   2
                                                                                   -1
                                                                                   -2)
                                                                                  (("3"
                                                                                    (skosimp)
                                                                                    (("3"
                                                                                      (skosimp)
                                                                                      nil
                                                                                      nil))
                                                                                    nil))
                                                                                  nil))
                                                                                nil))
                                                                              nil)
                                                                             ("2"
                                                                              (skosimp)
                                                                              nil
                                                                              nil))
                                                                            nil))
                                                                          nil)
                                                                         ("2"
                                                                          (skosimp)
                                                                          nil
                                                                          nil))
                                                                        nil)
                                                                       ("2"
                                                                        (expand
                                                                         "length")
                                                                        (("2"
                                                                          (hide-all-but
                                                                           1)
                                                                          (("2"
                                                                            (case-replace
                                                                             "empty?[real](emptyset[real])")
                                                                            (("2"
                                                                              (hide
                                                                               2)
                                                                              (("2"
                                                                                (grind)
                                                                                nil
                                                                                nil))
                                                                              nil))
                                                                            nil))
                                                                          nil))
                                                                        nil))
                                                                      nil)
                                                                     ("2"
                                                                      (hide
                                                                       2)
                                                                      (("2"
                                                                        (hide-all-but
                                                                         1)
                                                                        (("2"
                                                                          (grind)
                                                                          nil
                                                                          nil))
                                                                        nil))
                                                                      nil))
                                                                    nil))
                                                                  nil))
                                                                nil))
                                                              nil))
                                                            nil)
                                                           ("2"
                                                            (expand
                                                             "subset?")
                                                            (("2"
                                                              (expand
                                                               "member")
                                                              (("2"
                                                                (skosimp)
                                                                (("2"
                                                                  (expand
                                                                   "IUnion")
                                                                  (("2"
                                                                    (inst
                                                                     +
                                                                     "0")
                                                                    (("2"
                                                                      (assert)
                                                                      nil
                                                                      nil))
                                                                    nil))
                                                                  nil))
                                                                nil))
                                                              nil))
                                                            nil))
                                                          nil)
                                                         ("2"
                                                          (skosimp)
                                                          (("2"
                                                            (expand
                                                             "bounded_open_interval?")
                                                            (("2"
                                                              (rewrite
                                                               "metric_open_def")
                                                              (("2"
                                                                (rewrite
                                                                 "emptyset_is_open")
                                                                (("2"
                                                                  (expand
                                                                   "bounded_interval?")
                                                                  (("2"
                                                                    (hide-all-but
                                                                     2)
                                                                    (("2"
                                                                      (grind)
                                                                      nil
                                                                      nil))
                                                                    nil))
                                                                  nil))
                                                                nil))
                                                              nil))
                                                            nil))
                                                          nil)
                                                         ("3"
                                                          (skosimp)
                                                          (("3"
                                                            (assert)
                                                            (("3"
                                                              (expand
                                                               "bounded_open_interval?")
                                                              (("3"
                                                                (case
                                                                 "AA<BB")
                                                                (("1"
                                                                  (lemma
                                                                   "metric_open_ball"
                                                                   ("x"
                                                                    "(BB+AA)/2"
                                                                    "r"
                                                                    "(BB-AA)/2"))
                                                                  (("1"
                                                                    (case-replace
                                                                     "ball((BB + AA) / 2, (BB - AA) / 2)={x | AA < x AND x < BB}")
                                                                    (("1"
                                                                      (hide
                                                                       -1
                                                                       2)
                                                                      (("1"
                                                                        (apply-extensionality
                                                                         :hide?
                                                                         t)
                                                                        (("1"
                                                                          (expand
                                                                           "ball")
                                                                          (("1"
                                                                            (hide-all-but
                                                                             (-1
                                                                              1))
                                                                            (("1"
                                                                              (grind)
                                                                              nil
                                                                              nil))
                                                                            nil))
                                                                          nil))
                                                                        nil))
                                                                      nil)
                                                                     ("2"
                                                                      (assert)
                                                                      nil
                                                                      nil))
                                                                    nil)
                                                                   ("2"
                                                                    (assert)
                                                                    nil
                                                                    nil))
                                                                  nil)
                                                                 ("2"
                                                                  (case-replace
                                                                   "{x | AA < x AND x < BB}=emptyset[real]")
                                                                  (("1"
                                                                    (rewrite
                                                                     "metric_open_def")
                                                                    (("1"
                                                                      (rewrite
                                                                       "emptyset_is_open")
                                                                      nil
                                                                      nil))
                                                                    nil)
                                                                   ("2"
                                                                    (hide-all-but
                                                                     (1
                                                                      2))
                                                                    (("2"
                                                                      (apply-extensionality
                                                                       :hide?
                                                                       t)
                                                                      (("2"
                                                                        (expand
                                                                         "emptyset")
                                                                        (("2"
                                                                          (flatten)
                                                                          (("2"
                                                                            (assert)
                                                                            nil
                                                                            nil))
                                                                          nil))
                                                                        nil))
                                                                      nil))
                                                                    nil))
                                                                  nil))
                                                                nil))
                                                              nil))
                                                            nil))
                                                          nil))
                                                        nil))
                                                      nil)
                                                     ("2"
                                                      (case-replace
                                                       "FORALL (x_1:
                   ({z:extended_nnreal |
                       EXISTS I:
                         x_le(x_sum(LAMBDA (x: nat): x_length(I(x))), z)
                          AND
                          subset?[real]
                              ({x | AA < x AND x < BB}, IUnion(I))})):
           NOT x_1`1")
                                                      (("1"
                                                        (assert)
                                                        nil
                                                        nil)
                                                       ("2"
                                                        (replace 1 2)
                                                        (("2"
                                                          (skosimp)
                                                          (("2"
                                                            (case
                                                             "nonempty?({z_1: real |
             EXISTS (x_1: extended_nnreal):
               (EXISTS I:
                  x_le(x_sum(LAMBDA (x: nat): x_length(I(x))), x_1) AND
                   subset?[real]({x | AA < x AND x < BB}, IUnion(I)))
                AND x_1`1 AND x_1`2 = z_1})")
                                                            (("1"
                                                              (case
                                                               "bounded_below?({z_1: real |
                         EXISTS (x_1: extended_nnreal):
                           (EXISTS I:
                              x_le(x_sum(LAMBDA (x: nat): x_length(I(x))),
                                   x_1)
                               AND
                               subset?[real]
                                   ({x | AA < x AND x < BB},
                                    IUnion[nat, real](I)))
                            AND x_1`1 AND x_1`2 = z_1})")
                                                              (("1"
                                                                (typepred
                                                                 "glb({z_1: real |
             EXISTS (x_1: extended_nnreal):
               (EXISTS I:
                  x_le(x_sum(LAMBDA (x: nat): x_length(I(x))), x_1) AND
                   subset?[real]({x | AA < x AND x < BB}, IUnion(I)))
                AND x_1`1 AND x_1`2 = z_1})")
                                                                (("1"
                                                                  (name-replace
                                                                   "GLB"
                                                                   "glb({z_1: real |
             EXISTS (x_1: extended_nnreal):
               (EXISTS I:
                  x_le(x_sum(LAMBDA (x: nat): x_length(I(x))), x_1) AND
                   subset?[real]({x | AA < x AND x < BB}, IUnion(I)))
                AND x_1`1 AND x_1`2 = z_1})")
                                                                  (("1"
                                                                    (hide
                                                                     -2
                                                                     -3)
                                                                    (("1"
                                                                      (expand
                                                                       "greatest_lower_bound?")
                                                                      (("1"
                                                                        (flatten)
                                                                        (("1"
                                                                          (expand
                                                                           "lower_bound?")
                                                                          (("1"
                                                                            (inst
                                                                             -
                                                                             "length({x | AA < x AND x < BB})")
                                                                            (("1"
                                                                              (inst
                                                                               +
                                                                               "(TRUE,length({x | AA < x AND x < BB}))")
                                                                              (("1"
                                                                                (hide
                                                                                 -1
                                                                                 2)
                                                                                (("1"
                                                                                  (inst
                                                                                   +
                                                                                   "lambda (i:nat): if i=0 then {x | AA < x AND x < BB} else emptyset[real] endif")
                                                                                  (("1"
                                                                                    (split)
                                                                                    (("1"
                                                                                      (expand
                                                                                       "x_sum")
                                                                                      (("1"
                                                                                        (expand
                                                                                         "x_le")
                                                                                        (("1"
                                                                                          (case-replace
                                                                                           "x_length(emptyset[real])=(TRUE,0)")
                                                                                          (("1"
                                                                                            (assert)
                                                                                            (("1"
                                                                                              (hide
                                                                                               -1)
                                                                                              (("1"
                                                                                                (expand
                                                                                                 "x_length"
                                                                                                 1)
                                                                                                (("1"
                                                                                                  (replace
                                                                                                   -2)
                                                                                                  (("1"
                                                                                                    (replace
                                                                                                     -8
                                                                                                     *
                                                                                                     rl)
                                                                                                    (("1"
                                                                                                      (case-replace
                                                                                                       "FORALL (i:nat): IF i = 0 THEN TRUE ELSE TRUE ENDIF")
                                                                                                      (("1"
                                                                                                        (lemma
                                                                                                         "zero_tail_series_conv"
                                                                                                         ("a"
                                                                                                          "LAMBDA (i:nat):
                              IF i = 0 THEN length(b!1) ELSE 0 ENDIF"
                                                                                                          "n"
                                                                                                          "0"))
                                                                                                        (("1"
                                                                                                          (lemma
                                                                                                           "zero_tail_series_limit"
                                                                                                           ("a"
                                                                                                            "LAMBDA (i:nat):
                              IF i = 0 THEN length(b!1) ELSE 0 ENDIF"
                                                                                                            "n"
                                                                                                            "0"))
                                                                                                          (("1"
                                                                                                            (case-replace
                                                                                                             "FORALL (m:nat):
         0 < m =>
          (LAMBDA (i: nat): IF i = 0 THEN length(b!1) ELSE 0 ENDIF)(m) = 0")
                                                                                                            (("1"
                                                                                                              (replace
                                                                                                               -3)
                                                                                                              (("1"
                                                                                                                (replace
                                                                                                                 -2)
                                                                                                                (("1"
                                                                                                                  (expand
                                                                                                                   "series")
                                                                                                                  (("1"
                                                                                                                    (expand
                                                                                                                     "sigma")
                                                                                                                    (("1"
                                                                                                                      (expand
                                                                                                                       "sigma")
                                                                                                                      (("1"
                                                                                                                        (assert)
                                                                                                                        nil
                                                                                                                        nil))
                                                                                                                      nil))
                                                                                                                    nil))
                                                                                                                  nil))
                                                                                                                nil))
                                                                                                              nil)
                                                                                                             ("2"
                                                                                                              (hide-all-but
                                                                                                               1)
                                                                                                              (("2"
                                                                                                                (skosimp)
                                                                                                                (("2"
                                                                                                                  (assert)
                                                                                                                  nil
                                                                                                                  nil))
                                                                                                                nil))
                                                                                                              nil))
                                                                                                            nil))
                                                                                                          nil))
                                                                                                        nil)
                                                                                                       ("2"
                                                                                                        (skosimp)
                                                                                                        nil
                                                                                                        nil))
                                                                                                      nil))
                                                                                                    nil))
                                                                                                  nil))
                                                                                                nil))
                                                                                              nil))
                                                                                            nil)
                                                                                           ("2"
                                                                                            (hide
                                                                                             2)
                                                                                            (("2"
                                                                                              (expand
                                                                                               "x_length")
                                                                                              (("2"
                                                                                                (lift-if)
                                                                                                (("2"
                                                                                                  (prop)
                                                                                                  (("1"
                                                                                                    (expand
                                                                                                     "length")
                                                                                                    (("1"
                                                                                                      (case-replace
                                                                                                       "empty?[real](emptyset[real])")
                                                                                                      (("1"
                                                                                                        (hide-all-but
                                                                                                         1)
                                                                                                        (("1"
                                                                                                          (grind)
                                                                                                          nil
                                                                                                          nil))
                                                                                                        nil))
                                                                                                      nil))
                                                                                                    nil)
                                                                                                   ("2"
                                                                                                    (hide-all-but
                                                                                                     1)
                                                                                                    (("2"
                                                                                                      (grind)
                                                                                                      nil
                                                                                                      nil))
                                                                                                    nil))
                                                                                                  nil))
                                                                                                nil))
                                                                                              nil))
                                                                                            nil)
                                                                                           ("3"
                                                                                            (hide-all-but
                                                                                             1)
                                                                                            (("3"
                                                                                              (grind)
                                                                                              nil
                                                                                              nil))
                                                                                            nil))
                                                                                          nil))
                                                                                        nil))
                                                                                      nil)
                                                                                     ("2"
                                                                                      (hide-all-but
                                                                                       1)
                                                                                      (("2"
                                                                                        (expand
                                                                                         "subset?")
                                                                                        (("2"
                                                                                          (expand
                                                                                           "member")
                                                                                          (("2"
                                                                                            (expand
                                                                                             "IUnion")
                                                                                            (("2"
                                                                                              (skosimp)
                                                                                              (("2"
                                                                                                (inst
                                                                                                 +
                                                                                                 "0")
                                                                                                (("2"
                                                                                                  (assert)
                                                                                                  nil
                                                                                                  nil))
                                                                                                nil))
                                                                                              nil))
                                                                                            nil))
                                                                                          nil))
                                                                                        nil))
                                                                                      nil))
                                                                                    nil)
                                                                                   ("2"
                                                                                    (skosimp)
                                                                                    (("2"
                                                                                      (expand
                                                                                       "bounded_open_interval?")
                                                                                      (("2"
                                                                                        (rewrite
                                                                                         "metric_open_def")
                                                                                        (("2"
                                                                                          (rewrite
                                                                                           "emptyset_is_open")
                                                                                          (("2"
                                                                                            (hide-all-but
                                                                                             2)
                                                                                            (("2"
                                                                                              (grind)
                                                                                              nil
                                                                                              nil))
                                                                                            nil))
                                                                                          nil))
                                                                                        nil))
                                                                                      nil))
                                                                                    nil)
                                                                                   ("3"
                                                                                    (skosimp)
                                                                                    (("3"
                                                                                      (expand
                                                                                       "bounded_open_interval?")
                                                                                      (("3"
                                                                                        (assert)
                                                                                        (("3"
                                                                                          (hide-all-but
                                                                                           1)
                                                                                          (("3"
                                                                                            (case
                                                                                             "AA<BB")
                                                                                            (("1"
                                                                                              (lemma
                                                                                               "metric_open_ball"
                                                                                               ("x"
                                                                                                "(AA+BB)/2"
                                                                                                "r"
                                                                                                "(BB-AA)/2"))
                                                                                              (("1"
                                                                                                (case-replace
                                                                                                 "ball((AA + BB) / 2, (BB - AA) / 2)={x | AA < x AND x < BB}")
                                                                                                (("1"
                                                                                                  (hide
                                                                                                   -1
                                                                                                   2)
                                                                                                  (("1"
                                                                                                    (expand
                                                                                                     "ball")
                                                                                                    (("1"
                                                                                                      (apply-extensionality
                                                                                                       :hide?
                                                                                                       t)
                                                                                                      (("1"
                                                                                                        (grind)
                                                                                                        nil
                                                                                                        nil))
                                                                                                      nil))
                                                                                                    nil))
                                                                                                  nil)
                                                                                                 ("2"
                                                                                                  (assert)
                                                                                                  nil
                                                                                                  nil))
                                                                                                nil)
                                                                                               ("2"
                                                                                                (assert)
                                                                                                nil
                                                                                                nil))
                                                                                              nil)
                                                                                             ("2"
                                                                                              (case-replace
                                                                                               "{x | AA < x AND x < BB}=emptyset[real]")
                                                                                              (("1"
                                                                                                (hide
                                                                                                 -1)
                                                                                                (("1"
                                                                                                  (rewrite
                                                                                                   "metric_open_def")
                                                                                                  (("1"
                                                                                                    (rewrite
                                                                                                     "emptyset_is_open")
                                                                                                    nil
                                                                                                    nil))
                                                                                                  nil))
                                                                                                nil)
                                                                                               ("2"
                                                                                                (hide
                                                                                                 3)
                                                                                                (("2"
                                                                                                  (apply-extensionality
                                                                                                   :hide?
                                                                                                   t)
                                                                                                  (("2"
                                                                                                    (expand
                                                                                                     "emptyset")
                                                                                                    (("2"
                                                                                                      (flatten)
                                                                                                      (("2"
                                                                                                        (assert)
                                                                                                        nil
                                                                                                        nil))
                                                                                                      nil))
                                                                                                    nil))
                                                                                                  nil))
                                                                                                nil))
                                                                                              nil))
                                                                                            nil))
                                                                                          nil))
                                                                                        nil))
                                                                                      nil))
                                                                                    nil))
                                                                                  nil))
                                                                                nil))
                                                                              nil))
                                                                            nil))
                                                                          nil))
                                                                        nil))
                                                                      nil))
                                                                    nil))
                                                                  nil)
                                                                 ("2"
                                                                  (assert)
                                                                  nil
                                                                  nil))
                                                                nil)
                                                               ("2"
                                                                (hide
                                                                 2)
                                                                (("2"
                                                                  (expand
                                                                   "bounded_below?")
                                                                  (("2"
                                                                    (inst
                                                                     +
                                                                     "0")
                                                                    (("2"
                                                                      (expand
                                                                       "lower_bound?")
                                                                      (("2"
                                                                        (skosimp)
                                                                        (("2"
                                                                          (typepred
                                                                           "s!1")
                                                                          (("2"
                                                                            (skosimp)
                                                                            (("2"
                                                                              (assert)
                                                                              nil
                                                                              nil))
                                                                            nil))
                                                                          nil))
                                                                        nil))
                                                                      nil))
                                                                    nil))
                                                                  nil))
                                                                nil)
                                                               ("3"
                                                                (propax)
                                                                nil
                                                                nil))
                                                              nil)
                                                             ("2"
                                                              (expand
                                                               "nonempty?"
                                                               1)
                                                              (("2"
                                                                (expand
                                                                 "empty?"
                                                                 -1)
                                                                (("2"
                                                                  (expand
                                                                   "member")
                                                                  (("2"
                                                                    (inst
                                                                     -
                                                                     "x!1`2")
                                                                    (("2"
                                                                      (inst
                                                                       +
                                                                       "x!1")
                                                                      (("2"
                                                                        (assert)
                                                                        nil
                                                                        nil))
                                                                      nil))
                                                                    nil))
                                                                  nil))
                                                                nil))
                                                              nil)
                                                             ("3"
                                                              (assert)
                                                              (("3"
                                                                (skosimp)
                                                                (("3"
                                                                  (typepred
                                                                   "I!1(x!2)")
                                                                  (("3"
                                                                    (expand
                                                                     "bounded_open_interval?")
                                                                    (("3"
                                                                      (expand
                                                                       "bounded_interval?")
                                                                      (("3"
                                                                        (flatten)
                                                                        nil
                                                                        nil))
                                                                      nil))
                                                                    nil))
                                                                  nil))
                                                                nil))
                                                              nil))
                                                            nil))
                                                          nil))
                                                        nil))
                                                      nil))
                                                    nil))
                                                  nil))
                                                nil))
                                              nil))
                                            nil)
                                           ("2"
                                            (hide -6 2)
                                            (("2"
                                              (expand
                                               "bounded_interval?")
                                              (("2"
                                                (split)
                                                (("1"
                                                  (expand "interval?")
                                                  (("1"
                                                    (skosimp)
                                                    (("1"
                                                      (assert)
                                                      nil
                                                      nil))
                                                    nil))
                                                  nil)
                                                 ("2"
                                                  (expand "bounded?")
                                                  (("2"
                                                    (flatten)
                                                    (("2"
                                                      (expand
                                                       "nonempty?")
                                                      (("2"
                                                        (assert)
                                                        (("2"
                                                          (split)
                                                          (("1"
                                                            (expand
                                                             "above_bounded")
                                                            (("1"
                                                              (inst
                                                               +
                                                               "BB")
                                                              (("1"
                                                                (expand
                                                                 "upper_bound")
                                                                (("1"
                                                                  (propax)
                                                                  nil
                                                                  nil))
                                                                nil))
                                                              nil))
                                                            nil)
                                                           ("2"
                                                            (expand
                                                             "below_bounded")
                                                            (("2"
                                                              (inst
                                                               +
                                                               "AA")
                                                              (("2"
                                                                (expand
                                                                 "lower_bound")
                                                                (("2"
                                                                  (propax)
                                                                  nil
                                                                  nil))
                                                                nil))
                                                              nil))
                                                            nil))
                                                          nil))
                                                        nil))
                                                      nil))
                                                    nil))
                                                  nil))
                                                nil))
                                              nil))
                                            nil))
                                          nil))
                                        nil))
                                      nil)
                                     ("3"
                                      (hide 2 -7 -6)
                                      (("3"
                                        (expand "interval?")
                                        (("3"
                                          (skosimp)
                                          (("3"
                                            (typepred "z!1")
                                            (("3"
                                              (typepred "x!1")
                                              (("3"
                                                (inst
                                                 -
                                                 "x!1"
                                                 "y!1"
                                                 "z!1")
                                                (("1" (assertnil nil)
                                                 ("2"
                                                  (typepred "y!1")
                                                  (("2"
                                                    (assert)
                                                    nil
                                                    nil))
                                                  nil)
                                                 ("3"
                                                  (assert)
--> --------------------

--> maximum size reached

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

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

¤ Dauer der Verarbeitung: 0.943 Sekunden  (vorverarbeitet am  2026-04-26) ¤

*© Formatika GbR, Deutschland






Wurzel

Suchen

Beweissystem der NASA

Beweissystem Isabelle

NIST Cobol Testsuite

Cephes Mathematical Library

Wiener Entwicklungsmethode

Haftungshinweis

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

Bemerkung:

Die farbliche Syntaxdarstellung und die Messung sind noch experimentell.