From 305f85996292b190247c7b25620f85699c30d44b Mon Sep 17 00:00:00 2001 From: Jason Gross Date: Mon, 29 Oct 2018 16:58:06 -0400 Subject: Add split_contravariant_or --- src/Util/Tactics/SplitInContext.v | 2 ++ 1 file changed, 2 insertions(+) (limited to 'src/Util') diff --git a/src/Util/Tactics/SplitInContext.v b/src/Util/Tactics/SplitInContext.v index dd4e424a3..1c7cefafa 100644 --- a/src/Util/Tactics/SplitInContext.v +++ b/src/Util/Tactics/SplitInContext.v @@ -18,6 +18,8 @@ Ltac split_in_context ident funl funr := Ltac split_iff := split_in_context iff (fun a b : Prop => a -> b) (fun a b : Prop => b -> a). +Ltac split_contravariant_or := split_in_context_by or (fun A B : Prop => A) (fun A B : Prop => B) ltac:(fun H => intros; eauto 100 using H, or_introl, or_intror, ex_intro, exist, existT with nocore). + Ltac split_and' := repeat match goal with | [ H : ?a /\ ?b |- _ ] => let H0 := fresh in let H1 := fresh in -- cgit v1.2.3