proposition: Lemma prune_D1 : D1 (prune pcond S0).
proof: Proof. move => C /pruneE. rewrite negbK => /allP H s inC. exact: (H _ inC). Qed.
imports: mathcomp.ssreflect.ssreflect mathcomp(all_ssreflect) CompDecModal.libs(edone bcase fset base sltype) CompDecModal.K(K_def)