1 2 3 4
Ltac f H := split; [ a H | e H ] Ltac g := match goal with | |- context [if ?X then _ else _] => case X end