[logic-ml] higher inductive types