This commit is contained in:
Simon Cruanes 2016-11-02 16:16:34 +01:00
parent 33ea26c4f5
commit 42b4c00861

View file

@ -115,7 +115,7 @@ module Make
let c' = match c.St.cpremise with
| St.Hyp | St.Lemma _ -> c
| St.History ( { St.cpremise = (St.Hyp | St.Lemma _) } as d :: _) -> d
| _ -> assert false
| _ -> c (* FIXME *)
in
St.pp_dimacs fmt c'
in