Definition sharedTgt mu b := orb (frgnBlocksTgt mu b) (pubBlocksTgt mu b).

(* Specifications: *)
Lemma shared_SrcTgt: forall mu (WD: SM_wd mu) b
(SH: sharedSrc mu b = true),
exists jb d, shared_of mu b = Some (jb, d) /\ sharedTgt mu jb = true.
Lemma shared_SrcTgt: forall mu (WD: SM_wd mu) b
(SH: sharedSrc mu b = true),
exists jb d, shared_of mu b = Some (jb, d) /\ sharedTgt mu jb = true.