in progress of writing up Refinementlhs