Step * of Lemma fset-intersection-associative

[A:Type]. ∀[eqa:EqDecider(A)]. ∀[x,y,z:fset(A)].  (x ⋂ y ⋂ x ⋂ y ⋂ z ∈ fset(A))
BY
((Auto THEN (Using [`eq',⌜eqa⌝(BLemma `fset-extensionality` )⋅ THENA Auto))
   THEN Intro
   THEN RepeatFor ((RWO "member-fset-intersection" 0⋅ THENA Auto))
   THEN Auto) }


Latex:


Latex:
\mforall{}[A:Type].  \mforall{}[eqa:EqDecider(A)].  \mforall{}[x,y,z:fset(A)].    (x  \mcap{}  y  \mcap{}  z  =  x  \mcap{}  y  \mcap{}  z)


By


Latex:
((Auto  THEN  (Using  [`eq',\mkleeneopen{}eqa\mkleeneclose{}]  (BLemma  `fset-extensionality`  )\mcdot{}  THENA  Auto))
  THEN  Intro
  THEN  RepeatFor  2  ((RWO  "member-fset-intersection"  0\mcdot{}  THENA  Auto))
  THEN  Auto)




Home Index