fact: Fixpoint defineN (n : nat) : M unit := match n with | 0 => M.ret tt | S n => s <- M.pretty_print n; M.declare dok_Definition ("NAT"++s)%string false n;; defineN n end.
imports: Mtac2(Mtac2 Sorts MTele Specif) Strings.String