diff options
| author | Chantal Keller <Chantal.Keller@lri.fr> | 2020-07-06 12:40:48 +0200 |
|---|---|---|
| committer | Chantal Keller <Chantal.Keller@lri.fr> | 2020-07-06 12:40:48 +0200 |
| commit | 52621f58edcabc36e7d1cd10d9b4da8be1a08649 (patch) | |
| tree | de5831e7b1b0fb79fe459a819bbe2590e14a1682 /src/trace/smtTrace.ml | |
| parent | ea73755e6e1b7efea8db79b9fc0cf456ed5c640f (diff) | |
| parent | d7a33ad9b479317701eba7c787744599de134f78 (diff) | |
| download | smtcoq-52621f58edcabc36e7d1cd10d9b4da8be1a08649.tar.gz smtcoq-52621f58edcabc36e7d1cd10d9b4da8be1a08649.zip | |
Merge branch 'coq-8.10' of github.com:smtcoq/smtcoq into coq-8.10
Diffstat (limited to 'src/trace/smtTrace.ml')
| -rw-r--r-- | src/trace/smtTrace.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/trace/smtTrace.ml b/src/trace/smtTrace.ml index f397826..ef017a7 100644 --- a/src/trace/smtTrace.ml +++ b/src/trace/smtTrace.ml @@ -159,7 +159,7 @@ let order_roots init_index first = r := n | _ -> failwith "root value has unexpected form" end done; - let _, lr = List.sort (fun (i1, _) (i2, _) -> Pervasives.compare i1 i2) !acc + let _, lr = List.sort (fun (i1, _) (i2, _) -> Stdlib.compare i1 i2) !acc |> List.split in let link_to c1 c2 = let curr_id = c2.id -1 in @@ -476,7 +476,7 @@ let to_coq to_lit interp (cstep, let concl' = out_cl [concl] in let app_name = Structures.mkId ("app" ^ (string_of_int (Hashtbl.hash concl))) in let app_var = Structures.mkVar app_name in - let app_ty = Term.mkArrow clemma (interp ([], [concl])) in + let app_ty = Structures.mkArrow clemma (interp ([], [concl])) in cuts := (app_name, app_ty)::!cuts; mklApp cForallInst [|out_c c; clemma; cplemma; concl'; app_var|] end |