sig val isHoare : bool end