Step
*
of Lemma
extend-face-term-le
∀[I:fset(ℕ)]. ∀[phi:𝔽(I)]. ∀[u:{I,phi ⊢ _:𝔽}].  extend-face-term(I;phi;u) ≤ phi
BY
{ ((Auto THEN Unfold `extend-face-term` 0)
   THEN (GenConclTerm ⌜face_lattice_components(I;phi)⌝⋅ THENA Auto)
   THEN Thin (-1)
   THEN D -1
   THEN (InstLemma `fset-subtype2` [⌜{p:fset(names(I)) × fset(names(I))| ↑fset-disjoint(NamesDeq;fst(p);snd(p))} ⌝;
         ⌜product-deq(fset(names(I));fset(names(I));deq-fset(NamesDeq);deq-fset(NamesDeq))⌝;⌜v⌝]⋅
         THENA Auto
         )
   THEN Guard (-1)
   THEN ((GenConcl ⌜v = fs ∈ fset({z:{p:fset(names(I)) × fset(names(I))| ↑fset-disjoint(NamesDeq;fst(p);snd(p))} | z ∈ v\000C} )⌝⋅
          THEN Try ((Unfold `guard` -1 THEN Trivial))
          )
         THENW Auto
         )
   THEN Thin (-3)) }
1
1. I : fset(ℕ)
2. phi : 𝔽(I)
3. u : {I,phi ⊢ _:𝔽}
4. v : fset({p:fset(names(I)) × fset(names(I))| ↑fset-disjoint(NamesDeq;fst(p);snd(p))} )
5. [%1] : phi = \/(λpr.irr_face(I;fst(pr);snd(pr))"(v)) ∈ Point(face_lattice(I))
6. fs : fset({z:{p:fset(names(I)) × fset(names(I))| ↑fset-disjoint(NamesDeq;fst(p);snd(p))} | z ∈ v} )
7. v = fs ∈ fset({z:{p:fset(names(I)) × fset(names(I))| ↑fset-disjoint(NamesDeq;fst(p);snd(p))} | z ∈ v} )
⊢ \/(λpr.let as,bs = pr 
         in irr_face(I;as;bs) ∧ u(irr-face-morph(I;as;bs))"(fs)) ≤ phi
Latex:
Latex:
\mforall{}[I:fset(\mBbbN{})].  \mforall{}[phi:\mBbbF{}(I)].  \mforall{}[u:\{I,phi  \mvdash{}  \_:\mBbbF{}\}].    extend-face-term(I;phi;u)  \mleq{}  phi
By
Latex:
((Auto  THEN  Unfold  `extend-face-term`  0)
  THEN  (GenConclTerm  \mkleeneopen{}face\_lattice\_components(I;phi)\mkleeneclose{}\mcdot{}  THENA  Auto)
  THEN  Thin  (-1)
  THEN  D  -1
  THEN  (InstLemma  `fset-subtype2`  [\mkleeneopen{}\{p:fset(names(I))  \mtimes{}  fset(names(I))| 
                                                                        \muparrow{}fset-disjoint(NamesDeq;fst(p);snd(p))\}  \mkleeneclose{};
              \mkleeneopen{}product-deq(fset(names(I));fset(names(I));deq-fset(NamesDeq);deq-fset(NamesDeq))\mkleeneclose{};\mkleeneopen{}v\mkleeneclose{}]\mcdot{}
              THENA  Auto
              )
  THEN  Guard  (-1)
  THEN  ((GenConcl  \mkleeneopen{}v  =  fs\mkleeneclose{}\mcdot{}  THEN  Try  ((Unfold  `guard`  -1  THEN  Trivial)))  THENW  Auto)
  THEN  Thin  (-3))
Home
Index