Step
*
of Lemma
arctan_wf1
∀[x:ℝ]. (arctan(x) ∈ {y:ℝ| y = arctangent(x)} )
BY
{ ((Assert ∀x:ℝ. (r0 < (r1 + x^2)) BY
          (Auto THEN (Assert r0 ≤ x^2 BY EAuto 1) THEN RWO "-1<" 0 THEN Auto))
   THEN Auto
   THEN (InstLemma `approx-arg_wf` [⌜λ2x.full-arctan(x)⌝;⌜λ2x.(r1/r1 + x^2)⌝;⌜1⌝;⌜x⌝]⋅ THENA Auto)) }
1
.....antecedent..... 
1. ∀x:ℝ. (r0 < (r1 + x^2))
2. x : ℝ
⊢ d(full-arctan(x))/dx = λx.(r1/r1 + x^2) on (-∞, ∞)
2
1. ∀x:ℝ. (r0 < (r1 + x^2))
2. x : ℝ
3. x1 : ℝ
⊢ |(r1/r1 + x1^2)| ≤ r1
3
1. ∀x:ℝ. (r0 < (r1 + x^2))
2. x : ℝ
3. approx-arg(λ2x.full-arctan(x);1;x) ∈ {y:ℝ| y = full-arctan(x)} 
⊢ arctan(x) ∈ {y:ℝ| y = arctangent(x)} 
Latex:
Latex:
\mforall{}[x:\mBbbR{}].  (arctan(x)  \mmember{}  \{y:\mBbbR{}|  y  =  arctangent(x)\}  )
By
Latex:
((Assert  \mforall{}x:\mBbbR{}.  (r0  <  (r1  +  x\^{}2))  BY
                (Auto  THEN  (Assert  r0  \mleq{}  x\^{}2  BY  EAuto  1)  THEN  RWO  "-1<"  0  THEN  Auto))
  THEN  Auto
  THEN  (InstLemma  `approx-arg\_wf`  [\mkleeneopen{}\mlambda{}\msubtwo{}x.full-arctan(x)\mkleeneclose{};\mkleeneopen{}\mlambda{}\msubtwo{}x.(r1/r1  +  x\^{}2)\mkleeneclose{};\mkleeneopen{}1\mkleeneclose{};\mkleeneopen{}x\mkleeneclose{}]\mcdot{}  THENA  Auto))
Home
Index