(* This file contains tactics that are similar to ssreflect tactics. * The tactics here use numbers to refer to hypotheses to the right * of the entailment. *)
Section indexed.
Context {L : Type}
{ILO : ILogicOps L}
{IL : ILogic L}.

(* Destruct *)
Theorem destruct_top
: forall A B C D : L,
A |-- B -->> C -->> D ->
A |-- B //\\ C -->> D.