IF YOU CAN SEE THIS go to /sfa/Nuprl/Shared/Xindentation_hack_doc.html
At:
iter via intseg amputate units11 1. A : Type
2. f : AAA 3. u : A 4. is_ident(A; f; u)
5. is_assoc_sep(A; f)
6. a : 7. b : 8. c : {a...b}
9. d : {c..b}
10. e : {a..b}A 11. i:{a..b}. i<cdie(i) = u f ((Iter(f;u) i:{a..c}. e(i))
,f((Iter(f;u) i:{c..d}. e(i)),Iter(f;u) i:{d..b}. e(i)))
=
f((Iter(f;u) i:{c..d}. e(i)),Iter(f;u) i:{d..d}. e(i))
By:
let T
let Rewrite by
let Thm*f:(AAA), u:A.
let Thm* is_ident(A; f; u)
let Thm* let Thm* (a,b:, e:({a..b}A).
let Thm* ((i:{a..b}. e(i) = u) (Iter(f;u) i:{a..b}. e(i)) = u) in
T Using:[a:= a] THEN Try BackThru: Hyp:11
THEN
T Using:[a:= d] THEN Try BackThru: Hyp:11