Nuprl Lemma : mk-groupoid_wf

∀[C:SmallCategory]. ∀[inv:x:cat-ob(C) ⟶ y:cat-ob(C) ⟶ (cat-arrow(C) x y) ⟶ (cat-arrow(C) y x)].
  Groupoid(C;
           inv(x,y,f) = inv[x;y;f]) ∈ Groupoid 
  supposing ∀x,y:cat-ob(C). ∀f:cat-arrow(C) x y.
              (((cat-comp(C) x y x f inv[x;y;f]) = (cat-id(C) x) ∈ (cat-arrow(C) x x))
              ∧ ((cat-comp(C) y x y inv[x;y;f] f) = (cat-id(C) y) ∈ (cat-arrow(C) y y)))


Proof




Definitions occuring in Statement :  mk-groupoid: mk-groupoid,  groupoid: Groupoid,  cat-comp: cat-comp(C),  cat-id: cat-id(C),  cat-arrow: cat-arrow(C),  cat-ob: cat-ob(C),  small-category: SmallCategory,  uimplies: b supposing a,  uall: ∀[x:A]. B[x],  so_apply: x[s1;s2;s3],  all: ∀x:A. B[x],  and: P ∧ Q,  member: t ∈ T,  apply: f a,  function: x:A ⟶ B[x],  equal: s = t ∈ T
Definitions unfolded in proof :  uall: ∀[x:A]. B[x],  member: t ∈ T,  uimplies: b supposing a,  mk-groupoid: mk-groupoid,  groupoid: Groupoid,  so_apply: x[s1;s2;s3],  so_lambda: λ2x.t[x],  prop: ℙ,  and: P ∧ Q,  so_apply: x[s],  all: ∀x:A. B[x]
Lemmas referenced :  cat-ob_wf,  cat-arrow_wf,  all_wf,  equal_wf,  cat-comp_wf,  cat-id_wf,  small-category_wf
Rules used in proof :  sqequalSubstitution,  sqequalTransitivity,  computationStep,  sqequalReflexivity,  isect_memberFormation,  introduction,  cut,  sqequalRule,  dependent_pairEquality,  hypothesisEquality,  dependent_set_memberEquality,  lambdaEquality,  applyEquality,  functionExtensionality,  extract_by_obid,  sqequalHypSubstitution,  isectElimination,  thin,  hypothesis,  because_Cache,  productEquality,  setEquality,  functionEquality,  axiomEquality,  equalityTransitivity,  equalitySymmetry,  isect_memberEquality

Latex:
\mforall{}[C:SmallCategory].  \mforall{}[inv:x:cat-ob(C)  {}\mrightarrow{}  y:cat-ob(C)  {}\mrightarrow{}  (cat-arrow(C)  x  y)  {}\mrightarrow{}  (cat-arrow(C)  y  x)].
    Groupoid(C;
                      inv(x,y,f)  =  inv[x;y;f])  \mmember{}  Groupoid 
    supposing  \mforall{}x,y:cat-ob(C).  \mforall{}f:cat-arrow(C)  x  y.
                            (((cat-comp(C)  x  y  x  f  inv[x;y;f])  =  (cat-id(C)  x))
                            \mwedge{}  ((cat-comp(C)  y  x  y  inv[x;y;f]  f)  =  (cat-id(C)  y)))



Date html generated: 2017_10_05-AM-00_49_06
Last ObjectModification: 2017_07_28-AM-09_20_10

Theory : small!categories


Home Index