- napply (replace_char ⌠{ x | h x = O }); ##[ ##1,2: #x; ncases (Ph x);
- (* nauto; *) #H1; #H2; #H3; nauto; (* ??? *) ##]
- napply (replace_char ⌠{ x | Ď a x = O }); ##[##1,2: #x; nrewrite > (H x);
- (* nauto; *) #E; napply E; ##]
+ napply (replace_char ⌠{ x | h x = O }); ##[ ##1,2: #x; ncases (Ph x); //; ##]
+ napply (replace_char ⌠{ x | Ď a x = O }); ##[##1,2: #x; nrewrite > (H x); //; ##]