diff options
author | Franciszek Malinka <franciszek.malinka@gmail.com> | 2021-10-05 21:49:54 +0200 |
---|---|---|
committer | Franciszek Malinka <franciszek.malinka@gmail.com> | 2021-10-05 21:49:54 +0200 |
commit | c5fcf7179a83ef65c86c6a4a390029149e518649 (patch) | |
tree | d29ffc5b86a0d257453cedcf87d91a13d8bf3b0d /Semestr 3/pf/lista4/logic | |
parent | f8a88b6a4aba1f66d04711a9330eaba49a50c463 (diff) |
Duzy commit ze smieciami
Diffstat (limited to 'Semestr 3/pf/lista4/logic')
-rw-r--r-- | Semestr 3/pf/lista4/logic/Makefile | 19 | ||||
-rw-r--r-- | Semestr 3/pf/lista4/logic/README | 27 | ||||
-rw-r--r-- | Semestr 3/pf/lista4/logic/_build/_digests | 8 | ||||
-rw-r--r-- | Semestr 3/pf/lista4/logic/_build/_log | 12 | ||||
-rw-r--r-- | Semestr 3/pf/lista4/logic/_build/logic.cma | bin | 3109 -> 0 bytes | |||
-rw-r--r-- | Semestr 3/pf/lista4/logic/_build/logic.cmi | bin | 1513 -> 0 bytes | |||
-rw-r--r-- | Semestr 3/pf/lista4/logic/_build/logic.cmo | bin | 3102 -> 0 bytes | |||
-rw-r--r-- | Semestr 3/pf/lista4/logic/_build/logic.ml | 78 | ||||
-rw-r--r-- | Semestr 3/pf/lista4/logic/_build/logic.ml.depends | 1 | ||||
-rw-r--r-- | Semestr 3/pf/lista4/logic/_build/logic.mli | 44 | ||||
-rw-r--r-- | Semestr 3/pf/lista4/logic/_build/logic.mli.depends | 1 | ||||
-rw-r--r-- | Semestr 3/pf/lista4/logic/_build/logic.mllib | 2 | ||||
-rw-r--r-- | Semestr 3/pf/lista4/logic/_build/ocamlc.where | 1 | ||||
-rw-r--r-- | Semestr 3/pf/lista4/logic/_tags | 0 | ||||
-rw-r--r-- | Semestr 3/pf/lista4/logic/logic.cma | bin | 3109 -> 0 bytes | |||
-rw-r--r-- | Semestr 3/pf/lista4/logic/logic.cmi | bin | 1513 -> 0 bytes | |||
-rw-r--r-- | Semestr 3/pf/lista4/logic/logic.mllib | 2 |
17 files changed, 0 insertions, 195 deletions
diff --git a/Semestr 3/pf/lista4/logic/Makefile b/Semestr 3/pf/lista4/logic/Makefile deleted file mode 100644 index 3c0d215..0000000 --- a/Semestr 3/pf/lista4/logic/Makefile +++ /dev/null @@ -1,19 +0,0 @@ -SOURCES = logic.ml logic.mli logic.mllib -CMFILES = logic.cma logic.cmi -.PHONY: all clean build - -all: logic.cma logic.cmi - -build: $(SOURCES) - rm -f $(CMFILES) - ocamlbuild logic.cma - -logic.cma: build - cp _build/$@ $@ - -logic.cmi: build - cp _build/$@ $@ - -clean: - rm -f $(CMFILES) - ocamlbuild -clean diff --git a/Semestr 3/pf/lista4/logic/README b/Semestr 3/pf/lista4/logic/README deleted file mode 100644 index 93dc2b7..0000000 --- a/Semestr 3/pf/lista4/logic/README +++ /dev/null @@ -1,27 +0,0 @@ -Szablon do listy 4 z Programowania funkcyjnego w grupach mabi, mbu, ppo i efes. - -Zarówno plik README, jak i źródła wykorzystują kodowanie znaków UTF-8. -Jeśli nie wyświetlają się one dobrze na Twoim komputerze, zadbaj o to, -by Twój edytor używał kodowania znaków UTF-8. Jeśli Twój edytor tego -nie potrafi, zmień edytor. - -Pliki logic.mli, logic.ml, proof.mli, proof.ml definiują bibliotekę, -którą łatwo skompilować poleceniem - -$ make - -Żeby moduły definiowane przez tą bibliotekę były widoczne w interpreterze, -należy przekazać plik logic.cma jako parametr do interpretera: - -$ utop logic.cma - -Jeśli masz problemy ze skompilowaniem biblioteki, możesz zawsze skompilować ją -ręcznie, choć nie jest to najwygodniejsza metoda: - -$ ocamlc -c logic.mli -$ ocamlc -c logic.ml -$ ocamlc -c proof.mli -$ ocamlc -c proof.ml -$ ocamlc -a -o logic.cma logic.cmo proof.cmo - -Pamiętaj, że po każdej zmianie należy przekompilować bibliotekę. diff --git a/Semestr 3/pf/lista4/logic/_build/_digests b/Semestr 3/pf/lista4/logic/_build/_digests deleted file mode 100644 index 7609f41..0000000 --- a/Semestr 3/pf/lista4/logic/_build/_digests +++ /dev/null @@ -1,8 +0,0 @@ -"Rule: ocaml: mllib & cmo* -> cma (%=logic )": "\233\003\206\234O\218\186\169\012\143\026\230\137vT\179" -"Rule: ocaml dependencies ml (%=logic )": "\253\229 \217\176a\202\182\197\148\232\251\185q\138\n" -"Resource: /mnt/c/Users/franc/Documents/pf/lista4/logic/logic.mli": "\144T\172\t\250\250\t\020qGU\157\247\251M\b" -"Resource: /mnt/c/Users/franc/Documents/pf/lista4/logic/logic.ml": "[u \139\192\022|\201<\229\173\026\237\206K\022" -"Rule: ocaml: ml & cmi -> cmo (%=logic )": "gr\213\221\155;\233\179\2497\006V\165\210\t\232" -"Rule: ocaml: mli -> cmi (%=logic )": "\170\192\216\b\023\138!\200EW\017\002\179\007fC" -"Rule: ocaml dependencies mli (%=logic )": "|\128\193\029\172\176V6EV\145\157\148J\007\232" -"Resource: /mnt/c/Users/franc/Documents/pf/lista4/logic/logic.mllib": ">\208|K\146\191E\166@\251\011\165a\167\209I" diff --git a/Semestr 3/pf/lista4/logic/_build/_log b/Semestr 3/pf/lista4/logic/_build/_log deleted file mode 100644 index 69d909d..0000000 --- a/Semestr 3/pf/lista4/logic/_build/_log +++ /dev/null @@ -1,12 +0,0 @@ -### Starting build. -# Target: logic.mli.depends, tags: { extension:mli, file:logic.mli, ocaml, ocamldep, quiet, traverse } -/home/fmalinka/.opam/4.11.1/bin/ocamldep.opt -modules logic.mli > logic.mli.depends # cached -# Target: logic.cmi, tags: { byte, compile, extension:mli, file:logic.mli, interf, ocaml, quiet, traverse } -/home/fmalinka/.opam/4.11.1/bin/ocamlc.opt -c -o logic.cmi logic.mli # cached -# Target: logic.ml.depends, tags: { extension:ml, file:logic.ml, ocaml, ocamldep, quiet, traverse } -/home/fmalinka/.opam/4.11.1/bin/ocamldep.opt -modules logic.ml > logic.ml.depends -# Target: logic.cmo, tags: { byte, compile, extension:cmo, extension:ml, file:logic.cmo, file:logic.ml, implem, ocaml, quiet, traverse } -/home/fmalinka/.opam/4.11.1/bin/ocamlc.opt -c -o logic.cmo logic.ml -# Target: logic.cma, tags: { byte, extension:cma, file:logic.cma, library, link, ocaml, quiet, traverse } -/home/fmalinka/.opam/4.11.1/bin/ocamlc.opt -a logic.cmo -o logic.cma -# Compilation successful. diff --git a/Semestr 3/pf/lista4/logic/_build/logic.cma b/Semestr 3/pf/lista4/logic/_build/logic.cma Binary files differdeleted file mode 100644 index 5fca9f1..0000000 --- a/Semestr 3/pf/lista4/logic/_build/logic.cma +++ /dev/null diff --git a/Semestr 3/pf/lista4/logic/_build/logic.cmi b/Semestr 3/pf/lista4/logic/_build/logic.cmi Binary files differdeleted file mode 100644 index d9d951f..0000000 --- a/Semestr 3/pf/lista4/logic/_build/logic.cmi +++ /dev/null diff --git a/Semestr 3/pf/lista4/logic/_build/logic.cmo b/Semestr 3/pf/lista4/logic/_build/logic.cmo Binary files differdeleted file mode 100644 index 4f60b90..0000000 --- a/Semestr 3/pf/lista4/logic/_build/logic.cmo +++ /dev/null diff --git a/Semestr 3/pf/lista4/logic/_build/logic.ml b/Semestr 3/pf/lista4/logic/_build/logic.ml deleted file mode 100644 index bb72fc2..0000000 --- a/Semestr 3/pf/lista4/logic/_build/logic.ml +++ /dev/null @@ -1,78 +0,0 @@ -type formula = False | Var of string | Imp of formula * formula - -let rec string_of_formula = function - | False -> "F" - | Var s -> s - | Imp (f1, f2) -> "(" ^ (string_of_formula f1) ^ " -> " ^ (string_of_formula f2) ^ ")" -(* match (f1, f2) with - | (Var v1, Var v2) -> (string_of_formula f1) ^ " -> " ^ (string_of_formula f2) - | (Var v1, False) | (False, Var v1) -> (string_of_formula f1) ^ " -> " ^ (string_of_formula f2) - | (False, False) -> (string_of_formula f1) ^ " -> " ^ (string_of_formula f2) - | (f1, f2) -> "(" ^ (string_of_formula f1) ^ " -> " ^ (string_of_formula f2) ^ ")" *) - -let pp_print_formula fmtr f = - Format.pp_print_string fmtr (string_of_formula f) - -type verdict = { assump : formula list; concl : formula } - -type theorem = - | Assumption of verdict - | ImpInsert of verdict * theorem - | ImpErase of verdict * theorem * theorem - | Contradiction of verdict * theorem - -let get_verdict thm = match thm with - | Assumption f -> f - | ImpInsert (v, _) | ImpErase (v, _, _) | Contradiction (v, _) -> v - -let assumptions thm = (get_verdict thm).assump -let consequence thm = (get_verdict thm).concl - -let pp_print_theorem fmtr thm = - let open Format in - pp_open_hvbox fmtr 2; - begin match assumptions thm with - | [] -> () - | f :: fs -> - pp_print_formula fmtr f; - fs |> List.iter (fun f -> - pp_print_string fmtr ","; - pp_print_space fmtr (); - pp_print_formula fmtr f); - pp_print_space fmtr () - end; - pp_open_hbox fmtr (); - pp_print_string fmtr "⊢"; - pp_print_space fmtr (); - pp_print_formula fmtr (consequence thm); - pp_close_box fmtr (); - pp_close_box fmtr () - -let by_assumption f = - Assumption { assump=[f]; concl=f } - -let imp_i f thm = - let premise = get_verdict thm - in ImpInsert ({assump=(List.filter ((<>) f) premise.assump); concl=(Imp (f, premise.concl))}, thm) - -let imp_e th1 th2 = - let premise1 = get_verdict th1 in - let premise2 = get_verdict th2 in - match premise1.concl with - | False | Var _ -> failwith "th1 conclusion is not implication" - | Imp (phi, psi) -> if phi <> premise2.concl then failwith "th1 conclusion's premise is not th2 premise conclusion" else - ImpErase ({assump=(premise1.assump @ premise2.assump); concl=(psi)}, th1, th2) - -let bot_e f thm = - match get_verdict thm with - | {assump=ass; concl=False}-> (Contradiction ({assump=ass; concl=f}, thm)) - | _ -> failwith "thm conclusion is not False" - - -let taut = (imp_i (Var "p") (by_assumption (Var "p"))) -let taut2 = (imp_i (Var "p") (imp_i (Var "q") (by_assumption (Var "p")))) - -let imppqr = Imp (Imp (Var "p", Var "q"), Var "r") -let imppq = Imp (Var "p", Var "q") -let imppr = Imp (Var "p", Var "r") -let taut3 = (imp_i (imppqr) (imp_i imppq (by_assumption imppr)))
\ No newline at end of file diff --git a/Semestr 3/pf/lista4/logic/_build/logic.ml.depends b/Semestr 3/pf/lista4/logic/_build/logic.ml.depends deleted file mode 100644 index 5169b43..0000000 --- a/Semestr 3/pf/lista4/logic/_build/logic.ml.depends +++ /dev/null @@ -1 +0,0 @@ -logic.ml: Format List diff --git a/Semestr 3/pf/lista4/logic/_build/logic.mli b/Semestr 3/pf/lista4/logic/_build/logic.mli deleted file mode 100644 index afbdc7d..0000000 --- a/Semestr 3/pf/lista4/logic/_build/logic.mli +++ /dev/null @@ -1,44 +0,0 @@ -(** reprezentacja formuł *) -type formula = False | Var of string | Imp of formula * formula - -val pp_print_formula : Format.formatter -> formula -> unit - -(** reprezentacja twierdzeń *) -type theorem - -(** założenia twierdzenia *) -val assumptions : theorem -> formula list -(** teza twierdzeni *) -val consequence : theorem -> formula - -val pp_print_theorem : Format.formatter -> theorem -> unit - -(** by_assumption f konstuuje następujący dowód - - -------(Ax) - {f} ⊢ f *) -val by_assumption : formula -> theorem - -(** imp_i f thm konstuuje następujący dowód - - thm - Γ ⊢ φ - ---------------(→I) - Γ \ {f} ⊢ f → φ *) -val imp_i : formula -> theorem -> theorem - -(** imp_e thm1 thm2 konstuuje następujący dowód - - thm1 thm2 - Γ ⊢ φ → ψ Δ ⊢ φ - ------------------(→E) - Γ ∪ Δ ⊢ ψ *) -val imp_e : theorem -> theorem -> theorem - -(** bot_e f thm konstruuje następujący dowód - - thm - Γ ⊢ ⊥ - -----(⊥E) - Γ ⊢ f *) -val bot_e : formula -> theorem -> theorem diff --git a/Semestr 3/pf/lista4/logic/_build/logic.mli.depends b/Semestr 3/pf/lista4/logic/_build/logic.mli.depends deleted file mode 100644 index 3c54482..0000000 --- a/Semestr 3/pf/lista4/logic/_build/logic.mli.depends +++ /dev/null @@ -1 +0,0 @@ -logic.mli: Format diff --git a/Semestr 3/pf/lista4/logic/_build/logic.mllib b/Semestr 3/pf/lista4/logic/_build/logic.mllib deleted file mode 100644 index 3732649..0000000 --- a/Semestr 3/pf/lista4/logic/_build/logic.mllib +++ /dev/null @@ -1,2 +0,0 @@ -Logic - diff --git a/Semestr 3/pf/lista4/logic/_build/ocamlc.where b/Semestr 3/pf/lista4/logic/_build/ocamlc.where deleted file mode 100644 index 49511f0..0000000 --- a/Semestr 3/pf/lista4/logic/_build/ocamlc.where +++ /dev/null @@ -1 +0,0 @@ -/home/fmalinka/.opam/4.11.1/lib/ocaml diff --git a/Semestr 3/pf/lista4/logic/_tags b/Semestr 3/pf/lista4/logic/_tags deleted file mode 100644 index e69de29..0000000 --- a/Semestr 3/pf/lista4/logic/_tags +++ /dev/null diff --git a/Semestr 3/pf/lista4/logic/logic.cma b/Semestr 3/pf/lista4/logic/logic.cma Binary files differdeleted file mode 100644 index 5fca9f1..0000000 --- a/Semestr 3/pf/lista4/logic/logic.cma +++ /dev/null diff --git a/Semestr 3/pf/lista4/logic/logic.cmi b/Semestr 3/pf/lista4/logic/logic.cmi Binary files differdeleted file mode 100644 index d9d951f..0000000 --- a/Semestr 3/pf/lista4/logic/logic.cmi +++ /dev/null diff --git a/Semestr 3/pf/lista4/logic/logic.mllib b/Semestr 3/pf/lista4/logic/logic.mllib deleted file mode 100644 index 3732649..0000000 --- a/Semestr 3/pf/lista4/logic/logic.mllib +++ /dev/null @@ -1,2 +0,0 @@ -Logic - |