Step * of Lemma path-eq_wf

[X:CubicalSet]. ∀[A:{X ⊢ _}]. ∀[a,b:{X ⊢ _:A}]. ∀[I:Cname List]. ∀[alpha:X(I)]. ∀[p,q:I-path(X;A;a;b;I;alpha)].
  (path-eq(X;A;I;alpha;p;q) ∈ ℙ)
BY
(Intros
   THEN Unhide
   THEN -2
   THEN -3
   THEN -2
   THEN -1
   THEN -2
   THEN -1
   THEN RepUR ``path-eq`` 0
   THEN MemCD
   THEN Try ((InferEqualType THEN Auto THEN BLemma `rename-one-iota` THEN Auto))
   THEN Auto) }


Latex:


Latex:
\mforall{}[X:CubicalSet].  \mforall{}[A:\{X  \mvdash{}  \_\}].  \mforall{}[a,b:\{X  \mvdash{}  \_:A\}].  \mforall{}[I:Cname  List].  \mforall{}[alpha:X(I)].
\mforall{}[p,q:I-path(X;A;a;b;I;alpha)].
    (path-eq(X;A;I;alpha;p;q)  \mmember{}  \mBbbP{})


By


Latex:
(Intros
  THEN  Unhide
  THEN  D  -2
  THEN  D  -3
  THEN  D  -2
  THEN  D  -1
  THEN  D  -2
  THEN  D  -1
  THEN  RepUR  ``path-eq``  0
  THEN  MemCD
  THEN  Try  ((InferEqualType  THEN  Auto  THEN  BLemma  `rename-one-iota`  THEN  Auto))
  THEN  Auto)




Home Index