Demostrations ala AMS

[Xan <dxpublica@telefonica.net>]

Hi,

I like to have the same environments in ConTeXt like in amsthm LaTeX.
With defineenumeration I did emulate thm and others, but now I trying to 
have something like demostration.

My code is:

% AMSTHM
\defineenumeration
  [exercici]
  
[text={Problema},headstyle=bold,between=\blank,titledistance=0em,textdistance=1em,
stopper={.\space},location=serried,left={\bgroup\bf},right={\egroup},width=fit,
before={\bgroup\startframedtext[background=screen,frame=off,width=broad]},
after={\stopframedtext\egroup}]

\defineenumeration
  [lemma]
  
[text={Lema},headstyle=bold,between=\blank,titledistance=0em,textdistance=1em,
stopper={.\space},location=serried,left={\bgroup\bf},right={\egroup},width=fit,style=italic]

\definedescription[demo][location=serried,text={Demostración.},headstyle=bold,
indentnext=yes,between=\blank,before={\bgroup},after={$\Box$\egroup}]


The **problem** is how to put qed symbol (for example $\Box$ in my case) 
at the end of demo. I try with after but it's not works: \Box appears in 
the next line at the begginning. Can someone help me?

Thanks,
Xan.
___________________________________________________________________________________
If your question is of interest to others as well, please add an entry to the Wiki!

maillist : ntg-context@ntg.nl / http://www.ntg.nl/mailman/listinfo/ntg-context
webpage  : http://www.pragma-ade.nl / http://tex.aanhet.net
archive  : https://foundry.supelec.fr/projects/contextrev/
wiki     : http://contextgarden.net
___________________________________________________________________________________