fact: Definition fix1 {A} (B : A -> Type) : ((forall x : A, gtactic (B x)) -> (forall x : A, gtactic (B x))) -> forall x : A, gtactic (B x) := @M.fix2 A (fun _ => (goal _)) (fun x _ => mlist (B x *m (goal _))).
imports: Strings.String ssrmatching.ssrmatching Mtac2(Logic Datatypes List Utils Logic intf.Sorts) Strings.String NArith.BinNat NArith.BinNatDef