{X : Type u_2} →
  [inst : SemilatticeInf X] →
    {motive : Nucleus X → Sort u} →
      ((toInfHom : InfHom X X) →
          (idempotent' : ∀ (x : X), toInfHom.toFun (toInfHom.toFun x) ≤ toInfHom.toFun x) →
            (le_apply' : ∀ (x : X), x ≤ toInfHom.toFun x) →
              motive { toInfHom := toInfHom, idempotent' := idempotent', le_apply' := le_apply' }) →
        (t : Nucleus X) → motive t