|
(line_solutions
(line_solution_dot_neg 0
(line_solution_dot_neg-1 nil 3446574579
("" (skeep)
(("" (expand "line_solution?")
(("" (flatten)
(("" (replaces -1 :dir rl)
(("" (mult-by -1 "R(sp)") (("" (assert) nil nil)) nil)) nil))
nil))
nil))
nil)
((real_times_real_is_real application-judgement "real" reals nil)
(line_solution? const-decl "bool" line_solutions nil)
(nnreal_times_nnreal_is_nnreal application-judgement "nnreal"
real_types nil)
(real_le_is_total_order name-judgement "(total_order?[real])"
real_props nil)
(number nonempty-type-decl nil numbers nil)
(boolean nonempty-type-decl nil booleans nil)
(number_field_pred const-decl "[number -> boolean]" number_fields
nil)
(number_field nonempty-type-from-decl nil number_fields nil)
(real_pred const-decl "[number_field -> boolean]" reals nil)
(real nonempty-type-from-decl nil reals nil)
(bool nonempty-type-eq-decl nil booleans nil)
(>= const-decl "bool" reals nil)
(nonneg_real nonempty-type-eq-decl nil real_types nil)
(Vect2 type-eq-decl nil vectors_2D_def "vectors/")
(Vector type-eq-decl nil vectors_2D "vectors/")
(nnreal type-eq-decl nil real_types nil)
(sqv const-decl "nnreal" vectors_2D "vectors/")
(sq const-decl "nonneg_real" sq "reals/")
(> const-decl "bool" reals nil)
(posreal nonempty-type-eq-decl nil real_types nil)
(D formal-const-decl "posreal" line_solutions nil)
(Sp_vect2 type-eq-decl nil horizontal nil)
(R const-decl "nnreal" horizontal_criteria nil)
(numfield nonempty-type-eq-decl nil number_fields nil)
(* const-decl "[numfield, numfield -> numfield]" number_fields nil)
(rational_pred const-decl "[real -> boolean]" rationals nil)
(rational nonempty-type-from-decl nil rationals nil)
(integer_pred const-decl "[rational -> boolean]" integers nil)
(int nonempty-type-eq-decl nil integers nil)
(/= const-decl "boolean" notequal nil)
(nzint nonempty-type-eq-decl nil integers nil)
(OR const-decl "[bool, bool -> bool]" booleans nil)
(= const-decl "[T, T -> boolean]" equalities nil)
(- const-decl "[numfield -> numfield]" number_fields nil)
(Sign type-eq-decl nil sign "reals/")
(det const-decl "real" det_2D "vectors/")
(both_sides_times_pos_le1_imp formula-decl nil extra_real_props
nil))
shostak))
(line_solution_sep_dot_negative 0
(line_solution_sep_dot_negative-1 nil 3482851089
("" (skeep)
(("" (lemma "line_solution_dot_neg")
(("" (inst?)
(("" (assert)
(("" (case "sp*v = 0")
(("1" (hide -2)
(("1" (hide 2)
(("1" (expand "line_solution?")
(("1" (flatten)
(("1" (replace -1)
(("1" (case "det(sp,v) = 0")
(("1" (lemma "orthogonal_basis")
(("1" (inst - "v" "perpR(v)" "sp")
(("1" (assert)
(("1"
(split -)
(("1"
(replace -3)
(("1"
(assert)
(("1"
(rewrite "det_perpR")
(("1"
(replace -2)
(("1"
(assert)
(("1"
(typepred "sp")
(("1"
(replace -2)
(("1" (assert) nil nil))
nil))
nil))
nil))
nil))
nil))
nil))
nil)
("2"
(flatten)
(("2"
(hide-all-but (-1 1))
(("2"
(expand "zero")
(("2"
(decompose-equality)
(("2"
(expand "perpR")
(("2"
(decompose-equality)
nil
nil))
nil))
nil))
nil))
nil))
nil)
("3"
(hide-all-but 1)
(("3" (grind) nil nil))
nil))
nil))
nil))
nil))
nil)
("2" (case "R(sp) = 0")
(("1" (lemma "R_eq_0")
(("1" (inst?) (("1" (assert) nil nil))
nil))
nil)
("2" (assert) nil nil))
nil))
nil))
nil))
nil))
nil))
nil))
nil)
("2" (assert) nil nil))
nil))
nil))
nil))
nil))
nil)
((line_solution_dot_neg formula-decl nil line_solutions nil)
(real_lt_is_strict_total_order name-judgement
"(strict_total_order?[real])" real_props nil)
(sq_nz_pos application-judgement "posreal" sq "reals/")
(real_gt_is_strict_total_order name-judgement
"(strict_total_order?[real])" real_props nil)
(real_times_real_is_real application-judgement "real" reals nil)
(line_solution? const-decl "bool" line_solutions nil)
(R const-decl "nnreal" horizontal_criteria nil)
(R_eq_0 formula-decl nil horizontal_criteria nil)
(orthogonal_basis formula-decl nil basis_2D "vectors/")
(real_le_is_total_order name-judgement "(total_order?[real])"
real_props nil)
(real_plus_real_is_real application-judgement "real" reals nil)
(orthogonal? const-decl "bool" vectors_2D "vectors/")
(zero const-decl "Vector" vectors_2D "vectors/")
(minus_real_is_real application-judgement "real" reals nil)
(AND const-decl "[bool, bool -> bool]" booleans nil)
(det_perpR formula-decl nil det_2D "vectors/")
(mult_divides2 application-judgement "(divides(m))" divides nil)
(mult_divides1 application-judgement "(divides(n))" divides nil)
(int_times_even_is_even application-judgement "even_int" integers
nil)
(nnreal_times_nnreal_is_nnreal application-judgement "nnreal"
real_types nil)
(real_ge_is_total_order name-judgement "(total_order?[real])"
real_props nil)
(sqv_zero formula-decl nil vectors_2D "vectors/")
(NOT const-decl "[bool -> bool]" booleans nil)
(add_zero_left formula-decl nil vectors_2D "vectors/")
(scal_0 formula-decl nil vectors_2D "vectors/")
(real_div_nzreal_is_real application-judgement "real" reals nil)
(perpR const-decl "Vect2" perpendicular_2D "vectors/")
(det const-decl "real" det_2D "vectors/")
(* const-decl "real" vectors_2D "vectors/")
(Sp_vect2 type-eq-decl nil horizontal nil)
(D formal-const-decl "posreal" line_solutions nil)
(posreal nonempty-type-eq-decl nil real_types nil)
(> const-decl "bool" reals nil)
(sq const-decl "nonneg_real" sq "reals/")
(nonneg_real nonempty-type-eq-decl nil real_types nil)
(sqv const-decl "nnreal" vectors_2D "vectors/")
(nnreal type-eq-decl nil real_types nil)
(Vector type-eq-decl nil vectors_2D "vectors/")
(>= const-decl "bool" reals nil)
(Vect2 type-eq-decl nil vectors_2D_def "vectors/")
(Sign type-eq-decl nil sign "reals/")
(- const-decl "[numfield -> numfield]" number_fields nil)
(numfield nonempty-type-eq-decl nil number_fields nil)
(= const-decl "[T, T -> boolean]" equalities nil)
(OR const-decl "[bool, bool -> bool]" booleans nil)
(bool nonempty-type-eq-decl nil booleans nil)
(nzint nonempty-type-eq-decl nil integers nil)
(/= const-decl "boolean" notequal nil)
(int nonempty-type-eq-decl nil integers nil)
(integer_pred const-decl "[rational -> boolean]" integers nil)
(rational nonempty-type-from-decl nil rationals nil)
(rational_pred const-decl "[real -> boolean]" rationals nil)
(real nonempty-type-from-decl nil reals nil)
(real_pred const-decl "[number_field -> boolean]" reals nil)
(number_field nonempty-type-from-decl nil number_fields nil)
(number_field_pred const-decl "[number -> boolean]" number_fields
nil)
(boolean nonempty-type-decl nil booleans nil)
(number nonempty-type-decl nil numbers nil))
shostak))
(line_solution_on_D_TCC1 0
(line_solution_on_D_TCC1-1 nil 3434195393
("" (skeep) (("" (assert) nil nil)) nil)
((real_ge_is_total_order name-judgement "(total_order?[real])"
real_props nil)
(sq_nz_pos application-judgement "posreal" sq "reals/"))
nil))
(line_solution_on_D 0
(line_solution_on_D-1 nil 3434195395
("" (skeep)
(("" (expand "line_solution?")
(("" (rewrite "R_eq_0")
(("" (replaces -1)
(("" (assert)
(("" (rewrite "dot_perpR")
(("" (assert) (("" (grind) nil nil)) nil)) nil))
nil))
nil))
nil))
nil))
nil)
((real_times_real_is_real application-judgement "real" reals nil)
(line_solution? const-decl "bool" line_solutions nil)
(perpR const-decl "Vect2" perpendicular_2D "vectors/")
(dot_perpR formula-decl nil det_2D "vectors/")
(minus_real_is_real application-judgement "real" reals nil)
(real_le_is_total_order name-judgement "(total_order?[real])"
real_props nil)
(real_minus_real_is_real application-judgement "real" reals nil)
(det const-decl "real" det_2D "vectors/")
(* const-decl "Vector" vectors_2D "vectors/")
(dot_scal_right formula-decl nil vectors_2D "vectors/")
(D formal-const-decl "posreal" line_solutions nil)
(posreal nonempty-type-eq-decl nil real_types nil)
(> const-decl "bool" reals nil)
(nonneg_real nonempty-type-eq-decl nil real_types nil)
(>= const-decl "bool" reals 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)
(Sp_vect2 type-eq-decl nil horizontal nil)
(sq const-decl "nonneg_real" sq "reals/")
(sqv const-decl "nnreal" vectors_2D "vectors/")
(nnreal type-eq-decl nil real_types nil)
(Vector type-eq-decl nil vectors_2D "vectors/")
(Vect2 type-eq-decl nil vectors_2D_def "vectors/")
(R_eq_0 formula-decl nil horizontal_criteria nil)
(real_ge_is_total_order name-judgement "(total_order?[real])"
real_props nil)
(sq_nz_pos application-judgement "posreal" sq "reals/"))
shostak))
(on_D_line 0
(on_D_line-1 nil 3460198275
("" (skeep)
(("" (expand "line_solution?")
(("" (rewrite "R_eq_0")
(("" (assert)
(("" (hide -)
(("" (inst 1 "-sign(det(s,v))")
(("" (name-replace "dv" "det(s,v)")
(("" (grind) nil nil)) nil))
nil))
nil))
nil))
nil))
nil))
nil)
((real_times_real_is_real application-judgement "real" reals nil)
(line_solution? const-decl "bool" line_solutions nil)
(sign_neg_clos application-judgement "Sign" sign "reals/")
(det const-decl "real" det_2D "vectors/")
(sign const-decl "Sign" sign "reals/")
(Sign type-eq-decl nil sign "reals/")
(- const-decl "[numfield -> numfield]" number_fields nil)
(numfield nonempty-type-eq-decl nil number_fields nil)
(= const-decl "[T, T -> boolean]" equalities nil)
(OR const-decl "[bool, bool -> bool]" booleans nil)
(nzint nonempty-type-eq-decl nil integers nil)
(/= const-decl "boolean" notequal 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)
(minus_odd_is_odd application-judgement "odd_int" integers nil)
(real_le_is_total_order name-judgement "(total_order?[real])"
real_props nil)
(D formal-const-decl "posreal" line_solutions nil)
(posreal nonempty-type-eq-decl nil real_types nil)
(> const-decl "bool" reals nil)
(nonneg_real nonempty-type-eq-decl nil real_types nil)
(>= const-decl "bool" reals 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)
(Sp_vect2 type-eq-decl nil horizontal nil)
(sq const-decl "nonneg_real" sq "reals/")
(sqv const-decl "nnreal" vectors_2D "vectors/")
(nnreal type-eq-decl nil real_types nil)
(Vector type-eq-decl nil vectors_2D "vectors/")
(Vect2 type-eq-decl nil vectors_2D_def "vectors/")
(R_eq_0 formula-decl nil horizontal_criteria nil)
(real_ge_is_total_order name-judgement "(total_order?[real])"
real_props nil)
(sq_nz_pos application-judgement "posreal" sq "reals/"))
nil))
(line_solution_scal 0
(line_solution_scal-1 nil 3427550782
("" (skeep)
(("" (expand "line_solution?")
(("" (rewrite "det_scal_right")
(("" (split)
(("1" (flatten)
(("1" (split 1)
(("1" (cancel-by 1 "pk") nil nil)
("2" (rewrite "dot_scal_right")
(("2" (cancel-by 1 "pk") nil nil)) nil)
("3" (flatten)
(("3" (assert) (("3" (cancel-by 1 "pk") nil nil)) nil))
nil))
nil))
nil)
("2" (flatten)
(("2" (split 1)
(("1" (cancel-by -1 "pk") nil nil)
("2" (rewrite "dot_scal_right")
(("2" (cancel-by -2 "pk") nil nil)) nil)
("3" (flatten)
(("3" (assert) (("3" (cancel-by -4 "pk") nil nil))
nil))
nil))
nil))
nil))
nil))
nil))
nil))
nil)
((real_times_real_is_real application-judgement "real" reals nil)
(line_solution? const-decl "bool" line_solutions nil)
(= const-decl "[T, T -> boolean]" equalities nil)
(posreal_div_posreal_is_posreal application-judgement "posreal"
real_types nil)
(both_sides_times1 formula-decl nil real_props nil)
(* const-decl "Vector" vectors_2D "vectors/")
(* const-decl "real" vectors_2D "vectors/")
(Sign type-eq-decl nil sign "reals/")
(- const-decl "[numfield -> numfield]" number_fields nil)
(OR const-decl "[bool, bool -> bool]" booleans nil)
(nzint nonempty-type-eq-decl nil integers 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)
(det const-decl "real" det_2D "vectors/")
(R const-decl "nnreal" horizontal_criteria nil)
(* const-decl "[numfield, numfield -> numfield]" number_fields nil)
(/ const-decl "[numfield, nznum -> numfield]" number_fields nil)
(nznum nonempty-type-eq-decl nil number_fields nil)
(numfield nonempty-type-eq-decl nil number_fields nil)
(nonzero_real nonempty-type-eq-decl nil reals nil)
(/= const-decl "boolean" notequal nil)
(bijective? const-decl "bool" functions nil)
(id const-decl "(bijective?[T, T])" identity nil)
(TRUE const-decl "bool" booleans nil)
(dot_scal_right formula-decl nil vectors_2D "vectors/")
(both_sides_times_pos_le1 formula-decl nil real_props nil)
(nnreal_times_nnreal_is_nnreal application-judgement "nnreal"
real_types nil)
(real_le_is_total_order name-judgement "(total_order?[real])"
real_props nil)
(zero_div formula-decl nil extra_tegies nil)
(nnreal_div_posreal_is_nnreal application-judgement "nnreal"
real_types nil)
(real_gt_is_strict_total_order name-judgement
"(strict_total_order?[real])" real_props nil)
(both_sides_times1_imp formula-decl nil extra_real_props nil)
(both_sides_times_pos_le1_imp formula-decl nil extra_real_props
nil)
(Sp_vect2 type-eq-decl nil horizontal nil)
(D formal-const-decl "posreal" line_solutions nil)
(sq const-decl "nonneg_real" sq "reals/")
(sqv const-decl "nnreal" vectors_2D "vectors/")
(nnreal type-eq-decl nil real_types nil)
(Vector type-eq-decl nil vectors_2D "vectors/")
(Vect2 type-eq-decl nil vectors_2D_def "vectors/")
(posreal nonempty-type-eq-decl nil real_types nil)
(> const-decl "bool" reals nil)
(nonneg_real nonempty-type-eq-decl nil real_types nil)
(>= const-decl "bool" reals 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)
(det_scal_right formula-decl nil det_2D "vectors/"))
nil))
(line_solution_zero_eps 0
(line_solution_zero_eps-1 nil 3431107638 ("" (grind) nil nil)
((* const-decl "real" vectors_2D "vectors/")
(sqv const-decl "nnreal" vectors_2D "vectors/")
(sq const-decl "nonneg_real" sq "reals/")
(D formal-const-decl "posreal" line_solutions nil)
(posreal nonempty-type-eq-decl nil real_types nil)
(> const-decl "bool" reals nil)
(nonneg_real nonempty-type-eq-decl nil real_types nil)
(>= const-decl "bool" reals 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)
(R const-decl "nnreal" horizontal_criteria nil)
(comp_zero_y formula-decl nil vectors_2D "vectors/")
(comp_zero_x formula-decl nil vectors_2D "vectors/")
(det const-decl "real" det_2D "vectors/")
(line_solution? const-decl "bool" line_solutions nil)
(real_plus_real_is_real application-judgement "real" reals nil)
(real_times_real_is_real application-judgement "real" reals nil)
(posreal_times_posreal_is_posreal application-judgement "posreal"
real_types nil)
(sq_nz_pos application-judgement "posreal" sq "reals/"))
shostak))
(line_solution_zero 0
(line_solution_zero-1 nil 3427550810
("" (skeep) (("" (inst 1 "1") (("" (grind) nil nil)) nil)) nil)
((number nonempty-type-decl nil numbers nil)
(boolean nonempty-type-decl nil booleans nil)
(number_field_pred const-decl "[number -> boolean]" number_fields
nil)
(number_field nonempty-type-from-decl nil number_fields nil)
(real_pred const-decl "[number_field -> boolean]" reals nil)
(real nonempty-type-from-decl nil reals nil)
(rational_pred const-decl "[real -> boolean]" rationals nil)
(rational nonempty-type-from-decl nil rationals nil)
(integer_pred const-decl "[rational -> boolean]" integers nil)
(int nonempty-type-eq-decl nil integers nil)
(/= const-decl "boolean" notequal nil)
(nzint nonempty-type-eq-decl nil integers nil)
(bool nonempty-type-eq-decl nil booleans nil)
(OR const-decl "[bool, bool -> bool]" booleans nil)
(= const-decl "[T, T -> boolean]" equalities nil)
(numfield nonempty-type-eq-decl nil number_fields nil)
(- const-decl "[numfield -> numfield]" number_fields nil)
(Sign type-eq-decl nil sign "reals/")
(real_times_real_is_real application-judgement "real" reals nil)
(nnreal_times_nnreal_is_nnreal application-judgement "nnreal"
real_types nil)
(nnreal_div_posreal_is_nnreal application-judgement "nnreal"
real_types nil)
(real_minus_real_is_real application-judgement "real" reals nil)
(real_plus_real_is_real application-judgement "real" reals nil)
(posreal_times_posreal_is_posreal application-judgement "posreal"
real_types nil)
(real_le_is_total_order name-judgement "(total_order?[real])"
real_props nil)
(line_solution? const-decl "bool" line_solutions nil)
(det const-decl "real" det_2D "vectors/")
(comp_zero_x formula-decl nil vectors_2D "vectors/")
(comp_zero_y formula-decl nil vectors_2D "vectors/")
(R const-decl "nnreal" horizontal_criteria nil)
(>= const-decl "bool" reals 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)
(D formal-const-decl "posreal" line_solutions nil)
(sq const-decl "nonneg_real" sq "reals/")
(sqv const-decl "nnreal" vectors_2D "vectors/")
(* const-decl "real" vectors_2D "vectors/")
(sq_nz_pos application-judgement "posreal" sq "reals/"))
shostak))
(line_solution_Delta 0
(line_solution_Delta-3 "" 3504721450
("" (skeep)
(("" (split)
(("1" (flatten)
(("1" (skeep -1)
(("1" (lemma "line_solution_dot_neg")
(("1" (inst?)
(("1" (assert)
(("1" (hide -1)
(("1" (expand "line_solution?")
(("1" (flatten)
(("1" (expand "Delta")
(("1" (both-sides "+" "sq(det(sp,v))" 1)
(("1" (assert)
(("1" (expand "R")
(("1"
(rewrite "sq_det")
(("1"
(case
"NOT sq(det(sp,v))*(sqv(sp)-sq(D)) = sq(sp*v)*sq(D)")
(("1"
(mult-eq -1 -1)
(("1"
(hide -2)
(("1"
(hide -2)
(("1"
(lemma "sq_sqrt")
(("1"
(inst?)
(("1"
(split -)
(("1"
(hide 2)
(("1"
(expand "sq" -1)
(("1"
(cross-mult -2)
(("1"
(typepred "eps")
(("1"
(grind
:exclude
("det" "sqv"))
nil
nil))
nil))
nil))
nil))
nil)
("2" (assert) nil nil))
nil))
nil))
nil))
nil))
nil))
nil)
("2"
(hide -2)
(("2"
(rewrite "sq_det")
(("2"
(assert)
(("2"
(factor -1)
(("2"
(case
"(-1 * sq(sp * v) - sq(D) * sqv(v) + sqv(sp) * sqv(v)) = 0")
(("1" (assert) nil nil)
("2"
(mult-by 1 "sqv(sp)")
(("2" (assert) nil nil))
nil))
nil))
nil))
nil))
nil))
nil))
nil))
nil))
nil))
nil))
nil))
nil))
nil))
nil))
nil))
nil))
nil))
nil))
nil))
nil)
("2" (flatten)
(("2" (expand "line_solution?")
(("2" (expand "R")
(("2" (expand "Delta")
(("2" (case "det(sp,v) = 0")
(("1" (replace -1)
(("1" (assert)
(("1" (lemma "sqv_eq_0")
(("1" (inst?)
(("1" (div-by -3 "sq(D)")
(("1" (assert)
(("1" (replace -1)
(("1"
(assert)
(("1" (inst + "1") nil nil))
nil))
nil))
nil))
nil))
nil))
nil))
nil))
nil)
("2" (name "epsil" "-sign(det(sp,v))")
(("2" (label "espsilname" -1)
(("2" (inst + "epsil")
(("2" (case "epsil * det(sp, v) <= 0")
(("1" (assert)
(("1" (label "espdef2" -1)
(("1" (lemma "sq_eq")
(("1"
(inst
-
"-(det(sp, v) * (sqrt(sqv(sp) - sq(D)) / D) * epsil)"
"-(sp*v)")
(("1"
(assert)
(("1"
(lemma "sq_neg")
(("1"
(inst-cp - "(sp*v)")
(("1"
(replace -2)
(("1"
(hide -2)
(("1"
(inst?)
(("1"
(replace -1)
(("1"
(hide -1)
(("1"
(rewrite "sq_times")
(("1"
(rewrite
"sq_times")
(("1"
(rewrite
"sq_div")
(("1"
(cross-mult 1)
(("1"
(case-replace
"sq(epsil) = 1")
(("1"
(assert)
(("1"
(factor
1)
(("1"
(rewrite
"sq_det")
(("1"
(assert)
nil
nil))
nil))
nil))
nil)
("2"
(typepred
"epsil")
(("2"
(hide-all-but
(-1
-2
1))
(("2"
(grind)
nil
nil))
nil))
nil))
nil))
nil))
nil))
nil))
nil))
nil))
nil))
nil))
nil))
nil))
nil))
nil))
nil)
("2"
(name-replace "AA" "det(sp,v)")
(("2"
(name
"BB"
"(sqrt(sqv(sp) - sq(D)) / D)")
(("2"
(case "BB >= 0")
(("1"
(replace -2)
(("1"
(hide-all-but (-1 -3 1))
(("1"
(case-replace
"AA*BB*epsil = (epsil*AA)*BB")
(("1"
(name-replace
"CC"
"epsil*AA")
(("1"
(case "CC*BB <= 0")
(("1" (assert) nil nil)
("2"
(assert)
(("2"
(lemma
"nnreal_times_nnreal_is_nnreal")
(("2"
(inst
-
"-CC"
"BB")
(("2"
(assert)
nil
nil))
nil))
nil))
nil))
nil))
nil)
("2" (assert) nil nil))
nil))
nil))
nil)
("2"
(replace -1 + rl)
(("2" (cross-mult 1) nil nil))
nil))
nil))
nil))
nil))
nil))
nil))
nil))
nil)
("2" (replace "espsilname" + rl)
(("2" (name-replace "AAA" "det(sp,v)")
(("2" (hide-all-but 1)
(("2" (grind) nil nil)) nil))
nil))
nil))
nil))
nil))
nil))
nil))
nil))
nil))
nil))
nil))
nil))
nil))
nil)
((number nonempty-type-decl nil numbers nil)
(boolean nonempty-type-decl nil booleans nil)
(number_field_pred const-decl "[number -> boolean]" number_fields
nil)
(number_field nonempty-type-from-decl nil number_fields nil)
(real_pred const-decl "[number_field -> boolean]" reals nil)
(real nonempty-type-from-decl nil reals nil)
(rational_pred const-decl "[real -> boolean]" rationals nil)
(rational nonempty-type-from-decl nil rationals nil)
(integer_pred const-decl "[rational -> boolean]" integers nil)
(int nonempty-type-eq-decl nil integers nil)
(/= const-decl "boolean" notequal nil)
(nzint nonempty-type-eq-decl nil integers nil)
(bool nonempty-type-eq-decl nil booleans nil)
(OR const-decl "[bool, bool -> bool]" booleans nil)
(= const-decl "[T, T -> boolean]" equalities nil)
(numfield nonempty-type-eq-decl nil number_fields nil)
(- const-decl "[numfield -> numfield]" number_fields nil)
(Sign type-eq-decl nil sign "reals/")
(Vect2 type-eq-decl nil vectors_2D_def "vectors/")
(>= const-decl "bool" reals nil)
(Vector type-eq-decl nil vectors_2D "vectors/")
(nnreal type-eq-decl nil real_types nil)
(sqv const-decl "nnreal" vectors_2D "vectors/")
(nonneg_real nonempty-type-eq-decl nil real_types nil)
(sq const-decl "nonneg_real" sq "reals/")
(> const-decl "bool" reals nil)
(posreal nonempty-type-eq-decl nil real_types nil)
(D formal-const-decl "posreal" line_solutions nil)
(Sp_vect2 type-eq-decl nil horizontal nil)
(nnreal_times_nnreal_is_nnreal application-judgement "nnreal"
real_types nil)
(real_minus_real_is_real application-judgement "real" reals nil)
(real_plus_real_is_real application-judgement "real" reals nil)
(nnreal_plus_nnreal_is_nnreal application-judgement "nnreal"
real_types nil)
(- const-decl "[numfield, numfield -> numfield]" number_fields nil)
(* const-decl "[numfield, numfield -> numfield]" number_fields nil)
(det const-decl "real" det_2D "vectors/")
(+ const-decl "[numfield, numfield -> numfield]" number_fields nil)
(NOT const-decl "[bool -> bool]" booleans nil)
(real_ge_is_total_order name-judgement "(total_order?[real])"
real_props nil)
(R const-decl "nnreal" horizontal_criteria nil)
(* const-decl "real" vectors_2D "vectors/")
(sq_sqrt formula-decl nil sqrt "reals/")
(posreal_times_posreal_is_posreal application-judgement "posreal"
real_types nil)
(div_cancel3 formula-decl nil real_props nil)
(times_div2 formula-decl nil real_props nil)
(nonzero_real nonempty-type-eq-decl nil reals nil)
(times_div1 formula-decl nil real_props nil)
(real_div_nzreal_is_real application-judgement "real" reals nil)
(nznum nonempty-type-eq-decl nil number_fields nil)
(/ const-decl "[numfield, nznum -> numfield]" number_fields nil)
(sqrt const-decl "{nnz: nnreal | nnz * nnz = nnx}" sqrt "reals/")
(both_sides_times1 formula-decl nil real_props nil)
(nnreal_div_posreal_is_nnreal application-judgement "nnreal"
real_types nil)
(sq_det formula-decl nil det_2D "vectors/")
(real_le_is_total_order name-judgement "(total_order?[real])"
real_props nil)
(Delta const-decl "real" horizontal nil)
(sq_nz_pos application-judgement "posreal" sq "reals/")
(line_solution? const-decl "bool" line_solutions nil)
(real_times_real_is_real application-judgement "real" reals nil)
(minus_odd_is_odd application-judgement "odd_int" integers nil)
(line_solution_dot_neg formula-decl nil line_solutions nil)
(sign const-decl "Sign" sign "reals/")
(sign_neg_clos application-judgement "Sign" sign "reals/")
(sq_eq formula-decl nil sq "reals/")
(nnreal_times_nnreal_is_nnreal judgement-tcc nil real_types nil)
(div_mult_pos_ge1 formula-decl nil real_props nil)
(sq_times formula-decl nil sq "reals/")
(sign_sq_clos application-judgement "Sign" sign "reals/")
(sq_div formula-decl nil sq "reals/")
(mult_divides1 application-judgement "(divides(n))" divides nil)
(sign_mult_clos application-judgement "Sign" sign "reals/")
(sq_neg formula-decl nil sq "reals/")
(epsil skolem-const-decl "Sign" line_solutions nil)
(v skolem-const-decl "Vect2" line_solutions nil)
(sp skolem-const-decl "Sp_vect2[D]" line_solutions nil)
(minus_real_is_real application-judgement "real" reals nil)
(<= const-decl "bool" reals nil)
(sqv_eq_0 formula-decl nil vectors_2D "vectors/")
(both_sides_div1 formula-decl nil real_props nil)
(times_div_cancel1 formula-decl nil extra_real_props nil)
(dot_zero_right formula-decl nil vectors_2D "vectors/")
(sqv_zero formula-decl nil vectors_2D "vectors/")
(sq_0 formula-decl nil sq "reals/"))
shostak)
(line_solution_Delta-2 nil 3501851418
("" (skeep)
(("" (split)
(("1" (flatten)
(("1" (skeep -1)
(("1" (lemma "line_solution_dot_neg")
(("1" (inst?)
(("1" (assert)
(("1" (hide -1)
(("1" (expand "line_solution?")
(("1" (flatten)
(("1" (expand "Delta")
(("1" (both-sides "+" "sq(det(sp,v))" 1)
(("1" (assert)
(("1" (expand "R")
(("1"
(rewrite "sq_det")
(("1"
(case
"NOT sq(det(sp,v))*(sqv(sp)-sq(D)) = sq(sp*v)*sq(D)")
(("1"
(mult-eq -1 -1)
(("1"
(hide -2)
(("1"
(hide -2)
(("1"
(lemma "sq_sqrt")
(("1"
(inst?)
(("1"
(split -)
(("1"
(hide 2)
(("1"
(expand "sq" -1)
(("1"
(cross-mult -2)
(("1"
(typepred "eps")
(("1"
(grind
:exclude
("det" "sqv"))
nil
nil))
nil))
nil))
nil))
nil)
("2" (assert) nil nil))
nil))
nil))
nil))
nil))
nil))
nil)
("2"
(hide -2)
(("2"
(rewrite "sq_det")
(("2"
(assert)
(("2"
(factor -1)
(("2"
(case
"(-1 * sq(sp * v) - sq(D) * sqv(v) + sqv(sp) * sqv(v)) = 0")
(("1" (assert) nil nil)
("2"
(mult-by 1 "sqv(sp)")
(("2" (assert) nil nil))
nil))
nil))
nil))
nil))
nil))
nil))
nil))
nil))
nil))
nil))
nil))
nil))
nil))
nil))
nil))
nil))
nil))
nil))
nil))
nil)
("2" (flatten)
(("2" (expand "line_solution?")
(("2" (expand "R")
(("2" (expand "Delta")
(("2" (case "det(sp,v) = 0")
(("1" (replace -1)
(("1" (assert)
(("1" (lemma "sqv_eq_0")
(("1" (inst?)
(("1" (div-by -3 "sq(D)")
(("1" (assert)
(("1" (replace -1)
(("1"
(assert)
(("1"
(inst + "1")
(("1"
(replace -3)
(("1" (assert) nil nil))
nil))
nil))
nil))
nil))
nil))
nil))
nil))
nil))
nil))
nil)
("2" (name "epsil" "-sign(det(sp,v))")
(("2" (label "espsilname" -1)
(("2" (inst + "epsil")
(("2" (case "epsil * det(sp, v) <= 0")
(("1" (assert)
(("1" (label "espdef2" -1)
(("1" (lemma "sq_eq")
(("1"
(inst
-
"-(det(sp, v) * (sqrt(sqv(sp) - sq(D)) / D) * epsil)"
"-(sp*v)")
(("1"
(assert)
(("1"
(lemma "sq_neg")
(("1"
(inst-cp - "(sp*v)")
(("1"
(replace -2)
(("1"
(hide -2)
(("1"
(inst?)
(("1"
(replace -1)
(("1"
(hide -1)
(("1"
(rewrite "sq_times")
(("1"
(rewrite
"sq_times")
(("1"
(rewrite
"sq_div")
(("1"
(cross-mult 1)
(("1"
(case-replace
"sq(epsil) = 1")
(("1"
(assert)
(("1"
(factor
1)
(("1"
(rewrite
"sq_det")
(("1"
(assert)
nil
nil))
nil))
nil))
nil)
("2"
(typepred
"epsil")
(("2"
(hide-all-but
(-1
-2
1))
(("2"
(grind)
nil
nil))
nil))
nil))
nil))
nil))
nil))
nil))
nil))
nil))
nil))
nil))
nil))
nil))
nil))
nil))
nil)
("2"
(name-replace "AA" "det(sp,v)")
(("2"
(name
"BB"
"(sqrt(sqv(sp) - sq(D)) / D)")
(("2"
(case "BB >= 0")
(("1"
(replace -2)
(("1"
(hide-all-but (-1 -3 1))
(("1"
(case-replace
"AA*BB*epsil = (epsil*AA)*BB")
(("1"
(name-replace
"CC"
"epsil*AA")
(("1"
(case "CC*BB <= 0")
(("1" (assert) nil nil)
("2"
(assert)
(("2"
(lemma
"nnreal_times_nnreal_is_nnreal")
(("2"
(inst
-
"-CC"
"BB")
(("2"
(assert)
nil
nil))
nil))
nil))
nil))
nil))
nil)
("2" (assert) nil nil))
nil))
nil))
nil)
("2"
(replace -1 + rl)
(("2" (cross-mult 1) nil nil))
nil))
nil))
nil))
nil))
nil))
nil))
nil))
nil)
("2" (replace "espsilname" + rl)
(("2" (name-replace "AAA" "det(sp,v)")
(("2" (hide-all-but 1)
(("2" (grind) nil nil)) nil))
nil))
nil))
nil))
nil))
nil))
nil))
nil))
nil))
nil))
nil))
nil))
nil))
nil)
((Sign type-eq-decl nil sign "reals/")
(Vect2 type-eq-decl nil vectors_2D_def "vectors/")
(Vector type-eq-decl nil vectors_2D "vectors/")
(sqv const-decl "nnreal" vectors_2D "vectors/")
(sq const-decl "nonneg_real" sq "reals/")
(Sp_vect2 type-eq-decl nil horizontal nil)
(det const-decl "real" det_2D "vectors/")
(R const-decl "nnreal" horizontal_criteria nil)
(* const-decl "real" vectors_2D "vectors/")
(sq_sqrt formula-decl nil sqrt "reals/")
(sqrt const-decl "{nnz: nnreal | nnz * nnz = nnx}" sqrt "reals/")
(sq_det formula-decl nil det_2D "vectors/")
(Delta const-decl "real" horizontal nil)
(sq_nz_pos application-judgement "posreal" sq "reals/")
(sign const-decl "Sign" sign "reals/")
(sign_neg_clos application-judgement "Sign" sign "reals/")
(sq_eq formula-decl nil sq "reals/")
(sq_times formula-decl nil sq "reals/")
(sign_sq_clos application-judgement "Sign" sign "reals/")
(sq_div formula-decl nil sq "reals/")
(sign_mult_clos application-judgement "Sign" sign "reals/")
(sq_neg formula-decl nil sq "reals/")
(sqv_eq_0 formula-decl nil vectors_2D "vectors/")
(dot_zero_right formula-decl nil vectors_2D "vectors/")
(sqv_zero formula-decl nil vectors_2D "vectors/")
(sq_0 formula-decl nil sq "reals/"))
nil)
(line_solution_Delta-1 nil 3467970603
("" (skeep)
(("" (split)
(("1" (flatten)
(("1" (skeep -1)
(("1" (lemma "line_solution_dot_neg")
(("1" (inst?)
(("1" (assert)
(("1" (hide -1)
(("1" (expand "line_solution?")
(("1" (flatten)
(("1" (expand "Delta")
(("1" (both-sides "+" "sq(det(sp,v))" 1)
(("1" (assert)
(("1" (expand "R")
(("1"
(rewrite "sq_det")
(("1"
(mult-eq -1 -1)
(("1"
(field -1)
(("1"
(rewrite "sq_rew")
(("1"
(rewrite "sq_rew")
(("1"
(case-replace
"(sqv(sp) - sq(D)) * det(sp, v) * det(sp, v) * eps * eps = (sqv(sp) - sq(D)) * sq(det(sp, v))")
(("1"
(hide -1)
(("1"
(case-replace
"sq((sp * v)) * D * D = sq((sp * v)) * sq(D)")
(("1"
(hide -1)
(("1"
(lemma "sq_det")
(("1"
(inst - "sp" "v")
(("1"
(replace -1)
(("1"
(hide -1)
(("1"
(assert)
(("1"
(factor -1)
(("1"
(div-by
-1
"sqv(sp)")
(("1"
(assert)
nil
nil))
nil))
nil))
nil))
nil))
nil))
nil))
nil))
nil)
("2"
(expand "sq")
(("2"
(propax)
nil
nil))
nil))
nil))
nil)
("2"
(hide-all-but 1)
(("2"
(expand "sq")
(("2"
(typepred "eps")
(("2"
(split)
(("1"
(replace -1)
(("1"
(assert)
nil
nil))
nil)
("2"
(replace -1)
(("2"
(assert)
nil
nil))
nil))
nil))
nil))
nil))
nil))
nil))
nil))
nil))
nil))
nil))
nil))
nil))
nil))
nil))
nil))
nil))
nil))
nil))
nil))
nil))
nil))
nil))
nil)
("2" (assert)
(("2" (flatten)
(("2" (expand "line_solution?")
(("2" (expand "R")
(("2" (expand "Delta")
(("2" (case "det(sp,v) = 0")
(("1" (replace -1)
(("1" (assert)
(("1" (lemma "sqv_eq_0")
(("1" (inst?)
(("1" (div-by -3 "sq(D)")
(("1" (assert)
(("1"
(replace -1)
(("1"
(assert)
(("1" (inst + "1") nil nil))
nil))
nil))
nil))
nil))
nil))
nil))
nil))
nil)
("2" (name "epsil" "-sign(det(sp,v))")
(("2" (label "espsilname" -1)
(("2" (inst + "epsil")
(("2" (case "epsil * det(sp, v) <= 0")
(("1" (assert)
(("1" (label "espdef2" -1)
(("1"
(lemma "sq_eq")
(("1"
(inst
-
"-(det(sp, v) * (sqrt(sqv(sp) - sq(D)) / D) * epsil)"
"-(sp*v)")
(("1"
(assert)
(("1"
(lemma "sq_neg")
(("1"
(inst-cp - "(sp*v)")
(("1"
(replace -2)
(("1"
(hide -2)
(("1"
(inst?)
(("1"
(replace -1)
(("1"
(hide -1)
(("1"
(rewrite
"sq_times")
(("1"
(rewrite
"sq_times")
(("1"
(rewrite
"sq_div")
(("1"
(field 1)
(("1"
(case-replace
"sq(epsil) = 1")
(("1"
--> --------------------
--> maximum size reached
--> --------------------
¤ Dauer der Verarbeitung: 0.94 Sekunden
(vorverarbeitet)
¤
|
Haftungshinweis
Die Informationen auf dieser Webseite wurden
nach bestem Wissen sorgfältig zusammengestellt. Es wird jedoch weder Vollständigkeit, noch Richtigkeit,
noch Qualität der bereit gestellten Informationen zugesichert.
Bemerkung:
Die farbliche Syntaxdarstellung ist noch experimentell.
|
