fact: Definition set_induction_above (P:t->Type) (a:forall s, Equal s empty ->P s) (f:forall p x, P p -> ~ In x p -> Above x p -> forall s, Equal s(add x p) -> P s) (s: t): P s := lva_iter P a f s (lVA s).
imports: Coq(FSets) ATBR(Common) ATBR(BoolView)