fact: Definition apply_one_of (l : mlist dyn) : tactic := mfold_left (fun a d => dcase d as e in (or a (apply e))) l (T.raise NoProgress).
imports: Strings.String ssrmatching.ssrmatching Mtac2(Logic Datatypes List Utils Logic Sorts MTeleMatch) Strings.String NArith.BinNat NArith.BinNatDef