]> matita.cs.unibo.it Git - helm.git/blob - matita/matita/contribs/lambdadelta/bin/recomm/recommStep.ml
update in bin
[helm.git] / matita / matita / contribs / lambdadelta / bin / recomm / recommStep.ml
1 let id p = p
2  
3 let register line next =
4   let first = !line in
5   line := fun k -> first @@ next @@ k