fact: Example p_multiply (a b : nat) : program (T := unit) unit := p_do _ <- p_put 0 ; p_repeat b ( p_do x <- p_get ; p_put (a + x) ).
imports: Eqdep JMeq List ssreflect mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat seq) hierarchy monad_lib state_lib trace_lib monad_model