(hyperbolic
(noa_abs_lt1 0
(noa_abs_lt1-1 nil 3477842243
("" (expand "not_one_element?" )
(("" (skosimp*)
(("" (inst-cp + "x!1/2" )
(("" (inst + "1/2" ) (("" (assert ) nil nil )) nil )) nil ))
nil ))
nil )
((posrat_div_posrat_is_posrat application-judgement "posrat"
rationals nil )
(/ const-decl "[numfield, nznum -> numfield]" number_fields nil )
(nznum nonempty-type-eq-decl nil number_fields nil )
(/= const-decl "boolean" notequal nil )
(real_abs_lt1 nonempty-type-eq-decl nil hyperbolic nil )
(- const-decl "[numfield -> numfield]" number_fields nil )
(numfield nonempty-type-eq-decl nil number_fields nil )
(< const-decl "bool" reals nil )
(AND const-decl "[bool, bool -> bool]" booleans 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 )
(real_div_nzreal_is_real application-judgement "real" reals nil )
(real_lt_is_strict_total_order name-judgement
"(strict_total_order?[real])" real_props nil )
(not_one_element? const-decl "bool" deriv_domain_def "analysis/" ))
shostak))
(noa_posreal_gt1 0
(noa_posreal_gt1-1 nil 3477842295
("" (expand "not_one_element?" )
(("" (skosimp*) (("" (inst + "x!1+1" ) (("" (assert ) nil nil )) nil ))
nil ))
nil )
((+ const-decl "[numfield, numfield -> numfield]" number_fields nil )
(numfield nonempty-type-eq-decl nil number_fields nil )
(posreal_gt1 nonempty-type-eq-decl nil hyperbolic 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 )
(real_plus_real_is_real application-judgement "real" reals nil )
(real_gt_is_strict_total_order name-judgement
"(strict_total_order?[real])" real_props nil )
(not_one_element? const-decl "bool" deriv_domain_def "analysis/" ))
shostak))
(conn_abs_lt1 0
(conn_abs_lt1-1 nil 3477842234
("" (expand "connected?" )
(("" (skosimp*) (("" (assert ) nil nil )) nil )) nil )
((real_le_is_total_order name-judgement "(total_order?[real])"
real_props nil )
(real_lt_is_strict_total_order name-judgement
"(strict_total_order?[real])" real_props nil )
(minus_odd_is_odd application-judgement "odd_int" integers nil )
(connected? const-decl "bool" deriv_domain_def "analysis/" ))
shostak))
(conn_real 0
(conn_real-1 nil 3477842343
("" (expand "connected?" ) (("" (propax) nil nil )) nil )
((connected? const-decl "bool" deriv_domain_def "analysis/" ))
shostak))
(deriv_domain_abs_lt1 0
(deriv_domain_abs_lt1-1 nil 3477842313
("" (lemma "deriv_domain_open" ) (("" (inst - "-1" "1" ) nil nil ))
nil )
((minus_odd_is_odd application-judgement "odd_int" integers 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]" number_fields nil )
(deriv_domain_open formula-decl nil deriv_domain "analysis/" ))
shostak))
(deriv_domain_posreal_gt1 0
(deriv_domain_posreal_gt1-1 nil 3477842351
("" (expand "deriv_domain?" )
(("" (skosimp*)
(("" (typepred "x!1" )
(("" (inst + "e!1/2" ) (("" (grind) nil nil )) nil )) nil ))
nil ))
nil )
((real_gt_is_strict_total_order name-judgement
"(strict_total_order?[real])" real_props nil )
(posreal_div_posreal_is_posreal application-judgement "posreal"
real_types nil )
(/= const-decl "boolean" notequal nil )
(nzreal nonempty-type-eq-decl nil reals nil )
(numfield nonempty-type-eq-decl nil number_fields nil )
(+ const-decl "[numfield, numfield -> numfield]" number_fields nil )
(nznum nonempty-type-eq-decl nil number_fields nil )
(/ const-decl "[numfield, nznum -> numfield]" number_fields nil )
(>= const-decl "bool" reals nil )
(nonneg_real nonempty-type-eq-decl nil real_types nil )
(posreal nonempty-type-eq-decl nil real_types nil )
(real_lt_is_strict_total_order name-judgement
"(strict_total_order?[real])" real_props nil )
(nonzero_abs_is_pos application-judgement "{y: posreal | y >= x}"
real_defs nil )
(abs const-decl "{n: nonneg_real | n >= m AND n >= -m}" real_defs
nil )
(boolean nonempty-type-decl nil booleans nil )
(bool nonempty-type-eq-decl nil booleans nil )
(NOT const-decl "[bool -> bool]" booleans nil )
(number nonempty-type-decl nil numbers nil )
(number_field_pred const-decl "[number -> boolean]" number_fields
nil )
(number_field nonempty-type-from-decl nil number_fields nil )
(real_pred const-decl "[number_field -> boolean]" reals nil )
(real nonempty-type-from-decl nil reals nil )
(> const-decl "bool" reals nil )
(posreal_gt1 nonempty-type-eq-decl nil hyperbolic nil )
(deriv_domain? const-decl "bool" deriv_domain_def "analysis/" )
(real_plus_real_is_real application-judgement "real" reals nil ))
shostak))
(cosh_TCC1 0
(cosh_TCC1-1 nil 3253390561
("" (skosimp*)
(("" (lemma "trichotomy" ("x" "x!1" ))
(("" (lemma "exp_diff" ("x" "0" "y" "x!1" ))
(("" (rewrite "exp_0" )
(("" (replace -1 1)
(("" (lemma "div_mult_pos_ge1" )
(("" (inst - "2" "1" "exp(x!1) + 1 / exp(x!1)" )
(("" (replace -1 1)
(("" (split -3)
(("1" (lemma "exp_strict_increasing" )
(("1" (expand "strict_increasing?" )
(("1" (inst - "0" "x!1" )
(("1" (rewrite "exp_0" )
(("1" (assert )
(("1"
(lemma
"sq_lt"
("nnb" "exp(x!1)-1" "nna" "0" ))
(("1"
(expand "sq" )
(("1"
(lemma
"div_mult_pos_lt1"
("z"
"-1"
"py"
"exp(x!1)"
"x"
"exp(x!1)-2" ))
(("1" (assert ) nil nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2" (replace -1)
(("2" (rewrite "exp_0" ) (("2" (assert ) nil nil ))
nil ))
nil )
("3" (lemma "exp_strict_increasing" )
(("3" (expand "strict_increasing?" )
(("3" (inst - "x!1" "0" )
(("3" (rewrite "exp_0" )
(("3" (assert )
(("3"
(lemma
"sq_lt"
("nna" "0" "nnb" "1-exp(x!1)" ))
(("3"
(expand "sq" )
(("3"
(lemma
"div_mult_pos_lt1"
("py"
"exp(x!1)"
"z"
"-1"
"x"
"exp(x!1)-2" ))
(("3" (assert ) nil nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
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 )
(trichotomy formula-decl nil real_axioms nil )
(exp_0 formula-decl nil ln_exp nil )
(minus_odd_is_odd application-judgement "odd_int" integers nil )
(posreal_plus_nnreal_is_posreal application-judgement "posreal"
real_types nil )
(div_mult_pos_ge1 formula-decl nil real_props nil )
(posrat_div_posrat_is_posrat application-judgement "posrat"
rationals nil )
(posrat_plus_nnrat_is_posrat application-judgement "posrat"
rationals nil )
(exp_strict_increasing formula-decl nil ln_exp nil )
(real_lt_is_strict_total_order name-judgement
"(strict_total_order?[real])" real_props nil )
(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 )
(posint_times_posint_is_posint application-judgement "posint"
integers nil )
(real_ge_is_total_order name-judgement "(total_order?[real])"
real_props nil )
(real_minus_real_is_real application-judgement "real" reals nil )
(real_gt_is_strict_total_order name-judgement
"(strict_total_order?[real])" real_props nil )
(posreal_times_posreal_is_posreal application-judgement "posreal"
real_types nil )
(sq const-decl "nonneg_real" sq "reals/" )
(nzreal_div_nzreal_is_nzreal application-judgement "nzreal"
real_types nil )
(real_times_real_is_real application-judgement "real" reals nil )
(real_plus_real_is_real application-judgement "real" reals nil )
(- const-decl "[numfield -> numfield]" number_fields nil )
(div_mult_pos_lt1 formula-decl nil real_props nil )
(- const-decl "[numfield, numfield -> numfield]" number_fields nil )
(sq_lt formula-decl nil sq "reals/" )
(posreal_div_posreal_is_posreal application-judgement "posreal"
real_types nil )
(strict_increasing? const-decl "bool" real_fun_preds "reals/" )
(/ const-decl "[numfield, nznum -> numfield]" number_fields nil )
(nznum nonempty-type-eq-decl nil number_fields nil )
(/= const-decl "boolean" notequal nil )
(exp const-decl "{py | x = ln(py)}" ln_exp nil )
(ln const-decl "real" ln_exp nil )
(= const-decl "[T, T -> boolean]" equalities nil )
(+ const-decl "[numfield, numfield -> numfield]" number_fields nil )
(numfield nonempty-type-eq-decl nil number_fields 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 )
(exp_diff formula-decl nil ln_exp nil ))
shostak))
(tanh_TCC1 0
(tanh_TCC1-1 nil 3253429443
("" (skosimp*)
(("" (typepred "cosh(x!1)" ) (("" (assert ) nil nil )) nil )) nil )
((cosh const-decl "posreal_ge1" hyperbolic nil )
(posreal_ge1 nonempty-type-eq-decl nil hyperbolic nil )
(>= const-decl "bool" reals nil )
(real nonempty-type-from-decl nil reals nil )
(real_pred const-decl "[number_field -> boolean]" reals nil )
(number_field nonempty-type-from-decl nil number_fields nil )
(number_field_pred const-decl "[number -> boolean]" number_fields
nil )
(number nonempty-type-decl nil numbers nil )
(NOT const-decl "[bool -> bool]" booleans nil )
(bool nonempty-type-eq-decl nil booleans nil )
(boolean nonempty-type-decl nil booleans nil )
(real_ge_is_total_order name-judgement "(total_order?[real])"
real_props nil ))
shostak))
(tanh_TCC2 0
(tanh_TCC2-1 nil 3253429443
("" (skosimp*)
(("" (lemma "div_mult_pos_lt1" )
(("" (inst - "cosh(x!1)" "1" "sinh(x!1)" )
(("1" (lemma "div_mult_pos_lt2" )
(("1" (inst - "cosh(x!1)" "-1" "sinh(x!1)" )
(("1" (replace -1)
(("1" (replace -2)
(("1" (hide (-1 -2))
(("1" (expand "cosh" )
(("1" (expand "sinh" )
(("1" (typepred "exp(x!1)" )
(("1" (typepred "exp(-x!1)" )
(("1" (name-replace "EPX" "exp(x!1)" )
(("1" (name-replace "EMX" "exp(-x!1)" )
(("1"
(hide -3 -6)
(("1" (grind) nil nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2" (typepred "cosh(x!1)" ) (("2" (assert ) nil nil )) nil ))
nil ))
nil )
("2" (typepred "cosh(x!1)" ) (("2" (assert ) nil nil )) nil ))
nil ))
nil ))
nil )
((div_mult_pos_lt1 formula-decl nil real_props nil )
(div_mult_pos_lt2 formula-decl nil real_props nil )
(real_minus_real_is_real application-judgement "real" reals nil )
(minus_real_is_real application-judgement "real" reals nil )
(real_lt_is_strict_total_order name-judgement
"(strict_total_order?[real])" real_props nil )
(real_div_nzreal_is_real application-judgement "real" reals nil )
(posreal_times_posreal_is_posreal application-judgement "posreal"
real_types nil )
(nzreal_times_nzreal_is_nzreal application-judgement "nzreal"
real_types nil )
(exp const-decl "{py | x = ln(py)}" ln_exp nil )
(ln const-decl "real" ln_exp nil )
(= const-decl "[T, T -> boolean]" equalities nil )
(NOT const-decl "[bool -> bool]" booleans nil )
(posreal_div_posreal_is_posreal application-judgement "posreal"
real_types nil )
(posreal_plus_nnreal_is_posreal application-judgement "posreal"
real_types nil )
(numfield nonempty-type-eq-decl nil number_fields nil )
(- const-decl "[numfield -> numfield]" number_fields nil )
(minus_odd_is_odd application-judgement "odd_int" integers nil )
(sinh const-decl "real" hyperbolic nil )
(posreal nonempty-type-eq-decl nil real_types nil )
(nonneg_real nonempty-type-eq-decl nil real_types nil )
(boolean nonempty-type-decl nil booleans nil )
(bool nonempty-type-eq-decl nil booleans nil )
(AND const-decl "[bool, bool -> bool]" booleans nil )
(number nonempty-type-decl nil numbers nil )
(number_field_pred const-decl "[number -> boolean]" number_fields
nil )
(number_field nonempty-type-from-decl nil number_fields nil )
(real_pred const-decl "[number_field -> boolean]" reals nil )
(real nonempty-type-from-decl nil reals nil )
(>= const-decl "bool" reals nil )
(posreal_ge1 nonempty-type-eq-decl nil hyperbolic nil )
(cosh const-decl "posreal_ge1" hyperbolic nil )
(x!1 skolem-const-decl "real" hyperbolic nil )
(> const-decl "bool" reals nil )
(real_ge_is_total_order name-judgement "(total_order?[real])"
real_props nil )
(real_gt_is_strict_total_order name-judgement
"(strict_total_order?[real])" real_props nil ))
shostak))
(csch_TCC1 0
(csch_TCC1-1 nil 3253429443
("" (skosimp*)
(("" (expand "sinh" )
(("" (lemma "exp_diff" ("x" "0" "y" "n0x!1" ))
(("" (lemma "exp_0" )
(("" (replace -1 -2)
(("" (replace -2 -3)
(("" (rewrite "div_cancel3" -3)
((""
(lemma "minus_div1"
("x" "exp(n0x!1)" "y" "1" "n0x" "1" "n0y"
"exp(n0x!1)" ))
(("" (replace -1 -4)
(("" (rewrite "div_cancel3" -4)
(("" (lemma "exp_strict_increasing" )
(("" (expand "strict_increasing?" )
(("" (lemma "trichotomy" ("x" "2*n0x!1" ))
((""
(lemma "exp_sum"
("x" "n0x!1" "y" "n0x!1" ))
((""
(replace -1 -7 rl)
((""
(split -2)
(("1"
(inst - "0" "2*n0x!1" )
(("1" (assert ) nil nil ))
nil )
("2" (assert ) nil nil )
("3"
(inst - "n0x!1" "0" )
(("3"
(replace -2)
(("3"
(hide -2)
(("3"
(assert )
(("3"
(replace -6)
(("3"
(assert )
(("3"
(hide -5)
(("3"
(move-terms -3 l 2)
(("3"
(assert )
(("3"
(replace -3 * rl)
(("3"
(hide -1 -2 -3)
(("3"
(lemma
"exp_neg" )
(("3"
(inst?)
(("3"
(grind-reals)
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
((sinh const-decl "real" hyperbolic nil )
(exp_0 formula-decl nil ln_exp nil )
(real_minus_real_is_real application-judgement "real" reals nil )
(minus_div1 formula-decl nil real_props nil )
(* const-decl "[numfield, numfield -> numfield]" number_fields nil )
(posreal_times_posreal_is_posreal application-judgement "posreal"
real_types nil )
(nnreal_times_nnreal_is_nnreal application-judgement "nnreal"
real_types nil )
(odd_times_odd_is_odd application-judgement "odd_int" integers nil )
(posint_times_posint_is_posint application-judgement "posint"
integers nil )
(strict_increasing? const-decl "bool" real_fun_preds "reals/" )
(exp_sum formula-decl nil ln_exp nil )
(real_lt_is_strict_total_order name-judgement
"(strict_total_order?[real])" real_props nil )
(real_div_nzreal_is_real application-judgement "real" reals nil )
(real_plus_real_is_real application-judgement "real" reals nil )
(real_gt_is_strict_total_order name-judgement
"(strict_total_order?[real])" real_props nil )
(nnreal_div_posreal_is_nnreal application-judgement "nnreal"
real_types nil )
(+ const-decl "[numfield, numfield -> numfield]" number_fields nil )
(IFF const-decl "[bool, bool -> bool]" booleans nil )
(nnreal_plus_posreal_is_posreal application-judgement "posreal"
real_types nil )
(exp_neg formula-decl nil ln_exp nil )
(div_cancel4 formula-decl nil real_props nil )
(minus_nzreal_is_nzreal application-judgement "nzreal" real_types
nil )
(trichotomy formula-decl nil real_axioms nil )
(nzreal_times_nzreal_is_nzreal application-judgement "nzreal"
real_types nil )
(exp_strict_increasing formula-decl nil ln_exp nil )
(posreal_div_posreal_is_posreal application-judgement "posreal"
real_types nil )
(nnint_times_nnint_is_nnint application-judgement "nonneg_int"
integers nil )
(even_times_int_is_even application-judgement "even_int" integers
nil )
(mult_divides1 application-judgement "(divides(n))" divides nil )
(mult_divides2 application-judgement "(divides(m))" divides nil )
(/ const-decl "[numfield, nznum -> numfield]" number_fields nil )
(nznum nonempty-type-eq-decl nil number_fields nil )
(exp const-decl "{py | x = ln(py)}" ln_exp nil )
(ln const-decl "real" ln_exp nil )
(= const-decl "[T, T -> boolean]" equalities 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 )
(- const-decl "[numfield, numfield -> numfield]" number_fields nil )
(numfield nonempty-type-eq-decl nil number_fields nil )
(nonzero_real nonempty-type-eq-decl nil reals nil )
(div_cancel3 formula-decl nil real_props nil )
(minus_odd_is_odd application-judgement "odd_int" integers nil )
(exp_diff formula-decl nil ln_exp 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 )
(/= const-decl "boolean" notequal nil )
(nzreal nonempty-type-eq-decl nil reals nil ))
shostak))
(sech_TCC1 0
(sech_TCC1-1 nil 3253429443
("" (skosimp*)
(("" (typepred "cosh(x!1)" )
((""
(lemma "both_sides_div_pos_ge2"
("py" "cosh(x!1)" "px" "1" "pz" "1" ))
(("1"
(lemma "posreal_div_posreal_is_posreal"
("px" "1" "py" "cosh(x!1)" ))
(("1" (assert ) nil nil )) nil )
("2" (assert ) nil nil ))
nil ))
nil ))
nil )
((cosh const-decl "posreal_ge1" hyperbolic nil )
(posreal_ge1 nonempty-type-eq-decl nil hyperbolic nil )
(>= const-decl "bool" reals nil )
(real nonempty-type-from-decl nil reals nil )
(real_pred const-decl "[number_field -> boolean]" reals nil )
(number_field nonempty-type-from-decl nil number_fields nil )
(number_field_pred const-decl "[number -> boolean]" number_fields
nil )
(number nonempty-type-decl nil numbers nil )
(NOT const-decl "[bool -> bool]" booleans nil )
(bool nonempty-type-eq-decl nil booleans nil )
(boolean nonempty-type-decl nil booleans nil )
(posreal_div_posreal_is_posreal judgement-tcc nil real_types nil )
(nzreal_div_nzreal_is_nzreal application-judgement "nzreal"
real_types nil )
(posrat_div_posrat_is_posrat application-judgement "posrat"
rationals nil )
(AND const-decl "[bool, bool -> bool]" booleans nil )
(real_gt_is_strict_total_order name-judgement
"(strict_total_order?[real])" real_props nil )
(real_ge_is_total_order name-judgement "(total_order?[real])"
real_props nil )
(both_sides_div_pos_ge2 formula-decl nil real_props 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 ))
shostak))
(coth_TCC1 0
(coth_TCC1-1 nil 3253429443
("" (skosimp*)
(("" (expand "tanh" )
(("" (expand "sinh" )
(("" (lemma "exp_diff" ("x" "0" "y" "n0x!1" ))
(("" (lemma "exp_0" )
(("" (replace -1 -2)
(("" (replace -2 -3)
(("" (rewrite "div_div2" -3)
((""
(lemma "minus_div1"
("x" "exp(n0x!1)" "n0x" "1" "y" "1" "n0y"
"exp(n0x!1)" ))
(("" (replace -1 -4)
(("" (rewrite "div_div2" -4)
((""
(lemma "exp_sum" ("x" "n0x!1" "y" "n0x!1" ))
(("" (replace -1 -5 rl)
(("" (hide -1 -2 -4)
((""
(lemma "exp_strict_increasing" )
((""
(expand "strict_increasing?" )
((""
(lemma
"trichotomy"
("x" "2*n0x!1" ))
((""
(split -1)
(("1"
(inst - "0" "2*n0x!1" )
(("1" (assert ) nil nil ))
nil )
("2" (assert ) nil nil )
("3"
(inst - "2*n0x!1" "0" )
(("3" (assert ) nil nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
((tanh const-decl "real_abs_lt1" hyperbolic 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 )
(exp_diff formula-decl nil ln_exp nil )
(minus_odd_is_odd application-judgement "odd_int" integers nil )
(div_div2 formula-decl nil real_props nil )
(nonzero_real nonempty-type-eq-decl nil reals nil )
(bool nonempty-type-eq-decl nil booleans nil )
(>= const-decl "bool" reals nil )
(posreal_ge1 nonempty-type-eq-decl nil hyperbolic nil )
(cosh const-decl "posreal_ge1" hyperbolic nil )
(numfield nonempty-type-eq-decl nil number_fields nil )
(- const-decl "[numfield, numfield -> numfield]" number_fields 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 )
(= const-decl "[T, T -> boolean]" equalities nil )
(ln const-decl "real" ln_exp nil )
(exp const-decl "{py | x = ln(py)}" ln_exp nil )
(nznum nonempty-type-eq-decl nil number_fields nil )
(/ const-decl "[numfield, nznum -> numfield]" number_fields nil )
(real_times_real_is_real application-judgement "real" reals nil )
(posreal_div_posreal_is_posreal application-judgement "posreal"
real_types nil )
(exp_sum formula-decl nil ln_exp nil )
(strict_increasing? const-decl "bool" real_fun_preds "reals/" )
(real_lt_is_strict_total_order name-judgement
"(strict_total_order?[real])" real_props nil )
(real_plus_real_is_real application-judgement "real" reals nil )
(real_gt_is_strict_total_order name-judgement
"(strict_total_order?[real])" real_props nil )
(trichotomy formula-decl nil real_axioms nil )
(nzreal_times_nzreal_is_nzreal application-judgement "nzreal"
real_types nil )
(exp_strict_increasing formula-decl nil ln_exp nil )
(posint_times_posint_is_posint application-judgement "posint"
integers nil )
(odd_times_odd_is_odd application-judgement "odd_int" integers nil )
(mult_divides1 application-judgement "(divides(n))" divides nil )
(posreal_times_posreal_is_posreal application-judgement "posreal"
real_types nil )
(* const-decl "[numfield, numfield -> numfield]" number_fields nil )
(minus_div1 formula-decl nil real_props nil )
(real_div_nzreal_is_real application-judgement "real" reals nil )
(real_minus_real_is_real application-judgement "real" reals nil )
(exp_0 formula-decl nil ln_exp nil )
(sinh const-decl "real" hyperbolic nil ))
shostak))
(coth_TCC2 0
(coth_TCC2-1 nil 3253429443
("" (skosimp*)
(("" (typepred "tanh(n0x!1)" )
(("" (lemma "coth_TCC1" ("nzx" "n0x!1" ))
(("" (lemma "trichotomy" ("x" "n0x!1" ))
(("" (case "strict_increasing?(sinh)" )
(("1" (expand "strict_increasing?" )
(("1" (case "sinh(0)=0" )
(("1" (expand "tanh" )
(("1" (typepred "cosh(n0x!1)" )
(("1" (split -4)
(("1" (inst - "0" "n0x!1" )
(("1" (rewrite "div_div1" )
(("1" (assert )
(("1" (replace -3 -4)
(("1"
(lemma "div_mult_pos_lt1" )
(("1"
(inst
-
"sinh(n0x!1)"
"-1"
"cosh(n0x!1)" )
(("1"
(lemma "div_mult_pos_lt2" )
(("1"
(inst
-
"sinh(n0x!1)"
"1"
"cosh(n0x!1)" )
(("1"
(replace -1)
(("1"
(replace -2)
(("1"
(hide -1 -2)
(("1"
(expand "cosh" )
(("1"
(expand "sinh" )
(("1"
(assert )
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2" (assert ) nil nil )
("3" (inst - "n0x!1" "0" )
(("3" (replace -3 -4)
(("3" (assert )
(("3" (lemma "div_mult_neg_lt1" )
(("3"
(rewrite "div_div1" )
(("3"
(inst
-
"sinh(n0x!1)"
"-1"
"cosh(n0x!1)" )
(("3"
(lemma "div_mult_neg_lt2" )
(("3"
(inst
-
"sinh(n0x!1)"
"1"
"cosh(n0x!1)" )
(("3"
(replace -1)
(("3"
(replace -2)
(("3"
(hide (-1 -2))
(("3"
(expand "sinh" )
(("3"
(expand "cosh" )
(("3"
(assert )
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2" (expand "sinh" 1)
(("2" (rewrite "exp_0" ) (("2" (assert ) nil nil ))
nil ))
nil ))
nil ))
nil )
("2" (hide-all-but 1)
(("2" (lemma "exp_strict_increasing" )
(("2" (expand "strict_increasing?" )
(("2" (expand "sinh" )
(("2" (skosimp*)
(("2" (inst-cp - "x!1" "y!1" )
(("2" (inst - "-y!1" "-x!1" )
(("2" (assert ) nil nil )) nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
((nzreal nonempty-type-eq-decl nil reals nil )
(/= const-decl "boolean" notequal nil )
(tanh const-decl "real_abs_lt1" hyperbolic nil )
(real_abs_lt1 nonempty-type-eq-decl nil hyperbolic nil )
(AND const-decl "[bool, bool -> bool]" booleans nil )
(- const-decl "[numfield -> numfield]" number_fields nil )
(numfield nonempty-type-eq-decl nil number_fields nil )
(< const-decl "bool" reals nil )
(real nonempty-type-from-decl nil reals nil )
(real_pred const-decl "[number_field -> boolean]" reals nil )
(number_field nonempty-type-from-decl nil number_fields nil )
(number_field_pred const-decl "[number -> boolean]" number_fields
nil )
(number nonempty-type-decl nil numbers nil )
(NOT const-decl "[bool -> bool]" booleans nil )
(bool nonempty-type-eq-decl nil booleans nil )
(boolean nonempty-type-decl nil booleans nil )
(strict_increasing? const-decl "bool" real_fun_preds "reals/" )
(sinh const-decl "real" hyperbolic nil )
(= const-decl "[T, T -> boolean]" equalities nil )
(>= const-decl "bool" reals nil )
(posreal_ge1 nonempty-type-eq-decl nil hyperbolic nil )
(cosh const-decl "posreal_ge1" hyperbolic nil )
(div_mult_neg_lt2 formula-decl nil real_props nil )
(<= const-decl "bool" reals nil )
(nonpos_real nonempty-type-eq-decl nil real_types nil )
(negreal nonempty-type-eq-decl nil real_types nil )
(real_le_is_total_order name-judgement "(total_order?[real])"
real_props nil )
(div_mult_neg_lt1 formula-decl nil real_props nil )
(div_mult_pos_lt1 formula-decl nil real_props nil )
(div_mult_pos_lt2 formula-decl nil real_props nil )
(posreal_div_posreal_is_posreal application-judgement "posreal"
real_types nil )
(posreal_plus_nnreal_is_posreal application-judgement "posreal"
real_types nil )
(minus_nzreal_is_nzreal application-judgement "nzreal" real_types
nil )
(real_minus_real_is_real application-judgement "real" reals nil )
(minus_even_is_even application-judgement "even_int" integers nil )
(exp_0 formula-decl nil ln_exp 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 )
(real_times_real_is_real application-judgement "real" reals nil )
(nzreal_div_nzreal_is_nzreal application-judgement "nzreal"
real_types nil )
(real_div_nzreal_is_real application-judgement "real" reals nil )
(minus_odd_is_odd application-judgement "odd_int" integers nil )
(real_lt_is_strict_total_order name-judgement
"(strict_total_order?[real])" real_props nil )
(real_ge_is_total_order name-judgement "(total_order?[real])"
real_props nil )
(real_gt_is_strict_total_order name-judgement
"(strict_total_order?[real])" real_props nil )
(div_div1 formula-decl nil real_props nil )
(nonzero_real nonempty-type-eq-decl nil reals nil )
(rat_div_nzrat_is_rat application-judgement "rat" rationals nil )
(odd_minus_odd_is_even application-judgement "even_int" integers
nil )
(exp_strict_increasing formula-decl nil ln_exp nil )
(minus_real_is_real application-judgement "real" reals nil )
(trichotomy formula-decl nil real_axioms nil ))
shostak))
(posreal_csch_TCC1 0
(posreal_csch_TCC1-1 nil 3253435075
("" (skosimp*)
(("" (expand "csch" )
((""
(lemma "div_mult_pos_lt2" ("z" "1" "x" "0" "py" "sinh(px!1)" ))
(("1" (assert ) nil nil )
("2" (hide 2)
(("2" (expand "sinh" )
(("2" (lemma "exp_diff" ("x" "0" "y" "px!1" ))
(("2" (rewrite "exp_0" )
(("2" (rewrite -1)
(("2" (lemma "div_mult_pos_lt2" )
(("2" (inst - "2" "0" "exp(px!1)-1/exp(px!1)" )
(("2"
(lemma "minus_div1"
("x" "exp(px!1)" "n0x" "1" "y" "1" "n0y"
"exp(px!1)" ))
(("2" (lemma "exp_strict_increasing" )
(("2" (expand "strict_increasing?" )
(("2" (inst - "0" "2*px!1" )
(("2"
(rewrite "exp_0" )
(("2"
(lemma
"exp_sum"
("x" "px!1" "y" "px!1" ))
(("2"
(replace -1 -3 rl)
(("2"
(expand ">=" 1)
(("2"
(expand ">" 1)
(("2"
(expand "<=" 1)
(("2"
(assert )
(("2"
(replace -4 1)
(("2"
(replace -3 1)
(("2"
(lemma
"posreal_div_posreal_is_posreal"
("px"
"exp(2*px!1)-1"
"py"
"exp(px!1)" ))
(("2"
(assert )
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
((csch const-decl "real" hyperbolic nil )
(exp_diff formula-decl nil ln_exp nil )
(posreal_div_posreal_is_posreal application-judgement "posreal"
real_types nil )
(/ const-decl "[numfield, nznum -> numfield]" number_fields nil )
(nznum nonempty-type-eq-decl nil number_fields nil )
(/= const-decl "boolean" notequal nil )
(exp const-decl "{py | x = ln(py)}" ln_exp nil )
(ln const-decl "real" ln_exp nil )
(= const-decl "[T, T -> boolean]" equalities nil )
(- const-decl "[numfield, numfield -> numfield]" number_fields nil )
(numfield nonempty-type-eq-decl nil number_fields nil )
(exp_strict_increasing formula-decl nil ln_exp nil )
(posreal_times_posreal_is_posreal application-judgement "posreal"
real_types nil )
(* const-decl "[numfield, numfield -> numfield]" number_fields nil )
(exp_sum formula-decl nil ln_exp nil )
(<= const-decl "bool" reals nil )
(posreal_div_posreal_is_posreal judgement-tcc nil real_types nil )
(posreal_plus_nnreal_is_posreal application-judgement "posreal"
real_types nil )
(real_div_nzreal_is_real application-judgement "real" reals nil )
(nnint_times_nnint_is_nnint application-judgement "nonneg_int"
integers nil )
(even_times_int_is_even application-judgement "even_int" integers
nil )
(mult_divides2 application-judgement "(divides(m))" divides nil )
(mult_divides1 application-judgement "(divides(n))" divides nil )
(odd_times_odd_is_odd application-judgement "odd_int" integers nil )
(posint_times_posint_is_posint application-judgement "posint"
integers nil )
(strict_increasing? const-decl "bool" real_fun_preds "reals/" )
(nonzero_real nonempty-type-eq-decl nil reals nil )
(minus_div1 formula-decl nil real_props nil )
(minus_odd_is_odd application-judgement "odd_int" integers nil )
(exp_0 formula-decl nil ln_exp nil )
(real_minus_real_is_real application-judgement "real" reals nil )
(real_times_real_is_real application-judgement "real" reals nil )
(nzreal_div_nzreal_is_nzreal application-judgement "nzreal"
real_types nil )
(real_lt_is_strict_total_order name-judgement
"(strict_total_order?[real])" real_props nil )
(AND const-decl "[bool, bool -> bool]" booleans nil )
(real_gt_is_strict_total_order name-judgement
"(strict_total_order?[real])" real_props nil )
(real_ge_is_total_order name-judgement "(total_order?[real])"
real_props nil )
(div_mult_pos_lt2 formula-decl nil 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 )
(> const-decl "bool" reals nil )
(posreal nonempty-type-eq-decl nil real_types nil )
(sinh const-decl "real" hyperbolic nil ))
shostak))
(posreal_coth_TCC1 0
(posreal_coth_TCC1-1 nil 3253435075
("" (expand "coth" )
(("" (skosimp*)
(("" (typepred "tanh(px!1)" )
(("" (case "strict_increasing?(tanh)" )
(("1" (expand "strict_increasing?" )
(("1" (inst - "0" "px!1" )
(("1" (assert )
(("1" (expand "tanh" -1 1)
(("1" (expand "sinh" -1 1)
(("1" (expand "cosh" -1 1)
(("1" (rewrite "exp_0" )
(("1" (assert ) (("1" (cross-mult 1) nil nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2" (hide-all-but 1)
(("2" (expand "strict_increasing?" )
(("2" (skosimp*)
(("2" (expand "tanh" )
(("2" (rewrite "div_mult_pos_lt1" 1)
(("2"
(lemma "div_mult_pos_lt2"
("z" "sinh(y!1)*cosh(x!1)" "py" "cosh(y!1)" "x"
"sinh(x!1)" ))
(("2" (replace -1)
(("2" (hide -1)
(("2" (expand "sinh" )
(("2" (expand "cosh" )
(("2"
(assert )
(("2"
(lemma
"both_sides_times_pos_lt1"
("pz"
"4"
"x"
"(exp(x!1) - exp(-x!1)) / 2 * ((exp(-y!1) + exp(y!1)) / 2)"
"y"
"(exp(y!1) - exp(-y!1)) / 2 * ((exp(-x!1) + exp(x!1)) / 2)" ))
(("2"
(replace -1 1 rl)
(("2"
(hide -1)
(("2"
(case-replace
"(exp(x!1) - exp(-x!1)) / 2 * ((exp(-y!1) + exp(y!1)) / 2) * 4 = (exp(x!1) - exp(-x!1))*(exp(-y!1) + exp(y!1))" )
(("1"
(case-replace
"(exp(y!1) - exp(-y!1)) / 2 * ((exp(-x!1) + exp(x!1)) / 2) * 4 = (exp(y!1) - exp(-y!1))*(exp(-x!1) + exp(x!1))" )
(("1"
(hide -1 -2)
(("1"
(assert )
(("1"
(name-replace
"K1"
"-1 * (exp(-x!1) * exp(-y!1))" )
(("1"
(name-replace
"K2"
"exp(x!1) * exp(y!1)" )
(("1"
(lemma
"exp_sum"
("x"
"-x!1"
"y"
"y!1" ))
(("1"
(replace -1 1 rl)
(("1"
(lemma
"exp_sum"
("x"
"-y!1"
"y"
"x!1" ))
(("1"
(replace
-1
1
rl)
(("1"
(case-replace
"K1 - exp(-x!1 + y!1) + (exp(-y!1 + x!1) + K2) <
K1 - exp(-y!1 + x!1) + (exp(-x!1 + y!1) + K2) IFF exp(-y!1 + x!1) < exp(-x!1+y!1)")
(("1"
(hide
-1
-2
-3)
(("1"
(lemma
"exp_strict_increasing" )
(("1"
(expand
"strict_increasing?" )
(("1"
(inst
-
"x!1-y!1"
"y!1-x!1" )
(("1"
(assert )
nil
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(hide
-1
-2
2)
(("2"
(lemma
"both_sides_times_pos_lt1"
("x"
"exp(-y!1 + x!1)"
"y"
"exp(-x!1 + y!1)"
"pz"
"2" ))
(("2"
(replace
-1
1
rl)
(("2"
(assert )
(("2"
(name-replace
"K3"
"exp(-y!1 + x!1)" )
(("2"
(name-replace
"K4"
"exp(-x!1 + y!1)" )
(("2"
(hide
-1
-2)
(("2"
(grind)
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(hide -1 -2 2)
(("2"
(name-replace
"EXPX"
"(exp(-x!1) + exp(x!1))" )
(("2"
(name-replace
"EXPY"
"(exp(y!1)-exp(-y!1))" )
(("2"
(assert )
nil
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(hide -1 2)
(("2"
(name-replace
"EXPY"
"(exp(-y!1)+exp(y!1))" )
(("2"
(name-replace
"EXPX"
"(exp(x!1)-exp(-x!1))" )
(("2" (assert ) nil nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
((strict_increasing? const-decl "bool" real_fun_preds "reals/" )
(cosh const-decl "posreal_ge1" hyperbolic nil )
(odd_minus_odd_is_even application-judgement "even_int" integers
nil )
(rat_div_nzrat_is_rat application-judgement "rat" rationals nil )
(real_ge_is_total_order name-judgement "(total_order?[real])"
real_props nil )
(real_times_real_is_real application-judgement "real" reals nil )
(div_mult_pos_gt1 formula-decl nil extra_real_props nil )
(posreal_div_posreal_is_posreal application-judgement "posreal"
real_types nil )
(real_div_nzreal_is_real application-judgement "real" reals nil )
(posreal_plus_nnreal_is_posreal application-judgement "posreal"
real_types nil )
(real_minus_real_is_real application-judgement "real" reals nil )
(exp_0 formula-decl nil ln_exp nil )
(sinh const-decl "real" hyperbolic nil )
(real_lt_is_strict_total_order name-judgement
"(strict_total_order?[real])" real_props nil )
(minus_odd_is_odd application-judgement "odd_int" integers nil )
(real_gt_is_strict_total_order name-judgement
"(strict_total_order?[real])" real_props nil )
(nzreal_div_nzreal_is_nzreal application-judgement "nzreal"
real_types nil )
(div_mult_pos_lt2 formula-decl nil real_props nil )
(* const-decl "[numfield, numfield -> numfield]" number_fields nil )
(both_sides_times_pos_lt1 formula-decl nil real_props nil )
(- const-decl "[numfield, numfield -> numfield]" number_fields nil )
(= const-decl "[T, T -> boolean]" equalities nil )
(ln const-decl "real" ln_exp nil )
(exp const-decl "{py | x = ln(py)}" ln_exp nil )
(+ const-decl "[numfield, numfield -> numfield]" number_fields nil )
(nzreal_times_nzreal_is_nzreal application-judgement "nzreal"
real_types nil )
(posreal_times_posreal_is_posreal application-judgement "posreal"
real_types nil )
(real_plus_real_is_real application-judgement "real" reals nil )
(exp_strict_increasing formula-decl nil ln_exp nil )
(IFF const-decl "[bool, bool -> bool]" booleans nil )
(exp_sum formula-decl nil ln_exp nil )
(nzreal nonempty-type-eq-decl nil reals nil )
(minus_real_is_real application-judgement "real" reals nil )
(div_mult_pos_lt1 formula-decl nil real_props nil )
(posreal_ge1 nonempty-type-eq-decl nil hyperbolic nil )
(/= const-decl "boolean" notequal nil )
(nznum nonempty-type-eq-decl nil number_fields nil )
(/ const-decl "[numfield, nznum -> numfield]" number_fields nil )
(boolean nonempty-type-decl nil booleans nil )
(bool nonempty-type-eq-decl nil booleans nil )
(NOT const-decl "[bool -> bool]" booleans nil )
(number nonempty-type-decl nil numbers nil )
(number_field_pred const-decl "[number -> boolean]" number_fields
nil )
(number_field nonempty-type-from-decl nil number_fields nil )
(real_pred const-decl "[number_field -> boolean]" reals nil )
(real nonempty-type-from-decl nil reals nil )
(< const-decl "bool" reals nil )
(numfield nonempty-type-eq-decl nil number_fields nil )
(- const-decl "[numfield -> numfield]" number_fields nil )
(AND const-decl "[bool, bool -> bool]" booleans nil )
(real_abs_lt1 nonempty-type-eq-decl nil hyperbolic nil )
(tanh const-decl "real_abs_lt1" hyperbolic 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 )
(coth const-decl "real_abs_gt1" hyperbolic nil ))
shostak))
(sinh_strict_increasing 0
(sinh_strict_increasing-1 nil 3253386551
("" (expand "strict_increasing?" )
(("" (expand "sinh" )
(("" (skosimp*)
((""
(lemma "both_sides_div_pos_lt1"
("x" "exp(x!1)-exp(-x!1)" "y" "exp(y!1)-exp(-y!1)" "pz"
"2" ))
(("" (lemma "exp_strict_increasing" )
(("" (expand "strict_increasing?" )
(("" (inst-cp - "x!1" "y!1" )
(("" (inst - "-y!1" "-x!1" )
(("" (name-replace "EPX" "exp(x!1)" )
(("" (name-replace "EMX" "exp(-x!1)" )
(("" (name-replace "EMY" "exp(-y!1)" )
(("" (name-replace "EPY" "exp(y!1)" )
((""
(lemma "both_sides_times_neg_lt1"
("x" "y!1" "y" "x!1" "nz" "-1" ))
(("" (assert ) nil nil )) nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
((real_minus_real_is_real application-judgement "real" reals nil )
(sinh const-decl "real" hyperbolic nil )
(- const-decl "[numfield -> numfield]" number_fields nil )
(exp const-decl "{py | x = ln(py)}" ln_exp nil )
(ln const-decl "real" ln_exp nil )
(= const-decl "[T, T -> boolean]" equalities nil )
(- const-decl "[numfield, numfield -> numfield]" number_fields nil )
(numfield nonempty-type-eq-decl nil number_fields 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 )
(both_sides_div_pos_lt1 formula-decl nil real_props nil )
(minus_real_is_real application-judgement "real" reals nil )
(real_times_real_is_real application-judgement "real" reals nil )
(real_div_nzreal_is_real application-judgement "real" reals nil )
(real_lt_is_strict_total_order name-judgement
"(strict_total_order?[real])" real_props nil )
(negreal nonempty-type-eq-decl nil real_types nil )
(< const-decl "bool" reals nil )
(nonpos_real nonempty-type-eq-decl nil real_types nil )
(<= const-decl "bool" reals nil )
(both_sides_times_neg_lt1 formula-decl nil real_props nil )
(minus_odd_is_odd application-judgement "odd_int" integers nil )
(exp_strict_increasing formula-decl nil ln_exp nil )
(strict_increasing? const-decl "bool" real_fun_preds "reals/" ))
shostak))
(cosh_strict_increasing 0
(cosh_strict_increasing-1 nil 3253395203
("" (expand "strict_increasing?" )
(("" (skosimp*)
(("" (typepred "x!1" )
(("" (typepred "y!1" )
(("" (expand "nnreal_cosh" )
(("" (expand "cosh" )
((""
(lemma "both_sides_div_pos_lt1"
("x" "exp(-x!1) + exp(x!1)" "y" "exp(-y!1) + exp(y!1)"
"pz" "2" ))
(("" (replace -1 1)
(("" (lemma "exp_diff" ("x" "0" "y" "x!1" ))
(("" (rewrite "exp_0" )
(("" (replace -1 1)
(("" (lemma "exp_diff" ("x" "0" "y" "y!1" ))
(("" (rewrite "exp_0" )
(("" (replace -1 1)
((""
(lemma
"both_sides_times_pos_lt1"
("x"
"1/exp(x!1)+exp(x!1)"
"y"
"1/exp(y!1)+exp(y!1)"
"pz"
"exp(x!1)*exp(y!1)" ))
((""
(replace -1 1 rl)
((""
(simplify 1)
((""
(lemma "div_cancel1" )
((""
(inst-cp - "exp(x!1)" "1" )
((""
(inst - "exp(y!1)" "1" )
((""
(lemma
"exp_strict_increasing" )
((""
(expand
"strict_increasing?" )
((""
(inst - "x!1" "y!1" )
((""
(assert )
((""
(lemma
"exp_increasing" )
((""
(expand
"increasing?" )
((""
(inst
-
"0"
"x!1" )
((""
(assert )
((""
(rewrite
"exp_0" )
((""
(name-replace
"EPX"
"exp(x!1)" )
((""
(name-replace
"EPY"
"exp(y!1)" )
((""
(hide
(-5
-6
-7
1))
((""
(lemma
"posreal_times_posreal_is_posreal"
("px"
"EPX*EPY-1"
"py"
"EPY-EPX" ))
(("1"
(assert )
nil
nil )
("2"
(assert )
nil
nil )
("3"
(lemma
"lt_times_lt_pos1" )
(("3"
(inst
-
"1"
"1"
"EPY"
"EPX" )
(("3"
(assert )
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
((cosh const-decl "posreal_ge1" hyperbolic nil )
(exp_0 formula-decl nil ln_exp nil )
(minus_odd_is_odd application-judgement "odd_int" integers nil )
(div_cancel1 formula-decl nil real_props nil )
(real_ge_is_total_order name-judgement "(total_order?[real])"
real_props nil )
(real_minus_real_is_real application-judgement "real" reals nil )
(increasing? const-decl "bool" real_fun_preds "reals/" )
(real_le_is_total_order name-judgement "(total_order?[real])"
real_props nil )
(real_times_real_is_real application-judgement "real" reals nil )
(posreal_times_posreal_is_posreal judgement-tcc nil real_types nil )
(- const-decl "[numfield, numfield -> numfield]" number_fields nil )
(real_gt_is_strict_total_order name-judgement
"(strict_total_order?[real])" real_props nil )
(AND const-decl "[bool, bool -> bool]" booleans nil )
(lt_times_lt_pos1 formula-decl nil real_props nil )
(exp_increasing formula-decl nil ln_exp nil )
(exp_strict_increasing formula-decl nil ln_exp nil )
(nonzero_real nonempty-type-eq-decl nil reals nil )
(real_lt_is_strict_total_order name-judgement
"(strict_total_order?[real])" real_props nil )
(/ const-decl "[numfield, nznum -> numfield]" number_fields nil )
(nznum nonempty-type-eq-decl nil number_fields nil )
(/= const-decl "boolean" notequal nil )
(* const-decl "[numfield, numfield -> numfield]" number_fields nil )
(both_sides_times_pos_lt1 formula-decl nil real_props nil )
(posreal_times_posreal_is_posreal application-judgement "posreal"
real_types nil )
(posreal_div_posreal_is_posreal application-judgement "posreal"
real_types nil )
(exp_diff formula-decl nil ln_exp nil )
(minus_real_is_real application-judgement "real" reals nil )
(posreal_plus_nnreal_is_posreal application-judgement "posreal"
real_types nil )
(both_sides_div_pos_lt1 formula-decl nil real_props 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 )
(numfield nonempty-type-eq-decl nil number_fields nil )
(+ const-decl "[numfield, numfield -> numfield]" number_fields nil )
(= const-decl "[T, T -> boolean]" equalities nil )
(ln const-decl "real" ln_exp nil )
(exp const-decl "{py | x = ln(py)}" ln_exp nil )
(- const-decl "[numfield -> numfield]" number_fields nil )
(nnreal_cosh const-decl "posreal_ge1" hyperbolic nil )
(boolean nonempty-type-decl nil booleans nil )
(bool nonempty-type-eq-decl nil booleans nil )
(NOT const-decl "[bool -> bool]" booleans nil )
(number nonempty-type-decl nil numbers nil )
(number_field_pred const-decl "[number -> boolean]" number_fields
nil )
(number_field nonempty-type-from-decl nil number_fields nil )
(real_pred const-decl "[number_field -> boolean]" reals nil )
(real nonempty-type-from-decl nil reals nil )
(>= const-decl "bool" reals nil )
(nnreal type-eq-decl nil real_types nil )
(strict_increasing? const-decl "bool" real_fun_preds "reals/" ))
shostak))
(tanh_strict_increasing 0
(tanh_strict_increasing-1 nil 3253525103
("" (lemma "exp_strict_increasing" )
(("" (expand "strict_increasing?" )
(("" (expand "tanh" )
(("" (expand "sinh" )
(("" (expand "cosh" )
(("" (skosimp*)
(("" (rewrite "div_div1" 1)
(("" (rewrite "div_div1" 1)
(("" (rewrite "div_cancel1" 1)
(("" (rewrite "div_cancel1" 1)
(("" (case "exp(-x!1)+exp(x!1) > 0" )
(("1" (case "exp(-y!1)+exp(y!1) > 0" )
(("1" (lemma "div_mult_pos_lt1" )
(("1"
(inst - "exp(-x!1) + exp(x!1)"
"(exp(y!1) - exp(-y!1)) / (exp(-y!1) + exp(y!1))"
"exp(x!1) - exp(-x!1)" )
(("1"
(replace -1 1)
(("1"
(lemma "div_mult_pos_lt2" )
(("1"
(inst
-
"exp(-y!1) + exp(y!1)"
"exp(x!1) - exp(-x!1)"
"(exp(y!1) - exp(-y!1))*(exp(-x!1) + exp(x!1))" )
(("1"
(replace -1 1)
(("1"
(hide -1 -2)
(("1"
(inst-cp - "x!1" "y!1" )
(("1"
(inst-cp - "-y!1" "-x!1" )
(("1"
(inst
-
"x!1-y!1"
"y!1-x!1" )
(("1"
(lemma "exp_sum" )
(("1"
(inst-cp
-
"x!1"
"-y!1" )
(("1"
(inst
-
"y!1"
"-x!1" )
(("1"
(assert )
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2" (assert ) nil nil ))
nil )
("2" (assert ) nil nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
((strict_increasing? const-decl "bool" real_fun_preds "reals/" )
(real_minus_real_is_real application-judgement "real" reals nil )
(real_div_nzreal_is_real application-judgement "real" reals nil )
(sinh const-decl "real" hyperbolic nil )
(div_mult_pos_lt2 formula-decl nil real_props nil )
(nzreal_times_nzreal_is_nzreal application-judgement "nzreal"
real_types nil )
(real_lt_is_strict_total_order name-judgement
"(strict_total_order?[real])" real_props nil )
(real_gt_is_strict_total_order name-judgement
"(strict_total_order?[real])" real_props nil )
(posreal_times_posreal_is_posreal application-judgement "posreal"
real_types nil )
(real_plus_real_is_real application-judgement "real" reals nil )
(exp_sum formula-decl nil ln_exp nil )
(* const-decl "[numfield, numfield -> numfield]" number_fields nil )
(div_mult_pos_lt1 formula-decl nil real_props nil )
(div_cancel1 formula-decl nil real_props nil )
(real_times_real_is_real application-judgement "real" reals 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 )
(- const-decl "[numfield -> numfield]" number_fields nil )
(exp const-decl "{py | x = ln(py)}" ln_exp nil )
(ln const-decl "real" ln_exp nil )
(= const-decl "[T, T -> boolean]" equalities 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 )
(+ const-decl "[numfield, numfield -> numfield]" 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 )
(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 )
(div_div1 formula-decl nil real_props nil )
(minus_real_is_real application-judgement "real" reals nil )
(cosh const-decl "posreal_ge1" hyperbolic nil )
(posreal_div_posreal_is_posreal application-judgement "posreal"
real_types nil )
(posreal_plus_nnreal_is_posreal application-judgement "posreal"
real_types nil )
(tanh const-decl "real_abs_lt1" hyperbolic nil )
(exp_strict_increasing formula-decl nil ln_exp nil ))
shostak))
(csch_strict_decreasing 0
(csch_strict_decreasing-1 nil 3253526140
("" (lemma "sinh_strict_increasing" )
(("" (expand "strict_decreasing?" )
(("" (skosimp*)
(("" (typepred "x!1" )
(("" (expand "strict_increasing?" )
(("" (expand "posreal_csch" )
(("" (expand "csch" )
(("" (inst-cp - "x!1" "y!1" )
(("" (inst - "0" "x!1" )
(("" (name-replace "SX" "sinh(x!1)" )
(("" (name-replace "SY" "sinh(y!1)" )
(("" (expand "sinh" )
(("" (rewrite "exp_0" )
(("" (assert )
((""
(lemma
"both_sides_div_pos_lt2"
("pz" "1" "py" "SX" "px" "SY" ))
(("" (assert ) nil nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
((strict_decreasing? const-decl "bool" real_fun_preds "reals/" )
(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 )
(real nonempty-type-from-decl nil reals nil )
(real_pred const-decl "[number_field -> boolean]" reals nil )
(number_field nonempty-type-from-decl nil number_fields nil )
(number_field_pred const-decl "[number -> boolean]" number_fields
nil )
(number nonempty-type-decl nil numbers nil )
(NOT const-decl "[bool -> bool]" booleans nil )
(bool nonempty-type-eq-decl nil booleans nil )
(boolean nonempty-type-decl nil booleans nil )
(posreal_csch const-decl "posreal" hyperbolic nil )
(sinh const-decl "real" hyperbolic nil )
(= const-decl "[T, T -> boolean]" equalities nil )
(real_minus_real_is_real application-judgement "real" reals nil )
(nzreal_div_nzreal_is_nzreal application-judgement "nzreal"
real_types nil )
(odd_minus_odd_is_even application-judgement "even_int" integers
nil )
(rat_div_nzrat_is_rat application-judgement "rat" rationals nil )
(real_lt_is_strict_total_order name-judgement
"(strict_total_order?[real])" real_props nil )
(real_gt_is_strict_total_order name-judgement
"(strict_total_order?[real])" real_props nil )
(real_ge_is_total_order name-judgement "(total_order?[real])"
real_props nil )
(AND const-decl "[bool, bool -> bool]" booleans nil )
(both_sides_div_pos_lt2 formula-decl nil real_props nil )
(minus_odd_is_odd application-judgement "odd_int" integers nil )
(exp_0 formula-decl nil ln_exp nil )
(csch const-decl "real" hyperbolic nil )
(strict_increasing? const-decl "bool" real_fun_preds "reals/" )
(sinh_strict_increasing formula-decl nil hyperbolic nil ))
shostak))
(sech_strict_decreasing 0
(sech_strict_decreasing-1 nil 3253526566
("" (expand "strict_decreasing?" )
(("" (skosimp*)
(("" (typepred "x!1" )
(("" (expand "nnreal_sech" )
(("" (expand "sech" )
(("" (lemma "cosh_strict_increasing" )
(("" (expand "strict_increasing?" )
(("" (inst - "x!1" "y!1" )
(("" (expand "nnreal_cosh" )
((""
(lemma "both_sides_div_pos_lt2"
("pz" "1" "py" "cosh(x!1)" "px" "cosh(y!1)" ))
(("1" (assert ) nil nil ) ("2" (assert ) nil nil )
("3" (assert ) nil nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
((nnreal_sech const-decl "posreal_le1" hyperbolic nil )
(cosh_strict_increasing formula-decl nil hyperbolic nil )
(both_sides_div_pos_lt2 formula-decl nil real_props 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 )
(posreal_ge1 nonempty-type-eq-decl nil hyperbolic nil )
(cosh const-decl "posreal_ge1" hyperbolic 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 )
(AND const-decl "[bool, bool -> bool]" booleans nil )
(real_lt_is_strict_total_order name-judgement
"(strict_total_order?[real])" real_props nil )
(nzreal_div_nzreal_is_nzreal application-judgement "nzreal"
real_types nil )
(nnreal_cosh const-decl "posreal_ge1" hyperbolic nil )
(strict_increasing? const-decl "bool" real_fun_preds "reals/" )
(sech const-decl "posreal_le1" hyperbolic nil )
(boolean nonempty-type-decl nil booleans nil )
(bool nonempty-type-eq-decl nil booleans nil )
(NOT const-decl "[bool -> bool]" booleans nil )
(number nonempty-type-decl nil numbers nil )
(number_field_pred const-decl "[number -> boolean]" number_fields
nil )
(number_field nonempty-type-from-decl nil number_fields nil )
(real_pred const-decl "[number_field -> boolean]" reals nil )
(real nonempty-type-from-decl nil reals nil )
(>= const-decl "bool" reals nil )
(nnreal type-eq-decl nil real_types nil )
(strict_decreasing? const-decl "bool" real_fun_preds "reals/" ))
shostak))
(coth_strict_decreasing 0
(coth_strict_decreasing-1 nil 3253526884
("" (expand "strict_decreasing?" )
(("" (skosimp*)
(("" (expand "posreal_coth" )
(("" (expand "coth" )
(("" (lemma "tanh_strict_increasing" )
(("" (expand "strict_increasing?" )
(("" (inst-cp - "0" "x!1" )
(("" (inst - "x!1" "y!1" )
(("" (assert )
(("" (name-replace "TX" "tanh(x!1)" )
(("" (name-replace "TY" "tanh(y!1)" )
(("" (expand "tanh" )
(("" (expand "cosh" )
(("" (expand "sinh" )
((""
(rewrite "exp_0" )
((""
(lemma
"both_sides_div_pos_lt2"
("pz" "1" "py" "TX" "px" "TY" ))
(("1" (assert ) nil nil )
("2" (assert ) nil nil )
("3" (assert ) nil nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
((coth const-decl "real_abs_gt1" hyperbolic nil )
(strict_increasing? const-decl "bool" real_fun_preds "reals/" )
(= const-decl "[T, T -> boolean]" equalities nil )
(AND const-decl "[bool, bool -> bool]" booleans nil )
(< const-decl "bool" reals nil )
(numfield nonempty-type-eq-decl nil number_fields nil )
(- const-decl "[numfield -> numfield]" number_fields nil )
(real_abs_lt1 nonempty-type-eq-decl nil hyperbolic nil )
(tanh const-decl "real_abs_lt1" hyperbolic nil )
(sinh const-decl "real" hyperbolic nil )
(both_sides_div_pos_lt2 formula-decl nil real_props 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 )
(rat_div_nzrat_is_rat application-judgement "rat" rationals nil )
(odd_minus_odd_is_even application-judgement "even_int" integers
nil )
(minus_odd_is_odd application-judgement "odd_int" integers nil )
(posreal_div_posreal_is_posreal application-judgement "posreal"
real_types nil )
(real_div_nzreal_is_real application-judgement "real" reals nil )
(posreal_plus_nnreal_is_posreal application-judgement "posreal"
real_types nil )
(real_minus_real_is_real application-judgement "real" reals nil )
(exp_0 formula-decl nil ln_exp nil )
(cosh const-decl "posreal_ge1" hyperbolic nil )
(real_lt_is_strict_total_order name-judgement
"(strict_total_order?[real])" real_props nil )
(nzreal_div_nzreal_is_nzreal application-judgement "nzreal"
real_types 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 )
(tanh_strict_increasing formula-decl nil hyperbolic nil )
(posreal_coth const-decl "posreal_gt1" hyperbolic nil )
(strict_decreasing? const-decl "bool" real_fun_preds "reals/" ))
shostak))
(sinh_0 0
(sinh_0-1 nil 3253386258
("" (expand "sinh" )
(("" (rewrite "exp_0" ) (("" (assert ) nil nil )) nil )) nil )
((exp_0 formula-decl nil ln_exp nil )
(real_minus_real_is_real application-judgement "real" reals nil )
(minus_odd_is_odd application-judgement "odd_int" integers nil )
(rat_div_nzrat_is_rat application-judgement "rat" rationals nil )
(odd_minus_odd_is_even application-judgement "even_int" integers
nil )
(sinh const-decl "real" hyperbolic nil ))
shostak))
(cosh_0 0
(cosh_0-1 nil 3253386284
("" (expand "cosh" ) (("" (rewrite "exp_0" ) nil nil )) nil )
((posreal_plus_nnreal_is_posreal application-judgement "posreal"
real_types nil )
(exp_0 formula-decl nil ln_exp nil )
(cosh const-decl "posreal_ge1" hyperbolic nil ))
shostak))
(tanh_0 0
(tanh_0-1 nil 3253452832
("" (expand "tanh" )
(("" (rewrite "sinh_0" ) (("" (assert ) nil nil )) nil )) nil )
((sinh_0 formula-decl nil hyperbolic nil )
(real_div_nzreal_is_real application-judgement "real" reals nil )
(tanh const-decl "real_abs_lt1" hyperbolic nil ))
shostak))
(sech_0 0
(sech_0-1 nil 3253452862
("" (expand "sech" )
(("" (rewrite "cosh_0" ) (("" (assert ) nil nil )) nil )) nil )
((cosh_0 formula-decl nil hyperbolic nil )
(sech const-decl "posreal_le1" hyperbolic nil ))
shostak))
(cosh_sinh_one 0
(cosh_sinh_one-1 nil 3253453151
("" (skosimp*)
(("" (expand "cosh" )
(("" (expand "sinh" )
(("" (lemma "exp_sum" ("x" "x!1" "y" "-x!1" ))
(("" (rewrite "exp_0" -1)
(("" (name-replace "EPX" "exp(x!1)" )
(("" (name-replace "EMX" "exp(-x!1)" )
(("" (grind) nil nil )) nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
((posreal_plus_nnreal_is_posreal application-judgement "posreal"
real_types nil )
(cosh const-decl "posreal_ge1" hyperbolic 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 )
(exp_sum formula-decl nil ln_exp nil )
(minus_real_is_real application-judgement "real" reals nil )
(exp const-decl "{py | x = ln(py)}" ln_exp nil )
(ln const-decl "real" ln_exp 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 )
(= const-decl "[T, T -> boolean]" equalities nil )
(minus_odd_is_odd application-judgement "odd_int" integers nil )
(sq const-decl "nonneg_real" sq "reals/" )
(real_times_real_is_real application-judgement "real" reals nil )
(real_div_nzreal_is_real application-judgement "real" reals nil )
(posreal_div_posreal_is_posreal application-judgement "posreal"
real_types nil )
(posreal_times_posreal_is_posreal application-judgement "posreal"
real_types nil )
(sq_nz_pos application-judgement "posreal" sq "reals/" )
(exp_0 formula-decl nil ln_exp nil )
(sinh const-decl "real" hyperbolic nil )
(real_minus_real_is_real application-judgement "real" reals nil ))
shostak))
(tanh_sech_one 0
(tanh_sech_one-1 nil 3253453367
("" (skosimp*)
(("" (expand "tanh" )
(("" (expand "sech" )
(("" (typepred "cosh(x!1)" )
(("" (lemma "cosh_sinh_one" ("x" "x!1" ))
(("" (lemma "sq_div" ("d" "cosh(x!1)" ))
(("" (inst-cp - "1" )
(("" (inst - "sinh(x!1)" )
(("" (assert )
(("" (replace -1)
(("" (replace -2)
((""
(lemma "both_sides_div1"
("n0z" "sq(cosh(x!1))" "x"
"sq(cosh(x!1)) - sq(sinh(x!1))" "y" "1" ))
((""
(lemma "minus_div2"
("x" "sq(cosh(x!1))" "y" "sq(sinh(x!1))"
"n0x" "sq(cosh(x!1))" ))
(("" (replace -2 -5 rl)
((""
(rewrite "sq_1" )
(("" (assert ) nil nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
((tanh const-decl "real_abs_lt1" hyperbolic nil )
(cosh const-decl "posreal_ge1" hyperbolic nil )
(posreal_ge1 nonempty-type-eq-decl nil hyperbolic nil )
(>= const-decl "bool" reals nil )
(real nonempty-type-from-decl nil reals nil )
(real_pred const-decl "[number_field -> boolean]" reals nil )
(number_field nonempty-type-from-decl nil number_fields nil )
(number_field_pred const-decl "[number -> boolean]" number_fields
nil )
(number nonempty-type-decl nil numbers nil )
(NOT const-decl "[bool -> bool]" booleans nil )
(bool nonempty-type-eq-decl nil booleans nil )
(boolean nonempty-type-decl nil booleans nil )
(sq_div formula-decl nil sq "reals/" )
(sinh const-decl "real" hyperbolic nil )
(both_sides_div1 formula-decl nil real_props nil )
(/= const-decl "boolean" notequal nil )
(nonzero_real nonempty-type-eq-decl nil reals nil )
(nonneg_real nonempty-type-eq-decl nil real_types nil )
(sq const-decl "nonneg_real" sq "reals/" )
(numfield nonempty-type-eq-decl nil number_fields nil )
(- const-decl "[numfield, numfield -> numfield]" number_fields nil )
(real_plus_real_is_real application-judgement "real" reals nil )
(minus_div2 formula-decl nil real_props nil )
(sq_1 formula-decl nil sq "reals/" )
(real_minus_real_is_real application-judgement "real" reals nil )
(real_ge_is_total_order name-judgement "(total_order?[real])"
real_props nil )
(posreal_plus_nnreal_is_posreal application-judgement "posreal"
real_types nil )
(sq_nz_pos application-judgement "posreal" sq "reals/" )
(nzreal_div_nzreal_is_nzreal application-judgement "nzreal"
real_types nil )
(real_div_nzreal_is_real application-judgement "real" reals nil )
(cosh_sinh_one formula-decl nil hyperbolic nil )
(sech const-decl "posreal_le1" hyperbolic nil ))
shostak))
(coth_csch_one 0
(coth_csch_one-1 nil 3253454037
("" (expand "coth" )
(("" (expand "csch" )
(("" (skosimp*)
(("" (expand "tanh" )
(("" (case "sinh(n0x!1) /= 0" )
(("1" (rewrite "div_div1" )
(("1" (lemma "sq_div" ("d" "sinh(n0x!1)" ))
(("1" (replace -2 -1)
(("1" (inst-cp - "cosh(n0x!1)" )
(("1" (inst - "1" )
(("1" (rewrite "sq_1" )
(("1" (lemma "cosh_sinh_one" ("x" "n0x!1" ))
(("1"
(lemma "both_sides_div1"
("x" "sq(cosh(n0x!1)) - sq(sinh(n0x!1))"
"y" "1" "n0z" "sq(sinh(n0x!1))" ))
(("1"
(lemma "minus_div2"
("n0x"
"sq(sinh(n0x!1))"
"x"
"sq(cosh(n0x!1))"
"y"
"sq(sinh(n0x!1))" ))
(("1"
(rewrite "div_simp" -1)
(("1" (assert ) nil nil ))
nil ))
nil )
("2" (lemma "sq_eq_0" ("a" "sinh(n0x!1)" ))
(("2" (assert ) nil nil )) nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2" (lemma "sinh_strict_increasing" )
(("2" (expand "strict_increasing?" )
(("2" (lemma "sinh_0" )
(("2" (case "n0x!1>0" )
(("1" (inst - "0" "n0x!1" ) (("1" (assert ) nil nil ))
nil )
("2" (inst - "n0x!1" "0" ) (("2" (assert ) nil nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
((csch const-decl "real" hyperbolic nil )
(real_div_nzreal_is_real application-judgement "real" reals nil )
(tanh const-decl "real_abs_lt1" hyperbolic nil )
(sinh_strict_increasing formula-decl nil hyperbolic nil )
(sinh_0 formula-decl nil hyperbolic 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 )
(> const-decl "bool" reals nil )
(strict_increasing? const-decl "bool" real_fun_preds "reals/" )
(div_div1 formula-decl nil real_props nil )
(nonzero_real nonempty-type-eq-decl nil reals nil )
(bool nonempty-type-eq-decl nil booleans nil )
(>= const-decl "bool" reals nil )
(posreal_ge1 nonempty-type-eq-decl nil hyperbolic nil )
(cosh const-decl "posreal_ge1" hyperbolic nil )
(real_times_real_is_real application-judgement "real" reals nil )
(cosh_sinh_one formula-decl nil hyperbolic nil )
(minus_div2 formula-decl nil real_props nil )
(nzreal_div_nzreal_is_nzreal application-judgement "nzreal"
real_types nil )
(div_simp formula-decl nil real_props nil )
(- const-decl "[numfield, numfield -> numfield]" number_fields nil )
(numfield nonempty-type-eq-decl nil number_fields nil )
(sq const-decl "nonneg_real" sq "reals/" )
(nonneg_real nonempty-type-eq-decl nil real_types nil )
(both_sides_div1 formula-decl nil real_props nil )
(real_minus_real_is_real application-judgement "real" reals nil )
(sq_1 formula-decl nil sq "reals/" )
(sq_div formula-decl nil sq "reals/" )
(number nonempty-type-decl nil numbers nil )
(boolean nonempty-type-decl nil booleans nil )
(/= const-decl "boolean" notequal 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 )
(sinh const-decl "real" hyperbolic nil )
(nzreal nonempty-type-eq-decl nil reals nil )
(coth const-decl "real_abs_gt1" hyperbolic nil )
(sq_nz_pos application-judgement "posreal" sq "reals/" ))
shostak))
(cosh_plus_sinh 0
(cosh_plus_sinh-1 nil 3253453296
("" (expand "cosh" )
(("" (expand "sinh" ) (("" (propax) nil nil )) nil )) nil )
((real_minus_real_is_real application-judgement "real" reals nil )
(real_div_nzreal_is_real application-judgement "real" reals nil )
(sinh const-decl "real" hyperbolic nil )
(cosh const-decl "posreal_ge1" hyperbolic nil )
(posreal_div_posreal_is_posreal application-judgement "posreal"
real_types nil )
(posreal_plus_nnreal_is_posreal application-judgement "posreal"
real_types nil ))
shostak))
(cosh_minus_sinh 0
(cosh_minus_sinh-1 nil 3253453312
("" (expand "cosh" )
(("" (expand "sinh" ) (("" (propax) nil nil )) nil )) nil )
((real_minus_real_is_real application-judgement "real" reals nil )
(real_div_nzreal_is_real application-judgement "real" reals nil )
(sinh const-decl "real" hyperbolic nil )
(cosh const-decl "posreal_ge1" hyperbolic nil )
(posreal_div_posreal_is_posreal application-judgement "posreal"
real_types nil )
(posreal_plus_nnreal_is_posreal application-judgement "posreal"
real_types nil ))
shostak))
(sinh_neg 0
(sinh_neg-1 nil 3253452903
("" (expand "sinh" ) (("" (propax) nil nil )) nil )
((sinh const-decl "real" hyperbolic nil )
(real_div_nzreal_is_real application-judgement "real" reals nil )
(real_minus_real_is_real application-judgement "real" reals nil )
(minus_real_is_real application-judgement "real" reals nil ))
shostak))
(cosh_neg 0
(cosh_neg-1 nil 3253452917
("" (expand "cosh" ) (("" (propax) nil nil )) nil )
((cosh const-decl "posreal_ge1" hyperbolic nil )
(posreal_plus_nnreal_is_posreal application-judgement "posreal"
real_types nil )
(minus_real_is_real application-judgement "real" reals nil ))
shostak))
(tanh_neg 0
(tanh_neg-1 nil 3253452927
("" (expand "tanh" )
(("" (skosimp*)
(("" (rewrite "sinh_neg" )
(("" (rewrite "cosh_neg" ) (("" (assert ) nil nil )) nil )) nil ))
nil ))
nil )
((cosh_neg formula-decl nil hyperbolic nil )
(minus_real_is_real application-judgement "real" reals nil )
(real nonempty-type-from-decl nil reals nil )
(real_pred const-decl "[number_field -> boolean]" reals nil )
(number_field nonempty-type-from-decl nil number_fields nil )
(number_field_pred const-decl "[number -> boolean]" number_fields
nil )
(boolean nonempty-type-decl nil booleans nil )
(number nonempty-type-decl nil numbers nil )
(sinh_neg formula-decl nil hyperbolic nil )
(tanh const-decl "real_abs_lt1" hyperbolic nil )
(real_div_nzreal_is_real application-judgement "real" reals nil ))
shostak))
(csch_neg 0
(csch_neg-1 nil 3253452986
("" (expand "csch" )
(("" (skosimp*)
(("" (rewrite "sinh_neg" ) (("" (assert ) nil nil )) nil )) nil ))
nil )
((minus_nzreal_is_nzreal application-judgement "nzreal" real_types
nil )
(minus_real_is_real application-judgement "real" reals 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 )
(sinh_neg formula-decl nil hyperbolic nil )
(csch const-decl "real" hyperbolic nil )
(nzreal_div_nzreal_is_nzreal application-judgement "nzreal"
real_types nil ))
shostak))
(sech_neg 0
(sech_neg-1 nil 3253453063
("" (skosimp*)
(("" (expand "sech" ) (("" (rewrite "cosh_neg" ) nil nil )) nil )) nil )
((sech const-decl "posreal_le1" hyperbolic 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 )
(cosh_neg formula-decl nil hyperbolic nil ))
shostak))
(coth_neg 0
(coth_neg-1 nil 3253453083
("" (skosimp*)
(("" (expand "coth" )
(("" (rewrite "tanh_neg" ) (("" (assert ) nil nil )) nil )) nil ))
nil )
((coth const-decl "real_abs_gt1" hyperbolic nil )
(minus_nzreal_is_nzreal application-judgement "nzreal" real_types
nil )
(minus_real_is_real application-judgement "real" reals nil )
(nzreal_div_nzreal_is_nzreal application-judgement "nzreal"
real_types 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 )
(tanh_neg formula-decl nil hyperbolic nil ))
shostak))
(sinh_sum 0
(sinh_sum-1 nil 3253474598
("" (skosimp*)
(("" (expand "sinh" )
(("" (expand "cosh" )
(("" (lemma "exp_sum" ("x" "x!1" "y" "y!1" ))
(("" (lemma "exp_diff" ("x" "0" ))
(("" (rewrite "exp_0" )
(("" (inst-cp - "x!1+y!1" )
(("" (inst-cp - "y!1" )
(("" (inst - "x!1" )
(("" (replace -1)
(("" (replace -2)
(("" (replace -3)
(("" (lemma "exp_sum" ("x" "x!1" "y" "y!1" ))
(("" (replace -1 1)
((""
(name-replace "EPX" "exp(x!1)" )
((""
(name-replace "EPY" "exp(y!1)" )
((""
(hide-all-but 1)
(("" (grind) nil nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
((real_plus_real_is_real application-judgement "real" reals nil )
(real_minus_real_is_real application-judgement "real" reals nil )
(real_div_nzreal_is_real application-judgement "real" reals nil )
(sinh const-decl "real" hyperbolic 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 )
(exp_sum formula-decl nil ln_exp nil )
(exp_0 formula-decl nil ln_exp nil )
(minus_odd_is_odd application-judgement "odd_int" integers nil )
(real_times_real_is_real application-judgement "real" reals nil )
(posreal_times_posreal_is_posreal application-judgement "posreal"
real_types nil )
(= const-decl "[T, T -> boolean]" equalities 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 )
(ln const-decl "real" ln_exp nil )
(exp const-decl "{py | x = ln(py)}" ln_exp nil )
(numfield nonempty-type-eq-decl nil number_fields nil )
(+ const-decl "[numfield, numfield -> numfield]" number_fields nil )
(exp_diff formula-decl nil ln_exp nil )
(cosh const-decl "posreal_ge1" hyperbolic nil )
(posreal_div_posreal_is_posreal application-judgement "posreal"
real_types nil )
(posreal_plus_nnreal_is_posreal application-judgement "posreal"
real_types nil ))
shostak))
(sinh_diff 0
(sinh_diff-1 nil 3270964764
("" (skosimp*)
(("" (lemma "sinh_sum" ("x" "x!1" "y" "-y!1" ))
(("" (rewrite "sinh_neg" )
(("" (rewrite "cosh_neg" ) (("" (assert ) nil nil )) nil )) nil ))
nil ))
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 )
(sinh_sum formula-decl nil hyperbolic nil )
(minus_real_is_real application-judgement "real" reals nil )
(cosh_neg formula-decl nil hyperbolic nil )
(real_plus_real_is_real application-judgement "real" reals nil )
(real_minus_real_is_real application-judgement "real" reals nil )
(real_times_real_is_real application-judgement "real" reals nil )
(sinh_neg formula-decl nil hyperbolic nil ))
shostak))
(cosh_sum 0
(cosh_sum-1 nil 3253475454
("" (skosimp*)
(("" (expand "cosh" )
(("" (expand "sinh" )
(("" (lemma "exp_diff" ("x" "0" ))
(("" (inst-cp - "x!1" )
(("" (inst-cp - "y!1" )
(("" (inst - "x!1+y!1" )
(("" (lemma "exp_sum" ("x" "x!1" "y" "y!1" ))
(("" (replace -1)
(("" (rewrite "exp_0" )
(("" (replace -2 1)
(("" (replace -3)
(("" (replace -4)
(("" (hide-all-but 1)
((""
(name-replace "EPX" "exp(x!1)" )
((""
(name-replace "EPY" "exp(y!1)" )
(("" (grind) nil nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
((real_plus_real_is_real application-judgement "real" reals nil )
(posreal_plus_nnreal_is_posreal application-judgement "posreal"
real_types nil )
(posreal_div_posreal_is_posreal application-judgement "posreal"
real_types nil )
(cosh const-decl "posreal_ge1" hyperbolic 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 )
(exp_diff formula-decl nil ln_exp nil )
(exp_sum formula-decl nil ln_exp nil )
(exp_0 formula-decl nil ln_exp nil )
(minus_odd_is_odd application-judgement "odd_int" integers nil )
(= const-decl "[T, T -> boolean]" equalities 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 )
(ln const-decl "real" ln_exp nil )
(exp const-decl "{py | x = ln(py)}" ln_exp nil )
(posreal_times_posreal_is_posreal application-judgement "posreal"
real_types nil )
(numfield nonempty-type-eq-decl nil number_fields nil )
(+ const-decl "[numfield, numfield -> numfield]" number_fields nil )
(real_times_real_is_real application-judgement "real" reals nil )
(sinh const-decl "real" hyperbolic nil )
(real_div_nzreal_is_real application-judgement "real" reals nil )
(real_minus_real_is_real application-judgement "real" reals nil ))
shostak))
(cosh_diff 0
(cosh_diff-1 nil 3270964814
("" (skosimp*)
(("" (lemma "cosh_sum" ("x" "x!1" "y" "-y!1" ))
(("" (rewrite "sinh_neg" )
(("" (rewrite "cosh_neg" ) (("" (assert ) nil nil )) nil )) nil ))
nil ))
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 )
(cosh_sum formula-decl nil hyperbolic nil )
(minus_real_is_real application-judgement "real" reals nil )
(cosh_neg formula-decl nil hyperbolic nil )
(real_plus_real_is_real application-judgement "real" reals nil )
(real_minus_real_is_real application-judgement "real" reals nil )
(real_times_real_is_real application-judgement "real" reals nil )
(sinh_neg formula-decl nil hyperbolic nil ))
shostak))
(tanh_sum_TCC1 0
(tanh_sum_TCC1-1 nil 3253471676
("" (skosimp*)
(("" (typepred "tanh(x!1)" )
(("" (typepred "tanh(y!1)" )
(("" (name-replace "TX" "tanh(x!1)" )
(("" (name-replace "TY" "tanh(y!1)" )
(("" (lemma "abs_mult" ("x" "TX" "y" "TY" ))
(("" (case "TX=0" )
(("1" (assert ) nil nil )
("2" (lemma "lt_times_lt_pos1" )
(("2" (inst - "abs(TY)" "abs(TX)" "1" "1" )
(("1" (split -1)
(("1" (grind) nil nil ) ("2" (grind) nil nil )
("3" (grind) nil nil ))
nil )
("2" (grind) nil nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
((tanh const-decl "real_abs_lt1" hyperbolic nil )
(real_abs_lt1 nonempty-type-eq-decl nil hyperbolic nil )
(AND const-decl "[bool, bool -> bool]" booleans nil )
(- const-decl "[numfield -> numfield]" number_fields nil )
(numfield nonempty-type-eq-decl nil number_fields nil )
(< const-decl "bool" reals nil )
(real nonempty-type-from-decl nil reals nil )
(real_pred const-decl "[number_field -> boolean]" reals nil )
(number_field nonempty-type-from-decl nil number_fields nil )
(number_field_pred const-decl "[number -> boolean]" number_fields
nil )
(number nonempty-type-decl nil numbers nil )
(NOT const-decl "[bool -> bool]" booleans nil )
(bool nonempty-type-eq-decl nil booleans nil )
(boolean nonempty-type-decl nil booleans nil )
(= const-decl "[T, T -> boolean]" equalities nil )
(real_times_real_is_real application-judgement "real" reals nil )
(abs_mult formula-decl nil real_props nil )
(lt_times_lt_pos1 formula-decl nil real_props nil )
(minus_real_is_real application-judgement "real" reals nil )
(posint_times_posint_is_posint application-judgement "posint"
integers nil )
(odd_times_odd_is_odd application-judgement "odd_int" integers nil )
(mult_divides1 application-judgement "(divides(n))" divides nil )
(real_le_is_total_order name-judgement "(total_order?[real])"
real_props nil )
(posreal nonempty-type-eq-decl nil real_types nil )
(TX skolem-const-decl "real_abs_lt1" hyperbolic nil )
(abs const-decl "{n: nonneg_real | n >= m AND n >= -m}" real_defs
nil )
(nonneg_real nonempty-type-eq-decl nil real_types nil )
(>= const-decl "bool" reals nil ) (> const-decl "bool" reals nil )
(real_gt_is_strict_total_order name-judgement
"(strict_total_order?[real])" real_props nil )
(abs_nat formula-decl nil abs_lems "reals/" )
(real_plus_real_is_real application-judgement "real" reals nil )
(minus_odd_is_odd application-judgement "odd_int" integers nil )
(real_lt_is_strict_total_order name-judgement
"(strict_total_order?[real])" real_props 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 ))
shostak))
(tanh_sum 0
(tanh_sum-1 nil 3253577464
("" (expand "tanh" )
(("" (skosimp*)
(("" (typepred "cosh(x!1)" )
(("" (typepred "cosh(y!1)" )
(("" (typepred "cosh(x!1+y!1)" )
(("" (rewrite "sinh_sum" )
(("" (rewrite "cosh_sum" )
(("" (name-replace "CX" "cosh(x!1)" )
(("" (name-replace "CY" "cosh(y!1)" )
(("" (name-replace "SY" "sinh(y!1)" )
(("" (name-replace "SX" "sinh(x!1)" )
(("" (lemma "add_div" )
(("" (inst-cp - "CX" "CY" "SX" "SY" )
(("1" (inst - "1" "CX*CY" "1" "SX*SY" )
(("1"
(lemma "div_div1" )
(("1"
(inst
-
"CX*CY + SX*SY"
"CX*CY"
"(SX*CY+SY*CX) / (CX * CY)" )
(("1"
(lemma "div_cancel2" )
(("1"
(inst - "CX*CY" "SX*CY+SY*CX" )
(("1"
(replace -1 -2)
(("1"
(replace -3 1)
(("1"
(replace -4 1)
(("1"
(name-replace
"CXCY"
"CX*CY" )
(("1"
(name-replace
"SXSY"
"SX*SY" )
(("1"
(name-replace
"SYCX"
"SY*CX" )
(("1"
(name-replace
"SXCY"
"SX*CY" )
(("1"
(name-replace
"NUMER"
"SYCX+SXCY" )
(("1"
(name-replace
"DENOM"
"CXCY+SXSY" )
(("1"
(replace
-1
1)
(("1"
(propax)
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(lemma
"both_sides_times_pos_ge1"
("pz" "CX" "x" "CY" "y" "1" ))
(("1" (assert ) nil nil )
("2" (assert ) nil nil ))
nil ))
nil ))
nil )
("2"
(lemma
"both_sides_times_pos_ge1"
("pz" "CX" "x" "CY" "y" "1" ))
(("1" (assert ) nil nil )
("2" (assert ) nil nil ))
nil )
("3" (assert ) nil nil ))
nil ))
nil )
("2"
(lemma
"both_sides_times_pos_ge1"
("pz" "CX" "x" "CY" "y" "1" ))
(("1" (assert ) nil nil )
("2" (assert ) nil nil ))
nil ))
nil )
("2" (assert ) nil nil )
("3" (assert ) nil nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
((sinh_sum formula-decl nil hyperbolic nil )
(= const-decl "[T, T -> boolean]" equalities nil )
(sinh const-decl "real" hyperbolic nil )
(add_div formula-decl nil real_props 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 )
(posrat_div_posrat_is_posrat application-judgement "posrat"
rationals nil )
(div_cancel2 formula-decl nil real_props nil )
(div_div1 formula-decl nil real_props nil )
(/= const-decl "boolean" notequal nil )
(nonzero_real nonempty-type-eq-decl nil reals nil )
(cosh_sum formula-decl nil hyperbolic nil )
(+ const-decl "[numfield, numfield -> numfield]" number_fields nil )
(numfield nonempty-type-eq-decl nil number_fields nil )
(boolean nonempty-type-decl nil booleans nil )
(bool nonempty-type-eq-decl nil booleans nil )
(NOT const-decl "[bool -> bool]" booleans nil )
(number nonempty-type-decl nil numbers nil )
(number_field_pred const-decl "[number -> boolean]" number_fields
nil )
(number_field nonempty-type-from-decl nil number_fields nil )
(real_pred const-decl "[number_field -> boolean]" reals nil )
(real nonempty-type-from-decl nil reals nil )
(>= const-decl "bool" reals nil )
(posreal_ge1 nonempty-type-eq-decl nil hyperbolic nil )
(cosh const-decl "posreal_ge1" hyperbolic nil )
(tanh const-decl "real_abs_lt1" hyperbolic nil )
(real_plus_real_is_real application-judgement "real" reals nil )
(real_times_real_is_real application-judgement "real" reals nil )
(real_div_nzreal_is_real application-judgement "real" reals nil ))
shostak))
(coth_sum_TCC1 0
(coth_sum_TCC1-1 nil 3253471683
("" (skosimp*)
(("" (expand "coth" )
(("" (lemma "tanh_strict_increasing" )
(("" (expand "strict_increasing?" )
(("" (case "FORALL (nzx:nzreal): tanh(nzx) /= 0" )
(("1" (inst-cp - "n0x!1" )
(("1" (inst - "n0y!1" )
(("1"
(lemma "both_sides_div2"
("n0x" "tanh(n0x!1)" "n0y" "-tanh(n0y!1)" "n0z"
"1" ))
(("1" (lemma "tanh_neg" ("x" "-n0x!1" ))
(("1" (replace -1 -2)
(("1"
(case "FORALL (x,y:real): tanh(x) = tanh(y) => x = y" )
(("1" (inst - "-n0x!1" "n0y!1" )
(("1" (assert ) nil nil )) nil )
("2" (hide-all-but 1)
(("2" (skosimp*)
(("2" (lemma "tanh_strict_increasing" )
(("2"
(expand "strict_increasing?" )
(("2"
(lemma
"trich_lt"
("x" "x!1" "y" "y!1" ))
(("2"
(split -1)
(("1"
(inst - "x!1" "y!1" )
(("1" (assert ) nil nil ))
nil )
("2" (propax) nil nil )
("3"
(inst - "y!1" "x!1" )
(("3" (assert ) nil nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2" (assert ) nil nil ) ("3" (propax) nil nil ))
nil ))
nil ))
nil )
("2" (skosimp*)
(("2" (hide -3 1)
(("2" (case "nzx!1>0" )
(("1" (inst - "0" "nzx!1" )
(("1" (rewrite "tanh_0" ) (("1" (assert ) nil nil ))
nil ))
nil )
("2" (inst - "nzx!1" "0" )
(("2" (rewrite "tanh_0" ) (("2" (assert ) nil nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
((coth const-decl "real_abs_gt1" hyperbolic nil )
(strict_increasing? const-decl "bool" real_fun_preds "reals/" )
(> const-decl "bool" reals nil )
(tanh_0 formula-decl nil hyperbolic nil )
(real_gt_is_strict_total_order name-judgement
"(strict_total_order?[real])" real_props nil )
(minus_real_is_real application-judgement "real" reals nil )
(both_sides_div2 formula-decl nil real_props nil )
(nonzero_real nonempty-type-eq-decl nil reals nil )
(trich_lt formula-decl nil real_props nil )
(real_lt_is_strict_total_order name-judgement
"(strict_total_order?[real])" real_props nil )
(real_plus_real_is_real application-judgement "real" reals nil )
(nzreal_div_nzreal_is_nzreal application-judgement "nzreal"
real_types nil )
(= const-decl "[T, T -> boolean]" equalities nil )
(IMPLIES const-decl "[bool, bool -> bool]" booleans nil )
(tanh_neg formula-decl nil hyperbolic nil )
(minus_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 )
(real nonempty-type-from-decl nil reals nil )
(/= const-decl "boolean" notequal nil )
(nzreal nonempty-type-eq-decl nil reals nil )
(bool nonempty-type-eq-decl nil booleans nil )
(AND const-decl "[bool, bool -> bool]" booleans nil )
(< const-decl "bool" reals nil )
(numfield nonempty-type-eq-decl nil number_fields nil )
(- const-decl "[numfield -> numfield]" number_fields nil )
(real_abs_lt1 nonempty-type-eq-decl nil hyperbolic nil )
(tanh const-decl "real_abs_lt1" hyperbolic nil )
(tanh_strict_increasing formula-decl nil hyperbolic nil ))
shostak))
(coth_sum 0
(coth_sum-1 nil 3253528669
("" (skosimp*)
(("" (expand "coth" )
(("" (lemma "tanh_sum" ("x" "n0x!1" "y" "n0y!1" ))
(("" (case "FORALL (x:real): tanh(x) = 0 IFF x = 0" )
(("1" (inst-cp - "n0x!1" )
(("1" (inst-cp - "n0y!1" )
(("1" (inst - "n0x!1+n0y!1" )
(("1" (replace -1 1 rl)
(("1" (replace -4)
(("1" (typepred "tanh(n0x!1)" )
(("1" (typepred "tanh(n0y!1)" )
(("1" (name-replace "TX" "tanh(n0x!1)" )
(("1" (name-replace "TY" "tanh(n0y!1)" )
(("1"
(lemma "abs_mult" ("x" "TX" "y" "TY" ))
(("1"
(hide -9)
(("1"
(case
"0 < abs(TX) & abs(TX) < 1 & 0 < abs(TY) & abs(TY) < 1" )
(("1"
(flatten -1)
(("1"
(lemma
"lt_times_lt_pos1"
("px"
"abs(TX)"
"y"
"1"
"nnz"
"abs(TY)"
"w"
"1" ))
(("1"
(expand "<=" -1)
(("1"
(replace -3 -1)
(("1"
(replace -5 -1)
(("1"
(case "1+TX*TY > 0" )
(("1"
(rewrite "div_div1" 2)
(("1"
(rewrite
"div_times"
2)
(("1"
(rewrite
"add_div"
2)
(("1"
(case
"TX*TY /= 0" )
(("1"
(rewrite
"div_div1"
2)
(("1"
(lemma
"div_cancel2"
("x"
"1"
"n0z"
"TX*TY" ))
(("1"
(replace
-1
2)
(("1"
(assert )
nil
nil ))
nil )
("2"
(propax)
nil
nil ))
nil ))
nil )
("2"
(hide-all-but
(-13 -14 1))
(("2"
(expand "/=" )
(("2"
(lemma
"zero_times3"
("x"
"TX"
"y"
"TY" ))
(("2"
(replace
-1
-2)
(("2"
(split
-2)
(("1"
(assert )
nil
nil )
("2"
(assert )
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(hide-all-but
(-1 -6 1))
(("2" (grind) nil nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2" (assert ) nil nil ))
nil ))
nil )
("2"
(hide-all-but (-7 -8 1))
(("2" (grind) nil nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2" (hide-all-but 1)
(("2" (skosimp*)
(("2" (split)
(("1" (flatten)
(("1" (lemma "tanh_strict_increasing" )
(("1" (expand "strict_increasing?" )
(("1" (lemma "trichotomy" ("x" "x!1" ))
(("1" (lemma "tanh_0" )
(("1" (split -2)
(("1" (inst - "0" "x!1" )
(("1" (assert ) nil nil )) nil )
("2" (propax) nil nil )
("3" (inst - "x!1" "0" )
(("3" (assert ) nil nil )) nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2" (flatten)
(("2" (lemma "tanh_0" ) (("2" (assert ) nil nil )) nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
((nzreal_div_nzreal_is_nzreal application-judgement "nzreal"
real_types nil )
(coth const-decl "real_abs_gt1" hyperbolic nil )
(tanh const-decl "real_abs_lt1" hyperbolic nil )
(real_abs_lt1 nonempty-type-eq-decl nil hyperbolic nil )
(- const-decl "[numfield -> numfield]" number_fields nil )
(numfield nonempty-type-eq-decl nil number_fields nil )
(< const-decl "bool" reals nil )
(AND const-decl "[bool, bool -> bool]" booleans nil )
(= const-decl "[T, T -> boolean]" equalities nil )
(IFF const-decl "[bool, bool -> bool]" booleans nil )
(bool nonempty-type-eq-decl nil booleans nil )
(NOT const-decl "[bool -> bool]" booleans nil )
(real_div_nzreal_is_real application-judgement "real" reals nil )
(real_times_real_is_real application-judgement "real" reals nil )
(abs_mult formula-decl nil real_props nil )
(>= const-decl "bool" reals nil )
(nonneg_real nonempty-type-eq-decl nil real_types nil )
(abs const-decl "{n: nonneg_real | n >= m AND n >= -m}" real_defs
nil )
(lt_times_lt_pos1 formula-decl nil real_props nil )
(> const-decl "bool" reals nil )
(posreal nonempty-type-eq-decl nil real_types nil )
(real_gt_is_strict_total_order name-judgement
"(strict_total_order?[real])" real_props nil )
(real_ge_is_total_order name-judgement "(total_order?[real])"
real_props nil )
(* const-decl "[numfield, numfield -> numfield]" number_fields nil )
(div_div1 formula-decl nil real_props nil )
(nonzero_real nonempty-type-eq-decl nil reals nil )
(real_lt_is_strict_total_order name-judgement
"(strict_total_order?[real])" real_props nil )
(nnreal_times_nnreal_is_nnreal application-judgement "nnreal"
real_types nil )
(minus_odd_is_odd application-judgement "odd_int" integers nil )
(minus_real_is_real application-judgement "real" reals nil )
(<= const-decl "bool" reals nil )
(abs_nat formula-decl nil abs_lems "reals/" )
(nzreal_times_nzreal_is_nzreal application-judgement "nzreal"
real_types nil )
(+ const-decl "[numfield, numfield -> numfield]" number_fields nil )
(real_plus_real_is_real application-judgement "real" reals nil )
(strict_increasing? const-decl "bool" real_fun_preds "reals/" )
(tanh_0 formula-decl nil hyperbolic nil )
(trichotomy formula-decl nil real_axioms nil )
(tanh_strict_increasing formula-decl nil hyperbolic nil )
(tanh_sum formula-decl nil hyperbolic 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 )
(/= const-decl "boolean" notequal nil )
(nzreal nonempty-type-eq-decl nil reals nil ))
shostak))
(sinh_half_TCC1 0
(sinh_half_TCC1-1 nil 3270840661
("" (skosimp*) (("" (assert ) nil nil )) nil )
((real_minus_real_is_real application-judgement "real" reals nil )
(real_div_nzreal_is_real application-judgement "real" reals nil )
(real_ge_is_total_order name-judgement "(total_order?[real])"
real_props nil ))
shostak))
(sinh_half 0
(sinh_half-1 nil 3270838066
("" (skosimp*)
(("" (assert )
(("" (lemma "trichotomy" ("x" "x!1" ))
(("" (split -1)
(("1" (lemma "sinh_strict_increasing" )
(("1" (expand "strict_increasing?" )
(("1" (inst - "0" "x!1/2" )
(("1" (rewrite "sinh_0" )
(("1" (assert )
(("1"
(lemma "sq_eq"
("nna" "sinh(x!1 / 2)" "nnb"
"sqrt((cosh(x!1) - 1) / 2)
"))
(("1" (replace -1 1 rl)
(("1" (hide -1)
(("1" (rewrite "sq_sqrt" )
(("1" (expand "sinh" 1)
(("1"
(rewrite "sq_div" 1)
(("1"
(rewrite "sq_minus" 1)
(("1"
(lemma
"exp_sum"
("x" "x!1/2" "y" "x!1/2" ))
(("1"
(lemma
"exp_sum"
("x" "x!1/2" "y" "-x!1/2" ))
(("1"
(lemma
"exp_sum"
("x" "-x!1/2" "y" "-x!1/2" ))
(("1"
(expand "sq" 1)
(("1"
(replace -1 1 rl)
(("1"
(replace -2 1 rl)
(("1"
(replace -3 1 rl)
(("1"
(rewrite "exp_0" 1)
(("1"
(expand "cosh" 1)
(("1"
(assert )
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2" (replace -1)
(("2" (rewrite "sinh_0" )
(("2" (rewrite "cosh_0" )
(("2" (rewrite "sqrt_0" ) (("2" (assert ) nil nil )) nil ))
nil ))
nil ))
nil )
("3" (lemma "sinh_strict_increasing" )
(("3" (expand "strict_increasing?" )
(("3" (inst - "x!1/2" "0" )
(("3" (rewrite "sinh_0" )
(("3" (assert )
(("3"
(lemma "sq_eq"
("nna" "-sinh(x!1/2)" "nnb"
"sqrt((cosh(x!1) - 1) / 2)" ))
(("3" (assert )
(("3" (hide 2)
(("3" (rewrite "sq_sqrt" )
(("3" (expand "sinh" 1)
(("3"
(rewrite "sq_neg" 1)
(("3"
(rewrite "sq_div" 1)
(("3"
(rewrite "sq_minus" 1)
(("3"
(lemma
"exp_sum"
("x" "x!1/2" "y" "x!1/2" ))
(("3"
(lemma
"exp_sum"
("x" "x!1/2" "y" "-x!1/2" ))
(("3"
(lemma
"exp_sum"
("x" "-x!1/2" "y" "-x!1/2" ))
(("3"
(expand "sq" 1)
(("3"
(expand "cosh" 1)
(("3"
(replace -1 1 rl)
(("3"
(replace -2 1 rl)
(("3"
(replace -3 1 rl)
(("3"
(rewrite "exp_0" )
(("3"
(assert )
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
((real_ge_is_total_order name-judgement "(total_order?[real])"
real_props nil )
(real_div_nzreal_is_real application-judgement "real" reals nil )
(strict_increasing? const-decl "bool" real_fun_preds "reals/" )
(sinh_0 formula-decl nil hyperbolic nil )
(cosh const-decl "posreal_ge1" hyperbolic nil )
(posreal_ge1 nonempty-type-eq-decl nil hyperbolic nil )
(- const-decl "[numfield, numfield -> numfield]" number_fields nil )
(sqrt const-decl "{nnz: nnreal | nnz * nnz = nnx}" sqrt "reals/" )
(* const-decl "[numfield, numfield -> numfield]" number_fields nil )
(= const-decl "[T, T -> boolean]" equalities nil )
(nnreal type-eq-decl nil real_types nil )
(sinh const-decl "real" hyperbolic 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_eq formula-decl nil sq "reals/" )
(sq_minus formula-decl nil sq "reals/" )
(posreal_times_posreal_is_posreal application-judgement "posreal"
real_types nil )
(real_plus_real_is_real application-judgement "real" reals nil )
(sq const-decl "nonneg_real" sq "reals/" )
(exp_0 formula-decl nil ln_exp nil )
(posreal_div_posreal_is_posreal application-judgement "posreal"
real_types nil )
(real_times_real_is_real application-judgement "real" reals nil )
(minus_even_is_even application-judgement "even_int" integers nil )
(minus_nzint_is_nzint application-judgement "nzint" integers nil )
(posreal_plus_nnreal_is_posreal application-judgement "posreal"
real_types nil )
(exp_sum formula-decl nil ln_exp nil )
(nnreal_div_posreal_is_nnreal application-judgement "nnreal"
real_types nil )
(sq_nz_pos application-judgement "posreal" sq "reals/" )
(minus_real_is_real application-judgement "real" reals nil )
(sq_div formula-decl nil sq "reals/" )
(> const-decl "bool" reals nil )
(posreal nonempty-type-eq-decl nil real_types nil )
(ln const-decl "real" ln_exp nil )
(exp const-decl "{py | x = ln(py)}" ln_exp nil )
(- const-decl "[numfield -> numfield]" number_fields nil )
(sq_sqrt formula-decl nil sqrt "reals/" )
(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 )
(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 )
(sinh_strict_increasing formula-decl nil hyperbolic nil )
(sqrt_0 formula-decl nil sqrt "reals/" )
(odd_minus_odd_is_even application-judgement "even_int" integers
nil )
(cosh_0 formula-decl nil hyperbolic nil )
(sq_neg formula-decl nil sq "reals/" )
(mult_divides2 application-judgement "(divides(m))" divides nil )
(mult_divides1 application-judgement "(divides(n))" divides nil )
(even_times_int_is_even application-judgement "even_int" integers
nil )
(posint_times_posint_is_posint application-judgement "posint"
integers nil )
(trichotomy formula-decl nil real_axioms 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 )
(real_minus_real_is_real application-judgement "real" reals nil ))
shostak))
(cosh_half_TCC1 0
(cosh_half_TCC1-1 nil 3270840674
("" (skosimp*) (("" (assert ) nil nil )) nil )
((real_plus_real_is_real application-judgement "real" reals nil )
(real_div_nzreal_is_real application-judgement "real" reals nil )
(real_ge_is_total_order name-judgement "(total_order?[real])"
real_props nil ))
shostak))
(cosh_half 0
(cosh_half-1 nil 3270840028
("" (skosimp*)
((""
(lemma "sq_eq"
("nna" "cosh(x!1 / 2)" "nnb" "sqrt((cosh(x!1) + 1) / 2)" ))
(("1" (replace -1 1 rl)
(("1" (hide -1)
(("1" (rewrite "sq_sqrt" )
(("1" (expand "cosh" )
(("1" (rewrite "sq_div" )
(("1" (rewrite "sq_plus" 1)
(("1" (lemma "exp_sum" ("x" "x!1/2" "y" "x!1/2" ))
(("1" (lemma "exp_sum" ("x" "x!1/2" "y" "-x!1/2" ))
(("1"
(lemma "exp_sum" ("x" "-x!1/2" "y" "-x!1/2" ))
(("1" (expand "sq" 1)
(("1" (replace -1 1 rl)
(("1" (replace -2 1 rl)
(("1"
(replace -3 1 rl)
(("1"
(rewrite "exp_0" )
(("1" (assert ) nil nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2" (assert ) nil nil ) ("3" (assert ) nil nil ))
nil ))
nil )
((+ const-decl "[numfield, numfield -> numfield]" number_fields nil )
(sqrt const-decl "{nnz: nnreal | nnz * nnz = nnx}" sqrt "reals/" )
(* const-decl "[numfield, numfield -> numfield]" number_fields nil )
(= const-decl "[T, T -> boolean]" equalities nil )
(nnreal type-eq-decl nil real_types 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 )
(cosh const-decl "posreal_ge1" hyperbolic nil )
(posreal_ge1 nonempty-type-eq-decl nil hyperbolic 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 )
(sq_eq formula-decl nil sq "reals/" )
(real_div_nzreal_is_real application-judgement "real" reals nil )
(real_ge_is_total_order name-judgement "(total_order?[real])"
real_props nil )
(posreal_plus_nnreal_is_posreal application-judgement "posreal"
real_types nil )
(sq_plus formula-decl nil sq "reals/" )
(posreal_times_posreal_is_posreal application-judgement "posreal"
real_types nil )
(sq const-decl "nonneg_real" sq "reals/" )
(exp_0 formula-decl nil ln_exp nil )
(posint_times_posint_is_posint application-judgement "posint"
integers nil )
(even_times_int_is_even application-judgement "even_int" integers
nil )
(mult_divides1 application-judgement "(divides(n))" divides nil )
(mult_divides2 application-judgement "(divides(m))" divides nil )
(exp_sum formula-decl nil ln_exp nil )
(posreal_div_posreal_is_posreal application-judgement "posreal"
real_types nil )
(sq_nz_pos application-judgement "posreal" sq "reals/" )
(minus_real_is_real application-judgement "real" reals nil )
(sq_div formula-decl nil sq "reals/" )
(> const-decl "bool" reals nil )
(posreal nonempty-type-eq-decl nil real_types nil )
(ln const-decl "real" ln_exp nil )
(exp const-decl "{py | x = ln(py)}" ln_exp nil )
(- const-decl "[numfield -> numfield]" number_fields nil )
(sq_sqrt formula-decl nil sqrt "reals/" )
(real_plus_real_is_real application-judgement "real" reals nil ))
shostak))
(tanh_half1_TCC1 0
(tanh_half1_TCC1-1 nil 3270840688
("" (skosimp*) (("" (assert ) nil nil )) nil )
((real_plus_real_is_real application-judgement "real" reals nil ))
shostak))
(tanh_half1_TCC2 0
(tanh_half1_TCC2-1 nil 3270840700
("" (skosimp*)
(("" (rewrite "div_mult_pos_ge1" ) (("" (assert ) nil nil )) nil ))
nil )
((AND const-decl "[bool, bool -> bool]" booleans nil )
(real_gt_is_strict_total_order name-judgement
"(strict_total_order?[real])" real_props nil )
(real_ge_is_total_order name-judgement "(total_order?[real])"
real_props nil )
(real_plus_real_is_real application-judgement "real" reals nil )
(real_minus_real_is_real application-judgement "real" reals nil )
(div_mult_pos_ge1 formula-decl nil 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 )
(> const-decl "bool" reals nil )
(posreal nonempty-type-eq-decl nil real_types nil )
(numfield nonempty-type-eq-decl nil number_fields nil )
(+ const-decl "[numfield, numfield -> numfield]" number_fields nil )
(posreal_ge1 nonempty-type-eq-decl nil hyperbolic nil )
(cosh const-decl "posreal_ge1" hyperbolic nil )
(- const-decl "[numfield, numfield -> numfield]" number_fields nil )
(real_div_nzreal_is_real application-judgement "real" reals nil )
(real_times_real_is_real application-judgement "real" reals nil ))
shostak))
(tanh_half1 0
(tanh_half1-1 nil 3270839611
("" (skosimp*)
(("" (expand "tanh" 1)
(("" (rewrite "sinh_half" )
(("" (rewrite "cosh_half" )
(("" (case "x!1>=0" )
(("1" (assert )
(("1" (rewrite "sqrt_div" 1)
(("1" (rewrite "sqrt_div" 1)
(("1" (rewrite "sqrt_div" 1)
(("1" (name-replace "K1" "sqrt((cosh(x!1) - 1))" )
(("1" (name-replace "K2" "sqrt((cosh(x!1) + 1))" )
(("1" (rewrite "div_div1" ) nil nil )) nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2" (assert )
(("2" (rewrite "sqrt_div" )
(("2" (rewrite "sqrt_div" )
(("2" (rewrite "sqrt_div" )
(("2" (name-replace "K1" "sqrt((cosh(x!1) - 1))" )
(("2" (name-replace "K2" "sqrt((cosh(x!1) +1))" )
(("2" (rewrite "div_div1" ) nil nil )) nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
((tanh const-decl "real_abs_lt1" hyperbolic nil )
(cosh_half formula-decl nil hyperbolic nil )
(real_div_nzreal_is_real application-judgement "real" reals nil )
(minus_real_is_real application-judgement "real" reals nil )
(real_times_real_is_real application-judgement "real" reals nil )
(- const-decl "[numfield -> numfield]" number_fields nil )
(+ const-decl "[numfield, numfield -> numfield]" number_fields nil )
(sqrt const-decl "{nnz: nnreal | nnz * nnz = nnx}" sqrt "reals/" )
(* const-decl "[numfield, numfield -> numfield]" number_fields nil )
(nnreal type-eq-decl nil real_types nil )
(= const-decl "[T, T -> boolean]" equalities nil )
(nnreal_times_nnreal_is_nnreal application-judgement "nnreal"
real_types nil )
(/ const-decl "[numfield, nznum -> numfield]" number_fields nil )
(nznum nonempty-type-eq-decl nil number_fields nil )
(nonzero_real nonempty-type-eq-decl nil reals nil )
(/= const-decl "boolean" notequal nil )
(div_div1 formula-decl nil real_props nil )
(even_minus_odd_is_odd application-judgement "odd_int" integers
nil )
(nnreal_div_posreal_is_nnreal application-judgement "nnreal"
real_types nil )
(sqrt_pos application-judgement "posreal" sqrt "reals/" )
(sqrt_div formula-decl nil sqrt "reals/" )
(nonneg_real nonempty-type-eq-decl nil real_types nil )
(numfield nonempty-type-eq-decl nil number_fields nil )
(- const-decl "[numfield, numfield -> numfield]" number_fields nil )
(posreal_ge1 nonempty-type-eq-decl nil hyperbolic nil )
(cosh const-decl "posreal_ge1" hyperbolic nil )
(>= const-decl "bool" reals nil )
(bool nonempty-type-eq-decl nil booleans nil )
(real_ge_is_total_order name-judgement "(total_order?[real])"
real_props 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 )
(sinh_half formula-decl nil hyperbolic nil )
(real_plus_real_is_real application-judgement "real" reals nil )
(real_minus_real_is_real application-judgement "real" reals nil ))
shostak))
(tanh_half2 0
(tanh_half2-1 nil 3270841163
("" (skosimp*)
(("" (case "sinh(n0x!1) /=0" )
(("1" (expand "tanh" 1)
(("1"
(lemma "cross_mult"
("x" "sinh(n0x!1 / 2)" "n0x" "cosh(n0x!1 / 2)" "y"
"cosh(n0x!1) - 1" "n0y" "sinh(n0x!1)" ))
(("1" (replace -1 1)
(("1" (hide -1 -2)
(("1" (expand "sinh" )
(("1" (expand "cosh" )
(("1" (lemma "exp_sum" ("x" "n0x!1/2" "y" "n0x!1" ))
(("1"
(lemma "exp_sum" ("x" "n0x!1/2" "y" "-n0x!1" ))
(("1"
(lemma "exp_sum"
("x" "-(n0x!1/2)" "y" "-n0x!1" ))
(("1"
(lemma "exp_sum"
("x" "-(n0x!1/2)" "y" "n0x!1" ))
(("1" (assert ) nil nil )) nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2" (propax) nil nil ) ("3" (assert ) nil nil ))
nil ))
nil )
("2" (hide 2)
(("2" (lemma "sinh_strict_increasing" )
(("2" (expand "strict_increasing?" )
(("2" (lemma "trichotomy" ("x" "n0x!1" ))
(("2" (split -1)
(("1" (inst - "0" "n0x!1" )
(("1" (rewrite "sinh_0" ) (("1" (assert ) nil nil ))
nil ))
nil )
("2" (assert ) nil nil )
("3" (inst - "n0x!1" "0" )
(("3" (rewrite "sinh_0" ) (("3" (assert ) nil nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
((nzreal nonempty-type-eq-decl nil reals nil )
(sinh const-decl "real" hyperbolic 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 )
(/= const-decl "boolean" notequal nil )
(boolean nonempty-type-decl nil booleans nil )
(number nonempty-type-decl nil numbers 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 )
(cosh const-decl "posreal_ge1" hyperbolic nil )
(posreal_ge1 nonempty-type-eq-decl nil hyperbolic nil )
(>= const-decl "bool" reals nil )
(bool nonempty-type-eq-decl nil booleans nil )
(nonzero_real nonempty-type-eq-decl nil reals nil )
(cross_mult formula-decl nil real_props nil )
(real_minus_real_is_real application-judgement "real" reals nil )
(nzreal_div_nzreal_is_nzreal application-judgement "nzreal"
real_types nil )
(posreal_plus_nnreal_is_posreal application-judgement "posreal"
real_types nil )
(posreal_div_posreal_is_posreal application-judgement "posreal"
real_types nil )
(minus_nzreal_is_nzreal application-judgement "nzreal" real_types
nil )
(- const-decl "[numfield -> numfield]" number_fields nil )
(real_plus_real_is_real application-judgement "real" reals nil )
(posreal_times_posreal_is_posreal application-judgement "posreal"
real_types nil )
(real_times_real_is_real application-judgement "real" reals nil )
(real_div_nzreal_is_real application-judgement "real" reals nil )
(exp_sum formula-decl nil ln_exp nil )
(tanh const-decl "real_abs_lt1" hyperbolic nil )
(sinh_strict_increasing formula-decl nil hyperbolic nil )
(trichotomy formula-decl nil real_axioms nil )
(real_lt_is_strict_total_order name-judgement
"(strict_total_order?[real])" real_props nil )
(real_gt_is_strict_total_order name-judgement
"(strict_total_order?[real])" real_props nil )
(sinh_0 formula-decl nil hyperbolic nil )
(strict_increasing? const-decl "bool" real_fun_preds "reals/" ))
shostak))
(tanh_half3 0
(tanh_half3-1 nil 3270840252
("" (skosimp*)
(("" (expand "tanh" )
((""
(lemma "cross_mult"
("x" "sinh(x!1 / 2)" "n0x" "cosh(x!1 / 2)" "y" "sinh(x!1)"
"n0y" "1 + cosh(x!1)" ))
(("1" (replace -1 1)
(("1" (hide -1)
(("1" (expand "sinh" )
(("1" (expand "cosh" )
(("1" (lemma "exp_sum" ("x" "-x!1" "y" "x!1/2" ))
(("1" (lemma "exp_sum" ("x" "-x!1" "y" "-(x!1/2)" ))
(("1" (lemma "exp_sum" ("x" "x!1" "y" "-(x!1/2)" ))
(("1" (lemma "exp_sum" ("x" "x!1" "y" "x!1/2" ))
(("1" (assert ) nil nil )) nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2" (assert ) nil nil ) ("3" (assert ) nil nil ))
nil ))
nil ))
nil )
((tanh const-decl "real_abs_lt1" hyperbolic nil )
(real_minus_real_is_real application-judgement "real" reals nil )
(minus_real_is_real application-judgement "real" reals nil )
(exp_sum formula-decl nil ln_exp nil )
(- const-decl "[numfield -> numfield]" number_fields nil )
(real_times_real_is_real application-judgement "real" reals nil )
(posreal_times_posreal_is_posreal application-judgement "posreal"
real_types nil )
(posreal_div_posreal_is_posreal application-judgement "posreal"
real_types nil )
(posreal_plus_nnreal_is_posreal application-judgement "posreal"
real_types nil )
(real_div_nzreal_is_real application-judgement "real" reals nil )
(real_plus_real_is_real application-judgement "real" reals nil )
(cross_mult formula-decl nil 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 )
(/= const-decl "boolean" notequal nil )
(nonzero_real nonempty-type-eq-decl nil reals nil )
(bool nonempty-type-eq-decl nil booleans nil )
(>= const-decl "bool" reals nil )
(posreal_ge1 nonempty-type-eq-decl nil hyperbolic nil )
(cosh const-decl "posreal_ge1" hyperbolic 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 "[numfield, numfield -> numfield]" number_fields nil )
(sinh const-decl "real" hyperbolic nil ))
shostak))
(sinh2x 0
(sinh2x-1 nil 3270912654
("" (skosimp*)
(("" (expand "sinh" )
(("" (expand "cosh" )
(("" (lemma "exp_sum" ("x" "x!1" "y" "x!1" ))
(("" (lemma "exp_sum" ("x" "x!1" "y" "-x!1" ))
(("" (lemma "exp_sum" ("x" "-x!1" "y" "-x!1" ))
(("" (lemma "exp_sum" ("x" "-x!1" "y" "x!1" ))
(("" (assert ) nil nil )) nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
((real_times_real_is_real application-judgement "real" reals nil )
(real_minus_real_is_real application-judgement "real" reals nil )
(real_div_nzreal_is_real application-judgement "real" reals nil )
(sinh const-decl "real" hyperbolic 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 )
(exp_sum formula-decl nil ln_exp nil )
(exp_0 formula-decl nil ln_exp nil )
(posreal_plus_nnreal_is_posreal application-judgement "posreal"
real_types nil )
(posreal_div_posreal_is_posreal application-judgement "posreal"
real_types nil )
(posreal_times_posreal_is_posreal application-judgement "posreal"
real_types nil )
(real_plus_real_is_real application-judgement "real" reals nil )
(- const-decl "[numfield -> numfield]" number_fields nil )
(numfield nonempty-type-eq-decl nil number_fields nil )
(minus_real_is_real application-judgement "real" reals nil )
(cosh const-decl "posreal_ge1" hyperbolic nil ))
shostak))
(sinh2x_B_TCC1 0
(sinh2x_B_TCC1-1 nil 3270912427
("" (skosimp*)
(("" (case "tanh(x!1)>=0" )
(("1" (lemma "sq_lt" ("nna" "tanh(x!1)" "nnb" "1" ))
(("1" (rewrite "sq_1" ) (("1" (assert ) nil nil )) nil )
("2" (propax) nil nil ))
nil )
("2" (lemma "sq_lt" ("nna" "-tanh(x!1)" "nnb" "1" ))
(("1" (rewrite "sq_1" )
(("1" (rewrite "sq_neg" ) (("1" (assert ) nil nil )) nil )) nil )
("2" (assert ) nil nil ))
nil ))
nil ))
nil )
((tanh const-decl "real_abs_lt1" hyperbolic nil )
(real_abs_lt1 nonempty-type-eq-decl nil hyperbolic nil )
(- const-decl "[numfield -> numfield]" number_fields nil )
(numfield nonempty-type-eq-decl nil number_fields nil )
(< const-decl "bool" reals nil )
(AND const-decl "[bool, bool -> bool]" booleans 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 )
(sq_1 formula-decl nil sq "reals/" )
(real_minus_real_is_real application-judgement "real" reals nil )
(real_lt_is_strict_total_order name-judgement
"(strict_total_order?[real])" real_props nil )
(real_ge_is_total_order name-judgement "(total_order?[real])"
real_props nil )
(sq_lt formula-decl nil sq "reals/" )
(nonneg_real nonempty-type-eq-decl nil real_types nil )
(sq_neg formula-decl nil sq "reals/" )
(minus_real_is_real application-judgement "real" reals nil ))
shostak))
(sinh2x_B 0
(sinh2x_B-1 nil 3270912781
("" (skosimp*)
(("" (rewrite "div_cancel4" )
(("1" (expand "tanh" )
(("1" (rewrite "sq_div" )
(("1"
(lemma "both_sides_times1"
("x"
"sinh(2 * x!1) - sinh(2 * x!1) * (sq(sinh(x!1)) / sq(cosh(x!1)))"
"y" "2 * (sinh(x!1) / cosh(x!1))" "n0z" "sq(cosh(x!1))" ))
(("1" (replace -1 1 rl)
(("1" (hide -1)
(("1" (assert )
(("1"
(lemma "div_cancel1"
("x" "sq(sinh(x!1))" "n0z" "sq(cosh(x!1))" ))
(("1" (replace -1 1)
(("1"
(name-replace "K101"
"sq(sinh(x!1)) / sq(cosh(x!1))" )
(("1"
(case-replace
"sinh(2 * x!1) * sq(cosh(x!1)) * K101 = sinh(2*x!1)*sq(sinh(x!1))" )
(("1" (hide -1 -2)
(("1"
(case-replace
"2 * (sq(cosh(x!1)) * (sinh(x!1) / cosh(x!1))) = 2*cosh(x!1)*sinh(x!1)" )
(("1"
(hide -1)
(("1"
(expand "sq" )
(("1"
(expand "cosh" )
(("1"
(expand "sinh" )
(("1"
(lemma
"exp_sum"
("x" "x!1" "y" "x!1" ))
(("1"
(lemma
"exp_sum"
("x" "x!1" "y" "-x!1" ))
(("1"
(lemma
"exp_sum"
("x" "-x!1" "y" "-x!1" ))
(("1"
(lemma
"exp_sum"
("x" "-x!1" "y" "x!1" ))
(("1"
(lemma
"exp_sum"
("x"
"2*x!1"
"y"
"2*x!1" ))
(("1"
(lemma
"exp_sum"
("x"
"2*x!1"
"y"
"x!1" ))
(("1"
(lemma
"exp_sum"
("x"
"2*x!1"
"y"
"-x!1" ))
(("1"
(lemma
"exp_sum"
("x"
"2*x!1"
"y"
"-(2*x!1)" ))
(("1"
(lemma "exp_0" )
(("1"
(lemma
"exp_sum"
("x"
"-(2*x!1)"
"y"
"2*x!1" ))
(("1"
(lemma
"exp_sum"
("x"
"-(2*x!1)"
"y"
"x!1" ))
(("1"
(lemma
"exp_sum"
("x"
"-(2*x!1)"
"y"
"-x!1" ))
(("1"
(lemma
"exp_sum"
("x"
"-(2*x!1)"
"y"
"-(2*x!1)" ))
(("1"
(assert )
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(hide 2)
(("2"
(expand "sq" )
(("2" (assert ) nil nil ))
nil ))
nil ))
nil ))
nil )
("2" (hide 2) (("2" (assert ) nil nil )) nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2" (hide 2)
(("2" (lemma "sq_nz_pos" ("nz" "cosh(x!1)" ))
(("2" (assert ) nil nil )) nil ))
nil ))
nil ))
nil ))
nil )
("2" (hide 2)
(("2" (case "tanh(x!1)>=0" )
(("1" (lemma "sq_gt" ("nna" "1" "nnb" "tanh(x!1)" ))
(("1" (rewrite "sq_1" ) (("1" (assert ) nil nil )) nil )
("2" (propax) nil nil ))
nil )
("2" (lemma "sq_gt" ("nna" "1" "nnb" "-tanh(x!1)" ))
(("1" (rewrite "sq_1" )
(("1" (rewrite "sq_neg" ) (("1" (assert ) nil nil )) nil ))
nil )
("2" (assert ) nil nil ))
nil ))
nil ))
nil ))
nil ))
nil )
((real_minus_real_is_real application-judgement "real" reals nil )
(real_times_real_is_real application-judgement "real" reals nil )
(div_cancel4 formula-decl nil 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 )
(/= const-decl "boolean" notequal nil )
(nonzero_real nonempty-type-eq-decl nil reals nil )
(numfield nonempty-type-eq-decl nil number_fields nil )
(- const-decl "[numfield, numfield -> 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 )
(sq const-decl "nonneg_real" sq "reals/" )
(AND const-decl "[bool, bool -> bool]" booleans nil )
(< const-decl "bool" reals nil )
(- const-decl "[numfield -> numfield]" number_fields nil )
(real_abs_lt1 nonempty-type-eq-decl nil hyperbolic nil )
(tanh const-decl "real_abs_lt1" hyperbolic nil )
(sinh const-decl "real" hyperbolic nil )
(* const-decl "[numfield, numfield -> numfield]" number_fields nil )
(cosh const-decl "posreal_ge1" hyperbolic nil )
(posreal_ge1 nonempty-type-eq-decl nil hyperbolic nil )
(sq_div formula-decl nil sq "reals/" )
(real_div_nzreal_is_real application-judgement "real" reals nil )
(minus_real_is_real application-judgement "real" reals nil )
(real_plus_real_is_real application-judgement "real" reals nil )
(exp_0 formula-decl nil ln_exp nil )
(exp_sum formula-decl nil ln_exp nil )
(posreal_times_posreal_is_posreal application-judgement "posreal"
real_types nil )
(posreal_div_posreal_is_posreal application-judgement "posreal"
real_types nil )
(posreal_plus_nnreal_is_posreal application-judgement "posreal"
real_types nil )
(= const-decl "[T, T -> boolean]" equalities nil )
(div_cancel1 formula-decl nil real_props nil )
(/ const-decl "[numfield, nznum -> numfield]" number_fields nil )
(nznum nonempty-type-eq-decl nil number_fields nil )
(both_sides_times1 formula-decl nil real_props nil ))
shostak))
(cosh2x 0
(cosh2x-1 nil 3270915543
("" (skosimp*)
(("" (expand "cosh" )
(("" (expand "sq" )
(("" (lemma "exp_sum" ("x" "x!1" "y" "x!1" ))
(("" (lemma "exp_sum" ("x" "x!1" "y" "-x!1" ))
(("" (lemma "exp_sum" ("x" "-x!1" "y" "-x!1" ))
(("" (lemma "exp_sum" ("x" "-x!1" "y" "x!1" ))
(("" (rewrite "exp_0" ) (("" (assert ) nil nil )) nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
((real_times_real_is_real application-judgement "real" reals nil )
(posreal_plus_nnreal_is_posreal application-judgement "posreal"
real_types nil )
(sq_nz_pos application-judgement "posreal" sq "reals/" )
(cosh const-decl "posreal_ge1" hyperbolic 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 )
(exp_sum formula-decl nil ln_exp nil )
(exp_0 formula-decl nil ln_exp nil )
(real_plus_real_is_real application-judgement "real" reals nil )
(real_minus_real_is_real application-judgement "real" reals nil )
(- const-decl "[numfield -> numfield]" number_fields nil )
(numfield nonempty-type-eq-decl nil number_fields nil )
(minus_real_is_real application-judgement "real" reals nil )
(sq const-decl "nonneg_real" sq "reals/" )
(posreal_times_posreal_is_posreal application-judgement "posreal"
real_types nil )
(posreal_div_posreal_is_posreal application-judgement "posreal"
real_types nil ))
shostak))
(cosh2x_B 0
(cosh2x_B-1 nil 3270915986
("" (skosimp*)
(("" (lemma "cosh2x" ("x" "x!1" ))
(("" (lemma "cosh_sinh_one" ("x" "x!1" )) (("" (assert ) nil nil ))
nil ))
nil ))
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 )
(cosh2x formula-decl nil hyperbolic nil )
(nnreal_plus_posreal_is_posreal application-judgement "posreal"
real_types nil )
(nnreal_times_nnreal_is_nnreal application-judgement "nnreal"
real_types nil )
(real_times_real_is_real application-judgement "real" reals nil )
(real_minus_real_is_real application-judgement "real" reals nil )
(cosh_sinh_one formula-decl nil hyperbolic nil ))
shostak))
(cosh2x_C 0
(cosh2x_C-1 nil 3270916242
("" (skosimp*)
(("" (lemma "cosh2x_B" ("x" "x!1" ))
(("" (lemma "cosh2x" ("x" "x!1" )) (("" (assert ) nil nil )) nil ))
nil ))
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 )
(cosh2x_B formula-decl nil hyperbolic nil )
(nnreal_plus_nnreal_is_nnreal application-judgement "nnreal"
real_types nil )
(nnreal_plus_posreal_is_posreal application-judgement "posreal"
real_types nil )
(nnreal_times_nnreal_is_nnreal application-judgement "nnreal"
real_types nil )
(real_minus_real_is_real application-judgement "real" reals nil )
(real_times_real_is_real application-judgement "real" reals nil )
(cosh2x formula-decl nil hyperbolic nil ))
shostak))
(tanh2x 0
(tanh2x-1 nil 3270916617
("" (skosimp*)
(("" (rewrite "div_cancel4" )
(("" (expand "tanh" )
(("" (rewrite "sq_div" )
(("" (rewrite "div_times" 1)
(("1" (rewrite "add_div" )
(("1"
(lemma "cross_mult"
("x"
"(sinh(2 * x!1) * (sq(cosh(x!1)) * cosh(2 * x!1)) +
cosh(2 * x!1) * sinh(2 * x!1) * sq(sinh(x!1)))" " n0x"
"(cosh(2 * x!1) * (sq(cosh(x!1)) * cosh(2 * x!1)))"
"y" "2*sinh(x!1)" "n0y" "cosh(x!1)" ))
(("1" (replace -1 1)
(("1" (hide -1)
(("1" (expand "sq" )
(("1" (rewrite "sinh2x" )
(("1" (rewrite "cosh2x" )
(("1" (expand "sq" )
(("1" (lemma "cosh_sinh_one" ("x" "x!1" ))
(("1"
(expand "sq" )
(("1" (assert ) nil nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2" (hide 2)
(("2" (lemma "sq_nz_pos" ("nz" "cosh(2*x!1)" ))
(("2" (lemma "sq_nz_pos" ("nz" "cosh(x!1)" ))
(("2"
(lemma "posreal_times_posreal_is_posreal"
("px" "sq(cosh(x!1))" "py"
"sq(cosh(2 * x!1))" ))
(("1" (expand "sq" ) (("1" (assert ) nil nil ))
nil )
("2" (propax) nil nil ) ("3" (propax) nil nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2" (hide 2)
(("2" (lemma "sq_nz_pos" ("nz" "cosh(x!1)" ))
(("2"
(lemma "posreal_times_posreal_is_posreal"
("px" "sq(cosh(x!1))" "py" "cosh(2*x!1)" ))
(("1" (assert ) nil nil ) ("2" (propax) nil nil ))
nil ))
nil ))
nil ))
nil )
("2" (lemma "sq_nz_pos" ("nz" "cosh(x!1)" ))
(("2" (assert ) nil nil )) nil ))
nil ))
nil ))
nil ))
nil ))
nil )
((posreal_plus_nnreal_is_posreal application-judgement "posreal"
real_types nil )
(real_times_real_is_real application-judgement "real" reals nil )
(div_cancel4 formula-decl nil 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 )
(/= const-decl "boolean" notequal nil )
(nonzero_real nonempty-type-eq-decl nil reals nil )
(numfield nonempty-type-eq-decl nil number_fields nil )
(+ const-decl "[numfield, numfield -> 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 )
(sq const-decl "nonneg_real" sq "reals/" )
(AND const-decl "[bool, bool -> bool]" booleans nil )
(< const-decl "bool" reals nil )
(- const-decl "[numfield -> numfield]" number_fields nil )
(real_abs_lt1 nonempty-type-eq-decl nil hyperbolic nil )
(tanh const-decl "real_abs_lt1" hyperbolic nil )
(* const-decl "[numfield, numfield -> numfield]" number_fields nil )
(cosh const-decl "posreal_ge1" hyperbolic nil )
(posreal_ge1 nonempty-type-eq-decl nil hyperbolic nil )
(sinh const-decl "real" hyperbolic nil )
(sq_div formula-decl nil sq "reals/" )
(add_div formula-decl nil real_props nil )
(real_plus_real_is_real application-judgement "real" reals nil )
(cosh2x formula-decl nil hyperbolic nil )
(nnreal_times_nnreal_is_nnreal application-judgement "nnreal"
real_types nil )
(real_minus_real_is_real application-judgement "real" reals nil )
(cosh_sinh_one formula-decl nil hyperbolic nil )
(sinh2x formula-decl nil hyperbolic nil )
(cross_mult formula-decl nil real_props nil )
(div_times formula-decl nil real_props nil )
(real_div_nzreal_is_real application-judgement "real" reals nil ))
shostak))
(sinh3x_TCC1 0
(sinh3x_TCC1-1 nil 3270920091
("" (skosimp*) (("" (assert ) nil nil )) nil )
((real_ge_is_total_order name-judgement "(total_order?[real])"
real_props nil ))
shostak))
(sinh3x 0
(sinh3x-1 nil 3270918363
("" (skosimp*)
(("" (lemma "sinh_sum" ("x" "2*x!1" "y" "x!1" ))
(("" (replace -1 1)
(("" (hide -1)
(("" (rewrite "sinh2x" )
(("" (rewrite "cosh2x" )
(("" (lemma "cosh_sinh_one" ("x" "x!1" ))
(("" (expand "sq" )
(("" (assert )
(("" (expand "^" )
(("" (expand "expt" )
(("" (expand "expt" )
(("" (expand "expt" )
(("" (expand "expt" )
(("" (assert ) nil nil )) nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
((* const-decl "[numfield, 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 )
(sinh_sum formula-decl nil hyperbolic nil )
(real_times_real_is_real application-judgement "real" reals nil )
(cosh2x formula-decl nil hyperbolic nil )
(nnreal_times_nnreal_is_nnreal application-judgement "nnreal"
real_types nil )
(real_minus_real_is_real application-judgement "real" reals nil )
(sq const-decl "nonneg_real" sq "reals/" )
(^ const-decl "real" exponentiation nil )
(expt def-decl "real" exponentiation nil )
(real_plus_real_is_real application-judgement "real" reals nil )
(cosh_sinh_one formula-decl nil hyperbolic nil )
(sinh2x formula-decl nil hyperbolic nil ))
shostak))
(cosh3x 0
(cosh3x-1 nil 3270919010
("" (skosimp*)
(("" (lemma "cosh_sum" ("x" "x!1" "y" "2*x!1" ))
(("" (replace -1)
(("" (rewrite "cosh2x" )
(("" (rewrite "sinh2x" )
(("" (hide -1)
(("" (expand "^" )
(("" (expand "expt" )
(("" (expand "expt" )
(("" (expand "expt" )
(("" (expand "expt" )
(("" (expand "sq" )
(("" (lemma "cosh_sinh_one" ("x" "x!1" ))
(("" (expand "sq" ) (("" (assert ) nil nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
((* const-decl "[numfield, 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 )
(cosh_sum formula-decl nil hyperbolic nil )
(real_times_real_is_real application-judgement "real" reals nil )
(cosh2x formula-decl nil hyperbolic nil )
(nnreal_times_nnreal_is_nnreal application-judgement "nnreal"
real_types nil )
(real_minus_real_is_real application-judgement "real" reals nil )
(expt def-decl "real" exponentiation nil )
(sq const-decl "nonneg_real" sq "reals/" )
(real_plus_real_is_real application-judgement "real" reals nil )
(cosh_sinh_one formula-decl nil hyperbolic nil )
(^ const-decl "real" exponentiation nil )
(sinh2x formula-decl nil hyperbolic nil ))
shostak))
(sinh4x 0
(sinh4x-1 nil 3270919340
("" (skosimp*)
(("" (lemma "sinh2x" ("x" "2*x!1" ))
(("" (rewrite "sinh2x" )
(("" (rewrite "cosh2x" )
(("" (expand "sq" )
(("" (lemma "cosh_sinh_one" ("x" "x!1" ))
(("" (expand "sq" )
(("" (assert )
(("" (rewrite "sinh2x" ) (("" (assert ) nil nil )) nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
((* const-decl "[numfield, 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 )
(sinh2x formula-decl nil hyperbolic nil )
(real_times_real_is_real application-judgement "real" reals nil )
(cosh2x formula-decl nil hyperbolic nil )
(nnreal_times_nnreal_is_nnreal application-judgement "nnreal"
real_types nil )
(real_minus_real_is_real application-judgement "real" reals nil )
(cosh_sinh_one formula-decl nil hyperbolic nil )
(real_plus_real_is_real application-judgement "real" reals nil )
(sq const-decl "nonneg_real" sq "reals/" )
(nnreal_plus_nnreal_is_nnreal application-judgement "nnreal"
real_types nil ))
shostak))
(cosh4x_TCC1 0
(cosh4x_TCC1-1 nil 3270912606
("" (skosimp*) (("" (assert ) nil nil )) nil )
((real_ge_is_total_order name-judgement "(total_order?[real])"
real_props nil ))
shostak))
(cosh4x 0
(cosh4x-1 nil 3270919895
("" (skosimp*)
(("" (lemma "cosh2x" ("x" "2*x!1" ))
(("" (replace -1 1)
(("" (hide -1)
(("" (rewrite "cosh2x" )
(("" (expand "sq" )
(("" (expand "^" )
(("" (expand "expt" )
(("" (expand "expt" )
(("" (expand "expt" )
(("" (expand "expt" )
(("" (expand "expt" )
(("" (lemma "cosh_sinh_one" ("x" "x!1" ))
(("" (expand "sq" ) (("" (assert ) nil nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
((* const-decl "[numfield, 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 )
(cosh2x formula-decl nil hyperbolic nil )
(real_times_real_is_real application-judgement "real" reals nil )
(sq const-decl "nonneg_real" sq "reals/" )
(expt def-decl "real" exponentiation nil )
(cosh_sinh_one formula-decl nil hyperbolic nil )
(^ const-decl "real" exponentiation nil )
(real_minus_real_is_real application-judgement "real" reals nil )
(real_plus_real_is_real application-judgement "real" reals nil )
(nnreal_times_nnreal_is_nnreal application-judgement "nnreal"
real_types nil ))
shostak))
(sinh_times_sinh 0
(sinh_times_sinh-1 nil 3270964579
("" (skosimp*)
(("" (rewrite "cosh_sum" )
(("" (rewrite "cosh_diff" ) (("" (assert ) nil nil )) nil )) nil ))
nil )
((cosh_sum formula-decl nil hyperbolic 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 )
(real_minus_real_is_real application-judgement "real" reals nil )
(minus_odd_is_odd application-judgement "odd_int" integers nil )
(real_times_real_is_real application-judgement "real" reals nil )
(real_plus_real_is_real application-judgement "real" reals nil )
(real_div_nzreal_is_real application-judgement "real" reals nil )
(cosh_diff formula-decl nil hyperbolic nil ))
shostak))
(cosh_times_cosh 0
(cosh_times_cosh-1 nil 3270964883
("" (skosimp*)
(("" (rewrite "cosh_sum" )
(("" (rewrite "cosh_diff" ) (("" (assert ) nil nil )) nil )) nil ))
nil )
((cosh_sum formula-decl nil hyperbolic 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 )
(minus_odd_is_odd application-judgement "odd_int" integers nil )
(real_times_real_is_real application-judgement "real" reals nil )
(real_plus_real_is_real application-judgement "real" reals nil )
(real_div_nzreal_is_real application-judgement "real" reals nil )
(real_minus_real_is_real application-judgement "real" reals nil )
(cosh_diff formula-decl nil hyperbolic nil ))
shostak))
(sinh_times_cosh 0
(sinh_times_cosh-1 nil 3270964906
("" (skosimp*)
(("" (rewrite "sinh_sum" )
(("" (rewrite "sinh_diff" ) (("" (assert ) nil nil )) nil )) nil ))
nil )
((sinh_sum formula-decl nil hyperbolic 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 )
(minus_odd_is_odd application-judgement "odd_int" integers nil )
(real_times_real_is_real application-judgement "real" reals nil )
(real_plus_real_is_real application-judgement "real" reals nil )
(real_div_nzreal_is_real application-judgement "real" reals nil )
(real_minus_real_is_real application-judgement "real" reals nil )
(sinh_diff formula-decl nil hyperbolic nil ))
shostak))
(sum_sinh 0
(sum_sinh-1 nil 3270965915
("" (skosimp*)
((""
(lemma "sinh_times_cosh"
("x" "(x!1 + y!1) / 2" "y" "(x!1 - y!1) / 2" ))
(("" (assert ) nil nil )) nil ))
nil )
((- const-decl "[numfield, numfield -> numfield]" number_fields 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 )
(/= 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 )
(sinh_times_cosh formula-decl nil hyperbolic nil )
(real_div_nzreal_is_real application-judgement "real" reals 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 ))
shostak))
(diff_sinh 0
(diff_sinh-1 nil 3270966111
("" (skosimp*)
(("" (lemma "sum_sinh" ("x" "x!1" "y" "-y!1" ))
(("" (rewrite "sinh_neg" ) (("" (assert ) nil nil )) nil )) nil ))
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 )
(sum_sinh formula-decl nil hyperbolic nil )
(minus_real_is_real application-judgement "real" reals nil )
(real_div_nzreal_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 )
(real_plus_real_is_real application-judgement "real" reals nil )
(sinh_neg formula-decl nil hyperbolic nil ))
shostak))
(sum_cosh 0
(sum_cosh-1 nil 3270966232
("" (skosimp*)
((""
(lemma "cosh_times_cosh" ("x" "(x!1+y!1)/2" "y" "(x!1-y!1)/2" ))
(("" (name-replace "K1" "cosh(x!1)" )
(("" (name-replace "K2" "cosh(y!1)" )
(("" (name-replace "K3" "cosh((x!1+y!1)/2)" )
(("" (name-replace "K4" "cosh((x!1-y!1)/2)" )
(("" (assert ) nil nil )) nil ))
nil ))
nil ))
nil ))
nil ))
nil )
((- const-decl "[numfield, numfield -> numfield]" number_fields 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 )
(/= 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 )
(cosh_times_cosh formula-decl nil hyperbolic nil )
(real_div_nzreal_is_real application-judgement "real" reals nil )
(minus_odd_is_odd application-judgement "odd_int" integers nil )
(real_plus_real_is_real application-judgement "real" reals nil )
(real_minus_real_is_real application-judgement "real" reals nil )
(real_times_real_is_real application-judgement "real" reals nil )
(= const-decl "[T, T -> boolean]" equalities nil )
(bool nonempty-type-eq-decl nil booleans nil )
(>= const-decl "bool" reals nil )
(posreal_ge1 nonempty-type-eq-decl nil hyperbolic nil )
(cosh const-decl "posreal_ge1" hyperbolic nil ))
shostak))
(diff_cosh 0
(diff_cosh-1 nil 3270966462
("" (skosimp*)
((""
(lemma "sinh_times_sinh" ("x" "(x!1+y!1)/2" "y" "(x!1-y!1)/2" ))
(("" (name-replace "K1" "cosh(x!1)" )
(("" (name-replace "K2" "cosh(y!1)" )
(("" (name-replace "K3" "sinh((x!1 + y!1) / 2)" )
(("" (name-replace "K4" "sinh((x!1 - y!1) / 2)" )
(("" (assert ) nil nil )) nil ))
nil ))
nil ))
nil ))
nil ))
nil )
((- const-decl "[numfield, numfield -> numfield]" number_fields 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 )
(/= 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 )
(sinh_times_sinh formula-decl nil hyperbolic nil )
(real_div_nzreal_is_real application-judgement "real" reals nil )
(sinh const-decl "real" hyperbolic nil )
(real_plus_real_is_real application-judgement "real" reals nil )
(real_minus_real_is_real application-judgement "real" reals nil )
(minus_odd_is_odd application-judgement "odd_int" integers nil )
(real_times_real_is_real application-judgement "real" reals nil )
(= const-decl "[T, T -> boolean]" equalities nil )
(bool nonempty-type-eq-decl nil booleans nil )
(>= const-decl "bool" reals nil )
(posreal_ge1 nonempty-type-eq-decl nil hyperbolic nil )
(cosh const-decl "posreal_ge1" hyperbolic nil ))
shostak))
(sum_tanh_TCC1 0
(sum_tanh_TCC1-1 nil 3270965627
("" (skosimp*)
((""
(lemma "posreal_times_posreal_is_posreal"
("px" "cosh(x!1)" "py" "cosh(y!1)" ))
(("1" (assert ) nil nil ) ("2" (assert ) nil nil )
("3" (assert ) nil nil ))
nil ))
nil )
((cosh const-decl "posreal_ge1" hyperbolic nil )
(posreal_ge1 nonempty-type-eq-decl nil hyperbolic 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 )
(posreal_times_posreal_is_posreal judgement-tcc nil real_types 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 )
(AND const-decl "[bool, bool -> bool]" booleans nil )
(real_times_real_is_real application-judgement "real" reals nil ))
shostak))
(sum_tanh 0
(sum_tanh-1 nil 3270966616
("" (skosimp*)
(("" (expand "tanh" )
(("" (rewrite "sinh_sum" )
((""
(lemma "add_div"
("x" "sinh(x!1)" "n0x" "cosh(x!1)" "y" "sinh(y!1)" "n0y"
"cosh(y!1)" ))
(("" (replace -1 1) (("" (propax) nil nil )) nil )) nil ))
nil ))
nil ))
nil )
((tanh const-decl "real_abs_lt1" hyperbolic nil )
(sinh const-decl "real" hyperbolic nil )
(cosh const-decl "posreal_ge1" hyperbolic nil )
(posreal_ge1 nonempty-type-eq-decl nil hyperbolic 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 )
(add_div formula-decl nil real_props nil )
(real_plus_real_is_real application-judgement "real" reals nil )
(real_times_real_is_real application-judgement "real" reals nil )
(real_div_nzreal_is_real application-judgement "real" reals nil )
(real nonempty-type-from-decl nil reals nil )
(real_pred const-decl "[number_field -> boolean]" reals nil )
(number_field nonempty-type-from-decl nil number_fields nil )
(number_field_pred const-decl "[number -> boolean]" number_fields
nil )
(boolean nonempty-type-decl nil booleans nil )
(number nonempty-type-decl nil numbers nil )
(sinh_sum formula-decl nil hyperbolic nil ))
shostak))
(sum_coth_TCC1 0
(sum_coth_TCC1-1 nil 3270965675
("" (case "FORALL (x:nzreal): sinh(x) /=0" )
(("1" (skosimp*)
(("1" (inst-cp - "n0x!1" )
(("1" (inst - "n0y!1" )
(("1"
(lemma "nzreal_times_nzreal_is_nzreal"
("nzx" "sinh(n0x!1)" "nzy" "sinh(n0y!1)" ))
(("1" (assert ) nil nil ) ("2" (propax) nil nil )
("3" (propax) nil nil ))
nil ))
nil ))
nil ))
nil )
("2" (hide 2)
(("2" (skosimp*)
(("2" (lemma "trichotomy" ("x" "x!1" ))
(("2" (lemma "sinh_strict_increasing" )
(("2" (expand "strict_increasing?" )
(("2" (lemma "sinh_0" )
(("2" (split)
(("1" (inst - "0" "x!1" ) (("1" (assert ) nil nil ))
nil )
("2" (assert ) nil nil )
("3" (inst - "x!1" "0" ) (("3" (assert ) nil nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
((trichotomy formula-decl nil real_axioms nil )
(strict_increasing? const-decl "bool" real_fun_preds "reals/" )
(real_lt_is_strict_total_order name-judgement
"(strict_total_order?[real])" real_props nil )
(real_gt_is_strict_total_order name-judgement
"(strict_total_order?[real])" real_props nil )
(sinh_0 formula-decl nil hyperbolic nil )
(sinh_strict_increasing formula-decl nil hyperbolic nil )
(real_times_real_is_real application-judgement "real" reals nil )
(nzreal_times_nzreal_is_nzreal judgement-tcc nil 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 )
(real nonempty-type-from-decl nil reals nil )
(/= const-decl "boolean" notequal nil )
(nzreal nonempty-type-eq-decl nil reals nil )
(sinh const-decl "real" hyperbolic nil ))
shostak))
(sum_coth 0
(sum_coth-1 nil 3270966876
("" (skosimp*)
(("" (expand "coth" )
(("" (case "FORALL (x:nzreal): sinh(x) /= 0" )
(("1" (inst-cp - "n0x!1" )
(("1" (inst - "n0y!1" )
(("1"
(lemma "nzreal_times_nzreal_is_nzreal"
("nzx" "sinh(n0x!1)" "nzy" "sinh(n0y!1)" ))
(("1" (expand "tanh" )
(("1" (rewrite "div_div1" )
(("1" (rewrite "div_div1" )
(("1"
(lemma "add_div"
("x" "cosh(n0x!1)" "n0x" "sinh(n0x!1)" "y"
"cosh(n0y!1)" "n0y" "sinh(n0y!1)" ))
(("1" (rewrite "sinh_sum" )
(("1" (assert ) nil nil )) nil ))
nil ))
nil ))
nil ))
nil )
("2" (propax) nil nil ) ("3" (propax) nil nil ))
nil ))
nil ))
nil )
("2" (hide 2)
(("2" (skosimp*)
(("2" (lemma "sinh_strict_increasing" )
(("2" (expand "strict_increasing?" )
(("2" (lemma "sinh_0" )
(("2" (lemma "trichotomy" ("x" "x!1" ))
(("2" (split)
(("1" (inst - "0" "x!1" ) (("1" (assert ) nil nil ))
nil )
("2" (assert ) nil nil )
("3" (inst - "x!1" "0" ) (("3" (assert ) nil nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
((coth const-decl "real_abs_gt1" hyperbolic nil )
(sinh_strict_increasing formula-decl nil hyperbolic nil )
(sinh_0 formula-decl nil hyperbolic nil )
(real_lt_is_strict_total_order name-judgement
"(strict_total_order?[real])" real_props nil )
(real_gt_is_strict_total_order name-judgement
"(strict_total_order?[real])" real_props nil )
(trichotomy formula-decl nil real_axioms nil )
(strict_increasing? const-decl "bool" real_fun_preds "reals/" )
(nzreal_times_nzreal_is_nzreal judgement-tcc nil real_types nil )
(div_div1 formula-decl nil real_props nil )
(nonzero_real nonempty-type-eq-decl nil reals nil )
(bool nonempty-type-eq-decl nil booleans nil )
(>= const-decl "bool" reals nil )
(posreal_ge1 nonempty-type-eq-decl nil hyperbolic nil )
(cosh const-decl "posreal_ge1" hyperbolic nil )
(nzreal_div_nzreal_is_nzreal application-judgement "nzreal"
real_types nil )
(real_times_real_is_real application-judgement "real" reals nil )
(add_div formula-decl nil real_props nil )
(real_plus_real_is_real application-judgement "real" reals nil )
(sinh_sum formula-decl nil hyperbolic nil )
(tanh const-decl "real_abs_lt1" hyperbolic nil )
(real_div_nzreal_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 )
(/= const-decl "boolean" notequal nil )
(nzreal nonempty-type-eq-decl nil reals nil )
(sinh const-decl "real" hyperbolic nil ))
shostak))
(diff_sinh_sq 0
(diff_sinh_sq-1 nil 3270997686
("" (skosimp*)
(("" (rewrite "sinh_times_sinh" )
(("" (lemma "sum_sinh" ("x" "x!1" "y" "y!1" ))
(("" (lemma "diff_sinh" ("x" "x!1" "y" "y!1" ))
((""
(lemma "cosh_times_cosh"
("x" "(x!1+y!1)/2" "y" "(x!1-y!1)/2" ))
((""
(lemma "sinh_times_sinh"
("x" "(x!1+y!1)/2" "y" "(x!1-y!1)/2" ))
((""
(case-replace
"sq(sinh(x!1)) - sq(sinh(y!1)) = 2 * cosh((x!1 + y!1) / 2) * sinh((x!1 - y!1) / 2)*2 * sinh((x!1 + y!1) / 2) * cosh((x!1 - y!1) / 2)" )
(("1" (hide -4 -5 -1)
(("1"
(case-replace
"2 * cosh((x!1 + y!1) / 2) * sinh((x!1 - y!1) / 2) * 2 *
sinh((x!1 + y!1) / 2)* cosh((x!1 - y!1) / 2) = (cosh((x!1 + y!1) / 2 + (x!1 - y!1) / 2) -
cosh((x!1 + y!1) / 2 - (x!1 - y!1) / 2))*(cosh((x!1 + y!1) / 2 + (x!1 - y!1) / 2) +
cosh((x!1 + y!1) / 2 - (x!1 - y!1) / 2))")
(("1" (hide -1 -2 -3)
(("1" (simplify 1)
(("1"
(case-replace
"(x!1 + y!1) / 2 - (x!1 - y!1) / 2 = y!1" )
(("1"
(case-replace
"(x!1 - y!1) / 2 + (x!1 + y!1) / 2 = x!1" )
(("1" (rewrite "cosh2x" )
(("1"
(rewrite "cosh2x" )
(("1"
(rewrite "sq_rew" )
(("1"
(rewrite "sq_rew" )
(("1" (assert ) nil nil ))
nil ))
nil ))
nil ))
nil )
("2" (assert ) nil nil ))
nil )
("2" (assert ) nil nil ))
nil ))
nil ))
nil )
("2" (assert )
(("2" (hide 2)
(("2"
(case-replace
"(x!1 + y!1) / 2 - (x!1 - y!1) / 2=y!1" )
(("1"
(case-replace
"(x!1 - y!1) / 2 + (x!1 + y!1) / 2=x!1" )
(("1" (assert )
(("1"
(case-replace
"(cosh((x!1 - y!1) / 2) * cosh((x!1 + y!1) / 2) *
sinh((x!1 - y!1) / 2)
* sinh((x!1 + y!1) / 2)) = (sinh((x!1 + y!1) / 2) * sinh((x!1 - y!1) / 2))*(cosh((x!1 + y!1) / 2) * cosh((x!1 - y!1) / 2))")
(("1"
(replace -4 1)
(("1"
(replace -5 1)
(("1" (assert ) nil nil ))
nil ))
nil )
("2"
(hide 2)
(("2" (assert ) nil nil ))
nil ))
nil ))
nil )
("2" (assert ) nil nil ))
nil )
("2" (assert ) nil nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2" (hide -1 -2 2)
(("2" (expand "sq" 1) (("2" (assert ) nil nil )) nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
((real_plus_real_is_real application-judgement "real" reals nil )
(real_minus_real_is_real application-judgement "real" reals nil )
(sinh_times_sinh formula-decl nil hyperbolic 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 "[numfield, numfield -> numfield]" number_fields nil )
(real_div_nzreal_is_real application-judgement "real" reals nil )
(diff_sinh formula-decl nil hyperbolic nil )
(minus_odd_is_odd application-judgement "odd_int" integers nil )
(cosh2x formula-decl nil hyperbolic nil )
(nnreal_times_nnreal_is_nnreal application-judgement "nnreal"
real_types nil )
(sq_rew formula-decl nil sq "reals/" )
(cosh const-decl "posreal_ge1" hyperbolic nil )
(posreal_ge1 nonempty-type-eq-decl nil hyperbolic nil )
(* const-decl "[numfield, numfield -> numfield]" number_fields nil )
(sinh const-decl "real" hyperbolic nil )
(sq const-decl "nonneg_real" sq "reals/" )
(nonneg_real nonempty-type-eq-decl nil real_types nil )
(>= const-decl "bool" reals nil )
(bool nonempty-type-eq-decl nil booleans nil )
(= const-decl "[T, T -> boolean]" equalities nil )
(real_times_real_is_real application-judgement "real" reals nil )
(/ const-decl "[numfield, nznum -> numfield]" number_fields nil )
(nznum nonempty-type-eq-decl nil number_fields nil )
(/= const-decl "boolean" notequal nil )
(cosh_times_cosh formula-decl nil hyperbolic nil )
(sum_sinh formula-decl nil hyperbolic nil ))
shostak))
(diff_cosh_sq 0
(diff_cosh_sq-1 nil 3270998756
("" (skosimp*)
(("" (lemma "diff_sinh_sq" ("x" "x!1" "y" "y!1" ))
(("" (lemma "cosh_sinh_one" )
(("" (inst-cp - "x!1" )
(("" (inst - "y!1" ) (("" (assert ) nil nil )) nil )) nil ))
nil ))
nil ))
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 )
(diff_sinh_sq formula-decl nil hyperbolic 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 )
(cosh_sinh_one formula-decl nil hyperbolic nil ))
shostak))
(sum_cosh_sinh_sq 0
(sum_cosh_sinh_sq-1 nil 3270998894
("" (skosimp*)
(("" (rewrite "cosh_times_cosh" )
(("" (rewrite "div_cancel4" )
(("" (rewrite "cosh2x" )
(("" (rewrite "cosh2x" )
(("" (lemma "cosh_sinh_one" )
(("" (inst-cp - "x!1" )
(("" (inst - "y!1" ) (("" (assert ) nil nil )) nil )) nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
((real_plus_real_is_real application-judgement "real" reals nil )
(real_minus_real_is_real application-judgement "real" reals nil )
(cosh_times_cosh formula-decl nil hyperbolic 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 "[numfield, numfield -> numfield]" number_fields nil )
(real_div_nzreal_is_real application-judgement "real" reals nil )
(cosh2x formula-decl nil hyperbolic nil )
(cosh_sinh_one formula-decl nil hyperbolic nil )
(nnreal_times_nnreal_is_nnreal application-judgement "nnreal"
real_types nil )
(* const-decl "[numfield, numfield -> numfield]" number_fields nil )
(cosh const-decl "posreal_ge1" hyperbolic nil )
(posreal_ge1 nonempty-type-eq-decl nil hyperbolic nil )
(sinh const-decl "real" hyperbolic nil )
(sq const-decl "nonneg_real" sq "reals/" )
(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 )
(div_cancel4 formula-decl nil real_props nil )
(real_times_real_is_real application-judgement "real" reals nil )
(nnreal_plus_nnreal_is_nnreal application-judgement "nnreal"
real_types nil ))
shostak))
(hyperbolic_deMoivre_TCC1 0
(hyperbolic_deMoivre_TCC1-1 nil 3270921451
("" (skosimp*) (("" (assert ) nil nil )) nil )
((real_ge_is_total_order name-judgement "(total_order?[real])"
real_props nil )
(real_plus_real_is_real application-judgement "real" reals nil ))
shostak))
(hyperbolic_deMoivre 0
(hyperbolic_deMoivre-1 nil 3270921235
("" (skosimp*)
(("" (rewrite "cosh_plus_sinh" )
(("" (rewrite "cosh_plus_sinh" )
(("" (rewrite "exp_scal" ) nil nil )) nil ))
nil ))
nil )
((cosh_plus_sinh formula-decl nil hyperbolic 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 )
(nzreal_exp application-judgement "nzreal" exponentiation nil )
(posreal_exp application-judgement "posreal" exponentiation nil )
(integer nonempty-type-from-decl nil integers nil )
(exp_scal formula-decl nil ln_exp nil )
(nat nonempty-type-eq-decl nil naturalnumbers nil )
(>= const-decl "bool" reals nil )
(bool nonempty-type-eq-decl nil booleans nil )
(int nonempty-type-eq-decl nil integers nil )
(integer_pred const-decl "[rational -> boolean]" integers nil )
(rational nonempty-type-from-decl nil rationals nil )
(rational_pred const-decl "[real -> boolean]" rationals nil )
(* const-decl "[numfield, numfield -> numfield]" number_fields nil )
(numfield nonempty-type-eq-decl nil number_fields nil )
(real_times_real_is_real application-judgement "real" reals nil ))
shostak))
(sinh_derivable2_TCC1 0
(sinh_derivable2_TCC1-1 nil 3270127577
("" (lemma "deriv_domain_real" ) (("" (propax) nil nil )) nil )
((deriv_domain_real formula-decl nil deriv_domain "analysis/" ))
shostak))
(sinh_derivable2_TCC2 0
(sinh_derivable2_TCC2-1 nil 3270127577
("" (skosimp*) (("" (inst + "x!1+1" ) (("" (assert ) nil nil )) nil ))
nil )
((not_one_element_real formula-decl nil deriv_domain "analysis/" ))
shostak))
(sinh_derivable2 0
(sinh_derivable2-2 nil 3352437912
("" (expand "sinh" )
(("" (lemma "identity_derivable_fun[real]" )
(("" (expand "I" )
((""
(lemma "neg_derivable_fun[real]" ("f" "LAMBDA (x: real): x" ))
(("" (assert )
(("" (expand "-" )
(("" (lemma "exp_deriv" )
(("" (flatten -1)
(("" (hide -2)
((""
(lemma "composition_derivable_fun[real,real]"
("f" "LAMBDA (x_1: real): -x_1" "g" "exp" ))
(("1" (assert )
(("1" (expand "o" )
(("1"
(lemma "diff_derivable_fun[real]"
("f1" "exp" "f2"
"LAMBDA (x: real): exp(-x)" ))
(("1" (assert )
(("1"
(expand "-" )
(("1"
(lemma
"scal_derivable_fun[real]"
("f"
"LAMBDA (x: real): exp(x) - exp(-x)"
"b"
"1/2" ))
(("1"
(assert )
(("1"
(expand "*" )
(("1" (assert ) nil nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2" (skosimp*)
(("2" (inst + "x!1+1" ) (("2" (assert ) nil nil ))
nil ))
nil )
("3" (lemma "deriv_domain_real" )
(("3" (propax) nil nil )) nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
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 )
(identity_derivable_fun formula-decl nil derivatives "analysis/" )
(neg_derivable_fun formula-decl nil derivatives "analysis/" )
(- const-decl "[T -> real]" real_fun_ops "reals/" )
(exp const-decl "{py | x = ln(py)}" ln_exp nil )
(ln const-decl "real" ln_exp nil )
(= const-decl "[T, T -> boolean]" equalities 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 )
(- const-decl "[numfield -> numfield]" number_fields nil )
(numfield nonempty-type-eq-decl nil number_fields nil )
(composition_derivable_fun formula-decl nil chain_rule "analysis/" )
(minus_real_is_real application-judgement "real" reals nil )
(deriv_domain? const-decl "bool" deriv_domain_def "analysis/" )
(not_one_element? const-decl "bool" deriv_domain_def "analysis/" )
(O const-decl "T3" function_props nil )
(posrat_div_posrat_is_posrat application-judgement "posrat"
rationals nil )
(scal_derivable_fun formula-decl nil derivatives "analysis/" )
(/= const-decl "boolean" notequal nil )
(nznum nonempty-type-eq-decl nil number_fields nil )
(/ const-decl "[numfield, nznum -> numfield]" number_fields nil )
(- const-decl "[numfield, numfield -> numfield]" number_fields nil )
(* const-decl "[T -> real]" real_fun_ops "reals/" )
(posreal_times_posreal_is_posreal application-judgement "posreal"
real_types nil )
(- const-decl "[T -> real]" real_fun_ops "reals/" )
(diff_derivable_fun formula-decl nil derivatives "analysis/" )
(exp_deriv formula-decl nil ln_exp nil )
(real_minus_real_is_real application-judgement "real" reals nil )
(I const-decl "(bijective?[T, T])" identity nil )
(sinh const-decl "real" hyperbolic nil )
(real_div_nzreal_is_real application-judgement "real" reals nil ))
nil )
(sinh_derivable2-1 nil 3270135166
("" (expand "sinh" )
(("" (lemma "identity_derivable_fun[real]" )
(("" (expand "I" )
(("" (lemma "neg_derivable_fun" ("f" "LAMBDA (x: real): x" ))
(("" (assert )
(("" (expand "-" )
(("" (lemma "exp_deriv" )
(("" (flatten -1)
(("" (hide -2)
((""
(lemma "composition_derivable_fun"
("f" "LAMBDA (x_1: real): -x_1" "g" "exp" ))
(("" (assert )
(("" (expand "o" )
((""
(lemma "diff_derivable_fun"
("f1" "exp" "f2"
"LAMBDA (x: real): exp(-x)" ))
(("" (assert )
((""
(expand "-" )
((""
(lemma
"scal_derivable_fun"
("f"
"LAMBDA (x: real): exp(x) - exp(-x)"
"b"
"1/2" ))
((""
(assert )
((""
(expand "*" )
(("" (assert ) nil nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
((identity_derivable_fun formula-decl nil derivatives "analysis/" )
(neg_derivable_fun formula-decl nil derivatives "analysis/" )
(exp const-decl "{py | x = ln(py)}" ln_exp nil )
(ln const-decl "real" ln_exp nil )
(composition_derivable_fun formula-decl nil chain_rule "analysis/" )
(scal_derivable_fun formula-decl nil derivatives "analysis/" )
(diff_derivable_fun formula-decl nil derivatives "analysis/" )
(exp_deriv formula-decl nil ln_exp nil ))
shostak))
(cosh_derivable2 0
(cosh_derivable2-2 nil 3352437975
("" (expand "cosh" )
(("" (lemma "identity_derivable_fun[real]" )
(("" (expand "I" )
((""
(lemma "neg_derivable_fun[real]" ("f" "LAMBDA (x: real): x" ))
(("" (assert )
(("" (expand "-" )
(("" (lemma "exp_deriv" )
(("" (flatten -1)
(("" (hide -2)
((""
(lemma "composition_derivable_fun[real,real]"
("f" "LAMBDA (x_1: real): -x_1" "g" "exp" ))
(("1" (assert )
(("1" (expand "o" )
(("1"
(lemma "sum_derivable_fun[real]"
("f1" "exp" "f2"
"LAMBDA (x: real): exp(-x)" ))
(("1" (assert )
(("1"
(expand "+" )
(("1"
(lemma
"scal_derivable_fun[real]"
("f"
"LAMBDA (x_1: real): exp(x_1) + exp(-x_1)"
"b"
"1/2" ))
(("1"
(assert )
(("1"
(expand "*" )
(("1" (assert ) nil nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2" (skosimp*)
(("2" (inst + "x!1+1" ) (("2" (assert ) nil nil ))
nil ))
nil )
("3" (lemma "deriv_domain_real" )
(("3" (propax) nil nil )) nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
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 )
(identity_derivable_fun formula-decl nil derivatives "analysis/" )
(neg_derivable_fun formula-decl nil derivatives "analysis/" )
(- const-decl "[T -> real]" real_fun_ops "reals/" )
(exp const-decl "{py | x = ln(py)}" ln_exp nil )
(ln const-decl "real" ln_exp nil )
(= const-decl "[T, T -> boolean]" equalities 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 )
(- const-decl "[numfield -> numfield]" number_fields nil )
(numfield nonempty-type-eq-decl nil number_fields nil )
(composition_derivable_fun formula-decl nil chain_rule "analysis/" )
(minus_real_is_real application-judgement "real" reals nil )
(deriv_domain? const-decl "bool" deriv_domain_def "analysis/" )
(not_one_element? const-decl "bool" deriv_domain_def "analysis/" )
(O const-decl "T3" function_props nil )
(posrat_div_posrat_is_posrat application-judgement "posrat"
rationals nil )
(scal_derivable_fun formula-decl nil derivatives "analysis/" )
(/= const-decl "boolean" notequal nil )
(nznum nonempty-type-eq-decl nil number_fields nil )
(/ const-decl "[numfield, nznum -> numfield]" number_fields nil )
(+ const-decl "[numfield, numfield -> numfield]" number_fields nil )
(* const-decl "[T -> real]" real_fun_ops "reals/" )
(posreal_times_posreal_is_posreal application-judgement "posreal"
real_types nil )
(+ const-decl "[T -> real]" real_fun_ops "reals/" )
(sum_derivable_fun formula-decl nil derivatives "analysis/" )
(exp_deriv formula-decl nil ln_exp nil )
(posreal_plus_nnreal_is_posreal application-judgement "posreal"
real_types nil )
(I const-decl "(bijective?[T, T])" identity nil )
(cosh const-decl "posreal_ge1" hyperbolic nil )
(posreal_div_posreal_is_posreal application-judgement "posreal"
real_types nil ))
nil )
(cosh_derivable2-1 nil 3270138126
("" (expand "cosh" )
(("" (lemma "identity_derivable_fun[real]" )
(("" (expand "I" )
(("" (lemma "neg_derivable_fun" ("f" "LAMBDA (x: real): x" ))
(("" (assert )
(("" (expand "-" )
(("" (lemma "exp_deriv" )
(("" (flatten -1)
(("" (hide -2)
((""
(lemma "composition_derivable_fun"
("f" "LAMBDA (x_1: real): -x_1" "g" "exp" ))
(("" (assert )
(("" (expand "o" )
((""
(lemma "sum_derivable_fun"
("f1" "exp" "f2"
"LAMBDA (x: real): exp(-x)" ))
(("" (assert )
((""
(expand "+" )
((""
(lemma
"scal_derivable_fun"
("f"
"LAMBDA (x_1: real): exp(x_1) + exp(-x_1)"
"b"
"1/2" ))
((""
(assert )
((""
(expand "*" )
(("" (assert ) nil nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
((identity_derivable_fun formula-decl nil derivatives "analysis/" )
(neg_derivable_fun formula-decl nil derivatives "analysis/" )
(exp const-decl "{py | x = ln(py)}" ln_exp nil )
(ln const-decl "real" ln_exp nil )
(composition_derivable_fun formula-decl nil chain_rule "analysis/" )
(scal_derivable_fun formula-decl nil derivatives "analysis/" )
(+ const-decl "[T -> real]" real_fun_ops "reals/" )
(sum_derivable_fun formula-decl nil derivatives "analysis/" )
(exp_deriv formula-decl nil ln_exp nil ))
shostak))
(tanh_derivable2 0
(tanh_derivable2-2 nil 3352439298
("" (expand "tanh" )
(("" (lemma "sinh_derivable2" )
(("" (lemma "cosh_derivable2" )
(("" (lemma "div_derivable_fun[real]" ("f" "sinh" "g" "cosh" ))
(("1" (assert )
(("1" (expand "/" ) (("1" (propax) nil nil )) nil )) nil )
("2" (hide-all-but 1)
(("2" (skosimp*)
(("2" (typepred "cosh(x1!1)" ) (("2" (assert ) nil nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
((sinh_derivable2 formula-decl nil hyperbolic 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 )
(cosh const-decl "posreal_ge1" hyperbolic nil )
(posreal_ge1 nonempty-type-eq-decl nil hyperbolic nil )
(>= const-decl "bool" reals nil )
(bool nonempty-type-eq-decl nil booleans nil )
(nzreal nonempty-type-eq-decl nil reals nil )
(/= const-decl "boolean" notequal nil )
(sinh const-decl "real" hyperbolic nil )
(div_derivable_fun formula-decl nil derivatives "analysis/" )
(/ const-decl "[T -> real]" real_fun_ops "reals/" )
(real_ge_is_total_order name-judgement "(total_order?[real])"
real_props nil )
(NOT const-decl "[bool -> bool]" booleans nil )
(cosh_derivable2 formula-decl nil hyperbolic nil )
(tanh const-decl "real_abs_lt1" hyperbolic nil )
(real_div_nzreal_is_real application-judgement "real" reals nil ))
nil )
(tanh_derivable2-1 nil 3270138327
("" (expand "tanh" )
(("" (lemma "sinh_derivable2" )
(("" (lemma "cosh_derivable2" )
(("" (lemma "div_derivable_fun" ("f" "sinh" "g" "cosh" ))
(("1" (assert )
(("1" (expand "/" ) (("1" (propax) nil nil )) nil )) nil )
("2" (hide-all-but 1)
(("2" (skosimp*)
(("2" (typepred "cosh(x1!1)" ) (("2" (assert ) nil nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
((div_derivable_fun formula-decl nil derivatives "analysis/" ))
shostak))
(deriv_sinh_TCC1 0
(deriv_sinh_TCC1-1 nil 3270127577
("" (lemma "sinh_derivable2" ) (("" (propax) nil nil )) nil )
((sinh_derivable2 formula-decl nil hyperbolic nil )) shostak))
(deriv_sinh 0
(deriv_sinh-2 nil 3352439354
("" (lemma "exp_deriv" )
(("" (flatten -1)
(("" (expand "sinh" )
(("" (expand "cosh" )
(("" (lemma "identity_derivable_fun[real]" )
(("" (lemma "deriv_id_fun[real]" )
(("" (expand "I" )
((""
(lemma "neg_derivable_fun[real]"
("f" "LAMBDA (x: real): x" ))
(("" (assert )
(("" (expand "-" )
((""
(lemma "deriv_neg_fun[real]"
("ff" "LAMBDA (x: real): x" ))
(("" (replace -3)
(("" (expand "-" )
((""
(lemma
"composition_derivable_fun[real,real]"
("f" "LAMBDA (x: real): -x" "g" "exp" ))
((""
(assert )
((""
(expand "o" )
((""
(lemma
"deriv_comp_fun[real,real]"
("ff"
"LAMBDA (x: real): -x"
"gg"
"exp" ))
((""
(replace -8)
((""
(replace -3)
((""
(expand "o" )
((""
(expand "*" )
((""
(lemma
"diff_derivable_fun[real]"
("f1"
"exp"
"f2"
"LAMBDA (x: real): exp(-x)" ))
((""
(assert )
((""
(expand "-" )
((""
(lemma
"deriv_diff_fun[real]"
("ff1"
"exp"
"ff2"
"LAMBDA (x: real): exp(-x)" ))
((""
(replace -10)
((""
(replace -3)
((""
(expand "-" )
((""
(lemma
"scal_derivable_fun[real]"
("f"
"LAMBDA (x_1: real): exp(x_1) - exp(-x_1)"
"b"
"1/2" ))
((""
(assert )
((""
(expand
"*" )
((""
(lemma
"deriv_scal_fun[real]"
("ff"
"LAMBDA (x_1: real): exp(x_1) - exp(-x_1)"
"b"
"1/2" ))
((""
(replace
-3)
((""
(expand
"*" )
((""
(assert )
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
((cosh const-decl "posreal_ge1" hyperbolic nil )
(deriv_id_fun formula-decl nil derivatives "analysis/" )
(neg_derivable_fun formula-decl nil derivatives "analysis/" )
(- const-decl "[T -> real]" real_fun_ops "reals/" )
(minus_real_is_real application-judgement "real" reals nil )
(composition_derivable_fun formula-decl nil chain_rule "analysis/" )
(numfield nonempty-type-eq-decl nil number_fields nil )
(- const-decl "[numfield -> numfield]" number_fields 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 )
(= const-decl "[T, T -> boolean]" equalities nil )
(ln const-decl "real" ln_exp nil )
(exp const-decl "{py | x = ln(py)}" ln_exp nil )
(deriv_domain? const-decl "bool" deriv_domain_def "analysis/" )
(not_one_element? const-decl "bool" deriv_domain_def "analysis/" )
(O const-decl "T3" function_props nil )
(diff_derivable_fun formula-decl nil derivatives "analysis/" )
(- const-decl "[T -> real]" real_fun_ops "reals/" )
(deriv_scal_fun formula-decl nil derivatives "analysis/" )
(posreal_times_posreal_is_posreal application-judgement "posreal"
real_types nil )
(* const-decl "[T -> real]" real_fun_ops "reals/" )
(- 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 )
(/= const-decl "boolean" notequal nil )
(scal_derivable_fun formula-decl nil derivatives "analysis/" )
(posrat_div_posrat_is_posrat application-judgement "posrat"
rationals nil )
(deriv_diff_fun formula-decl nil derivatives "analysis/" )
(nzreal_times_nzreal_is_nzreal application-judgement "nzreal"
real_types nil )
(* const-decl "[T -> real]" real_fun_ops "reals/" )
(deriv_comp_fun formula-decl nil chain_rule "analysis/" )
(minus_odd_is_odd application-judgement "odd_int" integers nil )
(deriv_fun type-eq-decl nil derivatives "analysis/" )
(derivable? const-decl "bool" derivatives "analysis/" )
(bool nonempty-type-eq-decl nil booleans nil )
(deriv_neg_fun formula-decl nil derivatives "analysis/" )
(real_div_nzreal_is_real application-judgement "real" reals nil )
(posreal_div_posreal_is_posreal application-judgement "posreal"
real_types nil )
(real_minus_real_is_real application-judgement "real" reals nil )
(posreal_plus_nnreal_is_posreal application-judgement "posreal"
real_types nil )
(I const-decl "(bijective?[T, T])" identity nil )
(identity_derivable_fun formula-decl nil derivatives "analysis/" )
(number nonempty-type-decl nil numbers nil )
(boolean nonempty-type-decl nil booleans nil )
(number_field_pred const-decl "[number -> boolean]" number_fields
nil )
(number_field nonempty-type-from-decl nil number_fields nil )
(real_pred const-decl "[number_field -> boolean]" reals nil )
(real nonempty-type-from-decl nil reals nil )
(sinh const-decl "real" hyperbolic nil )
(exp_deriv formula-decl nil ln_exp nil ))
nil )
(deriv_sinh-1 nil 3270138870
("" (lemma "exp_deriv" )
(("" (flatten -1)
(("" (expand "sinh" )
(("" (expand "cosh" )
(("" (lemma "identity_derivable_fun[real]" )
(("" (lemma "deriv_id_fun[real]" )
(("" (expand "I" )
(("" (expand "const_fun" )
((""
(lemma "neg_derivable_fun"
("f" "LAMBDA (x: real): x" ))
(("" (assert )
(("" (expand "-" )
((""
(lemma "deriv_neg_fun"
("ff" "LAMBDA (x: real): x" ))
(("" (replace -3)
(("" (expand "-" )
((""
(lemma
"composition_derivable_fun"
("f"
"LAMBDA (x: real): -x"
"g"
"exp" ))
((""
(assert )
((""
(expand "o" )
((""
(lemma
"deriv_comp_fun"
("ff"
"LAMBDA (x: real): -x"
"gg"
"exp" ))
((""
(replace -8)
((""
(replace -3)
((""
(expand "o" )
((""
(expand "*" )
((""
(lemma
"diff_derivable_fun"
("f1"
"exp"
"f2"
"LAMBDA (x: real): exp(-x)" ))
((""
(assert )
((""
(expand "-" )
((""
(lemma
"deriv_diff_fun"
("ff1"
"exp"
"ff2"
"LAMBDA (x: real): exp(-x)" ))
((""
(replace -10)
((""
(replace -3)
((""
(expand
"-" )
((""
(lemma
"scal_derivable_fun"
("f"
"LAMBDA (x_1: real): exp(x_1) - exp(-x_1)"
"b"
"1/2" ))
((""
(assert )
((""
(expand
"*" )
((""
(lemma
"deriv_scal_fun"
("ff"
"LAMBDA (x_1: real): exp(x_1) - exp(-x_1)"
"b"
"1/2" ))
((""
(replace
-3)
((""
(expand
"*" )
((""
(assert )
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
((deriv_id_fun formula-decl nil derivatives "analysis/" )
(const_fun const-decl "[T -> real]" real_fun_ops "reals/" )
(deriv_neg_fun formula-decl nil derivatives "analysis/" )
(deriv_fun type-eq-decl nil derivatives "analysis/" )
(deriv_comp_fun formula-decl nil chain_rule "analysis/" )
(deriv_diff_fun formula-decl nil derivatives "analysis/" )
(scal_derivable_fun formula-decl nil derivatives "analysis/" )
(deriv_scal_fun formula-decl nil derivatives "analysis/" )
(diff_derivable_fun formula-decl nil derivatives "analysis/" )
(exp const-decl "{py | x = ln(py)}" ln_exp nil )
(ln const-decl "real" ln_exp nil )
(composition_derivable_fun formula-decl nil chain_rule "analysis/" )
(neg_derivable_fun formula-decl nil derivatives "analysis/" )
(identity_derivable_fun formula-decl nil derivatives "analysis/" )
(exp_deriv formula-decl nil ln_exp nil ))
shostak))
(deriv_cosh_TCC1 0
(deriv_cosh_TCC1-1 nil 3270127577
("" (lemma "cosh_derivable2" ) (("" (propax) nil nil )) nil )
((cosh_derivable2 formula-decl nil hyperbolic nil )) shostak))
(deriv_cosh 0
(deriv_cosh-2 nil 3352442863
("" (expand "cosh" )
(("" (expand "sinh" )
(("" (lemma "exp_deriv" )
(("" (flatten -1)
(("" (lemma "identity_derivable_fun[real]" )
(("" (lemma "deriv_id_fun[real]" )
(("" (expand "I" )
(("" (expand "const_fun" )
((""
(lemma "neg_derivable_fun[real]"
("f" "LAMBDA (x: real): x" ))
(("" (assert )
(("" (expand "-" )
((""
(lemma "deriv_neg_fun[real]"
("ff" "LAMBDA (x: real): x" ))
(("" (replace -3)
(("" (expand "-" )
((""
(lemma
"composition_derivable_fun[real,real]"
("f"
"LAMBDA (x_1: real): -x_1"
"g"
"exp" ))
(("1"
(assert )
(("1"
(expand "o" )
(("1"
(lemma
"deriv_comp_fun[real,real]"
("ff"
"LAMBDA (x_1: real): -x_1"
"gg"
"exp" ))
(("1"
(replace -8)
(("1"
(replace -3)
(("1"
(expand "o" )
(("1"
(expand "*" )
(("1"
(lemma
"sum_derivable_fun[real]"
("f1"
"exp"
"f2"
"LAMBDA (x: real): exp(-x)" ))
(("1"
(assert )
(("1"
(expand "+" )
(("1"
(lemma
"deriv_sum_fun[real]"
("ff1"
"exp"
"ff2"
"LAMBDA (x: real): exp(-x)" ))
(("1"
(replace -10)
(("1"
(replace -3)
(("1"
(expand
"+" )
(("1"
(lemma
"scal_derivable_fun[real]"
("f"
"LAMBDA (x_1: real): exp(x_1) + exp(-x_1)"
"b"
"1/2" ))
(("1"
(assert )
(("1"
(expand
"*" )
(("1"
(lemma
"deriv_scal_fun[real]"
("ff"
"LAMBDA (x_1: real): exp(x_1) + exp(-x_1)"
"b"
"1/2" ))
(("1"
(replace
-3)
(("1"
(expand
"*" )
(("1"
(assert )
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(skosimp*)
(("2"
(inst + "x!1+1" )
(("2" (assert ) nil nil ))
nil ))
nil )
("3"
(lemma "deriv_domain_real" )
(("3" (propax) nil nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
((sinh const-decl "real" hyperbolic nil )
(deriv_id_fun formula-decl nil derivatives "analysis/" )
(neg_derivable_fun formula-decl nil derivatives "analysis/" )
(- const-decl "[T -> real]" real_fun_ops "reals/" )
(minus_real_is_real application-judgement "real" reals nil )
(composition_derivable_fun formula-decl nil chain_rule "analysis/" )
(numfield nonempty-type-eq-decl nil number_fields nil )
(- const-decl "[numfield -> numfield]" number_fields 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 )
(= const-decl "[T, T -> boolean]" equalities nil )
(ln const-decl "real" ln_exp nil )
(exp const-decl "{py | x = ln(py)}" ln_exp nil )
(deriv_domain? const-decl "bool" deriv_domain_def "analysis/" )
(not_one_element? const-decl "bool" deriv_domain_def "analysis/" )
(O const-decl "T3" function_props nil )
(sum_derivable_fun formula-decl nil derivatives "analysis/" )
(+ const-decl "[T -> real]" real_fun_ops "reals/" )
(real_plus_real_is_real application-judgement "real" reals nil )
(deriv_scal_fun formula-decl nil derivatives "analysis/" )
(posreal_times_posreal_is_posreal application-judgement "posreal"
real_types nil )
(* const-decl "[T -> real]" real_fun_ops "reals/" )
(+ 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 )
(/= const-decl "boolean" notequal nil )
(scal_derivable_fun formula-decl nil derivatives "analysis/" )
(posrat_div_posrat_is_posrat application-judgement "posrat"
rationals nil )
(deriv_sum_fun formula-decl nil derivatives "analysis/" )
(nzreal_times_nzreal_is_nzreal application-judgement "nzreal"
real_types nil )
(* const-decl "[T -> real]" real_fun_ops "reals/" )
(deriv_comp_fun formula-decl nil chain_rule "analysis/" )
(minus_odd_is_odd application-judgement "odd_int" integers nil )
(deriv_fun type-eq-decl nil derivatives "analysis/" )
(derivable? const-decl "bool" derivatives "analysis/" )
(bool nonempty-type-eq-decl nil booleans nil )
(deriv_neg_fun formula-decl nil derivatives "analysis/" )
(posreal_div_posreal_is_posreal application-judgement "posreal"
real_types nil )
(real_div_nzreal_is_real application-judgement "real" reals nil )
(posreal_plus_nnreal_is_posreal application-judgement "posreal"
real_types nil )
(real_minus_real_is_real application-judgement "real" reals nil )
(I const-decl "(bijective?[T, T])" identity nil )
(identity_derivable_fun formula-decl nil derivatives "analysis/" )
(number nonempty-type-decl nil numbers nil )
(boolean nonempty-type-decl nil booleans nil )
(number_field_pred const-decl "[number -> boolean]" number_fields
nil )
(number_field nonempty-type-from-decl nil number_fields nil )
(real_pred const-decl "[number_field -> boolean]" reals nil )
(real nonempty-type-from-decl nil reals nil )
(exp_deriv formula-decl nil ln_exp nil )
(cosh const-decl "posreal_ge1" hyperbolic nil ))
nil )
(deriv_cosh-1 nil 3270139324
("" (expand "cosh" )
(("" (expand "sinh" )
(("" (lemma "exp_deriv" )
(("" (flatten -1)
(("" (lemma "identity_derivable_fun[real]" )
(("" (lemma "deriv_id_fun[real]" )
(("" (expand "I" )
(("" (expand "const_fun" )
((""
(lemma "neg_derivable_fun"
("f" "LAMBDA (x: real): x" ))
(("" (assert )
(("" (expand "-" )
((""
(lemma "deriv_neg_fun"
("ff" "LAMBDA (x: real): x" ))
(("" (replace -3)
(("" (expand "-" )
((""
(lemma
"composition_derivable_fun"
("f"
"LAMBDA (x_1: real): -x_1"
"g"
"exp" ))
((""
(assert )
((""
(expand "o" )
((""
(lemma
"deriv_comp_fun"
("ff"
"LAMBDA (x_1: real): -x_1"
"gg"
"exp" ))
((""
(replace -8)
((""
(replace -3)
((""
(expand "o" )
((""
(expand "*" )
((""
(lemma
"sum_derivable_fun"
("f1"
"exp"
"f2"
"LAMBDA (x: real): exp(-x)" ))
((""
(assert )
((""
(expand "+" )
((""
(lemma
"deriv_sum_fun"
("ff1"
"exp"
"ff2"
"LAMBDA (x: real): exp(-x)" ))
((""
(replace -10)
((""
(replace -3)
((""
(expand
"+" )
((""
(lemma
"scal_derivable_fun"
("f"
"LAMBDA (x_1: real): exp(x_1) + exp(-x_1)"
"b"
"1/2" ))
((""
(assert )
((""
(expand
"*" )
((""
(lemma
"deriv_scal_fun"
("ff"
"LAMBDA (x_1: real): exp(x_1) + exp(-x_1)"
"b"
"1/2" ))
((""
(replace
-3)
((""
(expand
"*" )
((""
(assert )
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
((deriv_id_fun formula-decl nil derivatives "analysis/" )
(const_fun const-decl "[T -> real]" real_fun_ops "reals/" )
(deriv_neg_fun formula-decl nil derivatives "analysis/" )
(deriv_fun type-eq-decl nil derivatives "analysis/" )
(deriv_comp_fun formula-decl nil chain_rule "analysis/" )
(deriv_sum_fun formula-decl nil derivatives "analysis/" )
(scal_derivable_fun formula-decl nil derivatives "analysis/" )
(deriv_scal_fun formula-decl nil derivatives "analysis/" )
(+ const-decl "[T -> real]" real_fun_ops "reals/" )
(sum_derivable_fun formula-decl nil derivatives "analysis/" )
(exp const-decl "{py | x = ln(py)}" ln_exp nil )
(ln const-decl "real" ln_exp nil )
(composition_derivable_fun formula-decl nil chain_rule "analysis/" )
(neg_derivable_fun formula-decl nil derivatives "analysis/" )
(identity_derivable_fun formula-decl nil derivatives "analysis/" )
(exp_deriv formula-decl nil ln_exp nil ))
shostak))
(deriv_tanh_TCC1 0
(deriv_tanh_TCC1-1 nil 3270127577
("" (lemma "tanh_derivable2" ) (("" (propax) nil nil )) nil )
((tanh_derivable2 formula-decl nil hyperbolic nil )) shostak))
(deriv_tanh 0
(deriv_tanh-2 nil 3352442896
("" (lemma "sinh_derivable2" )
(("" (lemma "cosh_derivable2" )
(("" (lemma "deriv_sinh" )
(("" (lemma "deriv_cosh" )
(("" (expand "tanh" )
(("" (expand "sech" )
(("" (expand "*" )
((""
(lemma "div_derivable_fun[real]"
("f" "sinh" "g" "cosh" ))
(("1" (assert )
(("1"
(lemma "deriv_div_fun[real]"
("ff" "sinh" "gg" "cosh" ))
(("1" (expand "/" )
(("1" (replace -3)
(("1" (replace -4)
(("1" (expand "*" )
(("1"
(expand "-" )
(("1"
(replace -1)
(("1"
(hide-all-but 1)
(("1"
(lemma
"extensionality"
("f"
"LAMBDA (x: real):
(cosh(x) * cosh(x) - sinh(x) * sinh(x)) / (cosh(x) * cosh(x))"
"g"
"LAMBDA (x_1: real): 1 / cosh(x_1) * (1 / cosh(x_1))" ))
(("1"
(split -1)
(("1" (propax) nil nil )
("2"
(hide 2)
(("2"
(skosimp*)
(("2"
(rewrite "sq_rew" )
(("2"
(rewrite "sq_rew" )
(("2"
(rewrite "sq_rew" )
(("2"
(rewrite "sq_div" )
(("2"
(rewrite
"cosh_sinh_one" )
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(hide 2)
(("2"
(skosimp*)
(("2"
(typepred "cosh(x!1)" )
(("2"
(rewrite "sq_rew" )
(("2"
(lemma
"sq_nz_pos"
("nz" "cosh(x!1)" ))
(("2"
(assert )
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2" (skosimp*)
(("2" (typepred "cosh(x1!1)" )
(("2" (assert ) nil nil )) nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
((cosh_derivable2 formula-decl nil hyperbolic nil )
(deriv_cosh formula-decl nil hyperbolic nil )
(sech const-decl "posreal_le1" hyperbolic 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 )
(cosh const-decl "posreal_ge1" hyperbolic nil )
(posreal_ge1 nonempty-type-eq-decl nil hyperbolic nil )
(>= const-decl "bool" reals nil )
(bool nonempty-type-eq-decl nil booleans nil )
(nzreal nonempty-type-eq-decl nil reals nil )
(/= const-decl "boolean" notequal nil )
(sinh const-decl "real" hyperbolic nil )
(div_derivable_fun formula-decl nil derivatives "analysis/" )
(deriv_div_fun formula-decl nil derivatives "analysis/" )
(derivable? const-decl "bool" derivatives "analysis/" )
(deriv_fun type-eq-decl nil derivatives "analysis/" )
(nz_deriv_fun type-eq-decl nil derivatives "analysis/" )
(extensionality formula-decl nil functions nil )
(nznum nonempty-type-eq-decl nil number_fields nil )
(/ const-decl "[numfield, nznum -> numfield]" number_fields nil )
(- const-decl "[numfield, numfield -> numfield]" number_fields nil )
(* const-decl "[numfield, numfield -> numfield]" number_fields nil )
(numfield nonempty-type-eq-decl nil number_fields nil )
(sq_rew formula-decl nil sq "reals/" )
(real_minus_real_is_real application-judgement "real" reals nil )
(minus_odd_is_odd application-judgement "odd_int" integers nil )
(sq_nz_pos application-judgement "posreal" sq "reals/" )
(cosh_sinh_one formula-decl nil hyperbolic nil )
(sq_1 formula-decl nil sq "reals/" )
(sq_div formula-decl nil sq "reals/" )
(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 )
(sq_nz_pos judgement-tcc nil sq "reals/" )
(NOT const-decl "[bool -> bool]" booleans nil )
(- const-decl "[T -> real]" real_fun_ops "reals/" )
(real_times_real_is_real application-judgement "real" reals nil )
(/ const-decl "[T -> real]" real_fun_ops "reals/" )
(real_div_nzreal_is_real application-judgement "real" reals nil )
(nzreal_times_nzreal_is_nzreal application-judgement "nzreal"
real_types nil )
(nzreal_div_nzreal_is_nzreal application-judgement "nzreal"
real_types nil )
(* const-decl "[T -> real]" real_fun_ops "reals/" )
(tanh const-decl "real_abs_lt1" hyperbolic nil )
(deriv_sinh formula-decl nil hyperbolic nil )
(sinh_derivable2 formula-decl nil hyperbolic nil ))
nil )
(deriv_tanh-1 nil 3270138468
("" (lemma "sinh_derivable2" )
(("" (lemma "cosh_derivable2" )
(("" (lemma "deriv_sinh" )
(("" (lemma "deriv_cosh" )
(("" (expand "tanh" )
(("" (expand "sech" )
(("" (expand "*" )
((""
(lemma "div_derivable_fun" ("f" "sinh" "g" "cosh" ))
(("1" (assert )
(("1"
(lemma "deriv_div_fun" ("ff" "sinh" "gg" "cosh" ))
(("1" (expand "/" )
(("1" (replace -3)
(("1" (replace -4)
(("1" (expand "*" )
(("1"
(expand "-" )
(("1"
(replace -1)
(("1"
(hide-all-but 1)
(("1"
(lemma
"extensionality"
("f"
"LAMBDA (x: real):
(cosh(x) * cosh(x) - sinh(x) * sinh(x)) / (cosh(x) * cosh(x))"
"g"
"LAMBDA (x_1: real): 1 / cosh(x_1) * (1 / cosh(x_1))" ))
(("1"
(split -1)
(("1" (propax) nil nil )
("2"
(hide 2)
(("2"
(skosimp*)
(("2"
(rewrite "sq_rew" )
(("2"
(rewrite "sq_rew" )
(("2"
(rewrite "sq_rew" )
(("2"
(rewrite "sq_div" )
(("2"
(rewrite "sq_1" )
(("2"
(rewrite
"cosh_sinh_one" )
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(hide 2)
(("2"
(skosimp*)
(("2"
(typepred "cosh(x!1)" )
(("2"
(rewrite "sq_rew" )
(("2"
(lemma
"sq_nz_pos"
("nz" "cosh(x!1)" ))
(("2"
(assert )
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2" (skosimp*)
(("2" (typepred "cosh(x1!1)" )
(("2" (assert ) nil nil )) nil ))
nil ))
nil ))
nil )
("2" (skosimp*)
(("2" (typepred "cosh(x1!1)" )
(("2" (assert ) nil nil )) nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
((div_derivable_fun formula-decl nil derivatives "analysis/" )
(deriv_div_fun formula-decl nil derivatives "analysis/" )
(deriv_fun type-eq-decl nil derivatives "analysis/" )
(nz_deriv_fun type-eq-decl nil derivatives "analysis/" )
(sq_rew formula-decl nil sq "reals/" )
(sq_1 formula-decl nil sq "reals/" )
(sq_div formula-decl nil sq "reals/" )
(sq_nz_pos judgement-tcc nil sq "reals/" ))
shostak))
(sinh_series_n_TCC1 0
(sinh_series_n_TCC1-1 nil 3271096134 ("" (grind) nil nil ) nil
shostak))
(sinh_series_n_TCC2 0
(sinh_series_n_TCC2-1 nil 3374502269 ("" (subtype-tcc) nil nil )
((nnint_times_nnint_is_nnint application-judgement "nonneg_int"
integers nil )
(even_times_int_is_even application-judgement "even_int" integers
nil )
(mult_divides1 application-judgement "(divides(n))" divides nil )
(mult_divides2 application-judgement "(divides(m))" divides nil )
(/= const-decl "boolean" notequal nil ))
nil ))
(sinh_taylors_TCC1 0
(sinh_taylors_TCC1-2 nil 3445352631
("" (expand "connected?" ) (("" (propax) nil nil )) nil )
((connected? const-decl "bool" deriv_domain_def "analysis/" )) nil )
(sinh_taylors_TCC1-1 nil 3271096155
("" (skosimp*)
(("" (lemma "deriv_sinh" )
(("" (lemma "deriv_cosh" )
(("" (lemma "cosh_derivable2" )
(("" (lemma "sinh_derivable2" )
(("" (expand "derivable_n_times?" )
(("" (replace -4)
(("" (replace -1)
((""
(case "FORALL (n:nat): derivable_n_times[real](cosh, 2 * n)" )
(("1" (inst - "1+n!1" ) (("1" (assert ) nil nil ))
nil )
("2" (hide 2)
(("2" (induct "n" )
(("1" (expand "derivable_n_times?" )
(("1" (propax) nil nil )) nil )
("2" (skosimp*)
(("2" (expand "derivable_n_times?" 1)
(("2" (expand "derivable_n_times?" 1)
(("2"
(replace -4)
(("2"
(replace -5)
(("2" (assert ) nil nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
nil shostak))
(sinh_taylors_TCC2 0
(sinh_taylors_TCC2-1 nil 3471688886
("" (skosimp*) (("" (typepred "n!1" ) (("" (assert ) nil nil )) nil ))
nil )
((nat nonempty-type-eq-decl nil naturalnumbers nil )
(int nonempty-type-eq-decl nil integers nil )
(integer_pred const-decl "[rational -> boolean]" integers nil )
(rational nonempty-type-from-decl nil rationals nil )
(rational_pred const-decl "[real -> boolean]" rationals nil )
(>= const-decl "bool" reals nil )
(real nonempty-type-from-decl nil reals nil )
(real_pred const-decl "[number_field -> boolean]" reals nil )
(number_field nonempty-type-from-decl nil number_fields nil )
(number_field_pred const-decl "[number -> boolean]" number_fields
nil )
(number nonempty-type-decl nil numbers nil )
(NOT const-decl "[bool -> bool]" booleans nil )
(bool nonempty-type-eq-decl nil booleans nil )
(boolean nonempty-type-decl nil booleans nil )
(real_ge_is_total_order name-judgement "(total_order?[real])"
real_props nil )
(nnint_plus_posint_is_posint application-judgement "posint"
integers nil )
(even_plus_odd_is_odd application-judgement "odd_int" integers nil )
(nnint_times_nnint_is_nnint application-judgement "nonneg_int"
integers nil )
(even_times_int_is_even application-judgement "even_int" integers
nil )
(mult_divides1 application-judgement "(divides(n))" divides nil )
(mult_divides2 application-judgement "(divides(m))" divides nil ))
nil ))
(sinh_taylors 0
(sinh_taylors-3 nil 3445352988
("" (skosimp*)
((""
(lemma "Taylors[real]"
("aa" "0" "bb" "x!1" "f" "sinh" "n" "2*n!1+2" ))
(("" (case "FORALL (n:nat): derivable_n_times?(sinh,n)" )
(("1" (lemma "deriv_sinh" )
(("1" (lemma "deriv_cosh" )
(("1" (lemma "sinh_derivable2" )
(("1" (lemma "cosh_derivable2" )
(("1" (case "FORALL (n:nat): nderiv(2*n,sinh) = sinh" )
(("1"
(case "FORALL (n:nat): nderiv(2*n+1,sinh) = cosh" )
(("1" (inst-cp -7 "2*n!1+3" )
(("1" (replace -8)
(("1" (skolem! -9)
(("1" (inst + "c!1" )
(("1" (replace -9 1)
(("1"
(inst-cp -1 "n!1+1" )
(("1"
(replace -2)
(("1"
(simplify 1)
(("1"
(hide -10)
(("1"
(expand "sinh_series_n" )
(("1"
(rewrite "sinh_0" )
(("1"
(case
"FORALL (i:nat): i <= n!1 => sigma(0, 2 + 2 * i,
LAMBDA (nn:nat):
IF nn > 2 + 2 * n!1 THEN 0
ELSIF nn = 0 THEN 0
ELSE nderiv(nn, sinh)(0) * x!1 ^ nn / factorial(nn)
ENDIF)
=
sigma(0, i,
LAMBDA (i: nat): (x!1 ^ (1 + 2 * i)) / factorial(1 + 2 * i))")
(("1"
(inst - "n!1" )
(("1" (assert ) nil nil ))
nil )
("2"
(hide 2)
(("2"
(induct "i" )
(("1"
(expand "sigma" 1)
(("1"
(expand "sigma" 1)
(("1"
(expand
"sigma"
1)
(("1"
(expand
"nderiv"
1)
(("1"
(expand
"nderiv"
1)
(("1"
(expand
"nderiv"
1)
(("1"
(replace
-7)
(("1"
(replace
-6)
(("1"
(rewrite
"sinh_0" )
(("1"
(rewrite
"cosh_0" )
(("1"
(assert )
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(skosimp*)
(("2"
(expand "sigma" 1)
(("2"
(expand
"sigma"
1
1)
(("2"
(assert )
(("2"
(replace
-1
1)
(("2"
(simplify
1)
(("2"
(hide -1)
(("2"
(inst
-2
"1+j!1" )
(("2"
(replace
-2)
(("2"
(inst
-4
"2+j!1" )
(("2"
(replace
-4)
(("2"
(rewrite
"sinh_0" )
(("2"
(rewrite
"cosh_0" )
(("2"
(assert )
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("3"
(hide 2)
(("3"
(skosimp*)
(("3"
(inst -10 "nn!1" )
nil
nil ))
nil ))
nil ))
nil ))
nil )
("3"
(hide 2)
(("3"
(skosimp*)
(("3"
(inst -9 "nn!1" )
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2" (hide -7 2)
(("2" (induct "n" )
(("1" (expand "nderiv" 1)
(("1" (expand "nderiv" 1)
(("1" (propax) nil nil )) nil ))
nil )
("2" (skosimp*)
(("2" (expand "nderiv" 1)
(("2" (expand "nderiv" 1)
(("2"
(replace -6)
(("2"
(replace -5)
(("2" (assert ) nil nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("3" (skosimp*)
(("3" (inst - "1+2*n!3" ) nil nil )) nil ))
nil ))
nil )
("3" (skosimp*)
(("3" (inst -6 "1+2*n!2" ) nil nil )) nil ))
nil )
("2" (hide -6 2)
(("2" (copy -5)
(("2" (induct "n" 1)
(("1" (expand "nderiv" 1)
(("1" (propax) nil nil )) nil )
("2" (skolem! 1)
(("2" (flatten 1)
(("2" (expand "nderiv" 1)
(("2"
(expand "nderiv" 1)
(("2"
(replace -6)
(("2"
(replace -5)
(("2" (propax) nil nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("3" (skosimp*)
(("3" (inst - "2*n!3" ) nil nil )) nil ))
nil ))
nil ))
nil )
("3" (skosimp*) (("3" (inst -5 "2*n!2" ) nil nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2" (hide-all-but 1)
(("2" (skosimp*)
(("2"
(case "FORALL (n:nat): derivable_n_times?(sinh, n*2)" )
(("1" (case "even?(n!2)" )
(("1" (expand "even?" )
(("1" (skosimp*)
(("1" (replace -1)
(("1" (inst - "j!1" )
(("1" (assert ) nil nil ) ("2" (assert ) nil nil ))
nil ))
nil ))
nil ))
nil )
("2" (rewrite "even_or_odd" )
(("2" (expand "odd?" )
(("2" (skosimp*)
(("2" (replace -1)
(("2" (inst - "2+2*j!1" )
(("1"
(lemma "derivable_n_times_lem[real]"
("f" "sinh" "n" "(2 + 2 * j!1) * 2" "m"
"1 + 2 * j!1" ))
(("1" (assert ) nil nil )
("2" (assert ) nil nil )
("3" (assert ) nil nil ))
nil )
("2" (assert ) nil nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2" (hide 2)
(("2" (induct "n" )
(("1" (expand "derivable_n_times?" )
(("1" (propax) nil nil )) nil )
("2" (skosimp*)
(("2" (expand "derivable_n_times?" 1)
(("2" (expand "derivable_n_times?" 1)
(("2" (lemma "sinh_derivable2" )
(("2" (lemma "cosh_derivable2" )
(("2" (lemma "deriv_cosh" )
(("2"
(lemma "deriv_sinh" )
(("2"
(replace -1)
(("2"
(replace -2)
(("2" (assert ) nil nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
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 )
(* const-decl "[numfield, numfield -> numfield]" number_fields nil )
(+ const-decl "[numfield, numfield -> numfield]" number_fields nil )
(numfield nonempty-type-eq-decl nil number_fields nil )
(nat nonempty-type-eq-decl nil naturalnumbers nil )
(>= const-decl "bool" reals nil )
(bool nonempty-type-eq-decl nil booleans 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 )
(sinh const-decl "real" hyperbolic nil )
(Taylors formula-decl nil taylors "analysis/" )
(even_plus_even_is_even application-judgement "even_int" integers
nil )
(nnint_plus_posint_is_posint application-judgement "posint"
integers nil )
(int_times_even_is_even application-judgement "even_int" integers
nil )
(even_or_odd formula-decl nil naturalnumbers nil )
(j!1 skolem-const-decl "int" hyperbolic nil )
(derivable_n_times_lem formula-decl nil nth_derivatives
"analysis/" )
(odd? const-decl "bool" integers nil )
(j!1 skolem-const-decl "int" hyperbolic nil )
(real_ge_is_total_order name-judgement "(total_order?[real])"
real_props nil )
(even? const-decl "bool" integers nil )
(deriv_sinh formula-decl nil hyperbolic nil )
(sinh_derivable2 formula-decl nil hyperbolic nil )
(nnint_times_nnint_is_nnint application-judgement "nonneg_int"
integers nil )
(even_times_int_is_even application-judgement "even_int" integers
nil )
(mult_divides1 application-judgement "(divides(n))" divides nil )
(mult_divides2 application-judgement "(divides(m))" divides nil )
(= const-decl "[T, T -> boolean]" equalities nil )
(nderiv_fun type-eq-decl nil nth_derivatives "analysis/" )
(nderiv def-decl "[T -> real]" nth_derivatives "analysis/" )
(real_times_real_is_real application-judgement "real" reals nil )
(real_div_nzreal_is_real application-judgement "real" reals nil )
(int_minus_int_is_int application-judgement "int" integers nil )
(posint_times_posint_is_posint application-judgement "posint"
integers nil )
(sinh_0 formula-decl nil hyperbolic nil )
(real_gt_is_strict_total_order name-judgement
"(strict_total_order?[real])" real_props nil )
(sigma_0_neg formula-decl nil sigma_nat "reals/" )
(factorial_1 formula-decl nil factorial "ints/" )
(cosh_0 formula-decl nil hyperbolic nil )
(nat_induction formula-decl nil naturalnumbers nil )
(pred type-eq-decl nil defined_types nil )
(n!1 skolem-const-decl "nat" hyperbolic nil )
(real_lt_is_strict_total_order name-judgement
"(strict_total_order?[real])" real_props nil )
(real_le_is_total_order name-judgement "(total_order?[real])"
real_props nil )
(NOT const-decl "[bool -> bool]" booleans nil )
(factorial def-decl "posnat" factorial "ints/" )
(posnat nonempty-type-eq-decl nil integers nil )
(nonneg_int nonempty-type-eq-decl nil integers nil )
(^ const-decl "real" exponentiation nil )
(/ const-decl "[numfield, nznum -> numfield]" number_fields nil )
(nznum nonempty-type-eq-decl nil number_fields nil )
(/= const-decl "boolean" notequal nil )
(> const-decl "bool" reals nil )
(IF const-decl "[boolean, T, T -> T]" if_def nil )
(sigma def-decl "real" sigma "reals/" )
(T_high type-eq-decl nil sigma "reals/" )
(T_low type-eq-decl nil sigma "reals/" )
(OR const-decl "[bool, bool -> bool]" booleans nil )
(<= const-decl "bool" reals nil )
(odd_plus_even_is_odd application-judgement "odd_int" integers nil )
(sinh_series_n const-decl "real" hyperbolic nil )
(real_minus_real_is_real application-judgement "real" reals nil )
(real_plus_real_is_real application-judgement "real" reals nil )
(AND const-decl "[bool, bool -> bool]" booleans nil )
(IMPLIES const-decl "[bool, bool -> bool]" booleans nil )
(< const-decl "bool" reals nil )
(between type-eq-decl nil taylors "analysis/" )
(posint_plus_nnint_is_posint application-judgement "posint"
integers nil )
(cosh const-decl "posreal_ge1" hyperbolic nil )
(posreal_ge1 nonempty-type-eq-decl nil hyperbolic nil )
(even_plus_odd_is_odd application-judgement "odd_int" integers nil )
(cosh_derivable2 formula-decl nil hyperbolic nil )
(deriv_cosh formula-decl nil hyperbolic nil )
(derivable_n_times? def-decl "bool" nth_derivatives "analysis/" ))
nil )
(sinh_taylors-2 nil 3352442990
("" (skosimp*)
((""
(lemma "Taylors[real]"
("aa" "0" "bb" "x!1" "f" "sinh" "n" "2*n!1+2" ))
(("" (case "FORALL (n:nat): derivable_n_times(sinh,n)" )
(("1" (lemma "deriv_sinh" )
(("1" (lemma "deriv_cosh" )
(("1" (lemma "sinh_derivable2" )
(("1" (lemma "cosh_derivable2" )
(("1" (case "FORALL (n:nat): nderiv(2*n,sinh) = sinh" )
(("1"
(case "FORALL (n:nat): nderiv(2*n+1,sinh) = cosh" )
(("1" (inst-cp -7 "2*n!1+3" )
(("1" (replace -8)
(("1" (skolem! -9)
(("1" (inst + "c!1" )
(("1" (replace -9 1)
(("1"
(inst-cp -1 "n!1+1" )
(("1"
(replace -2)
(("1"
(simplify 1)
(("1"
(hide -10)
(("1"
(expand "sinh_series_n" )
(("1"
(rewrite "sinh_0" )
(("1"
(case
"FORALL (i:nat): i <= n!1 => sigma(0, 2 + 2 * i,
LAMBDA (nn:nat):
IF nn > 2 + 2 * n!1 THEN 0
ELSIF nn = 0 THEN 0
ELSE nderiv(nn, sinh)(0) * x!1 ^ nn / factorial(nn)
ENDIF)
=
sigma(0, i,
LAMBDA (i: nat): (x!1 ^ (1 + 2 * i)) / factorial(1 + 2 * i))")
(("1"
(inst - "n!1" )
(("1" (assert ) nil nil ))
nil )
("2"
(hide 2)
(("2"
(induct "i" )
(("1"
(expand "sigma" 1)
(("1"
(expand "sigma" 1)
(("1"
(expand
"sigma"
1)
(("1"
(expand
"nderiv"
1)
(("1"
(expand
"nderiv"
1)
(("1"
(expand
"nderiv"
1)
(("1"
(replace
-7)
(("1"
(replace
-6)
(("1"
(rewrite
"sinh_0" )
(("1"
(rewrite
"cosh_0" )
(("1"
(assert )
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(skosimp*)
(("2"
(expand "sigma" 1)
(("2"
(expand
"sigma"
1
1)
(("2"
(assert )
(("2"
(replace
-1
1)
(("2"
(simplify
1)
(("2"
(hide -1)
(("2"
(inst
-2
"1+j!1" )
(("2"
(replace
-2)
(("2"
(inst
-4
"2+j!1" )
(("2"
(replace
-4)
(("2"
(rewrite
"sinh_0" )
(("2"
(rewrite
"cosh_0" )
(("2"
(assert )
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("3"
(hide 2)
(("3"
(skosimp*)
(("3"
(inst -10 "nn!1" )
nil
nil ))
nil ))
nil ))
nil ))
nil )
("3"
(hide 2)
(("3"
(skosimp*)
(("3"
(inst -9 "nn!1" )
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2" (hide -7 2)
(("2" (induct "n" )
(("1" (expand "nderiv" 1)
(("1" (expand "nderiv" 1)
(("1" (propax) nil nil )) nil ))
nil )
("2" (skosimp*)
(("2" (expand "nderiv" 1)
(("2" (expand "nderiv" 1)
(("2"
(replace -6)
(("2"
(replace -5)
(("2" (assert ) nil nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("3" (skosimp*)
(("3" (inst - "1+2*n!3" ) nil nil )) nil ))
nil ))
nil )
("3" (skosimp*)
(("3" (inst -6 "1+2*n!2" ) nil nil )) nil ))
nil )
("2" (hide -6 2)
(("2" (copy -5)
(("2" (induct "n" 1)
(("1" (expand "nderiv" 1)
(("1" (propax) nil nil )) nil )
("2" (skolem! 1)
(("2" (flatten 1)
(("2" (expand "nderiv" 1)
(("2"
(expand "nderiv" 1)
(("2"
(replace -6)
(("2"
(replace -5)
(("2" (propax) nil nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("3" (skosimp*)
(("3" (inst - "2*n!3" ) nil nil )) nil ))
nil ))
nil ))
nil )
("3" (skosimp*) (("3" (inst -5 "2*n!2" ) nil nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2" (hide-all-but 1)
(("2" (skosimp*)
(("2" (case "FORALL (n:nat): derivable_n_times(sinh, n*2)" )
(("1" (case "even?(n!2)" )
(("1" (expand "even?" )
(("1" (skosimp*)
(("1" (replace -1)
(("1" (inst - "j!1" )
(("1" (assert ) nil nil ) ("2" (assert ) nil nil ))
nil ))
nil ))
nil ))
nil )
("2" (rewrite "even_or_odd" )
(("2" (expand "odd?" )
(("2" (skosimp*)
(("2" (replace -1)
(("2" (inst - "2+2*j!1" )
(("1"
(lemma "derivable_n_times_lem[real]"
("f" "sinh" "n" "(2 + 2 * j!1) * 2" "m"
"1 + 2 * j!1" ))
(("1" (assert ) nil nil )
("2" (assert ) nil nil )
("3" (assert ) nil nil ))
nil )
("2" (assert ) nil nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2" (hide 2)
(("2" (induct "n" )
(("1" (expand "derivable_n_times?" )
(("1" (propax) nil nil )) nil )
("2" (skosimp*)
(("2" (expand "derivable_n_times?" 1)
(("2" (expand "derivable_n_times?" 1)
(("2" (lemma "sinh_derivable2" )
(("2" (lemma "cosh_derivable2" )
(("2" (lemma "deriv_cosh" )
(("2"
(lemma "deriv_sinh" )
(("2"
(replace -1)
(("2"
(replace -2)
(("2" (assert ) nil nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
((Taylors formula-decl nil taylors "analysis/" )
(derivable_n_times_lem formula-decl nil nth_derivatives
"analysis/" )
(nderiv_fun type-eq-decl nil nth_derivatives "analysis/" )
(nderiv def-decl "[T -> real]" nth_derivatives "analysis/" )
(sigma_0_neg formula-decl nil sigma_nat "reals/" )
(sigma def-decl "real" sigma "reals/" )
(T_high type-eq-decl nil sigma "reals/" )
(T_low type-eq-decl nil sigma "reals/" )
(between type-eq-decl nil taylors "analysis/" ))
nil )
(sinh_taylors-1 nil 3271096747
("" (skosimp*)
((""
(lemma "Taylors" ("aa" "0" "bb" "x!1" "f" "sinh" "n" "2*n!1+2" ))
(("" (case "FORALL (n:nat): derivable_n_times(sinh,n)" )
(("1" (lemma "deriv_sinh" )
(("1" (lemma "deriv_cosh" )
(("1" (lemma "sinh_derivable2" )
(("1" (lemma "cosh_derivable2" )
(("1" (case "FORALL (n:nat): nderiv(2*n,sinh) = sinh" )
(("1"
(case "FORALL (n:nat): nderiv(2*n+1,sinh) = cosh" )
(("1" (inst-cp -7 "2*n!1+3" )
(("1" (replace -8)
(("1" (skolem! -9)
(("1" (inst + "c!1" )
(("1" (replace -9 1)
(("1"
(inst-cp -1 "n!1+1" )
(("1"
(replace -2)
(("1"
(simplify 1)
(("1"
(hide -10)
(("1"
(expand "sinh_series_n" )
(("1"
(rewrite "sinh_0" )
(("1"
(case
"FORALL (i:nat): i <= n!1 => sigma(0, 2 + 2 * i,
LAMBDA (nn:nat):
IF nn > 2 + 2 * n!1 THEN 0
ELSIF nn = 0 THEN 0
ELSE nderiv(nn, sinh)(0) * x!1 ^ nn / factorial(nn)
ENDIF)
=
sigma(0, i,
LAMBDA (i: nat): (x!1 ^ (1 + 2 * i)) / factorial(1 + 2 * i))")
(("1"
(inst - "n!1" )
(("1" (assert ) nil nil ))
nil )
("2"
(hide 2)
(("2"
(induct "i" )
(("1"
(expand "sigma" 1)
(("1"
(expand "sigma" 1)
(("1"
(expand
"sigma"
1)
(("1"
(expand
"nderiv"
1)
(("1"
(expand
"nderiv"
1)
(("1"
(expand
"nderiv"
1)
(("1"
(replace
-7)
(("1"
(replace
-6)
(("1"
(rewrite
"sinh_0" )
(("1"
(rewrite
"cosh_0" )
(("1"
(assert )
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(skosimp*)
(("2"
(expand "sigma" 1)
(("2"
(expand
"sigma"
1
1)
(("2"
(assert )
(("2"
(replace
-1
1)
(("2"
(simplify
1)
(("2"
(hide -1)
(("2"
(inst
-2
"1+j!1" )
(("2"
(replace
-2)
(("2"
(inst
-4
"2+j!1" )
(("2"
(replace
-4)
(("2"
(rewrite
"sinh_0" )
(("2"
(rewrite
"cosh_0" )
(("2"
(assert )
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("3"
(hide 2)
(("3"
(skosimp*)
(("3"
(inst -10 "nn!1" )
nil
nil ))
nil ))
nil ))
nil ))
nil )
("3"
(hide 2)
(("3"
(skosimp*)
(("3"
(inst -9 "nn!1" )
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2" (hide -7 2)
(("2" (induct "n" )
(("1" (expand "nderiv" 1)
(("1" (expand "nderiv" 1)
(("1" (propax) nil nil )) nil ))
nil )
("2" (skosimp*)
(("2" (expand "nderiv" 1)
(("2" (expand "nderiv" 1)
(("2"
(replace -6)
(("2"
(replace -5)
(("2" (assert ) nil nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("3" (skosimp*)
(("3" (inst - "1+2*n!3" ) nil nil )) nil ))
nil ))
nil )
("3" (skosimp*)
(("3" (inst -6 "1+2*n!2" ) nil nil )) nil ))
nil )
("2" (hide -6 2)
(("2" (copy -5)
(("2" (induct "n" 1)
(("1" (expand "nderiv" 1)
(("1" (propax) nil nil )) nil )
("2" (skolem! 1)
(("2" (flatten 1)
(("2" (expand "nderiv" 1)
(("2"
(expand "nderiv" 1)
(("2"
(replace -6)
(("2"
(replace -5)
(("2" (propax) nil nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("3" (skosimp*)
(("3" (inst - "2*n!3" ) nil nil )) nil ))
nil ))
nil ))
nil )
("3" (skosimp*) (("3" (inst -5 "2*n!2" ) nil nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2" (hide-all-but 1)
(("2" (skosimp*)
(("2" (case "FORALL (n:nat): derivable_n_times(sinh, n*2)" )
(("1" (case "even?(n!2)" )
(("1" (expand "even?" )
(("1" (skosimp*)
(("1" (replace -1)
(("1" (inst - "j!1" )
(("1" (assert ) nil nil ) ("2" (assert ) nil nil ))
nil ))
nil ))
nil ))
nil )
("2" (rewrite "even_or_odd" )
(("2" (expand "odd?" )
(("2" (skosimp*)
(("2" (replace -1)
(("2" (inst - "2+2*j!1" )
(("1"
(lemma "derivable_n_times_lem"
("f" "sinh" "n" "(2 + 2 * j!1) * 2" "m"
"1 + 2 * j!1" ))
(("1" (assert ) nil nil )
("2" (assert ) nil nil )
("3" (assert ) nil nil ))
nil )
("2" (assert ) nil nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2" (hide 2)
(("2" (induct "n" )
(("1" (expand "derivable_n_times?" )
(("1" (propax) nil nil )) nil )
("2" (skosimp*)
(("2" (expand "derivable_n_times?" 1)
(("2" (expand "derivable_n_times?" 1)
(("2" (lemma "sinh_derivable2" )
(("2" (lemma "cosh_derivable2" )
(("2" (lemma "deriv_cosh" )
(("2"
(lemma "deriv_sinh" )
(("2"
(replace -1)
(("2"
(replace -2)
(("2" (assert ) nil nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
((sigma def-decl "real" sigma "reals/" )) shostak))
(asinh_TCC1 0
(asinh_TCC1-1 nil 3253579641
("" (skosimp*)
(("" (case "x!1 < 0" )
(("1" (lemma "sqrt_lt" ("nny" "sq(-x!1)" "nnz" "sq(x!1)+1" ))
(("1" (rewrite "sqrt_sq" -1)
(("1" (rewrite "sq_neg" -1) (("1" (assert ) nil nil )) nil ))
nil ))
nil )
("2" (case "x!1=0" )
(("1" (replace -1)
(("1" (rewrite "sq_0" )
(("1" (rewrite "sqrt_1" ) (("1" (assert ) nil nil )) nil ))
nil ))
nil )
("2" (lemma "sqrt_lt" ("nny" "0" "nnz" "sq(x!1)+1" ))
(("2" (flatten)
(("2" (split -2)
(("1" (rewrite "sqrt_0" ) (("1" (assert ) nil nil )) nil )
("2"
(lemma "both_sides_times_pos_lt1"
("x" "0" "y" "x!1" "pz" "x!1" ))
(("1" (hide -2 4) (("1" (grind) nil nil )) nil )
("2" (assert ) nil nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
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 )
(sqrt_sq formula-decl nil sqrt "reals/" )
(sqrt_pos application-judgement "posreal" sqrt "reals/" )
(real_lt_is_strict_total_order name-judgement
"(strict_total_order?[real])" real_props nil )
(real_ge_is_total_order name-judgement "(total_order?[real])"
real_props nil )
(real_plus_real_is_real application-judgement "real" reals nil )
(sq_neg formula-decl nil sq "reals/" )
(minus_real_is_real application-judgement "real" reals nil )
(nnreal_plus_posreal_is_posreal application-judgement "posreal"
real_types nil )
(sqrt_lt formula-decl nil sqrt "reals/" )
(>= const-decl "bool" reals nil )
(nonneg_real nonempty-type-eq-decl nil real_types nil )
(sq const-decl "nonneg_real" sq "reals/" )
(numfield nonempty-type-eq-decl nil number_fields nil )
(- const-decl "[numfield -> numfield]" number_fields nil )
(+ const-decl "[numfield, numfield -> numfield]" number_fields nil )
(sqrt_0 formula-decl nil sqrt "reals/" )
(real_times_real_is_real application-judgement "real" reals nil )
(AND const-decl "[bool, bool -> bool]" booleans nil )
(real_gt_is_strict_total_order name-judgement
"(strict_total_order?[real])" real_props nil )
(posreal nonempty-type-eq-decl nil real_types nil )
(> const-decl "bool" reals nil )
(both_sides_times_pos_lt1 formula-decl nil real_props nil )
(sqrt_1 formula-decl nil sqrt "reals/" )
(sq_0 formula-decl nil sq "reals/" )
(= const-decl "[T, T -> boolean]" equalities nil ))
shostak))
(acosh_TCC1 0
(acosh_TCC1-1 nil 3253579641
("" (skosimp*)
(("" (typepred "x!1" )
(("" (lemma "le_times_le_pos" )
(("" (inst - "1" "1" "x!1" "x!1" )
(("" (expand "sq" ) (("" (assert ) nil nil )) nil )) nil ))
nil ))
nil ))
nil )
((posreal_ge1 nonempty-type-eq-decl nil hyperbolic nil )
(>= const-decl "bool" reals nil )
(real nonempty-type-from-decl nil reals nil )
(real_pred const-decl "[number_field -> boolean]" reals nil )
(number_field nonempty-type-from-decl nil number_fields nil )
(number_field_pred const-decl "[number -> boolean]" number_fields
nil )
(number nonempty-type-decl nil numbers nil )
(NOT const-decl "[bool -> bool]" booleans nil )
(bool nonempty-type-eq-decl nil booleans nil )
(boolean nonempty-type-decl nil booleans nil )
(nonneg_real nonempty-type-eq-decl nil real_types nil )
(real_le_is_total_order name-judgement "(total_order?[real])"
real_props nil )
(real_times_real_is_real application-judgement "real" reals nil )
(real_minus_real_is_real application-judgement "real" reals nil )
(real_ge_is_total_order name-judgement "(total_order?[real])"
real_props nil )
(sq const-decl "nonneg_real" sq "reals/" )
(le_times_le_pos formula-decl nil real_props nil ))
shostak))
(acosh_TCC2 0
(acosh_TCC2-1 nil 3253579641
("" (skosimp*)
(("" (typepred "sqrt(sq(x!1)-1)" )
(("1" (assert ) nil nil )
("2" (lemma "acosh_TCC1" ("x" "x!1" )) (("2" (propax) nil nil ))
nil ))
nil ))
nil )
((posreal_ge1 nonempty-type-eq-decl nil hyperbolic nil )
(sq const-decl "nonneg_real" sq "reals/" )
(- const-decl "[numfield, numfield -> numfield]" number_fields nil )
(sqrt const-decl "{nnz: nnreal | nnz * nnz = nnx}" sqrt "reals/" )
(* const-decl "[numfield, numfield -> numfield]" number_fields nil )
(numfield nonempty-type-eq-decl nil number_fields nil )
(= const-decl "[T, T -> boolean]" equalities nil )
(nnreal type-eq-decl nil real_types nil )
(nonneg_real nonempty-type-eq-decl nil real_types nil )
(>= const-decl "bool" reals nil )
(real nonempty-type-from-decl nil reals nil )
(real_pred const-decl "[number_field -> boolean]" reals nil )
(number_field nonempty-type-from-decl nil number_fields nil )
(number_field_pred const-decl "[number -> boolean]" number_fields
nil )
(number nonempty-type-decl nil numbers nil )
(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 )
(real_ge_is_total_order name-judgement "(total_order?[real])"
real_props nil )
(nnreal_times_nnreal_is_nnreal application-judgement "nnreal"
real_types nil )
(real_plus_real_is_real application-judgement "real" reals nil )
(acosh_TCC1 subtype-tcc nil hyperbolic nil ))
shostak))
(acosh_TCC3 0
(acosh_TCC3-1 nil 3253579641
("" (skosimp*)
(("" (lemma "acosh_TCC2" ("x" "x!1" ))
(("" (flatten)
(("" (lemma "ln_increasing" )
(("" (expand "increasing?" )
((""
(lemma "le_times_le_pos"
("nnx" "1" "y" "x!1" "nnz" "1" "w" "x!1" ))
(("" (assert )
(("" (case "x!1 = 1" )
(("1" (replace -1)
(("1" (rewrite "sq_1" )
(("1" (rewrite "sqrt_0" )
(("1" (rewrite "ln_1" ) (("1" (assert ) nil nil ))
nil ))
nil ))
nil ))
nil )
("2" (case "x!1 > 1" )
(("1"
(lemma "lt_times_lt_pos1"
("px" "1" "y" "x!1" "nnz" "1" "w" "x!1" ))
(("1" (assert )
(("1"
(lemma "sqrt_lt"
("nny" "0" "nnz" "sq(x!1)-1" ))
(("1" (rewrite "sqrt_0" )
(("1" (expand "sq" )
(("1"
(inst - "1" "x!1+sqrt(x!1*x!1-1)" )
(("1"
(rewrite "ln_1" )
(("1" (assert ) nil nil ))
nil )
("2" (assert ) nil nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2" (assert ) nil nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
((posreal_ge1 nonempty-type-eq-decl nil hyperbolic 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 )
(acosh_TCC2 subtype-tcc nil hyperbolic nil )
(ln_increasing formula-decl nil ln_exp nil )
(le_times_le_pos formula-decl nil real_props nil )
(nonneg_real nonempty-type-eq-decl nil real_types nil )
(= const-decl "[T, T -> boolean]" equalities nil )
(sq_1 formula-decl nil sq "reals/" )
(ln_1 formula-decl nil ln_exp nil )
(posint_times_posint_is_posint application-judgement "posint"
integers nil )
(odd_times_odd_is_odd application-judgement "odd_int" integers nil )
(mult_divides1 application-judgement "(divides(n))" divides nil )
(nnint_plus_posint_is_posint application-judgement "posint"
integers nil )
(even_plus_odd_is_odd application-judgement "odd_int" integers nil )
(sqrt_0 formula-decl nil sqrt "reals/" )
(sq_nz_pos application-judgement "posreal" sq "reals/" )
(lt_times_lt_pos1 formula-decl nil real_props nil )
(posreal nonempty-type-eq-decl nil real_types nil )
(sqrt_lt formula-decl nil sqrt "reals/" )
(numfield nonempty-type-eq-decl nil number_fields nil )
(- const-decl "[numfield, numfield -> numfield]" number_fields nil )
(sq const-decl "nonneg_real" sq "reals/" )
(x!1 skolem-const-decl "posreal_ge1" hyperbolic nil )
(sqrt const-decl "{nnz: nnreal | nnz * nnz = nnx}" sqrt "reals/" )
(* const-decl "[numfield, numfield -> numfield]" number_fields nil )
(nnreal type-eq-decl nil real_types nil )
(+ const-decl "[numfield, numfield -> numfield]" number_fields nil )
(AND const-decl "[bool, bool -> bool]" booleans nil )
(real_times_real_is_real application-judgement "real" reals nil )
(real_lt_is_strict_total_order name-judgement
"(strict_total_order?[real])" real_props nil )
(> const-decl "bool" reals nil )
(real_ge_is_total_order name-judgement "(total_order?[real])"
real_props nil )
(real_plus_real_is_real application-judgement "real" reals nil )
(real_minus_real_is_real application-judgement "real" reals nil )
(real_gt_is_strict_total_order name-judgement
"(strict_total_order?[real])" real_props nil )
(real_le_is_total_order name-judgement "(total_order?[real])"
real_props nil )
(increasing? const-decl "bool" real_fun_preds "reals/" ))
shostak))
(atanh_TCC1 0
(atanh_TCC1-1 nil 3253579641 ("" (grind) nil nil ) nil shostak))
(atanh_TCC2 0
(atanh_TCC2-1 nil 3253579641
("" (skosimp*)
(("" (typepred "x!1" )
(("" (lemma "div_mult_pos_lt2" )
(("" (inst - "1-x!1" "0" "1+x!1" ) (("" (assert ) nil nil )) nil ))
nil ))
nil ))
nil )
((real_abs_lt1 nonempty-type-eq-decl nil hyperbolic nil )
(AND const-decl "[bool, bool -> bool]" booleans nil )
(- const-decl "[numfield -> numfield]" number_fields nil )
(numfield nonempty-type-eq-decl nil number_fields nil )
(< const-decl "bool" reals nil )
(real nonempty-type-from-decl nil reals nil )
(real_pred const-decl "[number_field -> boolean]" reals nil )
(number_field nonempty-type-from-decl nil number_fields nil )
(number_field_pred const-decl "[number -> boolean]" number_fields
nil )
(number nonempty-type-decl nil numbers nil )
(NOT const-decl "[bool -> bool]" booleans nil )
(bool nonempty-type-eq-decl nil booleans nil )
(boolean nonempty-type-decl nil booleans nil )
(real_gt_is_strict_total_order name-judgement
"(strict_total_order?[real])" real_props nil )
(real_ge_is_total_order name-judgement "(total_order?[real])"
real_props nil )
(real_plus_real_is_real application-judgement "real" reals nil )
(real_minus_real_is_real application-judgement "real" reals 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 )
(- const-decl "[numfield, numfield -> numfield]" number_fields nil )
(+ const-decl "[numfield, numfield -> numfield]" number_fields nil )
(real_lt_is_strict_total_order name-judgement
"(strict_total_order?[real])" real_props nil )
(minus_odd_is_odd application-judgement "odd_int" integers nil )
(real_div_nzreal_is_real application-judgement "real" reals nil )
(real_times_real_is_real application-judgement "real" reals nil )
(div_mult_pos_lt2 formula-decl nil real_props nil ))
shostak))
(sinh_bij 0
(sinh_bij-2 nil 3286017244
("" (stop-rewrite "sq_sqrt" )
(("" (expand "bijective?" )
(("" (expand "injective?" )
(("" (split)
(("1" (skosimp*)
(("1" (lemma "trich_lt" ("x" "x1!1" "y" "x2!1" ))
(("1" (lemma "sinh_strict_increasing" )
(("1" (expand "strict_increasing?" )
(("1" (split -2)
(("1" (inst - "x1!1" "x2!1" )
(("1" (assert ) nil nil )) nil )
("2" (propax) nil nil )
("3" (inst - "x2!1" "x1!1" )
(("3" (assert ) nil nil )) nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2" (expand "surjective?" )
(("2" (skosimp*)
(("2" (case "y!1+sqrt(1+sq(y!1)) > 0" )
(("1" (inst + "ln(y!1+sqrt(1+sq(y!1)))" )
(("1" (expand "sinh" )
(("1"
(lemma "exp_diff"
("x" "0" "y" "ln(sqrt(1 + sq(y!1))+y!1)" ))
(("1" (rewrite "exp_0" )
(("1" (replace -1 1)
(("1" (rewrite "exp_ln" )
(("1" (hide -1)
(("1"
(lemma
"div_cancel3"
("x"
"sqrt(1 + sq(y!1)) + y!1 - 1 / (sqrt(1 + sq(y!1)) + y!1)"
"y"
"y!1"
"n0z"
"2" ))
(("1"
(replace -1 1)
(("1"
(hide -1)
(("1"
(lemma
"minus_div1"
("x"
"sqrt(1 + sq(y!1)) + y!1"
"n0y"
"sqrt(1 + sq(y!1)) + y!1"
"n0x"
"1"
"y"
"1" ))
(("1"
(replace -1)
(("1"
(lemma
"div_cancel3"
("x"
"(sqrt(1 + sq(y!1)) + y!1) * (sqrt(1 + sq(y!1)) + y!1) - 1 * 1"
"n0z"
"sqrt(1 + sq(y!1)) + y!1"
"y"
"y!1*2" ))
(("1"
(replace -1 1)
(("1"
(lemma "sq_sqrt" )
(("1"
(inst - "1+sq(y!1)" )
(("1"
(assert )
(("1"
(expand "sq" -1 1)
(("1"
(replace -1 1)
(("1"
(expand "sq" 1)
(("1"
(propax)
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2" (assert ) nil nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2" (assert ) nil nil ))
nil ))
nil )
("2" (assert ) nil nil ))
nil )
("2" (hide 2)
(("2" (lemma "trichotomy" ("x" "y!1" ))
(("2" (split -1)
(("1" (assert ) nil nil ) ("2" (assert ) nil nil )
("3"
(lemma "sq_lt"
("nna" "-y!1" "nnb" "sqrt(1+sq(y!1))" ))
(("1" (rewrite "sq_sqrt" )
(("1" (rewrite "sq_neg" )
(("1" (assert ) nil nil )) nil ))
nil )
("2" (assert ) nil nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
((bijective? const-decl "bool" functions 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 )
(trich_lt formula-decl nil real_props nil )
(strict_increasing? const-decl "bool" real_fun_preds "reals/" )
(real_lt_is_strict_total_order name-judgement
"(strict_total_order?[real])" real_props nil )
(sinh_strict_increasing formula-decl nil hyperbolic nil )
(sq_neg formula-decl nil sq "reals/" )
(- const-decl "[numfield -> numfield]" number_fields nil )
(sq_lt formula-decl nil sq "reals/" )
(minus_real_is_real application-judgement "real" reals nil )
(trichotomy formula-decl nil real_axioms nil )
(real_gt_is_strict_total_order name-judgement
"(strict_total_order?[real])" real_props nil )
(sqrt_pos application-judgement "posreal" sqrt "reals/" )
(real_ge_is_total_order name-judgement "(total_order?[real])"
real_props nil )
(AND const-decl "[bool, bool -> bool]" booleans nil )
(y!1 skolem-const-decl "real" hyperbolic nil )
(ln const-decl "real" ln_exp nil )
(posreal nonempty-type-eq-decl nil real_types nil )
(exp_diff formula-decl nil ln_exp nil )
(minus_div1 formula-decl nil real_props nil )
(real_times_real_is_real application-judgement "real" reals nil )
(sq_sqrt formula-decl nil sqrt "reals/" )
(mult_divides1 application-judgement "(divides(n))" divides nil )
(odd_times_odd_is_odd application-judgement "odd_int" integers nil )
(posint_times_posint_is_posint application-judgement "posint"
integers nil )
(posreal_times_posreal_is_posreal application-judgement "posreal"
real_types nil )
(nzreal_div_nzreal_is_nzreal application-judgement "nzreal"
real_types nil )
(real_div_nzreal_is_real application-judgement "real" reals nil )
(/ const-decl "[numfield, nznum -> numfield]" number_fields nil )
(nznum nonempty-type-eq-decl nil number_fields nil )
(- const-decl "[numfield, numfield -> numfield]" number_fields nil )
(nonzero_real nonempty-type-eq-decl nil reals nil )
(/= const-decl "boolean" notequal nil )
(div_cancel3 formula-decl nil real_props nil )
(posreal_div_posreal_is_posreal application-judgement "posreal"
real_types nil )
(exp_ln formula-decl nil ln_exp nil )
(real_minus_real_is_real application-judgement "real" reals nil )
(minus_odd_is_odd application-judgement "odd_int" integers nil )
(exp_0 formula-decl nil ln_exp nil )
(sinh const-decl "real" hyperbolic nil )
(posreal_plus_nnreal_is_posreal application-judgement "posreal"
real_types nil )
(real_plus_real_is_real application-judgement "real" reals nil )
(bool nonempty-type-eq-decl nil booleans nil )
(> const-decl "bool" reals nil )
(numfield nonempty-type-eq-decl nil number_fields nil )
(+ const-decl "[numfield, numfield -> numfield]" number_fields nil )
(>= const-decl "bool" reals nil )
(nonneg_real nonempty-type-eq-decl nil real_types nil )
(nnreal type-eq-decl nil real_types nil )
(= const-decl "[T, T -> boolean]" equalities nil )
(* const-decl "[numfield, numfield -> numfield]" number_fields nil )
(sqrt const-decl "{nnz: nnreal | nnz * nnz = nnx}" sqrt "reals/" )
(sq const-decl "nonneg_real" sq "reals/" )
(surjective? const-decl "bool" functions nil )
(injective? const-decl "bool" functions nil ))
nil )
(sinh_bij-1 nil 3253387007
("" (expand "bijective?" )
(("" (expand "injective?" )
(("" (split)
(("1" (skosimp*)
(("1" (lemma "trich_lt" ("x" "x1!1" "y" "x2!1" ))
(("1" (lemma "sinh_strict_increasing" )
(("1" (expand "strict_increasing?" )
(("1" (split -2)
(("1" (inst - "x1!1" "x2!1" ) (("1" (assert ) nil nil ))
nil )
("2" (propax) nil nil )
("3" (inst - "x2!1" "x1!1" ) (("3" (assert ) nil nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2" (expand "surjective?" )
(("2" (skosimp*)
(("2" (case "y!1+sqrt(1+sq(y!1)) > 0" )
(("1" (inst + "ln(y!1+sqrt(1+sq(y!1)))" )
(("1" (expand "sinh" )
(("1"
(lemma "exp_diff"
("x" "0" "y" "ln(sqrt(1 + sq(y!1))+y!1)" ))
(("1" (rewrite "exp_0" )
(("1" (replace -1 1)
(("1" (rewrite "exp_ln" )
(("1" (hide -1)
(("1"
(lemma "div_cancel3"
("x"
"sqrt(1 + sq(y!1)) + y!1 - 1 / (sqrt(1 + sq(y!1)) + y!1)"
"y"
"y!1"
"n0z"
"2" ))
(("1"
(replace -1 1)
(("1"
(hide -1)
(("1"
(lemma
"minus_div1"
("x"
"sqrt(1 + sq(y!1)) + y!1"
"n0y"
"sqrt(1 + sq(y!1)) + y!1"
"n0x"
"1"
"y"
"1" ))
(("1"
(replace -1)
(("1"
(lemma
"div_cancel3"
("x"
"(sqrt(1 + sq(y!1)) + y!1) * (sqrt(1 + sq(y!1)) + y!1) - 1 * 1"
"n0z"
"sqrt(1 + sq(y!1)) + y!1"
"y"
"y!1*2" ))
(("1"
(replace -1 1)
(("1"
(lemma "sq_sqrt" )
(("1"
(inst - "1+sq(y!1)" )
(("1"
(assert )
(("1"
(expand "sq" -1 1)
(("1"
(replace -1 1)
(("1"
(expand "sq" 1)
(("1"
(propax)
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2" (assert ) nil nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2" (assert ) nil nil ))
nil ))
nil )
("2" (assert ) nil nil ))
nil )
("2" (hide 2)
(("2" (lemma "trichotomy" ("x" "y!1" ))
(("2" (split -1)
(("1" (assert ) nil nil ) ("2" (assert ) nil nil )
("3"
(lemma "sq_lt"
("nna" "-y!1" "nnb" "sqrt(1+sq(y!1))" ))
(("1" (rewrite "sq_sqrt" )
(("1" (rewrite "sq_neg" )
(("1" (assert ) nil nil )) nil ))
nil )
("2" (assert ) nil nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
((sq const-decl "nonneg_real" sq "reals/" )
(sqrt const-decl "{nnz: nnreal | nnz * nnz = nnx}" sqrt "reals/" )
(exp_0 formula-decl nil ln_exp nil )
(exp_ln formula-decl nil ln_exp nil )
(sq_sqrt formula-decl nil sqrt "reals/" )
(exp_diff formula-decl nil ln_exp nil )
(ln const-decl "real" ln_exp nil )
(sq_lt formula-decl nil sq "reals/" )
(sq_neg formula-decl nil sq "reals/" )
(strict_increasing? const-decl "bool" real_fun_preds "reals/" ))
shostak))
(cosh_bij 0
(cosh_bij-1 nil 3253394558
("" (expand "bijective?" )
(("" (expand "injective?" )
(("" (expand "surjective?" )
(("" (expand "nnreal_cosh" )
(("" (split)
(("1" (skosimp*)
(("1" (lemma "cosh_strict_increasing" )
(("1" (expand "nnreal_cosh" )
(("1" (expand "strict_increasing?" )
(("1" (lemma "trich_lt" ("x" "x1!1" "y" "x2!1" ))
(("1" (split -1)
(("1" (inst - "x1!1" "x2!1" )
(("1" (assert ) nil nil )) nil )
("2" (propax) nil nil )
("3" (inst - "x2!1" "x1!1" )
(("3" (assert ) nil nil )) nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2" (skosimp*)
(("2" (inst + "acosh(y!1)" )
(("2" (expand "cosh" )
(("2" (expand "acosh" )
(("2" (lemma "acosh_TCC1" ("x" "y!1" ))
(("2" (lemma "acosh_TCC2" ("x" "y!1" ))
(("2" (flatten -1)
(("2"
(lemma "exp_diff"
("x" "0" "y"
"ln(sqrt(sq(y!1) - 1) + y!1)" ))
(("1" (rewrite "exp_0" )
(("1"
(replace -1 1)
(("1"
(rewrite "exp_ln" )
(("1"
(rewrite "div_cancel3" 1)
(("1"
(lemma
"cross_mult"
("x"
"y!1-sqrt(sq(y!1) - 1)"
"n0x"
"1"
"y"
"1"
"n0y"
"sqrt(sq(y!1) - 1) + y!1" ))
(("1"
(flatten -1)
(("1"
(hide -1)
(("1"
(split -1)
(("1" (assert ) nil nil )
("2"
(hide -1 2)
(("2"
(assert )
(("2"
(rewrite "sq_rew" 1)
(("2"
(rewrite "sq_sqrt" )
(("2"
(rewrite
"sq_rew" )
(("2"
(assert )
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2" (assert ) nil nil )
("3" (propax) nil nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
((injective? const-decl "bool" functions nil )
(nnreal_cosh const-decl "posreal_ge1" hyperbolic nil )
(cosh const-decl "posreal_ge1" hyperbolic nil )
(acosh_TCC1 subtype-tcc nil hyperbolic nil )
(exp_0 formula-decl nil ln_exp nil )
(minus_odd_is_odd application-judgement "odd_int" integers nil )
(posreal_plus_nnreal_is_posreal application-judgement "posreal"
real_types nil )
(exp_ln formula-decl nil ln_exp nil )
(posreal_div_posreal_is_posreal application-judgement "posreal"
real_types nil )
(cross_mult formula-decl nil real_props nil )
(sq_rew formula-decl nil sq "reals/" )
(sq_sqrt formula-decl nil sqrt "reals/" )
(nnreal_times_nnreal_is_nnreal application-judgement "nnreal"
real_types nil )
(posint_times_posint_is_posint application-judgement "posint"
integers nil )
(odd_times_odd_is_odd application-judgement "odd_int" integers nil )
(mult_divides1 application-judgement "(divides(n))" divides nil )
(real_gt_is_strict_total_order name-judgement
"(strict_total_order?[real])" real_props nil )
(real_div_nzreal_is_real application-judgement "real" reals nil )
(nzreal_div_nzreal_is_nzreal application-judgement "nzreal"
real_types nil )
(real_times_real_is_real application-judgement "real" reals nil )
(div_cancel3 formula-decl nil real_props nil )
(/= const-decl "boolean" notequal nil )
(nonzero_real nonempty-type-eq-decl nil reals nil )
(nznum nonempty-type-eq-decl nil number_fields nil )
(/ const-decl "[numfield, nznum -> numfield]" number_fields nil )
(real_ge_is_total_order name-judgement "(total_order?[real])"
real_props nil )
(real_minus_real_is_real application-judgement "real" reals nil )
(real_plus_real_is_real application-judgement "real" reals nil )
(exp_diff formula-decl nil ln_exp 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 )
(ln const-decl "real" ln_exp nil )
(numfield nonempty-type-eq-decl nil number_fields nil )
(+ const-decl "[numfield, numfield -> numfield]" number_fields nil )
(= const-decl "[T, T -> boolean]" equalities nil )
(* const-decl "[numfield, numfield -> numfield]" number_fields nil )
(sqrt const-decl "{nnz: nnreal | nnz * nnz = nnx}" sqrt "reals/" )
(- const-decl "[numfield, numfield -> numfield]" number_fields nil )
(sq const-decl "nonneg_real" sq "reals/" )
(acosh_TCC2 subtype-tcc nil hyperbolic nil )
(acosh const-decl "nnreal" hyperbolic nil )
(posreal_ge1 nonempty-type-eq-decl nil hyperbolic nil )
(nnreal 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 )
(trich_lt formula-decl nil real_props nil )
(real_lt_is_strict_total_order name-judgement
"(strict_total_order?[real])" real_props nil )
(strict_increasing? const-decl "bool" real_fun_preds "reals/" )
(cosh_strict_increasing formula-decl nil hyperbolic nil )
(surjective? const-decl "bool" functions nil )
(bijective? const-decl "bool" functions nil ))
shostak))
(tanh_bij 0
(tanh_bij-1 nil 3253584394
("" (expand "bijective?" )
(("" (expand "injective?" )
(("" (expand "surjective?" )
(("" (split)
(("1" (skosimp*)
(("1" (lemma "tanh_strict_increasing" )
(("1" (expand "strict_increasing?" )
(("1" (lemma "trich_lt" ("x" "x1!1" "y" "x2!1" ))
(("1" (split -1)
(("1" (inst - "x1!1" "x2!1" )
(("1" (assert ) nil nil )) nil )
("2" (propax) nil nil )
("3" (inst - "x2!1" "x1!1" )
(("3" (assert ) nil nil )) nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2" (skosimp*)
(("2" (inst + "atanh(y!1)" )
(("2" (expand "tanh" )
(("2" (expand "sinh" )
(("2" (expand "cosh" )
(("2" (typepred "y!1" )
(("2" (typepred "exp(atanh(y!1))" )
(("2" (typepred "exp(-atanh(y!1))" )
(("2" (hide -1 -3 -4 -6)
(("2" (rewrite "div_div1" )
(("2"
(lemma
"div_cancel1"
("x"
"exp(atanh(y!1)) - exp(-atanh(y!1))"
"n0z"
"2" ))
(("2"
(replace -1)
(("2"
(hide (-1))
(("2"
(case
"(exp(atanh(y!1)) - exp(-atanh(y!1))) / (exp(atanh(y!1)) + exp(-atanh(y!1))) = (exp(2*atanh(y!1)) - 1)/(exp(2*atanh(y!1)) + 1)" )
(("1"
(replace -1)
(("1"
(hide -1 -2)
(("1"
(rewrite "div_cancel3" 1)
(("1"
(expand "atanh" 1)
(("1"
(lemma
"div_cancel1"
("x"
"ln((1 + y!1) / (1 - y!1))"
"n0z"
"2" ))
(("1"
(replace -1)
(("1"
(hide -1)
(("1"
(lemma "exp_ln" )
(("1"
(lemma
"posreal_div_posreal_is_posreal"
("px"
"1+y!1"
"py"
"1-y!1" ))
(("1"
(inst
-
"(1 + y!1) / (1 - y!1)" )
(("1"
(replace
-2)
(("1"
(lemma
"both_sides_times1"
("x"
"(1 + y!1) / (1 - y!1) - 1"
"y"
"(1 + y!1) / (1 - y!1) * y!1 + y!1"
"n0z"
"1 - y!1" ))
(("1"
(replace
-1
1
rl)
(("1"
(hide
-1)
(("1"
(lemma
"div_cancel1"
("x"
"1+y!1"
"n0z"
"1-y!1" ))
(("1"
(assert )
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(assert )
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(assert )
(("2"
(hide 2)
(("2"
(lemma
"posreal_div_posreal_is_posreal"
("px"
"1+y!1"
"py"
"1-y!1" ))
(("2"
(assert )
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(hide 2)
(("2"
(lemma
"cross_mult"
("x"
"(exp(atanh(y!1)) - exp(-atanh(y!1)))"
"n0x"
"(exp(atanh(y!1)) + exp(-atanh(y!1)))"
"y"
"(exp(2 * atanh(y!1)) - 1)"
"n0y"
"(exp(2 * atanh(y!1)) + 1)" ))
(("2"
(replace -1)
(("2"
(hide -1)
(("2"
(name-replace
"K1"
"atanh(y!1)" )
(("2"
(assert )
(("2"
(lemma
"exp_sum"
("x"
"-K1"
"y"
"2*K1" ))
(("2"
(replace -1 * rl)
(("2"
(assert )
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
((injective? const-decl "bool" functions nil )
(tanh_strict_increasing formula-decl nil hyperbolic 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 )
(trich_lt formula-decl nil real_props nil )
(real_lt_is_strict_total_order name-judgement
"(strict_total_order?[real])" real_props nil )
(strict_increasing? const-decl "bool" real_fun_preds "reals/" )
(bool nonempty-type-eq-decl nil booleans nil )
(AND const-decl "[bool, bool -> bool]" booleans nil )
(< const-decl "bool" reals nil )
(numfield nonempty-type-eq-decl nil number_fields nil )
(- const-decl "[numfield -> numfield]" number_fields nil )
(real_abs_lt1 nonempty-type-eq-decl nil hyperbolic nil )
(atanh const-decl "real" hyperbolic nil )
(sinh const-decl "real" hyperbolic nil )
(NOT const-decl "[bool -> bool]" booleans nil )
(minus_real_is_real application-judgement "real" reals 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 )
(+ const-decl "[numfield, numfield -> numfield]" number_fields nil )
(nonzero_real nonempty-type-eq-decl nil reals nil )
(/= const-decl "boolean" notequal nil )
(div_div1 formula-decl nil real_props nil )
(real_div_nzreal_is_real application-judgement "real" reals nil )
(posreal_plus_nnreal_is_posreal application-judgement "posreal"
real_types nil )
(posreal_div_posreal_is_posreal application-judgement "posreal"
real_types nil )
(real_minus_real_is_real application-judgement "real" reals nil )
(real_times_real_is_real application-judgement "real" reals nil )
(* const-decl "[numfield, numfield -> numfield]" number_fields nil )
(real_plus_real_is_real application-judgement "real" reals nil )
(exp_ln formula-decl nil ln_exp nil )
(y!1 skolem-const-decl "real_abs_lt1" hyperbolic nil )
(both_sides_times1 formula-decl nil real_props nil )
(minus_odd_is_odd application-judgement "odd_int" integers nil )
(real_gt_is_strict_total_order name-judgement
"(strict_total_order?[real])" real_props nil )
(posreal_div_posreal_is_posreal judgement-tcc nil real_types nil )
(real_ge_is_total_order name-judgement "(total_order?[real])"
real_props nil )
(div_cancel3 formula-decl nil real_props nil )
(cross_mult formula-decl nil real_props nil )
(nzreal_times_nzreal_is_nzreal application-judgement "nzreal"
real_types nil )
(posreal_times_posreal_is_posreal application-judgement "posreal"
real_types nil )
(exp_sum formula-decl nil ln_exp nil )
(div_cancel1 formula-decl nil real_props 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 )
(= const-decl "[T, T -> boolean]" equalities nil )
(ln const-decl "real" ln_exp nil )
(exp const-decl "{py | x = ln(py)}" ln_exp nil )
(cosh const-decl "posreal_ge1" hyperbolic nil )
(tanh const-decl "real_abs_lt1" hyperbolic nil )
(surjective? const-decl "bool" functions nil )
(bijective? const-decl "bool" functions nil ))
shostak))
(csch_bij 0
(csch_bij-1 nil 3270128162
("" (lemma "sinh_bij" )
(("" (expand "posreal_csch" )
(("" (expand "csch" )
(("" (expand "bijective?" )
(("" (flatten -1)
(("" (split 1)
(("1" (hide -2)
(("1" (expand "injective?" )
(("1" (skosimp*)
(("1" (typepred "x1!1" )
(("1" (typepred "x2!1" )
(("1" (hide -1 -3)
(("1" (lemma "sinh_strict_increasing" )
(("1" (expand "strict_increasing?" )
(("1"
(inst-cp - "0" "x1!1" )
(("1"
(inst-cp - "0" "x2!1" )
(("1"
(rewrite "sinh_0" )
(("1"
(expand ">" (-4 -5))
(("1"
(replace -4)
(("1"
(replace -5)
(("1"
(lemma
"cross_mult"
("x"
"1"
"y"
"1"
"n0x"
"sinh(x1!1)"
"n0y"
"sinh(x2!1)" ))
(("1"
(replace -7)
(("1"
(flatten -1)
(("1"
(inst
-8
"x1!1"
"x2!1" )
(("1"
(assert )
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2" (hide -1)
(("2" (expand "surjective?" )
(("2" (skosimp*)
(("2" (inst - "1/y!1" )
(("2" (skosimp*)
(("2" (lemma "sinh_strict_increasing" )
(("2" (expand "strict_increasing?" )
(("2"
(lemma "posreal_div_posreal_is_posreal"
("px" "1" "py" "y!1" ))
(("2"
(lemma "trichotomy" ("x" "x!1" ))
(("2"
(split -1)
(("1"
(inst - "0" "x!1" )
(("1"
(rewrite "sinh_0" )
(("1"
(assert )
(("1"
(inst + "x!1" )
(("1"
(rewrite "div_cancel3" )
(("1"
(replace -4)
(("1" (assert ) nil nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(replace -1)
(("2"
(rewrite "sinh_0" )
(("2" (assert ) nil nil ))
nil ))
nil )
("3"
(inst - "x!1" "0" )
(("3"
(rewrite "sinh_0" )
(("3"
(assert )
(("3"
(name-replace
"K1"
"sinh(x!1)" )
(("3"
(name-replace "K2" "1/y!1" )
(("3"
(replace -4)
(("3"
(hide-all-but (-2 -3))
(("3"
(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 )
((posreal_csch const-decl "posreal" hyperbolic nil )
(bijective? const-decl "bool" functions nil )
(injective? const-decl "bool" functions 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 )
(real nonempty-type-from-decl nil reals nil )
(real_pred const-decl "[number_field -> boolean]" reals nil )
(number_field nonempty-type-from-decl nil number_fields nil )
(number_field_pred const-decl "[number -> boolean]" number_fields
nil )
(number nonempty-type-decl nil numbers nil )
(NOT const-decl "[bool -> bool]" booleans nil )
(bool nonempty-type-eq-decl nil booleans nil )
(boolean nonempty-type-decl nil booleans nil )
(strict_increasing? const-decl "bool" real_fun_preds "reals/" )
(real_times_real_is_real application-judgement "real" reals nil )
(real_lt_is_strict_total_order name-judgement
"(strict_total_order?[real])" real_props nil )
(sinh const-decl "real" hyperbolic nil )
(nonzero_real nonempty-type-eq-decl nil reals nil )
(/= const-decl "boolean" notequal nil )
(cross_mult formula-decl nil real_props nil )
(sinh_0 formula-decl nil hyperbolic nil )
(sinh_strict_increasing formula-decl nil hyperbolic nil )
(surjective? const-decl "bool" functions nil )
(posreal_div_posreal_is_posreal application-judgement "posreal"
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 )
(posreal_div_posreal_is_posreal judgement-tcc nil real_types nil )
(real_ge_is_total_order name-judgement "(total_order?[real])"
real_props nil )
(posreal_times_posreal_is_posreal application-judgement "posreal"
real_types nil )
(div_cancel3 formula-decl nil real_props nil )
(real_gt_is_strict_total_order name-judgement
"(strict_total_order?[real])" real_props nil )
(= const-decl "[T, T -> boolean]" equalities nil )
(trichotomy formula-decl nil real_axioms nil )
(csch const-decl "real" hyperbolic nil )
(nzreal_div_nzreal_is_nzreal application-judgement "nzreal"
real_types nil )
(sinh_bij formula-decl nil hyperbolic nil ))
shostak))
(sech_bij 0
(sech_bij-1 nil 3270130610
("" (expand "nnreal_sech" )
(("" (expand "sech" )
(("" (lemma "cosh_bij" )
(("" (expand "bijective?" )
(("" (flatten -1)
(("" (lemma "cosh_strict_increasing" )
(("" (expand "strict_increasing?" )
(("" (split 1)
(("1" (hide -3)
(("1" (expand "injective?" )
(("1" (skosimp*)
(("1"
(lemma "trich_lt" ("x" "x1!1" "y" "x2!1" ))
(("1" (split -1)
(("1" (inst-cp - "x1!1" "x2!1" )
(("1"
(replace -1)
(("1"
(expand "nnreal_cosh" )
(("1"
(typepred "cosh(x1!1)" )
(("1"
(typepred "cosh(x2!1)" )
(("1"
(lemma
"cross_mult"
("x"
"1"
"y"
"1"
"n0x"
"cosh(x1!1)"
"n0y"
"cosh(x2!1)" ))
(("1" (assert ) nil nil )
("2" (assert ) nil nil )
("3" (assert ) nil nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2" (propax) nil nil )
("3" (inst - "x2!1" "x1!1" )
(("3"
(expand "nnreal_cosh" )
(("3" (assert ) nil nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2" (hide -2)
(("2" (expand "surjective?" )
(("2" (expand "nnreal_cosh" )
(("2" (skosimp*)
(("2" (typepred "y!1" )
(("2" (hide -1)
(("2"
(inst -4 "1/y!1" )
(("1"
(skosimp*)
(("1"
(typepred "cosh(x!1)" )
(("1"
(rewrite "div_cancel4" )
(("1"
(typepred "x!1" )
(("1"
(inst + "x!1" )
(("1"
(rewrite "div_cancel3" )
(("1" (assert ) nil nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(hide -3 2)
(("2"
(lemma
"both_sides_div_pos_le2"
("pz" "1" "py" "y!1" "px" "1" ))
(("2" (assert ) nil nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
((nzreal_div_nzreal_is_nzreal application-judgement "nzreal"
real_types nil )
(sech const-decl "posreal_le1" hyperbolic nil )
(bijective? const-decl "bool" functions nil )
(cosh_strict_increasing formula-decl nil hyperbolic nil )
(injective? const-decl "bool" functions nil )
(nnreal 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 )
(trich_lt formula-decl nil real_props nil )
(nnreal_cosh const-decl "posreal_ge1" hyperbolic nil )
(real_lt_is_strict_total_order name-judgement
"(strict_total_order?[real])" real_props nil )
(real_ge_is_total_order name-judgement "(total_order?[real])"
real_props nil )
(nonzero_real nonempty-type-eq-decl nil reals nil )
(/= const-decl "boolean" notequal nil )
(cross_mult formula-decl nil real_props nil )
(cosh const-decl "posreal_ge1" hyperbolic nil )
(posreal_ge1 nonempty-type-eq-decl nil hyperbolic nil )
(NOT const-decl "[bool -> bool]" booleans nil )
(surjective? const-decl "bool" functions nil )
(posrat_div_posrat_is_posrat application-judgement "posrat"
rationals nil )
(both_sides_div_pos_le2 formula-decl nil real_props nil )
(div_cancel4 formula-decl nil real_props nil )
(real_times_real_is_real application-judgement "real" reals nil )
(real_le_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 )
(div_cancel3 formula-decl nil real_props nil )
(y!1 skolem-const-decl "posreal_le1" hyperbolic 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 )
(posreal_div_posreal_is_posreal application-judgement "posreal"
real_types nil )
(nonneg_real nonempty-type-eq-decl nil real_types nil )
(> const-decl "bool" reals nil )
(posreal nonempty-type-eq-decl nil real_types nil )
(<= const-decl "bool" reals nil )
(posreal_le1 nonempty-type-eq-decl nil hyperbolic nil )
(strict_increasing? const-decl "bool" real_fun_preds "reals/" )
(cosh_bij formula-decl nil hyperbolic nil )
(nnreal_sech const-decl "posreal_le1" hyperbolic nil ))
shostak))
(coth_bij 0
(coth_bij-1 nil 3270131384
("" (expand "posreal_coth" )
(("" (expand "coth" )
(("" (lemma "tanh_bij" )
(("" (expand "bijective?" )
(("" (flatten -1)
(("" (lemma "tanh_strict_increasing" )
(("" (expand "strict_increasing?" )
(("" (split 1)
(("1" (hide -3)
(("1" (expand "injective?" )
(("1" (skosimp*)
(("1" (typepred "x1!1" )
(("1" (typepred "x2!1" )
(("1" (hide -1 -3)
(("1"
(inst-cp - "0" "x1!1" )
(("1"
(inst-cp - "0" "x2!1" )
(("1"
(rewrite "tanh_0" )
(("1"
(expand ">" (-1 -2))
(("1"
(replace -1)
(("1"
(replace -2)
(("1"
(lemma
"cross_mult"
("x"
"1"
"y"
"1"
"n0x"
"tanh(x1!1)"
"n0y"
"tanh(x2!1)" ))
(("1"
(replace -4 -1)
(("1"
(flatten -1)
(("1"
(simplify -1)
(("1"
(inst
-8
"x1!1"
"x2!1" )
(("1"
(assert )
nil
nil ))
nil ))
nil ))
nil ))
nil )
("2" (assert ) nil nil )
("3" (assert ) nil nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2" (hide -2)
(("2" (expand "surjective?" )
(("2" (skosimp*)
(("2" (typepred "y!1" )
(("2"
(lemma "posreal_div_posreal_is_posreal"
("px" "1" "py" "y!1" ))
(("2"
(lemma "both_sides_div_pos_gt2"
("pz" "1" "py" "y!1" "px" "1" ))
(("2"
(replace -3 -1)
(("2"
(flatten -1)
(("2"
(inst -5 "1/y!1" )
(("1"
(skosimp*)
(("1"
(lemma
"trichotomy"
("x" "x!1" ))
(("1"
(split -1)
(("1"
(inst + "x!1" )
(("1"
(rewrite
"div_cancel4"
-6)
(("1"
(rewrite
"div_cancel3"
1)
(("1"
(assert )
nil
nil ))
nil ))
nil )
("2" (assert ) nil nil ))
nil )
("2"
(replace -1)
(("2"
(rewrite "tanh_0" )
(("2" (assert ) nil nil ))
nil ))
nil )
("3"
(inst - "x!1" "0" )
(("3"
(rewrite "tanh_0" )
(("3"
(expand ">" -1)
(("3"
(replace -1)
(("3"
(replace -6)
(("3"
(assert )
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2" (assert ) nil nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
((nzreal_div_nzreal_is_nzreal application-judgement "nzreal"
real_types nil )
(coth const-decl "real_abs_gt1" hyperbolic nil )
(bijective? const-decl "bool" functions nil )
(tanh_strict_increasing formula-decl nil hyperbolic nil )
(injective? const-decl "bool" functions 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 )
(real nonempty-type-from-decl nil reals nil )
(real_pred const-decl "[number_field -> boolean]" reals nil )
(number_field nonempty-type-from-decl nil number_fields nil )
(number_field_pred const-decl "[number -> boolean]" number_fields
nil )
(number nonempty-type-decl nil numbers nil )
(NOT const-decl "[bool -> bool]" booleans nil )
(bool nonempty-type-eq-decl nil booleans nil )
(boolean nonempty-type-decl nil booleans nil )
(real_times_real_is_real application-judgement "real" reals nil )
(real_lt_is_strict_total_order name-judgement
"(strict_total_order?[real])" real_props nil )
(tanh const-decl "real_abs_lt1" hyperbolic nil )
(real_abs_lt1 nonempty-type-eq-decl nil hyperbolic nil )
(- const-decl "[numfield -> numfield]" number_fields nil )
(numfield nonempty-type-eq-decl nil number_fields nil )
(< const-decl "bool" reals nil )
(AND const-decl "[bool, bool -> bool]" booleans nil )
(nonzero_real nonempty-type-eq-decl nil reals nil )
(/= const-decl "boolean" notequal nil )
(cross_mult formula-decl nil real_props nil )
(tanh_0 formula-decl nil hyperbolic nil )
(surjective? const-decl "bool" functions nil )
(posreal_gt1 nonempty-type-eq-decl nil hyperbolic nil )
(both_sides_div_pos_gt2 formula-decl nil real_props nil )
(div_cancel4 formula-decl nil real_props nil )
(posrat_div_posrat_is_posrat application-judgement "posrat"
rationals nil )
(div_cancel3 formula-decl nil real_props nil )
(x!1 skolem-const-decl "real" hyperbolic nil )
(trichotomy formula-decl nil real_axioms nil )
(y!1 skolem-const-decl "posreal_gt1" hyperbolic nil )
(/ const-decl "[numfield, nznum -> numfield]" number_fields nil )
(nznum nonempty-type-eq-decl nil number_fields nil )
(real_gt_is_strict_total_order name-judgement
"(strict_total_order?[real])" real_props nil )
(real_ge_is_total_order name-judgement "(total_order?[real])"
real_props nil )
(posreal_div_posreal_is_posreal judgement-tcc nil real_types nil )
(strict_increasing? const-decl "bool" real_fun_preds "reals/" )
(tanh_bij formula-decl nil hyperbolic nil )
(posreal_coth const-decl "posreal_gt1" hyperbolic nil ))
shostak))
(asinh_alt_def 0
(asinh_alt_def-1 nil 3253394002
("" (skosimp*)
(("" (lemma "sinh_bij" )
((""
(lemma "bijective_inverse"
("f" "sinh" "y" "x!1" "x" "asinh(x!1)" ))
(("1" (flatten -1)
(("1" (hide -1)
(("1" (split -1)
(("1" (assert ) nil nil )
("2" (hide 2)
(("2" (expand "asinh" )
(("2" (hide -1)
(("2" (expand "sinh" )
(("2" (lemma "sqrt_pos" ("px" "1+sq(x!1)" ))
(("2" (case "sqrt(1 + sq(x!1)) + x!1 >0" )
(("1" (rewrite "div_cancel4" 1)
(("1"
(lemma "exp_diff"
("x"
"0"
"y"
"ln(sqrt(1 + sq(x!1)) + x!1)" ))
(("1"
(rewrite "exp_0" )
(("1"
(replace -1)
(("1"
(rewrite "exp_ln" )
(("1"
(hide -1)
(("1"
(lemma
"div_cancel3"
("y"
"sqrt(1 + sq(x!1))-x!1"
"x"
"1"
"n0z"
"sqrt(1 + sq(x!1)) + x!1" ))
(("1"
(flatten -1)
(("1"
(hide -1)
(("1"
(split -1)
(("1" (assert ) nil nil )
("2"
(hide 2)
(("2"
(assert )
(("2"
(rewrite "sq_rew" )
(("2"
(rewrite
"sq_rew" )
(("2"
(rewrite
"sq_sqrt" )
(("2"
(assert )
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2" (assert ) nil nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2" (assert ) nil nil ))
nil ))
nil )
("2" (hide 2)
(("2" (lemma "trichotomy" ("x" "x!1" ))
(("2"
(split -1)
(("1" (assert ) nil nil )
("2" (assert ) nil nil )
("3"
(lemma
"sq_gt"
("nna"
"sqrt(1 + sq(x!1))"
"nnb"
"-x!1" ))
(("1"
(rewrite "sq_sqrt" )
(("1"
(rewrite "sq_neg" )
(("1" (assert ) nil nil ))
nil ))
nil )
("2" (assert ) nil nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2" (propax) nil nil ))
nil ))
nil ))
nil )
((sinh_bij formula-decl nil hyperbolic nil )
(sqrt_pos application-judgement "posreal" sqrt "reals/" )
(real_plus_real_is_real application-judgement "real" reals nil )
(nnreal type-eq-decl nil real_types nil )
(= const-decl "[T, T -> boolean]" equalities nil )
(* const-decl "[numfield, numfield -> numfield]" number_fields nil )
(sqrt const-decl "{nnz: nnreal | nnz * nnz = nnx}" sqrt "reals/" )
(exp_diff formula-decl nil ln_exp nil )
(nzreal_div_nzreal_is_nzreal application-judgement "nzreal"
real_types nil )
(posreal_times_posreal_is_posreal application-judgement "posreal"
real_types nil )
(sq_nz_pos application-judgement "posreal" sq "reals/" )
(sq_sqrt formula-decl nil sqrt "reals/" )
(sq_rew formula-decl nil sq "reals/" )
(div_cancel3 formula-decl nil real_props nil )
(posreal_div_posreal_is_posreal application-judgement "posreal"
real_types nil )
(exp_ln formula-decl nil ln_exp nil )
(minus_odd_is_odd application-judgement "odd_int" integers nil )
(exp_0 formula-decl nil ln_exp nil )
(real_times_real_is_real application-judgement "real" reals nil )
(real_gt_is_strict_total_order name-judgement
"(strict_total_order?[real])" real_props nil )
(minus_real_is_real application-judgement "real" reals nil )
(real_minus_real_is_real application-judgement "real" reals nil )
(div_cancel4 formula-decl nil real_props nil )
(/= const-decl "boolean" notequal nil )
(nonzero_real nonempty-type-eq-decl nil reals nil )
(- const-decl "[numfield, numfield -> numfield]" number_fields nil )
(ln const-decl "real" ln_exp nil )
(exp const-decl "{py | x = ln(py)}" ln_exp nil )
(- const-decl "[numfield -> numfield]" number_fields nil )
(real_ge_is_total_order name-judgement "(total_order?[real])"
real_props nil )
(trichotomy formula-decl nil real_axioms nil )
(sq_gt formula-decl nil sq "reals/" )
(sq_neg formula-decl nil sq "reals/" )
(posreal_plus_nnreal_is_posreal application-judgement "posreal"
real_types nil )
(sqrt_pos judgement-tcc nil sqrt "reals/" )
(>= 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 )
(numfield nonempty-type-eq-decl nil number_fields nil )
(+ const-decl "[numfield, numfield -> numfield]" number_fields nil )
(sq const-decl "nonneg_real" sq "reals/" )
(bijective_inverse formula-decl nil function_inverse nil )
(asinh const-decl "real" hyperbolic nil )
(bool nonempty-type-eq-decl nil booleans nil )
(bijective? const-decl "bool" functions nil )
(sinh const-decl "real" hyperbolic 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 ))
shostak))
(asinh_sinh 0
(asinh_sinh-1 nil 3253392586
("" (skosimp*)
(("" (lemma "asinh_alt_def" ("x" "sinh(x!1)" ))
(("" (lemma "sinh_bij" )
(("" (lemma "comp_inverse_left" ("f" "sinh" "x" "x!1" ))
(("1" (assert ) nil nil ) ("2" (propax) nil nil )) nil ))
nil ))
nil ))
nil )
((sinh const-decl "real" hyperbolic 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 )
(asinh_alt_def formula-decl nil hyperbolic nil )
(bijective? const-decl "bool" functions nil )
(bool nonempty-type-eq-decl nil booleans nil )
(comp_inverse_left formula-decl nil function_inverse nil )
(sinh_bij formula-decl nil hyperbolic nil ))
shostak))
(sinh_asinh 0
(sinh_asinh-1 nil 3253392742
("" (skosimp*)
(("" (lemma "sinh_bij" )
(("" (expand "sinh" )
(("" (hide -1)
(("" (rewrite "div_cancel3" )
(("" (lemma "exp_diff" ("x" "0" "y" "asinh(x!1)" ))
(("" (rewrite "exp_0" )
(("" (replace -1 1)
(("" (hide -1)
(("" (expand "asinh" )
(("" (lemma "sqrt_pos" ("px" "1+sq(x!1)" ))
(("" (case "sqrt(1 + sq(x!1)) + x!1 > 0" )
(("1" (rewrite "exp_ln" )
(("1" (field 1)
(("1"
(lemma "sqrt_def" )
(("1"
(inst -1 "1 + sq(x!1)" )
(("1"
(assert )
(("1"
(replaces -1)
(("1" (grind) nil nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2" (hide 2)
(("2" (lemma "trichotomy" ("x" "x!1" ))
(("2"
(split -1)
(("1" (assert ) nil nil )
("2" (assert ) nil nil )
("3"
(lemma
"sq_gt"
("nna"
"sqrt(1 + sq(x!1))"
"nnb"
"-x!1" ))
(("1"
(rewrite "sq_neg" )
(("1"
(rewrite "sq_sqrt" )
(("1" (assert ) nil nil ))
nil ))
nil )
("2" (assert ) nil nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
((sinh_bij formula-decl nil hyperbolic nil )
(exp_diff formula-decl nil ln_exp nil )
(sqrt_pos application-judgement "posreal" sqrt "reals/" )
(posreal_div_posreal_is_posreal application-judgement "posreal"
real_types nil )
(real_plus_real_is_real application-judgement "real" reals nil )
(nnreal type-eq-decl nil real_types nil )
(* const-decl "[numfield, numfield -> numfield]" number_fields nil )
(sqrt const-decl "{nnz: nnreal | nnz * nnz = nnx}" sqrt "reals/" )
(NOT const-decl "[bool -> bool]" booleans nil )
(nzreal_div_nzreal_is_nzreal application-judgement "nzreal"
real_types nil )
(both_sides_times1 formula-decl nil real_props nil )
(nznum nonempty-type-eq-decl nil number_fields nil )
(/ const-decl "[numfield, nznum -> numfield]" number_fields nil )
(bijective? const-decl "bool" functions nil )
(id const-decl "(bijective?[T, T])" identity nil )
(TRUE const-decl "bool" booleans nil )
(posreal_times_posreal_is_posreal application-judgement "posreal"
real_types nil )
(sqrt_def formula-decl nil sqrt "reals/" )
(real_gt_is_strict_total_order name-judgement
"(strict_total_order?[real])" real_props nil )
(exp_ln formula-decl nil ln_exp nil )
(real_ge_is_total_order name-judgement "(total_order?[real])"
real_props nil )
(trichotomy formula-decl nil real_axioms nil )
(sq_gt formula-decl nil sq "reals/" )
(sq_sqrt formula-decl nil sqrt "reals/" )
(sq_neg formula-decl nil sq "reals/" )
(sq const-decl "nonneg_real" sq "reals/" )
(+ const-decl "[numfield, numfield -> numfield]" number_fields nil )
(sqrt_pos judgement-tcc nil sqrt "reals/" )
(posreal_plus_nnreal_is_posreal application-judgement "posreal"
real_types nil )
(minus_odd_is_odd application-judgement "odd_int" integers nil )
(exp_0 formula-decl nil ln_exp nil )
(real_times_real_is_real application-judgement "real" reals nil )
(- const-decl "[numfield -> numfield]" number_fields nil )
(asinh const-decl "real" hyperbolic nil )
(exp const-decl "{py | x = ln(py)}" ln_exp nil )
(ln const-decl "real" ln_exp nil )
(= const-decl "[T, T -> boolean]" equalities 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 )
(- const-decl "[numfield, numfield -> numfield]" 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 )
(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 )
(div_cancel3 formula-decl nil real_props nil )
(real_minus_real_is_real application-judgement "real" reals nil )
(minus_real_is_real application-judgement "real" reals nil )
(sinh const-decl "real" hyperbolic nil ))
shostak))
(asinh_strict_increasing 0
(asinh_strict_increasing-1 nil 3253392937
("" (lemma "sinh_strict_increasing" )
(("" (expand "strict_increasing?" )
(("" (skosimp*)
(("" (lemma "trich_lt" ("x" "asinh(x!1)" "y" "asinh(y!1)" ))
(("" (split -1)
(("1" (propax) nil nil )
("2" (lemma "sinh_asinh" ("x" "x!1" ))
(("2" (lemma "sinh_asinh" ("x" "y!1" ))
(("2" (assert ) nil nil )) nil ))
nil )
("3" (inst - "asinh(y!1)" "asinh(x!1)" )
(("3" (rewrite "sinh_asinh" )
(("3" (rewrite "sinh_asinh" ) (("3" (assert ) nil nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
((strict_increasing? const-decl "bool" real_fun_preds "reals/" )
(asinh const-decl "real" hyperbolic 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 )
(trich_lt formula-decl nil real_props nil )
(sinh_asinh formula-decl nil hyperbolic nil )
(real_lt_is_strict_total_order name-judgement
"(strict_total_order?[real])" real_props nil )
(sinh_strict_increasing formula-decl nil hyperbolic nil ))
shostak))
(asinh_bij 0
(asinh_bij-1 nil 3253392824
("" (lemma "sinh_bij" )
(("" (lemma "bij_inv_is_bij" ("f" "sinh" ))
(("" (lemma "extensionality" ("f" "asinh" "g" "inverse(sinh)" ))
(("" (split -1)
(("1" (assert ) nil nil )
("2" (hide 2)
(("2" (skosimp*)
(("2" (lemma "asinh_alt_def" ("x" "x!1" ))
(("2" (propax) nil nil )) nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
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 )
(sinh const-decl "real" hyperbolic nil )
(bij_inv_is_bij formula-decl nil function_inverse nil )
(asinh_alt_def formula-decl nil hyperbolic nil )
(extensionality formula-decl nil functions nil )
(asinh const-decl "real" hyperbolic nil )
(inverse const-decl "D" function_inverse nil )
(sinh_bij formula-decl nil hyperbolic nil ))
shostak))
(asinh_derivable2 0
(asinh_derivable2-2 nil 3352436939
("" (expand "asinh" )
(("" (expand "sq" )
(("" (lemma "identity_derivable_fun[real]" )
(("" (expand "I" )
((""
(lemma "prod_derivable_fun[real]"
("f1" "LAMBDA (x: real): x" "f2" "LAMBDA (x: real): x" ))
(("" (assert )
(("" (expand "*" )
(("" (lemma "const_derivable_fun[real]" ("b" "1" ))
(("" (expand "const_fun" )
((""
(lemma "sum_derivable_fun[real]"
("f1" "LAMBDA (x: real): 1" "f2"
"LAMBDA (x_1: real): x_1 * x_1" ))
(("" (assert )
(("" (expand "+" )
(("" (lemma "sqrt_derivable_fun" )
((""
(lemma
"composition_derivable_fun[real,posreal]"
("f"
"LAMBDA (x: real): 1+x*x"
"g"
"LAMBDA (x:posreal): sqrt(x)" ))
(("1"
(assert )
(("1"
(expand "restrict" -2)
(("1"
(replace -2 -1)
(("1"
(expand "o" )
(("1"
(lemma
"sum_derivable_fun[real]"
("f1"
"LAMBDA (x: real): x"
"f2"
"LAMBDA (x_1: real): sqrt(1 + x_1 * x_1)" ))
(("1"
(assert )
(("1"
(expand "+" )
(("1"
(lemma
"composition_derivable_fun[real,posreal]"
("f"
"LAMBDA (x_1: real): x_1 + sqrt(1 + x_1 * x_1)"
"g"
"ln" ))
(("1"
(lemma "ln_derivable" )
(("1"
(flatten -1)
(("1"
(replace -1)
(("1"
(assert )
(("1"
(expand "o" )
(("1"
(propax)
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(hide-all-but 1)
(("2"
(skosimp*)
(("2"
(rewrite "sq_rew" )
(("2"
(lemma
"sqrt_pos"
("px"
"1+sq(x!1)" ))
(("2"
(lemma
"trichotomy"
("x" "x!1" ))
(("2"
(split -1)
(("1"
(assert )
nil
nil )
("2"
(assert )
nil
nil )
("3"
(lemma
"sq_gt"
("nna"
"sqrt(1 + sq(x!1))"
"nnb"
"-x!1" ))
(("1"
(rewrite
"sq_neg" )
(("1"
(rewrite
"sq_sqrt" )
(("1"
(assert )
nil
nil ))
nil ))
nil )
("2"
(assert )
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(hide-all-but 1)
(("2"
(skosimp*)
(("2"
(inst + "x!1+1" )
(("2" (assert ) nil nil ))
nil ))
nil ))
nil )
("3"
(hide-all-but 1)
(("3"
(lemma "deriv_domain_posreal" )
(("3" (propax) nil nil ))
nil ))
nil )
("4"
(hide-all-but 1)
(("4"
(skosimp*)
(("4"
(inst + "x!1+1" )
(("4" (assert ) nil nil ))
nil ))
nil ))
nil )
("5"
(lemma "deriv_domain_real" )
(("5" (propax) nil nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
((real_times_real_is_real application-judgement "real" reals nil )
(sq const-decl "nonneg_real" sq "reals/" )
(I const-decl "(bijective?[T, T])" identity nil )
(const_derivable_fun formula-decl nil derivatives "analysis/" )
(sqrt_derivable_fun formula-decl nil sqrt_derivative "analysis/" )
(sqrt_pos application-judgement "posreal" sqrt "reals/" )
(sq_rew formula-decl nil sq "reals/" )
(trichotomy formula-decl nil real_axioms nil )
(minus_real_is_real application-judgement "real" reals nil )
(sq_gt formula-decl nil sq "reals/" )
(- const-decl "[numfield -> numfield]" number_fields nil )
(sq_sqrt formula-decl nil sqrt "reals/" )
(sq_neg formula-decl nil sq "reals/" )
(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 )
(sqrt_pos judgement-tcc nil sqrt "reals/" )
(posreal_plus_nnreal_is_posreal application-judgement "posreal"
real_types nil )
(ln_derivable formula-decl nil ln_exp nil )
(posreal_div_posreal_is_posreal application-judgement "posreal"
real_types nil )
(ln const-decl "real" ln_exp nil )
(O const-decl "T3" function_props nil )
(restrict const-decl "R" restrict nil )
(AND const-decl "[bool, bool -> bool]" booleans nil )
(not_one_element? const-decl "bool" deriv_domain_def "analysis/" )
(deriv_domain? const-decl "bool" deriv_domain_def "analysis/" )
(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 )
(sqrt const-decl "{nnz: nnreal | nnz * nnz = nnx}" sqrt "reals/" )
(= const-decl "[T, T -> boolean]" equalities nil )
(nnreal type-eq-decl nil real_types nil )
(+ const-decl "[numfield, numfield -> numfield]" number_fields nil )
(composition_derivable_fun formula-decl nil chain_rule "analysis/" )
(real_plus_real_is_real application-judgement "real" reals nil )
(+ const-decl "[T -> real]" real_fun_ops "reals/" )
(* const-decl "[numfield, numfield -> numfield]" number_fields nil )
(numfield nonempty-type-eq-decl nil number_fields nil )
(sum_derivable_fun formula-decl nil derivatives "analysis/" )
(* const-decl "[T -> real]" real_fun_ops "reals/" )
(prod_derivable_fun formula-decl nil derivatives "analysis/" )
(identity_derivable_fun formula-decl nil derivatives "analysis/" )
(number nonempty-type-decl nil numbers nil )
(boolean nonempty-type-decl nil booleans nil )
(number_field_pred const-decl "[number -> boolean]" number_fields
nil )
(number_field nonempty-type-from-decl nil number_fields nil )
(real_pred const-decl "[number_field -> boolean]" reals nil )
(real nonempty-type-from-decl nil reals nil )
(asinh const-decl "real" hyperbolic nil ))
nil )
(asinh_derivable2-1 nil 3270189876
("" (expand "asinh" )
(("" (expand "sq" )
(("" (lemma "identity_derivable_fun[real]" )
(("" (expand "I" )
((""
(lemma "prod_derivable_fun"
("f1" "LAMBDA (x: real): x" "f2" "LAMBDA (x: real): x" ))
(("" (assert )
(("" (expand "*" )
(("" (lemma "const_derivable_fun[real]" ("b" "1" ))
(("" (expand "const_fun" )
((""
(lemma "sum_derivable_fun"
("f1" "LAMBDA (x: real): 1" "f2"
"LAMBDA (x_1: real): x_1 * x_1" ))
(("" (assert )
(("" (expand "+" )
(("" (lemma "sqrt_derivable_fun" )
((""
(lemma
"composition_derivable_fun[real,posreal]"
("f"
"LAMBDA (x: real): 1+x*x"
"g"
"LAMBDA (x:posreal): sqrt(x)" ))
(("1"
(assert )
(("1"
(expand "restrict" -2)
(("1"
(replace -2 -1)
(("1"
(expand "o" )
(("1"
(lemma
"sum_derivable_fun"
("f1"
"LAMBDA (x: real): x"
"f2"
"LAMBDA (x_1: real): sqrt(1 + x_1 * x_1)" ))
(("1"
(assert )
(("1"
(expand "+" )
(("1"
(lemma
"composition_derivable_fun[real,posreal]"
("f"
"LAMBDA (x_1: real): x_1 + sqrt(1 + x_1 * x_1)"
"g"
"ln" ))
(("1"
(lemma "ln_derivable" )
(("1"
(flatten -1)
(("1"
(replace -1)
(("1"
(assert )
(("1"
(expand "o" )
(("1"
(propax)
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(hide-all-but 1)
(("2"
(skosimp*)
(("2"
(rewrite "sq_rew" )
(("2"
(lemma
"sqrt_pos"
("px"
"1+sq(x!1)" ))
(("2"
(lemma
"trichotomy"
("x" "x!1" ))
(("2"
(split -1)
(("1"
(assert )
nil
nil )
("2"
(assert )
nil
nil )
("3"
(lemma
"sq_gt"
("nna"
"sqrt(1 + sq(x!1))"
"nnb"
"-x!1" ))
(("1"
(rewrite
"sq_neg" )
(("1"
(rewrite
"sq_sqrt" )
(("1"
(assert )
nil
nil ))
nil ))
nil )
("2"
(assert )
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(hide-all-but 1)
(("2"
(skosimp*)
(("2"
(inst + "x!1+1" )
(("2" (assert ) nil nil ))
nil ))
nil ))
nil )
("3"
(hide-all-but 1)
(("3" (grind) nil nil ))
nil )
("4"
(hide-all-but 1)
(("4"
(skosimp*)
(("4"
(inst + "x!1+1" )
(("4" (assert ) nil nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
((sq const-decl "nonneg_real" sq "reals/" )
(const_derivable_fun formula-decl nil derivatives "analysis/" )
(sum_derivable_fun formula-decl nil derivatives "analysis/" )
(+ const-decl "[T -> real]" real_fun_ops "reals/" )
(composition_derivable_fun formula-decl nil chain_rule "analysis/" )
(sqrt const-decl "{nnz: nnreal | nnz * nnz = nnx}" sqrt "reals/" )
(ln const-decl "real" ln_exp nil )
(ln_derivable formula-decl nil ln_exp nil )
(sqrt_pos judgement-tcc nil sqrt "reals/" )
(sq_neg formula-decl nil sq "reals/" )
(sq_sqrt formula-decl nil sqrt "reals/" )
(sq_gt formula-decl nil sq "reals/" )
(sq_rew formula-decl nil sq "reals/" )
(sqrt_derivable_fun formula-decl nil sqrt_derivative "analysis/" )
(const_fun const-decl "[T -> real]" real_fun_ops "reals/" )
(prod_derivable_fun formula-decl nil derivatives "analysis/" )
(identity_derivable_fun formula-decl nil derivatives "analysis/" ))
shostak))
(acosh_derivable2_TCC1 0
(acosh_derivable2_TCC1-1 nil 3270188619 ("" (grind) nil nil ) nil
shostak))
(acosh_derivable2_TCC2 0
(acosh_derivable2_TCC2-1 nil 3270188627
("" (expand "deriv_domain?" )
(("" (skosimp*) (("" (inst + "e!1/2" ) (("" (grind) nil nil )) nil ))
nil ))
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 )
(real_lt_is_strict_total_order name-judgement
"(strict_total_order?[real])" real_props nil )
(posreal nonempty-type-eq-decl nil real_types nil )
(nonneg_real nonempty-type-eq-decl nil real_types nil )
(>= const-decl "bool" reals nil )
(/ const-decl "[numfield, nznum -> numfield]" number_fields nil )
(nznum nonempty-type-eq-decl nil number_fields nil )
(posreal_gt1 nonempty-type-eq-decl nil hyperbolic nil )
(+ const-decl "[numfield, numfield -> numfield]" number_fields nil )
(numfield nonempty-type-eq-decl nil number_fields nil )
(> const-decl "bool" reals nil )
(bool nonempty-type-eq-decl nil booleans 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 )
(posreal_div_posreal_is_posreal application-judgement "posreal"
real_types nil )
(real_gt_is_strict_total_order name-judgement
"(strict_total_order?[real])" real_props nil )
(deriv_domain? const-decl "bool" deriv_domain_def "analysis/" )
(real_plus_real_is_real application-judgement "real" reals nil ))
shostak))
(acosh_derivable2_TCC3 0
(acosh_derivable2_TCC3-1 nil 3270189616
("" (skosimp*) (("" (inst + "x!1+1" ) (("" (assert ) nil nil )) nil ))
nil )
((noa_posreal_gt1 formula-decl nil hyperbolic nil )) shostak))
(acosh_derivable2 0
(acosh_derivable2-2 nil 3352437065
("" (expand "acosh" )
(("" (lemma "identity_derivable_fun[posreal_gt1]" )
(("" (lemma "const_derivable_fun[posreal_gt1]" ("b" "1" ))
(("" (expand "I" )
(("" (expand "const_fun" )
(("" (expand "sq" )
((""
(lemma "prod_derivable_fun[posreal_gt1]"
("f1" "LAMBDA (x: posreal_gt1): x" "f2"
"LAMBDA (x: posreal_gt1): x" ))
(("" (assert )
(("" (expand "*" )
((""
(lemma "diff_derivable_fun[posreal_gt1]"
("f1" "LAMBDA (x_1: posreal_gt1): x_1 * x_1"
"f2" "LAMBDA (x_1: posreal_gt1): 1" ))
(("" (assert )
(("" (expand "-" )
(("" (lemma "sqrt_derivable_fun" )
(("" (expand "restrict" )
((""
(lemma
"composition_derivable_fun[posreal_gt1,posreal]"
("f"
"LAMBDA (x: posreal_gt1): x * x - 1"
"g"
"LAMBDA (x:posreal): sqrt(x)" ))
(("1"
(assert )
(("1"
(expand "o" )
(("1"
(lemma
"sum_derivable_fun[posreal_gt1]"
("f1"
"LAMBDA (x: posreal_gt1): x"
"f2"
"LAMBDA (x_1: posreal_gt1): sqrt(x_1 * x_1 - 1)" ))
(("1"
(assert )
(("1"
(expand "+" )
(("1"
(lemma "ln_derivable" )
(("1"
(flatten)
(("1"
(lemma
"composition_derivable_fun[posreal_gt1,posreal]"
("f"
"LAMBDA (x_1: posreal_gt1): x_1 + sqrt(x_1 * x_1 - 1)"
"g"
"ln" ))
(("1"
(assert )
(("1"
(expand "o" )
(("1"
(propax)
nil
nil ))
nil ))
nil )
("2"
(hide-all-but 1)
(("2"
(skosimp*)
(("2"
(rewrite
"sq_rew" )
(("2"
(lemma
"sq_gt"
("nna"
"x!1"
"nnb"
"1" ))
(("2"
(rewrite
"sq_1" )
(("2"
(lemma
"sqrt_pos"
("px"
"sq(x!1)-1" ))
(("1"
(assert )
nil
nil )
("2"
(assert )
(("2"
(assert )
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(hide-all-but 1)
(("2"
(skosimp*)
(("2"
(rewrite "sq_rew" )
(("2"
(lemma
"sq_gt"
("nna" "x!1" "nnb" "1" ))
(("2"
(rewrite "sq_1" )
(("2"
(assert )
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(hide-all-but 1)
(("2"
(skosimp*)
(("2"
(rewrite "sq_rew" )
(("2"
(lemma
"sq_gt"
("nna" "x!1" "nnb" "1" ))
(("2"
(rewrite "sq_1" )
(("2" (assert ) nil nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("3"
(hide-all-but 1)
(("3"
(skosimp*)
(("3"
(inst + "x!1+1" )
(("3" (assert ) nil nil ))
nil ))
nil ))
nil )
("4"
(hide-all-but 1)
(("4"
(lemma "deriv_domain_posreal" )
(("4" (propax) nil nil ))
nil ))
nil )
("5"
(hide-all-but 1)
(("5"
(skosimp*)
(("5"
(inst + "x!1+1" )
(("5" (assert ) nil nil ))
nil ))
nil ))
nil )
("6"
(hide-all-but 1)
(("6"
(expand "deriv_domain?" )
(("6"
(skosimp*)
(("6"
(inst + "e!1/2" )
(("6" (grind) nil nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
((posreal_gt1 nonempty-type-eq-decl nil hyperbolic 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 )
(identity_derivable_fun formula-decl nil derivatives "analysis/" )
(I const-decl "(bijective?[T, T])" identity nil )
(prod_derivable_fun formula-decl nil derivatives "analysis/" )
(* const-decl "[T -> real]" real_fun_ops "reals/" )
(sqrt_derivable_fun formula-decl nil sqrt_derivative "analysis/" )
(real_minus_real_is_real application-judgement "real" reals nil )
(composition_derivable_fun formula-decl nil chain_rule "analysis/" )
(- const-decl "[numfield, numfield -> numfield]" number_fields nil )
(nnreal type-eq-decl nil real_types nil )
(= const-decl "[T, T -> boolean]" equalities nil )
(sqrt const-decl "{nnz: nnreal | nnz * nnz = nnx}" sqrt "reals/" )
(>= const-decl "bool" reals nil )
(nonneg_real nonempty-type-eq-decl nil real_types nil )
(posreal nonempty-type-eq-decl nil real_types nil )
(deriv_domain? const-decl "bool" deriv_domain_def "analysis/" )
(not_one_element? const-decl "bool" deriv_domain_def "analysis/" )
(AND const-decl "[bool, bool -> bool]" booleans nil )
(O const-decl "T3" function_props nil )
(ln_derivable formula-decl nil ln_exp nil )
(real_plus_real_is_real application-judgement "real" reals nil )
(+ const-decl "[numfield, numfield -> numfield]" number_fields nil )
(ln const-decl "real" ln_exp nil )
(posreal_div_posreal_is_posreal application-judgement "posreal"
real_types nil )
(sq_gt formula-decl nil sq "reals/" )
(real_ge_is_total_order name-judgement "(total_order?[real])"
real_props nil )
(sqrt_pos judgement-tcc nil sqrt "reals/" )
(real_gt_is_strict_total_order name-judgement
"(strict_total_order?[real])" real_props nil )
(sq_1 formula-decl nil sq "reals/" )
(sq_rew formula-decl nil sq "reals/" )
(+ const-decl "[T -> real]" real_fun_ops "reals/" )
(sum_derivable_fun formula-decl nil derivatives "analysis/" )
(sqrt_pos application-judgement "posreal" sqrt "reals/" )
(restrict const-decl "R" restrict nil )
(- const-decl "[T -> real]" real_fun_ops "reals/" )
(* const-decl "[numfield, numfield -> numfield]" number_fields nil )
(numfield nonempty-type-eq-decl nil number_fields nil )
(diff_derivable_fun formula-decl nil derivatives "analysis/" )
(sq const-decl "nonneg_real" sq "reals/" )
(real_times_real_is_real application-judgement "real" reals nil )
(const_derivable_fun formula-decl nil derivatives "analysis/" )
(acosh const-decl "nnreal" hyperbolic nil ))
nil )
(acosh_derivable2-1 nil 3270191512
("" (expand "acosh" )
(("" (lemma "identity_derivable_fun[posreal_gt1]" )
(("" (lemma "const_derivable_fun[posreal_gt1]" ("b" "1" ))
(("" (expand "I" )
(("" (expand "const_fun" )
(("" (expand "sq" )
((""
(lemma "prod_derivable_fun"
("f1" "LAMBDA (x: posreal_gt1): x" "f2"
"LAMBDA (x: posreal_gt1): x" ))
(("" (assert )
(("" (expand "*" )
((""
(lemma "diff_derivable_fun"
("f1" "LAMBDA (x_1: posreal_gt1): x_1 * x_1"
"f2" "LAMBDA (x_1: posreal_gt1): 1" ))
(("" (assert )
(("" (expand "-" )
(("" (lemma "sqrt_derivable_fun" )
(("" (expand "restrict" )
((""
(lemma
"composition_derivable_fun[posreal_gt1,posreal]"
("f"
"LAMBDA (x: posreal_gt1): x * x - 1"
"g"
"LAMBDA (x:posreal): sqrt(x)" ))
(("1"
(assert )
(("1"
(expand "o" )
(("1"
(lemma
"sum_derivable_fun"
("f1"
"LAMBDA (x: posreal_gt1): x"
"f2"
"LAMBDA (x_1: posreal_gt1): sqrt(x_1 * x_1 - 1)" ))
(("1"
(assert )
(("1"
(expand "+" )
(("1"
(lemma "ln_derivable" )
(("1"
(flatten)
(("1"
(lemma
"composition_derivable_fun[posreal_gt1,posreal]"
("f"
"LAMBDA (x_1: posreal_gt1): x_1 + sqrt(x_1 * x_1 - 1)"
"g"
"ln" ))
(("1"
(assert )
(("1"
(expand "o" )
(("1"
(propax)
nil
nil ))
nil ))
nil )
("2"
(hide-all-but 1)
(("2"
(skosimp*)
(("2"
(rewrite
"sq_rew" )
(("2"
(lemma
"sq_gt"
("nna"
"x!1"
"nnb"
"1" ))
(("2"
(rewrite
"sq_1" )
(("2"
(lemma
"sqrt_pos"
("px"
"sq(x!1)-1" ))
(("1"
(assert )
nil
nil )
("2"
(assert )
(("2"
(assert )
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(hide-all-but 1)
(("2"
(skosimp*)
(("2"
(rewrite "sq_rew" )
(("2"
(lemma
"sq_gt"
("nna" "x!1" "nnb" "1" ))
(("2"
(rewrite "sq_1" )
(("2"
(assert )
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(hide-all-but 1)
(("2"
(skosimp*)
(("2"
(rewrite "sq_rew" )
(("2"
(lemma
"sq_gt"
("nna" "x!1" "nnb" "1" ))
(("2"
(rewrite "sq_1" )
(("2" (assert ) nil nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("3"
(hide-all-but 1)
(("3"
(skosimp*)
(("3"
(inst + "x!1+1" )
(("3" (assert ) nil nil ))
nil ))
nil ))
nil )
("4"
(hide-all-but 1)
(("4" (grind) nil nil ))
nil )
("5"
(hide-all-but 1)
(("5"
(skosimp*)
(("5"
(inst + "x!1+1" )
(("5" (assert ) nil nil ))
nil ))
nil ))
nil )
("6"
(hide-all-but 1)
(("6" (grind) nil nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
((identity_derivable_fun formula-decl nil derivatives "analysis/" )
(sq const-decl "nonneg_real" sq "reals/" )
(diff_derivable_fun formula-decl nil derivatives "analysis/" )
(sum_derivable_fun formula-decl nil derivatives "analysis/" )
(+ const-decl "[T -> real]" real_fun_ops "reals/" )
(sq_rew formula-decl nil sq "reals/" )
(sq_1 formula-decl nil sq "reals/" )
(sqrt_pos judgement-tcc nil sqrt "reals/" )
(sq_gt formula-decl nil sq "reals/" )
(ln const-decl "real" ln_exp nil )
(ln_derivable formula-decl nil ln_exp nil )
(sqrt const-decl "{nnz: nnreal | nnz * nnz = nnx}" sqrt "reals/" )
(composition_derivable_fun formula-decl nil chain_rule "analysis/" )
(sqrt_derivable_fun formula-decl nil sqrt_derivative "analysis/" )
(prod_derivable_fun formula-decl nil derivatives "analysis/" )
(const_fun const-decl "[T -> real]" real_fun_ops "reals/" )
(const_derivable_fun formula-decl nil derivatives "analysis/" ))
shostak))
(atanh_derivable2_TCC1 0
(atanh_derivable2_TCC1-1 nil 3270188647
("" (lemma "deriv_domain_open" ) (("" (inst - "-1" "1" ) nil nil ))
nil )
((minus_odd_is_odd application-judgement "odd_int" integers 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]" number_fields nil )
(deriv_domain_open formula-decl nil deriv_domain "analysis/" ))
shostak))
(atanh_derivable2_TCC2 0
(atanh_derivable2_TCC2-1 nil 3270188654 ("" (assert ) nil nil )
((noa_abs_lt1 formula-decl nil hyperbolic nil )) shostak))
(atanh_derivable2 0
(atanh_derivable2-2 nil 3352437461
("" (expand "atanh" )
(("" (lemma "identity_derivable_fun[real_abs_lt1]" )
(("" (expand "I" )
(("" (lemma "const_derivable_fun[real_abs_lt1]" ("b" "1" ))
(("" (expand "const_fun" )
((""
(lemma "diff_derivable_fun[real_abs_lt1]"
("f1" "LAMBDA (x: real_abs_lt1): 1" "f2"
"LAMBDA (x: real_abs_lt1): x" ))
((""
(lemma "sum_derivable_fun[real_abs_lt1]"
("f1" "LAMBDA (x: real_abs_lt1): 1" "f2"
"LAMBDA (x: real_abs_lt1): x" ))
(("" (assert )
(("" (expand "-" )
(("" (expand "+" )
((""
(lemma "div_derivable_fun[real_abs_lt1]"
("f" "LAMBDA (x: real_abs_lt1): 1+x" "g"
"LAMBDA (x: real_abs_lt1): 1-x" ))
(("" (assert )
(("" (expand "/" )
(("" (lemma "ln_derivable" )
((""
(flatten)
((""
(lemma
"composition_derivable_fun[real_abs_lt1,posreal]"
("f"
"LAMBDA (x_1: real_abs_lt1): (1 + x_1) / (1 - x_1)"
"g"
"ln" ))
(("1"
(assert )
(("1"
(expand "o" )
(("1"
(lemma
"scal_derivable_fun[real_abs_lt1]"
("f"
"LAMBDA (x: real_abs_lt1): ln((1 + x) / (1 - x))"
"b"
"1/2" ))
(("1"
(expand "*" )
(("1" (propax) nil nil ))
nil ))
nil ))
nil ))
nil )
("2"
(hide-all-but 1)
(("2"
(skosimp*)
(("2"
(lemma
"posreal_div_posreal_is_posreal"
("px" "1+x!1" "py" "1-x!1" ))
(("2" (assert ) nil nil ))
nil ))
nil ))
nil )
("3"
(hide-all-but 1)
(("3"
(skosimp*)
(("3"
(inst + "x!1+1" )
(("3" (assert ) nil nil ))
nil ))
nil ))
nil )
("4"
(hide-all-but 1)
(("4"
(lemma "deriv_domain_posreal" )
(("4" (propax) nil nil ))
nil ))
nil )
("5"
(hide-all-but 1)
(("5"
(skosimp*)
(("5"
(case "x!1=0" )
(("1"
(inst + "1/2" )
(("1" (assert ) nil nil ))
nil )
("2"
(inst + "x!1/2" )
(("2" (assert ) nil nil ))
nil ))
nil ))
nil ))
nil )
("6"
(hide-all-but 1)
(("6"
(lemma "deriv_domain_open" )
(("6" (inst - "-1" "1" ) nil nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
((real_abs_lt1 nonempty-type-eq-decl nil hyperbolic nil )
(- const-decl "[numfield -> numfield]" number_fields nil )
(numfield nonempty-type-eq-decl nil number_fields nil )
(< const-decl "bool" reals nil )
(AND const-decl "[bool, bool -> bool]" booleans 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 )
(identity_derivable_fun formula-decl nil derivatives "analysis/" )
(const_derivable_fun formula-decl nil derivatives "analysis/" )
(sum_derivable_fun formula-decl nil derivatives "analysis/" )
(- const-decl "[T -> real]" real_fun_ops "reals/" )
(div_derivable_fun formula-decl nil derivatives "analysis/" )
(+ const-decl "[numfield, numfield -> numfield]" number_fields nil )
(/= const-decl "boolean" notequal nil )
(nzreal nonempty-type-eq-decl nil reals nil )
(- const-decl "[numfield, numfield -> numfield]" number_fields nil )
(/ const-decl "[T -> real]" real_fun_ops "reals/" )
(posreal_div_posreal_is_posreal judgement-tcc nil real_types 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 )
(posreal_div_posreal_is_posreal application-judgement "posreal"
real_types nil )
(posrat_div_posrat_is_posrat application-judgement "posrat"
rationals nil )
(scal_derivable_fun formula-decl nil derivatives "analysis/" )
(* const-decl "[T -> real]" real_fun_ops "reals/" )
(O const-decl "T3" function_props nil )
(not_one_element? const-decl "bool" deriv_domain_def "analysis/" )
(deriv_domain? const-decl "bool" deriv_domain_def "analysis/" )
(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 ) (ln const-decl "real" ln_exp nil )
(/ const-decl "[numfield, nznum -> numfield]" number_fields nil )
(nznum nonempty-type-eq-decl nil number_fields nil )
(composition_derivable_fun formula-decl nil chain_rule "analysis/" )
(ln_derivable formula-decl nil ln_exp nil )
(+ const-decl "[T -> real]" real_fun_ops "reals/" )
(real_plus_real_is_real application-judgement "real" reals nil )
(real_minus_real_is_real application-judgement "real" reals nil )
(diff_derivable_fun formula-decl nil derivatives "analysis/" )
(I const-decl "(bijective?[T, T])" identity nil )
(atanh const-decl "real" hyperbolic nil )
(real_div_nzreal_is_real application-judgement "real" reals nil ))
nil )
(atanh_derivable2-1 nil 3270190972
("" (expand "atanh" )
(("" (lemma "identity_derivable_fun[real_abs_lt1]" )
(("" (expand "I" )
(("" (lemma "const_derivable_fun[real_abs_lt1]" ("b" "1" ))
(("" (expand "const_fun" )
((""
(lemma "diff_derivable_fun"
("f1" "LAMBDA (x: real_abs_lt1): 1" "f2"
"LAMBDA (x: real_abs_lt1): x" ))
((""
(lemma "sum_derivable_fun"
("f1" "LAMBDA (x: real_abs_lt1): 1" "f2"
"LAMBDA (x: real_abs_lt1): x" ))
(("" (assert )
(("" (expand "-" )
(("" (expand "+" )
((""
(lemma "div_derivable_fun"
("f" "LAMBDA (x: real_abs_lt1): 1+x" "g"
"LAMBDA (x: real_abs_lt1): 1-x" ))
(("" (assert )
(("" (expand "/" )
(("" (lemma "ln_derivable" )
((""
(flatten)
((""
(lemma
"composition_derivable_fun[real_abs_lt1,posreal]"
("f"
"LAMBDA (x_1: real_abs_lt1): (1 + x_1) / (1 - x_1)"
"g"
"ln" ))
(("1"
(assert )
(("1"
(expand "o" )
(("1"
(lemma
"scal_derivable_fun"
("f"
"LAMBDA (x: real_abs_lt1): ln((1 + x) / (1 - x))"
"b"
"1/2" ))
(("1"
(expand "*" )
(("1" (propax) nil nil ))
nil ))
nil ))
nil ))
nil )
("2"
(hide-all-but 1)
(("2"
(skosimp*)
(("2"
(lemma
"posreal_div_posreal_is_posreal"
("px" "1+x!1" "py" "1-x!1" ))
(("2" (assert ) nil nil ))
nil ))
nil ))
nil )
("3"
(hide-all-but 1)
(("3"
(skosimp*)
(("3"
(inst + "x!1+1" )
(("3" (assert ) nil nil ))
nil ))
nil ))
nil )
("4"
(hide-all-but 1)
(("4" (grind) nil nil ))
nil )
("5"
(hide-all-but 1)
(("5"
(skosimp*)
(("5"
(case "x!1=0" )
(("1"
(inst + "1/2" )
(("1" (assert ) nil nil ))
nil )
("2"
(inst + "x!1/2" )
(("2" (assert ) nil nil ))
nil ))
nil ))
nil ))
nil )
("6"
(hide-all-but 1)
(("6" (grind) nil nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
((identity_derivable_fun formula-decl nil derivatives "analysis/" )
(const_derivable_fun formula-decl nil derivatives "analysis/" )
(diff_derivable_fun formula-decl nil derivatives "analysis/" )
(+ const-decl "[T -> real]" real_fun_ops "reals/" )
(ln_derivable formula-decl nil ln_exp nil )
(composition_derivable_fun formula-decl nil chain_rule "analysis/" )
(ln const-decl "real" ln_exp nil )
(scal_derivable_fun formula-decl nil derivatives "analysis/" )
(div_derivable_fun formula-decl nil derivatives "analysis/" )
(sum_derivable_fun formula-decl nil derivatives "analysis/" )
(const_fun const-decl "[T -> real]" real_fun_ops "reals/" ))
shostak))
(deriv_asinh_TCC1 0
(deriv_asinh_TCC1-1 nil 3270188719
("" (lemma "asinh_derivable2" ) (("" (propax) nil nil )) nil )
((asinh_derivable2 formula-decl nil hyperbolic nil )) shostak))
(deriv_asinh 0
(deriv_asinh-2 nil 3352443164
("" (expand "asinh" )
(("" (expand "sq" )
(("" (lemma "identity_derivable_fun[real]" )
(("" (lemma "deriv_id_fun[real]" )
(("" (expand "I" )
(("" (lemma "const_derivable_fun[real]" ("b" "1" ))
(("" (lemma "deriv_const_fun[real]" ("b" "1" ))
(("" (expand "const_fun" )
((""
(lemma "prod_derivable_fun[real]"
("f1" "LAMBDA (x: real): x" "f2"
"LAMBDA (x: real): x" ))
(("" (assert )
(("" (expand "*" )
((""
(lemma "deriv_prod_fun[real]"
("ff1" "LAMBDA (x: real): x" "ff2"
"LAMBDA (x: real): x" ))
(("" (replace -5)
(("" (expand "*" )
((""
(expand "+" )
((""
(lemma
"sum_derivable_fun[real]"
("f1"
"LAMBDA (x: real): 1"
"f2"
"LAMBDA (x: real): x * x" ))
((""
(assert )
((""
(expand "+" )
((""
(lemma
"deriv_sum_fun[real]"
("ff1"
"LAMBDA (x: real): 1"
"ff2"
"LAMBDA (x: real): x * x" ))
((""
(replace -5)
((""
(replace -3)
((""
(expand "+" )
((""
(lemma "ln_derivable" )
((""
(flatten -1)
((""
(lemma
"sqrt_derivable_fun" )
((""
(lemma
"deriv_sqrt_fun" )
((""
(lemma
"composition_derivable_fun[real,posreal]"
("f"
"LAMBDA (x_1: real): 1 + x_1 * x_1"
"g"
"LAMBDA (x:posreal): sqrt(x)" ))
(("1"
(assert )
(("1"
(expand
"restrict" )
(("1"
(replace
-3)
(("1"
(expand
"o" )
(("1"
(lemma
"deriv_comp_fun[real,posreal]"
("ff"
"LAMBDA (x: real): 1+x*x"
"gg"
"LAMBDA (x:posreal): sqrt(x)" ))
(("1"
(replace
-3)
(("1"
(replace
-7)
(("1"
(expand
--> --------------------
--> maximum size reached
--> --------------------
Messung V0.5 in Prozent C=100 H=100 G=100
¤ 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.1.12Bemerkung:
(Wie Sie bei der Firma Beratungs- und Dienstleistungen beauftragen können 2026-04-30)
¤
*Eine klare Vorstellung vom Zielzustand