IF YOU CAN SEE THIS go to /sfa/Nuprl/Shared/Xindentation_hack_doc.html
At:
iter via intseg split mid12111 1. A : Type
2. f : AAA 3. u : A 4. is_ident(A; f; u)
5. is_assoc_sep(A; f)
6. a :
7. c :
8. a = c 9. a<c 10. k :
11. k1:.
11. k1<k 11.
11. (b:.
11. (b-c = k1 11. (
11. ((e:({a..b}A).
11. (((Iter(f;u) i:{a..b}. e(i))
11. ((=
11. ((f((Iter(f;u) i:{a..c}. e(i)),Iter(f;u) i:{c..b}. e(i))))
12. b :
13. b-c = k 14. e : {a..b}A 15. b = c (Iter(f;u) i:{a..b}. e(i))
=
f((Iter(f;u) i:{a..c}. e(i)),Iter(f;u) i:{c..b}. e(i))
By:
Rewrite by b = c THEN
Rewrite by
Thm*f:(AAA), u:A, a,b:, e:({a..b}A).
Thm* ba (Iter(f;u) i:{a..b}. e(i)) = u Using:[a:= c | b:= c]