Revised ct.agda