tcomp-id should probably use tcompcauchy' and a stronger induction