fact: Example problem5 : ∀ f g h fg gh fgh : N, let big := composable_pairs 5 in M.find (elt:=N) (f, g) big = Some fg -> M.find (elt:=N) (g, h) big = Some gh -> M.find (elt:=N) (fg, h) big = Some fgh -> M.find (elt:=N) (f, gh) big = Some fgh.
imports: Coq.NArith.NArith Category.Lib Category.Lib.MapDecide Category.Theory.Metacategory.ArrowsOnly