By: |
let A
let Auto THEN Try (Analyze -1 THEN Unhide THEN Complete Auto)
let THEN
let Try (Analyze -2 THEN Unhide THEN Complete Auto)
let THEN
let Try (Unfold `w-E` 0 THEN DeqSubtype)
let THEN
let Try (DoSubsume THEN SubtypeRelEq THEN BackThruSomeHyp) ,
let B
let Analyze
let THENL
let [Analyze
let [THENL
let [[BackThru
let [[Thm* the_w:World, l:IdLnk, e:E. sends(l;e) Msg_sub(l; the_w.M) List
let [;Auto]
let ;Auto] in
Using [`V',( i,a. V(i;locl(a)))] Analyze THEN Reduce 0 THEN Try (Complete A)
THEN
Try (Complete B) |