
theorem
  for L1 be non empty reflexive RelStr for a be Element of L1 holds
  Way_Up(a,{}(L1)) = wayabove a;
