diff --git a/Algo/Séminaire/Chapter 3 - Case analysis.md b/Algo/Séminaire/Chapter 3 - Case analysis.md
index 3f49d9a..c2ac486 100644
--- a/Algo/Séminaire/Chapter 3 - Case analysis.md	
+++ b/Algo/Séminaire/Chapter 3 - Case analysis.md	
@@ -162,3 +162,8 @@ val avg : int -> int -> int = <fun>
 ```
 
 ### Filtering several values
+```Ocaml
+# let and_p a b = match (a,b) with 
+	| (true, true) -> true
+	| _ -> false;;
+val and_p : bool -> bool -> bool = <fun>
\ No newline at end of file