This commit is contained in:
Olivier 2022-02-08 11:27:05 +01:00
parent 50bc6ed92b
commit b7fefec0e3
1 changed files with 25 additions and 0 deletions

25
src/MultiEq.ml Normal file
View File

@ -0,0 +1,25 @@
open Signatures
module Make (S : GSTRUCTURE) : GSTRUCTURE =
struct
type 'a structure = 'a S.structure list
exception InconsistentConjunction
let conjunction f s1 s2 =
List.fold_left
(fun _acc e1 ->
List.iter (fun e2 -> S.conjunction f e1 e2 |> ignore) s2;
failwith "todo")
[] s1
let iter f s =
List.iter (fun e -> S.iter f e) s
let fold f s acc =
List.fold_right
(fun e acc -> S.fold f e acc) s acc
let map f s =
List.map (fun e -> S.map f e) s
end