theorem
  kind_of set-constr = a_Type & loci_of set-constr = {} &
  index_of set-constr = 0;
