fact: Definition transform_once tr t := match tr with | trAtom f _ => transform_tree_atom f t | trLeaf f _ => transform_tree_atom' f t | trBound f _ => transform_tree_atom (transform_atom_bound (transform_expr f)) t | trExpr f _ => transform_tree_atom (transform_atom_expr (transform_expr f)) t | trTree f _ => f t end.
imports: Coq(ZArith Reals List Lia) Flocq(Core) Gappa_library