(predicate_coordination
(coordinated_symmetric 0
(coordinated_symmetric-1 nil 3489503696
(""
(case "FORALL (C, Crit1, Crit2: Criter):
symmetric?(C) IMPLIES (coordinated?(Crit1, Crit2, C) IMPLIES coordinated?(Crit2, Crit1, C))")
(("1" (skeep)
(("1" (inst-cp - "C" "Crit1" "Crit2" )
(("1" (inst - "C" "Crit2" "Crit1" ) (("1" (ground) nil nil ))
nil ))
nil ))
nil )
("2" (hide 2)
(("2" (skeep)
(("2" (expand "coordinated?" )
(("2" (skeep)
(("2" (inst - "vi" "vo" "nvi" "nvo" "-s" )
(("2" (assert )
(("2" (expand "symmetric?" )
(("2" (copy -1)
(("2" (inst - "s" "vo-vi" "nvo-nvi" )
(("2"
(case "-(vo-vi) = vi-vo AND -(nvo-nvi) = nvi-nvo" )
(("1" (ground)
(("1" (inst - "s" "vo-vi" "vo-vi" )
(("1" (ground) nil nil )) nil ))
nil )
("2" (hide-all-but 1) (("2" (grind) nil nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
((- const-decl "Vector" vectors_3D "vectors/" )
(Vector type-eq-decl nil vectors_3D "vectors/" )
(- const-decl "Vector" vectors_3D "vectors/" )
(minus_real_is_real application-judgement "real" reals nil )
(real_minus_real_is_real application-judgement "real" reals nil )
(= const-decl "[T, T -> boolean]" equalities nil )
(AND const-decl "[bool, bool -> bool]" booleans nil )
(neg_neg formula-decl nil vectors_3D "vectors/" )
(real nonempty-type-from-decl nil reals nil )
(Vect3 type-eq-decl nil vectors_3D_def "vectors/" )
(boolean nonempty-type-decl nil booleans nil )
(bool nonempty-type-eq-decl nil booleans nil )
(set type-eq-decl nil sets nil )
(Criter type-eq-decl nil predicate_coordination nil )
(IMPLIES const-decl "[bool, bool -> bool]" booleans nil )
(Vector_Predicate nonempty-type-eq-decl nil predicate_coordination
nil )
(symmetric? const-decl "bool" predicate_coordination nil )
(coordinated? const-decl "bool" predicate_coordination nil ))
shostak))
(sum_indep_coordinated 0
(sum_indep_coordinated-1 nil 3489507263
("" (skeep)
(("" (ground)
(("" (expand "coordinated?" )
(("" (skeep)
(("" (expand "crit_symmetric?" )
(("" (inst - "vo-vi" "s" "vo-nvi" )
(("" (case "-(vo-vi) = vi-vo" )
(("1" (replace -1)
(("1" (hide -1)
(("1" (case "-(vo-nvi) = nvi-vo" )
(("1" (replace -1)
(("1" (hide -1)
(("1" (assert )
(("1" (name "AA" "vo-vi" )
(("1"
(name "BB" "nvo-vi" )
(("1"
(name "CC" "vo-nvi" )
(("1"
(case-replace "nvo-nvi = CC+BB-AA" )
(("1"
(hide -1)
(("1"
(replace -1)
(("1"
(replace -2)
(("1"
(replace -3)
(("1"
(expand "sum_closed?" )
(("1"
(inst
-
"s"
"AA"
"CC+BB-AA"
"AA" )
(("1"
(assert )
(("1"
(expand
"sum_independent?" )
(("1"
(inst
-
"AA"
"s"
"CC"
"BB" )
(("1"
(assert )
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(hide-all-but (-1 -2 -3 1))
(("2" (grind) nil nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2" (hide-all-but 1) (("2" (grind) nil nil ))
nil ))
nil ))
nil ))
nil )
("2" (hide-all-but 1) (("2" (grind) nil nil )) nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
((real nonempty-type-from-decl nil reals nil )
(Vect3 type-eq-decl nil vectors_3D_def "vectors/" )
(Vector type-eq-decl nil vectors_3D "vectors/" )
(- const-decl "Vector" vectors_3D "vectors/" )
(real_minus_real_is_real application-judgement "real" reals nil )
(real_plus_real_is_real application-judgement "real" reals nil )
(sum_closed? const-decl "bool" predicate_coordination nil )
(add_cancel2 formula-decl nil vectors_3D "vectors/" )
(sum_independent? const-decl "bool" predicate_coordination nil )
(+ const-decl "Vector" vectors_3D "vectors/" )
(minus_real_is_real application-judgement "real" reals nil )
(boolean nonempty-type-decl nil booleans nil )
(= const-decl "[T, T -> boolean]" equalities nil )
(- const-decl "Vector" vectors_3D "vectors/" )
(crit_symmetric? const-decl "bool" predicate_coordination nil )
(coordinated? const-decl "bool" predicate_coordination nil ))
nil ))
(coordinated_sum_indep 0
(coordinated_sum_indep-1 nil 3489507292
("" (skeep)
(("" (label "Clem" -4)
(("" (hide "Clem" )
(("" (label "Cindep" -4)
(("" (hide "Cindep" )
(("" (label "symmetric" -1)
(("" (label "length" -2)
(("" (label "coord" -3)
(("" (label "sumindep" 1)
(("" (expand "sum_independent?" )
(("" (skeep)
(("" (label "vnv" -4)
(("" (label "vnw" -5)
(("" (label "Cv" -6)
((""
(hide "Cv" )
((""
(label "Cnvnw" -6)
((""
(case "v /= zero" )
(("1"
(flatten)
(("1"
(reveal "Clem" )
(("1"
(expand "open?" )
(("1"
(inst - "s" "v" "nv+nw" )
(("1"
(assert )
(("1"
(skosimp*)
(("1"
(case "norm(v) > 0" )
(("1"
(case
"(epsilon!1/(2*norm(v))) > 0" )
(("1"
(name
"const1"
"(epsilon!1/(2*norm(v)))" )
(("1"
(label
"constname"
-1)
(("1"
(replace -1)
(("1"
(label
"const1pos"
-2)
(("1"
(hide
"const1pos" )
(("1"
(inst
"Clem"
"-const1*v" )
(("1"
(split
"Clem" )
(("1"
(copy
"length" )
(("1"
(hide
"length" )
(("1"
(copy
-1)
(("1"
(expand
"crit_independent_of_length?" )
(("1"
(inst
-1
"v"
"s"
"nv"
"const1" )
(("1"
(inst
-2
"v"
"s"
"nw"
"const1" )
(("1"
(assert )
(("1"
(label
"cvnv"
-1)
(("1"
(label
"cvnw"
-2)
(("1"
(name
"newv"
"const1*v" )
(("1"
(label
"newvname"
-1)
(("1"
(name
"vo1"
"vectors_3D.zero" )
(("1"
(label
"voname"
-1)
(("1"
(name
"vi1"
"-newv" )
(("1"
(label
"viname"
-1)
(("1"
(name
"nvo1"
"nv-newv" )
(("1"
(label
"nvoname"
-1)
(("1"
(name
"nvi1"
"-nw" )
(("1"
(label
"nviname"
-1)
(("1"
(case
"nvo1 - vi1 = nv" )
(("1"
(label
"nvovi"
-1)
(("1"
(case
"vo1-nvi1 = nw" )
(("1"
(label
"vonvi"
-1)
(("1"
(case
"vo1-vi1 = newv" )
(("1"
(label
"vovi"
-1)
(("1"
(case
"nvo1-nvi1 = nv+nw-newv" )
(("1"
(label
"nvonvi"
-1)
(("1"
(replace
"newvname" )
(("1"
(expand
"coordinated?" )
(("1"
(inst
-
"vo1"
"vi1"
"nvo1"
"nvi1"
"s" )
(("1"
(assert )
(("1"
(expand
"crit_symmetric?" )
(("1"
(inst
-
"newv"
"s"
"vo1-nvi1" )
(("1"
(case
"-(vo1-nvi1) = nvi1-vo1" )
(("1"
(case
"vi1-vo1 = -newv" )
(("1"
(assert )
(("1"
(hide
-1)
(("1"
(hide
-1)
(("1"
(case
"nvo1-nvi1 = nv + nw + -const1 * v" )
(("1"
(assert )
(("1"
(replace
"vovi" )
(("1"
(replace
"newvname"
:dir
rl)
(("1"
(replace
-1
:dir
rl)
(("1"
(reveal
"Cindep" )
(("1"
(reveal
"Cv" )
(("1"
(expand
"independent_of_length?" )
(("1"
(inst-cp
-
"s"
"v"
"v"
"const1"
"const1" )
(("1"
(assert )
(("1"
(inst
-
"s"
"v"
"nvo1-nvi1"
"1"
"const1" )
(("1"
(assert )
nil
nil )
("2"
(reveal
"const1pos" )
(("2"
(assert )
nil
nil ))
nil ))
nil ))
nil )
("2"
(reveal
"const1pos" )
(("2"
(assert )
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(replace
"nvonvi" )
(("2"
(replace
"newvname"
:dir
rl)
(("2"
(hide-all-but
1)
(("2"
(grind)
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(replace
"vovi" )
(("2"
(hide-all-but
("vovi"
1))
(("2"
(grind)
nil
nil ))
nil ))
nil ))
nil )
("2"
(hide-all-but
1)
(("2"
(grind)
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(replace
"nvoname"
:dir
rl)
(("2"
(replace
"nviname"
:dir
rl)
(("2"
(hide-all-but
1)
(("2"
(grind)
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(replace
"voname"
:dir
rl)
(("2"
(replace
"viname"
:dir
rl)
(("2"
(assert )
nil
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(replace
"voname"
:dir
rl)
(("2"
(replace
"nviname"
:dir
rl)
(("2"
(assert )
nil
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(replace
"nvoname"
:dir
rl)
(("2"
(replace
"viname"
:dir
rl)
(("2"
(hide-all-but
1)
(("2"
(grind)
(("2"
(decompose-equality)
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(reveal
"const1pos" )
(("2"
(assert )
nil
nil ))
nil ))
nil )
("2"
(reveal
"const1pos" )
(("2"
(assert )
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(rewrite
"norm_scal" )
(("2"
(reveal
"const1pos" )
(("2"
(expand
"abs" )
(("2"
(assert )
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(cross-mult 1)
(("2"
(assert )
nil
nil ))
nil )
("3"
(assert )
nil
nil ))
nil )
("2"
(lemma
"vectors_3D.norm_eq_0" )
(("2"
(inst - "v" )
(("2"
(assert )
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(reveal "Cv" )
(("2"
(flatten)
(("2"
(replace -2)
(("2"
(expand "crit_symmetric?" )
(("2"
(inst - "zero " "s" "nv" )
(("2"
(assert )
(("2"
(expand
"coordinated?" )
(("2"
(inst
-
"zero"
"zero"
"nw"
"-nv"
"s" )
(("2"
(assert )
(("2"
(case
"nw - - nv = nv + nw" )
(("1"
(assert )
nil
nil )
("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 ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
((sum_independent? const-decl "bool" predicate_coordination nil )
(sub_zero_right formula-decl nil vectors_3D "vectors/" )
(neg_zero formula-decl nil vectors_3D "vectors/" )
(open? const-decl "bool" predicate_coordination nil )
(norm const-decl "nnreal" vectors_3D "vectors/" )
(nnreal type-eq-decl nil real_types nil )
(>= const-decl "bool" reals nil ) (> const-decl "bool" reals nil )
(bool nonempty-type-eq-decl nil booleans 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 )
(div_mult_pos_gt1 formula-decl nil extra_real_props nil )
(v skolem-const-decl "Vect3" predicate_coordination nil )
(= const-decl "[T, T -> boolean]" equalities nil )
(nzreal nonempty-type-eq-decl nil reals nil )
(crit_independent_of_length? const-decl "bool"
predicate_coordination nil )
(- const-decl "Vector" vectors_3D "vectors/" )
(- const-decl "Vector" vectors_3D "vectors/" )
(crit_symmetric? const-decl "bool" predicate_coordination nil )
(minus_real_is_real application-judgement "real" reals nil )
(real_plus_real_is_real application-judgement "real" reals nil )
(real_times_real_is_real application-judgement "real" reals nil )
(real_minus_real_is_real application-judgement "real" reals nil )
(independent_of_length? const-decl "bool" predicate_coordination
nil )
(scal_1 formula-decl nil vectors_3D "vectors/" )
(coordinated? const-decl "bool" predicate_coordination nil )
(sub_zero_left formula-decl nil vectors_3D "vectors/" )
(neg_neg formula-decl nil vectors_3D "vectors/" )
(- const-decl "[numfield, numfield -> numfield]" number_fields nil )
(const1 skolem-const-decl "nzreal" predicate_coordination nil )
(AND const-decl "[bool, bool -> bool]" booleans 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 )
(real_lt_is_strict_total_order name-judgement
"(strict_total_order?[real])" real_props nil )
(abs const-decl "{n: nonneg_real | n >= m AND n >= -m}" real_defs
nil )
(nonzero_abs_is_pos application-judgement "{y: posreal | y >= x}"
real_defs nil )
(norm_scal formula-decl nil vectors_3D "vectors/" )
(* const-decl "Vector" vectors_3D "vectors/" )
(- const-decl "[numfield -> numfield]" number_fields nil )
(minus_nzreal_is_nzreal application-judgement "nzreal" real_types
nil )
(nnreal_times_nnreal_is_nnreal application-judgement "nnreal"
real_types nil )
(nzreal_div_nzreal_is_nzreal application-judgement "nzreal"
real_types nil )
(numfield nonempty-type-eq-decl nil number_fields nil )
(nznum nonempty-type-eq-decl nil number_fields nil )
(/ const-decl "[numfield, nznum -> numfield]" number_fields nil )
(nonneg_real nonempty-type-eq-decl nil real_types nil )
(posreal nonempty-type-eq-decl nil real_types nil )
(* const-decl "[numfield, numfield -> numfield]" number_fields nil )
(norm_eq_0 formula-decl nil vectors_3D "vectors/" )
(+ const-decl "Vector" vectors_3D "vectors/" )
(real nonempty-type-from-decl nil reals nil )
(Vect3 type-eq-decl nil vectors_3D_def "vectors/" )
(boolean nonempty-type-decl nil booleans nil )
(/= const-decl "boolean" notequal nil )
(Vector type-eq-decl nil vectors_3D "vectors/" )
(zero const-decl "Vector" vectors_3D "vectors/" ))
nil ))
(sum_indep_coordinated_antisym 0
(sum_indep_coordinated_antisym-1 nil 3489507336
("" (skeep)
(("" (ground)
(("" (expand "coordinated?" )
(("" (skeep)
(("" (expand "crit_antisymmetric?" )
(("" (inst - "vo-vi" "s" "vo-nvi" "eps" )
(("" (case "-(vo-vi) = vi-vo" )
(("1" (replace -1)
(("1" (hide -1)
(("1" (case "-(vo-nvi) = nvi-vo" )
(("1" (replace -1)
(("1" (hide -1)
(("1" (assert )
(("1" (name "AA" "vo-vi" )
(("1"
(name "BB" "nvo-vi" )
(("1"
(name "CC" "vo-nvi" )
(("1"
(case-replace "nvo-nvi = CC+BB-AA" )
(("1"
(hide -1)
(("1"
(replace -1)
(("1"
(replace -2)
(("1"
(replace -3)
(("1"
(expand "sum_closed?" )
(("1"
(inst
-
"s"
"AA"
"CC+BB-AA"
"AA" )
(("1"
(assert )
(("1"
(expand
"sum_independent?" )
(("1"
(inst
-
"AA"
"s"
"CC"
"BB" )
(("1"
(assert )
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(hide-all-but (-1 -2 -3 1))
(("2" (grind) nil nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2" (hide-all-but 1) (("2" (grind) nil nil ))
nil ))
nil ))
nil ))
nil )
("2" (hide-all-but 1) (("2" (grind) nil nil )) nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
((sign_neg_clos application-judgement "Sign" sign "reals/" )
(real nonempty-type-from-decl nil reals nil )
(Vect3 type-eq-decl nil vectors_3D_def "vectors/" )
(Vector type-eq-decl nil vectors_3D "vectors/" )
(- const-decl "Vector" vectors_3D "vectors/" )
(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 )
(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_minus_real_is_real application-judgement "real" reals nil )
(real_plus_real_is_real application-judgement "real" reals nil )
(sum_closed? const-decl "bool" predicate_coordination nil )
(add_cancel2 formula-decl nil vectors_3D "vectors/" )
(sum_independent? const-decl "bool" predicate_coordination nil )
(+ const-decl "Vector" vectors_3D "vectors/" )
(minus_real_is_real application-judgement "real" reals nil )
(- const-decl "Vector" vectors_3D "vectors/" )
(crit_antisymmetric? const-decl "bool" predicate_coordination nil )
(coordinated? const-decl "bool" predicate_coordination nil ))
nil ))
(coordinated_antisym_sum_indep 0
(coordinated_antisym_sum_indep-1 nil 3489507368
("" (skeep)
(("" (label "Clem" -4)
(("" (hide "Clem" )
(("" (label "Cindep" -4)
(("" (hide "Cindep" )
(("" (label "symmetric" -1)
(("" (label "length" -2)
(("" (label "coord" -3)
(("" (label "sumindep" 1)
(("" (expand "sum_independent?" )
(("" (skeep)
(("" (label "vnv" -4)
(("" (label "vnw" -5)
(("" (label "Cv" -6)
((""
(hide "Cv" )
((""
(label "Cnvnw" -6)
((""
(case "v /= zero" )
(("1"
(flatten)
(("1"
(reveal "Clem" )
(("1"
(expand "open?" )
(("1"
(inst - "s" "v" "nv+nw" )
(("1"
(assert )
(("1"
(skosimp*)
(("1"
(case "norm(v) > 0" )
(("1"
(case
"(epsilon!1/(2*norm(v))) > 0" )
(("1"
(name
"const1"
"(epsilon!1/(2*norm(v)))" )
(("1"
(label
"constname"
-1)
(("1"
(replace -1)
(("1"
(label
"const1pos"
-2)
(("1"
(hide
"const1pos" )
(("1"
(inst
"Clem"
"-const1*v" )
(("1"
(split
"Clem" )
(("1"
(expand
"crit_independent_of_length?" )
(("1"
(copy
"length" )
(("1"
(hide
"length" )
(("1"
(copy
-1)
(("1"
(inst
-1
"v"
"s"
"nv"
"const1" )
(("1"
(inst
-2
"v"
"s"
"nw"
"const1" )
(("1"
(assert )
(("1"
(label
"cvnv"
-1)
(("1"
(label
"cvnw"
-2)
(("1"
(name
"newv"
"const1*v" )
(("1"
(label
"newvname"
-1)
(("1"
(name
"vo1"
"vectors_3D.zero" )
(("1"
(label
"voname"
-1)
(("1"
(name
"vi1"
"-newv" )
(("1"
(label
"viname"
-1)
(("1"
(name
"nvo1"
"nv-newv" )
(("1"
(label
"nvoname"
-1)
(("1"
(name
"nvi1"
"-nw" )
(("1"
(label
"nviname"
-1)
(("1"
(case
"nvo1 - vi1 = nv" )
(("1"
(label
"nvovi"
-1)
(("1"
(case
"vo1-nvi1 = nw" )
(("1"
(label
"vonvi"
-1)
(("1"
(case
"vo1-vi1 = newv" )
(("1"
(label
"vovi"
-1)
(("1"
(case
"nvo1-nvi1 = nv+nw-newv" )
(("1"
(label
"nvonvi"
-1)
(("1"
(expand
"coordinated?" )
(("1"
(replace
"newvname" )
(("1"
(inst
-
"vo1"
"vi1"
"nvo1"
"nvi1"
"s" )
(("1"
(assert )
(("1"
(expand
"crit_antisymmetric?" )
(("1"
(inst
-
"newv"
"s"
"vo1-nvi1"
"eps" )
(("1"
(case
"-(vo1-nvi1) = nvi1-vo1" )
(("1"
(case
"vi1-vo1 = -newv" )
(("1"
(assert )
(("1"
(hide
-1)
(("1"
(hide
-1)
(("1"
(case
"nvo1-nvi1 = nv + nw + -const1 * v" )
(("1"
(assert )
(("1"
(replace
"vovi" )
(("1"
(replace
"newvname"
:dir
rl)
(("1"
(replace
-1
:dir
rl)
(("1"
(reveal
"Cindep" )
(("1"
(reveal
"Cv" )
(("1"
(expand
"independent_of_length?" )
(("1"
(inst-cp
-
"s"
"v"
"v"
"const1"
"const1" )
(("1"
(assert )
(("1"
(inst
-
"s"
"v"
"nvo1-nvi1"
"1"
"const1" )
(("1"
(assert )
nil
nil )
("2"
(reveal
"const1pos" )
(("2"
(assert )
nil
nil ))
nil ))
nil ))
nil )
("2"
(reveal
"const1pos" )
(("2"
(assert )
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(replace
"nvonvi" )
(("2"
(replace
"newvname"
:dir
rl)
(("2"
(hide-all-but
1)
(("2"
(grind)
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(replace
"vovi" )
(("2"
(hide-all-but
("vovi"
1))
(("2"
(grind)
nil
nil ))
nil ))
nil ))
nil )
("2"
(hide-all-but
1)
(("2"
(grind)
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(replace
"nvoname"
:dir
rl)
(("2"
(replace
"nviname"
:dir
rl)
(("2"
(hide-all-but
1)
(("2"
(grind)
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(replace
"voname"
:dir
rl)
(("2"
(replace
"viname"
:dir
rl)
(("2"
(assert )
nil
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(replace
"voname"
:dir
rl)
(("2"
(replace
"nviname"
:dir
rl)
(("2"
(assert )
nil
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(replace
"nvoname"
:dir
rl)
(("2"
(replace
"viname"
:dir
rl)
(("2"
(hide-all-but
1)
(("2"
(grind)
(("2"
(decompose-equality)
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(reveal
"const1pos" )
(("2"
(assert )
nil
nil ))
nil ))
nil )
("2"
(reveal
"const1pos" )
(("2"
(assert )
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(rewrite
"norm_scal" )
(("2"
(reveal
"const1pos" )
(("2"
(expand
"abs" )
(("2"
(assert )
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(cross-mult 1)
(("2"
(assert )
nil
nil ))
nil )
("3"
(assert )
nil
nil ))
nil )
("2"
(lemma
"vectors_3D.norm_eq_0" )
(("2"
(inst - "v" )
(("2"
(assert )
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(reveal "Cv" )
(("2"
(flatten)
(("2"
(replace -2)
(("2"
(expand
"crit_antisymmetric?" )
(("2"
(inst
-
"zero "
"s"
"nv"
"eps" )
(("2"
(assert )
(("2"
(expand
"coordinated?" )
(("2"
(inst
-
"zero"
"zero"
"nw"
"-nv"
"s" )
(("2"
(assert )
(("2"
(case
"nw - - nv = nv + nw" )
(("1"
(assert )
nil
nil )
("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 ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
((sum_independent? const-decl "bool" predicate_coordination nil )
(sub_zero_right formula-decl nil vectors_3D "vectors/" )
(neg_zero formula-decl nil vectors_3D "vectors/" )
(open? const-decl "bool" predicate_coordination nil )
(sign_neg_clos application-judgement "Sign" sign "reals/" )
(norm const-decl "nnreal" vectors_3D "vectors/" )
(nnreal type-eq-decl nil real_types nil )
(>= const-decl "bool" reals nil ) (> const-decl "bool" reals nil )
(bool nonempty-type-eq-decl nil booleans 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 )
(div_mult_pos_gt1 formula-decl nil extra_real_props nil )
(v skolem-const-decl "Vect3" predicate_coordination nil )
(= const-decl "[T, T -> boolean]" equalities nil )
(nzreal nonempty-type-eq-decl nil reals nil )
(- const-decl "Vector" vectors_3D "vectors/" )
(- const-decl "Vector" vectors_3D "vectors/" )
(coordinated? const-decl "bool" predicate_coordination nil )
(crit_antisymmetric? const-decl "bool" predicate_coordination nil )
(minus_real_is_real application-judgement "real" reals nil )
(real_plus_real_is_real application-judgement "real" reals nil )
(real_times_real_is_real application-judgement "real" reals nil )
(real_minus_real_is_real application-judgement "real" reals nil )
(independent_of_length? const-decl "bool" predicate_coordination
nil )
(scal_1 formula-decl nil vectors_3D "vectors/" )
(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 )
(nzint nonempty-type-eq-decl nil integers nil )
(OR const-decl "[bool, bool -> bool]" booleans nil )
(Sign type-eq-decl nil sign "reals/" )
(sub_zero_left formula-decl nil vectors_3D "vectors/" )
(neg_neg formula-decl nil vectors_3D "vectors/" )
(- const-decl "[numfield, numfield -> numfield]" number_fields nil )
(const1 skolem-const-decl "nzreal" predicate_coordination nil )
(AND const-decl "[bool, bool -> bool]" booleans 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 )
(crit_independent_of_length? const-decl "bool"
predicate_coordination nil )
(real_lt_is_strict_total_order name-judgement
"(strict_total_order?[real])" real_props nil )
(abs const-decl "{n: nonneg_real | n >= m AND n >= -m}" real_defs
nil )
(nonzero_abs_is_pos application-judgement "{y: posreal | y >= x}"
real_defs nil )
(norm_scal formula-decl nil vectors_3D "vectors/" )
(* const-decl "Vector" vectors_3D "vectors/" )
(- const-decl "[numfield -> numfield]" number_fields nil )
(minus_nzreal_is_nzreal application-judgement "nzreal" real_types
nil )
(* const-decl "[numfield, numfield -> numfield]" number_fields nil )
(posreal nonempty-type-eq-decl nil real_types nil )
(nonneg_real nonempty-type-eq-decl nil real_types 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 )
(nzreal_div_nzreal_is_nzreal application-judgement "nzreal"
real_types nil )
(nnreal_times_nnreal_is_nnreal application-judgement "nnreal"
real_types nil )
(norm_eq_0 formula-decl nil vectors_3D "vectors/" )
(+ const-decl "Vector" vectors_3D "vectors/" )
(real nonempty-type-from-decl nil reals nil )
(Vect3 type-eq-decl nil vectors_3D_def "vectors/" )
(boolean nonempty-type-decl nil booleans nil )
(/= const-decl "boolean" notequal nil )
(Vector type-eq-decl nil vectors_3D "vectors/" )
(zero const-decl "Vector" vectors_3D "vectors/" ))
nil ))
(deriv_0 0
(deriv_0-1 nil 3489144195
("" (skeep)
(("" (expand "deriv" )
(("" (decompose-equality) (("" (decompose-equality) nil nil ))
nil ))
nil ))
nil )
((deriv const-decl "Criter" predicate_coordination nil )
(real nonempty-type-from-decl nil reals nil )
(Vect3 type-eq-decl nil vectors_3D_def "vectors/" )
(boolean nonempty-type-decl nil booleans nil )
(* const-decl "Vector" vectors_3D "vectors/" )
(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 )
(- const-decl "Vector" vectors_3D "vectors/" )
(Vector type-eq-decl nil vectors_3D "vectors/" )
(Criter type-eq-decl nil predicate_coordination nil )
(set type-eq-decl nil sets nil )
(bool nonempty-type-eq-decl nil booleans nil )
(sub_zero_right formula-decl nil vectors_3D "vectors/" )
(scal_0 formula-decl nil vectors_3D "vectors/" ))
shostak))
(deriv_subset 0
(deriv_subset-1 nil 3488897466
("" (skeep)
(("" (expand "subset?" )
(("" (skeep)
(("" (expand "member" )
(("" (expand "deriv" )
(("" (expand "crit_sum_closed?" )
(("" (inst - "s" "v" "x" "-l*v" ) (("" (grind) nil nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
((subset? const-decl "bool" sets nil )
(member const-decl "bool" sets nil )
(crit_sum_closed? const-decl "bool" predicate_coordination nil )
(real_times_real_is_real application-judgement "real" reals nil )
(real_plus_real_is_real application-judgement "real" reals nil )
(real_minus_real_is_real application-judgement "real" reals nil )
(- const-decl "Vector" vectors_3D "vectors/" )
(+ const-decl "Vector" vectors_3D "vectors/" )
(- const-decl "[numfield -> numfield]" number_fields nil )
(numfield nonempty-type-eq-decl nil number_fields nil )
(* const-decl "Vector" vectors_3D "vectors/" )
(Vector type-eq-decl nil vectors_3D "vectors/" )
(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 )
(Vect3 type-eq-decl nil vectors_3D_def "vectors/" )
(real nonempty-type-from-decl nil reals nil )
(minus_real_is_real application-judgement "real" reals nil )
(deriv const-decl "Criter" predicate_coordination nil ))
nil ))
(deriv_coordinated 0
(deriv_coordinated-1 nil 3489507437
("" (skeep)
(("" (expand "coordinated?" )
(("" (skeep)
(("" (expand "deriv" )
(("" (assert )
(("" (expand "crit_symmetric?" )
(("" (inst - "vo-vi" "s" "vo-nvi-l2*(vo-vi)" )
((""
(case "-(vo - nvi - l2 * (vo - vi)) /= nvi - vo - l2 * (vi - vo)" )
(("1" (hide-all-but -1) (("1" (grind) nil nil )) nil )
("2" (flatten)
(("2" (assert )
(("2" (replace -1)
(("2" (case "-(vo-vi) = vi-vo" )
(("1" (assert )
(("1" (hide -4)
(("1"
(expand "sum_independent?" )
(("1"
(inst
-
"vo-vi"
"s"
"nvo - vi - l1 * (vo - vi)"
"vo - nvi - l2 * (vo - vi)" )
(("1"
(assert )
(("1"
(case
"nvo - vi - l1 * (vo - vi) + (vo - nvi - l2 * (vo - vi)) /= (nvo-nvi) + (1-(l1+l2))*(vo-vi)" )
(("1"
(flatten)
(("1"
(hide-all-but 1)
(("1" (grind) nil nil ))
nil ))
nil )
("2"
(flatten)
(("2"
(replace -1)
(("2"
(hide -1)
(("2"
(replace -3)
(("2" (assert ) nil nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2" (hide-all-but 1)
(("2" (grind) nil nil )) nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
((coordinated? const-decl "bool" predicate_coordination nil )
(deriv const-decl "Criter" predicate_coordination nil )
(crit_symmetric? const-decl "bool" predicate_coordination nil )
(/= const-decl "boolean" notequal nil )
(- const-decl "Vector" vectors_3D "vectors/" )
(minus_real_is_real application-judgement "real" reals nil )
(real_times_real_is_real application-judgement "real" reals nil )
(real_minus_real_is_real application-judgement "real" reals nil )
(= const-decl "[T, T -> boolean]" equalities nil )
(+ const-decl "Vector" vectors_3D "vectors/" )
(numfield nonempty-type-eq-decl nil number_fields nil )
(- const-decl "[numfield, numfield -> numfield]" number_fields nil )
(+ const-decl "[numfield, numfield -> numfield]" number_fields nil )
(odd_minus_odd_is_even application-judgement "even_int" integers
nil )
(add_zero_right formula-decl nil vectors_3D "vectors/" )
(scal_0 formula-decl nil vectors_3D "vectors/" )
(sum_independent? const-decl "bool" predicate_coordination nil )
(* const-decl "Vector" vectors_3D "vectors/" )
(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 )
(- const-decl "Vector" vectors_3D "vectors/" )
(Vector type-eq-decl nil vectors_3D "vectors/" )
(Vect3 type-eq-decl nil vectors_3D_def "vectors/" )
(real nonempty-type-from-decl nil reals nil )
(real_plus_real_is_real application-judgement "real" reals nil ))
nil ))
(deriv_coordinated_1 0
(deriv_coordinated_1-2 nil 3489507523
("" (skeep)
(("" (lemma "deriv_coordinated" )
(("" (inst - "C" "Crit" "1" "0" )
(("" (assert ) (("" (rewrite "deriv_0" ) nil nil )) nil )) nil ))
nil ))
nil )
((deriv_coordinated formula-decl nil predicate_coordination nil )
(odd_plus_even_is_odd application-judgement "odd_int" integers nil )
(posint_plus_nnint_is_posint application-judgement "posint"
integers nil )
(deriv_0 formula-decl nil predicate_coordination 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 )
(Criter type-eq-decl nil predicate_coordination nil )
(Vector_Predicate nonempty-type-eq-decl nil predicate_coordination
nil )
(set type-eq-decl nil sets nil )
(bool nonempty-type-eq-decl nil booleans nil )
(boolean nonempty-type-decl nil booleans nil )
(Vect3 type-eq-decl nil vectors_3D_def "vectors/" )
(real nonempty-type-from-decl nil reals nil ))
nil )
(deriv_coordinated_1-1 nil 3489507460
(";;; Proof deriv_coordinated_oriented_1-1 for formula predicate_coordination.deriv_coordinated_oriented_1"
(skeep)
((";;; Proof deriv_coordinated_oriented_1-1 for formula predicate_coordination.deriv_coordinated_oriented_1"
(lemma "deriv_coordinated_oriented" )
((";;; Proof deriv_coordinated_oriented_1-1 for formula predicate_coordination.deriv_coordinated_oriented_1"
(inst - "C" "Crit" "1" "0" )
((";;; Proof deriv_coordinated_oriented_1-1 for formula predicate_coordination.deriv_coordinated_oriented_1"
(assert )
((";;; Proof deriv_coordinated_oriented_1-1 for formula predicate_coordination.deriv_coordinated_oriented_1"
(rewrite "deriv_0" ) nil ))))))))
";;; developed with shostak decision procedures")
nil nil ))
(Comb_coordinated 0
(Comb_coordinated-1 nil 3488897293
("" (skeep)
(("" (expand "coordinated?" +)
(("" (skeep)
(("" (expand "Comb" )
(("" (ground)
(("1" (lemma "sum_indep_coordinated" )
(("1" (inst - "C" "Crit1" )
(("1" (assert )
(("1" (expand "coordinated?" )
(("1" (inst - "vo" "vi" "nvo" "nvi" "s" )
(("1" (assert ) nil nil )) nil ))
nil ))
nil ))
nil ))
nil )
("2" (lemma "deriv_coordinated_1" )
(("2" (inst - "C" "Crit1" )
(("2" (split -)
(("1" (expand "coordinated?" )
(("1" (inst - "vi" "vo" "nvi" "nvo" "-s" )
(("1" (assert )
(("1" (expand "symmetric?" )
(("1" (inst-cp - "s" "vo-vi" "vo-vi" )
(("1" (inst - "s" "vo-vi" "nvo-nvi" )
(("1"
(assert )
(("1"
(case
"-(vo-vi) = vi-vo AND -(nvo-nvi) = nvi-nvo" )
(("1"
(flatten)
(("1" (assert ) nil nil ))
nil )
("2"
(hide-all-but 1)
(("2" (grind) nil nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2" (propax) nil nil ) ("3" (propax) nil nil ))
nil ))
nil ))
nil )
("3" (lemma "deriv_coordinated_1" )
(("3" (inst - "C" "Crit1" )
(("3" (assert )
(("3" (expand "coordinated?" )
(("3" (inst - "vo" "vi" "nvo" "nvi" "s" )
(("3" (assert ) nil nil )) nil ))
nil ))
nil ))
nil ))
nil )
("4" (expand "coordinated?" )
(("4" (inst - "vo" "vi" "nvo" "nvi" "s" )
(("4" (assert ) nil nil )) nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
((coordinated? const-decl "bool" predicate_coordination nil )
(Comb const-decl "Criter" predicate_coordination nil )
(deriv_coordinated_1 formula-decl nil predicate_coordination nil )
(- const-decl "Vector" vectors_3D "vectors/" )
(Vector type-eq-decl nil vectors_3D "vectors/" )
(symmetric? const-decl "bool" predicate_coordination nil )
(AND const-decl "[bool, bool -> bool]" booleans nil )
(= const-decl "[T, T -> boolean]" equalities nil )
(real_minus_real_is_real application-judgement "real" reals nil )
(minus_real_is_real application-judgement "real" reals nil )
(- const-decl "Vector" vectors_3D "vectors/" )
(neg_neg formula-decl nil vectors_3D "vectors/" )
(sum_indep_coordinated formula-decl nil predicate_coordination nil )
(Criter type-eq-decl nil predicate_coordination nil )
(Vector_Predicate nonempty-type-eq-decl nil predicate_coordination
nil )
(set type-eq-decl nil sets nil )
(bool nonempty-type-eq-decl nil booleans nil )
(boolean nonempty-type-decl nil booleans nil )
(Vect3 type-eq-decl nil vectors_3D_def "vectors/" )
(real nonempty-type-from-decl nil reals nil ))
nil )))
Messung V0.5 in Prozent C=100 H=100 G=100
¤ Diese beiden folgenden Angebotsgruppen bietet das Unternehmen0.72Angebot
(Wie Sie bei der Firma Beratungs- und Dienstleistungen beauftragen können 2026-04-27)
¤
*Eine klare Vorstellung vom Zielzustand