simon/sidekick
1
0
Fork 0
mirror of https://github.com/c-cube/sidekick.git synced 2025-12-06 19:25:36 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

try to fix ci again

Browse source
This commit is contained in:
Simon Cruanes 2021-06-11 22:06:27 -04:00
parent 899ea67188
commit 0042f50db2
1 changed files with 8 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
src/base-term/Proof.ml
View file

@ -231,7 +231,7 @@ module Compress = struct
T.iter_dag t T.iter_dag t
(fun u -> (fun u ->
if not (is_small_ u) then ( if not (is_small_ u) then (
match T.Tbl.find_opt self.terms u with match T.Tbl.get self.terms u with
| None -> T.Tbl.add self.terms u First | None -> T.Tbl.add self.terms u First
| Some First -> T.Tbl.replace self.terms u Shared | Some First -> T.Tbl.replace self.terms u Shared
| Some (Shared | Named _) -> () | Some (Shared | Named _) -> ()
@ -267,7 +267,7 @@ module Compress = struct
let traverse_t t : unit = let traverse_t t : unit =
T.iter_dag_with ~order:T.Iter_dag.Post t T.iter_dag_with ~order:T.Iter_dag.Post t
(fun u -> (fun u ->
match T.Tbl.find_opt sharing.terms u with match T.Tbl.get sharing.terms u with
| Some Shared -> | Some Shared ->
(* shared, but not named yet *) (* shared, but not named yet *)
let name = new_name() in let name = new_name() in
@ -309,7 +309,7 @@ module Quip = struct
open Out open Out
let rec pp_t sharing (t:Term.t) : printer = let rec pp_t sharing (t:Term.t) : printer =
match T.Tbl.find_opt sharing.Compress.terms t with match T.Tbl.get sharing.Compress.terms t with
| Some (Named (N_s s)) -> a s(* use the newly introduced name *) | Some (Named (N_s s)) -> a s(* use the newly introduced name *)
| Some (Named (N_t t)) -> pp_t sharing t (* use name *) | Some (Named (N_t t)) -> pp_t sharing t (* use name *)
| _ -> pp_t_nonshare_root sharing t | _ -> pp_t_nonshare_root sharing t
@ -467,11 +467,11 @@ module Quip = struct
type out_format = Sexp | CSexp type out_format = Sexp | CSexp
let default_out_format = Sexp let default_out_format = Sexp
let out_format_ = match Sys.getenv_opt "PROOF_FMT" with let out_format_ = match Sys.getenv "PROOF_FMT" with
| Some "csexp" -> CSexp | "csexp" -> CSexp
| Some "sexp" -> Sexp | "sexp" -> Sexp
| Some s -> failwith (Printf.sprintf "unknown proof format %S" s) | s -> failwith (Printf.sprintf "unknown proof format %S" s)
| None -> default_out_format | exception _ -> default_out_format
let output oc (self:t) : unit = let output oc (self:t) : unit =
match out_format_ with match out_format_ with