Step
*
1
1
of Lemma
null-formal-sum-neg
.....subterm..... T:t
1:n
1. K : Rng
2. S : Type
3. fs : basic-formal-sum(K;S)
4. b : bag(|K| × S)
5. ss : bag(S)
6. fs = ((b + -(b)) + 0 * ss) ∈ bag(|K| × S)
⊢ (λx.<-K 0, x>) = (λs.<0, s>) ∈ (S ⟶ (|K| × S))
BY
{ (FunExt THEN Reduce 0 THEN Auto THEN EqCDA THEN Auto) }
Latex:
Latex:
.....subterm.....  T:t
1:n
1.  K  :  Rng
2.  S  :  Type
3.  fs  :  basic-formal-sum(K;S)
4.  b  :  bag(|K|  \mtimes{}  S)
5.  ss  :  bag(S)
6.  fs  =  ((b  +  -(b))  +  0  *  ss)
\mvdash{}  (\mlambda{}x.<-K  0,  x>)  =  (\mlambda{}s.ɘ,  s>)
By
Latex:
(FunExt  THEN  Reduce  0  THEN  Auto  THEN  EqCDA  THEN  Auto)
Home
Index