First, one obvious solution : parse the equations, run a solver, then output
"()" if it can deduce the queries from the equations, and "1 = true"
otherwise. Why isn't this solution satisfying ?

With the type system there is one thing that is easy and natural to do : you
could encode your arrows as elements with a specific type (eg. for an arrow
`f` of source `src` and destination `dst` you would write `(src, f, dst)
arrow` with `src, f, dst` abstract types) :
  arrow_f : (foo, f, bar) arrow
then write both a composition function
  compose : ('a, 'f, 'b) arrow -> ('b, 'g, 'c) arrow -> ('a, ('f, 'g) comp,
'c) arrow
and terms representing your equational theory:
  assoc : ('a, (('f, 'g) comp, 'h) comp, 'b) arrow -> ('a, ('f, ('g, 'h)
comp) comp, 'b)
and for each equation f o g = h (not that I use `g` and not `'g`)
  witness_fg_h : ('a, (f, g) comp, 'b) arrow -> ('a, h, 'b) arrow

Then, for each deducible relation, there exist a typed term that is a proof
witness of the relation deductibility (you just unify the type of the two
arrows that should be equal). If you have a solver for equation
deductibility, you can ask him to output the proof witness in this format.

This does not use the inference system to solve your problem, which is what
you asked for. But this is a solid design that is going to still work if you
change your language, eg. can still be used on non decidable questions. I
think this is a good first step; feel free to improve it by whatever
advanced type hackery.

On Thu, Mar 31, 2011 at 12:27 AM, Guillaume Yziquel <
guillaume.yziquel@citycable.ch> wrote:

> Hello.
>
> I have a small problem that I would wish to encode in the type system,
> and I would like some advice on how to do that using Camlp4.
>
> You have a finite category (in the sense of a finite number of objects),
> and a finite set of arrows that generates all the arrows. Let's assume
> that you have tokens (Camlp4 a_LIDENT) for all of these.
>
> I want my Camlp4 syntax extension to operate on an .mli interface file
> and an .ml file.
>
> The .mli interface should contain all the relations you want to enforce
> concerning composition of arrows.
>
> The .ml file should contain some relations about composition of arrows.
>
> If I compile the preprocessed .ml file against the preprocessed .mli
> file, I want it to type check if and only if all relations in the .mli
> file can be deduced from relations in the .mli file.
>
> If, for instance the unprocessed .mli file contains
>
>        f o g o h = i o j o k
>
> and the unprocessed .ml file contains
>
>        f o g = i
>        h = j o k
>
> I want it to type check fine. I you ommit h = j o k, I want the type
> checker to fail.
>
> This is purely type-system-ish, and I really do not care how arrows are
> encoded (types, type parameters, fun (type arrow) -> stuff).
>
> Is there a way to use Camlp4 to encode this in the type system?
> Intuitively, I'd say yes, but I currently do not see how.
>
> --
>     Guillaume Yziquel
>
> --
> Caml-list mailing list.  Subscription management and archives:
> https://sympa-roc.inria.fr/wws/info/caml-list
> Beginner's list: http://groups.yahoo.com/group/ocaml_beginners
> Bug reports: http://caml.inria.fr/bin/caml-bugs
>
>