Résolution stellaire en OCaml
 
 
 

8 lines
107 B

{
[+add(0, Y, Y)] +
[-add(X, Y, Z), +add(s(X), Y, s(Z))]
}
|-
{
[-add(s(s(0)), s(s(0)), R), R]
}