concept Bla {
  int a, b;
}

svoid test_conceptsWithFieldLessThan() {
  new Concepts cc;
  indexConceptFieldDesc(cc, Bla, "a");
  Bla x = cnew(cc, Bla, a := 3, b := 3);
  for (int i : ll(5, 7))
    cnew(cc, Bla, a := i, b := i);
  assertEqualsVerbose(ll(x), conceptsWithFieldLessThan(cc, Bla, a := 5));
  assertEqualsVerbose(ll(x), conceptsWithFieldLessThan(cc, Bla, b := 5));
}