(* * Copyright (c) 2009 Robert Dockins and Aquinas Hobor. * *)
(* Coq development: using indirection theory to model types in l-calculus *)
(* lam_ref_mach_defs.v: some simple definitions that sit right on top of the TCB. *)
(* Some custom tactics, maybe move into msl in base.v *)
Tactic Notation "omegac" :=
(elimtype False; omega).

Lemma IF_then_else_True:
forall a b c : Prop, a -> (IF a then b else c) = b.