Ltac landL :=
    repeat match goal with
    | |- ?L1 //\\ ?L2 |-- ?R =>
        match L1 with
        | context [R] => apply landL1
        | _ =>
          match L2 with
          | context [R] => apply landL2
          end
        end
    end.

Lemma landforallDR {H: Inhabited T} (f : T -> A) (P : A) : Forall a, (f a //\\ P) |-- (Forall a, f a) //\\ P.