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<c  di  e(i) = u
  (Iter(f;u) i:{a..b}. e(i)) = (Iter(f;u) i:{c..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*  is_assoc_sep(A; f) let  Thm*   let  Thm*  (a,c,b:, e:({a..b}A). let  Thm*  (ac let  Thm*  ( let  Thm*  (cb let  Thm*  ( let  Thm*  ((Iter(f;u) i:{a..b}. e(i)) let  Thm*  (= let  Thm*  (f((Iter(f;u) i:{a..c}. e(i)),Iter(f;u) i:{c..b}. e(i))) in T Using:[a:= a | c:= c] THEN T Using:[a:= c | c:= d]

1

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))

3 steps

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