(* 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}.

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