public static void htmlDescribeNamedDescription(NamedDescription concept, org.powerloom.PrintableStringWriter stream) {
    if (!(concept != null)) {
      return;
    }
    { String namestring = Logic.objectNameString(concept);
      String descriptionterm = OntosaurusUtil.lookupTerm((Logic.classP(concept) ? OntosaurusUtil.KWD_CONCEPT : OntosaurusUtil.KWD_RELATION), false, true);

      synchronized (Logic.$POWERLOOM_LOCK$) {
        { Object old$Context$000 = Stella.$CONTEXT$.get();
          Object old$Module$000 = Stella.$MODULE$.get();

          try {
            Native.setSpecial(Stella.$CONTEXT$, Logic.getQueryContext());
            Native.setSpecial(Stella.$MODULE$, ((Context)(Stella.$CONTEXT$.get())).baseModule);
            Logic.elaborateInstance(concept);

          } finally {
            Stella.$MODULE$.set(old$Module$000);
            Stella.$CONTEXT$.set(old$Context$000);
          }
        }
      }
      OntosaurusUtil.htmlDescribeLocation(concept, stream);
      OntosaurusUtil.htmlDescribeContextView(concept, stream);
      OntosaurusUtil.htmlDisplaySynonyms(concept, stream);
      OntosaurusUtil.htmlDisplayImages(concept, stream);
      OntosaurusUtil.htmlDisplayDocumentation(concept, stream);
      OntosaurusUtil.htmlDescribeEquivalents(Native.stringConcatenate("Equivalent ", descriptionterm), namestring, concept, stream, true);
      if (OntosaurusUtil.vizServerAvailableP()) {
        OntosaurusUtil.htmlWriteHrefInDetail(stream, "Graph", "graph", "relation", ((Module)(Stella.$MODULE$.get())).name(), Logic.objectName(concept).visibleName(true), "Graph " + namestring, false);
        stream.println("<HR SIZE=2>");
      }
      OntosaurusUtil.htmlDescribeTypes("Types", namestring, concept, stream, true);
      OntosaurusUtil.htmlDescribeSubs(Native.stringConcatenate("Sub", descriptionterm), namestring, concept, stream, true);
      OntosaurusUtil.htmlDescribeSupers(Native.stringConcatenate("Super", descriptionterm), namestring, concept, stream, true);
      OntosaurusUtil.htmlDescribeSiblings("Siblings", namestring, concept, stream, true);
      OntosaurusUtil.htmlDescribeFacts("Facts", namestring, concept, stream, true, true);
      OntosaurusUtil.htmlDescribeRules("Rules", namestring, concept, stream, true);
      { Object old$Context$001 = Stella.$CONTEXT$.get();
        Object old$Module$001 = Stella.$MODULE$.get();

        try {
          Native.setSpecial(Stella.$CONTEXT$, Logic.getQueryContext());
          Native.setSpecial(Stella.$MODULE$, ((Context)(Stella.$CONTEXT$.get())).baseModule);
          if (edu.isi.powerloom.PLI.getArity(concept) == 1) {
            OntosaurusUtil.htmlDescribeInstances("Instances", namestring, concept, stream, true);
          }
          else {
            OntosaurusUtil.htmlDescribeTuples("Tuples", namestring, concept, stream, true);
          }

        } finally {
          Stella.$MODULE$.set(old$Module$001);
          Stella.$CONTEXT$.set(old$Context$001);
        }
      }
      return;
    }
  }