fact: Definition std_point i : point := let: (s, p) := odflt (0%N, 0%R : gpoint) (unpickle i) in scale_point R s p.
imports: mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat seq choice) mathcomp(path ssralg ssrint) fourcolor(real realplane realsyntax realprop) fourcolor(grid approx)