Instance same_covered_eq {ora: RandomOracle}: Equivalence same_covered_anti_chain.

Lemma same_covered_future_anti_chain_spec {ora: RandomOracle}: forall d1 d2,
same_covered_anti_chain d1 d2 ->
future_anti_chain d1 d2 ->
forall h1, d1 h1 -> exists h2, prefix_history h1 h2 /\ d2 h2.