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.