some more testing in qft4.hs
rename Within to Fin1 (similar to Agda's Fin. but 1 denotes that Fin1 starts with 1)