Opaque maxl.

(* Specifications: *)
Lemma inf_correct : forall (e : BCI) n s n' s',
n' <= n ->
s' <= s ->
inf e = I n' s' ->
arities (conv n s e) = ok_arities n s.
Lemma conv_correct : forall (e : BCI) (vnl vsl : list bs)
n s n' s',
n' <= n ->
s' <= s ->
inf e = I n' s' ->
sem (conv n s e) vnl vsl = semI e vnl vsl.