mirror of
https://github.com/c-cube/ocaml-containers.git
synced 2025-12-06 03:05:28 -05:00
17 lines
505 B
OCaml
Executable file
17 lines
505 B
OCaml
Executable file
#!/usr/bin/env ocaml
|
|
#use "tests/quick/.common.ml";;
|
|
#load "containers.cma";;
|
|
open Containers;;
|
|
|
|
module T = RatTerm.Default;;
|
|
#install_printer T.fmt;;
|
|
#install_printer T.Subst.fmt;;
|
|
|
|
let t = T.(app "f" [const "a"; app "f" [mk_ref 1; const "b"]]);;
|
|
let t2 = T.(app "f" [var (); app "f" [mk_ref 1; var ()]]);;
|
|
let t3 = T.(app "f" [var (); app "f" [var (); const "b"]]);;
|
|
let subst2 = match T.unify t t3 with Some s -> s | None -> assert false;;
|
|
let t3' = T.Subst.apply subst2 t3;;
|
|
T.eq_set t t3';;
|
|
|
|
ok();;
|