(15steps total) Remark PrintForm Definitions Lemmas IteratedBinops Sections DiscrMathExt Doc
IF YOU CAN SEE THIS go to /sfa/Nuprl/Shared/Xindentation_hack_doc.html
At: iter via intseg comp binop 1 2
1. A : Type
2. f : AAA
3. u : A
4. is_commutative_sep(A; f)
5. is_ident(A; f; u)
6. is_assoc_sep(A; f)
7. a : 
8. b:{...a}, e,g:({a..b}A).
8. f((Iter(f;u) i:{a..b}. e(i)),Iter(f;u) i:{a..b}. g(i))
8. =
8. (Iter(f;u) i:{a..b}. f(e(i),g(i)))
  b:{a...}, e,g:({a..b}A).
  f((Iter(f;u) i:{a..b}. e(i)),Iter(f;u) i:{a..b}. g(i))
  =
  (Iter(f;u) i:{a..b}. f(e(i),g(i)))
By: Inst: 
Thm*  P:(Prop), a:.
Thm*  (b:{a...}. (c:{a..b}. P(a,c))  P(a,b))  (b:{a...}. P(a,b))
Using:[P(a,b):=
Using:[e,g:({a..b}A).
Using:[f((Iter(f;u) i:{a..b}. e(i)),Iter(f;u) i:{a..b}. g(i))
Using:[=
Using:[(Iter(f;u) i:{a..b}. f(e(i),g(i)))
Using:[ A |
Using:[a]

Generated subgoal:

1 9. b : {a...}
10. c:{a..b}, e,g:({a..c}A).
10. f((Iter(f;u) i:{a..c}. e(i)),Iter(f;u) i:{a..c}. g(i))
10. =
10. (Iter(f;u) i:{a..c}. f(e(i),g(i)))
11. e : {a..b}A
12. g : {a..b}A
  f((Iter(f;u) i:{a..b}. e(i)),Iter(f;u) i:{a..b}. g(i))
  =
  (Iter(f;u) i:{a..b}. f(e(i),g(i)))
10 steps

About:
intapplyfunctionuniverseequalpropimpliesall
IF YOU CAN SEE THIS go to /sfa/Nuprl/Shared/Xindentation_hack_doc.html

(15steps total) Remark PrintForm Definitions Lemmas IteratedBinops Sections DiscrMathExt Doc