| products/Sources/formale Sprachen/PVS/vectors/ |
|
Quellcode-Bibliothek© Kompilation durch diese Firma[Weder Korrektheit noch Funktionsfähigkeit der Software werden zugesichert.]Datei: add.pvs Sprache: LispOriginal von: PVS© |
|
||||||
|
(lines_2D
(line_from_TCC1 0 (line_from_TCC1-1 nil 3306082676 ("" (skosimp* :preds? t) (("" (expand "vec_from") (("" (expand "nz_vector?") (("" (flatten) (("" (rewrite "sub_eq_zero") nil nil)) nil)) nil)) nil)) nil) ((sub_eq_zero formula-decl nil vectors_2D nil) (Vector type-eq-decl nil vectors_2D nil) (boolean nonempty-type-decl nil booleans nil) (bool nonempty-type-eq-decl nil booleans nil) (NOT const-decl "[bool -> bool]" booleans nil) (real nonempty-type-from-decl nil reals nil) (Vect2 type-eq-decl nil vectors_2D_def nil) (/= const-decl "boolean" notequal nil)) nil)) (vec_from_eq_args 0 (vec_from_eq_args-1 nil 3255275743 ("" (skosimp*) (("" (expand "vec_from") (("" (grind) (("" (apply-extensionality 1 :hide? t) nil nil)) nil)) nil)) nil) ((- const-decl "Vector" vectors_2D nil) (real_minus_real_is_real application-judgement "real" reals nil) (Vect2 type-eq-decl nil vectors_2D_def nil) (real nonempty-type-from-decl nil reals nil) (comp_zero_x formula-decl nil vectors_2D nil) (comp_zero_y formula-decl nil vectors_2D nil) (zero const-decl "Vector" vectors_2D nil) (Vector type-eq-decl nil vectors_2D nil)) nil)) (vel_from_tm_TCC1 0 (vel_from_tm_TCC1-1 nil 3255275743 ("" (inst + "(LAMBDA p1,p2,t: (1/t)*(p2-p1))") (("" (skosimp*) (("" (apply-extensionality 1 :hide? t) (("1" (grind) nil nil) ("2" (grind) nil nil)) nil)) nil)) nil) ((real nonempty-type-from-decl nil reals nil) (Vect2 type-eq-decl nil vectors_2D_def nil) (- const-decl "Vector" vectors_2D 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 nonempty-type-eq-decl nil reals nil) (/= const-decl "boolean" notequal nil) (* const-decl "Vector" vectors_2D 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) (+ const-decl "Vector" vectors_2D nil) (Vector type-eq-decl nil vectors_2D nil) (nzreal_div_nzreal_is_nzreal application-judgement "nzreal" real_types nil) (scal_assoc formula-decl nil vectors_2D nil) (scal_1 formula-decl nil vectors_2D nil) (nzreal_times_nzreal_is_nzreal application-judgement "nzreal" real_types nil) (real_minus_real_is_real application-judgement "real" reals nil) (real_plus_real_is_real application-judgement "real" reals nil)) nil)) (line_from_tm_TCC1 0 (line_from_tm_TCC1-3 nil 3440254964 ("" (skosimp* :preds? t) (("" (expand "vel_from_tm") (("" (lemma "scal_eq_zero") (("" (inst?) (("" (assert) (("" (rewrite "sub_eq_zero") nil nil)) nil)) nil)) nil)) nil)) nil) ((vel_from_tm const-decl "{v | p2 = p1 + t * v}" lines_2D 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) (Vector type-eq-decl nil vectors_2D nil) (- const-decl "Vector" vectors_2D nil) (sub_eq_zero formula-decl nil vectors_2D nil) (scal_eq_zero formula-decl nil vectors_2D nil) (boolean nonempty-type-decl nil booleans nil) (bool nonempty-type-eq-decl nil booleans nil) (NOT const-decl "[bool -> bool]" booleans nil) (real nonempty-type-from-decl nil reals nil) (Vect2 type-eq-decl nil vectors_2D_def nil) (/= const-decl "boolean" notequal 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) (nzreal nonempty-type-eq-decl nil reals nil)) nil) (line_from_tm_TCC1-2 nil 3440246219 ("" (skosimp* :preds? t) (("" (expand "vel_from_tm") (("" (lemma "scal_eq_0") (("" (inst?) (("" (assert) (("" (rewrite "sub_eq_zero") nil nil)) nil)) nil)) nil)) nil)) nil) ((Vect2 type-eq-decl nil vectors_2D_def nil) (sub_eq_zero formula-decl nil vectors_2D nil) (Vector type-eq-decl nil vectors_2D nil)) nil) (line_from_tm_TCC1-1 nil 3306082676 ("" (skosimp* :preds? t) (("" (expand "vel_from_tm") (("" (lemma "scal_eq_zero") (("" (inst?) (("" (assert) (("" (rewrite "sub_eq_zero") nil nil)) nil)) nil)) nil)) nil)) nil) ((Vector type-eq-decl nil vectors_2D nil) (sub_eq_zero formula-decl nil vectors_2D nil) (Vect2 type-eq-decl nil vectors_2D_def nil)) nil)) (vel_from_tm_nz 0 (vel_from_tm_nz-1 nil 3255275743 ("" (skosimp*) (("" (typepred "vel_from_tm(p1!1, p2!1, t!1)") (("" (replace -1 +) (("" (hide -1) (("" (replace -1) (("" (hide -1) (("" (apply-extensionality 1 :hide? t) (("1" (grind) nil nil) ("2" (grind) nil nil)) nil)) nil)) nil)) nil)) nil)) nil)) nil) ((vel_from_tm const-decl "{v | p2 = p1 + t * v}" lines_2D nil) (nzreal nonempty-type-eq-decl nil reals nil) (/= const-decl "boolean" notequal nil) (* const-decl "Vector" vectors_2D 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) (+ const-decl "Vector" vectors_2D nil) (Vector type-eq-decl nil vectors_2D nil) (= const-decl "[T, T -> boolean]" equalities nil) (Vect2 type-eq-decl nil vectors_2D_def nil) (real nonempty-type-from-decl nil reals nil) (NOT const-decl "[bool -> bool]" booleans nil) (bool nonempty-type-eq-decl nil booleans nil) (boolean nonempty-type-decl nil booleans nil) (add_zero_right formula-decl nil vectors_2D nil) (scal_zero formula-decl nil vectors_2D nil) (zero const-decl "Vector" vectors_2D nil)) nil)) (vel_from_tm_lem 0 (vel_from_tm_lem-1 nil 3255275743 ("" (skosimp*) (("" (assert) nil nil)) nil) nil nil)) (vel_from_tm_rew 0 (vel_from_tm_rew-1 nil 3255275743 ("" (skosimp*) (("" (typepred "vel_from_tm(p1!1, p2!1, t!1)") (("" (apply-extensionality 1 :hide? t) (("1" (expand "*" +) (("1" (cross-mult 1) (("1" (grind) nil nil)) nil)) nil) ("2" (expand "*" +) (("2" (cross-mult 1) (("2" (grind) nil nil)) nil)) nil)) nil)) nil)) nil) ((vel_from_tm const-decl "{v | p2 = p1 + t * v}" lines_2D nil) (nzreal nonempty-type-eq-decl nil reals nil) (/= const-decl "boolean" notequal nil) (* const-decl "Vector" vectors_2D 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) (+ const-decl "Vector" vectors_2D nil) (Vector type-eq-decl nil vectors_2D nil) (= const-decl "[T, T -> boolean]" equalities nil) (Vect2 type-eq-decl nil vectors_2D_def nil) (real nonempty-type-from-decl nil reals 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) (* const-decl "[numfield, numfield -> numfield]" number_fields nil) (div_cancel4 formula-decl nil real_props nil) (nonzero_real nonempty-type-eq-decl nil reals nil) (times_div2 formula-decl nil real_props nil) (real_times_real_is_real application-judgement "real" reals nil) (real_div_nzreal_is_real application-judgement "real" reals 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) (- const-decl "Vector" vectors_2D nil)) nil)) (vel_from_tm_eq_args 0 (vel_from_tm_eq_args-1 nil 3306085217 ("" (skosimp*) (("" (expand "zero") (("" (expand "vel_from_tm") (("" (expand "-") (("" (apply-extensionality 1 :hide? t) (("1" (grind) nil nil) ("2" (grind) nil nil)) nil)) nil)) nil)) nil)) nil) ((zero const-decl "Vector" vectors_2D nil) (- const-decl "Vector" vectors_2D nil) (real_times_real_is_real application-judgement "real" reals nil) (nzreal_div_nzreal_is_nzreal application-judgement "nzreal" real_types 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) (* const-decl "Vector" vectors_2D 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) (nzreal nonempty-type-eq-decl nil reals nil) (real nonempty-type-from-decl nil reals nil) (Vector type-eq-decl nil vectors_2D nil) (vel_from_tm const-decl "{v | p2 = p1 + t * v}" lines_2D nil)) shostak)) (vel_from_tm_length 0 (vel_from_tm_length-1 nil 3255275743 ("" (skosimp*) (("" (lemma "vel_from_tm_rew") (("" (inst?) (("" (assert) (("" (replace -1) (("" (hide -1) (("" (assert) (("" (rewrite "norm_scal") (("" (rewrite "sq_times") (("" (rewrite "dist_norm" :dir rl) (("" (expand "dist") (("" (rewrite "sq_sqrt") (("" (case-replace "sq(abs(1 / t!1)) = 1/sq(t!1)") (("1" (assert) (("1" (rewrite "sq_dist_sym") (("1" (assert) nil nil)) nil)) nil) ("2" (hide 3) (("2" (grind) nil nil)) nil)) nil)) nil)) nil)) nil)) nil)) nil)) nil)) nil)) nil)) nil)) nil)) nil)) nil) ((vel_from_tm_rew formula-decl nil lines_2D nil) (sq_nz_pos application-judgement "posreal" sq "reals/") (nnreal_div_posreal_is_nnreal application-judgement "nnreal" real_types nil) (nzreal_div_nzreal_is_nzreal application-judgement "nzreal" real_types nil) (norm_scal formula-decl nil vectors_2D 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) (Vector type-eq-decl nil vectors_2D nil) (- const-decl "Vector" vectors_2D nil) (nonzero_abs_is_pos application-judgement "{y: posreal | y >= x}" real_defs nil) (nnreal_times_nnreal_is_nnreal application-judgement "nnreal" real_types nil) (dist_norm formula-decl nil distance_2D nil) (sq_dist const-decl "nnreal" distance_2D nil) (sq_sqrt formula-decl nil sqrt "reals/") (real_ge_is_total_order name-judgement "(total_order?[real])" real_props nil) (minus_nzreal_is_nzreal application-judgement "nzreal" real_types nil) (real_lt_is_strict_total_order name-judgement "(strict_total_order?[real])" real_props nil) (nzreal_times_nzreal_is_nzreal application-judgement "nzreal" real_types nil) (sq_dist_sym formula-decl nil distance_2D nil) (posreal_div_posreal_is_posreal application-judgement "posreal" real_types nil) (= const-decl "[T, T -> boolean]" equalities nil) (sq const-decl "nonneg_real" sq "reals/") (dist const-decl "nnreal" distance_2D nil) (sq_abs formula-decl nil sq "reals/") (norm const-decl "nnreal" vectors_2D nil) (nnreal type-eq-decl nil real_types nil) (abs const-decl "{n: nonneg_real | n >= m AND n >= -m}" real_defs nil) (- const-decl "[numfield -> numfield]" 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) (sq_times formula-decl nil sq "reals/") (nzreal nonempty-type-eq-decl nil reals nil) (/= const-decl "boolean" notequal 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) (Vect2 type-eq-decl nil vectors_2D_def nil) (real nonempty-type-from-decl nil reals nil)) nil)) (vel_from_spd_TCC1 0 (vel_from_spd_TCC1-1 nil 3255275743 ("" (skosimp*) (("" (assert) (("" (lemma "dist_eq_0") (("" (inst?) (("" (assert) nil nil)) nil)) nil)) nil)) nil) ((real nonempty-type-from-decl nil reals nil) (Vect2 type-eq-decl nil vectors_2D_def nil) (dist_eq_0 formula-decl nil distance_2D nil)) nil)) (vel_from_spd_lem_TCC1 0 (vel_from_spd_lem_TCC1-1 nil 3256559321 ("" (skosimp*) (("" (cross-mult -1) (("" (rewrite "dist_eq_0") nil nil)) nil)) nil) ((nnreal_div_posreal_is_nnreal application-judgement "nnreal" real_types nil) (div_cancel3 formula-decl nil real_props nil) (dist const-decl "nnreal" distance_2D nil) (nnreal type-eq-decl nil real_types nil) (Vect2 type-eq-decl nil vectors_2D_def 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) (nonzero_real nonempty-type-eq-decl nil reals nil) (/= const-decl "boolean" notequal 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) (nnreal_times_nnreal_is_nnreal application-judgement "nnreal" real_types nil) (dist_eq_0 formula-decl nil distance_2D nil)) shostak)) (vel_from_spd_lem 0 (vel_from_spd_lem-1 nil 3255348389 ("" (skosimp*) (("" (expand "vel_from_spd") (("" (assert) (("" (rewrite "vel_from_tm_rew") (("1" (assert) nil nil) ("2" (hide 3) (("2" (lemma "dist_eq_0") (("2" (inst?) (("2" (assert) nil nil)) nil)) nil)) nil)) nil)) nil)) nil)) nil) ((vel_from_spd const-decl "Vect2" lines_2D nil) (vel_from_tm_rew formula-decl nil lines_2D nil) (real nonempty-type-from-decl nil reals nil) (Vect2 type-eq-decl nil vectors_2D_def 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) (/= const-decl "boolean" notequal nil) (nzreal nonempty-type-eq-decl nil reals 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) (bool nonempty-type-eq-decl nil booleans nil) (>= const-decl "bool" reals nil) (nnreal type-eq-decl nil real_types nil) (dist const-decl "nnreal" distance_2D 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) (nzreal_div_nzreal_is_nzreal application-judgement "nzreal" real_types nil) (nnreal_div_posreal_is_nnreal application-judgement "nnreal" real_types nil)) shostak)) (vel_from_spd_norm_TCC1 0 (vel_from_spd_norm_TCC1-1 nil 3255866120 ("" (skeep) (("" (expand "nz_vector?") (("" (flatten) (("" (rewrite "sub_eq_zero") (("" (assert) nil nil)) nil)) nil)) nil)) nil) ((sub_eq_zero formula-decl nil vectors_2D nil) (real nonempty-type-from-decl nil reals nil) (Vector type-eq-decl nil vectors_2D nil) (Vect2 type-eq-decl nil vectors_2D_def nil)) shostak)) (vel_from_spd_norm 0 (vel_from_spd_norm-1 nil 3255867439 ("" (skosimp*) (("" (expand "^") (("" (expand "vel_from_spd") (("" (rewrite "dist_norm") (("" (assert) (("" (rewrite "norm_sym") (("" (assert) nil nil)) nil)) nil)) nil)) nil)) nil)) nil) ((^ const-decl "Normalized" vectors_2D nil) (dist_norm formula-decl nil distance_2D nil) (real nonempty-type-from-decl nil reals nil) (Vect2 type-eq-decl nil vectors_2D_def nil) (Vector type-eq-decl nil vectors_2D nil) (norm_sym formula-decl nil vectors_2D nil) (scal_assoc formula-decl nil vectors_2D nil) (nzreal_div_nzreal_is_nzreal application-judgement "nzreal" real_types nil) (nzreal_times_nzreal_is_nzreal application-judgement "nzreal" real_types nil) (vel_from_spd const-decl "Vect2" lines_2D nil)) shostak)) (gen_speed_TCC1 0 (gen_speed_TCC1-1 nil 3255275743 ("" (grind) (("" (inst 1 "lambda (d: [Vect2, Vect2, posreal]) : 1 / d`3 * dist(d`1, d`2)") nil nil)) nil) ((posreal_div_posreal_is_posreal application-judgement "posreal" real_types nil) (nnreal_times_nnreal_is_nnreal application-judgement "nnreal" real_types nil) (real nonempty-type-from-decl nil reals nil) (Vect2 type-eq-decl nil vectors_2D_def 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) (bool nonempty-type-eq-decl nil booleans 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) (nnreal type-eq-decl nil real_types nil) (= const-decl "[T, T -> boolean]" equalities nil) (numfield nonempty-type-eq-decl nil number_fields nil) (* const-decl "[numfield, numfield -> numfield]" 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) (dist const-decl "nnreal" distance_2D nil)) nil)) (on_line_lem 0 (on_line_lem-1 nil 3601294720 ("" (skosimp*) (("" (expand "on_line?") (("" (expand "line_from") (("" (split +) (("1" (inst + "0") (("1" (assert) nil nil)) nil) ("2" (inst + "1") (("2" (assert) (("2" (apply-extensionality 1 :hide? t) (("1" (grind) nil nil) ("2" (grind) nil nil)) nil)) nil)) nil)) nil)) nil)) nil)) nil) ((on_line? const-decl "bool" lines_2D nil) (scal_0 formula-decl nil vectors_2D nil) (add_zero_right formula-decl nil vectors_2D 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) (scal_1 formula-decl nil vectors_2D 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_2D nil) (+ const-decl "Vector" vectors_2D nil) (Vector type-eq-decl nil vectors_2D nil) (/= const-decl "boolean" notequal nil) (Vect2 type-eq-decl nil vectors_2D_def nil) (line_from const-decl "Line" lines_2D nil)) shostak)) (on_line_neg 0 (on_line_neg-1 nil 3601295799 ("" (skosimp*) (("" (expand "on_line?") (("" (expand "-") (("" (skosimp*) (("" (replace -1) (("" (hide -1) (("" (inst + "-x!1") (("" (assert) (("" (apply-extensionality :hide? t) (("1" (grind) nil nil) ("2" (grind) nil nil)) nil)) nil)) nil)) nil)) nil)) nil)) nil)) nil)) nil) ((on_line? const-decl "bool" lines_2D nil) (neg_nzv application-judgement "Nz_vector" vectors_2D nil) (real_plus_real_is_real application-judgement "real" reals nil) (real_times_real_is_real application-judgement "real" reals nil) (+ const-decl "Vector" vectors_2D nil) (Vect2 type-eq-decl nil vectors_2D_def nil) (Nz_vect2 type-eq-decl nil vectors_2D nil) (Line type-eq-decl nil lines_2D nil) (* const-decl "Vector" vectors_2D nil) (- const-decl "Vector" vectors_2D nil) (Vector type-eq-decl nil vectors_2D nil) (- const-decl "[numfield -> numfield]" number_fields nil) (numfield nonempty-type-eq-decl nil number_fields 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) (minus_real_is_real application-judgement "real" reals nil) (- const-decl "Line" lines_2D nil)) shostak)) (on_line_sym_TCC1 0 (on_line_sym_TCC1-1 nil 3601293972 ("" (subtype-tcc) nil nil) ((- const-decl "Vector" vectors_2D nil) (line_from const-decl "Line" lines_2D nil) (* const-decl "Vector" vectors_2D nil) (+ const-decl "Vector" vectors_2D nil) (on_line? const-decl "bool" lines_2D nil) (real_plus_real_is_real application-judgement "real" reals nil) (real_times_real_is_real application-judgement "real" reals nil)) nil)) (on_line_sym 0 (on_line_sym-1 nil 3601293996 ("" (skosimp*) (("" (expand "on_line?") (("" (skosimp*) (("" (inst + "1-x!1") (("" (replace -1) (("" (hide -1) (("" (apply-extensionality 1 :hide? t) (("1" (grind) nil nil) ("2" (grind) nil nil)) nil)) nil)) nil)) nil)) nil)) nil)) nil) ((on_line? const-decl "bool" lines_2D nil) (real_minus_real_is_real application-judgement "real" reals 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) (numfield nonempty-type-eq-decl nil number_fields nil) (- const-decl "[numfield, numfield -> numfield]" number_fields nil) (- const-decl "Vector" vectors_2D nil) (real_plus_real_is_real application-judgement "real" reals nil) (real_times_real_is_real application-judgement "real" reals nil) (+ const-decl "Vector" vectors_2D nil) (Vect2 type-eq-decl nil vectors_2D_def nil) (/= const-decl "boolean" notequal nil) (Nz_vect2 type-eq-decl nil vectors_2D nil) (Line type-eq-decl nil lines_2D nil) (line_from const-decl "Line" lines_2D nil) (* const-decl "Vector" vectors_2D nil) (Vector type-eq-decl nil vectors_2D nil)) shostak)) (gen_line_spd_TCC1 0 (gen_line_spd_TCC1-3 nil 3440254980 ("" (skosimp*) (("" (expand "vel_from_spd") (("" (name-replace "AA" "s!1 / dist(p1!1, p2!1)") (("" (lemma "scal_eq_zero") (("" (inst?) (("" (assert) (("" (rewrite "sub_eq_zero") nil nil)) nil)) nil)) nil)) nil)) nil)) nil) ((vel_from_spd const-decl "Vect2" lines_2D nil) (scal_eq_zero formula-decl nil vectors_2D nil) (sub_eq_zero formula-decl nil vectors_2D nil) (Vector type-eq-decl nil vectors_2D nil) (- const-decl "Vector" vectors_2D nil) (nzreal nonempty-type-eq-decl nil reals nil) (dist const-decl "nnreal" distance_2D nil) (nnreal type-eq-decl nil real_types nil) (Vect2 type-eq-decl nil vectors_2D_def 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) (/ const-decl "[numfield, nznum -> numfield]" number_fields nil) (nznum nonempty-type-eq-decl nil number_fields nil) (/= const-decl "boolean" notequal nil) (number_field nonempty-type-from-decl nil number_fields nil) (numfield nonempty-type-eq-decl nil number_fields nil) (number_field_pred const-decl "[number -> boolean]" number_fields nil) (= const-decl "[T, T -> boolean]" equalities nil) (boolean nonempty-type-decl nil booleans nil) (number nonempty-type-decl nil numbers nil) (nzreal_div_nzreal_is_nzreal application-judgement "nzreal" real_types nil)) nil) (gen_line_spd_TCC1-2 nil 3430838677 ("" (skosimp*) (("" (expand "vel_from_spd") (("" (name-replace "AA" "s!1 / dist(p1!1, p2!1)") (("" (lemma "scal_eq_0") (("" (inst?) (("" (assert) (("" (rewrite "sub_eq_zero") nil nil)) nil)) nil)) nil)) nil)) nil)) nil) ((sub_eq_zero formula-decl nil vectors_2D nil) (Vector type-eq-decl nil vectors_2D nil) (dist const-decl "nnreal" distance_2D nil) (Vect2 type-eq-decl nil vectors_2D_def nil)) nil) (gen_line_spd_TCC1-1 nil 3303642848 ("" (skosimp*) (("" (expand "vel_from_spd") (("" (typepred "p2!1") (("" (flatten) (("" (grind :exclude "dist") (("" (name-replace "AA" "s!1 / dist(p1!1, p2!1)") (("" (apply-extensionality 1 :hide? t) (("1" (expand "zero") (("1" (propax) nil nil)) nil) ("2" (expand "zero") (("2" (propax) nil nil)) nil)) nil)) nil)) nil)) nil)) nil)) nil)) nil) ((zero const-decl "Vector" vectors_2D nil) (* const-decl "Vector" vectors_2D nil) (Vect2 type-eq-decl nil vectors_2D_def nil)) nil)) (test1_TCC1 0 (test1_TCC1-1 nil 3602262302 ("" (subtype-tcc) nil nil) ((/= const-decl "boolean" notequal nil)) nil)) (test1 0 (test1-1 nil 3256559090 ("" (skosimp*) (("" (expand "gen_line_tm") (("" (expand "on_line?") (("" (expand "vel_from_tm") (("" (inst + "0") (("" (assert) nil nil)) nil)) nil)) nil)) nil)) nil) ((gen_line_tm const-decl "Line" lines_2D nil) (vel_from_tm const-decl "{v | p2 = p1 + t * v}" lines_2D nil) (scal_0 formula-decl nil vectors_2D nil) (scal_assoc formula-decl nil vectors_2D nil) (add_zero_right formula-decl nil vectors_2D nil) (real_times_real_is_real application-judgement "real" reals nil) (nzreal_div_nzreal_is_nzreal application-judgement "nzreal" real_types 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) (on_line? const-decl "bool" lines_2D nil)) shostak)) (test2 0 (test2-1 nil 3256559204 ("" (skosimp*) (("" (expand "on_line?") (("" (expand "gen_line_tm") (("" (expand "vel_from_tm") (("" (inst + "t!1") (("" (assert) (("" (apply-extensionality 2 :hide? t) (("1" (grind) nil nil) ("2" (grind) nil nil)) nil)) nil)) nil)) nil)) nil)) nil)) nil) ((on_line? const-decl "bool" lines_2D nil) (vel_from_tm const-decl "{v | p2 = p1 + t * v}" lines_2D nil) (nzreal_times_nzreal_is_nzreal application-judgement "nzreal" real_types nil) (nzreal_div_nzreal_is_nzreal application-judgement "nzreal" real_types nil) (scal_1 formula-decl nil vectors_2D nil) (scal_assoc formula-decl nil vectors_2D 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_2D nil) (+ const-decl "Vector" vectors_2D nil) (Vector type-eq-decl nil vectors_2D nil) (Vect2 type-eq-decl nil vectors_2D_def nil) (nzreal nonempty-type-eq-decl nil reals nil) (/= const-decl "boolean" notequal 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) (gen_line_tm const-decl "Line" lines_2D nil)) shostak)) (test3 0 (test3-1 nil 3256559678 ("" (skosimp*) (("" (expand "gen_line_spd") (("" (expand "on_line?") (("" (inst + "0") (("" (expand "vel_from_spd") (("" (assert) nil nil)) nil)) nil)) nil)) nil)) nil) ((gen_line_spd const-decl "Line" lines_2D 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) (scal_0 formula-decl nil vectors_2D nil) (scal_assoc formula-decl nil vectors_2D nil) (add_zero_right formula-decl nil vectors_2D nil) (real_times_real_is_real application-judgement "real" reals nil) (nzreal_div_nzreal_is_nzreal application-judgement "nzreal" real_types nil) (vel_from_spd const-decl "Vect2" lines_2D nil) (on_line? const-decl "bool" lines_2D nil)) shostak)) (test4 0 (test4-1 nil 3256559702 ("" (skosimp*) (("" (expand "on_line?") (("" (expand "gen_line_spd") (("" (expand "vel_from_spd") (("" (inst + "dist(p1!1,p2!1)/s!1") (("" (apply-extensionality 2 :hide? t) (("1" (grind :exclude "dist") nil nil) ("2" (grind :exclude "dist") nil nil) ("3" (flatten) (("3" (rewrite "dist_eq_0") nil nil)) nil)) nil)) nil)) nil)) nil)) nil)) nil) ((on_line? const-decl "bool" lines_2D nil) (vel_from_spd const-decl "Vect2" lines_2D nil) (- const-decl "Vector" vectors_2D nil) (zero const-decl "Vector" vectors_2D nil) (IF const-decl "[boolean, T, T -> T]" if_def nil) (* const-decl "Vector" vectors_2D nil) (+ const-decl "Vector" vectors_2D nil) (Vector type-eq-decl nil vectors_2D nil) (p2!1 skolem-const-decl "Vect2" lines_2D nil) (p1!1 skolem-const-decl "Vect2" lines_2D nil) (= const-decl "[T, T -> boolean]" equalities nil) (NOT const-decl "[bool -> bool]" booleans nil) (IMPLIES const-decl "[bool, bool -> bool]" booleans nil) (nzreal_div_nzreal_is_nzreal application-judgement "nzreal" real_types nil) (scal_assoc formula-decl nil vectors_2D nil) (scal_1 formula-decl nil vectors_2D 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) (dist_eq_0 formula-decl nil distance_2D 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) (dist const-decl "nnreal" distance_2D nil) (nnreal type-eq-decl nil real_types nil) (>= const-decl "bool" reals nil) (bool nonempty-type-eq-decl nil booleans nil) (Vect2 type-eq-decl nil vectors_2D_def 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 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) (nnreal_div_posreal_is_nnreal application-judgement "nnreal" real_types nil) (gen_line_spd const-decl "Line" lines_2D nil)) shostak)) (vel_from_spd_on_line 0 (vel_from_spd_on_line-1 nil 3256567691 ("" (skosimp*) (("" (assert) (("" (flatten) (("" (expand "on_line?") (("" (expand "vel_from_spd") (("" (assert) (("" (lift-if) (("" (ground) (("1" (inst + "0") (("1" (assert) nil nil)) nil) ("2" (inst?) (("2" (assert) (("2" (flatten) (("2" (rewrite "dist_eq_0") nil nil)) nil)) nil)) nil)) nil)) nil)) nil)) nil)) nil)) nil)) nil)) nil) ((on_line? const-decl "bool" distance_2D nil) (scal_assoc formula-decl nil vectors_2D nil) (nzreal_div_nzreal_is_nzreal application-judgement "nzreal" real_types nil) (nzreal_times_nzreal_is_nzreal application-judgement "nzreal" real_types nil) (scal_zero formula-decl nil vectors_2D nil) (add_zero_right formula-decl nil vectors_2D nil) (scal_0 formula-decl nil vectors_2D 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) (numfield nonempty-type-eq-decl nil number_fields nil) (* const-decl "[numfield, numfield -> numfield]" number_fields nil) (/= const-decl "boolean" notequal nil) (nzreal nonempty-type-eq-decl nil reals nil) (nznum nonempty-type-eq-decl nil number_fields nil) (/ const-decl "[numfield, nznum -> numfield]" number_fields nil) (bool nonempty-type-eq-decl nil booleans 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) (Vect2 type-eq-decl nil vectors_2D_def nil) (nnreal type-eq-decl nil real_types nil) (dist const-decl "nnreal" distance_2D nil) (vel_from_spd const-decl "Vect2" lines_2D nil)) shostak))) ¤ Dauer der Verarbeitung: 0.78 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.Bot Zugriff |
