proposition: Lemma demo_asserts_cuts : True.
proof: Proof. Proof using. dup 7. asserts U: H2. demo. demo. asserts [U V]: (H2 /\ H3). demo. demo. asserts U V W: (H2 /\ H3 /\ H4). demo. demo. asserts x y E F: (exists x y, S x = y /\ x > 0). demo. demo. asserts: (H2 /\ H3). demo. demo. asserts~ U: (0 = 0). demo. cuts U V: (H2 /\ H3). demo. demo. Qed.
imports: TLC(LibTactics) Coq.micromega.Lia