IF YOU CAN SEE THIS go to http://www.cs.cornell.edu/Info/People/sfa/Nuprl/Shared/Xindentation_hack_doc.html
At:
sub-join-list-din T:Type, l:IdLnk, tg:Id, L:MsgA List.
(ML.Tr M.din(l,tg)) (Tr (L).din(l,tg))
By:
InductionOnList THEN Unfold `ma-join-list` 0 THEN Reduce 0
THEN
Try (Fold `ma-join-list` 0)
1. T : Type
2. l : IdLnk
3. tg : Id
4. MsgA List
5. u : MsgA
6. v : MsgA List
7. (Mv.Tr M.din(l,tg)) (Tr (v).din(l,tg))
(M[u / v].Tr M.din(l,tg)) (Tr u(v).din(l,tg))
10 steps
About:
IF YOU CAN SEE THIS go to http://www.cs.cornell.edu/Info/People/sfa/Nuprl/Shared/Xindentation_hack_doc.html